My current email signature:
Someone asked me how to count to 10 in Perl: push@A,$_ for reverse q.e...q.n.;for(@A){$_=unpack(q|c|,$_);@a=split// +; shift@a;shift@a if $a[$[]eq$[;$_=join q||,@a};print $_,$/for reverse @ +A
Cheers,
Ovid
Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.
In reply to Re: Clever Perl Sigs
by Ovid
in thread Clever Perl Sigs
by insensate
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |