# ... and who could forget King Richard's disturbing one-liner: #! perl use strict; use Data::Dumper; my $hemi = 'S'; our $discontent = { months => [ qw/ J F M A M J J A S O N D / ] }; my @now = @{$discontent->{months}}[$hemi eq 'N' ? (11,0,1) : (5,6,7)]; print Dumper(\@now); # Obviously, Shakespearean English is much more concise than Perl...
In reply to Re: If Shakespeare had written in Perl
by thezip
in thread If Shakespeare had written in Perl
by thezip
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |