regex problem (Allgemeines zu Perl)

[thread]13577[/thread]

regex problem

Tags: regex Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+13 replies
Gast robiwan

2009-05-28 14:35
Dear all,
Can anybody explain me the following expression:
Code (perl): (dl )

my $warning = $1 if ($opt_w =~ /([0-9]{1,2}|100)+/);
[0-9]{1,2} represent a two digit number, but what does the |100 match
And the + behind all that is also a miracle for me

Many thanks in advance...
Robert
- +6 replies
- pq
  
  2009-05-28 14:41
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  you might want to read perlretut
  and since you seem to be located in germany, you might want to write in german (if possible)?
  
  edit: s/prel/perl/
  Last edited: 2009-05-28 14:53:19 +0200 (CEST)
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +3 replies
  - Gast robiwan
    
    2009-05-28 14:49
    
    2009-05-28T12:41:12 pq
    you might want to read prelretut
    and since you seem to be located in germany, you might want to write in german (if possible)?
    
    Hallo PQ,
    Danke für die schnelle Antwort,
    Dein Link zeigt jedoch leider ins Leere ?
    Gruß Robert
    - +2 replies
    - pq
      
      2009-05-28 14:54
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      es muss natürlich perlretut und nicht prelretut heissen.
      warum hast du eigentlich auf englisch geschrieben? (interessiert mich, weil ich wissen will, warum leute das forum für ein englisches forum halten könnten)
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - Gast robiwan
        
        2009-05-28 15:04
        
        Habe beim ersten darüberschauen folgende Betreffs gelesen:
        Adding Perl support for Google App Engine
        preprocessor replacement
        da dachte ich halt: schreibst auch in englisch
        Robert
  - +2 replies
  - Gast Guest
    
    2009-05-28 19:01
    
    2009-05-28T12:41:12 pq
    and since you seem to be located in germany, you might want to write in german (if possible)?
    
    Wie hast du das herausgefunden? Wird hier ein IpAdressLocator o.ä. verwendet?
    - pq
      
      2009-05-28 19:22
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      ja, und da ich moderatorin and admin bin, kann ich das sehen. in dem fall hab ich aus neugier nachgeguckt, bevor ich auf englisch antworte =)
      in planung habe ich aber, dass ip-adressen nach kurzer zeit gelöscht werden bzw. verschlüsselt, so dass ein moderator nur noch das land sehen kann,
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +6 replies
- topeg
  
  2009-05-28 15:00
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  a litle explanation:
  
  Code: (dl )
  
  1 2 3 4 5
  
  "(...)" write the inherit match in $1 "[0-9]{1,2}" find a number between 0 and 99 "|" or "100" find 100 "+" find the last elemet once or often (the last element is here "(...)") (thats useless here, i guess)
  
  Edit:
  kannst ja doch deutsch und ich brech mir hier einen in Englisch ab :-)
  Last edited: 2009-05-28 15:02:09 +0200 (CEST)
  - +5 replies
  - Gast robiwan
    
    2009-05-28 15:19
    Hallo image,
    
    Danke für die Erklärung, aber wenn ich das teste, dann kommen folgende Ergebnisse raus:
    
    Hier mein Testprogramm:
    
    Code (perl): (dl )
    
    1 2
    
    $opt_w = "$ARGV[0]"; if ($opt_w =~ /([0-9]{1,2}|100)+/) {print "$1\n"}
    
    Und hier die Ergebnisse für den jeweiligen Inhalt von $1:
    
    für $opt_w = 1 steht in $1: 1
    für $opt_w = 99 steht in $1: 99
    für $opt_w = 100 steht in $1: 0
    für $opt_w = 123 steht in $1: 3
    für $opt_w = 1234 steht in $1: 34
    für $opt_w = 12345 steht in $1: 5
    
    Es sieht so aus, als ob bei geradzahligen Nummern (1234) die letzten beiden Zahlen matchen und bei ungeradzahligen Nummern (12345) die letzte Zahl matcht.
    
    Gruß Robert
    - +4 replies
    - pq
      
      2009-05-28 15:24
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      Guest robiwan
      Es sieht so aus, als ob bei geradzahligen Nummern (1234) die letzten beiden Zahlen matchen und bei ungeradzahligen Nummern (12345) die letzte Zahl matcht.
      
      das siehst du falsch. du hast da ein pluszeichen in der regex, was bedeutet, dass der vorhergehende ausdruck mehrmals gematcht wird. du kriegst dann aber im block des if eben nur den letzten angezeigt (welchen auch sonst?).
      wenn du alle matches willst, musst du das ergebnis der regex einem array zuweisen.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +3 replies
      - Gast robiwan
        
        2009-05-28 17:42
        
        Hallo PQ,
        
        Ah, verstanden, das + matcht mehrmals, das ist die Erklärung. Sehr gut.
        
        Aber bleibt noch das |100, das soll doch die Alternative zu den ein-, oder zweistelligen Zahlen sein.
        für $opt_w = 100 steht in $1: 0 -> müsste hier nicht 100 rauskommen? Spätestens nachdem man das + entfernt hat?
        Gruß Robert
        
        +2 replies
        
        topeg
        
        2009-05-28 19:36
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Nein da "10" von den "100" von [0-9]{1,2} gefangen wird, da fällt die letzte "0" unter den Tisch.
        
        Gast robiwan
        
        2009-05-29 09:28
        
        Hallo Freunde,
        Jetzt habe ich verstanden :-)
        Vielen Dank nochmals für alle Antworten.
        Gruss Robert

View all threads created 2009-05-28 14:35.