Re^2: sprintf using variables for format and variables to do a search and replace, sprintf issues

Thanks for the reply. The sprintf was a bit interesting as I had to isolate the to do ${1} etc. as the variables were sometimes followed by a number say $145 and I really needed the $1 ... I will look over the gsub_copy as it might be better as my "solution" is limited to 9 matches currently, which should me more than enough for the purpose of this script, which should need no more than 2. This is what I ended up with last night:

sub stringExpressionReplace {
  my $mod_string  = $_[0];
  my $find        = $_[1];
  my $replace     = $_[2];

  my $orig_string  = $mod_string;
  my $mod_replace  = sprintf("\"%s\"",$replace);
  $mod_replace   =~ s/\$(\d)/\${$1}/g;
  $mod_string =~ s/$find/$mod_replace/ee;
  print "                 stringExpressionReplace String: $orig_string
+ --> $mod_string\n" if($orig_string ne $mod_string);
  return $mod_string;
}
[download]

Comment on Re^2: sprintf using variables for format and variables to do a search and replace, sprintf issues Download Code