Re: [請益] 有關寫入檔案
※ 引述《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
推
06/09 14:33, , 1F
06/09 14:33, 1F
→
06/09 14:34, , 2F
06/09 14:34, 2F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章