To tylko jedna z 2 stron tej notatki. Zaloguj się aby zobaczyć ten dokument.
Zobacz
całą notatkę
Wyszukiwanie - wyrażenia regularne Program nr 1: # operacje na plikach (czytanie zawartosci plikow) open (DANE3,") { $tekst="$_" ; print "$tekst" ; # begins with An if ($tekst =~ /An+/) {print "$tekst" ;} # contains n 1-3 times if ($tekst =~ /n{1,3}/) {print "$tekst" ;} # contains n minimum 2 times if ($tekst =~ /n{2,}/) {print "$tekst" ;} # contain n exactly 2 times if ($tekst =~ /n{2}/) {print "$tekst" ;} # any tekst between M and r #if ($tekst =~ /M.r/) {print "$tekst" ;} # contains Anna if ($tekst =~ /Anna/) {print "$tekst" ;} # contains Anna at the beginning if ($tekst =~ /\bAnna/) {print "$tekst" ;} # contains anna at the end if ($tekst =~ /anna\b/) {print "$tekst" ;} # contains anna NOT at the begining if ($tekst =~ /\Banna/) {print "$tekst" ;} # substitution if ($tekst =~ /Anna/) { print "$tekst" ; $tekst =~ s/Anna/Joanna/ ; print "$tekst" ; } # returns 1st number if ($tekst =~ /(\d)/) { print "$tekst" ; print "Liczba=$1\n"; } # return 1st whole number if ($tekst =~ /(\d+)/) { print "$tekst" ; print "Liczba=$1\n"; } # returns text with letters if ($tekst =~ /\w/) {print "$tekst" ;} # returns text with numbers if ($tekst =~ /\d/) {print "$tekst" ;} }
... zobacz całą notatkę
Komentarze użytkowników (0)