Perl代码该怎么写?有个1.txt文件内容如下:ABCxxxxxxxxxxxxxxxxxxxxxxxxxxxDEFaaaaaaaaaaaaaaaaaaaGHIbbbbbbbbbJKLcccccccccccccccccccc大写字母是ID名,名称不一.下面小写字母ID对应的序列,序列长度不一.如何提取ID以
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/27 01:41:53
Perl代码该怎么写?有个1.txt文件内容如下:ABCxxxxxxxxxxxxxxxxxxxxxxxxxxxDEFaaaaaaaaaaaaaaaaaaaGHIbbbbbbbbbJKLcccccccccccccccccccc大写字母是ID名,名称不一.下面小写字母ID对应的序列,序列长度不一.如何提取ID以
Perl代码该怎么写?
有个1.txt文件内容如下:
ABC
xxxxxxxxxx
xxxxxxxxxx
xxxxxxx
DEF
aaaaaaaa
aaaaaaaa
aaa
GHI
bbbbbbbbb
JKL
cccccccccc
cccccccccc
大写字母是ID名,名称不一.下面小写字母ID对应的序列,序列长度不一.
如何提取ID以及对它对应的序列?例如我要找ABC时,就显示:
ABC
xxxxxxxxxx
xxxxxxxxxx
xxxxxxx
Perl代码该怎么写?有个1.txt文件内容如下:ABCxxxxxxxxxxxxxxxxxxxxxxxxxxxDEFaaaaaaaaaaaaaaaaaaaGHIbbbbbbbbbJKLcccccccccccccccccccc大写字母是ID名,名称不一.下面小写字母ID对应的序列,序列长度不一.如何提取ID以
my $file = '1.txt';
my $key = shift @ARGV;
my $isfind =0;
open HANDLE, $file;
while(<HANDLE>){
my $line = $_;
if($line =~ /$key/){
$isfind = 1;
}elsif($line =~ /[A-Z]+/){
$isfind = 0;
}
if($isfind ==1){
print $line;
}
}
close HANDLE;