ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Podgorny                    2:5020/400     19 Jan 2002  15:49:59
 To : Andrey Titov
 Subject : Re: Файл с русскими буквами - не текстовый. Почему?
 -------------------------------------------------------------------------------- 
 

 Andrey Titov <brandname@mtu-net.ru> wrote:
 
 > Помогите разобраться, где ошибка.
 > 
 > #!c:/perl/bin/perl.exe
 
 use locale;
 use POSIX qw(locale_h);
 setlocale(LC_ALL,'Russian_Russia.1251') or die $!;
 
 > 
 > 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Е ТЕКСТОВЫЙ";
 > }
 > 
 > 
 
 -- 
 VP992-RIPE
 --- ifmail v.2.15dev5
  * Origin: Adamant ISP news server (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Файл с русскими буквами - не текстовый. Почему?   Andrey Titov   19 Jan 2002 13:08:26   Re: Файл с русскими буквами - не текстовый. Почему?   Vladimir Podgorny   19 Jan 2002 15:49:59   Re: Файл с русскими буквами - не текстовый. Почему?   Andrey Titov   19 Jan 2002 19:34:56   Файл с русскими буквами - не текстовый. Почему?   Dmitry Smolin   19 Jan 2002 16:08:42