Jak escapovat $1 v perlu?

[Dalibor Straka]

On Mon, Jul 16, 2007 at 02:33:27PM +0200, Pavel Lisý wrote:
> Dobrý den
> 
> 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" );
> ---------------------
>

Dobry vecer,

zkuste tohle:

#!/usr/bin/perl
use warnings;
use strict;

sub params($$$) {
	my ($a, $b, $c) = @_;
	my $d;

	print "First: $a\n";
	print "Second: $b\n";
	print "Third: $c\n";

	$d = sprintf "Third: $c\n";
	print $d;

}

my $dummy = "zamrzlo";

if ($dummy =~ /(zamrzlo)/m) {
	#
	# Now the $1 contains string "zamrzlo"
	#
	params ("ahoj", "#-clovece", "# peklo $1");
}

1;

-- Dalibor Straka