如何用tr或Perl将0123更改为ACTG?

nev*_*int 3 bash perl

我有一个这样的列表文件:

100
101
102
103
Run Code Online (Sandbox Code Playgroud)

我想要做的是将每个0替换为A,将1替换为C,将2替换为G,将3替换为T.因此我们希望得到

CAA
CAC
CAG
CAT
Run Code Online (Sandbox Code Playgroud)

Dav*_*har 10

你自己实际上已经找到了答案.只是:

tr 0123 ACGT <input_file >output_file
Run Code Online (Sandbox Code Playgroud)

要么:

echo 2033010 | tr 0123 ACGT
Run Code Online (Sandbox Code Playgroud)


小智 7

这里:

perl -p -e 'tr/0123/ACGT/'
Run Code Online (Sandbox Code Playgroud)

验证:

$ perl -p -e 'tr/0123/ACGT/' <~/input
CAA
CAC
CAG
CAT
Run Code Online (Sandbox Code Playgroud)


Pau*_*ce. 7

只是为了完整性:

sed 'y/0123/ACGT/' file
Run Code Online (Sandbox Code Playgroud)