|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Artem Chuprina 2:5020/400 21 Jan 2002 12:40:01 To : "Ilia Vinokurov" Subject : Re: Файл с русскими буквами - не текстовый. Почему? -------------------------------------------------------------------------------- Здравствуй, Ilia Vinokurov. IV> > #!c:/perl/bin/perl.exe IV> > IV> > print "Content-type: text/html; charset=windows-1251\n\n"; IV> print "Content-type: text/html\n\n"; IV> use POSIX qw(locale_h); IV> $old_locale = setlocale(LC_CTYPE); IV> setlocale(LC_CTYPE, "windows-1251"); IV> > IV> > $FILE = "test.htm"; IV> > IV> > if (-T $FILE) { А что, помогает? В документации сказано The C<-T> and C<-B> switches work as follows. The first block or so of the file is examined for odd characters such as strange control codes or characters with the high bit set. If too many strange characters (E<gt>30%) are found, it's a C<-B> file, otherwise it's a C<-T> file. сиречь клал он на локаль. Я протестировал - и правда, кладет. 5.005.03/Linux. -- Artem Chuprina Communiware.net RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757 Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru --- ifmail v.2.15dev5 * Origin: Talk.Mail.Ru (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/63598189ca2d.html, оценка из 5, голосов 10
|