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");
}

[download]
More info for Cube Borg

In reply to Re: Well, *Is* Perl Dying? by explorer
in thread Well, *Is* Perl Dying? by spiritway

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.