matlab如何判断图像句柄是空的,在Perl中,如何判断文件句柄是否为空?

尽管打电话

eof

在试图从中读取结果之前

在这种特殊情况下

,注意结尾处的建议

perlfunc documentation on

eof

:

实用提示:你几乎不需要使用

eof

在Perl中,因为输入运算符通常返回

undef

当它们用完数据,或者出现错误时。

你的命令最多只能产生一行,所以用标量来表示,

例如

,

chomp(my $gotwin = `tail -n 1 $file | grep win`);

注意退出状态

grep

告诉您您的模式是否匹配:

2.3退出状态

通常,如果找到所选行,则退出状态为0,否则为1。

也,

tail

成功时退出0,失败时退出非0。充分利用这些信息:

#! /usr/bin/perl

use strict;

use warnings;

my $file = "input.dat";

chomp(my $gotwin = `tail -n 1 $file | grep win`);

my $status = $? >> 8;

if ($status == 1) {

print "$0: no match [$gotwin]\n";

}

elsif ($status == 0) {

print "$0: hit! [$gotwin]\n";

}

else {

die "$0: command pipeline exited $status";

}

例如:

$ > input.dat

$ ./prog.pl

./prog.pl: no match []

$ echo win >input.dat

$ ./prog.pl

./prog.pl: hit! [win]

$ rm input.dat

$ ./prog.pl

tail: cannot open `input.dat' for reading: No such file or directory

./prog.pl: no match []