本程序用于将基因按照区域分类。
将数组值作为哈希结构的值示例：
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,"_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);#perl语言数组大小对哈希结构直接用@{$hash{$key}}即表示为数组引用，之前不用申明
  }

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。