perl批量替换字符
来源:互联网 发布:举报淘宝客 编辑:程序博客网 时间:2024/04/29 09:03
替换文件中的字符
将以下文件中的RF*****,
>RF00001;5S_rRNA;DQ397844.1/16860-16979 414005:Cenarchaeum symbiosum B
CAAGCCGGCCAUAGCGUCAGGGUGCGACCCAAUCCCAUUCCGAACUUGGA
AGUCAAACCUGAUGUCGCUGUUGUGUUACUAAGAUGCGAGAGCUCUUGGG
AAGCAACAGUGCUGGCAUCA
>RF00001;5S_rRNA;BA000002.3/627792-627911 272557:Aeropyrum pernix K1
GGCCCGGCCAUAGCGGCCGGGUAACACCCGGACUCAUUUCGAACCCGGAA
GUUAAGCCGGCCGCGUUGGAGGCUCCAGUGGGGUCCGAGAGGCCCUGCAG
GGGCCUCCAAGCCGGGGCCG
>RF00001;5S_rRNA;CP001140.1/1163076-1163193 490899:Desulfurococcus kamchatkensis 1221n
GACCCGGCCAUAGUGGCCGGGCAACACCCGGUCUCAUAUCGAACCCGGAA
GUUAAGCCGGCCACGUCAGAGCGGCAGUGAGGUCCGAGAGGCCUCGCAGC
CGCUCUGAGCUGGGAUCG
替换为
RF00001 RF00001;rRNA
RF00002 RF00002;rRNA
RF00177 RF00177;rRNA
RF01118 RF01118;rRNA
RF00003 RF00003;snRNA
RF00004 RF00004;snRNA
RF00007 RF00007;snRNA
RF00012 RF00012;snRNA
RF00015 RF00015;snRNA
RF00016 RF00016;snRNA
RF00020 RF00020;snRNA
RF00026 RF00026;snRNA
RF00045 RF00045;snRNA
RF00046 RF00046;snRNA
RF00049 RF00049;snRNA
代码如下
open(Fh,"1.list");
@a = <Fh>;
open(In1,"type.list");
@b = <In1>;
open(OU,">out.out");
foreach (@b){
my @lines = split m//s+/ ,$_;
my $id = $lines[0];
my $new_id = $lines[1];
my $flag=0;
foreach (@a){
$line = $_;
if ($line=~/^>/)
{
if($line =~ /$id/){
$line =~ s/$id/$new_id/;
#print $lines,"/n";
$flag=1;
print OU $line;
}
else
{
$flag=0;
}
}
elsif (($line!~/^>/) && ($flag eq 1))
{
print OU $line;
}
}
}
- perl批量替换字符
- Perl - 批量替换
- Linux 批量字符串替换命令(sed, perl )与vi文本下字符替换命令
- oracle 批量替换字符
- sed批量替换字符
- sql批量替换特定字符
- 文本字符批量替换专家
- 批量替换多个字符
- 批量替换多个字符
- Linux sed 批量替换字符
- vim 批量查找替换字符
- SQL批量替换指定字符
- Perl]文字/代码批量替换工具 [转]
- linux perl 批量替换文件内容
- perl命令批量替换文件内容
- linux 下批量替换文件名 批量替换文件名中的字符
- SQLSERVER数据库字段部分字符批量替换
- Oracle 批量替换字段中的字符
- Ubuntu 10.04 Tftp服务器搭建
- XDoclet: "懒惰者"的掌中利器
- 写给测试初学者 ---- 问题摘要
- 求助!!!!!!!!!!!!!!!!
- Ubuntu使用命令安装jdk失败的解决方案--sudo apt-get install sun-java6-jdk
- perl批量替换字符
- 组织过程财富库中究竟包含什么?
- applet入门学习
- 贴片电阻、贴片电容规格、封装、尺寸
- tm与time_t转换函数
- 智能视频分析技术可发展的商业产品功能设想
- FLEX4+BlazeDS+MyEclipse整合
- Section 2.3 Training Gateway
- 首席信息官们需要从战略层面出发考虑云计算