If Shakespeare had written in Perl

#! perl

use strict;

# ... King Richard's logic would have been completely different:

sub horse();

for (my @horse) { 
  &horse(); 
  &horse();
  my $kingdom;
}


# If only someone had only told Julius Caesar...
my $ides = "";
open(MARCH) || die;
warn $ides, eof(MARCH);
[download]

... and we might be referring to him as William ShakesPerl !

Comment on If Shakespeare had written in Perl Download Code

Replies are listed 'Best First'.
Re: If Shakespeare had written in Perl by thezip (Vicar) on Mar 09, 2007 at 14:54 UTC
I missed an optimisation! `sub horse(); my @horse = (1,2); for (@horse) { &horse(); my $kingdom; }` [download]	[reply] [d/l]
Re: If Shakespeare had written in Perl by thezip (Vicar) on Mar 09, 2007 at 16:32 UTC
`# ... 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]	[reply] [d/l]
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]
Re: If Shakespeare had written in Perl by Anonymous Monk on Mar 09, 2007 at 12:12 UTC
If Shakespeare had written in Perl... ... he would be much less non-popular :-)	[reply]