[geklärt] Wie matche ich nur auf eine einstellige Zahl ?

[TomLee]

Hi,

den Vergleich:

Code Auswählen Erweitern

{ if ($wday == 1 || $wday == 4) { ... }
mehrmals zu wiederholen beschäftigt mich und hab überlegt wie wie man es anders/kürzer angehen kann.

Mit diesem match-Ansatz passt das zwar, bei dem Vergleich mit nur den Wochentagen:

Code Auswählen Erweitern

{my $rd= 1;; return 'bla' if $rd =~ m/(1|4)/}

Mich würds aber interessieren wie der regexp aussehen müsste wenn Zahlen mit mehren Stellen vorkommen könnten.

Kann mir wer sagen wie und ob man das mit einem regulären Ausdruck machen könnte, das nur auf einstellige Werte gematched wird ?

[Nobbynews]

Mit regexp stehe ich zwar wie viele auf dem Kriegsfuß, aber die Helligkeit zwischen 24 und 29 Lux habe ich in einem notify so gelöst:

Code Auswählen Erweitern

ZWave_BWM_Garage_Lux:Helligkeit:.[2][4-9]$ {

Wie wäre es ungetestet mit

Code Auswählen Erweitern

xyz:.[2|4]$[/s]

Geht so nicht. Matched auch auf 244

[TomLee]

Mit eckigen hab ich zuvor schon probiert, wie mit vielen anderen Varianten

Code Auswählen Erweitern

{my $rd= 11;; return 'bla' if $rd =~ m/[1|4]/}
bla

[Nobbynews]

Probier mal

Code Auswählen Erweitern

^[24]$

[TomLee]

Danke 

So klappts:

Code Auswählen Erweitern


{my $rd= 11;; return 'bla' if $rd =~ m/^[14]$/}

[TomLee]

Interresant wär jetzt noch welche Variante es noch gibt, wenn man das "smartmatch" vermeiden soll.

[Nobbynews]

wenn man das "smartmatch" vermeiden soll.

Musste mich erst mal schlau machen, was damit gemeint ist.
Das, was ich gefunden habe, ist als smartmatch:

Code Auswählen Erweitern

~~
Der Operator

Code Auswählen Erweitern

=~ ist ein Bindungsoperator und fällt doch nicht unter die Kategorie smartmatch.
Oder was war gemeint?

[TomLee]

Was ich im Kopf behalten hatte war das Jörg "=~" mal als "Smartmatch-Operator" bezeichnet hatte, keine Ahnung.

Aus der verlinkten Doku reim ich mir als Alternative das hier zusammen, hab mich nur kurz damit beschäftigt, schliesse nicht aus das ich was übersehen habe und es doch nicht passt:

Code Auswählen Erweitern

{my @a=(1,4);; return 'bla' if grep { /^[14]$/} @a}