Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Удалить \r на Perl

Автор: Testing001 25.4.2007, 08:30

Код


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;

}

не реботает

Автор: korob2001 25.4.2007, 08:56

Думаю проблема в ковычках. Попробуй так:

Код


$_ =~ s/\r//g;

Кстати привязка не нужна, когда ты обрабатываешь переменную $_, т.е. код можно сократить:

Код


s/\r//g;

Автор: Testing001 25.4.2007, 18:11

Спасибо korob2001, все ворк! smile