作者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