31199

Edited by Foxlt PDF Editor

Copyright (c) by Foxit Software Company, 2003 - 2009 For Evaluation Only.

Program nr 1:

# operacje na plikach (czytanie zawartości plików) open (DANE1,"< /home/szyda/PERLFILES/dane1.txt") or die "Nie znaleziono pliku\n" ; open (DANE2,"> /home/szyda/PERLFILES/dane2.txt") or die "Biedna nazwa pliku\n" ;

Stekst = <DANE1> ; while (Stekst) { print "Stekst" ; if (Stekst =- /Anna/) { print DANE2 "Stekst" ;

}

Stekst = <DANE1> ;

}

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 "Biedna nazwa pliku\n" ; for ($i=1 ; Si<=2 ; Si++ ) { print "Podaj imię: ";

Snazwa = <STDIN> ; print DANE2 "Snazwa" ;

}

print "koniec\n" ;