|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Andrey Titov 2:5020/400 19 Jan 2002 13:08:27
To : All
Subject : Файл с русскими буквами - не текстовый. Почему?
--------------------------------------------------------------------------------
Имеется скрипт, текст которого приведён ниже
и файл test.htm в одной директории со скриптом.
Когда файл test.htm содержит просто цифру 1, например,
то всё работает, а если какую-либо русскую букву (например, Ж),
то проверка файла не проходит, т.е. файл не распознаётся как текстовый.
Если его перенести в другую директорию то Perl Builder иногда
говорит, что "Permission denied at" open(FILE,"$FILE") || die $!;
Работаю на Perl 5 + Apache + WinMe.
Помогите разобраться, где ошибка.
#!c:/perl/bin/perl.exe
print "Content-type: text/html; charset=windows-1251\n\n";
$FILE = "test.htm";
if (-T $FILE) {
open(FILE,"$FILE") || die $!;
@LINES = <FILE>;
close(FILE);
foreach $string (@LINES) {
print "$string\n";
}
}
else
{
print "ФАЙЛ HЕ ТЕКСТОВЫЙ";
}
--- ifmail v.2.15dev5
* Origin: MTU-Intel ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
