expand uvozovek

[Pavel Smerk]

On Fri, Jun 25, 2004 at 09:32:31AM +0200, Honza Pazdziora wrote:
> Pokud nemate obsah toho $a pod kontrolou, pak nezbyde, nez vypsat
> seznam veci, ktere chcete, aby se prevedly, a prevest jenom ty.
> Napriklad
> 
> 	my %mapovani = (
> 		'\n' => "\n",
> 		'\t' => "\t",
> 		'\b' => "\b",
> 		'\k' => "krtek",
> 		'\0' => "\0",
> 		);
> 	$a =~ s/(\\.)/ exists $mapovani{$1} ? $mapovani{$1} : $1 /ge;

Je tohle levnejsi, nez kdyby clovek udelal

s/\\n/\n/g;
..
..
..
s/\\0/\0/g;

nebo to vyjde nastejno?
								Diky,	P.