Another update from ingydotnet^djgoku

Task/Input-loop/Perl-6/input-loop-1.pl6

@@ -0,0 +1,3 @@
+for "filename.txt".IO.lines -> $line {
+    ...
+}

Task/Input-loop/Perl-6/input-loop-2.pl6

@@ -0,0 +1,3 @@
+for $*IN.lines -> $line {
+    ...
+}

Task/Input-loop/Perl-6/input-loop-3.pl6

@@ -0,0 +1,3 @@
+for pipe("find -iname '*.txt'").lines -> $filename {
+    ...
+}

Task/Input-loop/Perl-6/input-loop-4.pl6

@@ -0,0 +1,3 @@
+for pipe("find -iname '*.txt' -print0", :nl«\0»).lines -> $filename {
+    ...
+}

Task/Input-loop/Perl-6/input-loop-5.pl6

@@ -0,0 +1,3 @@
+for "filename.txt".IO.words -> $word {
+    ...
+}

Task/Input-loop/Perl-6/input-loop.pl6

@@ -1,10 +0,0 @@
-my $handle = open "filename.txt"; # $handle could be $*IN to read from standard input
-
-for $handle.lines -> $line {  # iterates the lines of the $handle
-
-    # line endings are automatically stripped
-
-    for $line.words -> $word { # iterates the words of the line
-           # are considered words groups of non-whitespace characters
-    }
-}