(updated thx to points made by johngg)use English qw( -no_match_vars ); # use awk else at least alpha var names # and disable pre/post-match vars (not needed) # for performance # ... # note: $RS = "\n" is already the default! { local $ORS = "\r\n"; map { chomp; print $sock $_; } <FILE>; }
^M Free your mind!
In reply to Re: print list to socket
by Moron
in thread print list to socket
by yesterday
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |