question of substitution

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

Replies are listed 'Best First'.
Re: question of substitution by lidden (Curate) on Feb 27, 2005 at 12:11 UTC
Try it: `my $foo = 'abc this cba'; my $bar = 'ijk this kji'; ($foo = $bar) =~ s/this/that/; print "foo = $foo, bar = $bar\n";` [download]	[reply] [d/l]
Re^2: question of substitution by wannabeboy (Novice) on Feb 27, 2005 at 12:32 UTC
Got it! Another question: to use /x or not to sue /x Check this code `$program =~ s { /\* .? \/ } []gsx;` [download] this will remove any comment in a c program. What's the role of /x (I believe it is for extended regulars expressions)??	[reply] [d/l]
Re^3: question of substitution by sh1tn (Priest) on Feb 27, 2005 at 12:35 UTC
/x modifier - 'Ignore (most) whitespace and permit comments in pattern' perldoc perlre	[reply]
Re: question of substitution by sh1tn (Priest) on Feb 27, 2005 at 12:32 UTC
This statement is the same as: `$foo = $bar; $foo =~ s/this/that/;` [download] But not the same as: `$foo = $bar =~ s/this/that/; #which will return the result of a substitution #because of the lower priority of assignment operator` [download] To make assignment/substitution in the given order you must define precedence which can be done with parentheses.	[reply] [d/l] [select]