Cum să știți dacă un fișier există în Perl

Perl are un set de operatori de testare a fișierelor utile care pot fi utilizate pentru a vedea dacă un fișier există sau nu. Printre ei este -e, care verifică pentru a vedea dacă există un fișier. Această informație vă poate fi utilă atunci când lucrați la un script care are nevoie de acces la un anumit fișier și doriți să vă asigurați că fișierul este acolo înainte de a efectua operațiuni. Dacă, de exemplu, scriptul dvs. are un jurnal sau un fișier de configurare de care depinde, verificați mai întâi. Scriptul de exemplu de mai jos aruncă o eroare descriptivă dacă un fișier nu este găsit folosind acest test.

#! / Usr / bin / perl
$ filename = '/path/to/your/file.doc';
if (-e $ nume de fișier) 
imprimați „File Exists!”;

Mai întâi, creați un șir care conține calea către fișierul pe care doriți să îl testați. Apoi înfășurați -e (există) instrucțiune într-un bloc condițional, astfel încât instrucțiunea de tipărire (sau orice ați pus acolo) este numită doar dacă fișierul există. Puteți testa opusul - că fișierul nu există - folosind butonul dacă nu condiționată:

decât dacă (-e $ nume de fișier) 
imprimați „Fișierul nu există!”;

Alți operatori de testare a fișierelor

Puteți testa două sau mai multe lucruri simultan, utilizând operatorii „și” (&&) sau „sau” (||). Unii alți operatori de testare a fișierelor Perl sunt:

• -r verifică dacă fișierul poate fi citit
• -w verifică dacă fișierul poate fi scris
• -X verifică dacă fișierul este executabil
• -z verifică dacă fișierul este gol
• -f verifică dacă fișierul este un fișier simplu
• -d verifică dacă fișierul este un director
• -L verifică dacă fișierul este o legătură simbolică

Utilizarea unui test de fișier vă poate ajuta să evitați erorile sau să vă faceți conștienți de o eroare care trebuie remediată.