three LHF file contents examples

categories/cookbook/08-file-contents/08-02-count-lines.pl

@@ -0,0 +1,17 @@
+use v6;
+
+=begin pod
+
+=TITLE Count File Lines
+
+=AUTHOR stmuk
+
+You want to count the number of lines in a file
+
+=end pod
+
+my @lines = $*PROGRAM-NAME.IO.lines;
+
+say @lines.elems;
+
+# vim: expandtab shiftwidth=4 ft=perl6

categories/cookbook/08-file-contents/08-03-process-words.pl

@@ -0,0 +1,20 @@
+use v6;
+
+=begin pod
+
+=TITLE Process every word in a file
+
+=AUTHOR stmuk
+
+You want to process every word in a file
+
+=end pod
+
+my @words = $*PROGRAM-NAME.IO.words;
+
+for @words -> $word {
+    dd $word;
+}
+
+
+# vim: expandtab shiftwidth=4 ft=perl6

categories/cookbook/08-file-contents/08-04-read-file-lines-backwards.pl

@@ -0,0 +1,20 @@
+use v6;
+
+=begin pod
+
+=TITLE Read file lines backwards
+
+=AUTHOR stmuk
+
+You want to read file lines backwards
+
+=end pod
+
+my @lines = $*PROGRAM-NAME.IO.lines;
+@lines .= reverse;
+
+for @lines -> $line {
+    dd $line;
+}
+
+# vim: expandtab shiftwidth=4 ft=perl6