
japhy
Enthusiast
/ Moderator
Jan 28, 2000, 6:31 PM
Post #2 of 2
(4732 views)
|
<BLOCKQUOTE><font size="1" face="Arial,Helvetica,sans serif">code:</font><HR> # if the file is over a day old if (-M $filename > 1) { # create new filename, and remove any # /'s that crypt() might put in there ($newname = crypt(rand, rand time)) =~ tr!/!!d; rename $filename => $newname or die "can't rename $filename to $newname: $!"; } </pre><HR></BLOCKQUOTE> Just figure out a way to keep track of what that file is called.
|