Help for this page

Select Code to Download

Select or download this

local $/=undef;

...
    syswrite NOTOUT, $plu . "\t" . $ymd . "\r" . "\n";
    }
}

Select or download this

while ($position <= $lenOfFile - 64) {        
    sysread NOTFOUND, my $record,64;        
    push(@records, chomp($record));            
...
    $plu = unpack("H*", substr($currentrecord,2,7));
    syswrite NOTOUT, $plu . "\t" . $ymd . "\n";
    }