|
введение в perlПосле этого все записанные данные будут сохранены на диск. Перед осуществлением запись в файл, вы должны убедиться, что web-сервер имеет доступ к директории, в которой находится файл и имеет права на запись в этот файл. Обратите внимание: функция close должна располагаться как можно ближе к последней функции записи в файл. Это обусловлено тем, что web-сервер выполняется в многопользовательской среде, и скрипт может запускаться одновременно несколькими пользователями. При открытии файла на запись он (файл) блокируется и другие экземпляры скрипта не смогут его открыть, что вызовет задержку в выполнении запроса. Пример: Создание новой HTML страницы Следующий пример может показаться на первый взгляд сложным, но все что он делает, это пишет некоторую информацию в файл. В связи с тем, что мы создаем web-страницу файл содержит тэги HTML вместе с обычным текстом. Помните, что n просто вставляет перевод строки в текст для удобства последующего просмотра созданного файла. Все входные данные из формы содержатся в переменных $input{field_name}. При печати такие переменные должны выноситься за кавычки и отделяться запятыми. # Определяем переменную, содержащую путь к записываемому файлу $newfile = "c:webserverhtdocsmynewpage.html"; # Открываем файл, используя идентефикатор USERINFO open (USERINFO, ">$newfile"); # Формируем содержимое print USERINFO "<html>n<head>n"; print USERINFO "<title>Информация о регистрации</title>n</head>n"; print USERINFO "n<body>n<h3>Данные регистрации:</h3>"; print USERINFO "<p><hr></p>n<p>n"; print USERINFO "Имя: ", $input{'user_name'},"n<br>"; print USERINFO "Компания: ", $input{'co_name'},"n<br>"; print USERINFO "Телефон: ", $input{'phone'},"n</p>n<p><hr></p>n"; print USERINFO "<!-- NEW INSERTS GO HERE -->nn</body>n</html>"; # Закрываем файл close (USERINFO); Продолжение статьи: ч.1 Продолжение статьи: ч.2 Продолжение статьи: ч.3 Продолжение статьи: ч.4 Продолжение статьи: ч.5 Продолжение статьи: ч.6 Продолжение статьи: ч.7 Продолжение статьи: ч.8 Продолжение статьи: ч.9 Продолжение статьи: ч.10 Продолжение статьи: ч.11 Продолжение статьи: ч.12 Продолжение статьи: ч.13 Продолжение статьи: ч.14 Продолжение статьи: ч.15 Другие статьи по теме: - повышение индивидуального мастерства дизайнера- использование библиотеки mime-base64 - ставим пароль на страницу - почему я выбрал perl? - Perl для чайников от ns |
|
2006-2025 © SMTI.RU Главная страница | Связаться с нами |