推 tcmakol:謝謝你幫我解答...我還想問一下，我跑出來的結果是一排， 10/01 08:49
→ tcmakol:有辦法讓配對的在原來的字母下面嗎 10/01 08:52
推 abliou:在第二次的print要寫入前多加一個換行符號就行了 10/01 14:29
open FH,"A.txt";
$str=<FH>;
close FH;
$str=~tr/ATGC/TACG/;
open FH,">>A.txt";
print FH $str;
close FH;
※ 引述《tcmakol ()》之銘言：
: 各位高手好，新手小弟我想問的是
: 假如我有一個檔案叫 A.txt檔，裡面內容如下
: A C G T T C A G
: 我想讓檔案裡的 A 配 T 、 C 配 G、
: 最後檔案內容如下
: A C G T T C A G
: T G C A A G T C
: 然後在儲存為原來的檔 ( A.txt )
: 請問這要怎麼用Perl 寫出來呢
: 請各位高手幫幫忙我這個新手
: 先謝謝各位高手
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.230.83.64
※ 編輯: cutecpu 來自: 61.230.83.64 (10/01 01:38)