Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
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";}


Replies are listed 'Best First'.
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?
[Discipulus]: choroba i'm considering to add some connection checking to your CB tk program: something like..
[Discipulus]: i got also a parser error, but once
[KurtZ]: Code Tags
[KurtZ]: ?
[choroba]: <code>...</code>
[choroba]: Discipulus: Yes, all get calls should be wrapped in a Try::Tiny
[choroba]: you can just create a ticket :)
[Discipulus]: Ah! is i'll have some fre4e time i'll try try::tiny

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (9)
As of 2017-07-24 09:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I came, I saw, I ...
























    Results (349 votes). Check out past polls.