Perl調用外部命令的方式和區別

主要的方式簡述以下：
1.  system("command");
使用該命令將開啓一個子進程執行引號中的命令，父進程將等待子進程結束並繼續執行下面的代碼。

2.  exec("command");
效果同system命令相似，區別是不會開啓子進程，而是取代父進程，所以執行完引號中的命令後進程即結束。通常和fork配合使用。

3.  `command`;
使用反引號調用外部命令可以捕獲其標準輸出，並按行返回且每行結束處附帶一個回車。反引號中的變量在編譯時會被內插爲其值。

4.  open LIST "ls -l|";
    open MORE "|more";
    @list=<LIST>;
    print MORE @list;
    close(LIST);
    close(MORE);
使用帶管道的文件句柄來執行外部命令，使用方式與讀寫文件相似。能夠從外部命令的輸出讀取數據，也能夠將數據輸出到外部命令做爲輸入。

5.  defined(my $pid=fork) or die "Can not fork: $!\n";
    unless ($pid) {
        exec ("date");
    }
waitpid ($pid,0);
使用fork將會開啓子進程與父進程同時執行以後的代碼，其中父進程中fork會返回一個非零的數，而子進程中將返回零。上面的代碼完成和system("date")相同的功能。比起system單純地調用外部命令，fork能夠完成更加複雜的進程操做。

 

在Perl中用system、exec、readpipe函數來執行系統命令

轉自：http://cn.waterlin.org/

在Perl中，能夠用system、exec、readpipe這三個命令來調用其餘腳本、系統命令等。這三個命令的主要區別就是返回值。

1) 對於system這個函數來講，它會返回執行後的狀態，好比說

@args = (「command」, 「arg1″, 「arg2″);
system(@args) == 0
or die 「system @args failed: $?」

固然，你也能夠用相似於下面的語句來檢查出錯的緣由：

if ($? == -1) {
print 「failed to execute: $!\n」;
}
elsif ($? & 127) {
printf 「child died with signal %d, %s coredump\n」,
($? & 127),  ($? & 128) ? ‘with’ : ‘without’;
}
else {
printf 「child exited with value %d\n」, $? >> 8;
}

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

 

完！