Perl獲取網頁內容，然後將其寫入文本文件

Question

我想創建一個腳本，從網站獲取日誌文件（內容），然後將其輸入到文本文件，但我有錯誤，如果使用嚴格存在：

不能使用的字符串（「/ home/user中/下載/文」）爲標誌裁判而「嚴格裁判」在使用中./scriptname線92

而且通過移除使用嚴格的：我得到的另一個錯誤是：

文件名過長的./scriptname線91

我試過Perl: Read web text file and "open" it

但是，它沒有爲我工作。另外我是Perl的新手和Perl語法的混淆。

是否有任何建議或建議可用？

注意：該代碼確實存在與RoomOutProcessTT存在的整條線並將其顯示多次。

這是代碼。

my $FOutput = get "http://website/Logs/Log_number.ini"; 
my $FInput = "/home/User/Downloads/text"; 
open $FInput, '<', $FOutput or die "could not open $FInput: $!"; 
my $ctr; 
my @results; 
my @words = <$FInput>; 
@results = grep /RoomOutProcessTT/, @words; 
print "@results\n"; 
close $FInput; 

open $FInput, '<', $FOutput or die "could not open $FInput: $!"; 
while(<$FInput>){ 
    $ctr = grep /RoomOutProcessTT/, split ' ' , $_;    
    $ctr += $ctr; 
} 
print "RoomOutProcessTT Count: $ctr\n"; 
close $FInput; 

Answer 1

打開的第一個參數是文件句柄名稱，而不是文件的實際名稱。稍後在open函數中。

更改您的代碼：

my $FOutput = get "http://website/Logs/Log_number.ini"; # your content should be stored in this 
                 # variable, you need to write data to your output file. 
my $FInput = "/home/User/Downloads/text"; 
open OUTPUT_FILEHANDLE, '>', $FInput or die "could not open $FInput: $!"; # give a name to the file 
                      # handle, then supply the file name itself after the mode specifier. 
                      # You want to WRITE data to this file, open it with '>' 
my $ctr; 
my @results; 
my @words = split(/(\r|\n)/, $FOutput); # create an array of words from the content from the logfile 
             # I'm not 100% sure this will work, but the intent is to show 
             # an array of 'lines' corresponding to the data 

# here, you want to print the results of your grep to the output file 
@results = grep /RoomOutProcessTT/, @words; 
print OUTPUT_FILEHANDLE "@results\n"; # print to your output file 
# close the output file here, since you re-open it in the next few lines. 
close OUTPUT_FILEHANDLE; 

# not sure why you're re-opening the file here... but that's up to your design I suppose 
open INPUT_FILEHANDLE, '<', $FInput or die "could not open $FInput: $!"; # open it for read 
while(<INPUT_FILEHANDLE>){ 
    $ctr = grep /RoomOutProcessTT/, split ' ' , $_;    
    $ctr += $ctr; 
} 
print "RoomOutProcessTT Count: $ctr\n"; # print to stdout 
close INPUT_FILEHANDLE; # close your file handle 

我可能會建議您切換使用來識別「輸入和輸出」的條款，因爲它是有點混亂。在這種情況下，輸入實際上是從網絡中提取的文件，輸出是您的文本文件。至少我是這麼解釋的。你可能想在你的最終設計中解決這個問題。