似乎無法得到一個輸出，我不知道爲什麼

Question

我有一個perl代碼，基本上打開一個文件，閱讀並打印它，但由於某種原因，當我運行它，我似乎無法得到任何輸出或任何錯誤，我不知道爲什麼。

這裏是我的代碼：

#!usr/bin/perl 

$syslogFile = '/Home/osboxes/Documents/syslog'; 
open(INFO, $syslogFile); 
@lines = <INFO>; 
close(INFO); 
print @lines; 

Answer 1

這就是爲什麼你需要做兩兩件事：在你的代碼的開始

• 使use strict;use warnings;。
• 查看返回碼open。

我也建議3精氨酸開放大大優先於使用默認：

open (my $input, '<', $syslogfile) or die $!; 

最後一點 - 仔細檢查該文件中包含你希望它是什麼。例如。它不是空的。

事情是這樣的：

#!/usr/bin/env perl 
use strict; 
use warnings; 

my $syslogFile = '/Home/osboxes/Documents/syslog'; 
open(my $info, '<', $syslogFile) or die $!; 
my @lines = <$info>; 
close($info) or warn $!; 
print @lines; 

我懷疑它會告訴你無論是「沒有這樣的文件或目錄」或「權限被拒絕」。