|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Anatoly Moskovsky 2:5020/400 26 Nov 2003 16:28:09
To : Alex Krivospitsky
Subject : Re: пара вопросов
--------------------------------------------------------------------------------
Hi!
*** Alex Krivospitsky wrote:
AK> 2) пишем print "привет"; сохраняем в досовской кодировке. пускаем
AK> из-под activestate,все нормально, из под perl из cygwin, выводит
AK> каракули. если сохранять в виндовой кодировке, то наоборот.
AK> как бы сделать, чтоб скрипт из под всех perl'ов работало
AK> правильно.
Cygwin почему-то все строки перекодирует 1251->866. Как отключить - не знаю,
поэтому придется под виндой то же самое делать:
#!/usr/bin/perl
BEGIN {
if ($^O =~ /MSWin/i) {
require Win32::Console;
Win32::Console::OutputCP("1251");
}
}
print "Тест1251\n";
END {
if ($^O =~ /MSWin/i) {
Win32::Console::OutputCP("866");
}
}
Bye
--- ifmail v.2.15dev5.1
* Origin: Alkar Teleport News Server (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
