Re: Map with Regex Replace

See Regexp-Quote-Like-Operators. s/// returns the number of substitutions made. The /r option makes it return the modified string, but it's "only" available since 5.14 I believe.

As a workaround for an older Perl, consider

map { (my $foo=$_)=~ s!.*/!!; $foo } ...
[download]

or, in your case, consider File::Basename or Path::Class.

Comment on Re: Map with Regex Replace Select or Download Code

Replies are listed 'Best First'.
Re^2: Map with Regex Replace by kennethk (Abbot) on Aug 08, 2013 at 14:43 UTC
Regarding the older Perl workaround, Corion's solution can roughly equivalently be expressed as `map { s!./!!; $_ } ...` [download] providing that the array you are feeding is not read only (i.e. @ARGV works but `qw\|1.2 3.4 5.6\|` would require the lexical misdirection) and you don't care if it mutates. I think the more natural way of expressing this, since you are really operating on every element, would be to write `s!./!! for @ARGV; print "Lexicons: ", join(", ", @ARGV[FIRST_LEXICON .. $#ARGV]), "\n";` [download] The general rule of thumb/best practice-y thing is you should only use maps when you use the return value; and for/foreach when you are operating on each element. The lexical assignment in Corion's solution essentially turns the operation into something mappier. #11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.	[reply] [d/l] [select]
Re^2: Map with Regex Replace by Endless (Beadle) on Aug 08, 2013 at 14:01 UTC
Ah! That /r did it (I'm on 5.16). Perfect! Thanks!	[reply]