Beat: regex für deine gewünschte Daten

Beitrag lesen

11.000 Narubu
130.020 Bloodhound
19.221 schwerer    ??????????????
879 Finur

  
my $re = qr/  
   [1-9]           # beginnt mit 1-9  
   \d{0,2}         # gefolgt von optional weiteren 2 \d  
   (?:\.\d\d\d)*   # gefolgt von beliebig vielen Gruppen von .ddd,  
                   # nicht speichern  
   \s              # gefolgt von genau einem Whitespace  
   (?!            # Negative: Lookahead Assertion:  
                   # schau, dass das folgende NICHT ist  
     \b            # wordboundery  
     (?:  
      von  
     |  
      Anfragen?  
     |  
      CEST  
     |  
      Millisekunden?  
     )  
     \b              # wordboundary  
   )  
  
   [A-Z][A-Za-z]+    # Ein Wort, das mit Grossbuchstaben beginnt  
   /x;  
  
while( $string =~ /($re)/g){  
  print $1, "\n";  
}  

Übersetzung in eine Sprache deiner Wahl ist deine Übung.

mfg Beat

--
Woran ich arbeite:
X-Torah
   <°)))o><                      ><o(((°>o