Help for this page

Select Code to Download


  1. or download this
    open SRC, "$source";
open IDX, ">$source.offset";
...
while(<SRC>) {
    print IDX pack 'N', tell SRC;
}
  2. or download this
    use CGI;
$source = $INC{'CGI.pm'};
  3. or download this
    my $line = 2990;
open IDX, "$source.offset";
...
open SRC, "$source";
seek SRC, $offset, 0;
print "Line $line is:\n", scalar <SRC>;