如何將eval輸出重定向到文件？

Question

我正在寫一個Perl腳本，用於讀取包含部分Perl代碼和非Perl數據的文件。

處理完文件後，我將它們寫入臨時文件（生成的腳本），然後使用eval命令執行。我不想單獨運行生成的腳本，因爲我需要使用主腳本中的變量插入到生成的腳本中。

我需要將eval命令的輸出重定向到一個文件。有關如何實現這一目標的任何建議？

步驟腳本：

1. READ_FILE

2. 進程文件

3. 回寫與臨時文件名

4. 讀取臨時文件（my $file_name = read_file('temp_file_name')）

5. 的eval（eval $file_name）

欣賞的幫助。

Answer 1

這可以在沒有任何額外的模塊

use strict; 
use warnings; 

open my $fh, '>', 'foo.txt' or die $!; 
my $old_fh = select $fh; 

eval q{ print "Hello World!\n"; }; 

select $old_fh; 

Answer 2

您可以使用capture_stdout從Capture::Tiny獲取您的eval的輸出。

use strict; 
use warnings; 
use Capture::Tiny 'capture_stdout'; 

my $stdout = capture_stdout { 
    eval q{print "Hello World!\n";}; 
}; 

open my $fh, '>', 'foo.txt' or die $!; 
print $fh $stdout;