G
Guest
Greetings all,
I need some help with format under vmsperl.
Please look at the following sample perl program::
#!/usr/bin/perl
my $str = "First line" . chr(13) .
"Second line should wrap at thirty chars" . chr(13) .
"Next line". chr(13) .
"Last line". chr(13);
format STDOUT =
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~
$str
..
write;
On Activestate perl v5.8.7 (running on Windows XP) I get the expected
outputt:
First line
Second line should wrap at
thirty characters
Next line
Last line
But on VMS perl v5.6.1, it gives me insufficient output:
First line
Second line should wrap at
thirty characters
Next line
The VMS platform is OpenVMS v7.3-2 on an Alphaserver DS10.
Can somebody please try it and confirm the bug.
Maybe even provide a work around or fix to this?
Thanks in advance,
Juna
I need some help with format under vmsperl.
Please look at the following sample perl program::
#!/usr/bin/perl
my $str = "First line" . chr(13) .
"Second line should wrap at thirty chars" . chr(13) .
"Next line". chr(13) .
"Last line". chr(13);
format STDOUT =
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~
$str
..
write;
On Activestate perl v5.8.7 (running on Windows XP) I get the expected
outputt:
First line
Second line should wrap at
thirty characters
Next line
Last line
But on VMS perl v5.6.1, it gives me insufficient output:
First line
Second line should wrap at
thirty characters
Next line
The VMS platform is OpenVMS v7.3-2 on an Alphaserver DS10.
Can somebody please try it and confirm the bug.
Maybe even provide a work around or fix to this?
Thanks in advance,
Juna