|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Alexander A. Kaluzhny 2:5020/400 17 Dec 2001 15:38:23 To : All Subject : [q] Regexp to func -------------------------------------------------------------------------------- Hello All. У меня вопрос следующий: Можно ли организовать передачу регулярного выражения в качестве параметра функции. Hапример так, как это организовано в split(). Вообще, я попробова л следующий вариант: sub my_func { my $regexp = shift; .... if ($my_str =~ /$regexp/) { ..... } } Это все работает великолепно, если вызывать следующим образом: my_func('^dummy_value$'); Hо я бы хотел немного большего, а именно, например так: my_func(s/^dummy/foo/g); но так, чтобы при вызове не резался $_. Если кто может что-нибудь подсказать, буду весьма благодарен. Спасибо за внимание. -- Sincerely, Alexander Kaluzhny. --- ifmail v.2.15dev5 * Origin: NTUU "KPI" (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/12933c02a5b33.html, оценка из 5, голосов 10
|