Help for this page

Select Code to Download


  1. or download this
    my @records = <BIGFILE>;
  2. or download this
    my @records = <BIGFILE>;
my @london = grep /LONDON/, @records;
print LONDONFILE join "", @london;
  3. or download this
    while ( my $line = <BIGFILE> ) {
   /LONDON/ ? print LONDONFILE $line,"\n" : 
              print OTHERFILE  $line,"\n";
}