BioPerl - wykład 7

Program nr 1:          # operacje na plikach (czytanie zawartosci plikow)  open (DANE1," /home/szyda/PERLFILES/dane2.txt")    or die "Bledna nazwa pliku\n" ;  $tekst = ;  while ($tekst) {    print "$tekst" ;    if ($tekst =~ /Anna/) {      print DANE2 "$tekst" ;    }    $tekst = ;  }  print "koniec\n" ;        Program nr 2:    #!/usr/bin/perl  # programmer: Anna Kowalska  # last modification: 10.10.2008  # operacje na plikach (wpisywaie daych do pliku)  open (DANE2," /home/szyda/PERLFILES/dane2.txt")    or die "Bledna nazwa pliku\n" ;  for ($i=1 ; $i ;    print DANE2 "$nazwa" ;  }  print "koniec\n" ;  ... zobacz całą notatkę