perl system调用

斯文牛氓

按照perldoc的描述，要获取一个命令调用的返回值有以下几种情况:
   

1.     @args = ( "command","arg1","arg2" );
   
2.     system(@args) == 0 dir "execute system command failed

复制代码

更加精确的捕捉:

1.    
   
2.    if ($? == -1) {
   
3.            print "failed to execute: $!\n";
   
4.    }
   
5.    elsif ($? & 127) {
   
6.        printf "child died with signal %d, %s coredump\n",
   
7.            ($? & 127),  ($? & 128) ? 'with' : 'without';
   
8.    }
   
9.    else {
   
10.        printf "child exited with value %d\n", $? >> 8;
    
11.    }

复制代码

但是有时候为了图简便，我们有时候把所有命令里调用都放一条命令里,例如:

1.    
   
2.     system("tar cvf xxxx.tar;cd -") == 0 or die "can't tar file"

复制代码

这里就出现了一个bug，因为system总是返回最后一次调用的结果的,导致检测不成功，因此在调用
system执行多条命令如果需要捕捉返回结果，最好是分开执行.

bikong0411

学习了

Perlvim

fork/exec 是一种昂贵的算法，也许对于使用高配置的IDE来开发高端应用程序的人来说，这并没有什么值得关注的地方。但对于底层的优化，对整座大厦而言，是意义深远的。

Perl 是 Unix 文化的蒸馏器，许多人努力将 Linux 平台上的各种工具，在Perl内部实现。
但至今为止，还没有一个模块能，完整的实现大部分的 shell 工具功能，也许作为一个开源平台，没有人有义务来完成什么任务，达到什么目标。因为在 Perl 世界的贡献，基本上是靠自愿和无偿付出。

这也是中国Perl文化如此冷淡的原因之一。