Help for this page

Select Code to Download


  1. or download this
    my @all_patterns = ( 
    sub{ $_[0] =~ s/#.*// }, 
...
    sub{ $_[0] =~ s/^Total// }, 
    sub{ $_[0] =~ s/^,// },
);
  2. or download this
    sub apply_patterns {
    $_->( $_[0] ) for @all_patterns[ @_[ 1 .. $#_ ] ];
}