expand uvozovek

[Honza Pazdziora]

On Sat, Jun 26, 2004 at 06:06:53PM +0200, Pavel Smerk wrote:
> 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?

use Benchmark;

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
 .project: Perl, mod_perl, DBI, Oracle, large Web systems, XML/XSL, ...
		Only self-confident people can be simple.