From 9032a2190d88ef246f46801ee735a97901aab6aa Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Thu, 18 Jul 2013 10:31:30 -0400 Subject: rename these scripts, and add abstracts --- bin/generate_spreadsheet | 14 -------------- bin/generate_template | 10 ---------- bin/spreadsheet_to_template | 11 +++++++++++ bin/template_to_spreadsheet | 15 +++++++++++++++ 4 files changed, 26 insertions(+), 24 deletions(-) delete mode 100644 bin/generate_spreadsheet delete mode 100644 bin/generate_template create mode 100644 bin/spreadsheet_to_template create mode 100644 bin/template_to_spreadsheet diff --git a/bin/generate_spreadsheet b/bin/generate_spreadsheet deleted file mode 100644 index b4a9edf..0000000 --- a/bin/generate_spreadsheet +++ /dev/null @@ -1,14 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -# PODNAME: generate_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; diff --git a/bin/generate_template b/bin/generate_template deleted file mode 100644 index a036f5d..0000000 --- a/bin/generate_template +++ /dev/null @@ -1,10 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -# PODNAME: generate_template - -use Spreadsheet::Template::Generator; - -my $generator = Spreadsheet::Template::Generator->new; -open my $fh, '>:encoding(utf8)', 'out.json'; -$fh->print($generator->generate($ARGV[0])); diff --git a/bin/spreadsheet_to_template b/bin/spreadsheet_to_template new file mode 100644 index 0000000..825464b --- /dev/null +++ b/bin/spreadsheet_to_template @@ -0,0 +1,11 @@ +#!/usr/bin/env perl +use strict; +use warnings; +# PODNAME: spreadsheet_to_template +# ABSTRACT: create a basic template file from a spreadsheet + +use Spreadsheet::Template::Generator; + +my $generator = Spreadsheet::Template::Generator->new; +open my $fh, '>:encoding(utf8)', 'out.json'; +$fh->print($generator->generate($ARGV[0])); diff --git a/bin/template_to_spreadsheet b/bin/template_to_spreadsheet new file mode 100644 index 0000000..75f27ab --- /dev/null +++ b/bin/template_to_spreadsheet @@ -0,0 +1,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; -- cgit v1.2.3-54-g00ecf