Объясните пожалуйста

[monah]

Доброго времни суток.

Новичек, осваиваю регулярные выражения.
Не понимаю почему в случае глабального поиска операторы if и while работаю не одинаково.
Элементарный пример:

$s = "Privet, privet privet hi wow privet";
if ($s =~ /(privet)/gi) {
    print $1, "\\n";
}

Найдет всего один привет, если тупо if заменить на while Мартышка не потеряет ни одного привета.
ПОЧЕМУ?
Зарание благодарен.

[vladsu]

Если просто перевести Агло-Перл на Русский, для "иф":

"Напечатать "privet"(в смысле, только раз), если он присутствует в строке(кол-во не важно)"

а для "вайл":

"Печатать "privet", пока он поподается в строке(т.е. сколько раз поподается столько и печатать)"

[monah]

Таким образом, если я нахожу все url, например так:

/(\\baction|\\bhref)(.+?)"(.+?)"/

в документе и скидываю все тем же print  

print (HANDLER $3, "\\n");

в выходной файл, единственный способ зацепить 2 или более (к примеру) url в одной строке - использование while.
Так?

[monah]

Извините, в конце регулярного выражения конечно   /../gi
Честно не понял про print.
Он же глупый: увидел - напечатал.
Или принт понимается этими операторами  неодинаково?

[monah]

Можно ли подставлять в regex переменную, содержащую имя искомого файла?

[Chs]

Можно.

[monah]

Спасибо, работает :-)

Задача: найти образец в любой строке кроме закоментированной написал так:

  /^[^#]((\\w|\\W)*?)($pattern)/

если $pattern стоит в самом начале строки, он не находится как сделать так что бы находился и он?

[monah]

Хотелось бы узать вот еще что:

применяю функцию find из File::Find

find(\\&wanted, @dir);

она вызывает указанную  функцию для каждого элемента в dir, как вырубить два первых: " . " и " .. " ?

[Xander]

что-то вроде
continue if (/^\\.+$/);

[Phoinix]

или просто удалить 2 первых значения...

splice (@dir, 0, 2);

[Xander]

интересно, что быстрее

[Phoinix]

Xander
Мне кажется быстрее считывать директорию без певрых двух значений... :-)

[monah]

Спасибо, первые 2 элемента вырубил в начале options тупо:
if (($_ ne ".") and ($_ ne ".."))

Единственное что так это как научить regex
/^[^#]((\\w|\\W)*?)$pattern/

 видеть $pattern  в самом начале строки, правда это не нужно, файлы проверяются на наличие ссылок в них на имена файлов своих соседей и этим выражением, но так для развитьия...

[vladsu]

Спасибо, первые 2 элемента вырубил в начале options тупо:
if (($_ ne ".") and ($_ ne ".."))

я бы это сделал так:

Код: [Выделить]


next if /^\\.?\\.$/;


[monah]

Стоит ли по воробью бить из пушки?

такой меня сегодня вопрос озадачил (по молодости то):
вызываю скрипт из скрипта в надежде что он унаследует переменные родителя

$output = `./test.pl`;

в родителе есть $ARGV[0], так при выполнении test.pl ругается мол переменная не инициализирована.
И вообще, где обещенный интерпретатор командной строки?