<?="Hello, ".@$name."!"?>
<form action=hello.php method=get>
<input type=text name=name>
</form>

#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
foreach my $pair (split(/&/,$ENV{QUERY_STRING})) {
    my ($k,$v)=split /=/,$pair,2;
    $k=~s/%([0-9a-fA-F]{2})/chr(hex($1))/ge;
    $v=~s/%([0-9a-fA-F]{2})/chr(hex($1))/ge;
    $$k=$v;
}
defined $name or $name="";
print "Hello, $name!";
print "<form action=hello.pl method=get>";
print "<input type=text name=name>";
print "</form>";

Если же теперь допустить синтаксическую ошибку в Perl-скрипте (например, пропустить пару-тройку точек с запятыми), то произойдет куда более драматическое действо. А именно, сервером (которым в большинстве случаев является Apache) будет выдано стандартное сообщение о 500-й ошибке. При этом программисту черным по серому (в буквальном смысле) напомнят, что причину этой самой ошибки он всегда может посмотреть в лог-файлах сервера.

Какое хамство! Они бы еще посоветовали обратиться к давно отошедшему в мир отпусков системному администратору. Если программист отлаживает свои скрипты в Windows (что теперь уже совсем не в диковинку), смотреть лог-файлы будет очень и очень неудобно.

Итак, мы видим, что:

1. PHP яснее, чем простой Perl;
2. PHP можно встраивать в документ, а в простом Perl приходится использовать множество неудобных вызовов print;
3. PHP более удобен для отладки, чем простой Perl;
4. PHP сам умеет обрабатывать формы, а простой Perl — нет.

Вы можете высечь эти слова на камне и повесить над монитором, потому что это правда. Сам Ларри (изобретатель Perl), наверное, был бы с вами согласен. Однако, беря в руки долото и увесистый кусок гранита, вспомните об одном слове. В нем весь смысл этой наблы. Это слово входит в сочетание «простой Perl», что означает «Perl без дополнительных модулей».

Что такое модуль? Это просто кусок кода, который можно подключить (вызвать) в программе:

use ИмяМодуля;

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

<?use CGI::WebIn; use CGI::WebOut(1); no warnings;?>
<?="Hello, $name!";?>
<form action=hello.pl method=get>
<input type=text name=name>
</form>

Perl ли это? Не совсем, однако всю работу по переводу текста в нужный вид берут на себя модули. Как видите, в этом коде используются все преимущества PHP, а именно:

1. он встраивается в HTML-документ;
2. он уже никогда не генерирует 500-ю ошибку, что бы ни произошло, а выводит все сообщения в браузер;
3. он легко справляется с данными формы.

Что же это за магические модули, и как они работают? Об этом — в следующей набле. А пока хочу заметить, что у PHP остается по крайней мере одно неоспоримое преимущество перед Perl: код на нем значительно более строг и ясен. И Perl уже никогда не догонит PHP по этому показателю.