Re: Re: Non-destructive string substitution

This doesn't work either:

my $foo = "foo";
print map {s/foo/bar/g; $_} do{$foo};
print "\n$foo\n";
[download]

prints

bar
bar
[download]

This, however, does:

my $foo = "foo";
print map {s/foo/bar/g; $_} @{[$foo]};
print "\n$foo\n";
[download]

-Mark

Comment on Re: Re: Non-destructive string substitution Select or Download Code

Replies are listed 'Best First'.
Re: Re: Re: Non-destructive string substitution by japhy (Canon) on Apr 20, 2004 at 18:39 UTC
Hmm. The debugger runs them differently. Oh well. Regardless, if you don't mind stringification, you can use `"$foo"` as the argument to `map()`. _____________________________________________________ Jeff`[japhy]`Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area) `s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;`	[reply] [d/l] [select]