japhy's Perl Film picks (some are puzzles...)

[japhy]

in reply to The Perl Film Festival

I'll fan the flames. Some of these are awfully tricky, though.

pop @mohicans;

$flew[rand @flew] / $nest{cuckoo};

sub mummy { return }

scalar @monte_cristo;

my $la;

my $parts;

$engagement = Parse::RecDescent->new(...);

sub tomorrow { return; die; }

sub never { print +(caller(0))[3]; *never = sub {} }

$sense[5];

@couples = map [ pop @brides, pop @brothers ], 1..7;

$day - int($day);

$days - int($days);

pop @destination;

study $summers[-1]{activities}{you};

$is_postman and ring(), ring();

for (@people) { fork and sleep 5 } # <-- HERE

import random; def add (x, y): return random.random();

sleep 60; exit;

$#commandments = 9;

umask;

$gun[0];

gun;

close LAMBS;

use vars '@enemy'; $enemy[0];

@clues = ();

$Love::shakespeare;

sub { \my $ryan }

japhy -- Perl and Regex Hacker

[petdance]

Some of those are completely brilliant, but I really think that

pop @mohicans;

is more accurately

$mohicans[-1];

Also, I think that the data structure for

@couples = map [ pop @brides, pop @brothers ], 1..7;

should really be

%couples = map { (pop @brothers, pop @brides) }, 1..7;

Note the hash as having a "has-a" relationship, right?

xoxo,
Andy
--
I was dreaming when I wrote this, so sue me if I go too fast.

[japhy]

Technically, if all the mohicans died, it'd be $mohicans[0] as well, no? ;)

japhy -- Perl and Regex Hacker

[dga]

Or to get the overall effect.

$last = map { pop @mohicans } @mohicans;

Thus leaving no mohicans other than the one you have in $last.

[japhy]

Here are the titles, if you were curious...

Last of the Mohicans One Flew Over the Cuckoo's Nest The Mummy Returns The Count of Monte Cristo LA Confidential Private Parts Rules of Engagement Tomorrow Never Dies Never Say Never Again The Sixth Sense Seven Brides for Seven Brothers Remains of the Day End of Days Final Destination I Know What You Did Last Summer The Postman Always Rings Twice Awakenings And Now For Something Completely Different Gone in 60 Seconds The 10 Commandments The Mask Top Gun The Naked Gun Silence of the Lambs Public Enemy #1 Clueless Shakespeare in Love Saving Private Ryan



japhy -- Perl and Regex Hacker