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

Testing001

Дата 25.4.2007, 08:30 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 88
Регистрация: 27.3.2007

Репутация: нет
Всего: нет

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61

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

Код


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

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

Код


s/\r//g;

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Testing001

Дата 25.4.2007, 18:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 88
Регистрация: 27.3.2007

Репутация: нет
Всего: нет

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »