Strange behavior with print
Sorry more info:
I am using: Binary build 820 [274739] provided by ActiveState
http://www.ActiveState.com Built Jan 23 2007 15:57:46
---
I have a short program that extracts text file from a .gz archive using
Compress::ZLIB.
Using while ($gz-gzreadline($line) 0) I read each line, potential
process it, then write the line to a new file.
If print the length of $line it show a length of the text plus two
characters for 0D and 0A.
When I use:
print length=.length($line) .\n;
my @a = split //,$line;
foreach my $x (@a){
print $x . . ord($x) .\n;
}
I see exactly what I expect.
However when I print the line to a file and view the file using two
different Hex editors, I see that the line terminates with 0D 0D 0A. I
am not using chomp, chop, or adding any characters to the variable
during the print.
When I again use Perl to read the new file and use the sample code above
to analyze the input line, Perl again shows me the data I would expect
to see. That is a text line ending in just 0D 0A.
When check the length of the input string it matches that number of what
was supplied to the print command.
Is there some feature I am missing here or is this a bug?
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Strange behavior with print
I have a short program that extracts text file from a .gz archive using
Compress::ZLIB.
Using while ($gz-gzreadline($line) 0) I read each line, potential
process it, then write the line to a new file.
If print the length of $line it show a length of the text plus two
characters for 0D and 0A.
When I use:
print length=.length($line) .\n;
my @a = split //,$line;
foreach my $x (@a){
print $x . . ord($x) .\n;
}
I see exactly what I expect.
However when I print the line to a file and view the file using two
different Hex editors, I see that the line terminates with 0D 0D 0A. I
am not using chomp, chop, or adding any characters to the variable
during the print.
When I again use Perl to read the new file and use the sample code above
to analyze the input line, Perl again shows me the data I would expect
to see. That is a text line ending in just 0D 0A.
When check the length of the input string it matches that number of what
was supplied to the print command.
Is there some feature I am missing here or is this a bug?
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Strange behavior with print
I appear that perl's print command when using a file handle is changing
each occurrence of chr(10) to (chr(13) chr(10)). This does not seem to
be a helpful or proper action when working with defined literal strings.
I can make some sense out of
file:///C:/Perl/html/lib/Pod/perlport.html#newlines but do see how that
is relevant to literal printing strings.
[Bullock, Howard A.]
Sorry more info:
I am using: Binary build 820 [274739] provided by ActiveState
http://www.ActiveState.com Built Jan 23 2007 15:57:46
---
I have a short program that extracts text file from a .gz archive using
Compress::ZLIB.
Using while ($gz-gzreadline($line) 0) I read each line, potential
process it, then write the line to a new file.
If print the length of $line it show a length of the text plus two
characters for 0D and 0A.
When I use:
print length=.length($line) .\n;
my @a = split //,$line;
foreach my $x (@a){
print $x . . ord($x) .\n;
}
I see exactly what I expect.
However when I print the line to a file and view the file using two
different Hex editors, I see that the line terminates with 0D 0D 0A. I
am not using chomp, chop, or adding any characters to the variable
during the print.
When I again use Perl to read the new file and use the sample code above
to analyze the input line, Perl again shows me the data I would expect
to see. That is a text line ending in just 0D 0A.
When check the length of the input string it matches that number of what
was supplied to the print command.
Is there some feature I am missing here or is this a bug?
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Strange behavior with print
You need to change your file handle to binary mode to prevent the
line ending transformations:
binmode(STDOUT);
Please read `perldoc -f binmode`.
Cheers,
-Jan
-Original Message-
From: [EMAIL PROTECTED] [mailto:perl-win32-users-
[EMAIL PROTECTED] On Behalf Of Bullock, Howard A.
Sent: December 27, 2007 8:25 AM
To: perl-win32-users@listserv.activestate.com
Subject: RE: Strange behavior with print
I appear that perl's print command when using a file handle is changing
each occurrence of chr(10) to (chr(13) chr(10)). This does not seem to
be a helpful or proper action when working with defined literal strings.
I can make some sense out of
file:///C:/Perl/html/lib/Pod/perlport.html#newlines but do see how that
is relevant to literal printing strings.
[Bullock, Howard A.]
Sorry more info:
I am using: Binary build 820 [274739] provided by ActiveState
http://www.ActiveState.com Built Jan 23 2007 15:57:46
---
I have a short program that extracts text file from a .gz archive using
Compress::ZLIB.
Using while ($gz-gzreadline($line) 0) I read each line, potential
process it, then write the line to a new file.
If print the length of $line it show a length of the text plus two
characters for 0D and 0A.
When I use:
print length=.length($line) .\n;
my @a = split //,$line;
foreach my $x (@a){
print $x . . ord($x) .\n;
}
I see exactly what I expect.
However when I print the line to a file and view the file using two
different Hex editors, I see that the line terminates with 0D 0D 0A. I
am not using chomp, chop, or adding any characters to the variable
during the print.
When I again use Perl to read the new file and use the sample code above
to analyze the input line, Perl again shows me the data I would expect
to see. That is a text line ending in just 0D 0A.
When check the length of the input string it matches that number of what
was supplied to the print command.
Is there some feature I am missing here or is this a bug?
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Simon YEE/NYP/SINGOV is out of the office.
I will be out of the office from 12/27/2007 to 01/01/2008. Thank you for the email. I shall respond as soon as I get back to the office. For Part Time Diploma in Engineering Informatics, please contact Mr Koh Choon Chye at 6550-0615 or email him at [EMAIL PROTECTED] Regards. ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
