interessante, não conheço muito bem as variáveis de sistema.<br><br>mas com isso em mente, me surge outra pergunta da mesma forma que existe um <br><br><blockquote>use utf-8;<br></blockquote><br>existe um <br><br><blockquote>
use /win32|windows|ms/;<br></blockquote><br>?<br><br>Sei que estou sendo preguiçoso (no momento minha pesquisa de google não retornou nada e não posso parar pra procurar).<br><br><br clear="all">Otávio<br>
<br><br><div class="gmail_quote">2010/7/22 Blabos de Blebe <span dir="ltr"><<a href="mailto:blabos@gmail.com">blabos@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
Em um projeto aqui, eu resolvi temporariamente com:<br>
<br>
sub _my_trim {<br>
my $line = shift;<br>
<br>
local $/ = "\r\n"; ## For win files<br>
chomp($line);<br>
local $/ = "\n"; ## For unix files<br>
chomp($line);<br>
<br>
return $line;<br>
}<br>
<br>
Mas não garanto que funcione para todos os casos, conforme wiki:<br>
<br>
<a href="http://en.wikipedia.org/wiki/Newline" target="_blank">http://en.wikipedia.org/wiki/Newline</a><br>
<br>
Abraços<br>
<br>
P.S.: À época dessa solução, não foi feita uma pesquisa extensa,<br>
provavelmente existem soluções mais robustas.<br>
<br>
<br>
<br>
2010/7/22 Otavio Pereira <<a href="mailto:otavio.pereira@gmail.com">otavio.pereira@gmail.com</a>>:<br>
<div><div></div><div class="h5">> Galera, é um problema recorrente que eu tenho. Uso linux e tenho que<br>
> processar arquivos gerados no windows<br>
><br>
> Leio uma linha de arquivo texto dou um chomp que elimina o 0x0a (aka<br>
> 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 é<br>
> conhecido o 0x0d) no fim da linha, ou mesmo ficar com ele quando a linha é<br>
> vazia.<br>
><br>
>> cat arquivo.txt|perl -e '$x =<br>
>> <>;chomp($x);($a,$b,$c,$d)=split("\t",$x);print "$c$d\n";'|hd<br>
>> >00000000 54 43 0d 0a |TC..|<br>
>><br>
>> cat arquivo.txt|perl -e '$x =<br>
>> <>;chomp($x);chop($x);($a,$b,$c,$d)=split("\t",$x);print "$c$d\n";'|hd<br>
>> >00000000 54 43 0a |TC.|<br>
><br>
><br>
> Aproveitando o e-mail porquê<br>
><br>
> $x =~ s/0x0d//g;<br>
><br>
> não funciona?<br>
><br>
><br>
> Alguma sugestão?<br>
><br>
> Obrigado,<br>
> Otávio<br>
><br>
</div></div>> _______________________________________________<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>
><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>