˜Ëî}: „h³ýverilogעጵÄperlÄ_±¾ delete_verilog_comments.pl [´òÓ¡±¾í“]
×÷Õß: bibi    •rég: 2015-4-18 20:16
˜Ëî}: „h³ýverilogעጵÄperlÄ_±¾ delete_verilog_comments.pl
#!/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;
}







šgÓ­¹âÅR (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1