60 Часть V. Разработка программ и написание скриптов
@coinment=("Advertise on the Web with The CGI Collection",
"providing Intranet\/Internet Applications for Businesses");
# Now we pick a random number and assign it to $picnum srand(time л $$);
$picnum= rand(Spies);
# Now we display it. I've used tables here to format the output nicely.
print "Content-type:text/html\h\n";
print "<table border=0>";
print "<tr><td а11дп=сеп1ег>";
print"<ahref=\"http://$url[$picnum]\">";
print "<IMG SRC=\"$pics[$picnum]\"alt=\"$alt[$picnum]\"border=0>";
print"</A>";
print "</tdx/tr>";
print "<trxtd align=center>";
print"<ahref=\"http://$url[$picnum]\">$comment[$picnum]</a>";
print "</tdx/tr>";
print "</table>";
exit;
Так же, как и для скрипта count.pl, описанного в предыдущем разделе, для данного скрипта требуется использовать SSI. В данном случае в HTML-документе, который вызывает скрипт, следует записать такую строчку:
<!— #ехес cgi="randpic.pl"—>
Теперь, когда вы получили основные сведения о создании CGI-скриптов, пришло время разрабатывать свои собственные скрипты (или просто редактировать существующие скрипты), которые могут быть использованы для придания оригинальности вашим страницам или несколько повысить возможность интерактивного взаимодействия между вами и посетителями сай-та. Именно возможность интерактивного взаимодействия стала одной из основных причин популярности WWW.
Если вы хотите получить больше сведений об использовании CGI-скриптов, посетите следующую страницу:
http://www.yahoo.com/Computers_and_Internet/Interaet/World_Wide_Web/CGI_Common_Gateway_Interface/