use strict; print "Content-Type: text /html \\ n \\ n"; opendir (dir, "c: /directory1 /directory2 /directory3"); mindirList = ReadDir (dir); för (min $ i = 0; $ i {print $ DIRlist [$ i] ".} closedir (dir); Använd din webbläsare för att köra filen, temp.pl. För att göra det du kanske måste skriva något i stil med http : //localhost:. 8000 /cgi-bin /temp.pl i adressfältet Min server är i min personliga dator, så jag har http:.
//localhost som min domän Egentligen har jag 2 servrar i min dator och Abyss Web Server X1 är inte standardservern, det är därför jag har "8000" i webbadressen De första och andra raden i koden är användbara när din produktion är webbläsaren Den tredje raden öppnar katalogen, directory3 av.. bana, c:.. /directory1 /directory2 /directory3 Den for-loopen visar de sex punkterna i katalogen arrayen Vi skapade fyra artiklar i directory3 I ditt system, finns det förmodligen sex objekt, för det första är en prick.. . Den andra är en dubbel prick.
I mitt system, nästa två är de två filerna och de två sista är de två kataloger. Det sista uttalandet stänger katalogen. Utgången för min webbläsare är,. .. fileA.txt fileB .txt Dira dirB Vad händer om katalogen inte öppnas? Katalogen kan inte öppnas om skivan har problem, till exempel skivan kan ha dåliga sektorer. Så du bör alltid kontrollera om katalogen har öppnat eller inte. Den opendir () funktion öppnar en katalog och skulle återvända true om katalogen har öppnat eller falskt om katalogen inte öppnat. Du använder den här returvärdet att kontrollera om katalogen har öppnat eller inte.
Om en katalog är öppnat, då kan du fortsätta att läsa innehållet och sedan stänga den. Annars är det ingen idé att läsa innehållet och stänger den. Ovanstående kod är bättre skriven på följande sätt: Använd strikt; print "Content-Type: text /html \\ n \\ n"; if (opendir (dir, "c: /directory1 /directory2 /directory3")) {mindirList = ReadDir (dir); för (min $ i = 0; $ i {print $ DIRlist [$ i] ".} closedir (dir);} Vi har sett grunderna att arbeta med kataloger Låt oss