作者muchmoa (...)
看板Perl
标题Re: [问题] 问题请教
时间Wed Jan 16 11:47:09 2008
这次跟上次的很类似，
这次可以正确的抓出$seq，但是算出来的值却不对，
甚至还出现8.199999这种类似除不尽的值，
是在第一次split时出了问题吗？
麻烦大家在帮我看一下吧，谢谢
RT2连结
http://www.badongo.com/file/7330381
use Cwd;
$dir=cwd;
open inf, "<$dir/RT2.txt";
open out, ">$dir/RT2_out.txt";
%h = ( W=> 11.0, F=> 10.5, L=> 9.6, I=> 8.4, M=> 5.8,
V=> 5.0, Y=> 4.0, A=> 0.8, T=> 0.4, P=> 0.2,
E=> 0.0, D=> -0.5, C=> -0.8, S=>-0.8, Q=> -0.9,
G=>-0.9, N=>-1.2, R=>-1.3, H=>-1.3, K=>-1.9 );
while(<inf>){
chomp;
@A=($a, $b, $seq)=split/\]|\[/;
foreach $seq(@A){
$sum+=$h{$_} for split//, $seq;
}
print out "$seq $sum\n";
$sum=0;
}
close inf;
close out;
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.123.127.45
1F：推 Evenni:建议你在做完split/\]|\[/;後把$a,$b,$seq都印出来看一下 01/16 14:30
2F：→ Evenni:在用print join("\t",@A); 看一下.. 01/16 14:33
3F：→ Evenni:你就会知道foreach $seq的$seq 跟 @A=($a,$b,$seq)的$seq 01/16 14:35
4F：→ Evenni:有什麽不同 01/16 14:36