使用Perl提取Excel中的IO_MUX

最新推荐文章于 2024-10-10 09:08:43 发布

weixin_30522095

最新推荐文章于 2024-10-10 09:08:43 发布

阅读量154

点赞数

文章标签： python

原文链接：http://www.cnblogs.com/OneFri/p/6766835.html

版权

使用Perl提取Excel中的IO_MUX

关键问题

提取数据
格式化输出
循环嵌套
数据结构构建
坐标映射，逆向提取关键字

描述

在IC集成中，我们使用Excel表格规划设计的IC引脚功能映射需要转化到Verilog层次，这个过程耗时耗力，但其中有一些规律，可以通过Perl将其格式化提取出部分可用的信息，应用得当可以减小出错的概率。

编程思路

输入映射

数据特点

同类引脚有多个通道，同一个引脚可能在不同的行列出现，即出现多次，唯一的是引脚的坐标（行列位置），所以我们可以构建哈希数组结构，哈希的键值为引同类引脚名，数组值为键值的坐标。

流程图

思路将引脚使用坐标表示，在将坐标映射到P[A-Z]和AF[0-15]，使用正则表达式处理映射字符。

映射部分代码

#################################################
#  统计出现次数
#################################################
    foreach $item (@ip_name) {
      $ip_channal{$item} += 1;
    }
    #foreach $item (keys %ip_channal) {  #遍历输出出现次数，debug显示使用
    #  print "$item was seen $ip_channal{$item} times.\n";
    #}
    foreach $item (keys %ip_channal) {   #清空次数值values
      $ip_channal{$item} = "";
    }
    
    #print "\n\n";
#################################################
#  遍历得到哈希键值的值：哈希数组
#################################################
    foreach $key (keys %ip_channal)
    {
       my (@array);
       for my $row ( $row_min .. $row_max ) {
           for my $col ( $col_min .. $col_max ) {
               my $cell = $worksheet->get_cell( $row, $col );
                next unless $cell;
                if(($cell->value() eq ""))
                {
                   next;
                }
                if(($cell->value() eq "-"))
                {
                   next;
                }

                $_ =  $cell->value();
                if(/\b$key\b/i)
                {
           #格式化行列位置为4位数字(行列的位数格式化，便于后续处理)
               my $rowtmpfmt=(sprintf "%03d", $row);
               my $coltmpfmt=(sprintf "%03d", $col);
                   push(@array,$rowtmpfmt.$coltmpfmt);
                }
           }
       }
       $ip_channal{$key} = \@array;
    }
    #哈希数组,显示行列坐标位置，debug显示使用
    foreach $item (keys %ip_channal) {
      print "$item = @{$ip_channal{$item}}\n";
    }
    print "\n\n";
#################################################
# 解析数据(%ip_channal/%px/%afx/)，格式化输出   映射
#################################################
    foreach my $ip_key (sort keys %ip_channal) {
       my (@fmtouts);
       foreach my $ip_position (@{$ip_channal{$ip_key}}){
          my ($out);
          foreach my $ip_px (sort keys %px){
             my $pretmp = substr($ip_position,0,3);     #使用substr得到前三位字符串     
             if($pretmp eq $px{$ip_px})
             {
                $out = $ip_px;
             }
          }
          foreach my $ip_afx (sort keys %afx){
             my $posttmp = substr($ip_position,3,3);    #使用substr得到后三位字符串         
             if($posttmp eq $afx{$ip_afx})
             {
                $out = $out.$ip_afx;
             }
          }
          push(@fmtouts,$out);
       }
       #print "@fmtouts\n";

输出映射

数据特点

输出是处理P[A-Z]一行的数据，数据结构相对输入较为简单，只需构建一行中的引脚的哈希结构进行映射即可。

流程图

思路将引脚使用坐标表示，在将坐标映射到P[A-Z]和AF[0-15]，使用正则表达式处理映射字符。

数据映射部分代码

#################################################
# 解析数据(%px/%afx/)，格式化输出
#################################################
    foreach my $px_key (sort keys %px) {
       my %ip_channal;      
       my $row = $px{$px_key};  #定义PX所在行，循环得到IP名称。注意，计数从0开始

       #注意手动设置AFx的范围
       for my $searchcol ( $af0_namecol .. ($af0_namecol+$afx_rang) ) {
           my $cell = $worksheet->get_cell( $row, $searchcol );
       next unless $cell;
       if(!defined $cell->value())
           {
              next;
           }
       $_ = $cell->value();
       #if(/Y\+|Y\-|X\+|BKIN|\_IN|\_RX|\_ETR/)    #排除Y+/X+/BKIN/_IN/_RX
       if(/BKIN|\_IN|\_RX|\_ETR/)    #排除Y+/X+/BKIN/_IN/_RX
           {
              next;
           }
       if(/\w+/)
       {
              #格式化行列位置为3位数字(行列的位数格式化，便于后续处理)
          my $coltmpfmt=(sprintf "%03d", $searchcol);
              $ip_channal{$cell->value()} = $coltmpfmt;
           }
       }

       print "row = $row\n";
       foreach my $ip_name (sort keys %ip_channal) {
          print "$ip_name = $ip_channal{$ip_name}\n";
       }
       
       my (@fmtouts);
       foreach my $ip_key (sort keys %ip_channal) {
          foreach my $ip_afx (sort keys %afx){
             my $out;
             if($ip_channal{$ip_key} eq $afx{$ip_afx})
             {
                $out = $ip_key.$ip_afx.$px_key;   #组合映射出单元的行列位置
        #print "$out\t";
             }
         else
         {
                next;   #值为空则执行下一次循环
         }
         push(@fmtouts,$out);
            }
       }

       print "fmtouts = @fmtouts\n\n";

转载于:https://www.cnblogs.com/OneFri/p/6766835.html