BioPerl - wykład 8

Nasza ocena:

5
Wyświetleń: 1043
Komentarze: 0
Notatek.pl

Pobierz ten dokument za darmo

Podgląd dokumentu
BioPerl - wykład 8 - strona 1 BioPerl - wykład 8 - strona 2

Fragment notatki:


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)

Zaloguj się, aby dodać komentarz