1

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

以下に示すコードがあります。これは、2番目の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";

}
4

1 に答える 1

2
  1. すべての最初は常に3つの引数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: $!";  
}
于 2012-05-07T06:19:44.793 に答える