Re: regexp - repeatedly delete words from end of string with words in alternation


Don't ask to ask, just ask
	PerlMonks

Re: regexp - repeatedly delete words from end of string with words in alternation

by kyle (Abbot)

on Nov 06, 2007 at 15:57 UTC ( [id://649240]=note: print w/replies, xml )

Need Help??

in reply to repeatedly delete words expressed in alternation from end of string [regexp]

my $RE = qr! \b ( SA | NV | LTD | CO | LLC ) \b !ix ;
my $s1 = 'Bobs Warehouse SA LTD';
my $s2 = 'Jims Fine Wines CO LLC';

1 while $s1 =~ s{$RE}{};
1 while $s2 =~ s{$RE}{};

print "[$s1]\n[$s2]\n";
__END__
[Bobs Warehouse  ]
[Jims Fine Wines  ]
[download]

Comment on Re: regexp - repeatedly delete words from end of string with words in alternation Download Code

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

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

Chatterbox^?

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

Other Users^?

Others perusing the Monastery: (3)

As of 2026-01-19 09:28 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

What's your view on AI coding assistants?

Results (122 votes). Check out past polls.

Notices^?

	• hippo	‥ epoptai's answer Re: how do I set a cookie and redirect was blessed by hippo!
	• erzuuli	‥ Anonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.