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

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 )

#!/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 )

$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.