[perl] Variabele uit een string*

[Twilight]

Ik heb een string die er zo uitziet:

$string = [aanhef[taal]]

Taal is variabel (nl, en , fr etc).
Hoe haal ik de waarde van [taal] uit die string?

Alvast bedankt.

[Verwijderd]

($TmpString) = $string=~ /\\[.*?\\[(\w)\]{2}/;

in $TmpString staat je taal

[Perlian]

$string =~ /^\\[(.*?)\\[(.*?)\]\]/;
$aanhef = $1;
$taal = $2;

succes verder !

[thomaske]

verkeerd gelezen..

[ Voor 95% gewijzigd door thomaske op 20-12-2002 10:30 ]

[Twilight]

oke, thanks komt in de buurt, alleen ik bedoel het iets anders,
Een bezoeker voert in een brief bijvoorbeld in: [sex[nl]].
Dat moet dus worden vervangen door Meneer (of mevrouw) en bij [sex[en]] in Mr of Mrs.
Voor de andere waarden heb ik dit gemaakt:
$case = quotemeta("[name]");
$replace = $subscribers[$a][3];
$content_parsed =~ s/$case/$replace/g;