作者cutecpu (可爱中央处理器)
看板perl
标题Re: [问题] 如何开档案後更改里面的内容
时间Sun Oct 1 01:35:52 2006
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)
1F：推 tcmakol:谢谢你帮我解答...我还想问一下，我跑出来的结果是一排， 10/01 08:49
2F：→ tcmakol:有办法让配对的在原来的字母下面吗 10/01 08:52
3F：推 abliou:在第二次的print要写入前多加一个换行符号就行了 10/01 14:29