Jemand zu Hause?Leser: 18
$seq =~ s/[\s\d>]+//g;
BioPerl oder
Bio::FASTASequence) - die können aber meiste mehr - oder Du nimmst einen Regulären Ausdruck.1 2 3 4 5 6 7
my $fasta = ">sp|P01815|HV2B_HUMAN Ig heavy chain V-II region COR - Homo sapiens (Human). QVTLRESGPALVKPTQTLTLTCTFSGFSLSSTGMCVGWIRQPPGKGLEWLARIDWDDDKY YNTSLETRLTISKDTSRNQVVLTMDPVDTATYYCARITVIPAPAGYMDVWGRGTPVTVSS "; my @parts = split /\n/, $fasta; my $sequence = join '', @parts[ 1 .. $#parts ];
Bio::FASTASequence würde es so aussehen: 1 2 3 4 5 6 7 8 9
use Bio::FASTASequence; my $fasta = ">sp|P01815|HV2B_HUMAN Ig heavy chain V-II region COR - Homo sapiens (Human). QVTLRESGPALVKPTQTLTLTCTFSGFSLSSTGMCVGWIRQPPGKGLEWLARIDWDDDKY YNTSLETRLTISKDTSRNQVVLTMDPVDTATYYCARITVIPAPAGYMDVWGRGTPVTVSS "; my $object = Bio:FASTASequence->new( $fasta ); my $sequence = $object->getSequence;
use strict; use warnings;