Perl代码该怎么写?有个1.txt文件内容如下：ABCxxxxxxxxxxxxxxxxxxxxxxxxxxxDEFaaaaaaaaaaaaaaaaaaaGHIbbbbbbbbbJKLcccccccccccccccccccc大写字母是ID名,名称不一.下面小写字母ID对应的序列,序列长度不一.如何提取ID以
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;