Re: [請益] 有關寫入檔案

看板Perl作者windmusic (喔耶)時間19年前 (2006/06/11 22:46)推噓2(2推 0噓 0→)

留言2則, 2人參與討論串7/7 (看更多)

※ 引述《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