p e r l 將 數 組 值 作 爲 哈 希 結 構 的 值

將數組值作爲哈希結構的值示例： 

1， 

#!/usr/bin/perl use strict; use warnings;  

my @array=qw|1 2 3 4 5|; 

my %hash; 

my $key="hello"; 

$hash{$key} = \@array; 

for (my $i=0; $i<5; $i++)

 { 

        print ${$hash{$key}}[$i],"\n"; 

} ,

2， 

my %sorted_gene; 

open(ORI_DATA,"Homo_sapiens.gene_info"); 

while(<ORI_DATA>) {    

chomp;    

next if (!$_); 

my $gene_symbol=(split("\t",$_))[2]."\t";    

my $gene_region=(split("\t",$_))[7]; 

push (@{$sorted_gene{$gene_region}}, $gene_symbol);  #對哈希結構直接用