längste Kette von N's in String bestimmen (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-11-17 23:02:31
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
1 Gast

[thread]18188[/thread]

submit to reddit

längste Kette von N's in String bestimmen

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+3 replies
ingobulla

2013-03-07 15:02

User since
2008-08-08
20 Artikel
BenutzerIn

Hallo,

ich habe Strings der Art

GAAGANNNNNNNNNNACGCATACTACCGGTGCCCAGCTGCCATNNNNNNNNNNNNNNNNNNNNNATTCTTCT

und möchte herausfinden, wie lang jeweils die längste Kette von N's ist.

Dazu wollte ich alle Teilstrings extrahieren, die den Ausdruck N+ matchen. Allerdings ist mir nicht klar, wie man das in Perl macht. Kann mir da jemand weiterhelfen?
- GwenDragon
  
  2013-03-07 15:15
  User since
  2005-01-17
  14746 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  $string='GAAGANNNNNNNNNNACGCATACTACCGGTGCCCAGCTGCCATNNNNNNNGAGAGAGATCNNNNNNGAGANNNNNNNATTCTCTNNNNCTCAGATCCNNNNNNNNNNNNNNNNNNNNNGAGA'; (@ns) = $string =~ /N+/g; print 'Länge der Ns',"\n"; for (sort @ns) { print length($_),"\n"; }
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- Raubtier
  
  2013-03-07 15:17
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  2013-03-07T14:02:24 ingobulla
  Hallo,
  
  ich habe Strings der Art
  
  GAAGANNNNNNNNNNACGCATACTACCGGTGCCCAGCTGCCATNNNNNNNNNNNNNNNNNNNNNATTCTTCT
  
  und möchte herausfinden, wie lang jeweils die längste Kette von N's ist.
  
  So:
  
  Code: (dl )
  
  perl -E'use List::Util qw(max); say max(map length, "GAAGANNNNNNNNNNACGCATACTACCGGTGCCCAGCTGCCATNNNNNNNNNNNNNNNNNNNNNATTCTTCT" =~ m/(N+)/g)'

View all threads created 2013-03-07 15:02.