ActivePerl Register Funktion Basics

ksempel åbner vi den mappe, directory3 (som du oprettede med operativsystemet), og derefter læse elementerne i mappen. Jeg bruger Windows XP SP2, Abyss Web Server X1 og ActivePerl. I mit system er der faktisk seks elementer (ikke fire som du måske tror). To af dem er ikke skabt af mig. Det første punkt på dagsordenen er en enkelt prik, og den anden er en dobbelt prik, begge ikke skabt af mig. Læs følgende kode. Gem det med navnet, temp.pl i dit cgi-bin mappe på din server.

bruge en streng; print "Content-Type: text /html \\ n \\ n"; opendir (dir, "c: /directory1 /directory2 /directory3"); mindirList = readdir (dir); for (min $ i = 0; $ i {print $ dirList [$ i] ".} closedir (dir) Brug din browser til at eksekvere filen, temp.pl. At gøre, at du måske nødt til at skrive noget lignende, http : //localhost:. 8000 /cgi-bin /temp.pl på adresselinjen Min server er efter min personlige computer, så jeg har http:.

//localhost som mit domæne Faktisk Jeg har 2 servere i min computer og Abyss Web Server X1 er ikke standard-serveren, det er derfor, jeg har den ": 8000" i webadressen Den første og anden linje i koden er nyttige, når dit output er browseren Den tredje linje åbner mappen, directory3 af.. sti, c:.. /directory1 /directory2 /directory3 Den for-løkke viser de seks punkter i biblioteket i array Vi skabte fire punkter i directory3 i dit system, er der sandsynligvis seks poster, også den første er en prik.. . Den anden er en dobbelt prik.

I mit system, de næste to er de to filer, og de sidste to er de to biblioteker. Den sidste sætning lukker biblioteket. Udgangen for min browser, er,. .. fileA.txt fileB .txt DIRA dirB Hvad hvis mappen ikke åbne? Mappen kan ikke åbne, hvis disken har problemer, for eksempel disken kan have dårlige sektorer. Så du bør altid tjekke hvis mappen med succes blev åbnet eller ej. Den opendir () funktion åbner en mappe og ville vende tilbage sandt, hvis biblioteket med succes blev åbnet eller falsk hvis mappen ikke lykkedes åbnet.

Du bruger denne returværdien at kontrollere, om biblioteket med succes blev åbnet eller ej. Hvis en mappe med succes er åbnet, så kan du gå videre til at læse dens indhold, og derefter lukke den. Ellers er der ingen mening at læse dens indhold og lukke den. Ovenstående kode er bedre skrives som følger: brug streng; print "Content-Type: text /html \\ n \\ n"; hvis (opendir (dir, "c: /directory1 /directory2 /directory3")) {mindirList = readdir (dir); for (min $ i = 0; $ i {print $ dirList [$ i] ".} closedir (dir)