Help for this page

Select Code to Download


  1. or download this
    # Read a text file, stripping leading and trailing whitespace
# and ignoring any lines starting with '#'
...
my @lines = grep { s/^\s+//; s/#.*//; s/\s+$//; $_ } <$in>;
close($in);
for my $x (@lines) { print "x='$x'\n" }
  2. or download this
    my @lines = grep { s/^\s+//; s/#.*//; s/\s+$//; length($_) } <$in>;
  3. or download this
    my @lines = map { s/^\s+//; s/#.*//; s/\s+$//; length($_) ? $_ : () } 
+<$in>;