powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (Perl) перекодировка из вин в дос
3 сообщений из 3, страница 1 из 1
(Perl) перекодировка из вин в дос
    #33417329
BluntMan6
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
подскажите как можно решить проблему перекодироки в файле: шапка файла в дос кодировке, а остальная часть в вин кодировке - хотелось бы получить на выходе файл в дос кодировке и чтобы все строки можно было прочитать...?
...
Рейтинг: 0 / 0
(Perl) перекодировка из вин в дос
    #33417331
BluntMan6
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
если нужен пример файла я выложу
...
Рейтинг: 0 / 0
(Perl) перекодировка из вин в дос
    #33417588
Фотография Black
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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
3 сообщений из 3, страница 1 из 1
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (Perl) перекодировка из вин в дос
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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