Este foarte simplu să imprimați o listă cu toate fișierele dintr-un director folosind funcția Perl glob încorporată. Să ne uităm la un scurt script care conturează și tipărește o listă cu toate fișierele, în directorul care conține scriptul în sine.
#! / usr / bin / perl -w
@files =;
foreach $ file (@files)
imprimați fișierul $. "\ N";
Când rulați programul, veți vedea că emite fișierele tuturor fișierelor din director, unul pe fiecare linie. Globul se întâmplă pe prima linie, în timp ce caractere trage numele fișierelor în tabloul @files.
@files =;
Apoi, pur și simplu utilizați o buclă de predach pentru a imprima fișierele din tablou.
Puteți include orice cale din sistemul dvs. de fișiere între mărci. De exemplu, spuneți că site-ul dvs. web se află în directorul / var / www / htdocs / și doriți o listă cu toate fișierele:
@files =;
Sau dacă doriți doar o listă cu fișierele cu extensia .html:
@files =;