How can you embed a function inside a replacement operator ?

[neilsolent]

Hi
Sorry if this is a basic question.
How can you embed a function inside a replacement operator ?

e.g.:
####################################
sub conv()
{
return $_[0] * 2;
}


$test = 'abc125abc';

$test =~ s/(\d+)/&conv($1)/g;

print $test . '\n';
####################################

The output of this script is:

abc&conv(123)abc

Whereas I would like it to be:

abc250abc


Many thanks,
Neil

 

[Peter Makholm]

Sorry if this is a basic question.
How can you embed a function inside a replacement operator ?

Look at the /e modifier. It is documented in 'perldoc perlop'.

//Makholm

 

[nolo contendere]

Hi
Sorry if this is a basic question.
How can you embed a function inside a replacement operator ?

e.g.:
####################################
sub conv()
{
return $_[0] * 2;

}

$test = 'abc125abc';

$test =~ s/(\d+)/&conv($1)/g;

print $test . '\n';
####################################

The output of this script is:

abc&conv(123)abc

Whereas I would like it to be:

abc250abc

my $test = 'abc125def';
$test =~ s/(\d+)/conv($1)/ge;

print $test, "\n";

sub conv {
my ( $val ) = @_;
return $val * 2;
}


__OUTPUT__

bash-2.03$ ./replace_func.pl
abc250def
bash-2.03$

 

[neilsolent]

Look at the /e modifier. It is documented in 'perldoc perlop'.

//Makholm

Thanks for that guys, thought it would be simple. I did do a search
first (honest!)

 

[nolo contendere]

Thanks for that guys, thought it would be simple. I did do a search
first (honest!)

np. sometimes it's hard to phrase your question for a search engine,
especially if you lack the correct key word. also, your post was
exemplary in that you posed a cogent question, showed your attempt
that was as short as possible and as long as it needed to be, showed
your results, and showed what you expected.