поиск

[Yaroslav]

можно это уместить в 1 строчку или лучше так?

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

if ($text =~ /^pr/) {}
elsif  ($text =~ /^to/) {}
else {}

[Green Kakadu]

Yaroslav:
можно это уместить в 1 строчку или лучше так?

можно, пример:

my $str=\'yes\';
$str=~/^y/ ? print "yes" : ($str=~/^n/ ? print "no" : print "fuck");

только зачем? Понятнее она от этого не станет, удобства тоже особо не наблюдается, да и не намного укоротится

[Wyclef]

Yaroslav
$text =~ /^(pr|to)/ ? &$1() : &false();

[Yaroslav]

Wyclef
NeoNox
спасибо

[Green Kakadu]

Wyclef:
$text =~ /^(pr|to)/ ? &$1() : &false();

c use strict
такое не покатит, поэтому немного видоизменяем:

my %subs=(\'pr\'=>\\&pr,
      \'to\'=>\\&to);
$text =~ /^(pr|to)/ ? $subs{$1} : &false();

[Yaroslav]

Green Kakadu
так то еще лучше?

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


if ($login =~ /^(pr|to)/) {}
else {}

[Green Kakadu]

Yaroslav:
if ($login =~ /^(pr|to)/) {}

в первом посте ты показал, что для варианов pr и to у тебя происходят различные действия