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

Тема в разделе "Perl программирование", создана пользователем asmlover, 19 авг 2005.

Статус темы:
Закрыта.
  1. asmlover

    asmlover Гость

    Код (Text):
    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;

    }
    не реботает :(
     
  2. asmlover

    asmlover Гость

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

    ???? Гость

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

    а так? :(

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

    FUKS Гость

    s/\r//g;
     
  5. Pompei

    Pompei Гость

    s/\r//gm;
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей