RegEx: Wie sind die implementiert? - #77810 (Allgemeines zu Perl)

pktm

2007-06-26 01:37

User since
2003-08-07
2921 Artikel
BenutzerIn

Des ist aber nur eine einfache Verkettung. Was ist mit sowas wie einem kontextfreien Ausdruck und einer regulären Sprache im Schnittt?

Also z.B. mein Ausdruck für diverse Klammerstrukturen:

Code: (dl )

=head3 _regex_unmittelbareDominanz( $satz, $dominierendesSymbol, $dominiertesSymbol )

Diese Funktion  überprüft, ob im gegebenen Satz ($satz)
ein Symbol ($dominierendesSymbol) ein anderes Symbol ($dominiertesSymbol)
unmittelbar dominiert.

=cut

sub _regex_unmittelbareDominanz($$$) {
    my ($s, $x1, $x2) = @_;
    
    our $pat;
    $pat = qr!
        (?:
            \[
            (?>
                (?>[^\[\]]+)
                |
                (??{$pat})
            )*
            \](?:\,\s)*
        )
    !x;
    
    say "suche mit $x1, $x2 in $s";
    
    if( $s =~ /\[$x1\,\s?($pat)*\[\[?[\'\,\w\s]*$x2/ ) {
        say "gefunden";
        return 1;
    }else{
        say "nix da!";
        return 0;
    }
    
} # /_regex_unmittelbareDominanz

Und meinen Satz:

Code: (dl )

[['S',[['CNP',[['NP',['NN Leben']],['KON und'],['NP',['NN Tod']]]],['VAFIN waren'],['NP',[['CARD zwei'],['NN Seiten'],['NP',[['PDAT derselben'],['NN Sache']]]]]]]]

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