[SP-pm] Remover 0x0D (aka carriage return) do final de uma linha

[Otavio Pereira]

Galera, é um problema recorrente que eu tenho. Uso linux e tenho que
processar arquivos gerados no windows

Leio uma linha de arquivo texto dou um chomp que elimina o 0x0a (aka
newline), mas mantém o 0x0d (já tentei usar o chomp uma segunda vez também).

Apelei para o chop mas não quero assumir que sempre vou ter o \r (como tb é
conhecido o 0x0d) no fim da linha, ou mesmo ficar com ele quando a linha é
vazia.

cat arquivo.txt|perl -e '$x =
> <>;chomp($x);($a,$b,$c,$d)=split("\t",$x);print "$c$d\n";'|hd
> >00000000  54 43 0d 0a                                       |TC..|
>
> cat arquivo.txt|perl -e '$x = <>;chomp($x);chop($x);($a,$b,$c,$d)=split("\t",$x);print
> "$c$d\n";'|hd
> >00000000  54 43 0a                                       |TC.|
>


Aproveitando o e-mail porquê

$x =~ s/0x0d//g;

não funciona?


Alguma sugestão?

Obrigado,
Otávio
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20100722/429d0c24/attachment.html>