http://qs321.pair.com?node_id=4559


in reply to Finding biggest files

I agree with the posters above on using find. But of course, you want to run this program every once in a while and you haven't figured out how to do shell programming so you combine the two and put in the program in perl!
#!/usr/bin/perl system(qq[find ~ -size +1024k -printf "%p: %s\\n" -ok rm \\;]) == 0 or die "System call failed: $?";
Ahh, Sweet perl.
---
Crulx
crulx@iaxs.net