Perl: Kann abgefragt werden, wie oft ein RE matched?

[inne]

Hallo,

wenn ich

Code: Alles auswählen

perl -E '"axcxe" =~ /a|b|c|d|e/'

habe, kann ich dann abfragen, dass 3mal ein Match da ist?

Ich denke zwar das geht nicht, aber ein

Code: Alles auswählen

echo axcxe | grep --color -P 'a|b|c|d|e'

hebt das auch hervor :axcxe

Es geht mir um Perl (auch die Abfrage in Perl) nicht Shell!

Ich will damit priorisieren können, welcher String /gewichtiger/ ist.

[tobo]

Sowas?

Code: Alles auswählen

perl -E '$m = () = "axcxe" =~ m/a|b|c|d|e/g; print "$m"'

[inne]

Ja ich denke! Super Danke.

Kannst Du mir bitte noch erkläre was das = () = macht? Ich erkenne darin gerade nur eine (leere) Liste? Steht das in perlre(1)?

Code: Alles auswählen

use Data::Dumper;
print Dumper ("axcxe" =~ m/a|b|c|d|e/g);

print "#\n";

$m = () = "axcxe" =~ m/a|b|c|d|e/g;
print Dumper ( $m );

Ausgabe:

Code: Alles auswählen

$VAR1 = 'a';
$VAR2 = 'c';
$VAR3 = 'e';
#
$VAR1 = 3;

[tobo]

Die () betrachten die RegEx im Listen-Kontext, das Endergebnis dann wird als Skalar benötigt. Also nichts anderes als ein Kontextwechsel. Man kann das auch vielleicht schöner schreiben:

Code: Alles auswählen

$ perl -E '@m = "axcxe" =~ m/a|b|c|d|e/g; print "@m - ", scalar @m'
a c e - 3