perl hash中嵌套数组的一些操作

最新推荐文章于 2024-07-28 11:58:29 发布

风语者666

最新推荐文章于 2024-07-28 11:58:29 发布

阅读量708

点赞数

分类专栏： perl 生信

本文链接：https://blog.csdn.net/u014210048/article/details/119248567

版权

生信同时被 2 个专栏收录

31 篇文章 3 订阅

订阅专栏

perl

15 篇文章 0 订阅

订阅专栏

#!/usr/bin/perl -w
use strict;

#以下这四个可以挨个试试
#my %Sample = ('China'=>[14,960]);
#my %Sample = ('China'=>[]);
#my %Sample = ();
my %Sample;

#my %data = ('google'=>'google.com', 'runoob'=>'runoob.com', 'taobao'=>'taobao.com');
foreach my $i(@{$Sample{'China'}}){print "0\t$i\n";}

print "=====================\n";
save_in_array(\@{$Sample{'China'}}, 'None');
foreach my $i(@{$Sample{'China'}}){print "1\t$i\n";}

print "=====================\n";
save_in_array(\@{$Sample{'China'}}, 56);
save_in_array(\@{$Sample{'China'}}, 32);
foreach my $i(@{$Sample{'China'}}){print "2\t$i\n";}

sub save_in_array{
        my ($hash_ref, $value) = @_;
        if(@{$hash_ref}==0){@{$hash_ref} = ();}
        if($value eq 'None'){return;}

        my %tmp = ();
        map{$tmp{$_} = 1}@{$hash_ref};
        if(not exists $tmp{$value}){
                push(@{$hash_ref}, $value);
        }
}

再看看这个

#!/usr/bin/perl -w
use strict;

my %Sample = ();

#my $count = @{$Sample{'Cancer'}};
#print "$count\n";

#这个会报错
if(@{$Sample{'Cancer'}} ==0){print "no element\n";} 

#这个不会报错
#因为my $ref = \@{$Sample{'Cancer'}};这行代码已经声明了$ref是一个数组的引用
my $ref = \@{$Sample{'Cancer'}};
if(@{$ref} == 0 ){print "no element\n";}

#再次这样做，又是正确的了
if(@{$Sample{'Cancer'}} ==0){print "no element\n";}