";
";
Таблица 1. Примеры CGI-скриптов на языке Perl
Открытие файлов на сервере: www.пример.ru/cgi-bin/file.pl?stest.doc
file.pl:
#!/usr/bin/perl
$file=$ARGV[0];
print "Content-type: text/html

";
print "

"; open (expl,"<$file")|| print "File not found "; while() { print; print "
"; } close (expl); print "
Выполнение команд на сервере: www.пример.ru/cgi-bin/command.pl?ls
command.pl:
#!/usr/bin/perl
$file=$ARGV[0];
print "Content-type: text/html

";
print "

"; open (expl,"$file|")|| print "File not found "; while() { print; print "
"; } close (expl); print "

Поделитесь материалом с коллегами и друзьями