Trash in my prints

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Trash in my prints by blindluke (Hermit) on Aug 18, 2011 at 20:35 UTC
print() in mod_perl adds a trailing newline. Try using binmode with the filehandle. `binmode STDOUT; print '1';` [download] Good luck, Luke Jefferson	[reply] [d/l]
Re^2: Trash in my prints by DrHyde (Prior) on Aug 19, 2011 at 11:25 UTC
That's a bug in mod_perl. Even if it's documented, it's still a bug. It's a bug in the design.	[reply]
Re^3: Trash in my prints by Anonymous Monk on Aug 19, 2011 at 12:06 UTC
That's a bug in mod_perl. Even if it's documented, it's still a bug. It's a bug in the design. It is neither It is a perl feature, see binmode	[reply]
Re^4: Trash in my prints by DrHyde (Prior) on Aug 22, 2011 at 12:57 UTC
Re^5: Trash in my prints by Anonymous Monk on Aug 22, 2011 at 13:10 UTC
Some notes below your chosen depth have not been shown here
Re: Trash in my prints by blue_cowdawg (Monsignor) on Aug 18, 2011 at 19:50 UTC
Any ideas to get rid of that \x0A? what is chomp()? Peter L. Berghold -- Unix Professional Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg	[reply]
Re^2: Trash in my prints by Anonymous Monk on Aug 18, 2011 at 20:07 UTC
No go, how would I chomp a `print ''; exit;`, it still spits a lone \x0A	[reply] [d/l]
Re^3: Trash in my prints by blue_cowdawg (Monsignor) on Aug 18, 2011 at 20:21 UTC
No go, how would I chomp a print ''; Whaaaa? You're leaving something out here. \0a (or 0xaH) is a line feed or EOL character. You must have something out there emitting an extra EOL. If `$text` represents the slurped in file and you do a `chomp ($line)` you should eliminate the EOL character. What platform are you running on and what platform did the files come from? I know that WinBloze adds extra \0a characters on normal text files and if you try reading them in Unix it will appear as extra EOLs. Peter L. Berghold -- Unix Professional Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg	[reply] [d/l] [select]
Re^4: Trash in my prints by Anonymous Monk on Aug 18, 2011 at 20:30 UTC
Re^5: Trash in my prints by blue_cowdawg (Monsignor) on Aug 18, 2011 at 20:33 UTC
Re: Trash in my prints by Anonymous Monk on Aug 18, 2011 at 19:59 UTC
Tried that, but `print '';exit;` gives the \x0A alone. Anywhere else to look?	[reply] [d/l]
Re^2: Trash in my prints by jwkrahn (Abbot) on Aug 18, 2011 at 20:31 UTC
Try it like this: `{ local $\; print '1'; }` [download]	[reply] [d/l]
Re^3: Trash in my prints by Anonymous Monk on Aug 18, 2011 at 22:33 UTC
That did the trick. The code where I found this problem spits a file as an attachment to the browser, kinda looks like this: `sub render_file { my ( $x, %p ) = @_; my $content = read_file( $p{name}, binmode => ':raw' ); print $content; return Apache2::Const::OK; }` [download] nothing really complex. I didn't know $\ would affect the output of print, or rather, didn't know mod_perl would set it like blindluke says. What really strikes me as odd now is the fact that the code hasn't changed in ages and no one had noticed it was broken... You learn something new everyday. Thanks everyone!	[reply] [d/l]
Re^4: Trash in my prints by Anonymous Monk on Aug 20, 2011 at 05:53 UTC