Программирование > Регулярные выражения
[Perl] обнаружить конструкцию: (не число и не текст)переменная(не число и не текст)
Green Kakadu:
отрицание в твоем случае [^\\w\\d]
my $str=\'Прокуратура\';
my $line = \'Прокуратура возбудила уголовное дело. Прокуратура прокуратураter и набор слов) была на высоте.\';
my $count = 0;
$count++ while $line=~/$str/ig;
print "Count=$count";
xmolex:
Народ помогите. Не стал заводить новую ветку, чтобы не захламлять.
Имеется строка $local_file=\' Хы, работает. Хы, работает. \';
Там где знак (_) значит могут быть пробелы, а могут и не быть.
Нужно найти строки: что-то
$temp = "
arto:
while ($a =~ m#(.+?)#g) { print "$1: $2\\n"; }
text: Хы, работает.
text: Хы, работает.
xmolex:
Хм. Может пояснишь почему при ".+?" заработало, а при ".*" работало не правильно?
.* - любой символ повторяется 0 или большее число раз.
.+? - любой символ 1 и более число раз.
Или я что-то не понимаю?
arto:
perldoc perlre
смотреть на тему greedy
Навигация
Перейти к полной версии