作者HXZ (冲了啊)
看板perl
标题Re: [请益] 有关写入档案
时间Fri Jun 9 04:45:24 2006
※ 引述《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