diff options
| -rw-r--r-- | perl.html.markdown | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/perl.html.markdown b/perl.html.markdown index 8811dd08..88185e9d 100644 --- a/perl.html.markdown +++ b/perl.html.markdown @@ -217,6 +217,12 @@ open(my $log, ">>", "my.log") or die "Can't open my.log: $!"; my $line = <$in>; my @lines = <$in>; +# You can iterate through the lines in a file one at a time with a while loop: + +while (my $line = <$in>) { + print "Found apples\n" if $line =~ m/apples/; +} + # You can write to an open filehandle using the standard "print" # function. |