Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
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 cooling their heels in the Monastery: (8)
As of 2014-07-28 06:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (192 votes), past polls