perlでの別ファイルへの出力について

質問

perlでファイルAから読み出した値を別ファイルBに出力させたいです。

イメージとしては

--------------------------------
open(FILE,ファイルA);
while(<FILE>){
my $line = "$_";
system("ls -l $line"); #←ここの結果を1行ずつファイルBに出力したい
}
close(FILE)
---------------------------------

上記の場合どのように記述すれば良いのでしょうか？
bashでは簡単にかけるのですが、
業務上perlを使用する必要がある為こまっております…。

回答No.2

kumoz · ベストアンサー

system 関数では出力を受け取ることができないので、コマンドラインで書くときと同じようにするとファイルに保存できます。

open FILE, 'fileA' or die $!;
while (<FILE>) {
my $line = $_;
chomp $line;
system("ls -l $line >> fileB") == 0 or die "system failed:";
}
close FILE;

お礼

ありがとうございました( ´∀｀)

回答No.1

kmee

・open関数のパイプを使って、そのlsの出力を変数に取りこむ。
・バッククオートを使って、そのlsの出力を変数に取り込む
のいずれかを使えば、あとは普通に「文字列をファイルに出力するプログラム」になります。

お礼

ありがとうございます。