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

~/perl/monks$ cat foo.txt
sub{"fish $_[0]"};
[download]

...then...

$foo_from_file = do "foo.txt";
foo("This is test 1\n", qr/test (.*)/, $foo_from_file);

sub foo { (my $text = $_[0]) =~ s/$_[1]/$_[2]->($1)/e;
          print $text; }
[download]

Comment on Re^4: How do I pass $1 to s///? Select or Download Code

Replies are listed 'Best First'.
Re^5: How do I pass $1 to s///? by ikegami (Patriarch) on Jan 06, 2006 at 20:17 UTC
You're using `eval` (disguised as `do`), so my point stands.	[reply] [d/l] [select]
Re^6: How do I pass $1 to s///? by Anonymous Monk on Jan 06, 2006 at 21:03 UTC
`~/perl/monks$ cat foo.txt fish $1 ~/perl/monks$` [download] ...then... `#!/usr/bin/perl open FOO, "<foo.txt"; $foo_from_file = <FOO>; foo("This is test 1\n", qr/test (.*)/, $foo_from_file); sub foo { (my $text = $_[0]) =~ s/$_[1]/interpolate($_[2],$1)/e; print $text; } sub interpolate { my ($str,@vars) = @_; $str =~ s/\$(\d+)/$vars[$1-1]/g; $str }` [download]	[reply] [d/l] [select]
Re^7: How do I pass $1 to s///? by ikegami (Patriarch) on Jan 06, 2006 at 21:10 UTC
You've just written your own template system. Why not use an existing one? There's even one that interpolates as Perl would. Like most homegrown template systems, yours has a bug. It doesn't provide a means of outputing "`$1`".	[reply] [d/l]