Re: If Shakespeare had written in Perl

# ... 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...
[download]

Comment on Re: If Shakespeare had written in Perl Download Code

Replies are listed 'Best First'.
Re^2: If Shakespeare had written in Perl by anonymized user 468275 (Curate) on Apr 26, 2011 at 15:10 UTC
It could sort of scan more, though, e.g. `for ( grep { $_ = localtime()[4] } (11,0,1) ) { our $discontent = York::Son -> glorious( [7,8,9] ); }` [download] One world, one people	[reply] [d/l]