Perl调用外部命令(其他脚本系统命令)的方法和区别

Posted 马踏飞燕Beautiful

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Perl调用外部命令(其他脚本系统命令)的方法和区别相关的知识,希望对你有一定的参考价值。

1. `command`;

使用反引号调用外部命令能够捕获其标准输出,并按行返回且每行结束处附带一个回车。反引号中的变量在编译时会被内插为其值。
 
2. open LIST "ls -l|";
    open MORE "|more";
    @list=<LIST>;
    print MORE @list;
    close(LIST);
    close(MORE);
使用带管道的文件句柄来执行外部命令,使用方式与读写文件类似。可以从外部命令的输出读取数据,也可以将数据输出到外部命令作为输入。
 
3. system("command");
使用该命令将开启一个子进程执行引号中的命令,父进程将等待子进程结束并继续执行下面的代码。
  eg:system ("mkdir outdir ") unless (-d outdir);   #如果不存在outdir目录,就调用外部函数mkdir创建outdir目录
system会返回执行后的状态,即,如果正确执行完毕,返回0;没有执行返回非0
  eg: @args = (“mkdir″, “outdir″); system(@args) == 0  or die “system @args failed: $!”   <=>  system("mkdir outdir") == 0 or die "system @args failed: $!"

4. exec("command");
效果同system命令类似,区别是不会开启子进程,而是取代父进程,因此执行完引号中的命令后进程即结束。一般和fork配合使用。
而对于exec这个函数来说,仅仅是执行一个系统的命令,一般情况下并没有返回值。exec只有在系统没有你要执行的命令的情况下,才会返回false值

5. defined(my $pid=fork) or die "Can not fork: $!\n";
    unless ($pid) {
        exec ("date");
    }
waitpid ($pid,0);
使用fork将会开启子进程与父进程同时执行之后的代码,其中父进程中fork会返回一个非零的数,而子进程中将返回零。上面的代码完成和system("date")相同的功能。比起system单纯地调用外部命令,fork可以完成更加复杂的进程操作。

6.@result = readpipe( “ls -l /tmp” );
    print “@result”;
 
 
2) 而对于exec这个函数来说,仅仅是执行一个系统的命令,一般情况下并没有返回值。exec只有在系统没有你要执行的命令的情况下,才会返回false值。

exec (‘foo’)   or print STDERR “couldn’t exec foo: $!”;
{ exec (‘foo’) }; print STDERR “couldn’t exec foo: $!”;

3) 当我们需要保存系统命令运行的结果,以便分析并作进一步的处理时,就要用到readpipe这个函数了。例如:

@result = readpipe( “ls -l /tmp” );
print “@result”;

会产生如下的结果:

drwxr-xr-x  2 root   root    4096 Mar 19 11:55 testdir

当然,你也可以把生成的结果放到一个文件里,以便写工作日志呀、发布报告呀。

$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文件里了。

 
参考:
 

以上是关于Perl调用外部命令(其他脚本系统命令)的方法和区别的主要内容,如果未能解决你的问题,请参考以下文章

Perl基础---外部程序调用

PHP 执行系统外部命令的方法 system() exec()

我的 perl 脚本如何调用和执行并后处理它

求助使用perl执行cmd命令的问题

如何从命令行测试Perl CGI脚本的文件上传?

如何在 bash shell 脚本中的 perl 命令调用中使用 shell 变量?