Split einen String in Gleich lange Stück in Perl

Sagen wir, ich habe Zeichenkette der Länge in vielfachen von 3.

my $seq = "CTTCGAATT"; # in this case length of 9

Gibt es eine Möglichkeit, ich kann es teilen, in gleiche Länge von 3?
So dass am Ende habe ich dieses array:

$VAR = ["CTT", "CGA", "ATT"];
  • Crossposted auf Perlmonks. Es werden drei Lösungen wurden mit benchmarks die belegen das entpacken eine gute Wahl zu sein. perlmonks.org/?node_id=939987
InformationsquelleAutor neversaint | 2011-11-25
  1. 14

    Werfen Sie einen Blick auf die Lösung zu Wie kann ich das aufteilen einer Zeichenfolge in Stücke von jeweils zwei Zeichen in Perl?

    Besonders die unpack interessant sein könnte:

    my @codons = unpack("(A3)*", $seq);
    InformationsquelleAutor spuelrich
  2. 3

    Durchlaufen die vielfachen von drei, mit substr um die Stücke zu push in eine Liste.

    • Danke. In der Praxis habe ich rund 10 Millionen solcher string zu brechen. Substr ist zu langsam?
    • Probieren Sie es aus. Wenn es langsam ist, dann Lesen Sie die Datei Zeichen für Zeichen, bis Sie füllen einen Puffer, die Sie stoßen in eine Liste. Wiederholen, bis ein EOF-Zeichen.
    InformationsquelleAutor Alex Reynolds
  3. 2
    my $str = join '', map { ('A','T','C','G')[ rand 4 ] } 0 .. 900 ; # Random string

my @codons = $str =~ /[ACTG]{3}/g;   # Process in chunks of three
                                     # '/g' flag necessary

print 'Size of @codons array : ',
        scalar @codons;              # '300'
    InformationsquelleAutor Zaid
  4. 1

    my $str='ABCDEFGHIJKLM';

    können wir die Verwendung von string-match um Teile aus dem string, wobei die minimale Länge ist 1 und maximum ist die erforderliche Länge, 3 oder 4 oder was auch immer

    @parts = $str =~ /(.{1,4})/g; und wir bekommen @parts = ['ABCD', 'EFGH', 'IJKL', 'M']

    InformationsquelleAutor Atul Gupta
Schreibe einen Kommentar