Changeset 5223

Timestamp:

Oct 3, 2005, 3:52:07 PM (21 years ago)

Author:

desonia

Message:

added support for output directory specification.

File:

• trunk/psLib/psParseErrorCodes (modified) (3 diffs)

trunk/psLib/psParseErrorCodes

@@ -8 +8 @@
 
 my $data = "psErrorCodes.dat";
+my $outdir = ".";
 
 # Assign variables based on the presence of command line options to the script
 GetOptions(
     "data=s"  => \$data,
+    "outdir=s" => \$outdir,
     "verbose" => \$verbose,
     "help"    => \$help
@@ -51 +53 @@
 
 foreach (@ARGV) {
-    my $output = $_;
-    my $filename = $output.".in";
+    my $filename = $_.".in";
+    m/\/?([\w\.]+)$/;
+    my $output = "$outdir/$1";
 
     die "Failed to open input file '$filename'"
@@ -59 +62 @@
       if !open( OUTFILE, ">", $output );
 
-    print "\nOutput File:\n" if $verbose;
+    print "\nOutput File: $output\n" if $verbose;
     while (<INFILE>) {
         if (/\${ErrorCode}/ || /\${ErrorDescription}/ || /\${n}/) {