Ajout automatic de CR quand LF

[Marc SCHAEFER]

Bonjour,

je bricole du IO::Socket::INET en utilisant directement print, avec
des \n (sous plateforme UNIX).

Avec PerlIO on peut automatiquement ouvrir un fichier avec la propriété
:crlf pour automatiquement ajouter CR avant LF.

Est-ce possible de le faire simplement avec IO::Socket::INET ?

Ou d'appeler une fonction juste avant de finaliser la sortie ?

Exemple de code:

my $s = $socket->accept();
print $s "200 news.alphanet.ch FakePerl NNRP server 0.1 (no posting).\n";

Merci de vos lumières.

[Nicolas George]

Post by Marc SCHAEFER
je bricole du IO::Socket::INET en utilisant directement print, avec
des \n (sous plateforme UNIX).
Avec PerlIO on peut automatiquement ouvrir un fichier avec la propriété
:crlf pour automatiquement ajouter CR avant LF.
Est-ce possible de le faire simplement avec IO::Socket::INET ?

Il suffit d'utiliser binmode.

[Marc SCHAEFER]

Post by Nicolas George
Il suffit d'utiliser binmode.

Eh oui, ça marche. Trop cool, merci.

binmode $client_socket, ":crlf";