replace text with function ?

[2xlp]

I'm trying to parse a document and rewrite certain tags
for example the document has stuff like this in it:

 <img id="image-1" src="http://site.com/a.gif" />

i know how to pull the text via a regex easily

  my $regex= qr|<img id="image-(\d*) src="http://site.com/(\w*)" />

however now i need to replace the node's contents with the output of a function ( which is based on the matches generated ).
can someone please point me in the right direction? this seems like it should be rather simple, but i've been working all weekend and am having trouble wrapping my head around this.

[Fletch]

You want to look at the /e modifier for s/// in perlretut and perlop.

[ikegami]

A simple example:

s/(\d+)/ sprintf('%03d', $1) /eg;

[2xlp]

that is it! thank you!

[ww]

Note, however, that -- as originally posted --your regex does NOT match (has a typo?).

#!/usr/bin/perl -lw
use strict;
# [id://735593]

my $string = '<img id="image-1" src="http://site.com/a.gif" />';
my $regex = qr|<img id="image-(\d)" src="http://site.com/(\w\.\w+)" />
+|;    # works
#                                                         ^^^^^^^     
+      < modified here
if ( $string =~ /$regex/ ) {
  print "\$regex matches: $1 and $2";
} else {
  print "No match in $regex";
}

my $OPregex= qr|<img id="image-(\d*) src="http://site.com/(\w*)" />|; 
+    # OP's with (added) terminating "|;"
if ( $string =~ /$OPregex/ ) {
  print "\$OPRegex matches: $1 and $2";
} else {
  print "no match in \$OPRegex";
}

Output:

perl  F:\_wo\pl_test\735593.pl
$regex matches: 1 and a.gif
no match in $OPRegex

[2xlp]

ha ha, yes! nice catch!

that wasn't the real regex -- stuff is working PERFECTLY now.

thanks to all!