作者windmusic (喔耶)
看板perl
标题Re: [请益] 有关写入档案
时间Sun Jun 11 22:51:55 2006
※ 引述《imce (蜥蜴)》之铭言：
: ※ 引述《windmusic (喔耶)》之铭言：
: : 这个程式码里面是不是没有包括把这些乱数写到一个新的档案里阿??
: : 还是说其实有 只是我看不懂^^"
: : 请大大解答
: : 多谢
: 只是要开一个新档案写资料吗？
: $a="乱数" #当然这样写不会有乱数＠＠
^^^^在这里是要写入产生乱数的程式码吗
还是别的
以下是我的程式
print randomSeq();
sub randomSeq
{for ($a=0; $a<240; $a++)
{$aminoacid=int(rand(20));
if ($aminoacid==0) {print "A"; next}
if ($aminoacid==1) {print "C"; next}
if ($aminoacid==2) {print "D"; next}
if ($aminoacid==3) {print "E"; next}
if ($aminoacid==4) {print "F"; next}
if ($aminoacid==5) {print "G"; next}
if ($aminoacid==6) {print "H"; next}
if ($aminoacid==7) {print "I"; next}
if ($aminoacid==8) {print "K"; next}
if ($aminoacid==9) {print "L"; next}
if ($aminoacid==10) {print "M"; next}
if ($aminoacid==11) {print "N"; next}
if ($aminoacid==12) {print "P"; next}
if ($aminoacid==13) {print "Q"; next}
if ($aminoacid==14) {print "R"; next}
if ($aminoacid==15) {print "S"; next}
if ($aminoacid==16) {print "T"; next}
if ($aminoacid==17) {print "V"; next}
if ($aminoacid==18) {print "W"; next}
if ($aminoacid==19) {print "Y"; next}
};
};
他产生出来了240个乱数
但是我不会把这240乱数印到新的档案里去
而且这240的东西先不要印在萤幕上
我的关键在於要如何把产生出来的东西设成一个变数
然後把这个变数印在新的档案上
一直劳烦版上大大
很不好意思orz
: open(FILE,">新档案"); #开一个档案叫做新档案，放到FILE这个file handle里
: print FILE $a; #把乱数写入档案
: close(FILE); #关闭档案处理
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.140.94.175
1F：推 abliou:上面很多有关档案写入的文章..爬个文吧... 06/11 23:00
2F：推 HXZ:上面很多文章不是都已经有了吗.... 06/11 23:25