使用Perl处理Excel之DMA映射

功能

通道处理，将各个通道的外设映射到通道上

外设ack信号处理

脚本执行情况



顶层Perl脚本(dma_parse.pl)

将上述两个功能脚本整合，便于调用

#!/usr/bin/perl -w

use strict;

my $Has_Help = "";

my $workfile = "";

my $worklist = "";

my $excelfile;

my $ipnamelist;

if( $#ARGV < 0 ) {

  &print_usage;

  exit;

}

my $filename ="";

&parse_argv;

if( $Has_Help =~ /TRUE/ )  #显示帮助说明

    {

      &print_usage;

      exit;

    }

if($workfile =~ /TRUE/)

{

   chomp($excelfile);

   #格式化输出通道输出部分

   system"perl dmaremap_parse.pl   $excelfile";

   system"perl dmaack_parse.pl   $excelfile";

}

else

    {

      &print_usage;

      exit;

    }

#################################################

# Sub-routine: print_usage()   帮助说明

#################################################

sub print_usage {

  print "\nUsage: perl dma_parse.pl -f <excel_file> \\\n";

  print "                        [-h] \n\n";

  print "For example:\n";

  print "    perl dma_parse.pl -f dma_map.xls\n";

  print "    perl dma_parse.pl -h \n";

  print "\n";

}

#################################################

# Sub-routine : parse_argv()   参数读入

#################################################

sub parse_argv {

  my $all_arg = "-h|-f";

  for(my $i=0; $i<=$#ARGV; $i++) {

    if( $ARGV[$i] =~ /-f/ ) {

      $i++;

      if(!defined $ARGV[$i])

      {

         $Has_Help = "TRUE";

      }

      $workfile = "TRUE";

      $excelfile = $ARGV[$i];

    }

    elsif( $ARGV[$i] =~ /-h/ ) {

      $Has_Help = "TRUE";

    }

    else { ### other options

      $Has_Help = "TRUE";

    }

  }

}

通道映射脚本(dmaremap_parse.pl)

#!/usr/bin/perl -w

#################################################

# 使用方法

# perl dma_parse.pl dma_map.xls

#################################################    

use strict;

use Spreadsheet::ParseExcel;

use Spreadsheet::ParseExcel::FmtUnicode;

my $parser   = Spreadsheet::ParseExcel->new();

my $formatter = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map=>"CP936");

my $workbook = $parser->parse($ARGV[0], $formatter);

#my $workbook = $parser->parse($ARGV[0]);

if ( !defined $workbook ) {

    die $parser->error(), ".\n";

}

