🚀 go-pugleaf

On Wed, 23 Feb 2011 19:49:18 +0100, Michal Jankowski wrote:

> Szymon Sokół <szymon@bastard.operator.from.hell.pl> writes:
> 
>>> $` $& $'
>> $string =~ /(.*)(wzorek)(.*)/
>> my($pierwsza,$druga,$trzecia) = split /(wzorek)/, $string;
> 
> Spróbujcie:
> ------------------------------------------------------------
> #!/usr/bin/perl -w
> $s = "Ala ma kota, a Ola ma psa";
> 
> $s =~ /ma/; print "($`) ($&) ($')\n";
> $s =~ /(.*)(ma)(.*)/; print "($1) ($2) ($3)\n";

Owszem, jeśli komuś zależy na tym, żeby wyłapać *pierwsze*, a nie *ostatnie* 
wystąpienie wzorca, to należałoby użyć w pierwszym nawiasie .*? zamiast .* -
OTOH, tego założenia nie było.

> ($a,$b,$c) = split /(ma)/, $s; print "($a) ($b) ($c)\n";

...a to działa poprawnie tylko w przypadku, gdy wzorzec się w ogóle nie
powtarza. Chodziło mi raczej o pokazanie, że nie jest prawdą "split mi
zwróci tylko 1 i 3 część", niż sugerowanie rozwiązania opartego o split.

-- 
Szymon Sokół (SS316-RIPE) -- Network Manager                                 B
Computer Center, AGH - University of Science and Technology, Cracow, Poland  O
http://home.agh.edu.pl/szymon/ PGP key id: RSA: 0x2ABE016B, DSS: 0xF9289982  F
Free speech includes the right not to listen, if not interested -- Heinlein  H