Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Answer: How do I assign & substitute in one statement?

( #366434=categorized answer: print w/ replies, xml ) Need Help??

Q&A > strings > How do I assign & substitute in one statement? - Answer contributed by dfaure

From Re: Assign & substitute in one statement? by Zaxo

Just write parens in their precedence-adjusting role:

($dirfilename = $url) =~ s|\Q\E||;

From the Perl Cookbook, recipe 6.1.Copying and Substituting Simultaneously:

You can even use this technique on an entire array:

@bindirs = qw( /usr/bin /bin /usr/local/bin ); for (@libdirs = @bindirs) { s/bin/lib/ } print "@libdirs\n"; __OUTPUT__ /usr/lib /lib /usr/local/lib

The parentheses are required when combining an assignment if you wish to change the result in the leftmost variable. Normally, the result of a substitution is its success: either "" for failure, or the number of times the substitution was done. Contrast this with the preceding examples where the parentheses surround the assignment itself. For example:

($a = $b) =~ s/x/y/g; # copy $b and then change $a $a = ($b =~ s/x/y/g); # change $b, count goes in $a

Log In?

What's my password?
Create A New User
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (2)
As of 2016-08-25 03:48 GMT
Find Nodes?
    Voting Booth?
    The best thing I ever won in a lottery was:

    Results (353 votes). Check out past polls.