VPF::Скрипт замены текста не работает

NZero

Дата 7.11.2013, 18:29 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 358
Регистрация: 28.4.2010
Где: Москва

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

Скрипт бегает по строкам в файле, если находит нужную строку заменяет данные в строке

Код


for(;$i < $len; $i++)
{
   if($str[$i] =~ /$n_field[$n]/)
   {
     $str[$i] =~ /<.*?>(\d+)<\/.*?>/;
     $str[$i] =~ s/(<.*?>)(\d+)(<\/.*?>)/$1$wrong_ip[$w]$3/;
     print $fout $str[$i];
     $i++;
   }
   print $fout $str[$i];
}

Однако скрипт не очень работает. Строка остается неизменной.

Писал аналогичный скрипт, там все работает

Код


while ($i < $count)
    {
    if ($str[$i] =~ /$ff/g)
    {
        $str[$i] =~ /<.*?>(\d+)<\/.*?>/;
        $max = $1 + 1;
        $max = $1 + 7 if($ff eq "Primary_mask" || $ff eq "Sup_mask" || $ff eq "RTP_mask" || $ff eq "Amount_of_channels");
        $str[$i] =~ s/(<.*?>)(\d+)(<\/.*?>)/$1$max$3/;
        print $fout $str[$i];
        $i++;
    }
    print $fout $str[$i];
    $i++;
    
    }

arto

Дата 7.11.2013, 20:08 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

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

зачем вам 2 раза $str[$i] =~ ?

NZero

Дата 8.11.2013, 09:11 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 358
Регистрация: 28.4.2010
Где: Москва

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

Убрал

Код


$str[$i] =~ /<.*?>(\d+)<\/.*?>/;

Только это никак не помогло(

Добавлено через 13 минут и 57 секунд
Разобрался. Сделал так

Код


$str[$i] =~ />(.*?)</;
$str[$i] =~ s/$1/$wrong_ip[$w]/;

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