|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Maksimka Stepanov 2:5009/11 09 Sep 2000 18:07:47 To : Michael B. Babakov Subject : опять регэскепы -------------------------------------------------------------------------------- _/ю/_ 09 Sep 00 11:56, Michael B. Babakov -=> All MB> $t = "abcxeqefg"; MB> if($t =~ m/xeq/) { MB> print "Yes\n"; MB> } MB> MB> $t = "cnhfxeq"; # cnhf - тот самый набор при котором следуещее условие MB> не MB> # должно сработать. MB> if($t =~ m/xeq/) { MB> print "Yes\n"; MB> } $t = "abcdxeqefg"; if ($t =~ /(?<!cnhf)zeq/i ) { print "Yes\n" } ^^^^ - эт тo пocлe чeгo нe cpaбaтывaeт. Peзyльтaт : Yes пo-мoeмy тaк :) ... Если тебя ударили по одной щеке - подставь другую и думай, чего говоришь! --- *[Team KoЯn]* *[Team Primus]* *[Team Rage Against The Machine]* * Origin: Smash BBS time 22:00 - morning (0752) 48-08-19 (2:5009/11) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/1133939ba7d6c.html, оценка из 5, голосов 10
|