Не понятно...

Perl Programmer 26.03.2004 - 02:41 | Вот такой скрипт: ------------------------------------------------------------ my $c = "1"; my @p; my $t; $t = ''; print "1: '$t'\n" unless ($t =~ //); push(@p, $1) while ($c =~ m/(.)/gs); $t = ''; print "2: '$t'\n" unless ($t =~ //); ------------------------------------------------------------ Второй print вызывается, а первый - нет. Почему????? В чем разница-то?
Kokoc 1 - 26.03.2004 - 10:18 | Из документации: If the PATTERN evaluates to the empty string, the last successfully matched regular expression is used instead. Поэтому использовать ~// некорректно. Если тебе надо просто проверить на пусто/непусто - используй length()
Perl Programmer 2 - 28.03.2004 - 07:06 | Greate thnx!!! :)))

>>