regexp gesucht (Allgemeines zu Perl)

[thread]6327[/thread]

regexp gesucht

esskar

2004-06-11 15:05

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

ich brauche einen einzigen regexp:

und zwar:

Code: (dl )

1
2

$text1 = qq~"ich\\bin\\in\\quotes"~;
$text2 = qq~ich\\bin\\nicht\\in\\quotes~;

wenn ich den regexp auf beide strings los lasse, soll beim ersten das resultat in

Code: (dl )

$1 eq "ich\\bin\\in\\quotes" # also nicht $1 eq qq~"ich\\bin\\in\\quotes"~;

und beim zweiten soll

Code: (dl )

$1 eq "quotes"

sein...

unabhängig voneinander kann man für 1.

Code: (dl )

m!"(.*)"!

schreiben und für 2.

Code: (dl )

m!.*\\(.*)!

aber wie kombiniere ich jetzt beide zu einem einzigen regexp?\n\n

esskar

2004-06-11 15:21

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

Code: (dl )

1
2

m!"(.*)"|.*\\(.*)!;
print "$1$2"