Удалить \r на Perl

  • Автор темы asmlover
  • Дата начала
Статус
Закрыто для дальнейших ответов.
A

asmlover

Гость
#1
Код:
sub ClearInternalComments          
{
 my @out;
open (HANDLE,"<$_[0]");
while (<HANDLE>){
$_ =~ s/"\r"//g;
push @out, $_;
print $_; #debug	
print HANDLE1 $_;
}
close HANDLE;
open (HANDLE,">$_[0]");
print HANDLE @out;
close HANDLE;

}
не реботает :(
 
?

????

Гость
#3
Для: asmlover
$_ =~ s/"\r"//g; => $_ =~ s/\\r//g;

а так? :(

З.Ы. Проверить не могу, но должно работать.
 
Статус
Закрыто для дальнейших ответов.