Zurückspulen der nächsten Suchstartposition um 1?

Question

Wie kann ich den Anfang der nächsten Suchposition um 1 zurückspulen? Angenommen, ich möchte alle Ziffern zwischen # abgleichen. Das Folgende wird mir nur ungerade Nummern geben.

my $data="#1#2#3#4#"; 

while ($data =~ /#(\d)#/g) { 
    print $1, "\n"; 
} 

Aber wenn ich den Anfang der nächsten Position um 1 zurückspulen könnte, würde ich sowohl gerade als auch ungerade Zahlen bekommen.

funktioniert das nicht: pos() = pos() - 1;

Ich weiß, dass ich diese split mit erreichen kann. Aber das beantwortet meine Frage nicht.

for (split /#/, $data) { 
    print $_, "\n"; 
} 

Answer 1

Sie pos() auf $_ Aufruf statt $data

Von perldoc

Gibt den Offset von dem die letzten m // g links Suche Aus für die betreffende Variable ($ _ wird verwendet, wenn die Variable nicht angegeben ist)

So

,

pos($data) = pos($data) - 1; 

Answer 2

Ein Ansatz ist ein look-ahead assertion zu verwenden: sind

while ($data =~ /#(\d)(?=#)/g) { 
    print $1, "\n"; 
} 

die Zeichen in der Vorgriff Behauptung nicht Teil des angepassten Ausdrucks und nicht aktualisieren pos() vorbei an dem \d Teil des regulären Ausdrucks .

Weitere Demos:

say "#1#2#3#4#" =~ /#(\d)/g;   # 1234 
say "#1#2#3#4" =~ /#(\d)/g;   # 1234 
say "#1#2#3#4#" =~ /#(\d)(?=#)/g;  # 1234 
say "#1#2#3#4" =~ /#(\d)(?=#)/g;  # 123