Mahlzeit!

Ich benutzte gerne 'use constant', um übersichtlich am Anfang meiner
Skripte Dinge zu deklarieren. Gerade habe ich das das erste Mal für
ein Pattern benutzt.

Grundsätzlich funktioniert das wie erwartet:

#!usr/bin/perl
use constant PATTERN => qr/foo/;
print "matched\n" if "foobarfoobarfoo" =~ PATTERN;

Wenn ich allerdings //g zum Matchen benutzen will, weiß ich nicht, wie
ich das g dort unterkriegen soll:

- PATTERNg ist offensichtlicher Unfug
- /PATTERN/g sucht nach dem Vorkommen von 'PATTERN', statt die
Konstante aufzulösen.

- Die üblichen Varianten für Konstanten wie PATTERN() (als
Methodenaufruf) und +PATTERN (um es als Hash-Key zu benutzen)
funktionieren hier auch nicht.

In allen Fällen wird der String PATTERN als RegExp interpretiert,
das kann ich Perl nicht mal verübeln.

Als Umgehungslösung kann ich die Konstante in die eine Variable
$pattern kopieren, dann funktioniert es:

#!/usr/bin/perl
use constant PATTERN => qr/foo/;
my $pattern = PATTERN;
my $found = 0;
$found++ while "foobarfoobarfoo" =~ /$pattern/g;
print "found $found matches\n"

Geht das irgendwie eleganter, so dass ich das PATTERN direkt nutzen
kann, ohne es vorher nochmal als $pattern zu doppeln?

Gruß
Christian
--
.....Christian.Garbs....................................https://www.cgarbs.de
Booting vmemacs20... done.
Emacs v20.99: loading linux.el

Christian Garbs <mitch@cgarbs.de> writes:
> Geht das irgendwie eleganter, so dass ich das PATTERN direkt nutzen
> kann, ohne es vorher nochmal als $pattern zu doppeln?

Sehr gute Frage, die Antwort(en) kannte ich bis eben auch noch nicht.
Es gibt sogar drei Möglichkeiten (typisch Perl: "There's more than one
way to do it." ;-):

#v+

#!usr/bin/perl
use constant PATTERN => qr/foo/;
my $pattern = PATTERN;
print "#1 matched\n" if "foobarfoobarfoo" =~ PATTERN;
print "#2 matched\n" if "foobarfoobarfoo" =~ m/$pattern/g;
print "#3 matched\n" if "foobarfoobarfoo" =~ m/${\PATTERN}/g;
print "#4 matched\n" if "foobarfoobarfoo" =~ m/(?{PATTERN})/g;
print "#5 matched\n" if "foobarfoobarfoo" =~ m/@{[PATTERN]}/g;

#v-

Viele Grüße, Thomas
--
Adresse gilt nur kurzzeitig!

Mahlzeit!

Thomas Dorner <dclp230928.dorner@spamgourmet.com> wrote:
> Christian Garbs <mitch@cgarbs.de> writes:

>> Geht das irgendwie eleganter, so dass ich das PATTERN direkt nutzen
>> kann, ohne es vorher nochmal als $pattern zu doppeln?
>
> Sehr gute Frage, die Antwort(en) kannte ich bis eben auch noch nicht.
> Es gibt sogar drei Möglichkeiten (typisch Perl: "There's more than one
> way to do it." ;-):
>
> #v+
>
> #!usr/bin/perl
> use constant PATTERN => qr/foo/;
> my $pattern = PATTERN;
> print "#1 matched\n" if "foobarfoobarfoo" =~ PATTERN;
> print "#2 matched\n" if "foobarfoobarfoo" =~ m/$pattern/g;
> print "#3 matched\n" if "foobarfoobarfoo" =~ m/${\PATTERN}/g;
> print "#4 matched\n" if "foobarfoobarfoo" =~ m/(?{PATTERN})/g;
> print "#5 matched\n" if "foobarfoobarfoo" =~ m/@{[PATTERN]}/g;
>
> #v-

Da haben wir alle was gelernt, großartig :)

Die Varianten m/${\PATTERN}/g und m/@{[PATTERN]}/g verstehe ich sogar,
da wird eine Referenz erstellt und direkt wieder dereferenziert.

Das Konstrukt (?{}) in einer RegExp war mir neu, das ist ja quasi das
Gegenstück zu ///e für die Pattern-Seite.

Ich hoffe, ich kriege jetzt keine Haue: Das ist alles toll, aber in
einem Jahr kann ich das nicht mehr entziffern, ich bin bei der
Variante mit $pattern verblieben…

Vielen Dank!
Christian
--
.....Christian.Garbs....................................https://www.cgarbs.de
gsenedt vno miemen iPghone !