Perl：ファイル名を動的に開く方法を教えてください

Question

名前を文字列としてPerlのopen（）関数に渡す必要があるファイルを開きたいのですがどうすれば実現できますか？

私はすべてのファースト・は常にthree argument openを使用

use strict; 
use warnings; 

my $globalpath = "/lhome/tirumala2/cvadlapu_view2/3rdparty/embedded/bsa_examples/linux/"; 
my $line; 
open (TEXT_FILE, "/lhome/tirumala2/DDT_expect_module/test_strings.txt"); 

while ($line = <TEXT_FILE>) 
{ 
    print "$line"; 
    open (APP_FILE, "/lhome/tirumala2/cvadlapu_view2/3rdparty/embedded/bsa_examples/linux/$line/source/$line.c") or die "Cant open application file"; 

} 

Answer 1

1. 二open文でいくつかのエラーを示しており、以下のように次のコードを持っています。
2. 表示されているコードに変数$globalpathが使用されていません。
3. newline characterと一緒にいくつかのデータを$line変数に含めることができます。それで最初にチャームしてみて、それがうまくいくはずです。

ような何か試してみてください：

while ($line = <TEXT_FILE>) { 
chomp $line; # need to chomp the $line 
print "$line";  
open (my $app_file, "<" , "/lhome/tirumala2/cvadlapu_view2/3rdparty/embedded/bsa_examples/linux/$line/source/$line.c") or die "Cant open application file: $!"; 
} 

を