On Fri, 7 Nov 2003 12:10:25 +0100
^pi^ <pi@beobide.net> wrote:
> había (creo) una aplicacion/script para quitar los dichosos ^M que se
> crean en un texto plano (creo que al pasa por win pero no lo tengo
> claro).
#!/usr/bin/perl
# convert a dos \r\n format to unix \bn
open(FILE, $ARGV[0]);
while(<FILE>) {
# remove the stupid \r, replace with \n
# some broken editors just put \r
s/\r/\n/g;
# Remove the duplicate \n
s/\n\n/\n/g;
print;
}
close(FILE);