Также передать аргументы командной строки в качестве входных данных из STDIN для сценария Perl?

У меня есть сценарий Perl, который принимает аргументы командной строки и STDIN

#!/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";

. Он не останавливается на вводе stdin. Прекрасно работает для любой из командной строки или стандартного ввода, но не для обоих.

Любая причина?

11
задан Jonathan Leffler 26 March 2011 в 04:01
поделиться