RE: [Perl-unix-users] removing files of a given size from a given location

[Richard A. Evans]

Here's a little program.  It doesn't delete anything, but you could easily
determine how, I think.

Regards,

Rick Evans


  $dir = shift;
  opendir( DIR, $dir ) ||
    die "Cannot open directory $dir \n$!";
  while ( defined($file = readdir DIR) ) {
    next if not -T $file;
    print "The size of $file is ", (stat $file)[7] ,"\n";
  }
  closedir( DIR );

_______________________________________________
Perl-Unix-Users mailing list. To unsubscribe go to 
http://listserv.ActiveState.com/mailman/subscribe/perl-unix-users