默認文件源爲<> in perl

Question

我想通過<>運算符讀取數據。

它從標準輸入或從指定爲腳本的ARGS

文件中讀取數據，但是，如果沒有STDIN呈現，也不指定的文件，我想讀從默認的文件路徑數據;

所以，它應該像

my $file = ''; 
if ($ARGC) { open $file, '<default.txt'; } 
while (<$file>) # if no ARGs it should be <> 
{ 
    do_all; 
} 

Answer 1

<>運算符從@ARGV讀取輸入文件名的列表。因此，建立一個默認的輸入文件名的方法就是檢查是否@ARGV是空的，如果是的話，把你的默認文件名到它：

push @ARGV, "default.txt" unless @ARGV; 

---

我不知道你是什麼通過「無STDIN呈現」的意思，但如果你的意思是你想你的腳本由foo.txt而不是default.txt如果援引爲如讀：

perl script.pl < foo.txt 

或：

cat foo.txt | perl script.pl 

然後您通過使用-t file test來檢查STDIN是否從終端讀取數據。如果STDIN是不一個TTY，它是最有可能是管道或文件，因此你應該嘗試從中讀取數據：

push @ARGV, "default.txt" unless @ARGV or !-t STDIN; 

Answer 2

但是，如果沒有STDIN呈現，也不指定的文件，我想讀從默認的文件路徑

我想，通過數據「沒有STDIN「你指的是perl上沒有管道STDIN

push @ARGV, "default.txt" if !@ARGV and -t STDIN; 

Answer 3

@ARGV = 'default.txt' 
    if !@ARGV && !defined(fileno(STDIN)); 

從指定的文件進行讀取或
如果打開，則從STDIN讀取，或者從default.txt讀取
。

上述-t測試將失敗script < file和foo | script。