Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

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
[Discipulus]: we too; using opsview alarms
[marto]: the key word: outsourcing ;)
[Corion]: marto: Yeah, feels like that ;) You could set up the cronjob that auto-creates tickets :-))
[marto]: the ticketing system does not accept calls via email, nor has it a working API. It's tied into Active Directory for authentication and the Solaris boxes aren't on that domain
[Corion]: The one thing I haven't figured out a solution to is how to get an edge-trigger instead of sending an email every 5 minutes if the usage is above 90%. I want one mail when it goes over 90% but no more emails as long as it stays between 90% and 95%.
[Corion]: marto: Clever! ;)
[Corion]: You can only reach me by pager
[Corion]: Maybe the solution would be to launch a cron job every minute that takes two measurements a minute apart and sends a mail if the usage is below on the first and above threshold on the last measurement
[marto]: that's essentially it :)
[marto]: I think the long term solution would be to have sysadmins that do their job, so I don't have to do everything :P

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (9)
As of 2017-01-24 10:10 GMT
Find Nodes?
    Voting Booth?
    Do you watch meteor showers?

    Results (203 votes). Check out past polls.