🚀 go-pugleaf

Grzegorz Szyszlo <znik@avalon.wbc.lublin.pl> wrote:

: gdyby bylo to takie proste.   $ jest znakiem specjalnym,
: wykorzystywanym w ~= do innych celow. 

$ ma znaczenie specjalne (koniec lini) tylko w tych miejscach w których
ma to sens, zauważ że można zawsze stwierdzić "co programista miał na
myśli" - czy koniec stringu, czy wartość zmiennej.

: i mi wychodzi ze:

: plik: przyklad
: #!/usr/bin/perl

: $tekst = "Ala";
: "l" ~= /$tekst/;
: print "$1\n";

: uruchomienie:  ./przyklad

: rezultat:
: syntax error at ./ttt line 4, near ""l" ~"
: Execution of ./ttt aborted due to compilation errors.

Błąd wynika z tego że robisz =~ na stałej a nie na zmiennej. W ogóle
wydaje mi się że to jakiś chory sposób - dlaczego nie zrobisz po prostu

$tekst = "Ala";
print $tekst if $tekst =~ /l/; 

?

P.S. Jak ktoś słusznie zauważył, $1 nie będzie zdefiniowane jeżeli 
nie użyjesz nawiasów w RE. Ale możesz też użyć $&, które oznacza cały
tekst dopasowany do ostatnio dopasowanego RE (trochę to niepopolsku :-) )

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND