ファイルを開いてデータを書き込むperlスクリプトがあります。一部のマシンでは、このファイルに読み取り専用のアクセス許可が設定されている場合があります。このような場合、現時点ではスクリプトはファイルを開くことができなかったため停止します。私の要件は、そのような場合、スクリプトを続行して、コンテンツをファイルに書き込む代わりに、STDOUT に入れることです。warndieの代わりFILE1にSTDOUT_あらゆる場所print FILE1 <>にif\else条件を設定します。設定された値に応じて、printステートメントがSTDOUTに出力するか、ファイルに書き込むようにエイリアスFILE1する必要がありますSTDOUTFILE1ファイルハンドル。perlを使用することは可能ですか？
$file = "testfile.txt";
open( FILE1, ">> $file" ) or die "Can not read file $file: $! \n";
print FILE1 "Line1 \n";
print FILE1 "Line2 \n";
print FILE1 "Line3 \n";
print FILE1 "Line4 \n";
close FILE1