>I am trying to writ a script that would search a system for certain file
>sizes and if so e-mail me.
check out File::Find on cpan. You can do something like...
use File::Find;
sub checkSize {
push @files, $_ if (-s == $specialSize);
}
find (\&checkSize, @dirs);
if (defined @files
I am trying to writ a script that would search a system for certain file
sizes and if so e-mail me.
Something like this. Thanks [EMAIL PROTECTED]
#!/usr/bin/perl -w
if {
qx(find \ -size +1c -print > /root/big_files | e-mail me)
else
