Differences

This shows you the differences between two versions of the page.

--- tutorials:perl:find_empty_file.2.pl [2017/04/12 14:36] – removed chkuo
+++ tutorials:perl:find_empty_file.2.pl [2017/04/12 14:45] (current) – chkuo
@@ Line 1: / Line 1: @@
+<file perl find_empty_file.2.pl>
+#!/usr/bin/perl -w
+my $script_name = 'find_empty_file.2.pl';
+# Chih-Horng Kuo <chkuo@lifedev.org>
+# find empty files in the "--in_dir"
+# use the "--regex" option to set search regex (e.g., --regex="*.txt")
+# set "--opt_rm=1" to remove those files
+# v2 2010/07/12
+#   style change
+# v1 2007/05/25
+use strict;
+use warnings;
+use Getopt::Long;
+my $in_dir;
+my $regex;
+my $opt_rm;
+my $verbose;
+my $debug;
+GetOptions(
+    "in_dir=s"  => \$in_dir,
+    "regex=s"   => \$regex,
+    "opt_rm=i"  => \$opt_rm,
+    "verbose=i" => \$verbose,
+    "debug=i"   => \$debug,
+);
+my $count_in        = 0;
+my $count_non_empty = 0;
+my $count_empty     = 0;
+# get list of in_files
+chdir $in_dir or die "cannot chdir to $in_dir: $!";
+my @in_files = glob "$regex";
+foreach my $in_file (@in_files) {
+    $count_in++;
+    if ( -z $in_file ) {
+        $count_empty++;
+        print "$in_dir$in_file\n" if ($verbose);
+        unlink $in_file if ($opt_rm);
+    }
+    else {
+        $count_non_empty++;
+    }
+}
+print "count_in = $count_in\n";
+print "count_non_empty = $count_non_empty\n";
+print "count_empty = $count_empty\n";
+exit(0);
+</file>