108 |
Deschiderea unui fişier
Inainte de a se putea citi sau scrie din/într-un fişier, aceste trebuie mai întâi deschis. Această operaţie comunică sistemului de operare că veţi accesa fişierul şi nimeni altcineva nu-l poate schimba câtă vreme lucraţi la el. Pentru deschiderea unui fişier se foloseşte funcţia open.
Sintaxa funcţiei open este
open (filevar, filename);
Funcţia open are două argumente:
filevar – reprezintă numele pe care doriţi să-l utilizaţi în programul Perl pentru a face referire la fişier.
filename – reprezintă un şir ce conţine locaţia fişierului în calculatorul dvs.
Când un fişier este deschis, trebuie decis modul de acces la acest fişier. Există trei moduri diferite de acces disponibile în Perl:
Modul read – Permite programului să citească conţinutul unui fişier dar nu permite scrierea. Modul read este modul default. Exemplu
open(MYFILE, "in.txt");
sau cu calea specificată complet specifică MSDOS
open(MYFILE, "c:\perl\files\in.txt");
sau cu calea specificată complet specifică UNIX
open(MYFILE, "/u/jqpublic/in.txt");
Modul write – Distruge conţinutul curent al fişierului suprascriindul cu noua informaţie furnizată de program. Pentru specificarea acestui mod se adaugă caracterul > la filename. Exemplu
open(OUTFILE, ">in.txt");
Modul append – Adaugă noua informaţie la conţinutul curent al fişierului. Pentru specificarea acestui mod se adaugă secvenţa >> la filename. Exemplu
open(APPENDFILE, ">>in.txt");
Secvenţă cod (tst37.pl) |
|
Rezultat în consola text |
unless (open(MYFILE, "in.txt")) { die ("cannot open input file file1\n"); } # if the program gets this far, the file was # opened successfully $line = <MYFILE>; while ($line ne "") { print ($line); $line = <MYFILE>; } |
|
Here is a line of input. Here is another line of input. Here is the last line of input. |
Sintaxa funcţiei die este
Această funcţie termină imediat un program Perl şi afişază mesajul message.die (message);
© Cornel Mironel Niculae, 2003-2004
13-Nov-2009