What exactly does this ($2 eq '-' && $2) do? Must it be in parenthesis?

-----Original Message-----
From: John W. Krahn [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, March 12, 2002 6:40 PM
To: [EMAIL PROTECTED]
Subject: Re: backreference question


M Z wrote:
> 
> Hello

Hello,

> I was wondering if someone could point me in the right
> direction for the following regex.
> 
> s/(.{1,100}(?: |(\-))/$1$2\n/g;
> 
> Please help on the second (?: |\-)
> I am trying to match either a single space ' '
> or a - after 100 other characters and I want to save
> the - but not the ' '
> thereby $2 being undefined if ' ' is found after 100.
> 
> I'm ok with it being undefined but I'm not sure if the
> above regex is valid, in fact I don't think it works
> the way I want but needed to write it like that to
> express what I wanted done


s/(.{1,100})( |-)/$1 . ($2 eq '-' && $2) . "\n"/eg;


John
-- 
use Perl;
program
fulfillment

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to