Завершение выполнения скрипта

Для досрочного завершения Рег1-сценария используется оператор exit: exit;
Предположим, наш сайт содержит четыре страницы: index.pl (Главная стра¬ница), firma.pl (О фирме), price.pl (Продукция) и contact.pl (Контактная ин¬формация). Сделаем панель навигации для сайта. Переход на другие страни¬цы будет осуществляться не с помощью ссылок, а путем выбора нужной страницы из списка. Для этого на всех страницах сайта должна присутство¬вать форма:
#!/usr/bin/perl -w
# Выводим все сообщения об ошибках
# в окно Web-браузера
use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/html\n\n";
print "<FORM action=\"go.pl\">\n";
print "<SELECT name=\"page\">\n";
print "<OPTION value=\"0\" selected>Ha главнукЛп";
print "<OPTION value=\"l\">0 фирме\п";
print "<OPTION value=\"2\II>npo1i]yKiJ1MH\n";
print "<OPTION уа1ие=\"3\"Жонтакты\п" ;
print "</SELECT>\n";
print "<INPUT type=\"submit\" value=\"Go!\">\n"; print "</FORM>\n";
Далее создаем файл go.pl
#!/usr/bin/perl -w
# подключаем модуль для обработки данных формы use CGI qw( :standard); my $page = param("page");
if (defined($page)) { if ($page == 1) {
print "Location: firma.pl\n\n"; exit;
}
elsif ($page == 2) {
print "Location: price.pl\n\n"; exit ;
}
elsif ($page == 3) {
print "Location: contact.pl\n\n"; exit;
}
else {
print "Location: index.pl\n\n"; exit;
}
}
else {
print "Location: index.pl\n\n"; exit;
}
Теперь при выборе страницы из списка и нажатии кнопки Go! мы попадем на нужную страницу. Мы использовали оператор exit, т. к. после перехода на нужную страницу выполнение остального кода просто не имеет смысла.