Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

explorer's scratchpad

by explorer (Chaplain)
on Aug 17, 2004 at 16:08 UTC ( #383719=scratchpad: print w/ replies, xml ) Need Help??

Perl is not Dying...

Perl is Evolving to a new life form.

Look the next code, that it run perfectly today:
#!/usr/bin/perl # # Perl CubeBorg Core Code (PCCC) # use PHP; use Java; use JavaScript; use Inline Python => 'DATA'; # Mr. DATA is working for us use Inline Ruby => 'DATA'; use Inline Basic => 'DATA'; use Inline C => 'DATA'; ### motto; ### PHP::eval(<<EVAL); $search = array ('@my@i','@me@i'); $replace = array ('our','us'); $new_brain = preg_replace($search, $replace, $old_brain); EVAL ### my $runtime = new JavaScript::Runtime; my $context = $runtime->create_context(); $context->eval(q! function starcubeborg() { write("The CubeBorg is running!<BR>"); } !); ### my $java = new Java; my $frame = $java->create_object("java.awt.Frame","Perl CubeBorg"); $frame->setSize(400000,400000,400000); $frame->show(); my $weapon = $java->create_object("java.awt.Button","Push Me :)"); $java->do_event($button,"addActionListener",\&event_handler); sub event_handler { my($object,$event) = @_; if ($object->same($weapon)) { print "You pushed my button!!\nYou are dead!!!"; } } ### Technologies ### __DATA__ __Python__ def surrendered(x): print "You are surrendered!!!" return x def kidnap(x): print "I take you!!!" return x __Ruby__ def add_distinctiveness(a) our_distinctiveness + a end __Basic__ 010 DEF DEFEAT(S) = DEFEATS+1 020 DEF SUCCESSES(S)= SUCCESSES+1 __C__ void motto() { printf( "We are the PerlBorg. Lower your shields and surrender your ships. +" "We will add your biological and technological distinctiveness to o +ur own. " "Your culture will adapt to service us. Resistance is futile.\n"); }
More info for Cube Borg
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (3)
As of 2014-11-29 06:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (203 votes), past polls