Isso funciona em 98% dos casos pra mim:<div><br></div><div><br></div><div>$string =~ s/(\n\r|\r\n)|\r/\n/g;</div><div><br></div><div><br></div><div><br></div><div>Cheers!</div><div><br></div><div><br><br><div class="gmail_quote">
2010/7/22 Otavio Pereira <span dir="ltr"><<a href="mailto:otavio.pereira@gmail.com">otavio.pereira@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
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>
<br>_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>André Garcia Carneiro<br>Analista/Desenvolvedor Perl<br>
(11)82907780<br>
</div>