刪除verilog注釋的perl腳本 delete_verilog_comments.pl

ID:77367 · 發(fā)表于 2015-4-18 20:16

#!/usr/bin/perl -w

open(FILEIN,"<file_list");
@all_files = <FILEIN>;
close FILEIN;

system ("mkdir temp");

foreach $a (@all_files)
{
open (FILETEMP,"< $a");
@lines = <FILETEMP>;
close FILETEMP;

      open(FILEOUT,"> ./temp/$a");

foreach (@lines)
{
if (/\/\/.*/)
  {s/\/\/.*//g;}
if ((/\/\*/) && (/\*\//))
  {
  s/\/\*.*\*\///g;
  $flag=0; $type=0;
  }
if (/\/\*/)
  {
  $flag=1; $type=1;
  }
elsif (/\*\//)
  {
  $flag=1; $type=0;
  }
else
  {$flag=0;}
if (($flag==0) && ($type==0))
  {
  print FILEOUT "$_";
  }
}
close FILEOUT;
}

帳號(hào)		自動(dòng)登錄	找回密碼
密碼			立即注冊(cè)

欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

刪除verilog注釋的perl腳本 delete_verilog_comments.pl