傳遞命令行參數以及從STDIN輸入Perl腳本？

Question

我有一個Perl腳本，它在標準輸入輸入既需要命令行參數和標準輸入

#!/usr/bin/perl -w 
use strict; 
use warnings; 

my $logpath = $ARGV[0]; 
print "logpath : $logpath\n"; 

print "Name : "; 
my $name = <>; 
chomp($name); 
print "my name is $name\n"; 

它不會停止。 對於命令行或標準輸入中的任何一個都適用，但不適用於這兩者。

有什麼理由？

Answer 1

變化

my $name = <>; 

到

my $name = <STDIN>; 

如果@ARGV沒有任何元素，那麼鑽石經營者會從STDIN但在你的情況，因爲你逝去雖然命令行參數讀取，@ARGV不會空着。因此，當您使用菱形運算符<>來讀取名稱時，將讀取名稱在命令行中指定的文件的第一行。