Help for this page

Select Code to Download


  1. or download this
    while(read $fh, my $buffer, 128*2**10) {
    $buffer .= <$fh>; # since last line probably crosses buffer border
    for(split /\n/, $buffer) {
        # ...
    }
}
  2. or download this
    my @field = split /\|/, $_, 10; # each record has 10 fields
  3. or download this
    # we assume 10 fields per record again
while(read $fh, my $buffer, 128*2**10) {
    $buffer .= <$fh>;
...
        # ...
    }
}
  4. or download this
            # ...
        push @out_field_heap, @field, "\n";

...

    print OUTPUT $out_buffer;
}
  5. or download this
    # 10 fields..
while(read $fh, my $buffer, 128*2**10) {
   $buffer .= <$fh>;
...
       # ...
   }
}