'$location'";
}
$result = msql("sharks",Squery);
if (result == -1) {
echo("Error : $phperrmsg\n");
exit(1); }
Snumresults = msql_numrows($result);
>


<Н2>Результатов не найдено  
");
printf("", $id[$i]); 
echo("<В>Вид: $species[$i]
");
if ($age[$i] == 1) { $age = "Молодые"; } 
else if ($age[$i] == 2) { $age = "Взрослые"; } 
else if {$age[$i] == 3) { $age = "Старые"; }
echo("Age: $age
"); 
echo("Paйoн $location[$i]
"); 
}
}
}

Hoый поиск  

Встроенный Perl
Несколько модулей Perl и соответствующих программ позволяют встраивать код Perl 
в документ HTML. Перед отправкой окончательной страницы HTML броузеру этот код 
выполняется CGI-программой.
Наиболее очевидное преимущество таких решений перед W3-mSQL и РНР заключается в 
том, что в качестве языка сценариев в HTML-файле используется обычный Perl. 
Будучи простыми в изучении и схожими по стилю с С и Perl, языки сценариев Lite 
и РНР все же являются уникальными патентованными языками, используемыми лишь с 
единственной целью. Напротив, Perl практически вездесущ. Это стандартный язык 
программирования, отлаживавшийся на протяжении многих лет и обладающий 
развитыми возможностями в отношении безопасности. В пользу такого типа решений 
есть убедительные аргументы.
ePerl
Первым приложением, позволившим встраивать код Perl в текст ASCII и, в 
частности, в документ HTML, был ePerl. Сама программа ePerl написана на С и 
предназначена для использования в качестве интерпретатора Perl общего 
назначения для документов ASCII. Она прекрасно работает с HTML, но не имеет 
специфических для HTML или веб-возможностей, предоставляемых некоторыми другими 
пакетами.
EmbPerl
Программа EmbPerl создана позднее, чем ePerl, и более ориентирована на HTML и 
Web. Она позволяет использовать дополнительные «метакоманды» - теги в стиле 
HTML, обрабатываемые EmbPerl, - которые вводят в сам HTML возможности ветвления 
и другие элементы программирования .
В качестве примера встраивания кода Perl в файл HTML рассмотрим форму для 
вывода данных из базы данных по акулам, приводившуюся выше. Мы будем 
использовать в нашем примере EmbPerl, но поскольку используется стандартный 
Perl, код практически одинаков для различных средств встраивания Perl.

<НЕАD><ТIТLЕ>Результаты поиска акул

<Н1> Вот акулы, удовлетворяющие условиям поиска...
<р>
[-
use Msql;
use CGI qw(:standard);
$dbh = Msql->connect; $dbh->selectdb("sharks");
%age = ( '0' => 'Молодые',
'1' => 'Взрослые',
'2' => 'Старые'
);
# Начинаем построение запроса. В результате типичный запрос
# может выглядеть так:
# SELECT * FROM SHARK WHERE SPECIES='Isurus Paucus' AND AGE=2
$query = "select * from sharks where ";
if (Sspecies or Sage or $location) {
$query .= " where ";