Help for this page

Select Code to Download


  1. or download this
            while (<INFILE>) {
                    my $line = $_;
    ...
                            last;
                    }
            }
    
  2. or download this
            while (<INFILE>) {
                    my $line = $_;
    ...
                    }
            }
    
  3. or download this
                    # ----- Do as long as line doesn't start with '2'