aoc2021

commit d4c8dc1a4a43d0c8e5a8cefcf7216f904dc1ba52
parent f7696393d5a67829ae19a15aa7b68b6027d9b60e
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Wed,  1 Dec 2021 21:21:19 +0000

add boilerplate.pl

Diffstat:
A
boilerplate.pl
 | 
22
++++++++++++++++++++++

1 file changed, 22 insertions(+), 0 deletions(-)
diff --git a/boilerplate.pl b/boilerplate.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use v5.22;
+
+if (@ARGV !=1) {
+    die "Usage: $0 [input-filename]";
+}
+
+my $input_filename = $ARGV[0];
+open my $filehandle, '<', $input_filename or
+    die "Could not open input file $input_filename: $!";
+
+#while ( <$filehandle> ) {
+#foreach ( <$filehandle> ) {
+#    chomp;
+#    say $_;
+#}
+
+chomp( my @input = ( <$filehandle> ) );
+say $_ foreach (@input);