Help for this page

Select Code to Download


  1. or download this
    # Code using iterator:
        while(  <INPUT>  ) {
    ...
            \*INPUT,
            sub { process_line($_) }
        );
    
  2. or download this
        # A merge sort:
        my $r1= <$i1>;
    ...
            $r2= <$i2>   if  0 le $cmp;
        }
        # ...
    
  3. or download this
        File::ProcessLines(
            $i1,
    ...
                );
            }
        );