мета-данные страницы
  •  
Загрузка не удалась. Возможно, проблемы с правами доступа?

Различия

Показаны различия между двумя версиями страницы.

Ссылка на это сравнение

perl:ex6 [03/04/2010 16:42] – создано vlasovperl:ex6 [03/04/2010 16:43] (текущий) – vlasov
Строка 1: Строка 1:
 <code perl> <code perl>
- 
 #!/usr/bin/perl #!/usr/bin/perl
- +use CGI qw(:standard); # загружаем модуль со стандартными опциями
-use CGI qw(:standard); # загружаем модуль со стандартными опицями +
 $s = param("testfield"); $s = param("testfield");
- 
 # $s =  "xxx"; # отладка # $s =  "xxx"; # отладка
  
Строка 12: Строка 8:
  
 # print header(-charset=>"windows-1251"); # print header(-charset=>"windows-1251");
- 
 # print header(); # заголовок по умолчанию # print header(); # заголовок по умолчанию
  
-print start_html("Your input"), p("You input were: $s"),  end_html(); # формируем полностью тело страницы, используя полезные функции +print start_html("Your input"), p("You input were: $s"),  end_html();  
- +# формируем полностью тело страницы, используя полезные функции
- +
 </code> </code>