Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (Perl) перекодировка из вин в дос / 3 сообщений из 3, страница 1 из 1
05.12.2005, 14:38
    #33417329
BluntMan6
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(Perl) перекодировка из вин в дос
подскажите как можно решить проблему перекодироки в файле: шапка файла в дос кодировке, а остальная часть в вин кодировке - хотелось бы получить на выходе файл в дос кодировке и чтобы все строки можно было прочитать...?
...
Рейтинг: 0 / 0
05.12.2005, 14:39
    #33417331
BluntMan6
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(Perl) перекодировка из вин в дос
если нужен пример файла я выложу
...
Рейтинг: 0 / 0
05.12.2005, 15:57
    #33417588
Black
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(Perl) перекодировка из вин в дос
Xpoint.Ru

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
use cyrillic qw/convert locase upcase detect dos2win win2dos/;
use MIME::Base64;
print "Content-type: text/html\n\n";
$in1='0JzRltC5INGC0LXRgdGC';

$out2= convert( 'utf','dos', $in1 );
$out3 = decode_base64($out2);
$out4 = convert( 'utf','1251', $out3);

print qq~
<li> $out1</li>
<li> $out2</li>
<li> $out3</li>
<li> $out4</li>
~;
вроде то, что надо
...
Рейтинг: 0 / 0
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (Perl) перекодировка из вин в дос / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]