🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.perl
Article #309

Re: Wyszukiwanie w znakach

#309
From: Grzegorz Szyszlo
Date: Wed, 04 Jun 1997 08:28
57 lines
2760 bytes
kompas@galaxy.uci.agh.edu.pl (Piotr Piatkowski) wrote:
>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


no dobrze. juz ci mowie po co mi sa zmienne po obydwu stronach.
chodzi o to, ze w tablicy mam liste wzorcow. analizuje plik
wejsciowy linia po linii, i kazda linie porownuje z kazdym ze wzorcow.

np. najpierw z klawiatury, albo wprost do tablicy wpisuje liste
poszukiwanych slow. np:

@slowka = ('ala' , 'Ala ' , ' O L A ');
a potem chce lowic te slowka z pliku wejsciowego <STDIN> na przyklad.

-- 
               oOOo     /====================================\
         /=====\__/====/  http://avalon.wbc.lublin.pl/~znik/ |
         | Grzegorz Szyszlo mailto:znik@avalon.wbc.lublin.pl |
         \===================================================/
          polecam  http://www.agh.edu.pl/ogonki/   mime.html
Technical Details
Message-ID: <5n390b$gcd$27@helios.man.lublin.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!news.icm.edu.pl!cyf.gov.pl!polsl.gliwice.pl!ict.pwr.wroc.pl!news.nask.pl!lublin.pl!not-for-mail
References: <5mplnr$hpo$1@helios.man.lublin.pl> <5mruj9$n6t$1@galaxy.uci.agh.edu.pl> <5mukd3$24f$2@helios.man.lublin.pl> <5n1egl$oho$1@galaxy.uci.agh.edu.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!news.icm.edu.pl!cyf.gov.pl!polsl.gliwice.pl!ict.pwr.wroc.pl!news.nask.pl!lublin.pl!not-for-mail
From: Grzegorz Szyszlo <znik@avalon.wbc.lublin.pl>
Newsgroups: pl.comp.lang.perl
Subject: Re: Wyszukiwanie w znakach
Date: 4 Jun 1997 08:28:59 GMT
Organization: WBC Lublin
Lines: 58
Message-ID: <5n390b$gcd$27@helios.man.lublin.pl>
References: <5mplnr$hpo$1@helios.man.lublin.pl> <5mruj9$n6t$1@galaxy.uci.agh.edu.pl> <5mukd3$24f$2@helios.man.lublin.pl> <5n1egl$oho$1@galaxy.uci.agh.edu.pl>
NNTP-Posting-Host: avalon.wbc.lublin.pl
Mime-Version: 1.0
X-Mailer: Mozilla 1.1N (X11; I; Linux 2.0.28 i686)
X-URL: news:5n1egl$oho$1@galaxy.uci.agh.edu.pl
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit