Next | Welcome to my ~/bin |
4 |

First, does everyone know about this?

@numbers = (1..4); for (@numbers) { $_ *= 2; } print "@numbers\n"; # prints2 4 6 8

How about this?

($a, $b, $c, $d) = (1..4); for ($a, $b, $c, $d) { $_ *= 2; } print "$a $b $c $d\n"; # prints2 4 6 8

How about this?

($a, $b, $c, $d) = qw(Why X-ray your zebra?); for ($a, $b, $c, $d) {} print "$a $b $c $d\n"; # printss/[aeiouy]/*/g;Wh* X-r** ***r z*br*?

How about this?

# IDIOM for ($variable) { s/.../.../; tr/.../.../; if (/.../) { chomp; } $q .= uc; }

Next | Menu | Copyright © 2005 M. J. Dominus |