首页 | 新闻 | 新品 | 文库 | 方案 | 视频 | 下载 | 商城 | 开发板 | 数据中心 | 座谈新版 | 培训 | 工具 | 博客 | 论坛 | 百科 | GEC | 活动 | 主题月 | 电子展
返回列表 回复 发帖

perl对数组的操作(4)

perl对数组的操作(4)

如何判断某个数组中是否存在某个元素
如果数组是@array类型,则有两种判断方法:
1.循环判断,好处是可以获取该元素的索引。

my@array=qw(var1 var2 var3);
my %pos;
my $index= 0;
map {$pos{$_}=$index++}@array;

if(exists$pos{var1}){
warn "yes/n";
}

2.智能匹配判断,好处是代码简洁。

if($elem~~@array)  #该方法数组中不能有null值 否则会影响判断
如果$elem是数值类型的,则使用:

if($elem+ 0 ~~@array)
实例如下:

my@array=qw(1 2 3 4);
my $elem="1";
if ($elem+ 0~~@array)
{
   print "yes/n";
}
如果数组是%hash类型的话,则更加简单,可以直接使用:

if(exists$hash{$key})




二维数组:

实例运用:  @select_col为二维数组

  my @select_col;
        
       my $select_data;
         #while($select_data=$sth_select->fetchrow_arrayref())        
        #{
        
        
            #    if($data_str ne "")
            #  {
                   #    $data_str="$data_str,";
              #  }

              #   $data_str=$data_str."[$gid,'+',['".join("','",@{$select_data})."']]";
                 
     
       # }
          my $nn=0;
          while($select_data=$sth_select->fetchrow_arrayref())
           {
                  $select_col[$nn]=[@$select_data];  
                   $nn++;
           }
              printf("读出时间%.1f seconds.\n",time-$startTime);
              
              
                     my $startTime=time;
              my @col_data;
              foreach my  $aref (@select_col)
              {
             @col_data=@{$aref};
             #print @col_data;
            
                     if($data_str ne "")
               {
                        $data_str="$data_str,";
            }
                  $data_str=$data_str.'['.$gid.",'+',['";
                 
               for(my $nnn=0;$nnn<=@col_data;$nnn++)
          {
           
                 
            
            if($nnn==@col_data)
            {
            $data_str=$data_str.@col_data[$nnn]."']]";
        }
            else
            {
            $data_str=$data_str.@col_data[$nnn]."','"
            }
            
            }
             }



二维数组的基本知识:

•1 数组与引用
•2 声明的区别
•3 访问的区别
•4 添加行元素
•5 添加列元素
•6 访问与打印
•6.1 运算符优先级
•6.2 访问一个
•6.3 遍历
•7 切片
1 数组与引用
此处引用相当于C中的指针。
二维数组第一列不存储具体元素而是存储指向该行一维数组的引用。


2 声明的区别
•数组用如下形式声明:
数组名前加@,之后用()。





my @AoA = (
           [ "fred", "barney", "pebbles", "bambam", "dino", ],
           [ "george", "jane", "elroy", "judy", ],
           [ "homer", "bart", "marge", "maggie", ],
          );
•引用如下形式声明:
引用名前用$,之后用[]。





$ref_to_AoA = [
               [ "fred", "barney", "pebbles", "bambam", "dino", ],
               [ "george", "jane", "elroy", "judy", ],
               [ "homer", "bart", "marge", "maggie", ],
              ];
3 访问的区别
•数组访问





$AoA[$i][$j]
因为第一列数组里面存放的是引用,所以还可以这样访问:





$AoA[$i]->[$j]
•引用访问





$ref_AoA->[$i][$j]
同理引用还可以这样访问:





$ref_AoA->[$i]->[$j]
4 添加行元素



my (@AoA, $ref_to_AoA);


sub print_AoA{
    for (@AoA) {
        print "@{$_}\n";
    }
    print "\n";
}


# assign to our array, an array of array references
@AoA = (
           [ "fred", "barney", "pebbles", "bambam", "dino", ],
           [ "george", "jane", "elroy", "judy", ],
           [ "homer", "bart", "marge", "maggie", ],
          );
say $AoA[2][1];


$ref_to_AoA = [
               [ "fred", "barney", "pebbles", "bambam", "dino", ],
               [ "george", "jane", "elroy", "judy", ],
               [ "homer", "bart", "marge", "maggie", ],
              ];
print_AoA();


my @tmp = (1, 2, 3, 4);
push @AoA, [@tmp];              # 因为数组AoA第一列需要的是引用,而@tmp是数组,直接赋值会出错。[]表示返回@tmp的引用,即把@tmp的引用push到@AoA最后一行,二维数组行数加1.
print_AoA();


push @AoA, @tmp;
print_AoA();
覆盖行





#$AoA[0] = @tmp;   #$AoA[0]是scalar型,而@tmp是list型,所以用默认把tmp的个数赋给$AoA[0],即$AoA[0]=4;
$AoA[0] = [@tmp];  #overwirte
print_AoA();
5 添加列元素



push @{$AoA[0]}, "wilma", "betty";
省略@{}





use v5.14;   # needed for implicit deref of array refs by array ops
push $AoA[0], "wilma", "betty";          # 在5.14版本之前不能通过,因为以前规定push的第一参数必须为数组。在新版本中当$AoA[0]中存在引用时可以通过,但无引用时不正确。
print_AoA();
my $aref = undef;
#push $aref, qw/some value/;     # 出错:Not an ARRAY reference
my $aref = [@tmp];
push $aref, qw/some value/;     # 正确,因为aref此时不是个空引用
print "$aref : @$aref\n";
6 访问与打印

6.1 运算符优先级



$@*%&
6.2 访问一个



print $AoA[$i][$j];
print ref_$AoA->[$i]->[$j];
6.3 遍历
•最简单的一种





for $aref ( @AoA )                #  $aref只是第一列里面的引用,要想访问整行必须加@,又$访问级别比@高,所以()可以省略。
{
    say "\t [ @$aref ],";
}
•使用$#





for my $i (0 .. $#AoA){
    say "elt $i is @{$AoA[$i]}";
}
•内嵌循环





for my $i (0 .. $#AoA){
    for my $j (0 .. $#{$AoA[$i]}){
        say "elt $i, $j is $AoA[$i][$j]\n";
    }
}
7 切片
要访问几行几列元素。和Matlab中访问矩阵的方法差不多。


•切单行多列





my @part = ();
my $x = 4;
for (my $y = 1; $y<4; $y++){
    push @part, $AoA[$x][$y];
}
# 简单写法
@part = @{$AoA[4]}[1..4];
•切多行多列





my @newAoA = ();
for (my $startx= my $i = 1; $i<=5; $i++){
    for(my $starty = my $j = 2; $j<=4; $j++){
        $newAoA[$i - $startx][$j - $starty] = $AoA[$i][$j];
    }
}


#一个循环简单写法
for (my $x = 1; $x<=5; $x++){
    push @newAoA, [@{$AoA[i]}[2 .. 4]];
}
•编写函数





sub splice_2D{
    my $lrr = shift;
    my($x_l, $x_h,
       $y_l, $y_h) = @_;
    return map(
               [ @{$lrr -> [$_]} {$y_l .. $y_h}]
              )$x_l .. $x_h;
}
@newAoA = splice_2D(\@AoA, 1=>5, 2=>4);
返回列表