Probleme mit RegExp (solved) (Allgemeines zu Perl)

[thread]16290[/thread]

Probleme mit RegExp [solved]

Tags: perl5 regex Similar Threads

Readers: 16

Articles: hide open all | hide show old branches

+3 replies
guest MULLE123

2011-05-13 11:52
Hi,

ich möchte mittels regExp noch einer bestimmten Gruppe von Strings suchen.
Erstmal der Codeauszug mit der Abfrage:
Code: (dl )

1 2 3 4 5 6

... my $test = defined($o_noreg) ? $$resultat{$key} eq $o_descr : $$resultat{$key} =~ /$o_descr/; if ($test) { ...
Ich möchte jetzt die Strings ethernet0/0, ehternet0/1 und ethernet0/2 mit einem regExp beschreiben. Ich habe es wie folgt versucht:
ethernet0/[0-2]

Das haut aber nicht hin. Es geht bei mir um ein Nagios-Plugin und der gibt mir einfach alle Interfaces aus. Wenn ich als regExp ein spezielles Interface angebe wie z.B. ethernet0/0 , wird auch nur das behandelt. Es schient also bei [0-2] zu haken.
Achja, $o_noreg ist nicht gesetzt ;)
Habe ich da einen Denkfehler drinne, den ich nicht sehe?

Beste Grüße
Last edited: 2011-05-13 11:54:50 +0200 (CEST)
- +2 replies
- GwenDragon
  
  2011-05-13 11:58
  User since
  2005-01-17
  14426 articles
  Admin1
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my $o_regex = qr{ethernet0/[0-2]}; my $test = defined($o_noreg) ? $$resultat{$key} eq $o_descr : $$resultat{$key} =~ m/$o_regex/;
  
  Hinweis: Aber eigentlich ist das m// gar nicht nötig laut perldoc perlop bei qr.
  Last edited: 2011-05-13 12:06:05 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - guest MULLE123
    
    2011-05-20 14:16
    
    Dank dir!
    Last edited: 2011-05-20 14:29:59 +0200 (CEST)

View all threads created 2011-05-13 11:52.