看板 [ Perl ]
討論串[問題] 多行的統計
共 4 篇文章
首頁
上一頁
1
下一頁
尾頁

推噓0(0推 0噓 2→)留言2則,0人參與, 最新作者paulpu (paulpu)時間15年前 (2010/02/24 09:22), 編輯資訊
0
0
0
內容預覽:
open F,"data";@f=grep(!/^>/,<F>);close F;. for(@f){chomp;$a[$i++]{$_}++ for split //;$i=0;}. $r[$i++]=(sort{$$_{$b}<=>$$_{$a}} keys %$_)[0] for @a;. @

推噓1(1推 0噓 1→)留言2則,0人參與, 最新作者frank1983 (What?)時間15年前 (2010/02/24 02:48), 編輯資訊
0
0
0
內容預覽:
不知道這樣寫是否符合你的要求?. my @out = ();. my @cnt = ();. while (<DATA>) {. next if /^>/;. chomp;. my @c = split //;. for my $i (0 .. $#c) {. my $c = $c[$i];. ++
(還有361個字)

推噓0(0推 0噓 1→)留言1則,0人參與, 最新作者MistQ (Mr.Q)時間15年前 (2010/02/24 00:41), 編輯資訊
0
0
0
內容預覽:
open in, "< test.txt";. while(<in>). {. chomp();. if(not /^>/). {. @t=split(//);. for($i=0;$i<=$#t;$i++). {. ${$ARRAY[$i]}{$t[$i]}++;. }. }. }. close
(還有78個字)

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者adu (^_^)時間15年前 (2010/02/23 11:29), 編輯資訊
0
0
0
內容預覽:
想做的類似找出consensus. 原始的資料是已經排列好的字串:. >字串名子. 字串內容. 的形式. ===. i.e.. >1F3T.pdb_chainA_s004. ---------------RFL-EG-----FNTRDALCKKIS. >7ODC.pdb_chainA_s010.
(還有125個字)
首頁
上一頁
1
下一頁
尾頁