Ermitteln und ausgeben von Positionen innerhalb eines Strings (Allgemeines zu Perl)

[thread]15573[/thread]

Ermitteln und ausgeben von Positionen innerhalb eines Strings

Leser: 16

Articles: hide open all | hide show old branches

+6 replies
Gast Sev

2010-10-27 09:33

Hallo,

ich bin leider nicht sonderlich vertraut mit Perl, muss aber aufgrund technischer Einschränkungen ein kleines Perl-Skript basteln um Strings die zeilenweise in einer Textdatei enthalten sind zu transformieren. Ein Quellstring liegt bspw. in folgendem Format vor:

DIQMTQSPSSLSASVGDRVTITCXXXXXXXXXXXWYQQKPGKAPKXXXXXXXXXXXGVPSRFSGSGSGTDFTLTISSLQPEDFATYYCXXXXXXXXTFGQGTKVEIK

Daraus sollen die Positionen der einzelnen Abschnitte, die jeweils durch ein X getrennt sind gelesen werden. Der String oben beinhaltet demnach die folgenden Positionen und Abschnitte:

Pos. 1-23 DIQMTQSPSSLSASVGDRVTITC
Pos. 24-34 XXXXXXXXXXX
Pos. 35-45 WYQQKPGKAPK
Pos. 46-56 XXXXXXXXXXX
Pos. 57-88 GVPSRFSGSGSGTDFTLTISSLQPEDFATYYC
Pos. 89-96 XXXXXXXX
Pos. 97-107 TFGQGTKVEIK

Ziel ist, die gefundenen Positionen, die je nach Quellstring unterschiedlich sein können, als Liste am Ende auszugeben, bspw. so:

feature 1..23
feature 24..34
feature 35..45
feature 46..56
feature 57..88
feature 89..96
feature 97..107

Mein Problem ist, dass ich trotz stundenlanger Suche und herumprobierens (Trial & Error) der Lösung noch kein Stück näher gekommen bin. Jetzt hoffe ich, dass mir jemand bei diesem Problem weiterhelfen kann.

Vielen lieben Dank im Voraus!
Last edited: 2010-10-27 09:36:43 +0200 (CEST)
- bloonix
  
  2010-10-27 09:50
  User since
  2005-12-17
  1615 Artikel
  HausmeisterIn
  Die Verwendung von substr wäre eine mögliche Lösung.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $line = "DIQMTQSPSSLSASVGDRVTITCXXXXXXXXXXXWYQQKPGKAPKXXXXXXXXXXXGVPSRFSGSGSGTDFTLTISSLQPEDFATYYCXXXXXXXXTFGQGTKVEIK"; my %str; $str{pos1} = substr($line, 0, 23); $str{pos2} = substr($line, 23, 11); $str{pos3} = substr($line, 34, 11); $str{pos4} = substr($line, 45, 11); $str{pos5} = substr($line, 56, 32); $str{pos6} = substr($line, 88, 8); $str{pos7} = substr($line, 96, 11); print Dumper(\%str);
  
  Ausgabe:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9
  
  $VAR1 = { 'pos1' => 'DIQMTQSPSSLSASVGDRVTITC', 'pos4' => 'XXXXXXXXXXX', 'pos7' => 'TFGQGTKVEIK', 'pos5' => 'GVPSRFSGSGSGTDFTLTISSLQPEDFATYYC', 'pos3' => 'WYQQKPGKAPK', 'pos2' => 'XXXXXXXXXXX', 'pos6' => 'XXXXXXXX' };
  
  Edit: Ausgabe hinzugefügt
  What is a good module? That's hard to say.
  What is good code? That's also hard to say.
  One man's Thing of Beauty is another's man's Evil Hack.
- +3 replies
- renee
  
  2010-10-27 09:54
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  #!/usr/bin/perl use strict; use warnings; my $string = 'DIQMTQSPSSLSASVGDRVTITCXXXXXXXXXXXWYQQKPGKAPKXXXXXXXXXXXGVPSRFSGSGSGTDFTLTISSLQPEDFATYYCXXXXXXXXTFGQGTKVEIK'; my @parts = split /(X+)/, $string; my $cur_pos = 0; for my $part ( @parts ) { my $start = $cur_pos + 1; my $stop = $cur_pos + length $part; print "feature $start .. $stop: $part\n"; $cur_pos = $stop; }
  
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +2 replies
  - bloonix
    
    2010-10-27 09:58
    
    User since
    2005-12-17
    1615 Artikel
    HausmeisterIn
    
    Ich hätte eventuell weiter als nur bis zur Mitte lesen sollen.
    
    Meine Lösung berücksichtigt natürlich nicht die Ausgabe der Feature-Zeilen :-)
    
    @sev: die Lösung von renee bitte bevorzugen
    
    Hoffentlich kann ein X nur als Trennzeichen vorkommen.
    Last edited: 2010-10-27 10:00:36 +0200 (CEST)
    What is a good module? That's hard to say.
    What is good code? That's also hard to say.
    One man's Thing of Beauty is another's man's Evil Hack.
    - Gast Sev
      
      2010-10-27 10:22
      
      Ihr seid ja schnell! Das Skript von Renee funktioniert super! Und ja, als Trennzeichen kommen immer nur 'X'e vor (glücklicherweise).
      
      1000Dank für die schnelle Hilfe!
      
      Viele Grüße
      Sev
      Last edited: 2010-10-27 10:25:54 +0200 (CEST)
- topeg
  
  2010-10-27 11:05
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Bei festen Trenner kann man schreiben:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  my $line = "DIQMTQSPSSLSASVGDRVTITCXXXXXXXXXXXWYQQKPGKAPKXXXXXXXXXXXGVPSRFSGSGSGTDFTLTISSLQPEDFATYYCXXXXXXXXTFGQGTKVEIK"; my $pos=0; while(my $pos_in=index($line,'XXXXXXXXXXX',$pos)>-1) { print "feature $pos..$pos_in\n"; $pos=$pos_in+11; } print "feature $pos..".length($line)."\n" if($pos<length($line));
  
  Das ist bei großen Strings spürbar schneller.

View all threads created 2010-10-27 09:33.