expand uvozovek

[Jiri Polcar]

    Zdravim,

v promenne $a mam retezec, ktery obsahuje nejake specialni znaky,
napriklad "\n", ale retezec je uveden v apostrovech. Jak prinutim Perl,
aby specialni znaky v retezci vyhodnotil? Uvedu priklad:

mam

    $a = '-\npepa\n-';

a chci aby v $b bylo

    $b = "-\npepa\n-";

Mam jedno reseni:

    $b = eval qq["$a"];

ale to nemohu pouzit, protoze $a muze obsahovat i kusy kodu Perlu a
eval() pak vyhodi vyjimku.

Diky.

--
JP