perl system,exec,readpipe 函数
发布时间:2020-12-15 23:43:03 所属栏目:大数据 来源:网络整理
导读:转载:http://blog.sina.com.cn/s/blog_615770bd0100rzrd.html 在Perl脚本中,允许调用系统的命令来进行操作。这就是Perl灵活性的体现,作为一种系统命令的粘合语言,能给程序员带来许多的便利。这样,你就可以最大限度地利用别人的成果,用不着自己使劲造轮
转载:http://blog.sina.com.cn/s/blog_615770bd0100rzrd.html 在Perl脚本中,允许调用系统的命令来进行操作。这就是Perl灵活性的体现,作为一种系统命令的粘合语言,能给程序员带来许多的便利。这样,你就可以最大限度地利用别人的成果,用不着自己使劲造轮子了。 在Perl中,可以用system、exec、readpipe这三个命令来调用其他脚本、系统命令等。这三个命令的主要区别就是返回值。 1) 对于system这个函数来说,它会返回执行后的状态,比如说 ? ?system(@args) == 0 ?or die “system @args failed: $?” 当然,你也可以用类似于下面的语句来检查出错的原因: ?if ($? == -1) { ?print “failed to execute: $!n”; ?} ?elsif ($? & 127) { ?printf “child died with signal %d,%s coredumpn”, ?($? & 127),? ?else { ?printf “child exited with value %dn”,$? >> 8; 2) 而对于exec这个函数来说,仅仅是执行一个系统的命令,一般情况下并没有返回值。exec只有在系统没有你要执行的命令的情况下,才会返回false值。 ?exec (‘foo’)? ?{ exec (‘foo’) }; print STDERR “couldn’t exec foo: $!”; 3) 当我们需要保存系统命令运行的结果,以便分析并作进一步的处理时,就要用到readpipe这个函数了。例如: ?@result = readpipe( “ls -l /tmp” ); ?print “@result”; 会产生如下的结果: ?drwxr-xr-x? 当然,你也可以把生成的结果放到一个文件里,以便写工作日志呀、发布报告呀。 ?$inject_command = “./ConfigChecker.bat F:/nic/3502/ARRAY-4AD2E0573/etc “.$device_name; ?chdir “F:/TestTools/bin/”; ?@temp_result = readpipe($inject_command); ?open(result_file,”>result.txt”); ?print result_file @temp_result; ?close(result_file); 这样,你就把系统运行的结果扔到了系统命令所在目录下的result.txt文件里了。 这三个命令,有各自的特点,需要在使用时灵活选用,更详细的资料就得上PerlDoc上找了。 注解: 1;$result=system( '外部命令 '); 这个result只是返回命令是否成功,而不是外部命令的打印结果 2; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |