in reply to String replace with function

Use the /e switch (see the end of the Modifiers section in perlre):

use strict;
use warnings;

my $str = "1 2 345 23";

$str =~ s/(\d+)/add($1)/ge;

print $str;

sub add {
    my ($num) = @_;
    return $num + 10;
}

[download]

Prints:

11 12 355 33

[download]

Note that your sample was missing 's' in front of the first / that denotes substitution instead of match and was missing capture parenthesis in the match. Also, you don't need & to call a function, and in fact should (almost) never use that call syntax.

Oh, and a sub called 'add' should add, not multiply. If you can't get simple names like that right you are going to cause a lot of grief for someone down the road!

Premature optimization is the root of all job security

Replies are listed 'Best First'.
Re^2: String replace with function
by shmem (Chancellor) on Sep 19, 2016 at 21:33 UTC
    Also, you don't need & to call a function, and in fact should (almost) never use that call syntax.

    To expand this bit, &function was the perl4 way to invoke subroutines. In perl5, &function

    • passes the current @_ to the invoked subroutine
    • overrides function prototypes

    Function prototypes? You should (almost) never use that... see perlsub.

    perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'
[reply]
[d/l]
[select]
Re^2: String replace with function
by AnomalousMonk (Archbishop) on Sep 19, 2016 at 23:08 UTC
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom