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
|