Kir Kolyshkin (k001) wrote,
Kir Kolyshkin
k001

Category:

perl question

Наверняка меня читают люди, что-то понимающие в Perl. Поможите кто чем сможет.

Имеем, к примеру, такой код:
my $line = 'XoXo';
print "OK\n" if ($line =~ /xoxo/i);

Внимание, вопрос! Как поместить /xoxo/i в некую переменную (скажем, $regex), чтобы я потом смог писать что-то вроде if ($line ~= $regex)? То есть всё работает, пока я не хочу добавить в конце всяческих флажков, типа i.

Или я тупой?
Tags: programming
Subscribe

  • I'm back!

    Здрасьте вам! Вы не ждали, а мы припёрлись. С прискорбием сообщаю вам, что после долгой и продолжительной болезни Google+ (он же Google Plus, он же…

  • Мир открыт для Вас?

    Такой лозунг я придумал для интернет-провайдера "Севертелеком" в г. Ухта, где я трудился техническим директором. Действительно, Интернет делает мир…

  • лето

    Первая Июнь, однако. Ох. Не за горами осень, а там и зима, снег, холодно, лыжи, баня, водка, гармонь и лосось © Любе. Интересно, удастся ли…

  • Post a new comment

    Error

    Anonymous comments are disabled in this journal

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

  • 35 comments

  • I'm back!

    Здрасьте вам! Вы не ждали, а мы припёрлись. С прискорбием сообщаю вам, что после долгой и продолжительной болезни Google+ (он же Google Plus, он же…

  • Мир открыт для Вас?

    Такой лозунг я придумал для интернет-провайдера "Севертелеком" в г. Ухта, где я трудился техническим директором. Действительно, Интернет делает мир…

  • лето

    Первая Июнь, однако. Ох. Не за горами осень, а там и зима, снег, холодно, лыжи, баня, водка, гармонь и лосось © Любе. Интересно, удастся ли…