Skip to content
Browse files

code to read the Rhind text and return a LoL

  • Loading branch information...
1 parent 9628347 commit 0dcf574e8cd3be173935480ea6b553d72ac0fa80 @trammell committed Nov 6, 2009
Showing with 15 additions and 0 deletions.
  1. +15 −0 t/rhind.pl
View
15 t/rhind.pl
@@ -0,0 +1,15 @@
+use strict;
+use warnings FATAL => 'all';
+
+sub rhind {
+ open(my $fh, 't/rhind.txt') or die $!;
+ my @rhind;
+ while (<$fh>) {
+ next if /^\s*#/;
+ next unless /\S/;
+ push @rhind, [ split(' ',$_) ];
+ }
+ return @rhind;
+}
+
+1;

0 comments on commit 0dcf574

Please sign in to comment.
Something went wrong with that request. Please try again.