for my $worksheet ( $workbook->worksheets() ) {

    my ( $row_min, $row_max ) = $worksheet->row_range();

    my ( $col_min, $col_max ) = $worksheet->col_range();

#################################################

# get DMA1/2坐标

#################################################

    my %dma;

    for my $row ( $row_min .. $row_max ) {

        for my $col ( $col_min .. $col_max ) {

            my $cell = $worksheet->get_cell( $row, $col );

            next unless $cell;

	    $_ = $cell->value();

	    if(/DMA\d/){

		#print "Row, Col    = ($row, $col)\n\n";

		my $rowtmpfmt=(sprintf "%03d", $row);

		my $coltmpfmt=(sprintf "%03d", $col);

		$dma{$cell->value()} = $rowtmpfmt.$coltmpfmt;

		#print "$_\n\n";

	    }

        }

    }

    #显示DMA坐标

    #foreach my $position (sort keys %dma) {

    #  print "$position = $dma{$position}\n";

    #}

    print "\n\n";

#################################################

# 分别处理DMA1/DMA2（遍历）各个通道

#################################################

    foreach my $dma_name (sort keys %dma){

	#print "$dma_name\n\n";

        my $row = substr($dma{$dma_name},0,3); 	#使用substr得到前三位字符串

        my $col = substr($dma{$dma_name},3,3); 	#使用substr得到后三位字符串

        my $loop_row = $row + 2;

        my $loop_col = $col + 1;

	#print "Row, Col    = ($loop_row, $loop_col)\n";

        #################################################

        # 取得各个通道映射信息

        #################################################

	my $channel_num = 0;

        for my $col ( $loop_col .. $loop_col+7 ) {

	    my @channel;

	    #print "channel_num = $channel_num\n";  #通道channel1/2/3

            for my $row ( $loop_row .. $loop_row+31 ) {

                my $cell = $worksheet->get_cell( $row, $col );

                next unless $cell;

		if(($cell->value() eq ""))

       	        {

       	           next;

       	        }

                $_ = $cell->value();

		#print "$_\n";

		push(@channel,$cell->value());    #得到通道中的外设，存入数组

            }

            #################################################

            # 格式化处理通道数组元素

            #################################################

	    my @fmtouts;

	    foreach my $peripheral (@channel){    #格式化出通道数组

	        my @channel_tmp = split(/\s+/,$peripheral);

		#print "channel_tmp = @channel_tmp\n";

		push @fmtouts,@channel_tmp;

	    }

	    #print "\n\nchannel = @channel\n\n";

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

            #################################################

            # 输出通道内的映射信息

            #################################################

	    my $periphs_num = @fmtouts;

	    #print "periphs_num = $periphs_num\n";

	    my $perph_tmpnum = 0;

	    my $remap = 0;

	    my $perph_remap;

	    foreach my $peripherals (@fmtouts){

	        $_ = $peripherals;

		#print "$_\n";

		$remap = 0;                    #清除重映射标记

		if(/\(1\)/){                #判断是否有重映射

		    #print "$` \t $& \t $' \n";

		    $peripherals = $`;

		    $remap = 1;

		    $perph_remap = $peripherals."_dma_remap";

		}

		if(/\(2\)/){                #判断是否有重映射

		    #print "$` \t $& \t $' \n";

		    $peripherals = $`;

		    $remap = 2;

		    $perph_remap = $peripherals."_dma_remap";

		}

                #my $output = $peripherals;

		#$output =~ /(\d)/; 

		my $eq_left  = $dma_name."_single"."\[$channel_num\]";

		my $eq_right = $peripherals."_dma_req";

		if($periphs_num == 1){

		    if($remap == 2){

	                print "assign \L$eq_left = \(\L$perph_remap \? \L$eq_right : 0\);\n";

		    }

		    elsif($remap == 1){

	                print "assign \L$eq_left = \(\L$perph_remap \? 0 : \L$eq_right\);\n";

		    }

		    else{

	                print "assign \L$eq_left = \L$eq_right;";

		    }

	        }

	        if($perph_tmpnum == 0){

		    if($remap == 2){

	                print "assign \L$eq_left = \(\L$perph_remap \? \L$eq_right : 0\) ||\n";

		    }

		    elsif($remap == 1){

	                print "assign \L$eq_left = \(\L$perph_remap \? 0 : \L$eq_right\) ||\n";

		    }

		    else{

	                print "assign \L$eq_left = \L$eq_right ||\n";

		    }

	        }

	        elsif($perph_tmpnum < $periphs_num-1){

		    if($remap == 2){

	                print "                        \(\L$perph_remap \? \L$eq_right : 0\) ||\n";

		    }

		    elsif($remap == 1){

	                print "                        \(\L$perph_remap \? 0 : \L$eq_right\) ||\n";

		    }

		    else{

	                print "                        \L$eq_right ||\n";

		    }

	        }

	        else{

		    if($remap == 2){

	                print "                        \(\L$perph_remap \? \L$eq_right : 0\);\n";

		    }

		    elsif($remap = 1){

	                print "                        \(\L$perph_remap \? 0 : \L$eq_right\);\n";

		    }

		    else{

	                print "                        \L$eq_right;\n";

		    }

	        }

		#print"remp = $remap\n";

	        $perph_tmpnum++;               #通道中外设映射个数

	    }

	    $channel_num = $channel_num + 1;   #表示通道号channel1/channel2/...

	    print"\n";

        }

    }

}

外设ack信号处理脚本(dmaack_parse.pl)

#!/usr/bin/perl -w

#################################################

# 使用方法

# perl dma_parse.pl dma_map.xls

#################################################    

use strict;

use Spreadsheet::ParseExcel;

use Spreadsheet::ParseExcel::FmtUnicode;

my $parser   = Spreadsheet::ParseExcel->new();

my $formatter = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map=>"CP936");

my $workbook = $parser->parse($ARGV[0], $formatter);

#my $workbook = $parser->parse($ARGV[0]);

if ( !defined $workbook ) {

    die $parser->error(), ".\n";

}

for my $worksheet ( $workbook->worksheets() ) {

    my ( $row_min, $row_max ) = $worksheet->row_range();

    my ( $col_min, $col_max ) = $worksheet->col_range();

#################################################

# get DMA1/2坐标

#################################################

    my %dma;

    for my $row ( $row_min .. $row_max ) {

        for my $col ( $col_min .. $col_max ) {

            my $cell = $worksheet->get_cell( $row, $col );

            next unless $cell;

	    $_ = $cell->value();

	    if(/DMA\d/){

		#print "Row, Col    = ($row, $col)\n\n";

		my $rowtmpfmt=(sprintf "%03d", $row);

		my $coltmpfmt=(sprintf "%03d", $col);

		$dma{$cell->value()} = $rowtmpfmt.$coltmpfmt;

		#print "$_\n\n";

	    }

        }

    }

    #显示DMA坐标

    #foreach my $position (sort keys %dma) {

    #  print "$position = $dma{$position}\n";

    #}

    print "\n\n";

#################################################

# 分别处理DMA1/DMA2（遍历）各个外设

#################################################

    foreach my $dma_name (sort keys %dma){

	#print "$dma_name\n\n";

        my $dma_row = substr($dma{$dma_name},0,3); 	#使用substr得到前三位字符串

        my $dma_col = substr($dma{$dma_name},3,3); 	#使用substr得到后三位字符串

        my $loop_row = $dma_row + 2;

        my $loop_col = $dma_col + 1;

	#print "Row, Col    = ($loop_row, $loop_col)\n";

        #################################################

        # 取得各个外设映射信息

        #################################################

        for my $row ( $loop_row .. $loop_row+31 ) {

	    my @peripherals;

	    my $periph_cell = $worksheet->get_cell( $row, $loop_col-1);  #外设行列确定

	    my $peripherals_name = $periph_cell->value;

	    #print "peripherals_name = $peripherals_name\n";              #外设名字 

            for my $col ( $loop_col .. $loop_col+7 ) {

                my $cell = $worksheet->get_cell( $row, $col );

                next unless $cell;

		if(($cell->value() eq ""))

       	        {

       	           next;

       	        }

                $_ = $cell->value();

		if(/\w+/)

       	        {

		   #print "dma_col = $dma_col\n";

		   my $channel_num = $col - $dma_col - 1;          #计算通道信息

	           my $coltmpfmt=(sprintf "%03d", $channel_num);   #通道信息

		   #print "coltmpfmt = $coltmpfmt\n";

		   my $peripherals_tmp = $coltmpfmt.$cell->value();

		   push(@peripherals,$peripherals_tmp);            #得到外设映射的信息，存入数组,同时将通道信息也存入其中

		   #print "$_\n";

       	        }

            }

	    my $peripherals_num = @peripherals;          #确定映射信息是否为空（==0）

	    if($peripherals_num == 0){

       	        next;                                    #如果为空将不在进行数据分析，进行下一次循环

	    }

	    #print "peripherals = @peripherals\n";

            #################################################

            # 格式化处理外设映射数组元素

            #################################################

	    my @fmtouts;

	    foreach my $peripheral (@peripherals){             #格式化出通道数组

		my $channel_num = substr($peripheral,0,3);     #分离通道信息

		#print "channel_num = $channel_num\n";

		substr($peripheral,0,3) = "";

	        my @peripherals_tmp = split(/\s+/,$peripheral);

		#print "peripherals_tmp = @peripherals_tmp\n";

		my $element_num = @peripherals_tmp;

		my $count = 0;

		while($count < $element_num){                  #附加通道信息

	           $peripherals_tmp[$count] = $channel_num.$peripherals_tmp[$count];

		   #print "peripherals_tmp\[$count\] = $peripherals_tmp[$count]\n";

		   $count++;

		}

		push @fmtouts,@peripherals_tmp;

	    }

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

            #################################################

            # 正则处理：格式化输出

	    # 分析数据：数组1用于查找含（1），数组2用于查找含（2）的外设映射通道信息

            #################################################

	    my $remap_num = @fmtouts;

	    #print "remap_num = $remap_num\n";

            #################################################

            # 处理无映射情况

            #################################################

	    foreach my $fmtout (@fmtouts){

		$_ = $fmtout;

		#print "$_\n";

		if(/\(\d\)/){

		   next;              #去除包含重映射的外设

		}

	 	my $channel_num = substr($fmtout,2,1);     #分离通道信息

		substr($fmtout,0,3) = "";

		my $dma_ack = $dma_name."_ack"."\[".$channel_num."\]";

		my $peripherals_ack = $fmtout."_dma_ack";

		print "assign \L$peripherals_ack = \L$dma_ack;\n";

	    }

            #################################################

            # 处理存在映射的情况

            #################################################

	    my @fmtouts_tmp = @fmtouts;

	    foreach my $fmtout (@fmtouts){

		$_ = $fmtout;

		#print "$_\n";

		if(/\(2\)/){

		   my $channel_2 = substr($fmtout,2,1);        #映射通道2信息

		   my $fmtout = $`;                            #自动，捕获之前的信息

		   substr($fmtout,0,3) = "";                   #去除通道信息，重新赋值

		   my $dma_ack2 = $dma_name."_ack"."\[".$channel_2."\]";

	           foreach my $fmtout_tmp (@fmtouts_tmp){

		       $_ = $fmtout_tmp;

		       if(/$fmtout/){

			  $_ = $fmtout_tmp;

			  if(/\(2\)/){

                             next;

			  }

	 	          my $channel_1 = substr($fmtout_tmp,2,1);     #映射通道2信息

		          substr($fmtout_tmp,0,3) = "";

		          my $dma_ack1 = $dma_name."_ack"."\[".$channel_1."\]";

		          my $peripherals_ack = $fmtout."_dma_ack";

			  my $peripherals_remap = $fmtout."_dma_remap";

		          print "assign \L$peripherals_ack = \L$peripherals_remap ? \L$dma_ack2 : \L$dma_ack1;\n";

		       }

	           }

		}

	    }

	    print "\n";

        }

    }

}

