I am having trouble reading files properly using VMS Perl 5.6 on VMS AXP
6.2-1h3. It seems that Perl is loosing some of the NewLines.. ( some NL's
get changed to a CR/NL... while NL's get dropped entirely...? ) The goal is
to use Perl to get our reports into an imaging system with recognizable page
breaks... ( replace the CR/FF with a CR/NL/FF ... s/\r\f/\r\n\f/ ). A
listing of the file and the script im using to read it are below... am I on
the right track with this?
--
Jeff Vekovius
[EMAIL PROTECTED]
File organization: Sequential
Shelved state: Online
File attributes: Allocation: 140, Extend: 0, Global buffer count: 0
No version limit
Record format: VFC, 2 byte header, maximum 132 bytes, longest 132 bytes
Record attributes: Print file carriage control
RMS attributes: None
****************************************************************************
**********************************************
#! perl
use VMS::Stdio qw( :CONSTANTS :FUNCTIONS );
$infl = vmsopen("<132col.rpt", "alq=140", "rat=prn", "rfm=vfc" ) || die $!;
while( sysread($infl,$curln,132) )
{
print $curln;
}
close($infl);
