ActivePerl Directory Toiminto Basics

ton nimi, hakemisto1. Tämän hakemiston luotu, luo uusi hakemisto nimellä, hakemisto2. Vuonna hakemisto2, luoda toisen hakemiston, jonka nimi on directory3. Vuonna directory3 luoda kaksi alihakemistoihin nimet, Díra ja dirB. Myös tässä directory3, käytä teksti editoria kaksi tiedostoa; yksi nimi, fileA ja toinen nimi, fileB. Joten directory3, sinulla on 2 alihakemistoihin ja 2 tiedostoja. Meidän on käytettävä tätä setup mallikoodit tässä osassa sarjassa. Opendir () Toiminta syntaksi opendir () funktio on: Bool opendir (DIRHANDLE, EXPR); DIRHANDLE on hakemisto kahva (erityinen muuttuja).

Se viittaa alue muistissa että on kohta nimet hakemistosta. Se on julistettu ja määrittää automaattisesti tässä asennossa. Voit antaa millä nimellä haluat sen. EXPR on hakemiston polku, joka päättyy hakemiston nimi kohteisiin; esim. "C: /hakemisto1 /hakemisto2 /directory3". Se on lainausmerkeissä. Paluu arvo on Boolen totta, jos hakemiston onnistuneesti avattu tai epätosi, jos hakemiston ei onnistuneesti avattu. Se voi olla väärä, jos levy on ongelma, kuten virheelliset sektorit. Se on pohjimmiltaan mitä tarvitaan avata hakemistoon; näemme koodiesimerkki pian.

Readdir () Toiminta tiedot hakemiston muistissa on tiedostojen nimet ja välitön alihakemistot todellisen hakemiston levy. Readdir () lukee tätä nimiä tiedot muistiin. Yksinkertaisesti, syntaksi tämä toiminto on: minundirList = readdir (DIRHANDLE) Se lukee kohteita hakemiston alueen muistiin taulukkoon. Jokainen alkio taulukossa on tuotenimi hakemiston. DirList on mikä tahansa nimi annat varten array. DIRHANDLE on hakemisto kahvaa käytetään avaamalla hakemistossa (opendir ()).

Closedir () Toiminto Kun olet läpi käyttö hakemistotiedot muistissa sinun täytyy sulkea hakemistoon, jossa closedir () toiminto. Syntaksin sulkea hakemisto on: closedir (DIRHANDLE) DIRHANDLE on hakemiston kahva käyttämä opendir (), readdir () ja closedir (). Esimerkki koodi Tässä koodi esimerkissä avaamme hakemiston, directory3 (luomasi kanssa käyttöjärjestelmän), ja sitten lukea kohteita hakemistosta. Käytän Windows XP SP2, Abyss Web Server X1 ja ActivePerl. Minun järjestelmässä on todella kuusi kohdetta (ei neljä kuin luulisi). Kaksi niistä ei luoda minulle.

Ensimmäinen erä on yksi piste ja toinen on kaksinkertainen piste, sekä ei luonut minua. Lue seuraava koodi. Tallenna se nimi, temp.pl omassa cgi-bin hakemistoon palvelimelle. käytämme tiukkoja; print "Content-Type: text /html \\ n \\ n"; opendir (dir, "C: /hakemisto1 /hakemisto2 /directory3"