Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

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?

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (3)
As of 2016-09-30 22:27 GMT
Find Nodes?
    Voting Booth?
    Extraterrestrials haven't visited the Earth yet because:

    Results (574 votes). Check out past polls.