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


in reply to Well, *Is* Perl Dying?

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