perl的数据结构
来源：互联网 发布：淘宝优惠劵机器人 编辑：程序博客网 时间：2024/06/05 00:10
不论使用什么语言来设计程序，数据结构都不能忽视，因为数据结构是你整个程序的基础元素。
使用PERL相对与其他的语言而言，数据的定义似乎更加容易。因为PERL里面的数据类型似乎只有3种表现形式：标量，数组，hash.标量不用说，是最简单和基本的形式，数组和hash则相对复杂和强大一些。一般而言，使用数组可以实现类似堆栈、队列、链表之类的数据结构，而hash则可以实现记录、查询表、或者更为复杂的结构。
参考：
（1）perl数据结构：http://blog.sina.com.cn/s/blog_4be5711f01018fgj.html
http://nightsailer.com/2008/03/14/225.html#more-225
（2）perl实例精解 11章 子例程与函数：http://www.alexhe.net/post/14.html
1、结构体：（用哈希实现）
#!/usr/bin/perl -wuse strict; use Clone qw/clone/;use Data::Dumper; my %center_point = {x => undef,y => undef,dx => undef,dy => undef}; my %mycp;¢er_point_init(\%mycp);print Dumper %mycp; sub center_point_init{my ($param) = @_;my %cp = %center_point;$cp{x} = 1;$cp{y} = 2;$cp{dx} = 10;$cp{dy} = 20;%$param = %cp; #传递哈希的引用，以改变指向哈希的值#print Dumper %cp;}2、复杂数据结构：
二维数组：my @twoArr = ([1,"a"],[2,"b"]);
Hash的数组：my @hashArr =(%hash1,%hash2);
数组的Hash：my %arrHash = {@arr1,@arr2);
Hash的Hash：my %arrHash = {%hash1,%hash2);
#标量、perl数组、hash的几个特点：
#1）长度是动态的，可以任意增加/删除其元素；对超出数组长度的下标的元素赋值，数组的长度就会改变，仅引用则数组长度不变；
#2）perl进行内存管理，不需用户进行内存操作（对不用的变量和元素删除，会减小内存开销）；
#3）子程序传递时，数组/hash一般传其引用，开销小且可以改变其值；
#4）hash可作为结构体使用，定义前需约定好变量名称（如%center_point ）；且最好不要在使用中，对其元素进行增删操作；
#5）Hash的数组复杂的数据结构作为形参传递时，其实本质还是数组；
#6）Hash数组：my @arrHash 的使用：$arrHash[$i]->{key};$arrHash[$i]{key};${$arrHash[$i]}{key}; 三种方式均OK，推荐第一种。
#hash与其引用my %hash = (k1=>"v1",k2=>"v2");my $phash = \%hash; print $hash{k1},"\n";print $phash->{k1},"\n";print ${$phash}{k1},"\n";#7）（个人理解，不知正确与否）标量没有赋值，可直接作为数组或hash的引用，但使用中必须保持一致，不能既作数组的引用，又作hash的引用。
所以Hash数组作为形参时，是不需要在前面定义好数组中的每个hash元素的；也不必对某个欲当作Hash引用的标量进行Hash实体赋值。当然，使用前仍需要注意对其初始化。
#标量没有赋值，直接作为数组/hash的引用my $param;$param->[8]=200;#$param->{good} = "ok";#Hash的数组use Clone qw/clone/;my %hashGroup=( name=>undef); #初始化"Hash的数组"$param_arrHash:元素$param_hash,大小:$param_size。sub arrHashGroupInit{my ($param_arrHash,$param_hash,$param_size) = @_; for(my $i=0;$i<$param_size;$i++) { my %hash_temp = %hashGroup; ${$param_arrHash}[$i] = \%hash_temp;foreach my $key (keys(%$param_hash)){${$param_arrHash}[$i]->{$key} = "init".$i; #初始化hash} }}my @arrHashGroup;arrHashGroupInit(\@arrHashGroup,\%hashGroup,10); print $#arrHashGroup,"\n"; #9print $arrHashGroup[3]->{name},"\n"; #init3#8) padre IDE编译perl，有时存在忽略某一代码行（非注释行）的情况，当出现比较怪异的事情时，可能是由此导致的。原因可能是，utf-8的pl文件解析出该行为注释行；此问题容易出现在“#”注释行的下一代码行。
3、perl哈希hash的常见用法介绍：http://www.jb51.net/article/33905.htm
Perl学习之哈希 hash：http://linux.chinaunix.net/techdoc/net/2008/07/06/1015218.shtml
perl中数组初始化：http://blog.163.com/qin_kexin@126/blog/static/7915547820122144582883/
Perl – 打印哈希：http://tech.mclarian.com/a/252
#hash遍历打印my %ghash=( k1 => "v1", k2 => "v2", ); #1print Dumper(\%ghash);#2。推荐foreach my$key (keys(%ghash)){ print "$key = $ghash{$key} \n";}#3.使用each有风险while(my ($key,$value) = each(%ghash)){ print "$key = $value \n";}#常量use constant { LOG_NULL=>0, LOG_ERR=>1, LOG_WARNING=>2, LOG_DEBUG=>4, LOG_INFO=>8 };4、ttcn脚本用例转csv用例表：
#!/usr/bin/perl -w################################################use strict;use Clone qw/clone/;use Data::Dumper;use Time::HiRes qw(gettimeofday usleep);#################################################Description:从TTCN语言的测试用例脚本，根据t2e.cfg中配置规则，生成与脚本对应的excel用例表。#t2e.cfg与testcase_3mp_file，必须为ANSI编码格式.#:usage: ttcn2excel.pl [-d] testcase_3mp_file#:filename 输入用例3mp文件#-d:调试打印。#eg: ttcn2excel.pl -d testcase.3mp################################################use constant { NULL_TYPE=>0, NOTES_TYPE=>1, GROUP_TYPE=>10, CASE_TYPE=>11, CASE_CODE_TYPE=>12, CASE_HEAD_TYPE=>13, LOG_NULL=>0, LOG_ERR=>1, LOG_WARNING=>2, LOG_DEBUG=>4, LOG_INFO=>8 }; my $g_log_level = LOG_ERR; #my ($start_sec, $start_usec) = gettimeofday; my %g_keys_index = ( line_num => 10, group_id => 1, group_level_start => 2, # defined for $group_comment. case_id => -1, # 7 p_case_head_arr => 0 # NoUsed.defined for %case_head:"{testcasename:}=>5"; ); &ttcn2excel(); ############################################################## #单行的属性描述信息my %lineInfo=( type=>undef, #TYPE note_left_cnt=>undef, #有效"/*"的个数 note_right_cnt=>undef, #“*/” scale_left_cnt=>undef, #有效"{"的个数 scale_right_cnt=>undef, #“}” pElem=>undef); my %keyv=( key=>undef, value=>undef, pos=>undef, match=>undef); my %hashGroup=( id=>undef, level=>undef, pos_start=>undef, pos_end=>undef); my %hashCase=( id=>undef, level=>undef, pos_start=>undef, pos_end=>undef, head=>undef); #初始化"Hash的数组"$param_arrHash:元素$param_hash,大小:$param_sizesub arrHashGroupInit{=pos my ($param_arrHash,$param_hash,$param_size) = @_; #(\@out_arr,\%in_hash,\$in_var); for(my $i=0;$i<$param_size;$i++) { my %hash_temp = %hashGroup; ${$param_arrHash}[$i] = \%hash_temp; foreach my $key (keys(%$param_hash)) { ${$param_arrHash}[$i]->{$key} = 0; #初始化hash } }=cut} #打印"Hash"sub arrHashPrint{ my ($param_Hash) = @_; #(\%in_hash); foreach my $key (keys(%{$param_Hash})) { print "$key = $param_Hash->{$key}\n"; }} #打印"Hash的数组"sub arrHashGroupPrint{ my ($param_arrHash) = @_; #(\@out_arr); for(my $i=0;$i<$#{$param_arrHash}+1;$i++) { arrHashPrint(\%{${$param_arrHash}[$i]}); }} # $g_log_level;#my $PF_LOG_OUT;sub debug_print{ my ($log_level,@param) = @_; if($log_level <= $g_log_level) { print @param; print PF_LOG_OUT @param; }} #输出csv。#my $PF_CSV_OUT;sub print_out_init{ my ($FileOut) = @_; # ($FileOutName) open(PF_CSV_OUT,">$FileOut") or die "[ERROR].can not open csv_outfile:$FileOut\n"; my $logFileOut = "c:\\ttcn2excel.log"; open(PF_LOG_OUT,">$logFileOut") or die "[ERROR].can not open log_outfile:$logFileOut\n";}sub print_out{ my (@param) = @_; print PF_CSV_OUT @param;} sub print_out_terminate{ close(PF_CSV_OUT); close(PF_LOG_OUT);}##############################################################sub ttcn2excel(){ my $FileIn = "test.3mp"; my $FileOut = "ttcn2excel.csv"; my $FileStandConf = "t2e.cfg"; my $RegExp = ""; my $RegMode = 0; my $RegNumId = -1; my $params_num = 0; #=pod if(@ARGV < 1) { print "usage: ttcn2excel.exe [-d] testcase_3mp_file\n"; exit; } for(my $i=0; $i < @ARGV; $i++) { if("-d" eq $ARGV[$i]) { $g_log_level = LOG_INFO; $i++; } elsif("-o" eq $ARGV[$i]) { #$FileOut = $ARGV[$i]; #$i++; } else { $FileIn = $ARGV[$i]; } } #=cut #open infile and outfile. open(PF_IN,"<$FileIn") or die "[ERROR].can not open infile:$FileIn\n"; open(PF_CONF,"<$FileStandConf") or die "[ERROR].can not open configure file:$FileStandConf\n"; #open(PF_OUT,">$FileOut") or die "error.can not open outfile:$FileOut\n"; my @arrTtcnIn = <PF_IN>; my @arrConf = <PF_CONF>; my @Words =("#outtitle","#sys","#head","#body"); my @kv = ("k=","v="); my $Outtitle=""; my @arrOuttitle = (); my @arrHashSyskeys = (); #[0]=group and [1]=testcase my @arrHashCasehead = (); my @arrHashCasebody = (); my @arrTtcnLineInfo = (); close(PF_IN); close(PF_CONF); #arrHashGroupInit(\@arrHashSyskeys,\%keyv,10); #arrHashGroupInit(\@arrHashCasehead,\%keyv,100); #arrHashPrint(\%{$arrHashSyskeys[0]}); #cost time and print_out init. my $first_time = time(); print_out_init($FileOut); #read template from $FileStandConf = "t2e.cfg". my $p_ref_arrHash; my $ConfWords_flag =0; my $cnt=0; for(my $i=0;$i<@arrConf;$i++) { chomp $arrConf[$i]; if($arrConf[$i] =~ /\s*$Words[0]/ and 0 == $ConfWords_flag) #"#outtitle" { $i++; $Outtitle = $arrConf[$i]; chomp $Outtitle; #$Outtitle =~ s/\s+//g; @arrOuttitle = split(",",$Outtitle); } elsif($arrConf[$i] =~ /\s*$Words[1]/) #"#sys" { $ConfWords_flag =1; $p_ref_arrHash = \@arrHashSyskeys; $cnt=0; } elsif($arrConf[$i] =~ /\s*$Words[2]/) #"#head" { #"#sys" $ConfWords_flag =2; $p_ref_arrHash = \@arrHashCasehead; $cnt=0; } elsif($arrConf[$i] =~ /\s*$Words[3]/) #"#body" { $ConfWords_flag =3; $p_ref_arrHash = \@arrHashCasebody; $cnt=0; } elsif($arrConf[$i] =~ /\s*$kv[0]/ and $ConfWords_flag > 0) #"k=" { my $key = $arrConf[$i]; $key =~ s/\s*$kv[0](.*)/$1/; $i++; if($arrConf[$i] =~ /\s*$kv[1]/) #"v=" { my $value = $arrConf[$i]; chomp($value); $value =~ s/\s*$kv[1](.*)/$1/; #$p_ref_arrHash->[$cnt]->{$key} = $value; #error. $p_ref_arrHash->[$cnt]->{key} = $key; $p_ref_arrHash->[$cnt]->{value} = $value; $cnt++; #print $key,"=$value\n"; } } }=pod print $#arrHashSyskeys,"\n"; print $#arrHashCasehead,"\n"; arrHashGroupPrint(\@arrHashSyskeys);=cut debug_print LOG_ERR,"\n******************************************************************************\n"; debug_print LOG_ERR,"Input >>\nttcn_file: $FileIn"," LinesNum: ".($#arrTtcnIn+1),"\n\n"; debug_print LOG_ERR,"OutTittle >>\n",$Outtitle,"\n\n"; #get the pos of hash_value for arrHashCasehead. debug_print LOG_ERR,"CaseHead >>\n"; my $match_flag =0; for(my $i=0;$i<($#arrHashCasehead+1);$i++) { debug_print LOG_ERR,${$arrHashCasehead[$i]}{key},${$arrHashCasehead[$i]}{value},"\n"; #debug_print LOG_ERR,$arrHashCasehead[$i]{key},$arrHashCasehead[$i]{value},"\n"; #debug_print LOG_ERR,$arrHashCasehead[$i]->{key},$arrHashCasehead[$i]->{value},"\n"; $match_flag = 0; for(my $j=0;$j<($#arrOuttitle+1);$j++) { if( ${$arrHashCasehead[$i]}{value} eq $arrOuttitle[$j]) { ${$arrHashCasehead[$i]}{pos} = $j; $match_flag =1; last; } } if(1 != $match_flag) { ${$arrHashCasehead[$i]}{pos} = -1; debug_print LOG_ERR,"[WARNING].This value has no pos in the outtitle","\n"; } } #get the pos of hash_value for arrHashCasebody. debug_print LOG_ERR,"\nCaseBody >>\n"; for(my $i=0;$i<($#arrHashCasebody+1);$i++) { debug_print LOG_ERR,$arrHashCasebody[$i]->{key},$arrHashCasebody[$i]->{value},"\n"; $match_flag = 0; for(my $j=0;$j<($#arrOuttitle+1);$j++) { if( ${$arrHashCasebody[$i]}{value} eq $arrOuttitle[$j]) { ${$arrHashCasebody[$i]}{pos} = $j; $match_flag =1; last; } } if(1 != $match_flag) { ${$arrHashCasebody[$i]}{pos} = -1; debug_print LOG_ERR,"[WARNING].This value has no pos in the outtitle","\n"; } } #init %g_keys_index that will be used when outputing. $g_keys_index{line_num} = $#arrOuttitle + 1; #$g_keys_index{group_id} = ; #$g_keys_index{case_id} = ; my $group_match_flag = 0; my $testcase_match_flag = 0; for(my $j=0;$j<($#arrOuttitle+1);$j++) { if( ${$arrHashSyskeys[0]}{value} eq $arrOuttitle[$j]) { $g_keys_index{group_id} = $j; $group_match_flag =1; next; } elsif( ${$arrHashSyskeys[1]}{value} eq $arrOuttitle[$j]) { $g_keys_index{case_id} = $j; $testcase_match_flag =1; next; } } if(0 == $group_match_flag) { debug_print LOG_ERR,"[ERROR].group of syshead has no pos in the outtitle","\n"; } if(0 == $testcase_match_flag) { debug_print LOG_ERR,"[ERROR].testcase of syshead has no pos in the outtitle","\n"; } $g_keys_index{group_level_start} = $g_keys_index{group_id} + 1; #out csv. print_out($Outtitle."\n"); debug_print LOG_ERR,"\n******************************************************************************\n"; arrHashGroupInit(\@arrTtcnLineInfo,\%lineInfo,$#arrTtcnIn+1); #start to parse. findkeyAllLines(\@arrTtcnIn,\@arrTtcnLineInfo,\@arrHashCasehead,\@arrHashCasebody); #clac cost time my $end_time = time() - $first_time; debug_print LOG_ERR,"**********************finished.it takes time: $end_time s ****************************\n"; #close filehandle. print_out_terminate(); } ###############################################################去除某行TTCN语法所有的字符串与注释sub delLineNotes{ my ($inout_line) =@_; #(\$inout_param) #print $in_line; $$inout_line =~ s#\".*?\"##g; #去除"" $$inout_line =~ s#\/\/.*##g; #再去除// $$inout_line =~ s#\/\*.*?\*\/##g; #再去除/**/ $$inout_line =~ s#\/\*.*##g; #再去除/* $$inout_line =~ s#.*\*\/##g; #再去除*/} #识别单行TTCN语法中有效的“/*”、“*/”的个数。sub findComment{ my ($in_line,$p_out_left_cnt,$p_out_right_cnt)=@_; #($in_param1,\$out_param1,\$out_param2); my $line=$in_line; #print $in_line; $line =~ s#\".*?\"##g; #去除"" $line =~ s#\/\/.*##g; #再去除// $$p_out_left_cnt = 0; $$p_out_right_cnt = 0; my @arr=(); if(@arr = ($line =~ m#\/\*#g)) { $$p_out_left_cnt = $#arr+1; } if(@arr = ($line =~ m#\*\/#g)) { $$p_out_right_cnt = $#arr+1; }} #识别单行TTCN语法中有效的“{”、“}”的个数。sub findRangeMark{ my ($in_line,$p_out_left_cnt,$p_out_right_cnt)=@_; #($in_param1,\$out_param1,\$out_param2); my $line=$in_line; #print $in_line; $line =~ s#\".*?\"##g; #去除"" $line =~ s#\/\/.*##g; #再去除// $line =~ s#\/\*.*?\*\/##g; #再去除/**/ $line =~ s#\/\*.*##g; #再去除/* $line =~ s#.*\*\/##g; #再去除*/ $$p_out_left_cnt = 0; $$p_out_right_cnt = 0; my @arr=(); if(@arr = ($line =~ /{/g)) { $$p_out_left_cnt = $#arr+1; } if(@arr = ($line =~ /}/g)) { $$p_out_right_cnt = $#arr+1; }} =test findRangeMarkprint "{=1 ; }=2 ; {}=3\n";my $line="dfeaddfae\"{}\"fadd//{}ddddf";my ($out_flag,$out_flag1) =(18,19);findRangeMark($line,\$out_flag,\$out_flag1);print "left: $out_flag right: $out_flag1\n";=cut #查找某行的testcase_idsub findLineTestCase{ my ($in_line,$out_group_id) = @_; #($in_line,\$out_group_id) my $line = $in_line; delLineNotes(\$line); $$out_group_id = ""; if(my @arr = ($line =~ m#^\s*testcase\s*(.*?)\s*runs#)) { $$out_group_id = $arr[0]; } return $$out_group_id;} #查找某行的group_idsub findLineGroup{ my ($in_line,$out_group_id) = @_; #($in_line,\$out_group_id) my $line = $in_line; delLineNotes(\$line); $$out_group_id = ""; if(my @arr = ($line =~ m#^\s*group\s*(.*?)\s*$#)) { $$out_group_id = $arr[0]; } return $$out_group_id;} ##############################################################my @g_arr_group_mark;sub print_group_init{ my ($p_arr_group_mark) = @_; @g_arr_group_mark = @{$p_arr_group_mark};}sub str_init{ my ($str,$num) = @_; my $ret = ""; for(my $i=0;$i<$num;$i++) { $ret = $ret.$str; } return $ret;}#按行输出到csvsub print_csv{ my ($p_in_arr_csv_line) = @_; # (\@ArrCsv) my $len = $#{$p_in_arr_csv_line}+1; my $line=""; for(my $i=0;$i<$len;$i++) { my $in_line = ${$p_in_arr_csv_line}[$i]; $in_line =~ s#"#""#g; #for the ". if(0 ==$i) { $line = $in_line; next; } $line = $line.','."\"$in_line\""; #add “” for each element of the array. } #add "\n" of the array end. $line = $line."\n"; #output to csv file. print_out $line; debug_print LOG_INFO,"[csv_out]:: ",$line,"\n";} #输出Group行 sub print_csv_group{ my ($group_id,$level,$group_comm) = @_; # (\@ArrCsv) print_cvs_group($group_id,$level,$group_comm); my @arrLine; my %keys_index = %g_keys_index; debug_print LOG_INFO,"###print_csv_group ing for ",".... \n"; for(my $i=0;$i<$keys_index{line_num};$i++) { $arrLine[$i] = ""; } $arrLine[0] = str_init("\.",$level); $arrLine[$keys_index{group_id}] = $group_id; $arrLine[$keys_index{group_level_start} + $level -1] = $group_comm; #output print_csv(\@arrLine); } #Des:输出用例行#t2e。cfg与用例中头部关键字描述顺序必须一致。sub print_csv_case{ my ($case_id,$p_in_arr_hash_case_head,$p_in_arr_hash_case_body) = @_; my @arrLine; my %keys_index = %g_keys_index; my $pos_flag = 1; debug_print LOG_INFO,"###print_csv_case ing for case_id and ",$#{$p_in_arr_hash_case_head} + 1," keys in case head.... \n"; for(my $i=0;$i<$keys_index{line_num};$i++) { $arrLine[$i] = ""; #查找$i对应的head输出项。 my $item = -1; for(my $j=0;$j<($#{$p_in_arr_hash_case_head} + 1);$j++) { if($i == $p_in_arr_hash_case_head->[$j]->{pos}) { $item = $j; last; } } #找到则输出 if(-1 != $item) { $arrLine[$i] = $p_in_arr_hash_case_head->[$item]->{match}; next; } #查找$i对应的body输出项。 $item = -1; for(my $j=0;$j<($#{$p_in_arr_hash_case_body} + 1);$j++) { if($i == $p_in_arr_hash_case_body->[$j]->{pos}) { $item = $j; last; } } #找到则输出 if(-1 != $item) { $arrLine[$i] = $p_in_arr_hash_case_body->[$item]->{match}; next; } } $arrLine[0] = str_init("\.",5); if ($keys_index{case_id} >= 0 ) { $arrLine[$keys_index{case_id}] = $case_id; } #output print_csv(\@arrLine); } #Des:在用例对应的头部中，查找关键字的信息#t2e。cfg与用例中头部关键字描述顺序必须一致。sub findCaseHead{ my ($p_in_arrLines,$p_inout_arrHashCasehead) = @_; #(\@in_arrLines,\@arrHashCasehead) my @arrLine = @$p_in_arrLines; my @arrHashCaseHead = @$p_inout_arrHashCasehead; my @elem_flag; #记录找到的项； my $item = -1; #找到的当前项 my $ret =0; #init for(my $j = 0;$j<($#arrHashCaseHead+1);$j++) { $elem_flag[$j] = 0; $p_inout_arrHashCasehead->[$j]->{match} = ""; } debug_print LOG_INFO,"###findCaseHead ing for ",$#arrHashCaseHead+1," keys in case head.... \n"; for(my $i=0;$i<($#arrLine+1);$i++) { chomp($arrLine[$i]); if($arrLine[$i] =~ m#^\s*$#) #空行则跳过。 { next; } elsif($arrLine[$i] =~ m#\*/\s*$#) #"*/结束" { last; } #查找是否为case head中的某key项。找到则输出。 my $find_flag = 0; my @arrMatch; for(my $j = 0;$j<($#arrHashCaseHead+1);$j++) { my $expre = $arrHashCaseHead[$j]->{key}."(.*)"; if(@arrMatch = ($arrLine[$i] =~ m#$expre#)) { $find_flag = 1; $item = $j; $elem_flag[$j] = 1; $arrMatch[0] =~ s#^\s*##g; #去除前后的空格 $arrMatch[0] =~ s#\s*$##g; $p_inout_arrHashCasehead->[$j]->{match} = $arrMatch[0]; last; } } if(1 == $find_flag) { next; } #续行 if($item >= 0) { $arrLine[$i] =~ s#^\s*##g; $arrLine[$i] =~ s#\s*$##g; $p_inout_arrHashCasehead->[$item]->{match} = $p_inout_arrHashCasehead->[$item]->{match}."\n".$arrLine[$i]; } } for(my $i=0;$i<($#arrHashCaseHead+1);$i++) { debug_print LOG_INFO,"\[",$p_inout_arrHashCasehead->[$i]->{key},"]>>> ",$p_inout_arrHashCasehead->[$i]->{match},"\n"; } for(my $j = 0;$j<($#arrHashCaseHead+1);$j++) { if(0 == $elem_flag[$j]) { debug_print LOG_ERR, "[ERROR]..can not find: ",$arrHashCaseHead[$j]->{key},"\n"; $ret = -1; } } return $ret;}#在整个3mp文件中，查找所有的group、testcase、case_head的信息，并输出到csv。sub findkeyAllLines{ my ($p_in_arr_lines,$p_out_arr_lineInfo,$p_inout_arrHashCasehead,$p_inout_arrHashCaseBody) = @_; #{\@LineArr,\@lineInfo,\@arrHashCasehead,\@arrHashCasebody); my @arrLines = @{$p_in_arr_lines}; my $len = $#arrLines + 1; my $group_cnt = 0; my $group_id = 0; my $testcase_cnt = 0; my $testcase_id = 0; my $out_left_cnt; my $out_right_cnt; my $note_left_sum =0; my $note_right_sum =0; my $group_range_left_sum =0; my $group_range_right_sum =0; my $case_range_left_sum =0; my $case_range_right_sum =0; my $testcase_flag = 0; my $testcase_output_flag = 0; my $group_level = 0; my $group_start_range_num = 0; my $max_group_level = 0; my $group_first_flag = 1; my %hash_log = ( last_group_id=>-1, last_group_start_line=>-1, last_group_end_line=>-1, last_testcase_id=>-1, last_testcase_start_line=>-1, last_testcase_end_line=>-1); for(my $i=0;$i<$len;$i++) { chomp $arrLines[$i]; #debug_print "line:$i $arrLines[$i]\n"; $p_out_arr_lineInfo->[$i]->{type} = CASE_CODE_TYPE; if($arrLines[$i] =~ m#^\s*//# or $arrLines[$i] =~ m#^\s*$#) #空行或//行 { $p_out_arr_lineInfo->[$i]->{type} = NOTES_TYPE; #debug_print "NOTE_1\n"; next; } findComment($arrLines[$i],\$out_left_cnt,\$out_right_cnt); if($note_left_sum > $note_right_sum and $out_left_cnt > $out_right_cnt) #for ttcn,filter "/*" betwwen "/*" and "*/". { $out_left_cnt = 0; $out_right_cnt = 0; } $note_left_sum += $out_left_cnt; $note_right_sum += $out_right_cnt; #TODO: if($note_left_sum != $note_right_sum or $out_left_cnt != $out_right_cnt) #注释行 { $p_out_arr_lineInfo->[$i]->{type} = NOTES_TYPE; #debug_print LOG_INFO," $i NOTE_2\n"; next; } findRangeMark($arrLines[$i],\$out_left_cnt,\$out_right_cnt); if(1 == $testcase_flag ) { $case_range_left_sum += $out_left_cnt; $case_range_right_sum += $out_right_cnt; if($case_range_left_sum <= $case_range_right_sum) { $testcase_flag = 0; $hash_log{last_testcase_end_line}=$i; if(0 == $testcase_output_flag) { $p_inout_arrHashCaseBody->[0]->{match} = ""; debug_print LOG_ERR,"[ERROR].This case does not set case_body_type.line:$hash_log{last_testcase_start_line} testcase:$hash_log{last_testcase_id}\n"; } print_csv_case($testcase_id,$p_inout_arrHashCasehead,$p_inout_arrHashCaseBody); debug_print LOG_INFO,"line:$i case END\n"; #may be the end of the group. if($case_range_left_sum < $case_range_right_sum) #get the end of group. { my $end_level = ($group_range_left_sum - $group_range_right_sum) - $group_start_range_num; my $end_level2 = $end_level - ($case_range_right_sum - $case_range_left_sum)+1; $hash_log{last_group_end_line}=$i; debug_print LOG_INFO,"\nline:$i the end of group level:\[$end_level - $end_level2]\n"; } $group_range_right_sum += ($case_range_right_sum - $case_range_left_sum); } #find case body , output head and body together. if(0 == $testcase_output_flag and my @arrRet = ($arrLines[$i] =~ m#$p_inout_arrHashCaseBody->[0]->{key}\((.*?),#)) { $p_inout_arrHashCaseBody->[0]->{match} = $arrRet[0]; $testcase_output_flag = 1; } #=pos #[ERROR]. my $tmp; findLineTestCase($arrLines[$i],\$tmp); if("" ne $tmp) { debug_print LOG_ERR,"[ERROR].line:$i testcase.$testcase_id "; } findLineGroup($arrLines[$i],\$tmp); if("" ne $tmp) { debug_print LOG_ERR,"[ERROR].line:$i testcase.$testcase_id "; }#=cut next; } findLineTestCase($arrLines[$i],\$testcase_id); if("" ne $testcase_id) { $testcase_cnt++; $testcase_flag = 1; $testcase_output_flag = 0; $case_range_left_sum = $out_left_cnt; $case_range_right_sum = $out_right_cnt; $p_out_arr_lineInfo->[$i]->{type} = CASE_TYPE; #$p_out_arr_lineInfo->[$i]->{pElem} = \%{${$p_out_arr_hashCase}[$testcase_cnt]}; #ok $p_out_arr_lineInfo->[$i]->{pElem}->{id} = $testcase_id; $p_out_arr_lineInfo->[$i]->{pElem}->{pos_start} = $i; $hash_log{last_testcase_start_line}=$i; $hash_log{last_testcase_id}=$testcase_id; debug_print LOG_INFO,"\nline:$i testcase:$testcase_id\n"; #get case_head. my $m =$i-1; my $n = -1; my @arrCaseHeadLines = (); for(;$m >= 0;$m--) { if($arrLines[$m] =~ m#$p_inout_arrHashCasehead->[0]->{key}#i) #找到case_head { $n = $m; last; } elsif($p_out_arr_lineInfo->[$m]->{type} ne NOTES_TYPE) { debug_print LOG_ERR,"\n[ERROR].line:$i testcase:$testcase_id.This testcase has no case_head\n"; last; } } if(-1 != $n) { my $len = $i -$n; for(my $i_0 = 0;$i_0 < $len;$i_0++) { $arrCaseHeadLines[$i_0] = $arrLines[$n+$i_0]; } } my $ret = findCaseHead(\@arrCaseHeadLines,$p_inout_arrHashCasehead); if(0 != $ret) { debug_print LOG_ERR,"line:$i testcase:$testcase_id\n"; } #make sure the output of this case even if it has no case_head. #print_csv_case($testcase_id,$p_inout_arrHashCasehead); next; } findLineGroup($arrLines[$i],\$group_id); if("" ne $group_id) { if(1 == $group_first_flag) { $group_start_range_num = ($group_range_left_sum - $group_range_right_sum); $group_first_flag = 0; } $group_level = ($group_range_left_sum - $group_range_right_sum) - $group_start_range_num + 1; $group_cnt++; #get group comment. my $group_comm = ""; my @group_comm0; if(@group_comm0 = ($arrLines[$i-1] =~ m#\s*//(.+?)\s*$#)) { $group_comm = $group_comm0[0]; } else { debug_print LOG_ERR,"\n[ERROR].line:$i group:$group_id level:$group_level.This group has no group_comment\n"; } $p_out_arr_lineInfo->[$i]->{type} = GROUP_TYPE; #$p_out_arr_lineInfo->[$i]->{pElem} = \${$p_out_arr_hashGroup}[$group_cnt]; #[ERROR]. $p_out_arr_lineInfo->[$i]->{pElem}->{id} = $group_id; $p_out_arr_lineInfo->[$i]->{pElem}->{pos_start} = $i; $p_out_arr_lineInfo->[$i]->{pElem}->{level} = $group_level; $hash_log{last_group_start_line}=$i; $hash_log{last_group_id}=$group_id; debug_print LOG_INFO,"\nline:$i group:$group_id level:$group_level comment:$group_comm......\n"; print_csv_group($group_id,$group_level,$group_comm); } if($out_right_cnt > $out_left_cnt) #get the end of group. { my $end_level = ($group_range_left_sum - $group_range_right_sum) - $group_start_range_num; my $end_level2 = $end_level - ($out_right_cnt - $out_left_cnt)+1; $hash_log{last_group_end_line}=$i; debug_print LOG_INFO,"\nline:$i the end of group level:[$end_level - $end_level2]\n"; } #freah data stats. $group_range_left_sum += $out_left_cnt; $group_range_right_sum += $out_right_cnt; } debug_print LOG_ERR,"\n******************************************************************************\n"; debug_print LOG_ERR,"last_group: ".$hash_log{last_group_id}." level: $group_level"," line: ".$hash_log{last_group_start_line}.",".$hash_log{last_group_end_line},"\n"; debug_print LOG_ERR,"last_testcase: ".$hash_log{last_testcase_id}," line: ".$hash_log{last_testcase_start_line}.",".$hash_log{last_testcase_end_line},"\n"; # if($group_range_left_sum != $group_range_right_sum) { debug_print LOG_ERR,"\@[ERROR].group scacle{} is wrong.\n"; } debug_print LOG_ERR,"\ngroupTotal: $group_cnt\n"; debug_print LOG_ERR,"testcaseTotal: $testcase_cnt\n"; }t2e.cfg: >>
#outtitle
序号,group,一级,二级,三级,四级,五级,用例名,自动化类型,步骤,期望,备注
#sys.v must be in the outtitle."group" and "testcase" can not be modified.
k=group
v=一级
k=testcase
v=用例名
#head. keep the right order.defined thd searched item and output position.and it will skip unexisted k-item in the case_heads.
k=@testcase:
v=用例名
k=@teststep:
v=步骤
k=@testexpect:
v=期望
#body. case body.
k=setcaseinfo
v=自动化类型
test.3mp: >>
//COMMENT
group GROUP0
{
//COMMENT
group GROUP0_1
{
/*
@testcase:CASE0_0
@testste:1、初始化"Init,Control" ;
2、运行
@testexpect:run ok。
*/
testcase CASE0_0() runs on
{
setcaseinfo(true,"");
{
}
// /* */
/*
*/
} //end of testcase
} // end of group GROUP0_1
} // end of group GROUP0
0 0
- perl数据结构的应用
- perl的数据结构
- Perl数据结构
- Perl入门（八）Perl的复杂数据结构
- perl 监控数据库用到的数据结构
- perl中的数据结构
- Perl基础教程：复杂数据结构
- Program perl 数据结构
- Perl数据结构--数组
- perl 打印复杂数据结构
- perl笔记（2）-数据结构
- perl数据结构输出 Data::Dumper
- encode_json 会对给定的Perl的数据结构转换为一个UTF-8 encoded, binary string.
- 【利用perl的基因数据处理】复杂数据结构：矩阵 and Edit Distance Matrix
- 【perl】学习笔记（八）--复杂数据结构
- 神奇的Perl-最佳Perl入门读物
- perl Statistics::Descriptive Perl 的统计模块
- Perl入门（三）Perl的数组
- LeetCode Majority Element II
- opencv2.4.9学习_加载并显示一个图像
- perl 数字<->字符串及其进制间的转换
- 杭电2602
- 京东商品详情页应对“双11”大流量的技术实践
- perl的数据结构
- VIM 文件编码识别与乱码处理
- Could not write Ctrl/Stat register
- 一个示例性的Unity Shader例子
- POJ 3734 矩阵加速dp
- 输入带有空格字符串的三种方法
- Android软键盘的用法总结
- 获取Android 光感Sensor的值
- android-Building a Dynamic UI with Fragments
