ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Ilia Vinokurov                       2:5020/400     20 Jan 2002  11:29:41
 To : Andrey Titov
 Subject : Re: Файл с русскими буквами - не текстовый. Почему?
 -------------------------------------------------------------------------------- 
 

 
 > #!c:/perl/bin/perl.exe
 >
 > print "Content-type: text/html; charset=windows-1251\n\n";
 
 print "Content-type: text/html\n\n";
 use POSIX qw(locale_h);
 $old_locale = setlocale(LC_CTYPE);
 setlocale(LC_CTYPE, "windows-1251");
 
 >
 > $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: posted via PTT-Teleport ISP, AS6795 (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Файл с русскими буквами - не текстовый. Почему?   Andrey Titov   19 Jan 2002 13:08:27   Re: Файл с русскими буквами - не текстовый. Почему?   Ilia Vinokurov   20 Jan 2002 11:29:41   Re: Файл с русскими буквами - не текстовый. Почему?   Artem Chuprina   21 Jan 2002 12:40:01