Скрипты на Perl запускаются и работаю, но невсе, а только простые, типа вывода информации на экран. Если-же взять скрипт, который работает с файлами (читает файлы или создает новые, то-же относится и к каталогам), то постоянно появляется ошибка. В чем может быть проблема, подскажите, пожалуйста.
Работаю на Win2k AS + IIS + ActivePerl

Цитата

постоянно появляется ошибка

Какая?

А ты какими функциями пользуешся для работы с файлами. Да и че за ошибка? Ведь может когда скрипт выполняется у него недостаточно прав для работы с файлом (например).

Ошибка CGI
Указанное приложение CGI не возвратило полный набор заголовков HTTP. Не возвращены заголовки:


Can't open perl script "C:\date\home\cgi-bin\zakaz.pl": No such file or directory

Разные скрипты выдают сообщение о том, что не найден файл или директория он не может создавать каталоги и папки. А как я понимаю - это основное достоинство PERLа

Просто не верно указан путь к фалу zakaz.txt

Если установлен Apache или другой виртуалльный сервер, то путь к фалу может выглядеть примерно так
Вариант 1: 'http://localhost/cgi-bin/base/zakaz.txt'
Вариант 2: '../base/zakaz.txt'

Или попробуй скопировать файл в тот же каталог где находится скрипт, а в скрипте, в функции open укажи имя файла.
Т.е. твоя функция должна выглядеть примерно так:

Код

my $name = 'Denis'; # здесь подставь своё значение. open( FILE, ">> zakaz.txt" ) or die "Can't open file 'zakaz.txt': $!";  print FILE $name, "\n"; close( FILE ) or die "Can't close file 'zakaz.txt': $!";

Этот код создаст файл zakaz.txt в том же каталоге, где находится скрипт, а затем в него добавит строку Denis.

Это сообщение отредактировал(а) korob2001 - 7.3.2004, 13:56

Скрипт read.cgi содержит текст:

Код

#!/usr/bin/perl print "Content-type: text/html\n\n"; #print "<HTML>\n<BODY BGCOLOR=\"#FFFFFF\">\n\n"; print "Привет"; open(FILE, "article.html"); while(<FILE>) { print $_; } close(FILE); #print "</BODY>\n"; #print "</HTML>\n";

Файл article содержит:

Код

<TITLE>Article</TITLE> <FONT SIZE="4"><B>Первая строка</B></FONT><P> <FONT SIZE="3">вторая строка</FONT>

При выполнении скрипта строка print "Привет"; выполняется а вот содержимое файла не отображается, но и ошибок ни каких нет

Попробовал вставить код в read.cgi

Код

#!/usr/bin/perl print "Content-type: text/html\n\n"; #print "<HTML>\n<BODY BGCOLOR=\"#FFFFFF\">\n\n"; print "Привет"; open(FILE, "article.html"); while(<FILE>) { print $_; } close(FILE); #print "</BODY>\n"; #print "</HTML>\n"; my $name = 'Denis'; # здесь подставь своё значение. open( FILE, ">> zakaz.txt" ) or die "Can't open file 'zakaz.txt': $!"; print FILE $name, "\n"; close( FILE ) or die "Can't close file 'zakaz.txt': $!";

но ни чего к сожалению не получается. Также нет ни каких ошибок.
Может быть не включена какая-то функция в Perl.
Я и включил-то его не с первого раза. Не ввести вместо C:\Perl\bin\Perl.exe строку C:\Perl\bin\Perl.exe %s %s в IIS.

Господа, всем огромное спасибо, действительно не работало из-за моей не внимательности он пытался прочитать файлы из корневого каталога, где и создал файл zakaz.txt со строчками Denis.
Отдельное спасибо korob2001