Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
  2. or download this
    while (<SOURCE>) {
   $script = <SOURCE>;
   chomp $script;
   @line=grep( /$script/, @sfile );
}
  3. or download this
    while(read(SOURCE, $script,1)){ #reading one byte at a time
     chomp $script;
     @line=grep( /$script/, @sfile );
     }