Help for this page

Select Code to Download


  1. or download this
    my $checkthree = param('check');
  2. or download this
    use strict;
use warnings;

my $checkthree = param('check');
  3. or download this
    open IN, $data or die "Cannot open $data for reading:$!\n";
  4. or download this
    
while (my $line =<DATA>)
...
    if ($three eq $checkthree) {print "$three found before $four in li
+ne $.\n"; last;}    
}
close DATA;