perl執(zhí)行外部命令

kfcdog0419

我想用perl去執(zhí)行一個外部命令，目前是用system，這個外部命令我得放在foreach裡面，所以會重複很多次
這個外部命令需要跑一段時間，所以我需要等這個命令跑完再跑下一次的命令，
目前我是用sleep一段時間，但是發(fā)現(xiàn)不是很有效率

perl有辦法執(zhí)行外部命令，是要等這個命令跑完之後傳回一個值嗎，讓我知道可以在跑下一次的命令了


謝謝各位大大

pitonas

{:2_172:}測試下
perl script.pl

1. #!/usr/bin/perl
   
2. 
   
3. my @real  = qw/A B/;
   
4. my @imag  = qw/1 2/;
   
5. my $input = 'C';
   
6. 
   
7. for my $real (@real) {
   
8.     for my $imag (@imag) {
   
9.         open my $fh, '>', "$real-$imag-$input";
   
10.         print $fh "IN $real-$imag-$input!\n";
    
11.         for ( $imag .. $imag + 2 ) {
    
12.             print $fh "$_$real-$imag-$input!\n";
    
13.         }
    
14.         close $fh;
    
15.         my $run = qq[cat $real-$imag-$input; sleep 3]; # 需要跑一段時間
    
16.         system $run;
    
17.         print '-' x 10, "\n";
    
18.     }
    
19. }
    

復(fù)制代碼

q1208c

回復(fù) 1# kfcdog0419


try:
    my $p = `your command`;