任务: 把测序得到结果构成哈希,基因名字为哈希的键值,基因序列为哈希的元素。 然后去除重复的基因。
实战操作
#! /usr/bin/perl
open (OUT,’>/Users/mac/Desktop/liunew3.txt’); #利用文件句柄创建输出文件
open(OUTTTT,’>/Users/mac/Desktop/liunew666666.txt’); #利用文件句柄创建输出文件
open (IN,'< /Users/mac/Desktop/name.txt’)|| die “can’t open”; #利用文件句柄调取文件
open (OUTTT,’>/Users/mac/Desktop/liunew666.txt’);
#先将数据生成一行
my %hash;
$n=2;
while (){
if(/\A>\s*/){
$id{[$n – 1 ]} = “$_”; #利用哈希
$n++;
}else{
$hash{$id{[$n – 1 ]}} = $_; #利用哈希
}
print OUT ;
}
my %new_hash = reverse %hash;
print %hash;
#对哈希排序
foreach $key(sort keys %new_hash){
$value = $new_hash{$key}; #本质上是一种输出
print OUTTT $key;
print OUTTT “\n”;
print OUTTT $value;
}
my %new_hash2 = reverse %new_hash;
print OUTTTT %new_hash2;