Extrakce retezce mezi uvozovkami

[Pavel Hlavnicka]

Zvesela!

> 
>    Hi all,
> 
>    Mam retezec $a = 'neco "neco jineho"' a chci z nej pomoci s// operatoru
> vytahnout to, co je mezi uvozovkami. Bohuzel mi vubec nic nefunguje. Neco
> jako $a =~ s/"(.*)"/$1/ nefunguje.
> 
>    Bye Borek

No, ja kdyz to prevedu v takovejhle prokladek

$a = 'neco "neco jineho"';
$a =~ s/"(.*)"/$1/;
print $a;

Tak to udela presne to co ma :-), tj. napise to: neco neco jineho
To co bylo mezi uvozovkami (to bylo to, co trefil reg. vyraz) vcetne
tech
uvozovek se nahradilo tim, co bylo v zavorkach, tj. tim mezi uvozovkami.
Do cestiny prelozeno odendalo to ty uvozovky.

Paklize chcete ziskat je to mezi uvozovkami, pak chcete napsat toto

print $1 if $a =~ /"(.*)"/;


Hodne stesti

-- 
Pavel Hlavnicka
A.S.E.I. Ltd; Prague
tel.: +420 2 24106102
e-mail: pavel na asei.cz