RegEx aus Array bauen (Allgemeines zu Perl)

[thread]14420[/thread]

RegEx aus Array bauen

Leser: 18

Articles: hide open all | hide show old branches

+3 replies
pktm

2009-12-28 10:01

User since
2003-08-07
2921 Artikel
BenutzerIn

Hallo!

Ich habe ein Array mit Werten, die als Präfix von Zeichenketten auftreten können, z.B. "a_" oder "a_b_" oder "p.x_". Gemein ist ihnen, dass ich die Länge nicht unbedingt kenne. Ich kenne aber alle Präfixe. Wenn diese Präfixe ein gemeinsames Präfix haben, soll der longest match gewinnen, findet man also "a_b_keks", soll das dem Präfix "a_b_" und nicht "a_" zugeordnet werden.

Wie mache ich aber nun aus dem Array einen regulären Ausdruck, der prüft, ob, und wenn, zu welchem Präfix eine Zeichenkette gehört? Ich weiß, es gibt Module dazu, die ich mir jetzt mal heraussuchen werde, dennoch würde mich interessieren, wie man das von Hand macht.

Grüße, pktm
http://www.intergastro-service.de (mein erstes CMS :) )
- +2 replies
- renee
  
  2009-12-28 10:22
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Ein einfacher Ansatz:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  #!/usr/bin/perl use strict; use warnings; my @array = qw(a_ a_b_ p_ p.x_); @array = sort{ length $b <=> length $a }@array; my $rx_string = join '|', map{ qr/\Q$_\E/ }@array; my $regex = qr/^($rx_string)/; for my $string ( qw(a_b_file a_test) ) { if ( $string =~ $regex ) { print $1,"\n"; } }
  
  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/
  - pktm
    
    2009-12-28 13:15
    
    User since
    2003-08-07
    2921 Artikel
    BenutzerIn
    
    Ah, sehr gut. Das mit dem Escapen durch \Q und \E hatte ich schon wieder vergessen :-s
    
    Danke!
    http://www.intergastro-service.de (mein erstes CMS :) )

View all threads created 2009-12-28 10:01.