Cum să distingi un fișier și un director din Perl

Să zicem că construiți un script Perl pentru a traversa un sistem de fișiere și a înregistra ce găsește. Pe măsură ce deschideți mânerele de fișiere, trebuie să știți dacă aveți de-a face cu un fișier efectiv sau cu un director, pe care îl tratați diferit. Doriți să globați un director, astfel încât să puteți continua să analizați recursiv sistemul de fișiere. Cea mai rapidă modalitate de a spune fișierelor din directoare este să folosiți Perl-ul încorporatOperatori de testare a fișierelor. Perl are operatori pe care îi puteți folosi pentru a testa diferite aspecte ale unui fișier. Operatorul -f este utilizat pentru a identifica fișiere obișnuite, mai degrabă decât directoare sau alte tipuri de fișiere.

În primul rând, creezi două corzi: unul îndreptat către un fișier și unul îndreptat către un director. În continuare, testați $ filename cu -f operator, care verifică pentru a vedea dacă ceva este un fișier. Acesta va imprima „Acesta este un fișier”. Dacă încercați operatorul -f din director, nu se tipărește. Apoi, faceți opusul pentru