Need help with pattern matching/replacing 1

[dimitad]

Hi all,

I need to do a very simple replace on a piece of text but the problem is first of all my code needs to find the required string then based on that string look up an id in a database and then replace the string with the following url:

http://www.example.com?id=$id

# where $id is from the db.

This is what I have so far (assume all variables are already initialized to a text file):

foreach (@data) {
if ( m/stringtofind/gi ) {
$string_id{$&} = process_string($&);
}
}

process_string simply takes the string looks it up in the db and returns the id. At this point I need some help ... not sure how to replace the stringtofind with the above url. If i do s/stringtofind/

http://www.example.com?id=$id/gi

nothing happens, maybe the $_ variable needs to be reset but I cant find out how.

Thanks for any help!

 

[KevinADC]

maybe:

foreach (@data) {
   if ( s/(stringtofind)/process_string($1)/ie ) {
      print "new string: $_\n";
   }
   else {
      print "nothing changed: $_\n";
   }
}

- Kevin, perl coder unexceptional!

 

[dimitad]

That works only thing is the functino process_string returns the id of the string. What is the correct way to append that to the url .. something like:

s/(stringtofind)/

http://www\.example\.com\/?id=process_string($1)/ie

the above gives an error of course ...

Thank you for your help!

 

[KevinADC]

foreach (@data) {
   if ( s/(stringtofind)/'[URL unfurl="true"]www\.example\.com\/?id='[/URL] . process_string($1)/ie ) {
      print "new string: $_\n";
   }
   else {
      print "nothing changed: $_\n";
   }
}

- Kevin, perl coder unexceptional!

 

[dimitad]

Thank you!

 

[KevinADC]

You're welcome

- Kevin, perl coder unexceptional!