При написании традиционной программы Unix/Linux perl предоставляет ромбовидный оператор ‹>. Я пытаюсь понять, как проверить, не передан ли вообще аргумент, чтобы скрипт Perl не сидел в цикле ожидания для STDIN, когда этого не должно быть.
#!/usr/bin/perl
# Reading @ARGV when pipe or redirect on the command line
use warnings;
use strict;
while ( defined (my $line = <ARGV>)) {
print "$ARGV: $. $line" if ($line =~ /eof/) ; # an example
close(ARGV) if eof;
}
sub usage {
print << "END_USAGE" ;
Usage:
$0 file
$0 < file
cat file | $0
END_USAGE
exit();
}
Несколько запусков вывода показывают, что ‹> работает, но без аргументов мы ждем ввода STDIN, а это не то, что мне нужно.
$ cat grab.pl | ./grab.pl
-: 7 print "$ARGV: $. $line" if ($line =~ /eof/) ; # an example
-: 8 close(ARGV) if eof;
$ ./grab.pl < grab.pl
-: 7 print "$ARGV: $. $line" if ($line =~ /eof/) ; # an example
-: 8 close(ARGV) if eof;
$ ./grab.pl grab.pl
grab.pl: 7 print "$ARGV: $. $line" if ($line =~ /eof/) ; # an example
grab.pl: 8 close(ARGV) if eof;
$ ./grab.pl
^C
$ ./grab.pl
[Ctrl-D]
$
Первая мысль — проверить $#ARGV, который содержит номер последнего аргумента в @ARGV. Затем я добавил тест к приведенному выше сценарию перед циклом while следующим образом:
if ( $#ARGV < 0 ) { # initiated to -1 by perl
usage();
}
Это не дало желаемых результатов. $#ARGV равно -1 для перенаправления и конвейера в командной строке. Запустив эту проверку (grabchk.pl), проблема изменилась, и я не могу прочитать содержимое файла с помощью ‹> в канале или случаях перенаправления.
$ ./grabchk.pl grab.pl
grab.pl: 7 print "$ARGV: $. $line" if ($line =~ /eof/) ;
grab.pl: 8 close(ARGV) if eof;
$ ./grabchk.pl < grab.pl
Usage:
./grabchk.pl file
./grabchk.pl < file
cat file | ./grabchk.pl
$ cat grab.pl | ./grabchk.pl
Usage:
./grabchk.pl file
./grabchk.pl < file
cat file | ./grabchk.pl
Есть ли лучший тест, чтобы найти все параметры командной строки, переданные в perl оболочкой?
if ($#array < 0)
, если можно написатьif (@array == 0)
илиunless (@array)
. Использование последнего индекса в массиве, когда вам нужно количество элементов в массиве, не говорит о том, что вы имеете в виду. - person hobbs   schedule 17.09.2011