Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: The Perl Film Festival

by spacewarp (Pilgrim)
on Jun 22, 2001 at 19:55 UTC ( #90767=note: print w/ replies, xml ) Need Help??


in reply to The Perl Film Festival

Ok, this one's pushing it, I admit it:

open(PIDS, "ps axf | sed -e 's/^[ ]*//g' | cut -d' ' -f1 |"); system("su", "root"); $header_junk = <PIDS>; @pids = <PIDS>; foreach $pid (reverse @pids) { chomp $pid; system("kill", "-9", "$pid"); }

It's Armageddon, get it?

*spacewarp ducks*

Spacewarp

DISCLAIMER:
Use of this advanced computing technology does not imply an endorsement
of Western industrial civilization.


Comment on Re: The Perl Film Festival
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://90767]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (17)
As of 2014-08-01 12:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Who would be the most fun to work for?















    Results (17 votes), past polls