Re: How do I match for a pattern in an array element delimited with a /

A little more straightforwardly:

foreach (@array) {
    s{/(MSS.*?)/}
     { my $m=$1; $m=~s/ +([^*])/$1/g; $m}ge;
}
[download]

Note that I'm using {} as delimiters for the main s///, and that what looks like an inner block of code is the replacement portion. The e option causes it to be eval'd.

Within the eval section, I operate on the matched string, and replace any spaces that are followed by something other than a * with whatever they are followed by.

Without the +, it would squeeze multiple spaces into one space, when followed by a *, and if not followed by a *, it would (of course) remove them all.

Comment on Re: How do I match for a pattern in an array element delimited with a / Download Code

Replies are listed 'Best First'.
Re: Answer: How do I match for a pattern in an array element delimited with a / by Roy Johnson (Monsignor) on Feb 02, 2004 at 19:14 UTC
You need to include the slashes in the capture. Here's yet another way: `for (@array) { while (m(/MSS)g) { s{\G([^/]?) +(?![ ])}{$1}g } }` [download] The PerlMonk `tr///` Advocate	[reply] [d/l]