用於寫入和讀取的Perl文件處理程序

Question

我正在嘗試將cmd的輸出寫入文件，並在輸出中爲模式寫入grep，並將其推送到數組中（如果找到）。我現在面臨的問題在輸出寫入文件

下面的代碼沒有文件處理程序的使用，陣列工作正常，並打印輸出

my $output = `cmd to get output`; 
print "output is : $output\n"; 

但是，如果我把相同的代碼文件處理程序中，然後它甚至沒有打印的硬編碼字output is :

use warnings; 
use strict; 
use Data::Dumper; 

foreach my $cfg_file (@cfg_files){ 
#open the file handler for both read and write mode 
    open my $fh1, '+>', 'c:\TEMP\cfg.txt' or die $!; 
    while (<$fh1>) { 
    my $output = `cmd to get output using $cfg_file`; 
    print "output is : $output\n"; 
    print $fh1 $output; #write the output into file 

    if (/$pattern/) { #read the file for a specific pattern 
      print "$_"; 
     push(@matching_lines, $_);   
    } 
    } 
} 
print Dumper(\@matching_lines); 

的代碼是不是連拋警告.The輸出我得到的只是 $VAR1 = [];

Answer 1

while (<$fh1>)試圖從$fh1文件句柄中讀取。它根本沒有任何文件，循環體從不執行。順便提一句，+>首先破壞文件，所以文件確實是空的，因爲代碼到達while。

您可以刪除while循環，並針對您剛剛獲得的變量$output測試$pattern。

open my $fh1, '+>', 'c:\TEMP\cfg.txt' or die $!; 

my $output = `cmd to get output`; 
print "output is : $output\n"; 
print $fh1 $output; #write the output into file 

if ($output =~ /($pattern)/s) { # test and capture from output 
    print "$1\n"; 
    push (@matching_lines, $1);   
} 

由於輸出可能有多條線路我們添加/s的正則表達式。

其餘的代碼將是相同的。