Русские имена файлов в Tk

[Lu2]

use bytes;    # не помогают
use locale;   #
use Tk;
my $mw  = MainWindow->new();
my $image = $mw->Photo('-format' => 'jpeg', '-file' => 'Юлия.jpg');

Cannot open '+ГTЮ+ГTы+ГTш+ГTм.jpg' in mode 'r' at C:/Perl/site/lib/Tk/Image.pm line 21.
-------------------------
Не удается открыть файлы с русскими именами (кодировка имен файлов - Windows).
Tk::image() Зачем-то переводит русские имена файлов в utf8 и выдает ошибку открытия файла.
Windows-XP
Perl = v5.8.4     01.2004
Tk:: = v804.027   11.2006
Конечно, можно временно переименовать файл, использовать, и затем переименовать обратно
(это работает). Или выполнить dir/X и сделать хеш  русс_имя => короткое_имя.
Но это неполноценные решения.
прагмы use bytes; use locale;  не помогают.
Можно ли сделать так, чтобы русские имена файлов не переводились в unicode ?
========================
Доп.инфо:

Tk::Image::new('Tk::Photo', 'MainWindow=HASH(0x1e381ec)', '-format', 'jpeg', '-file',
  '\x{de}\x{eb}\x{e8}\x{ff}.jpg')   called at C:/Perl/site/lib/Tk/Image.pm line 63

#sub new { ...
#21: my $obj = $widget->Tk::image('create',$leaf,@_);
#              где $leaf = 'photo';  @_ = ('-format' => 'jpeg', '-file' => 'Юлия.jpg');

#sub Construct {...
#63: *{"Tk::Widget::$name"}  = sub { $class->new(@_) };
========================

[RXL]

Lu2, посмотри в файлах модуля Tk - возможно нам эти прагмы тоже стоят, но в по-своему.
Откуда берется имя файла7 Ты передаешь?

P.S.: я с utf8 в перле еще не сталкивался и только вчера взялся об этом почитать. Если подождешь, попробую разобраться, что и как.

[Lu2]

Имена файлов я читаю из каталога readdir(DIR);
open(HR, "<Юлия.jpg"); прекрасно работает.

Прагмы use bytes; use locale; в модуле Tk не найдены.
И даже при вставке use bytes; в процедуру Tk::Image::new() ничего не меняется.
Так что, похоже, она здесь ни причём.
Прагма use bytes; работает только внутри области видимости блока
и воздействует только на функции работы со строками length, index, substr ...
Здесь же Perl где-то выполняет автоматический перевод 8-битных символов в unicode.
Отладчик в процедуру $widget->Tk::image('create',$leaf,@_); даже не заходит.
 
Демонстрационная программа widget.bat
при выборе файла с русским именем из диалога
тоже не может его открыть
  common dialog
    2. File selection dialog
  Text
    5. A search tool built with a text widget.

[Антон (LogRus)]

Может имеет смысл файл сохранять в utf8?
винда она же только с наружи с кодировками работает, а внутри(системные вызовы и т.д.) сплошной юникод.

[RXL]

Lu2, попробуй не use bytes, а use utf8 и файл исходника в utf8 сохранять.

Проделай такой тест - интересен результат:

Код: (Perl)

#!/usr/bin/perl

opendir DIR, ".";
my @dirs = grep { ! m/^(\.)/ } readdir DIR;
closedir DIR;

print join("\n", @dirs), "\n";

В той же директории у меня файлы с русскими именами и распечатывается без порчи. Локаль ru_RU.KOI8-R (Linux).

[Lu2]

To RXL.Ваш тест работает так как и должно (имена файлов ни в какие unicode не переводятся).
Я уже писал(Ответ#2), что open(HR, "<Юлия.jpg"); прекрасно работает и с русскими именами.

Не работает открытие файлов именно в пакете Tk:
my $image = $mw->Photo('-format' => 'jpeg', '-file' => 'Юлия.jpg');
добирается до строки Tk::image.pm 21:
my $obj = $widget->Tk::image('create',$leaf,@_); #на входе имя файла еще нормальное
и вываливается с ошибкой в тексте которой имя файла уже переведено в unicode.

Попытка выполнить исходник в unicode сохраненый WordPad-ом не удалась.
Perl выдает многочисленные сообщения об ошибках типа
Bareword found where operator expected at my8.pl line 2, near "" (Missing operator before u?)

[Sla]

здесь скорее всего проблема в отсутствии локали в TK либах, можно конечно попробывать пересобрать пакет (если есть сырцы)

[RXL]

Здесь багрепорты на perl-Tk:
http://rt.cpan.org/Public/Dist/Display.html?Name=Tk

Судя по траблам у Tk есть траблы с кодировками. И похоже что как раз под виндой.

Sla, notepad тут не помошник - он использует или локальную 8 бит, или unicode 16 бит.
Использовать нужно редактор с поддержкой utf-8. Напр, notepad++ (см. на sf.net).

Добавлено через 1 час, 26 минут и 17 секунд:

Cannot open '+ГTЮ+ГTы+ГTш+ГTм.jpg' in mode 'r' at C:/Perl/site/lib/Tk/Image.pm line 21.

Есть мысль, что перекодирование произошло дважды: здесь по 4 символа на один исходный.

[Lu2]

http://rt.cpan.org/Public/Bug/Display.html?id=5905
#5905: Tk cann access files or folder with ascii-8 characters
Он самый. Этот баг висит уже 3 года...

[RXL]

Последний релиз тоде трехлетней давности...
Видимо есть смысл двигаться в сторону GTK или Qt - для них модули тоже есть.