从Perl中的命令获取返回代码和输出
发布时间:2020-12-15 21:53:56 所属栏目:大数据 来源:网络整理
导读:我正在尝试编写一个实用程序,它将通过一个看起来像这样的文件: # Directory | file name | action | # of days without modification to the file for the command to take action/work/test/|a*|delete|1/work/test/|b*|compress|0/work/test/|c*|compress
我正在尝试编写一个实用程序,它将通过一个看起来像这样的文件:
# Directory | file name | action | # of days without modification to the file for the command to take action /work/test/|a*|delete|1 /work/test/|b*|compress|0 /work/test/|c*|compress|1 我的脚本将通过文件决定是否,例如,/ work / test /下的文件以’a’开头,在过去1天内没有被修改过,如果有,它会删除它们. 为此,我使用find命令.例: my $command = "find " . $values[0] . $values[1] . " -mtime +" . $values[3] . " -delete ;n"; system ($command); 但是,我被要求检索每个步骤的返回码,以验证每个步骤是否正常. 现在,我知道system()返回返回代码,反引号返回输出.但是,我怎样才能得到两者? 解决方法
运行反引号后,返回代码在
$? 中可用.
$output = `$some_command`; print "Output of $some_command was '$output'.n"; print "Exit code of $some_command was $?n"; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |