修改Perl腳本以針對給定目錄中具有指定擴展名的每個文件運行

Question

我需要修改Perl腳本x937.pl以在特定目錄內的擴展名爲.x937的所有文件上運行。目前，我使用一個獨立的腳本test.pl來調用我的主腳本，併爲每個該類型的文件運行它。但是，我需要將它們合併成一個腳本。

理想情況下，我可以在腳本中指定一個目錄路徑，並遍歷該目錄中的所有*.x937文件。

test.pl

#!/usr/bin/perl -w 
use strict; 
use Encode; 

my @files = <*.x937>; 

foreach my $file (@files) { 
    system('x937.pl', $file); 
} 

x937.pl

#!/usr/bin/perl -w 
use strict; 
use Encode; 
use warnings; 

my $tiff_flag = 0; 
my $count  = 0; 
my $file  = "output_$ARGV[0].txt"; 

unless (open OPUT, '>' . $file) { 
    die "Unable to create $file"; 
} 

open FILE, '<:raw', $ARGV[0] or die "Error opening '$ARGV[0]' $!"; 
binmode(FILE) or die 'Error setting binary mode on input file'; 

while (read(FILE, $_, 4)) { 
    my $rec_len = unpack("N", $_); 
    die "Bad record length: $rec_len" unless ($rec_len > 0); 
    read(FILE, $_, $rec_len); 
    if (substr($_, 0, 2) eq "\xF5\xF2") { 
     if ($tiff_flag) { 
      $count++; 
      open(TIFF, '>', 'output_' . $ARGV[0] . '_img' . sprintf("%04d", $count) . '.tiff') 
        or die "Can't create image file $!"; 
      binmode(TIFF) or die 'Error setting binary mode on image file'; 
      print TIFF substr($_, 117); 
      close TIFF; 
     } 
     $_ = substr($_, 0, 117); 
    } 
    print OPUT decode('cp1047', $_) . "\n"; 
} 
close FILE; 

close OPUT; 

Answer 1

我想我設法正確地產生這樣（在iPad上，坐在沙發上）...有可能是一些錯別字;)

用法：perl test_x397.pl <path>

test_x397.pl

#!/usr/bin/perl -w 
use strict; use warnings; 
use Encode; 

my ($path) = @ARGV; 
$path // die "No path specified"; 
(-e $path) or die "Path not found: $path"; 
(-d $path) or die "Not a directory: $path"; 

my @files = <$path/*.x937>; 

foreach my $file (@files) { 
    process($file); 
} 

sub process { 
    my ($fname) = @_; 

    my ($dir, $file) = $fname =~ m{^(.*)/(.+)$}; 

    my $tiff_flag = 0; 
    my $count = 0; 
    my $outfile = sprintf("%s/output_%s.txt", $dir, $file); 

    open (my $outfh, '>', $outfile) or die "Unable to create $outfile. $!"; 

    open (my $infh, '<:raw', $file) or die "Error opening '$file'. $!"; 


    my $buffer = undef; 

    while (read ($infh,$buffer,4)) { 
     my $rec_len = unpack("N", $buffer); 
     die "Bad record length: $rec_len" unless ($rec_len > 0); 
     read ($infh, $buffer, $rec_len); 

     if (substr($buffer, 0, 2) eq "\xF5\xF2") { 
      if ($tiff_flag) { 
       $count++; 
       my $tiff_filename = sprintf('%s/output_%s_img%04d.tiff', $dir, $file, $count); 
       open (my $tiffh, '>', $tiff_filename) or die "Can't create image file $!"; 
       binmode($tiffh) or die 'Error setting binary mode on image file'; 
       print $tiffh substr($buffer, 117); 
       close $tiffh; 
      } 
      $buffer = substr($buffer, 0, 117); 
     } 
     print $outfh decode ('cp1047', $buffer) . "\n"; 
    } 
    close $infh; 
    close $outfh; 
} 

有幾件事情需要注意：

1. 始終使用的開放
2. 三個參數版本使用標文件句柄可以更容易地圍繞通過它（不在這個例子中是必要的但是很好的做法）
3. 不要修改$ _。它可能會導致更大的程序中的令人討厭的驚喜
4. 您已經使用sprintf來構建您的tiff文件名的一部分，所以爲什麼不把它用於整個事情。