использовать строгий; печать "Content-Type: текст /HTML \\ п \\ п"; opendir (реж, "C: /directory1 /directory2 /directory3"); мойdirList = READDIR (реж); для (мой $ I = 0; $ {я печать $ DirList [$ я] ".} closedir (реж); Используйте ваш браузер, чтобы выполнить файл, temp.pl. Для этого вам, возможно, придется что-то вроде, HTTP введите : //локальный:. 8000 /CGI-BIN /temp.pl в адресной строке Мой сервер находится в моем персональном компьютере, так что я должен HTTP:.
//локальный, как мой домен самом деле у меня есть 2 серверов в моем компьютере и Abyss Web Сервер X1 не сервер по умолчанию, поэтому у меня есть ": 8000" в веб-адрес Первый и второй линии в коде полезно, когда ваш выход браузер Третья строка открывает каталог, directory3 из.. Путь, C:.. /directory1 /directory2 /directory3 для-цикле отображает шесть пунктов каталога в массиве Мы создали четыре пункта в directory3 В вашей системе, есть, вероятно, шесть пунктов, слишком Первый является точка.. . Во-вторых, двойной точка.
В моей системе, в ближайшие два являются два файла, а последние два являются два каталога. Последнее утверждение закрывает каталог. Выход для моего браузера, есть. .. fileA.txt FILEB .txt DIRA DIRB Что делать, если этот каталог не открыть? Каталог не может открыть, если диск имеет проблемы, например, диск может иметь плохие секторы. Таким образом, вы всегда должны проверить, если каталог был успешно открыт или нет. Функция opendir () открывает каталог и вернется верно, если каталог был успешно открыт или ложным, если каталог не был успешно открыт.
Вы можете использовать возвращаемое значение, чтобы проверить, если каталог был успешно открыт или нет. Если каталог успешно открыт, то вы можете перейти к чтению его содержание, а затем закрыть его. В противном случае нет никакого смысла читать его содержание и закрыть его. Приведенный выше код лучше записать следующим образом: использовать строгий; печать "Content-Type: текст /HTML \\ п \\ п"; если