Re^2: socket gone crazy

I'm also under the impression that changing $/ might not ever help with this since the \n is converted on the way in from a file handle. The thing I don't know is if it converts "\x0d\x0a" to a \n for sockets. I suspect it does not.

-Paul

Comment on Re^2: socket gone crazy Select or Download Code

Replies are listed 'Best First'.
Re^3: socket gone crazy by almut (Canon) on May 23, 2007 at 21:25 UTC
... changing $/ might not ever help with this since the \n is converted on the way in from a file handle. Automatic line ending translations would happen if the `crlf` PerlIO layer were in effect. On Windows, this layer is by default pushed on the PerlIO layer stack for every filehandle (and, I suppose, for sockets, too — not 100% sure, though¹). However, as the OP is trying this on Ubuntu, there is no `crlf` layer (unless explicitly requested), and thus no CR/LF translations. ___ ¹ ...sorry, can't verify without rebooting into Windows, which would be too much fuss at the moment :) Maybe someone else is willing to just run the example on Windows, and put a `print join(" ", PerlIO::get_layers($session)), "\n";` [download] right after the `my $session = $sock->accept;` in the server code. This would show which layers are in effect.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: socket gone crazy
by almut (Canon) on May 23, 2007 at 21:25 UTC

... changing $/ might not ever help with this since the \n is converted on the way in from a file handle.

Automatic line ending translations would happen if the crlf PerlIO layer were in effect. On Windows, this layer is by default pushed on the PerlIO layer stack for every filehandle (and, I suppose, for sockets, too — not 100% sure, though¹). However, as the OP is trying this on Ubuntu, there is no crlf layer (unless explicitly requested), and thus no CR/LF translations.

___

¹ ...sorry, can't verify without rebooting into Windows, which would be too much fuss at the moment :)

Maybe someone else is willing to just run the example on Windows, and put a

print join(" ", PerlIO::get_layers($session)), "\n";
[download]

right after the my $session = $sock->accept; in the server code. This would show which layers are in effect.

[reply]
[d/l]
[select]