thiago,
tente isso:
open A,"<arquivo.old";
open B,">arquivo.new";
while (<A>) {
$_ =~ tr/\r/\n/g;
print B $_;
}
close B;
close A;
abra�os,
_______________________
francisco lopes
uin: 17364815
email: [EMAIL PROTECTED]
-----Mensagem Original-----
De: Thiago Ordine Rodrigues <[EMAIL PROTECTED]>
Para: <[EMAIL PROTECTED]>; perl@pipeline <[EMAIL PROTECTED]>;
perl@programadores <[EMAIL PROTECTED]>
Enviada em: Ter�a-feira, 31 de Dezembro de 1996 23:09
Assunto: [perl] Conversor UNIX x Windows
> Ola Lista!!!
>
> Eu trabalho em dois sistemas, Linux e Windows e sempre eu preciso acesar
um
> arquivo feito em linux no windows e vice e versa, mas existe a
> incompatibilidade do caracter de final de linha (carrier return) entre um
> sistema e outro...
>
> Como fazer um conversor???
>
> seria bem simples... eh so jogar um $novo=~s/caracter_linux/caracter_win/;
>
> so que eu nao sei qual o caracter do windows e nem do linux... alguem tem
> alguma dica???
>
> Valeu pela atencao!
>
> __
> / \ Thiago Ordine Rodrigues
> \ / [EMAIL PROTECTED]
> \ /
> X ASCII RIBBON
> / \ Against HTML e-mail
> / \
>
> http://www.mrweb.com.br/perl/
> =======================================
> >>No site da lista, voce tera tudo sobre PERL,
> >>LINUX, PHP, ASP e informacoes, cadastramento
> >>e descadastramento da Lista.
> =======================================
http://www.mrweb.com.br/perl/
=======================================
>>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
=======================================
