введение в perl

Шаг 2 - Создание скрипта

Предложенный ниже скрипт берет введенные данные, сохраняет их в файле и показывает сообщение, содержащее ссылку на файл с сохраненным именем. Наберите в редакторе текст программы и сохраните в файле testform.pl в каталоге cgi-bin вашего web-сервера. Убедитесь, что первая строка программы содержит правильный путь к программе-интерпретатору (для определения местоположения программы на UNIX воспользуйтесь командой which perl, под Windows выполните поиск файла perl.exe). Убедитесь также, что путь к выходному файлу является корректным путем к области хранения документов web-сервера. В заключение исправьте URL на адрес вашего сервера.
#!/usr/local/bin/perl # <-- ПРОВЕРЬТЕ ЭТО

# Read and parse input from the web form

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
$input{$name} = $value;
}

# Save the user output in a file

$targetfile = "/usr/local/www/htdocs/names.html"; # <-- ПРОВЕРЬТЕ ЭТО

open (NAMEFILE, ">>$targetfile");
print NAMEFILE "

Имя: ",$input{'user_name'},"

n";
print NAMEFILE "

n";
close (NAMEFILE);

# Send a message back to the user
print "Content-Type: text/htmlnn";

print "

Спасибо, что заполнили форму

nНажмите ";
print 'сюда'; # <-- ЗАМЕНИТЕ ЭТО
print ", чтобы увидеть Ваш ввод.n";
Шаг 3 - Тестирование скрипта

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Другие голосования

Приглашаем Вас обменяться кнопочками! Обращайтесь к администратору.

• установка php и apache на *nux
• собираем apache + php + xml для linux
• синтаксис .htaccess
• модуль mod_rewrite. часть 4
• модуль mod_rewrite. часть 3
• модуль mod_rewrite. часть 2
• модуль mod_rewrite. часть 1
• Apache + php + xml + mysql для windows
• вебсервер в домашних условиях
• протокол hdlc