Citirea unui fişier

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.

 

Un program care citeşte complet un fişier şi îl memorează într-un array

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