par_script.pl

来自「XILINX memory interface generator. XILI」· PL 代码 · 共 25 行

#!/usr/bin/perl

opendir(RTL1,".");
@filelist=readdir RTL1;
closedir RTL;


foreach $i (@filelist){
         open (IPFN,"<$i");
         open (IPFN1,">../test/$i");
         while(<IPFN>){
                if($_ =~ /2/){
                    ($var1,$var2)=split(/:/,$_);
                    ($var3,$var4)=split(/Y/,$var2);
                    ($var5,$var6)=split(/;/,$var4);
                    $var6=$var5+2;
                    s/$var5/$var6/g;
                    print IPFN1 "$_";
                }else{
                    print IPFN1 "$_";
                }
         }
close(IPFN);
close(IPFN1);
}