perl对Linux命令结果的处理

unixu

现在小弟遇到的情况是， 要对Unix命令的结果集进行区分处理，例如 ls 这个命令, 如果 目录不为空， 结果里有输出；如果目录为空， 没有输出，直接就会返回。


#!/usr/bin/perl

$cmd=`ls`;

chomp $cmd;

if ( ...  ) {   

print "Directory is not empty\n";

}else{print "Direcoty is empty.\n"}


现在的问题是if里不知道 用什么条件可以区分， 有输出和 没有输出这两种情况， 无论有没有没输出， 命令都是执行成功的；
而且我测试了一下 用 ($cmd=~/.*/) 进行匹配， 即使ls命令没有输出， 但这个条件仍结果 仍然为 True, 似乎有某个默认的隐藏字符；

还请各位大侠给小弟一点指点， 这种情况该如何处理, 谢谢。

q1208c

'.*' 表示 任何字符, "空" 也是任何字符呀.

mcshell

LZ要搞清楚
undef,"",0的区别

unixu

谢谢你们的回答，其实我首先用的是defined($cmd), 测试发现，不管ls命令有没有输出，返回值都是defined，按道理``应该返回命令输出给变量$cmd，而不是代表命令成功执行与否的 0或 256给$cmd

q1208c

回复 4# unixu


$cmd 应该是 "", 所以, defined 判断是真.   

unixu

谢谢各位， 刚才测试了一下， 确实如大家所说， 返回值应该是""

#!/usr/bin/perl

$cmd=`ls`;

chomp $cmd;

if ( $cmd ne ""  ) {   

print "Directory is not empty\n";

}else{print "Direcoty is empty.\n"}

这样写是我想要的结果， 再次感谢。

jason680

回复 1# unixu

my @aFiles = `ls`;

1. using directly
  foreach(@aFiles){ ... }

2. check any file to output
  if(@aFiles == 0){ ... }
  if(@aFiles >= 1){ ... }

兰花仙子

unixu 发表于 2014-05-24 00:28
现在小弟遇到的情况是， 要对Unix命令的结果集进行区分处理，例如 ls 这个命令, 如果 目录不为空， 结果里有 ...

$ perl -le 'my $files=`ls myhero`;die "something wrong" if $? != 0; print $files'

要判断系统命令的返回状态。
不过对LZ的问题, I believe File::Find should do it better.

sponge01

dddddddddd

lyb3708621

if ( $cmd ) {
;
} else {
;
}

undef,"",0 都是假