PerlGtk.pl - Artykuły - Perl Wyrażenia Regularne - Sezon 2

Perl Wyrażenia Regularne - Sezon 2 - Część 3
przez wrares (59 odsłon)
Kontynując Naszą drogę w świat wyrażeń regularnych w ekosystemie Perla, dochodzimy do etapu w którym zastanawiamy się nad narzędzami wspierającymi regex. Należy zadać sobie pytanie Które funkcje, procedury zawarte w eskosystemie Mnie wspierają. Poniżej przedstawiamy te nad którymi warto się pochylić. A więc mamy Cytat: (1) split (2) index (3) reindex (4) grep Split pozwoli podzielić ,rozdzielić i wstawić coś pomiedzy słowa `use strict; use warnings; my $napis = "Portal PerlGtk jest cool"; my @tablica = split(/\s+/,$napis); print "$tablica[0], $tablica[1], $tablica[2], $tablica[3]\n";` Wynik tego programu `Portal, PerlGtk, jest, cool` Następną w kolejności jest funkcja index. Coś w sam raz dla skalara `use strict; use warnings; my $napis = "Portal PerlGtk jest cool"; my $szukam = "jest"; my $pozycja = index($napis,$szukam,0); print "Szukany napis rozpoczyna sie od pozycji $pozycja\n";` Wynik programu `Szukany napis rozpoczyna sie od pozycji 15` Możemy zastosowac pętle, warunki testu itp. dla wybranej pozycji. Być może miała rozpoczynać się od pozycji 12 na nie 15. Funkcja grep zastosowana do list, tablic podobnie jak map umożliwi Nam w prosty sposób odszukanie elementów w tablicy. `#!/usr/bin/perl -w use strict; my @nazwiska = qw(Kowalski Marchewka Pietruszka Burak); my @wyszukane = grep {$_ eq qw(Pietruszka)} @nazwiska; print "Nazwisko wyszukane: @wyszukane\n";` Wynik działania programu `Nazwisko wyszukane: Pietruszka` Chcąc odzukac informację, nie zawsze trzeba sięgać do magicznej twórczości Perla. Wystarczy na poczatku zastanowić się nad celem poszukiwań, co chcemy uzyskać, co chcemy odrzucić, gdzie chcemy przechować. Przykłady są proste, ale można je rozbudowac.

Powrót