VPF::AtiveState Perl и файлы с русскими именами

dead_ricky

Дата 4.5.2006, 07:51 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


@ARGV = `where /r c:\\temp *.*`;
foreach (@ARGV)
{
    chomp();
    if(-f)  
    {
        print($_ . "\n");
        print((stat($_))[7] . "\n");
    }
}

Данный код не проглатывает файлы с русскими именами и расширениями smile

. Ни -f, ни (stat($_))[7]. Как заставить глотать? smile

)

sharq

Дата 4.5.2006, 10:08 (ссылка)

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

Загрузка ...

Perl Liker

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

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

dead_ricky, я не знаю что за команда where, но догадываюсь, что она делает smile

ВОт тебе пример, русские имена файлов обрабатываются:

Код


use strict;

opendir my $dh, 'c:\\Documents and Settings\\sharq\\Рабочий стол\\';
foreach (readdir $dh) {
    printf "%15s %10d\n", $_, (stat($_))[7] if -f;
}

Результат:

Цитата

>perl твой_скрипт.pl
      DiskInfo.lnk           435
RegCleaner.lnk          546
     CCleaner.lnk        1464
твой_скрипт.pl          156
        Thumbs.db        4608

На платформах Windows у ActiveState проблем с локалью нет, по крайней мере, я первый раз об этом слышу. smile

Если все-таки какие-то проблемы возникают, а именно не обрабатываются русские имена, то попробуй это:

Код


use locale;
use POSIX qw (locale_h);
setlocale(LC_CTYPE, 'ru_RU.CP1251');
setlocale(LC_ALL, 'ru_RU.CP1251');

Иногда хватает только

Код


use locale;

Это сообщение отредактировал(а) sharq - 4.5.2006, 10:09

--------------------

[color=gray]There's More Than One Way To Do It[/color]

dead_ricky

Дата 4.5.2006, 13:17 (ссылка)

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

Загрузка ...

Шустрый

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

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

спасибо за ответ, но у меня че-то не заработало:

Код


use strict;
use locale;
use POSIX qw (locale_h);    

setlocale(LC_CTYPE, 'ru_RU.CP1251');    
setlocale(LC_ALL, 'ru_RU.CP1251');
@ARGV = `dir /S/B`; # заносим в ARGV список файлов
foreach (@ARGV)
{
    chomp();
    print($_ . "\t" . (-s) . "\n");
}

результат:

Цитата

C:\Temp\test>test.pl
C:\Temp\test\rez        414
C:\Temp\test\test.pl    322
C:\Temp\test\test.pl~   322
C:\Temp\test\test.vbs   338
C:\Temp\test\зло

сделал так:

Код


use strict;
use Encode;

@ARGV = `dir /S/B`; # заносим в ARGV список файлов
foreach (@ARGV)
{
    chomp();
    Encode::from_to($_, "cp866", "windows-1251");
    print($_ . "\t" . (-s) . "\n");
}

результат:

Цитата

C:\Temp\test>test.pl
C:\Temp\test\rez        414
C:\Temp\test\test.pl    205
C:\Temp\test\test.pl~   322
C:\Temp\test\test.vbs   338
C:\Temp\test\чыю        4605   # главное файл видит smile

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