如何用perl语言提取dna序列?

虽然不知道你要干什么，还是给你这个吧输入序列的名字>contig08015 length=103 numreads=20可以提取出序列CCTCCGggggggTGGgACAGCCGGgCCGCGATGCGGGCGCGCAGCGCGTCCATCGTGAAG；CCGCGCGGGTCGATCTTCCCCGGCTGCCACTCCAGGTGCCCGA很容易改，你想干什么都可以。#!perluse warnings;use strict;open (O,");my $line = join '',@array;print "please input the name\n";chomp(my $patten = );if ($line =~ /$patten([a-zA-Z]*)>/){print "$1\n";}else{print"no";}close O;

#!/usr/bin/perl -wopen DATA,"result.txt";my %hash;local $/ = ">";#分割符while ( ) {chomp;my ($head,$seq) = split(/\n/,$_,2);next unless($head && $seq);$seq=~s/\s//g;my ($name)=$head=~/^(\S+)/;$hash{$name}=$seq;}close DATA;local $/ = "\n";open DABA, " ) {$name=~s/^>//g;($name)=$name=~/^(\S+)/;print SEQUENCE "$name\t$hash{$name}\n" if(exists $hash{$name});}close DABA;close SEQUENCE;