Mailing-List: contact embperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: pass (herse.apache.org: local policy)
Date: Fri, 4 May 2007 13:14:13 +0200
From: "Gerald Richter - ECOS GmbH" <richter@ecos.de>
To: embperl@perl.apache.org, yurenli@gmail.com
Message-ID: 
 <L505628BCC17E47b49F49ADC453822089.1178277169.srvmail1.i.ecos.de@MHS>
In-Reply-To: <de6cc0ad0705040051r19754d84h7bec194fb623694@mail.gmail.com>
Subject: RE: About the regular expression problem
MIME-Version: 1.0
Content-Type: text/plain;
	charset="US-ASCII"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: inline

HI,

> I have a problem when I use regular expression.
> The sample code:
> [- $_ =3D "One Two Three" -]
> [$ if(/(\S+) (\S+) (\S+)/) $]
> The words are: [+$1+], [+$2+], [+$3+]
> [$ endif $]
>=20
> The result should be "The words are: One, Two, Three," But I=20
> got the result "The words are: One, Two,."
> After trying, I found that I could just get the match=20
> variables $1 and $2, and the match veriables $3, $4 etc,=20
> could not be used in embperl.
>=20
> There is no problem about this in pure perl code such as $_ =3D=20
> "One Two Three";
> if(/(\S+) (\S+) (\S+)/) {
>     printf "The words are: $1, $2, $3";
> }
>=20


Embperl does not do anything with $3, $4 etc. I guess this is a scoping=20
problem. I would write


 [$ if(($a, $b, $c) =3D (/(\S+) (\S+) (\S+)/)) $]
 The words are: [+$a+], [+$b+], [+$c+]
 [$ endif $]

That makes sure $1, $2 etc. does not go out of scope

Gerald


** Virus checked by BB-5000 Mailfilter **

---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org