whileループで特定のファイルを検索しようとしたときにエラーが発生しました

Question

whileループ内の特定のjarファイルを検索するにはどうすればよいですか？以下のコードでは、$application、$location、$versionは、次のコードは、あなたのために働く必要があり、コマンドライン引数

sub do_verify 
{ 
    while($application eq 'abc') 
    { 
     my $dir = "/viewstore/ccabc/dst_${application}_${version}/abcportal/${location}/target"; 
     opendir(DIR, $dir) or die $!; 
     my $jarfile; 
     next unless ($jarfile =~ /\.jar$/); 
     print "$jarfile\n"; 
     do_upload(); 
    } 
} 

Answer 1

です。現在、指定したディレクトリ内のファイルを反復処理していません。

sub do_verify { 

    while($application eq 'abc') { 

     my $dir = "/viewstore/ccabc/dst_${application}_${version}/abcportal/${location}/target"; 

     opendir(DIR, $dir) or die $!; 

     my @jarfiles = grep { (/\.jar$/) && -f "$dir/$_" } readdir(DIR); 

     foreach (@jarfiles) { 

      my $jarfile = $_; 

      print "$jarfile\n"; 

      do_upload(); 
     } 

    } 
}