作者windmusic (喔耶)
看板perl
标题Re: [请益] 有关写入档案
时间Fri Jun 9 13:30:25 2006
※ 引述《HXZ (冲了啊)》之铭言：
: ※ 引述《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: 220.140.19.35
1F：推 yhsuan:FH是档案代号，相对於你取的档案代号是 append 06/09 14:33
2F：→ yhsuan:把他的程式码修改一下取代到你的里面就可以了 06/09 14:34