传递命令行参数以及从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不会空着。因此，当您使用菱形运算符<>来读取名称时，将读取名称在命令行中指定的文件的第一行。