Re: multiple (different) substitutions on same $foo

Yes. Not only that, you can also print the result in one go.

my $foo  = "A man and a woman saw a frog by the pond\n";

s/frog/toad/g, s/man/boy/, s/woman/girl/, print for ($foo);

__END__
A boy and a girl saw a toad by the pond
[download]

update This is beyond the point of the original request, but following halley's lead, a stronger implementation would be

s/\bfrog\b/toad/g, s/\bman\b/boy/, s/\bwoman\b/girl/, print for $foo;
[download]

Comment on Re: multiple (different) substitutions on same $foo Select or Download Code

Replies are listed 'Best First'.
Re: Re: multiple (different) substitutions on same $foo by halley (Prior) on Aug 22, 2003 at 13:05 UTC
Order is also important in our (possibly quite contrived) example. Change it around just a bit and you see the problem: `my $foo = "A woman and a man saw a frog by the pond\n"; s/frog/toad/g, s/man/boy/, s/woman/girl/, print for ($foo); __END__ A woboy and a man saw a toad by the pond` [download] -- `[ e d @ h a l l e y . c c ]`	[reply] [d/l]