bin/template_to_spreadsheet


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/usr/bin/env perl
use strict;
use warnings;
# PODNAME: template_to_spreadsheet
# ABSTRACT: render a template into a spreadsheet

use Spreadsheet::Template;

my $template = Spreadsheet::Template->new;
my $in = do { local $/; <> };
my $out = $template->render($in);
open my $fh, '>', 'out.xlsx';
binmode $fh;
$fh->print($out);
$fh->close;