Help for this page

Select Code to Download


  1. or download this
        my $rec;
    sysopen(DF, "test.txt", O_RDONLY);
    sysread DF, $rec, 26214400;    #25meg
    close DF;
  2. or download this
        foreach(split("\n",$rec)){push(@array,"$_\n";)}
    $rec='';    # Release memory