Actually, I don't think this will work because he isn't trying to find CR/LF's in a file and replace with just LF's, he's talking about printing to stdout. The Win32 ActiveState build of Perl actually outputs a CR/LF pair when you try to print "\n". I don't have a Win32 machine handy to test on, but I can think of a couple possibilities:
- Instead of using \n use \x0A (just an ASCII char 10, instead of the "symbolic newline", which gives a ASCII 13/ASCII 10 pair): print "Hi there.\x0ANew line here.";
- Try doing binmode STDOUT; I know you can use that when printing to files so the symbolic newline isn't reinterpreted, and as far as I know STDOUT is just a regular filehandle that you can call binmode on.
- If neither of those work, try writing to a file instead of directly to stdout. Then you can definitely use binmode and avoid getting CR/LF pairs.
Perl6 Grammar Student