- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #3016 [502]
От : Alexander Pashchenko 2:5062/17.212 22 марта 04, 21:22
Кому : All 24 марта 04, 20:23
Тема : Чтение русских имён через glob("*");
-------------------------------------------------------------------------------
День добрый _All_ !
В программе понадобилось читать каталог с русскими именами.
Перл работает под Wi2k.
Имена читаются в какой-то странной кодировке. Я так подозреваю что в cp866,
хотя на разделе они в cp1251.
*Это как-то можно побороть?*
_Это пример - часть программы._
[--Это начало ren.pl--]
#/usr/bin/perl
foreach(glob("d:\\mp3\\*")){
print $_,"\n";
}
[--А это кончало ren.pl--]
_Это пример вывода_
[--Это начало out--]
d:\mp3\01_¦яшфхьш _-_¦юыюЄvх_-Ёръюэv.mp3
d:\mp3\02_¦яшфхьш _-_+рё_LёяvЄрэш .mp3
d:\mp3\03_¦яшфхьш _-_¦юцфхээvщ_-ы _+шЄтv.mp3
d:\mp3\04_¦яшфхьш _-_¦Ёющфш_Tтющ_¦єЄ№.mp3
d:\mp3\05_¦яшфхьш _-_¦Ёют№_¦ы№Їют.mp3
d:\mp3\06_¦яшфхьш _-_=р_¦юЁюух_Lфр.mp3
d:\mp3\07_¦яшфхьш _-_Tхўэvщ_TюшЄхы№.mp3
d:\mp3\08_¦яшфхьш _-_¦юьрэё_+_Tыхчх.mp3
d:\mp3\09_¦яшфхьш _-_¦руш _L_¦хў.mp3
d:\mp3\10_¦яшфхьш _-_+ёъюыъш_¦Ёю°ыюую.mp3
d:\mp3\11_¦яшфхьш _-_¦яшыюу.mp3
d:\mp3\12_¦яшфхьш _-_Tёрфэшъ_Lч_T№фр.mp3
d:\mp3\13_¦Ёюярурэфр_-_¦хыюь_(Ёхьшъё).mp3
[--А это кончало out--]
_А это файлы в каталоге_
[--Это начало out--]
Том в устройстве D имеет метку APP
Серийный номер тома: 981F-FB15
Содержимое папки D:\mp3
20.03.2004 19:52 .
20.03.2004 19:52 ..
21.03.2004 12:14 6 375 424 06_Эпидемия_-_Hа_Пороге_Ада.mp3
21.03.2004 10:05 5 175 296 04_Эпидемия_-_Пройди_Свой_Путь.mp3
21.03.2004 12:36 9 611 264 05_Эпидемия_-_Кровь_Эльфов.mp3
21.03.2004 12:22 3 753 984 11_Эпидемия_-_Эпилог.mp3
21.03.2004 12:23 5 056 512 12_Эпидемия_-_Всадник_Из_Льда.mp3
21.03.2004 12:38 5 636 096 09_Эпидемия_-_Магия_И_Меч.mp3
21.03.2004 10:09 4 278 272 10_Эпидемия_-_Осколки_Прошлого.mp3
08.01.2002 15:10 3 139 837 13_Пропаганда_-_Мелом_(ремикс).mp3
21.03.2004 12:13 1 521 664 01_Эпидемия_-_Золотые_Драконы.mp3
21.03.2004 10:03 4 784 128 02_Эпидемия_-_Час_Испытания.mp3
21.03.2004 12:36 6 076 416 03_Эпидемия_-_Рожденный_Для_Битвы.mp3
21.03.2004 12:24 4 890 624 07_Эпидемия_-_Вечный_Воитель.mp3
21.03.2004 12:24 6 342 656 08_Эпидемия_-_Романс_О_Слезе.mp3
22.03.2004 21:27 0 out
14 файлов 66 642 173 байт
2 папок 140 897 280 байт свободно
[--А это кончало out--]
Счастливо _All_ !
... Win2k uptime: 0d 1h 11m 22s 718ms
--- Phone(44373) Pager(005)3880173 E-mail(point212mail.ru) ICQ(1911486)
* Origin: Активность фидошника измерятся плюсами! (2:5062/17.212)