Also ich bin blutiger Anfänger.
Ich will versuchen die Sequenz in Codons zu trennen. Also aca cag usw.
$sequenz= "acacagagatcgctagatcgatcgatcgat";
@geteilt= split (/(\w{3})/, $sequenz);
$a= 1;
foreach (@geteilt)
{ if ($a < @teil+1) {$a +=2}
}
print $geteilt[$a]." ";
Aber irgendwie kommt bei mir nur das 1. Codon und das war's dann.
Muss ich da noch ne Schleife einbauen??? Und wenn ja, wo???
User since
2003-08-04
14371
Artikel
ModeratorIn
Was willst Du denn mit
foreach (@geteilt)
{ if ($a < @teil+1) {$a +=2}
}
print $geteilt[$a]." ";
aussagen?
Was soll am Ende rauskommen?
In die dreiergruppen einteilen kannst Du so machen:
use strict;
use warnings;
my $string = 'acacagagatcgctagatcgatcgatcgat';
my @values = $string =~ /(.{3})/g;
print $_,"\n" for @values;
User since
2006-07-05
334
Artikel
BenutzerIn
Man müsste schon den ganzen Quellcode kennen. Was ist z.B. @teil ?
Aber vielleicht hat der Meister
hier etwas Passendes parat:
Beispielsuche mit Google
Gruss MisterL
“Perl is the only language that looks the same before and after RSA encryption.”
User since
2006-11-26
384
Artikel
BenutzerIn
Vielleicht bekommst du auch mit
subtr()
was gebacken
Beispiel:
use warnings;
use strict;
my $string = 'acacagagatcgctagatcgatcgatcgat';
print substr($string, 0, 3);
print substr($string, 3, 3);
\n\n
<!--EDIT|RPerl|1182066806-->