<div class="gmail_quote">16 февраля 2010 г. 19:20 пользователь Андрей П. Ковбович <span dir="ltr"><<a href="mailto:akovbovich@gmail.com">akovbovich@gmail.com</a>></span> написал:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Linux (perl 5.10.1)<br>
$ perl -we 'my @a = \(1, 2, 3); ${$a[0]} = 4; print map { $$_ } @a'<br>
Modification of a read-only value attempted at -e line 1.<br>
<br>
Windows7 (active perl 5.10.1)<br>
> perl -we "my @a = \(1, 2, 3); ${$a[0]} = 4; print map { $$_ } @a"<br>
423<br>
<br>
В чем прикол? Perl по идее должен был одинаковый результат выдать, а<br>
получается, что под виндой можно сказать 1 = 2 и перл поверит.<br></blockquote><div><br><br>Ubuntu 9.10:<br><br><span style="font-family: courier new,monospace;">$ perl -e "print $];"</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">5.010000</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">$ perl -we 'use strict; my @a = \(1, 2, 3); ${$a[0]} = 4; print map { $$_ } @a;'</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">423</span><br></div></div><br>Debian Squeeze:<br><br><span style="font-family: courier new,monospace;">$ perl -e "print $];"</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">5.010001</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">$ perl -we 'use strict; my @a = \(1, 2, 3); ${$a[0]} = map { $$_ } @a;'</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">423</span><br><br>Дистрибутив?<br><br>-- <br>Andrei Protasovitski<br>< andrei[dot]protasovitski[at]gmail[dot]com ><br>Diemen, Netherlands<br>