Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

System admin the obfuscated way.

by vladb (Vicar)
on May 14, 2002 at 18:28 UTC ( #166530=obfuscated: print w/ replies, xml ) Need Help??

I use this one to clean my home directory of useless '.save*' files. This script goes through all occurances of such files in current and sub-directories. It then looks at whether the owner process (to which this temporary file belonged) exists and removes the temporary file no owner processes are found to be running at the moment.

I believe this is my second attempt at writing abfuscation ;-).
$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+) +-.*)$/;$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"} +:{print"- $1"}&&`rm $1`;print"\n";}


Comment on System admin the obfuscated way.
Download Code
Re: System admin the obfuscated way.
by belden (Friar) on May 27, 2002 at 23:59 UTC
    Spoiler here :)

    blyman
    setenv EXINIT 'set noai ts=2'

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (7)
As of 2014-12-25 06:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (159 votes), past polls