Perl для начинающего веб-мастера

Вывод HTML-страницы с помощью Perl-скрипта

Как проще вывести HTML-код

Как вы уже видели в предыдущем разделе, при выводк HTML-кода на браузер из Perl следует предварять символ кавычек обратной косой чертой \" и завершать каждую строчку символом \n, если вы хотите, чтобы ваш код был более читабельным. Все это делает написание скрипта для вывода HTML-кода весьма утомительным занятием.

Вы можете облегчить себе эту работу, используя специальную команду печати, имеющуюся в Perl. Данная команда позволяет распечатать ваш HTML-код, написанный внутри скрипта в обычном для него виде (за исключением некоторых специальных символов). Посмотрите на пример HTML-кода, выводящий на браузер страницу с обычной ссылкой:

#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<html><head>\n";
print "<title>Тест Perl</title>\n";
print "</head>\n";
print "<body><a href=\"http://someplace.com\">Click Here</a>\n";

Вследствие необходимости выводить вместо кавычек сочетание \" и все время вставлять в конце строки \n, даже написание этого небольшого фрагмента кода становится утомительным. Гораздо проще сделать это так:

print <<ENDHTML;
.... здесь располагается ваш HTML-код.....

ENDHTML

Эта команда print сообщает программе, что следует распечатать страницу HTML-кода, до тех пор пока не встретится метка ENDHTML. Вместо ENDHTML вы можете использовать для обозначения конца HTML-кода любое слово или сочетание букв, которое вам нравится. Главное, чтобы оно совпадало с тем, которое указано после print <<.

Обратите внимание, на некоторые важные детали:
- метка должна располагаться в самом начале строки (без пробелов),
- в метке различаются прописные и строчные буквы,
- после метки, обозначающей конец HTML-кода, не ставится точка с запятой.

Посмотрим, как теперь будет выглядеть пример вывода HTML-страницы:

#!/usr/bin/perl
print "Content-type: text/html\n\n";
print <<ENDHTML;
<html>
<head>
<title>Тест Perl</title>
</head>
<body>
<a href="http://someplace.com">Click Here</a>
</body>
</html>

ENDHTML

Тем не менее, некоторые специальные символы Perl (такие как $, @, % ,*), по-прежнему должны предваряться обратной косой чертой, как показано в следующем примере:

#!/usr/bin/perl

print "Content-type: text/html\n\n";
print <<ENDHTML;
<html>
<head>
<title>Тест Perl</title>
</head>
<body>
<a href="mailto:john\@pageresource.com">Mail Me, or Else!</a>
</body>
</html>

ENDHTML

Теперь вы знаете два способа вывода HTML-кода с помощью Perl-скрипта и можете выбирать, какой из них использовать. Обычно, короткие кусочки кода выводятся с помощью простого print, а большие фрагменты - описанным в данной статье способом.

К содержанию
	Скачать новую версию данного учебника в одном архиве Курс находится в процессе разработки, поэтому архив постоянно обновляется!