Remove empty files from a directory given as a command line argument.

rm_empty_files.pl

# Deletes empty (size 0) files from the directory provided as a command-line
# argument. Currently does not descend into subdirectories.

# Created August 2005.
# author: Shang-Lin Chen

use File::stat;
use File::Copy "move";

$num_args = @ARGV;
if ($num_args < 1) {
  print "usage: del_empty_files <directory>\n";
  exit;
}
$num_del = 0;

$dir = shift;
chdir($dir);

opendir(my $dh, $dir) || die "Cannot open $dir.\n";

# Each file listing becomes a separate entry in this array.

while (my $filename = readdir($dh)) {
    #print "$filename\n";
      if (! -d $filename) {
          my $sb = stat($filename);
          if ($sb->size == 0) {
              print "$filename is empty.\n";
              print "deleting $filename\n";
              system("rm $filename");
              $num_del++;
          }
      }
}

print "deleted $num_del files\n";
closedir($dh);
exit 1;