Re: [請益] 有關寫入檔案
※ 引述《windmusic (喔耶)》之銘言：
: 想請問一個問題
: 我要利用亂數產生一串240個胺基酸的蛋白質序列
: (總共有A,C,D,E,F,G,H,I,K,L,M,N,P,Q,R,S,T,U,W,Y這20種胺基酸)
: 然後把這些蛋白質序列印到一個新的檔案裡
: 並且對新檔案設一個檔名
: 以下是我的程式
: print "Please key in the name of the file in which you want to save data,
: including the path\n";
: $string1=<STDIN>;
: chomp($string1);
: open (append,">$string1");
: print append "aaa";
: close append;
: 設計亂數我已經會了
: 但是我不會把它印到新的檔案裡
: 接下來就要讀取那份新檔案
: 並且把那串序列印在螢幕上
: 最後要統計這串序列裡有多少個R,H,D,E,K
: 想請問版上大大Orz
@aa = (A,C,D,E,F,G,H,I,K,L,M,N,P,Q,R,S,T,U,W,Y);
for (1..240){
$va=int(rand(20));
print $aa[$va];
print FH $aa[$va];
$aa{$va}++;
}
print "\n";
print "R:", $aa{14}, "\n";
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.58.171.124
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
