Re^2: Combining multiple =~ s/


We don't bite newbies here... much
	PerlMonks

Re^2: Combining multiple =~ s/

by Corion (Patriarch)

on Mar 07, 2021 at 19:10 UTC ( [id://11129292]=note: print w/replies, xml )

Need Help??

in reply to Re: Combining multiple =~ s/
in thread Combining multiple =~ s/

You want to sort the words in the regular expression by descending length :) Or alternatively, use \b to match only whole words:

my %trans = (zero  => 0,
             one   => 1,
             ones  => 11,
             two   => 2,
             three => 3);

my $words_re = join "|", map quotemeta, sort { length($b) <=> length($
+a) } keys %trans;
$string =~ s/\b($words_re)\b/$trans{lc $1}/ig;
[download]

Otherwise, it could be that one matches before ones.

Update: choroba spotted that the length($b) and length($a) were missing

Comment on Re^2: Combining multiple =~ s/ Select or Download Code

Replies are listed 'Best First'.
Re^3: Combining multiple =~ s/ by no longer just digit (Beadle) on Mar 10, 2021 at 06:54 UTC
It might be worth pointing out the CPAN module Data::Munge which has a function `list2re` to make a list-matching regex. This line is basically what you need: `my $re = join '\|', map quotemeta, sort {length $b <=> length $a \|\| +$a cmp $b } @_;` [download] There is also this, which is what I use.	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://11129292]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others exploiting the Monastery: (3)

As of 2024-04-19 20:04 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found