Help for this page

Select Code to Download


  1. or download this
    use Algorithm::Loops qw( Filter );
my @lines = grep defined, Filter {
...
        s/\s+$//;
    }
} <$in>;
  2. or download this
    s/^\s+//, s/\s+$//
    for my @lines= grep ! /^\s*#/, <$in>;