Huh?!? (closes mouth, wipes away drool, ponders...) Oh, yeah: constant folding (if that's the right term).
c:\@Work\Perl>perl -wMstrict -le "print $]; ;; my (@streams, @spaces); push ((0 ? @streams : @spaces), 'ZIT'); print qq{(@streams) (@spaces)}; push ((1 ? @streams : @spaces), 'ZOT'); print qq{(@streams) (@spaces)}; " 5.014004 () (ZIT) (ZOT) (ZIT) c:\@Work\Perl>perl -wMstrict -MO=Deparse,-p -le "print $]; ;; my (@streams, @spaces); push ((0 ? @streams : @spaces), 'ZIT'); print qq{(@streams) (@spaces)}; push ((1 ? @streams : @spaces), 'ZOT'); print qq{(@streams) (@spaces)}; " BEGIN { $^W = 1; } BEGIN { $/ = "\n"; $\ = "\n"; } use strict 'refs'; print($]); my(@streams, @spaces); push(@spaces, 'ZIT'); print("(@streams) (@spaces)"); push(@streams, 'ZOT'); print("(@streams) (@spaces)"); -e syntax OK
In reply to Re^6: Perl : Split/Regex
by AnomalousMonk
in thread Perl : Split/Regex
by sravs448
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |