zase perlre dotaz

[Honza Pazdziora]

On Thu, Aug 09, 2001 at 02:34:43PM +0200, Pavel Šmerk wrote:
> 
> zase mam problem/otazku:
> 
> ..$ cat a.pl
> #!/usr/bin/perl -w
> use strict;
> $_ = "axbcx";
> print join ("|", /^(?:(b)x|(a)x|(bc)x)+$/), "\n";
> print join ("|", /^(?:(b)x|(bc)x|(a)x)+$/), "\n";
> $^W = 0;
> print join ("|", /^(?:(a)x|(b)x|(bc)x)+$/), "\n";
> print join ("|", /^(?:(a)x|(bc)x|(b)x)+$/), "\n";
> print join ("|", /^(?:(bc)x|(a)x|(b)x)+$/), "\n";
> print join ("|", /^(?:(bc)x|(b)x|(a)x)+$/), "\n";
> 
> ..$ ./a.pl
> b|a|bc
> b|bc|a
> a||bc
> a|bc|
> bc|a|
> bc||a
> 
> Jaktoze se v tech prvnich dvou pripadech namatchuje i (b)? To perl
> naplnuje $1 a spol., i kdyz prislusnou 'cestou' nakonec nejde? A proc se

Je mozne, ze neco prehlizim, ale myslim, ze jde o chybu. Zkousel jsem
to i na 5.7.2 a chova se to stejne, cili mozna posli perlbug.

> (b) nenamatchuje ve tretim pripade, kdy je taky (b) pred (bc)?

Tezko rict, jak je to interne zoptimalizovane. Nemam tady debugovaci
perl, abych to mohl overit. Kazdopadne muzes jako bug reportovat uz
jen ten rozdil v tom chovani. ;-)

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
   .project: Perl, DBI, Oracle, MySQL, auth. WWW servers, DBD::XBase.
------------------------------------------------------------------------