perl - Perl で既に開いているファイルのコンソール I/O をリダイレクトする方法

Question

コマンドを実行するために、PERL で system() 関数を使用しています。この関数のコンソール I/O を、PERL スクリプトで既に開いているファイルにリダイレクトしたいと考えています (以下を参照)。リダイレクトのために PERL で同じファイルを開くことはできないことはわかっていますが、PERL スクリプト内の単一のファイル (PERL スクリプトの印刷ステートメントとリダイレクトされた出力の両方) にすべてを出力する必要があります。誰でもこれについて私を助けてもらえますか?

use strict;
use warnings;

open FPTR, ">Test.txt";
print FPTR "Executing Command1...\n";
system("Time >>Test.txt");

print FPTR "Executing Command2...\n";
system("Date >>Test.txt");

close FPTR;

ありがとう、

アナンド

Answer 1

バックティック演算子を使用してコマンドを実行し、その出力を変数に保存してみてください。 my $var = `time`;

出力が保存されるとすぐに、それをファイルに追加するだけです。

お役に立てば幸いです。