Passing results of a substitution to a function

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Passing results of a substitution to a function by Pardus (Pilgrim) on Jan 20, 2003 at 03:38 UTC
This can't be done directly since the search and replace functions return the number of matches, not the string. But you could do this: `$word = 'blah'; print my_sub(map {s/blah/cow/; $_} ($word));` [download] although it _is_ a one-liner it won't get a beauty price either. -- Jaap Karssenberg \|\| Pardus (Larus)? <pardus@cpan.org> >>>> Zoidberg: So many memories, so many strange fluids gushing out of patients' bodies.... <<<<	[reply] [d/l]
Re: Passing results of a substitution to a function by boo_radley (Parson) on Jan 20, 2003 at 03:43 UTC
Yes, there is a way you can pass a regex -- as a scalar -- around. See qr// in perlop.	[reply]
Re: Passing results of a substitution to a function by Coruscate (Sexton) on Jan 20, 2003 at 03:44 UTC
You could always use grep. Note that I changed the print() in blah() to a return, otherwise you'll end up printing an extra value out.: `my $word = 'BLAHBLAH'; print blah(grep{s/BLAH/COW/}$word); sub blah { my $stuff = shift; return "$stuff\n"; }` [download]	[reply] [d/l]
Re: Re: Passing results of a substitution to a function by Anonymous Monk on Jan 20, 2003 at 23:24 UTC
This seems to work quite nicely - but needs a small amount of tweaking to make sure grep doesn't return stuff in scalar context.	[reply]
Re: Re: Passing results of a substitution to a function by Anonymous Monk on Jan 20, 2003 at 23:50 UTC
Ok - I now have something which works a lot more niftily: `my $word = 'BLAHBLAH' blah(grep {s/BLAH/COW/ \|\| 1 } $word);` [download] The `{ s/BLAH/COW/ \|\| 1 }` bit is required as I want to also pass in arguments which do not contain 'BLAH' (which grep would usually.. er.. grep away ;) ). I was worried about list context before because I was trying to get around this by using `blah(grep(s/BLAH/COW/,$word)\|\|$word)` [download]	[reply] [d/l] [select]
Re: Passing results of a substitution to a function by BrowserUk (Patriarch) on Jan 20, 2003 at 12:05 UTC
Your sample code doesn't make much sense in that you are not applying the s/// to anything. You say you want to pass the results of the s/// to the sub, without recourse to a temporary var. If your intent is to apply the s/// to $word, then this requires no additional vars. `$word = 'BLAHBLAH'; $word =~ s/BLAH/COW/; print blah( $word ); print "$word\n";` [download] It's not clear to me if this is what you want, but if it's not, maybe you could clarify for me? Examine what is said, not who speaks. The 7th Rule of perl club is -- pearl clubs are easily damaged. Use a diamond club instead.	[reply] [d/l]
Re: Re: Passing results of a substitution to a function by Anonymous Monk on Jan 20, 2003 at 23:28 UTC
I want to apply the s/// to $word, but I want to keep the contents of $word as is. It's a one-off non-permanent substitution I'm making (for the purpose of feeding arguments into the method).	[reply]
Re: Passing results of a substitution to a function by BrowserUk (Patriarch) on Jan 20, 2003 at 23:37 UTC
You could do this ... whether you should is for your own concience:) `sub blah{print +shift;} my $word = 'BLAHBLAH'; blah( do{ (local $_= $word) =~ s/BLAH/COW/g; $_} ); # prints COWCOW print $word; # prints BLAHBLAH` [download] Examine what is said, not who speaks. The 7th Rule of perl club is -- pearl clubs are easily damaged. Use a diamond club instead.	[reply] [d/l]
Re: Passing results of a substitution to a function by jepri (Parson) on Jan 20, 2003 at 05:19 UTC
Intruiging - it works for matches, but not for substitutes. ____________________ Jeremy I didn't believe in evil until I dated it.	[reply]


go ahead... be a heretic
	PerlMonks