} closedir (dir); Bruk nettleseren til å kjøre filen, temp.pl. å gjøre det du kan ha til å skrive noe sånt, http : //localhost:. 8000 /cgi-bin /temp.pl i adressefeltet Min server er i min personlige datamaskin, så jeg har http:. //localhost som mitt domene Egentlig har jeg 2 servere i datamaskinen min og Abyss Web Server X1 er ikke standardserveren, det er derfor jeg har ": 8000" i nettadressen Den første og andre linjer i koden er nyttige når produksjonen er nettleser Den tredje linjen åpner katalogen, directory3 av.. banen, c:..
/directory1 /directory2 /directory3 Den for-loop viser seks elementer av katalogen i rekken Vi skapte fire elementer i directory3 I systemet ditt, er det trolig seks elementer, for det første er en prikk.. . Den andre er en dobbel prikk. I systemet mitt, de to neste er de to filene og de to siste er de to katalogene. Den siste setningen stenger katalogen. Utgangen for nettleseren min er,. .. fileA.txt fileB .txt Dira dirB Hva om katalogen ikke åpne? Katalogen kan ikke åpne hvis disken har problemer, for eksempel at disken kan ha dårlige sektorer.
Så du bør alltid sjekke om katalogen ble vellykket åpnet eller ikke. Den opendir () -funksjonen åpner en katalog og vil returnere true hvis katalogen ble vellykket åpnet eller usann hvis katalogen ikke ble åpnet. Du bruker denne returverdien for å sjekke om katalogen ble vellykket åpnet eller ikke. Hvis en katalog er vellykket åpnet, så kan du fortsette å lese innholdet, og deretter lukke det. Ellers er det ingen vits å lese innholdet og lukker den.
Koden ovenfor er bedre skrevet som følger: bruke strenge; print "Content-Type: text /html \\ n \\ n"; if (opendir (dir, "c: /directory1 /directory2 /directory3")) {mindirList = readdir (dir); for (min $ i = 0; $ jeg {print $ dirList [$ i] ".} closedir (dir);} Vi har sett det grunnleggende for å arbeide med kataloger La oss stoppe her og fortsette i neste del av serien. . C