Regex --> Zahlenbereich (solved) (Allgemeines zu Perl)

[thread]15115[/thread]

Regex --> Zahlenbereich [solved]

Tags: regex Similar Threads

Readers: 20

Articles: hide open all | hide show old branches

+5 replies
PETER_PAN2009

2010-06-08 16:45
User since
2009-08-24
111 articles
BenutzerIn
Ich muss wieder mal nerven ;-)!

Versuche mit Regexp::Assemble eine regular expression zu erstellen, mit der ich bestimmte Zahlenbereiche(Datum) abfangen kann.
Code: (dl )

1 2 3 4 5 6 7 8 9

my $str = '200908'; my $ra = Regexp::Assemble->new; $ra->insert(qw((^2005..2008)(01..12))); if ($ra->match($str)){ print "ja\n"; }else{ print "nein\n"; }
Irgendwie klappt das nicht so richtig, hat jemand ne Idee??

Normale regex(qr{^(20[\d]{2}[\d]{2}$} funktioniert aber 100%ig, möchte das Problem aber gerne mit dem CPAN-Modul lösen

ps. Habe auch schon die Suchfunktion benutzt, leider nichts Passendes gefunden.

Gruß
Peter
- renee
  
  2010-06-08 16:58
  
  User since
  2003-08-04
  14371 articles
  ModeratorIn
  
  Hast Du Dir eigentlich schonmal angeschaut, was da für eine Regex rauskommt? Das wird vermutlich nicht das sein, was Du möchtest... In Regulären Ausdrücken gibt es keine "Ranges", was Du aber mit ".." wohl versuchst zu erreichen.
  
  Dein RegEx ist das hier: (?-xism(^2005..2008)(01..12))
  
  Dann kann ich Dir noch YAPE::Regexp::Explain empfehlen. Damit kannst Du Dir erklären lassen, was ein RegEx matcht.
  
  Ich bezweifle auch, dass das Modul wirklich das ist, was Du brauchst.
  
  Edit: Etwas mehr ausformuliert.
  Last edited: 2010-06-08 17:01:13 +0200 (CEST)
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
- topeg
  
  2010-06-08 17:03
  User since
  2006-07-10
  2611 articles
  BenutzerIn
  Du erzeugst die Datums-Liste nicht korrekt.
  Weiterhin kannst du dir auch anschauen wie was erzeugt wurde.
  Beispiel:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
  
  #/usr/bin/perl use strict; use warnings; use Regexp::Assemble; my $str = '200908'; my $ra = Regexp::Assemble->new; for my $y (5..8) { for my $m (1..12) { my $datum=sprintf('20%02u%02u',$y,$m); $ra->add($datum); } } print $ra->re()."\n"; if ($ra->match($str)){ print "ja\n"; }else{ print "nein\n"; }
- +2 replies
- Linuxer
  
  2010-06-08 17:05
  User since
  2006-01-27
  3894 articles
  HausmeisterIn
  Hast Du schonmal kontrolliert, was Du da an die insert() Methode gibst?
  
  Du übergibst eine Liste mit einem Element an die Methode; das Element lautet '(^2005..2008)(01..12)'.
  Ist das wirklich, das, was Du willst?
  
  Kontrolle auf der Kommandozeile:
  
  Code: (dl )
  
  1 2 3
  
  $ perl -Mstrict -wle 'print qw((^2005..2008)(01..12)) ' (^2005..2008)(01..12) $
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - PETER_PAN2009
    
    2010-06-09 14:31
    User since
    2009-08-24
    111 articles
    BenutzerIn
    
    Danke für die Antworten, habe das Ganze anders gelöst:
    
    Code: (dl )
    
    my $regex = qr{^(20[1-9][0-9])(0[1-9]|1[012])};
    
    Gruß
    Peter

View all threads created 2010-06-08 16:45.