Zeichenkette mehrfach aus String lesen und Position verwenden - #167405 (Allgemeines zu Perl)

Raubtier

2013-05-02 21:36

User since
2012-05-04
1054 Artikel
BenutzerIn

user image

Du hast die Lösung doch schon fast :-)

Sie lautet: index! perldoc -f index erzählt dir, dass es einen dritten Parameter gibt, die Anfangsposition.

Einfaches Beispiel:

Code (perl): (dl )

use strict;
use warnings;

my $pos = getPosition(0);
while ($pos>=0) {
    print "Gefunden bei $pos\n";
    $pos = getPosition($pos+1);
}

sub getPosition {
    my ($start) = @_;
    return index("xxAxxAxxxA", "A", $start);
}