小白学Perl之初始哈希

Posted 计算表观遗传学

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了小白学Perl之初始哈希相关的知识,希望对你有一定的参考价值。


前言

哈希:哈希是一种数据结构,类似于数组,包含关键字keys和值value,键必须是字符串,值是标量值,哈希的特点是键是唯一的,键与键之间是无序的。

哈希、数组区别:数组是固定大小,顺序结构。但是比较全面,查找方便。但是排序、增、删没有hash表结构方便。所以一般数组存放数字,链表作为常用的集合。哈希表的检索速度很快,不同于数组,哈希访问元素的是按照名字访问标量的key=>value


操作:

1.my %hash; //声明哈希

$hash{'A'}="1"

A是key,1 是value,与数组一样,hash作为整体时,%hash 带%,而作为单个元素使用要使用$。

my%food=('fruit',"apple",'drink',"Coco")

类似数组初始化 注意这里使用的是( )不是{} {},用了它实际就是创建了一个引用。  

my%fruit=(apple=>"fruit",banana=>'fruit');  

“=>”是perl运算符,用于hash。


应用举例:

我们通过一个实例来展示hash的实际应用,本例使用哈希实现两个文本文件的合并,输入文件为A、B,输出文件为OUT.txt,并对哈希排序后输出。

open(FD1,"A")||die("Can not open thefile!$!n");

open(FD2,"B")||die("Can not open thefile!$!n");

%hs = ();

%hss = ();

while(<FD1>){

@arr1 = split /\t/;

foreach $p (@arr1){chomp($p);$p=~s/\t//;$hs{$arr1[3]}= $hs{$arr1[3]}.$p."\t";}

foreach $p (@arr1){chomp($p);$p=~s/\t//;$hss{$arr1[3]}= $hss{$arr1[3]}.$p."\t";}

}

close FD1;

open(OUT,">OUT.txt")||die("Can notopen the file!$!n");

while(<FD2>){

@row_of_FD2 = split /\ /;

if(exists $hs{$row_of_FD2[0]}){

chomp($row_of_FD2[1]);

$hs{$row_of_FD2[0]} =$hs{$row_of_FD2[0]}.$row_of_FD2[1];

}

}

foreach $key (sort {$a cmp $b} keys %hs){

if($hss{$key} eq $hs{$key}){

$hs{$key} = $hs{$key}."NA";

print OUT $hs{$key},"\n";

}

else{

print OUT $hs{$key},"\n";


通讯邮箱:ad.cepi@edbc.org

投稿邮箱:scw.cepi@edbc.org

往期「精彩内容」,点击回顾

| |

|

  | |

精彩会议及课程,点击回顾




CEPI感谢您的支持!

ios系统用户专用通道)


以上是关于小白学Perl之初始哈希的主要内容,如果未能解决你的问题,请参考以下文章

小白学react之EJS模版实战

经验分享|如何从Perl语言小白变成大神

小白的perl语言之数据分割

小白学Docker之Swarm

小白学Docker之Swarm

小白学Docker之Swarm