3

在编写传统的 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

是否有更好的测试来查找 shell 传递给 perl 的所有命令行参数？

4

2 回答 2

5

您可以使用文件测试运算符 -t检查文件句柄 STDIN 是否对 TTY 开放。

因此，如果它对终端开放并且没有参数，那么您将显示使用文本。

if ( -t STDIN and not @ARGV ) {
    # print usage and exit
}
于 2011-09-17T13:06:25.763 回答
0

使用 -t 运算符检查 STDIN 是否连接到 tty 当您使用管道或外壳重定向时，它将返回 false，因此您使用

if ( -t STDIN and not @ARGV ){ exit Usage(); }
于 2011-09-17T13:57:15.403 回答