Версия для печати темы

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

Форум программистов _ Perl программирование _ Удалить \r на Perl

Автор: asmlover 18:08:2005, 23:19

Код

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;

}

не реботает

Автор: asmlover 18:08:2005, 23:19

ps Скрипт запускаю под виндой

Автор: ???? 19:08:2005, 17:07

Для: asmlover
$_ =~ s/"\r"//g; => $_ =~ s/\\r//g;

а так?

З.Ы. Проверить не могу, но должно работать.

Автор: FUKS 26:06:2007, 15:46

s/\r//g;

Автор: Pompei 28:12:2007, 05:45

s/\r//gm;