求大神幫忙簡(jiǎn)化簡(jiǎn)化俺的代碼

TrishaTie

貼代碼， 先行謝過~~~

我如果每次增加一個(gè)輸入文件，就需要加一個(gè)while, hash，希望大神幫忙支支招， 看能不能簡(jiǎn)化下代碼：

my($first, $second, $third, $forth, $outfile)=@ARGV;

open FIR, $first or die $!;
open SEC, $second or die $!;
open THD, $third or die $!;
open FORTH, $forth or die $!;
open OUT, ">$outfile" or die $!;

my %fir_hash;
my %sec_hash;
my %thr_hash;

($path=$outfile)=~s/(.+?)\.combine\.scp/$1/;

while(my $line=<FIR>)
{
        chomp($line);
        $line=~/(.+)\\(.+?).mfcc$/;
        $fir_hash{$2}=$line;
}
while(my $line=<SEC>)
{
        chomp($line);
        $line=~/(.+)\\(.+?).mfcc$/;
        $sec_hash{$2}=$line;
}
while(my $line=<THD>)
{
        chomp($line);
        $line=~/(.+)\\(.+?).mfcc$/;
        $thr_hash{$2}=$line;
}
while(my $line=<FORTH>)
{
        chomp($line);
        $line=~/(.+)\\(.+?).mfcc$/;
        print OUT "$fir_hash{$2} $sec_hash{$2} $thr_hash{$2} $line $path\\$2.mfcc\n";
}
close FIR;
close SEC;
close THD;
close FORTH;
close OUT;

pitonas

{:2_172:}簡(jiǎn)化下

1. my @hash;
   
2. my ($path) = $ARGV[-1] =~ /(.+?)\.combine\.scp/;
   
3. 
   
4. for my $i ( 0 .. $#ARGV - 2 ) {
   
5.     open FH, $ARGV[$i] or die $!;
   
6.     while (<FH>) {
   
7.         chomp;
   
8.         /\\(.+?).mfcc$/;
   
9.         $hash[$i]{$1} = $_;
   
10.     }
    
11.     close FH;
    
12. }
    
13. open OUT, '>', $ARGV[-1] or die $!;
    
14. open FH,  '<', $ARGV[-2] or die $!;
    
15. 
    
16. while (<FH>) {
    
17.     chomp;
    
18.     /\\(.+?).mfcc$/;
    
19.     print OUT "$hash[0]{$1} $hash[1]{$1} $hash[2]{$1} $_ $path\\$1.mfcc\n";
    
20. }
    
21. 
    
22. close FH;

復(fù)制代碼

回復(fù) 1# TrishaTie


   

jason680

回復(fù) 1# TrishaTie

#my($first, $second, $third, $forth, $outfile)=@ARGV;

change to

my $outfile = pop @ARGV;
open OUT ...;

foreach my $infile(@ARGV){
  open IN ...;
  while(<IN>){
    ...
  }
  close IN;
}
   

TrishaTie

謝謝 貓神！
回復(fù) 2# pitonas


   

TrishaTie

謝謝 貓神老師！受教了！回復(fù) 3# jason680