使用方法

dma_parse.pl 顶层文件

|

|--dmaremap_parse.pl

|

|--dmaack_parse.pl

#################################################

# 使用方法

# perl dma_parse.pl dma_map.xls

#################################################

#################################################

# 子文件使用方法

# perl dmaremap_parse.pl dma_map.xls

# perl dmaack_parse.pl dma_map.xls

#################################################

最新文章

  1. MyBatis原理分析之三：初始化（配置文件读取和解析）
  2. 从多个XML文档中读取数据用于显示webapi帮助文档
  3. 故障处理-ORA-00376/ORA-01110
  4. LinQ实战学习笔记(三) 序列,查询操作符,查询表达式,表达式树
  5. ELK-Python（三）
  6. [Everyday Mathematics]20150218
  7. c#文件转化byte数组
  8. ZOJ1221 &amp;&amp; UVA567：Risk(Floyd)
  9. html hack 列表
  10. text-overflow简单使用
  11. VirtualBox不能为虚拟电脑打开一个新任务——The VirtualBox kernel modules do not match this version of VirtualBox
  12. oracle中 特殊字符 转义 （&amp;）
  13. Intellij中部署Tomcat（详细版本-介绍了部署完之后的详细路径）
  14. Daily Scrum- 12/28
  15. PDF Transformer+与Transformer3.0功能对比
  16. [转载]tnsnames.ora监听配置文件详解
  17. CentOs7 安装最新版的Git
  18. 2017年最新cocoapods安装教程（解决淘宝镜像源无效以及其他源下载慢问题）
  19. 通过ajax记录打印信息
  20. Python之pexpect详解

热门文章

  1. Summary Day32
  2. 【LeetCode-面试算法经典-Java实现】【130-Surrounded Regions（围绕区域）】
  3. org.omg.CORBA.MARSHAL: vmcid: SUN minor code: 211 completed: Maybe
  4. JS 原型模式创建对象
  5.  洛谷 P3056 [USACO12NOV]笨牛Clumsy Cows
  6. enq: TX - row lock contention故障处理一则
  7. 玩转Bootstrap（基础） -- （6.导航条基础）
  8. CentOS6重启后DNS被还原的解决办法
  9. Visual Studio Team Services持续集成到Github仓库
  10. PowerApps和Flow，Power BI开发