Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Re: Insane Uses for Perl

by Mr. Muskrat (Canon)
on Sep 16, 2002 at 15:22 UTC ( #198265=note: print w/replies, xml ) Need Help??

in reply to Insane Uses for Perl

Okay, an insane use for Perl?

I'd definately have to say using it to control the guidance system of weapons of mass destruction.

Where's the code?

It's non-existant! Who's insane enough to do that?

But just for fun

#!/usr/bin/perl # Nukem v0.01 (untested) # Classified: Top Secret # # This code is to be considered alpha # Use of this code is strictly forbidden # except if given explict orders # by the President to Nukem. # use strict; # We're trying to blow up the enemy, not ourselves! use warnings; # So we need a bit of sanity here. # use the Weapons of Mass Destruction module use Weapons::MassDestruction; use Command::Protocols; use Time::HiRes qw(usleep); # Create a new command protocol object using the current protocols my $protocol = Command::Protocols->new(); # Create a new W::MD object that represents a nuclear missile passing +a # reference to the protocol object so that we don't need to # pass it everytime we need info from it my $nuke = Weapons::MassDestruction->new( -protocol => \$protocol, -nuclear => 1 ); # Arm it $nuke->arm(); # Aim it $nuke->aim(); # Fire! $nuke->fire(); while(1) { # Never assume that it will not stray if (!$nuke->oncourse()) { $nuke->course_correct(); } # listen for an override signal if ($protocol->override()) { # change the destination to the alternate location residing # somewhere that minimalizes death and destruction of innocents $nuke->alt_course()); } # Is 100 microseconds too long to sleep between course corrections? # If it misses the target, we will never know... # we'll be vaporized :( usleep(100); }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://198265]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (2)
As of 2020-10-24 08:19 GMT
Find Nodes?
    Voting Booth?
    My favourite web site is:

    Results (242 votes). Check out past polls.