Mavrikii
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору M1roTVorec это больше сюда Perl - Регулярные выражения / Regexpы Цитата: Может кто подскажет где ошибка. | вы пытаетесь работать построчно с одной строкой. можно сделать, к примеру, так Код: foreach $line (split /^/m, $string) { if ($line =~ m/(^target)/i) { $test1 = $'; #возвращаю строку после искомого текста $test1 =~ s/^\s+//; #убираю пустоты $test1 =~ s/\s+$//; #убираю пустоты if ($test1 =~ m/(^--default--)/i){ #значение default пропускаю # print "No", "\n" } else { print $test1, "\n"; # полученный результат } } } |
|