[Moscow.pm] Fun 2

[Dmitry E. Oboukhov]

хотя тут я не прав 
perl -e "unless(&{'1'}) {print 'false'} else {print 'true'};"
Undefined subroutine &main::1 called at -e line 1.

видимо правда что-то именно с print связанное

On 16:48 Mon 16 Mar     , Dmitry E. Oboukhov wrote:
Tmppo> On 16:42 Mon 16 Mar     , Игорь Гердлер wrote:
>> Приношу извинения, что вклиниваюсь, но на форуме vingrad.ru попался тоже
>> интересный случай, только с print():

>> unless(&{print 'XXX'}) {print 'false'} else {print 'true'};

>> Мне не удалось узнать причину такого поведения функции print(). Буду
>> очень признателей, если кто-то меня просветит!
Tmppo> а при чем тут print?

Tmppo> perl -e '$a=print "xxx\n"; print "$a\n"'
Tmppo> xxx
Tmppo> 1

Tmppo> соответственно первый оператор (print 'XXX') вертает единицу и далее
Tmppo> пытается выполниться код
Tmppo> &1 которого нет, и в отстутствие strict получается false

Tmppo> --
Tmppo> ... mpd playing: Accept - Get Ready

Tmppo> . ''`.                               Dmitry E. Oboukhov
Tmppo> : :’  :   email: unera на debian.org jabber://UNera@uvw.ru
Tmppo> `. `~’              GPGKey: 1024D / F8E26537 2006-11-21
Tmppo> `- 1B23 D4F8 8EC0 D902 0555  E438 AB8C 00CF F8E2 6537
--
... mpd playing: Accept - Flash Rockin' Man

. ''`.                               Dmitry E. Oboukhov
: :’  :   email: unera на debian.org jabber://UNera@uvw.ru
`. `~’              GPGKey: 1024D / F8E26537 2006-11-21
  `- 1B23 D4F8 8EC0 D902 0555  E438 AB8C 00CF F8E2 6537
----------- следущая часть -----------
A non-text attachment was scrubbed...
Name: отсутствует
Type: application/pgp-signature
Size: 197 bytes
Desc: Digital signature
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20090316/59dddca5/attachment.bin>