perl中的引用及复杂数据结构的构建

通过perl的引用，我们可以实现复杂数据结构的构建，能很轻松的处理一些复杂的问题。引用就是将数据存为一个内存地址（相当于一个标量变量），通过这个引用标量可以获取引用地址，可以很方便的将列表的引用插入另一个列表中，构建列表中的列表，同样可以将哈希的引用插入另一个哈希中。因此，引用可以帮助我们实现很有意思的东西。今天，在这记录一下学习的过程。

如何创建引用

无论是$、@、%只要在其前面加一个“\”即可建立地址引用。

#标量的引用
my $a = "this is a string\n";
my $refa = \$a;
#列表的引用
my @a = qw/aa bb cc/;
my $refa = \@a;
#哈希的引用
my %hash = ("a"=>12,"b"=>13,"c"=>14);
my $refhash = \%hash;
#匿名引用(不需要构建中间变量名)
my $a =[1,2,3]; #通过匿名创建了数组引用
my $b ={"a"=>12,"b"=>13} #哈希引用
my $c =[];#空的匿名数组引用
my $d ={};#空的匿名哈希引用 #注意这里是{},和创建哈希()容易记混

如何解引用

对于三种数据结构可以在引用标量前加相应的数据标识符就行，如果要想获取引用地址真正的数据结构来进行操作必须要进行解引用，对于perl来说，不会主动会你解引用。

#标量的解引用
my $deref = ${$refa};
#列表的解引用
my @deref = @{$refa};
#哈希的解引用
my %defhash = %{$refhash};
##在实际编程中还有一个很重要的箭头操作符"->"用于解引用，推荐使用这个，是代码具有很好的可读性
#获取列表引用中的数据
$refa -> [0] #perl会根据箭头操作符后面的符号来判定引用数据的类型"[ ]"即为数组引用，"{}"即为哈希引用
#获取哈希引用的value值
$refhash ->{"key"}; 

################perl中的复杂数据结构的构建#################
通过上面的数据结构引用的方法，我们就可以创建有用的数据

数组的数组

#通过匿名引用构建数组内的数组
my @a = [[1,2,3],[4,5,6],[7,8,9]];
#若要获得数组的元素
my $a1 = $a[0]; #实际上获得的是[1,2,3]这个匿名数组
print "$a1\n"; #打印出来的是一串地址名
print "@{$a1}\n"; #需要解引用才能打印出真实数据
print "${$a[0]}[1]" #打印的[1,2,3]中的元素2
#也可使用箭头操作符（取出单个元素）
my $b = $a[0] ->[1]; #使用箭头操作符就会使代码变得很简洁
print "$b\n"; #打印的是[1,2,3]数组中的变量2
#同时也可进行重赋值操作
$a[0] -> [1] = 3; #j将[1,2,3]改成[1,3,3]
#可以通过push函数对列表引用操作，(前提需要对列表解引用)
my @a = (1,2,3,4);
my $refa = \@a;
push @{$refa}, 2; #将2 push到列表引用中
my $b = [4,5,6,7];
push @{$refa},$b; #将列表引用$b,push到数组@a中
#for对数组遍历
for ($i=0,$i<@a,$i++) {
  print "@{$a[$i]}\n";
}
for (0..$#a) {
  print "@{$a[$_]}\n";
}

数组中的哈希

my @a = ({"name"=>"www","math"=>54,"english"=>88},
         {"name"=>"http","math"=>88,"english"=>90});
print "$a[0] -> {"name"}\n"#打印出www
my %b = %{$a[0]}; 
my @value = @b{qw/name math/}; #获取切片
#可以通过push函数填充列表
my $b = {"name"=>"haha","math"=>66,"english"=>88};
push @a,$b #哈希引用b追加到数组中

哈希中的哈希

哈希是我最喜欢的数据结构类型，类似于python中的字典，可以通过名字访问哈希中的数据。通过哈希的引用可以创建哈希的嵌套结构。

my %hash = ("a"=>{"name"=>"cc","math"=>67,"english"=>88},
            "b"=>{"name"=>"dd","math"=>66,"english"=>89});
#foreach 对哈希遍历
foreach $keys(keys %hash) {
    print "$keys=>";
  foreach ($hash{$keys}) {
    print "$hash{$keys} -> {$_}\n";
  }
} 
#取出哈希的子元素
print "${$hash{"a"}}{"name"}\n" #打印出"name"=>"cc"
print "$hash{"a"} -> {"name"}\n" #与上式等价，箭头操作符可简化代码

哈希中的数组

my %hash = ("a" =>[1,2,3,4,5],
            "b" =>[6,7,8,9,8]);
#foreach遍历
foreach $keys(keys %hash) {
  print "$keys=>";
  print "@{$hash{$keys}}\n";
}
#push元素
push @{$hash{"a"}},6;
print "@{$hash{"a"}}\n"; #打印出a=(1,2,3,4,5,6)

写得差不多了，哎，坐在高铁上写的有点慢，不过还是感觉有意思，学习的过程中最重要的部分就是记录，这样可以更好的巩固。后面也要将R的学习历程记录下来。下次记录些在生物信息学perl的一些应用。