system用法求救

kfcdog0419

my $input_netlist = $ARGV[0];

my @real = qw/3/;
my @imag = qw/-7 -6/;

foreach $real (@real) {
foreach $imag (@imag) {
open (INFILE,"$input_netlist") or die ("Unable to open file\n");
open (OUTFILE,">R${real}_X${imag}_${input_netlist}");
       
while(<INFILE>)
{
   if(/TopDesignName="(.+)"/)
   {
   s/$1/R${real}_X${imag}_AP7101Dd_D1_M5a02a11_loadpull_v1/ig;
   }
   if(/^R=(\d+)/)
   {
   s/$1/$real/ig;
   }
   
   if(/^X=(\d+)/)
   {
   s/$1/$imag/ig;
   }
   print OUTFILE $_;
my $run_ADS = "hpeesofsim R${real}_X${imag}_${input_netlist}";
system("$run_ADS");

}
}
}

close INFILE;
close OUTFILE;

=================================================================
我大概說明一下這個perl會產生兩個outfile(3 -7)跟(3 -6)
我想要產生第一個outfile之後用system去執行程式對第一個outfile跑(會需要一段時間)，結束之後再產生第二個outfile再用system對第二個outfile跑

我要怎麼改才能讓perl會等我的system裡面這麼命令結束在繼續產生第二個outfile

謝謝大大

pitonas

{:2_169:} 对这个也不是很明白
所以你也可以改改後看看,  大概是

1. my $input_netlist = $ARGV[0];
   
2. 
   
3. my @real = qw/3/;
   
4. my @imag = qw/-7 -6/;
   
5. 
   
6. foreach $real (@real) {
   
7.     foreach $imag (@imag) {
   
8.         open( INFILE, "$input_netlist" ) or die("Unable to open file\n");
   
9.         open( OUTFILE, ">R${real}_X${imag}_${input_netlist}" );
   
10.         while (<INFILE>) {
    
11.             if (/TopDesignName="(.+)"/) {
    
12.                 s/$1/R${real}_X${imag}_AP7101Dd_D1_M5a02a11_loadpull_v1/ig;
    
13.             }
    
14.             if (/^R=(\d+)/) { s/$1/$real/ig; }
    
15.             if (/^X=(\d+)/) { s/$1/$imag/ig; }
    
16.             print OUTFILE $_;
    
17.         }
    
18.         close OUTFILE;
    
19.         close INFILE;
    
20.         my $run_ADS = "hpeesofsim R${real}_X${imag}_${input_netlist}";
    
21.         system("$run_ADS");
    
22.     }
    
23. }

复制代码

kfcdog0419

回复 2# pitonas

system不需要傳送什麼值嗎?
我需要等system跑完 才繼續產生第二個outfile
   

pitonas

{:2_172:}  不知道你想要什么?
根据你的代码:

1. my $run_ADS = "hpeesofsim R${real}_X${imag}_${input_netlist}";
   
2. system("$run_ADS");

复制代码

$run_ADS 总计有 2 个值 (1 x 2 x 1)
如果 $input_netlist 有 10000 行
你的代码

system 值1 10000 次
system 值2 10000 次

它可能有一些错误

回复 3# kfcdog0419

{:2_175:} 不知道你想要什么?
   

rubyish

看懂不容易~