Galera, é um problema recorrente que eu tenho. Uso linux e tenho que processar arquivos gerados no windows<br><br>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).<br>
<br>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. <br><br><blockquote style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;" class="gmail_quote">
<font face="courier new,monospace">cat arquivo.txt|perl -e '$x = <>;chomp($x);($a,$b,$c,$d)=split("\t",$x);print "$c$d\n";'|hd</font><br><span style="font-family: courier new,monospace;">>00000000 54 43 <span style="background-color: rgb(255, 255, 51);">0d</span> 0a |TC..|</span><br>
<br><font face="courier new,monospace">cat arquivo.txt|perl -e '$x = <>;chomp($x);<span style="background-color: rgb(255, 255, 0);">chop($x)</span>;($a,$b,$c,$d)=split("\t",$x);print "$c$d\n";'|hd</font><br>
<span style="font-family: courier new,monospace;">>00000000 54 43 <span style="background-color: rgb(255, 255, 51);"></span>0a |TC.|</span><br></blockquote>
<br><br>Aproveitando o e-mail porquê <font face="courier new,monospace"><br></font><blockquote><font face="courier new,monospace">$x =~</font> s/0x0d//g;<br></blockquote>não funciona?<br><br><br>Alguma sugestão?<br><br>Obrigado,<br clear="all">
Otávio<br>