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

Replies are listed 'Best First'.
Re^2: How do I pass $1 to s///? by Anonymous Monk on Jan 06, 2006 at 19:19 UTC
No need to use `eval`, I'd prefer one of... `sub foo { (my $text = $_[0]) =~ s/$_[1]/$_[2]->($1)/e; print $text; } foo("This is test 1\n", qr/test (.)/, sub{"fish $_[0]"});` [download] ...or... `sub foo { (my $text = $_[0]) =~ s/$_[1]/$_[2]->()/e; print $text; } foo("This is test 1\n", qr/test (.)/, sub{"fish $1"});` [download]	[reply] [d/l] [select]
Re^3: How do I pass $1 to s///? by ikegami (Patriarch) on Jan 06, 2006 at 19:32 UTC
Nice, as long as the parameters of `foo` aren't read a file.	[reply] [d/l]
Re^4: How do I pass $1 to s///? by Anonymous Monk on Jan 06, 2006 at 20:10 UTC
`~/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]	[reply] [d/l] [select]
Re^5: How do I pass $1 to s///? by ikegami (Patriarch) on Jan 06, 2006 at 20:17 UTC
Re^6: How do I pass $1 to s///? by Anonymous Monk on Jan 06, 2006 at 21:03 UTC
Some notes below your chosen depth have not been shown here
Re^2: How do I pass $1 to s///? by Anonymous Monk on Jan 06, 2006 at 17:19 UTC
Slightly nicer as... `(my $text = $_[0]) =~ s/$_[1]/$_[2]/ee;` [download]	[reply] [d/l]
Re^3: How do I pass $1 to s///? by ikegami (Patriarch) on Jan 06, 2006 at 17:25 UTC
I call that uglier since it hides the `eval`. `eval EXPR` is something that should be glaring, blinking and alarming.	[reply] [d/l] [select]
Re^2: How do I pass $1 to s///? by Anonymous Monk on Jan 06, 2006 at 17:07 UTC
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! :)	[reply]
Re^3: How do I pass $1 to s///? by ikegami (Patriarch) on Jan 06, 2006 at 17:23 UTC
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 %]');` [download] (Untested)	[reply] [d/l]
Re^3: How do I pass $1 to s///? by Happy-the-monk (Canon) on Jan 06, 2006 at 17:24 UTC
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	[reply]


There's more than one way to do things
	PerlMonks