作者rom1025 (περ'ιπεπια)
看板Perl
标题Re: [问题] 读档案建立hash
时间Thu Feb 2 13:56:25 2012
※ 引述《killerjackal (比利养了一只狗叫比利)》之铭言：
: ※ 引述《killerjackal (比利养了一只狗叫比利)》之铭言：
: : 现在手边有两个档案
: : 档案的格式都差不多长一样
: : A档案格式如下：
: : CTCGCCGTCGCAAACCCAAGCTGTCT
: : CTCGCCTGGCTGTGGTTCTTCTAACA
: : 资料都是两两成对的
: : 要如何把档案读进来
: : 且偶数行当成key
: : 单数行当成value
: : 但是每一个key是会有顺序性的
: : 我的想法是 现把档案转成list 而後两两成对
: : 用以建立一个array
: : 这样一来可以利用array的顺序性,又可以利用hash找值,以方便之後的比对
: : $hash{array[偶数行]} = '单数行' 这样
: : 这样可以吗？
: : 不知各位高手有没有建议
: 把问题简单一点好了
: 我想要请教的是
: 如果我已经建立的一个array
: 我能不能把array里面的资料＠array[1] @array[3] @array[5] 当成key
: 然後分别把 ＠array[0] @array[2] @array[4] 当成是value
: 应该要如何建立这个hash?
我的推文写法，大概是这样
open IN, "file.txt";
while (my $line = <IN>) {
chomp $line;
if ($line =~ /^>(.*)/) {
my $value = $1;
my $key = <IN>;
$hash{$key} = $value;
}
}
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 211.76.175.169
※ 编辑: rom1025 来自: 211.76.175.169 (02/02 13:57)
※ 编辑: rom1025 来自: 211.76.175.169 (02/02 13:58)