ActivePerl Directory Toiminto Basics

); minundirList = readdir (dir); varten (my $ i = 0; $ i {print $ dirList [$ i]. "} closedir (dir); Käytä selaimen suorittaa tiedoston, temp.pl. Voit tehdä, että saatat täytyy kirjoittaa jotain, http : //localhost: 8000 /cgi-bin /temp.pl at osoiteriville. Palvelin on minun henkilökohtainen tietokone, joten minulla on http: //localhost minun verkkotunnuksen. Oikeastaan ​​minulla on 2 palvelimet minun tietokone ja Abyss Web palvelin X1 ei ole oletuksena palvelimelle, siksi minulla on ": 8000" Web-osoite. ensimmäisellä ja toisella rivillä koodissa ovat hyödyllisiä, kun lähtö on selain.

Kolmas rivi avaa hakemiston, directory3 on polku, C: /hakemisto1 /hakemisto2 /directory3. for-silmukka näyttää kuusi kohdetta hakemiston jono. Loimme neljä kohteita directory3. järjestelmään, on luultavasti kuusi kohteita, too. Ensimmäinen on piste . Toinen on kaksinkertainen piste. Minun järjestelmässä, kaksi seuraavaa ovat kaksi tiedostoa ja kaksi viimeistä ovat kaksi hakemistoja. viimeinen toteamus sulkee hakemistoon. lähtö minun selain, on,. .. fileA.txt fileB .

txt Díra dirB Mitä jos hakemisto ei auennut? Hakemisto ei voi avata, jos levyllä on ongelmia, esimerkiksi levyn voi olla huono aloilla. Joten sinun tulisi aina tarkistaa, jos hakemiston onnistuneesti avattu vai ei. Opendir () toiminto avaa hakemiston ja palaisi totta jos hakemiston onnistuneesti avattu tai epätosi, jos hakemiston ei onnistuneesti avattu. Käytät tätä paluuta arvoa tarkistaa, jos hakemiston onnistuneesti avattu vai ei. Jos hakemisto on avattu, voit siirtyä lukea sen sisällön ja sulje se. Muuten ei ole mitään järkeä lukea sen sisältöä ja sulkemiseen.

Edellä koodi on paremmin kirjoitettu seuraavasti: käytämme tiukkoja; print "Content-Type: text /html \\ n \\ n"; jos (opendir (DIR, "C: /hakemisto1 /hakemisto2 /directory3")) {minundirList = readdir (dir); varten (my $ i = 0; $ i {print $ dirList [$ i]. "} closedir (dir);} Olemme nähneet perusasiat työskennellä hakemistoja. Lopetetaan täällä ja jatkaa seuraavassa osa sarjasta .

Chrys Saapua tahansa osaa tässä sarjassa, kirjoita vastaava otsikko alla ja nimeni, Chrys, hakukenttään tämän sivun ja sitten Etsi (käytettävissä valikko jos saatavissa): ActivePerl Hakemisto Toiminto Perusteet luominen ja poistaminen Directory vuonna ActivePerl Nykyinen hakemisto ActivePerl