RegEx-Frage2: Rekursion: Zeit zum Schlafengehen (Allgemeines zu Perl)

[thread]8883[/thread]

RegEx-Frage2: Rekursion: Zeit zum Schlafengehen

pktm

2007-03-28 02:41

User since
2003-08-07
2921 Artikel
BenutzerIn

Hallo!

Eine habe ich noch:

Code: (dl )

my $s = qq~['S', ['NP', ['XP', ['YP', ['ZP'], ['ZP']]] 'VP']]~;
my $wort = qr/\[\'\w+\'\](?:\,\s)*/;
my $struktur;
$struktur = qr/
    (?:
    \[\'\w+\'\,\s
    ($wort|$struktur)+
    \]
    (?:\,\s)*
    )+
/x;

if( $s =~ $struktur ) {
    print "gefunden!\n";
    print $&;
}else{
    print "nicht gefunden  :-(\n";
}

Da erhalte ich als Ergebnis ['YP', ['ZP'], ['ZP']].
Ich hätte aber auch gerne die Strukturen drumherum, also auch die anderen ['\w+', ...nochmalsowasOderEinWortHier...] - Strukturen. Nicht nur das notwendigste um die Bedingung zu erfüllen sondern alles (gab es da nicht einen Schalter für?).

Wie geht das?

Grüße, pktm

http://www.intergastro-service.de (mein erstes CMS :) )

renee

2007-03-28 10:15

User since
2003-08-04
14371 Artikel
ModeratorIn

Meinst Du das hier:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

my $string = qq~['S', ['NP', ['XP', ['YP', ['ZP'], ['ZP']]] 'VP']]~;

our $pat;
$pat = qr!\[(?>(?>[^\[\]]+)|(??{$pat}))*\]!;

if( $string =~ /^($pat)$/ ){
    print "matcht $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

2007-03-28 14:14

User since
2003-08-07
2921 Artikel
BenutzerIn

Ja super!

Und schon haben wir eine RegEx für unmittelbare Dominanz in einem Baum:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

my $string = qq~['X', ['S', ['Y', ['X0']], ['NP', ['YP', ['ZP']], 'VP'], 'DA']]~;

our $pat;
$pat = qr!
    \[
    (?>
        (?>[^\[\]]+)
        |
        (??{$pat})
    )*
    \](?:\,\s)*
!x;

if( $string =~ /\[\'S\'\,\s($pat)*\[\'NP\'/ ) {
    print "matcht $1!\n";
    print "alles: $&\n";
}else{
    print "nix gefunden  :-(\n";
}

http://www.intergastro-service.de (mein erstes CMS :) )

View all threads created 2007-03-28 02:41.