Changeset 18735

Timestamp:

Jul 25, 2008, 11:19:19 AM (18 years ago)

Author:

bills

Message:

allow blank lines in the input. Fix usage message.

File:

• trunk/pstamp/test/detect_query_create (modified) (3 diffs)

trunk/pstamp/test/detect_query_create

@@ -26 +26 @@
 
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
-pod2usage( -msg => "Required options: --input --output",
+pod2usage( -msg => "Required options: --input --output --query_id",
            -exitval => 3) unless defined $input and defined $output;
 
@@ -223 +223 @@
         while (my $line = <$in>) {
             $line_num++;
+            chomp $line;
             next if ($line =~ /^#/);    # skip comment lines
-            chomp $line;
+            next if !$line;             # skip blank lines
             my @vals = split /$sep/, $line;
             my $nvals = @vals;
@@ -241 +242 @@
     my $ncols = @$colData;
     while (my $line = <$in>) {
+        chomp $line;
         $line_num++;
         next if ($line =~ /^#/);    # skip comment lines
-        chomp $line;
+        next if !$line;             # skip blank lines
 
         my @vals = split /$sep/, $line;