RegEx Problem - #72142 (Allgemeines zu Perl)

Gast Gast

2006-12-01 16:06

Hallo,

Ich hab grad ein Brett vorm Kopf und komm nicht weiter. Also gegeben sei ein String (aus einem SQL-Codegenerator)

Code: (dl )

my $s = "bla bla and table.column like 'inhalt' and bla bla bla";

Nun brauche ich eine RE, der mir den String folgendermassen in 4 Teile zerlegt, etwa so:

Code: (dl )

1
2

my @l = $s =~ /^(.*?)([\w.]*) like ('.*')(.*)$/;
print join "\n", @l;

Ich bekommen dann folgende (korrekte) Ausgabe:

Code: (dl )

bla bla and
table.column
'inhalt'
 and bla bla bla

Nun zu meinem Problem: Der Quellstring kann auch z.B. so aussehen:

Code: (dl )

my $s = "bla bla and table.column like 'in''ha''lt' and bla bla bla";

(Da in SQL ' mit '' escaped werden). Ich bräuchte dann folgende Ausgabe:

Code: (dl )

bla bla and
table.column
'in''ha''lt'
 and bla bla bla

Vermutlich ganz einfach, aber ich kriegs nicht hin..