求助：如何在perl中获取shell语句执行失败的告警信息

xie_godel

比如执行如下perl语句：

my @arr = 'ls /root/abc';

当/root/abc不存在的时候： ls: /root/osaf: No such file or directory


我希望在perl中获得上述信息，应该怎么写

Perl_Er

1. `ls /root/abc 2>&1`

复制代码

[ 本帖最后由 Perl_Er 于 2009-10-19 11:17 编辑 ]

blackold

print $! if $!;
晕，这样不行。

可以先判断文件是否存在。

[ 本帖最后由 blackold 于 2009-10-19 11:52 编辑 ]

ttcn_cu

perl -e 'my @arr = `ls ~/abc>/dev/null 2>/tmp/tmp1` ; open IN,"</tmp/tmp1"; warn " INFO:", <IN> ; close IN;unlink "/tmp/tmp1";'

xie_godel

3q