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/