VPF::Использую кодировку CP866, но выводить надо в ANSI

Suppir

Дата 5.10.2010, 14:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 588
Регистрация: 20.4.2009

Репутация: нет
Всего: нет

Добрый день!

Использую скрипт для парсинга текстовых файлов в кодировке DOS. Сам скрипт тоже в кодировке DOS. В начале скрипта есть запись:

use locale; use POSIX qw(locale_h); setlocale(LC_ALL,"Russian_Russia.866");

данные считываются нормально. Однако для записи результата мне нужно указать файл с русским именем "результат.txt". При этом вместо названия файла получается абракадабра. Я знаю, что чтобы файл создался с русским именем необходимо задавать кодировку ANSI.

Примечание. Файл создается с помощью строки
$out = new IO::File ">result/$name.txt"

Вопрос. Как везде использовать кодировку DOS. Однако для вывода использовать ANSI?

ming

Дата 5.10.2010, 20:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 97
Регистрация: 30.1.2009
Где: Новосибирск

Репутация: 2
Всего: 3

может быть

Код

     ......
   {
      no locale;
      $out = new IO::File ">result/$name.txt";
   }
     ......

Suppir

Дата 6.10.2010, 10:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 588
Регистрация: 20.4.2009

Репутация: нет
Всего: нет

ming, если убрать локаль, то будет печататься в той же кодировке, что и сам файл pl. То есть в DOS. А нужно напечатать в ANSI(CP1251)

Добавлено через 5 минут и 47 секунд
Если пишу в начале

use locale; use POSIX qw(locale_h);
setlocale(LC_ALL,"ru_Ru.CP1251") || die "no locale";

то пишет, что нет такой локали :*( Perl 5.12 от Activestate

Suppir

Дата 6.10.2010, 11:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 588
Регистрация: 20.4.2009

Репутация: нет
Всего: нет

Получилось решить следующим способом. Кодировка скрипта - DOS.

Код


use locale; use POSIX; &POSIX::setlocale(&POSIX::LC_ALL, "Russian_Russia.866");
use Encode;
use IO::File;

$name = "результат.txt";
Encode::from_to($name, 'cp866', 'windows-1251');
$out = new IO::File ">$name";

while(<*.txt>){
    open(IN, "$_");
    while(<IN>){
        print $out $_ if /Решен[а-я]{1,5}\s/
    }
}

В итоге вся работа проводится в DOS, но только для создания имени файла используется ANSI

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »