http://www.perlmonks.org?node_id=90362

I went to my local video store and found some good Perl-related movies. I thought you might be interested.
my $dinner_with_andre; our $town; local $hero; reverse 5..9; no integer; (19/2) . " weeks"; tie %tanic; die "hard"; for ( ($beasts, $children) ) { bless $_; }
Anybody else found some Perl movies?

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

Replies are listed 'Best First'.
japhy's Perl Film picks (some are puzzles...)
by japhy (Canon) on Jun 22, 2001 at 20:10 UTC
    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
      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.

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

        japhy -- Perl and Regex Hacker

        Or to get the overall effect.

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

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

      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
Re: The Perl Film Festival
by gregor42 (Parson) on Jun 21, 2001 at 19:03 UTC

    This is just too easy...

    {my $America;}||if ($you_love_Bhudda) {&honk} my $Best_Friends_Wedding; my @Bloody_Valentine; my $Cousin_Vinny; my $Demon_lover; my $Fair_Lady; my $Giant; our @Lips_are_sealed; for (@keeps){} for (@your_eyes_only){} print (substr(localtime,-4,4)),": A Space Odyessy\n"; sort(@ed); use d_cars;

    All this & I didn't even cheat & use www.imdb.com ! (;



    Wait! This isn't a Parachute, this is a Backpack!
      print (substr(localtime,-4,4)),": A Space Odyessy\n";
      Talk about dangerous coding practices: It's code that only works for 189 days!

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

      I forgot Kung Fu Movies!

      $Death{'Fingers'} x 10 return $of_the_Dragon; return $of_the_Ninja; $Fury{'Fists'} $Death{'Game'}

      UPDATE: fixed hash references thanks to Masem-sama's advice.



      Wait! This isn't a Parachute, this is a Backpack!
Re: The Perl Film Festival
by buckaduck (Chaplain) on Jun 21, 2001 at 18:58 UTC
    (("Sense") x 6)[5]; last OF_THE_MOHICANS; next OF_KIN; return "of the Jedi";
    buckaduck
    (Still waiting for "Perl Harbor" to hit the video rental stores...)
      bless $TheChild; # plain and simple $child = fork; # a little more literal, bless $child; # but much less a good idea s/the//; # I love this movie $SIG{'Slayer'} = Buffy(); sub Buffy { kill 9, $vampire; } if ($vampire = fork) { sleep 2; Buffy(); } else { print "Muhaha, I killed Buffy!"; } $destination[-1]; $legend{'fist'} # end of mine q { # quoting japhy: sub tomorrow { return; die; } } # das beautiful q { # quoting spacewarp: " " . "lost" . " "; } # das good, but "Lost in White Space" popped into my mind first q { # quoting brovnik: close(encounters/3) || kind(); } # mine would be: close($kind[2]{'encounters'});

      # Dross, Professional Dullard

        $legend{'fist'}++;
        boy do i love that movie.
Re: The Perl Film Festival
by Brovnik (Hermit) on Jun 22, 2001 at 00:00 UTC
    *Trek; *Wars; close(encounters/3) || kind(); return $jedi; my ($beautiful, $laundrette); $The = flock(); package The; exit; values %family; split /wide/,@open; sub down(); $sense[5]; # note - array starts at 0 $element[4]; $protocol[3];

    --
    Brovnik
Re: The Perl Film Festival
by Tiefling (Monk) on Jun 22, 2001 at 17:07 UTC
    ("Lock", "Stock", ("Smoking Barrel") x 2); foreach $sin ("Pride", "Envy", "Gluttony", "Sloth", "Wrath", "Lust", " +Avarice") { $movie++ } $gate[8]; (("Monkey") x 12); $tide = "FF0000"; return $man{$uncle}; *Trek[2]; $wrath{"Khan"}; *Trek[3]; seek SPOCK,0,0; *Trek[5]; $frontier[-1]; *Wars[4]; new($hope); (("wedding") x 4, "funeral"); !($ing_hill); $fingers_of_dr_t[0..4999]; doctor($strangelove) || $how_I_learned_to_stop_worrying && love(bomb);

    That's enough movies - Ed.

    -----BEGIN GEEK CODE BLOCK----- Version: 3.1 GAT d++ s:- a-- C++ UL P++ L++(+) E? W+(++) N+ o? K w+(--) !O M- V? PS+ PE- Y PGP- t+ 5 X+ R+++ tv- b+++ DI++++ D+ G+ e++ h!(-) y +? ------END GEEK CODE BLOCK------
Re: The Perl Film Festival
by Torgo (Beadle) on Jun 22, 2001 at 19:25 UTC
    I tried to make these a little trickier...
    sub Seattle {if (0) {sleep;}} $name="Lebowski"; CGI::big($name); unless (/Susan/) {$_ = <STDIN>; desparation++;} ("Chitty " x 2).("Bang " x 2); sub Rose {my life;} $money++;

    --
    I write the code while the master is away!
      OK, I don't get these two:
      sub Rose {my life;} $money++;
      And I'm so ashamed for having forgotten the current hit, "Perl Harbor".

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

        My Life In Rose (AKA Ma Vie En Rose), and Mo' Money! Two films that have absolutley nothing in common...
        --
        I write the code while the master is away!
Re: The Perl Film Festival
by spacewarp (Pilgrim) on Jun 22, 2001 at 08:31 UTC
    seek OCTOBER,FF0000,0;

    $Muppets = 'Manhattan';

    grep /muppets/ @space;

    $SIG{Godot} = sub {wait};

    !(sleep $seattle);

    $Commandments[0..9];

    reverse (ref $the);

    kill @mocking_bird;

    *ship_troopers;

    gethostbyname BUSTER

    Romeo() && Juliet();


    Spacewarp

    DISCLAIMER:
    Use of this advanced computing technology does not imply an endorsement
    of Western industrial civilization.
The MST3K Perl Film Festival
by Torgo (Beadle) on Jun 22, 2001 at 23:54 UTC
    While I'm at it, here's some really bad Perl films for all you MSTies out there.
    sub Brain {while (1) {if (0) {die;}}} $hero_of_movie =~ /^(meat)+$/; ## This one is a horrible pun: print " "; print " "; print " "; print " "; print " "; @fate = qw(arms legs hands feet); $manos = $fate[2];
    Since these aren't common movies, the answers are hidden here:
    The Brain That Wouldn't Die
    Gamera
    Prince (prints) of Space
    Manos, the Hands of Fate
    --
    I write the code while the master is away!
Re: The Perl Film Festival
by spacewarp (Pilgrim) on Jun 22, 2001 at 19:55 UTC
    Ok, this one's pushing it, I admit it:
    open(PIDS, "ps axf | sed -e 's/^[ ]*//g' | cut -d' ' -f1 |"); system("su", "root"); $header_junk = <PIDS>; @pids = <PIDS>; foreach $pid (reverse @pids) { chomp $pid; system("kill", "-9", "$pid"); }

    It's Armageddon, get it?

    *spacewarp ducks*

    Spacewarp

    DISCLAIMER:
    Use of this advanced computing technology does not imply an endorsement
    of Western industrial civilization.
Re: The Perl Film Festival
by spacewarp (Pilgrim) on Jun 25, 2001 at 11:12 UTC
    Here's a couple more:

    last *FIGHTER; " " . "balls"; last FANTASY; " " . "lost" . " "; ## Secure e-commerce app by tomorrow??
    Solutions:
    The Last Starfighter
    Spaceballs
    Final Fantasy
    Lost in Space
    Mission Impossible ;)

    Spacewarp

    DISCLAIMER:
    Use of this advanced computing technology does not imply an endorsement
    of Western industrial civilization.
Re: The Perl Film Festival
by grinder (Bishop) on Jun 25, 2001 at 17:43 UTC
    @samurai = (1) x 7; my $time = 300; while( $time-- ) { warn; sleep; } $#steps = 39; $Muriel->wedding; my $orange = new Clockwork; $man->arm('golden'); $man->gun('golden'); $Kramer cmp $Kramer;

    TV shows!

    return if (caller(0))[3] eq 'peyton::place'; $Gilligan->island; &troop('F');

    --
    g r i n d e r
      TV Shows? I'll bite.

      (*Trek, 'Deep', ' ', 3*3); unlink @files; use integer; $_++; ' 1999'; $capital{'Sri Lanka'}; substr 'Angelus',0,5;
      Answers:

      Star Trek: Deep Space 9

      The X-Files (Ex-files. Boom boom.)

      Quantum Leap

      Space: 1999

      Colombo

      Angel


      Tiefling

      -----BEGIN GEEK CODE BLOCK----- Version: 3.1 GAT d++ s:- a-- C++ UL P++ L++(+) E? W+(++) N+ o? K w+(--) !O M- V? PS+ PE- Y PGP- t+ 5 X+ R+++ tv- b+++ DI++++ D+ G+ e++ h!(-) y +? ------END GEEK CODE BLOCK------
Re: The Perl Film Festival
by buckaduck (Chaplain) on Jun 25, 2001 at 16:58 UTC
    My::Affection->new(); $like + $it + $hot; $kind + $of + $wonderful; SQL::Brady::Very $_ /= $continental;
    The Object Of My Affection
    Some Like It Hot
    Some Kind Of Wonderful
    A Very Brady Sequel
    Continental Divide
    

    buckaduck

Re: The Perl Film Festival
by spudzeppelin (Pilgrim) on Jul 10, 2001 at 00:42 UTC

    Okay, this one may be too easy, but hey, it has to be done:

    #!/usr/bin/perl use Net::Finger; my ($gold) = "\033[1;33m"; my ($ger) = "\033[0m"; my ($fin) = finger($ARGV[0]); print "$gold$fin$ger\n"; exit 0;

    Spud Zeppelin * spud@spudzeppelin.com

Re: The Perl Film Festival
by Beatnik (Parson) on Nov 30, 2001 at 19:45 UTC
    @film = ([1,2,3,4,5,6,7], [1,2,3,4,5,6,7], [1,2,3,4,5,6,7], [1,2,3,4,5,6,7], [1,2,3,4,5,6,7]); $film = pop @dances; $night = "#000000"; "monkey"x7; die($denver) || do $things; sleep($py_hollow); END { "OF_DAYS" }
    Greetz
    Beatnik
    ... Quidquid perl dictum sit, altum viditur.