Re^2: How do I pass $1 to s///?

[Anonymous Monk]

Ah, thankyou! The only problem is that I want to pass a much more complicated string in than "fish $1"... What do you mean by a templating system? Can you point me at a webpage or something? Thanks for the replies BTW! It's most appreciated! (You monks reply fast too! :)

[ikegami]

You can pass any Perl source code in the above snippet (which is why it's potentially dangerous).

One templating system would be the Template Toolkit.

use Template;

sub foo {
   my $template = Template->new();

   (my $text = $_[0]) =~ s/$_[1]/
      my $output = '';
      my @matches =
         map { substr($text, $-[$_], $+[$_] - $-[$_]) } 1 .. $#-;
      $template->process(\$_[2], { matches => \@matches }, \$output);
      $output
   /e;
   print $text;
}

foo("This is test 1\n", qr/test (.*)/, 'fish [% matches.1 %]');

(Untested)

[Happy-the-monk]

What do you mean by a templating system? Can you point me at a webpage or something?

See some tutorials on Template Systems in the network Tutorial section here on Perl Monks.

Cheers, Sören