Jak escapovat $1 v perlu?

[Ludek Finstrle]

Mon, Jul 16, 2007 at 03:56:47PM +0200, Pavel Lisý napsal(a):
> Erich Vinclav píše v Po 16. 07. 2007 v 13:39 +0100:
> > On Mon, 16 Jul 2007 14:33:27 +0200, Pavel Lisý wrote
> > > potřeboval bych poradit, jak napsat něco v perlu. Nemohu na to nějak
> > > přijít a určitě je to jednoduché:
> > 
> > > 
> > > &change_file($file,"^\([^#]*-autorespond\)", "# \$1" );
> >                                                ^^^^^^^
> > 
> > "# ".$1
> Toto nefunguje, zkusím více vysvětlit o co mi jde.
> 
>        $line =~  s/$pattern/$replace/g;

Nahradit radek timto:

eval "\$line =~ s/$pattern/$replace/g;";

Luf