консольная команда меняющая кодировку на сеанс chcp 1251
chcp выводит текущую кодировку

Ничего не выйдет, попробуй запусти этот код:

Код

#!/usr/bin/perl -w use strict; eval { system('chcp 1251') }; print "Привет мир!\n" unless $@; eval { system('chcp 866') };

Цитата(korob2001 @ 20.6.2005, 13:16)

Ничего не выйдет, попробуй запусти этот код: Код #!/usr/bin/perl -w use strict; eval { system('chcp 1251') }; print "Привет мир!\n" unless $@; eval { system('chcp 866') };

ну запустил, вот результат:
C:\>test.pl
Текущая кодовая страница: 1251
Привет мир!
Текущая кодовая страница: 866
и на оборот

C:\>test.pl
Текущая кодовая страница: 866
╧ЁштхЄ ьшЁ!
Текущая кодовая страница: 1251
так что все работает

Я так и запускаю, но кирилицы я так и не заметил.

Цитата(korob2001 @ 20.6.2005, 15:05)

Я так и запускаю, но кирилицы я так и не заметил.

или мне домой уже пора идти с работы или чего то я не допонимю, у нас результаты разные или что?

korob2001, не хочу растраивать, но такой модуль уже существует - cyrillic.

Код

use strict; use cyrillic qw/ convert win2koi utf2dos mac2utf dos2mac win2dos utf2win win2utf dos2win mac2dos utf2mac dos2utf/; my $utf = "Хелло Р’орльд!\n"; print "UTF-8: $utf"; my $dos = utf2dos mac2utf dos2mac win2dos utf2win $utf; print "DOS: $dos"; my $win = "привет\n"; my $dos2 = win2dos $win; my $utf2 = win2utf dos2win mac2dos utf2mac dos2utf $dos2; print "UTF-W: $utf2"; my $dos_ = utf2dos mac2utf dos2mac win2dos utf2win $utf2; print "DOS: $dos_"; my $koi = win2koi $win; print $koi; my $uni = convert('win', 'uni', \$win); print $uni;

Работает очень хорошо!

Кстати, с подобной проблемой сам сталкивался.

Это сообщение отредактировал(а) sharq - 21.6.2005, 18:40

sharq - это понятно, просто иногда полезно делать что-нить ручками, да бы развиваться.

korob2001 согласен. Развиваться всегда надо.

Скажи, как перевестирусские прописные буквы в заглавные, используя рег эксп. Для латиницы - понятно (\L\u), вот для кириллицы - не подходит.
Я эту проблему решил в лоб: через хеш.

sharq - а почему бы для этого не создать отдельный топик??? Ведь человек задал здесь абсолютно другой вопрос. TwiSteR - тебя это тоже касается.

sharq - А если по существу, просто подключи use locale, после чего заюзай встроенные функции ucfirst(), uc(), lcfirst(), lc(). Если ты под никсами, use locale может тебе не помочь, тогда подключай POSIX и напрямую укажи с чем ты работаешь. Только в следующий раз создавай отдельный топик, для своего вопроса. Спасибо.

Это сообщение отредактировал(а) korob2001 - 21.6.2005, 22:53

korob2001

Да я хотел, но почему-то подумал раз уж тут про так сказать руссификацию завели речь, вот сюда и запостил. Если можешь то раздели тему плиз.

Цитата(sharq @ 21.6.2005, 22:13)

используй латинцкий алфавит для названия файлов

Узерам этого не объяснишь, чтобы свои документы сохраняли в латинских именах файлов

Цитата

Да я хотел, но почему-то подумал раз уж тут про так сказать руссификацию завели речь, вот сюда и запостил.

Это правила форума, один топик - один вопрос. Не я их придумал, но по идее они верны, так легче найти ответ на вопрос, который уже встречался ранее.

Цитата

Если можешь то раздели тему плиз

Создай новый топик, можешь написать в нём только несколько любых символов, затем я удалю сообщение и перенесу все посты, которые касаются Archive::Zip, в новый топик.

Это сообщение отредактировал(а) korob2001 - 21.6.2005, 23:00

М	Тема закрыта