看板 [ Perl ]
討論串[問題] 多行的統計
共 4 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#4
Re: [問題] 多行的統計
推噓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;. @
#3
Re: [問題] 多行的統計
推噓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個字)
#2
Re: [問題] 多行的統計
推噓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個字)
#1
[問題] 多行的統計
推噓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
下一頁
尾頁