109 |
Secvenţă cod (tst37.pl) |
Comentarii |
unless (open(MYFILE, "in.txt")) { die ("cannot open input file in.txt\n"); } |
În caz că fişierul in.txt nu poate fi deschis programul se termină cu tipărirea mesajului cannot open input file in.txt. |
# if the program gets this far, the file was # opened successfully $line = <MYFILE>; |
Aici are loc citirea primei linii din fişier |
while ($line ne "") { print ($line); $line = <MYFILE>; } |
Se tipăreşte linia la <STDOUT> după care se citeşte altă linie. Secvenţa se repetă până la atingerea sfârşitului fişierului, caz în care şirul citit este vid. |
Secvenţă cod (tst41.pl) |
Comentarii |
unless (open(MYFILE, "in.txt")) { die ("cannot open input file file1\n"); } |
În caz că fişierul in.txt nu poate fi deschis programul se termină cu tipărirea mesajului cannot open input file in.txt. |
@input = <MYFILE>; |
Se citeşte fişierul direct în array-ul @input |
print (@input); |
Se tipăreşte array-ul la <STDOUT> |
Un program care citeşte complet un fişier şi îl tipăreşte la <STDOUT> utilizând redirectarea la nivel linie MSDOS (tst39.pl)
#se lanseaza spre ex prin comanda DOS
#perl tst39.pl < in.txt > xx.txt
#ceea ce se citeste de la in.txt se scrie la xx.txt
#fie
#$line = <STDIN>;
#print ($line);
#pentru citirea unei linii
#fie
@line = <STDIN>;
print (@line);
#pentru citirea/scrierea intregului fisier
print ('press ENTER to EXIT');
$in = <STDIN>;
© Cornel Mironel Niculae, 2003-2004
13-Nov-2009