xt
发帖数: 17532 | 1 【 以下文字转载自 Linux 讨论区 】
发信人: xt (拷贝猫), 信区: Linux
标 题: Perl问题求助
发信站: BBS 未名空间站 (Wed Apr 23 11:34:20 2008)
需要调用一个shell command，然后检查stdout的输出值，类似
这种：
ls foo.txt |wc -l
这一段要写在perl里，我需要检查这个值是否大于零。
这个怎么做？
谢谢 |
o*****o
发帖数: 7 | 2 将返回值赋给一个变量，再判断
$data = `cat foo.txt|wc -l`; |
xt
发帖数: 17532 | 3 No. 返回值和stdout打印出来的东西不是一个概念吧。
【在 o*****o 的大作中提到】
: 将返回值赋给一个变量，再判断
: $data = `cat foo.txt|wc -l`;
|
o*****o
发帖数: 7 | 4 $data = `cat foo.txt|wc -l`;
if ($data gt "20")
{
print "great than the value. \n";
}
else
{
print "less than the value. \n";
}
命令的stdout是string,但perl可以对其进行比较。试一哈。 |
xt
发帖数: 17532 | 5 Got it. Must import Shell before doing this.
Thanks a lot!
【在 o*****o 的大作中提到】
: $data = `cat foo.txt|wc -l`;
: if ($data gt "20")
: {
: print "great than the value. \n";
: }
: else
: {
: print "less than the value. \n";
: }
: 命令的stdout是string,但perl可以对其进行比较。试一哈。
|
v******a
发帖数: 45075 | 6 不客气
【在 xt 的大作中提到】
: 【 以下文字转载自 Linux 讨论区 】
: 发信人: xt (拷贝猫), 信区: Linux
: 标 题: Perl问题求助
: 发信站: BBS 未名空间站 (Wed Apr 23 11:34:20 2008)
: 需要调用一个shell command，然后检查stdout的输出值，类似
: 这种：
: ls foo.txt |wc -l
: 这一段要写在perl里，我需要检查这个值是否大于零。
: 这个怎么做？
: 谢谢
|
