Question

perl 怎么去掉下面文本的括号，请高手给个Perl脚本，谢谢

文件1.txt中是

>ENSG00000179088
(6..11)
>ENSG00000102316
(2..9)
>ENSG00000136874
(13..33)
怎么把括号去掉，整理成这样的
>ENSG00000179088
6..11
>ENSG00000102316
2..9
>ENSG00000136874
13..33

Answer 1

#!/usr/bin/perl -w
use strict;
die "perl $0 <Inputfile>\n" unless(@ARGV == 1);
open IN,$ARGV[0];
while(<IN>){
chomp;

$_=~s/[\(\)]//g;

print "$_\n";

}
close IN;

将上面的文档保存到run.pl，假设原始文件为
a.txt运行的时候命令行输入perl run.pl a.txt