OpenForum RSS: ��

�� (��)

Wed, 11 Jul 2018 18:37:50 GMT

> �� , �� -�� \u041b\u044e\u0431\u0435\u0440\u0435\u0446\u043a\u0438\u0439

s/\\u(....)/ pack 'U*', hex($1) /eg;

�� (��)

Mon, 06 Mar 2017 06:58:06 GMT

> my $text='\u041b\u044e\u0431\u0435\u0440\u0435\u0446\u043a\u0438\u0439';
> $text =~ s/\\u(....)/chr hex $1/ge;

��! �� ́��! �� chr � hex

�� utf8

�� , ��
�� koi8-r
(��-��, � �� , �� ☺ )
[code]#!/usr/bin/perl

use Encode qw(encode decode);

$text='\u041b\u044e\u0431\u0435\u0440\u0435\u0446\u043a\u0438\u0439';
$text =~ s/\\u(....)/chr hex $1/ge;

$text = Encode::encode('koi8-r', $text);
print $text;[/code]
�� ))

�� (ACCA)

Wed, 01 Mar 2017 19:02:42 GMT

> ��, � �� sed+recode � ��
> ��.

�� sed+recode �� Perl, �� .

my $text='\u041b\u044e\u0431\u0435\u0440\u0435\u0446\u043a\u0438\u0439';
$text =~ s/\\u(....)/chr hex $1/ge;

�� (abut)

Wed, 22 Feb 2017 17:45:49 GMT

> �� iconv ��? ��[code]#!/usr/bin/perl
> $text = '\u041b\u044e\u0431\u0435\u0440\u0435\u0446\u043a\u0438\u0439';
> $text = `iconv -f java -t koi8-r << EOD
> $text`;
> print $text;[/code]
> � �� ?
> �� ))

------------8<--------------------------------------
sh: line 1: warning: here-document at line 0 delimited by end-of-file (wanted `EOD')
iconv: conversion from `java' is not supported
Try `iconv --help' or `iconv --usage' for more information.
----------->8---------------------------------------

��, � �� sed+recode � �� .

�� (��)

Wed, 22 Feb 2017 17:16:15 GMT

�� iconv ��? ��[code]#!/usr/bin/perl

$text = '\u041b\u044e\u0431\u0435\u0440\u0435\u0446\u043a\u0438\u0439';

$text = `iconv -f java -t koi8-r << EOD
$text`;
print $text;[/code]

� �� ?
�� ))

�� (Andrey Mitrofanov)

Wed, 22 Feb 2017 13:35:21 GMT

>>> --- sed '/g ; s/, //'|recode u2/x2..
>> --�� sed 's/\\u/, 0x/g ; s/, //'|recode u2/x2..
> ��, �� ,

|-D "�ݣ �� , �� -��-�� ң�� -��-��."

> �� recode �� f, �� "recode: Ambiguous output

�� (abut)

Wed, 22 Feb 2017 12:22:39 GMT

>> ��
>> $ _
>> --- sed '/g ; s/, //'|recode u2/x2..
> --�� sed 's/\\u/, 0x/g ; s/, //'|recode u2/x2..

��, �� ,
�� recode �� f, �� "recode: Ambiguous output in step `Hexadecimal-2..data"

# echo '\u041b\u044e\u0431\u0435\u0440\u0435\u0446\u043a\u0438\u0439' | sed 's/\\u/, 0x/g ; s/, //' | recode -f u2/x2 ; echo
��

�� (abut)

Wed, 22 Feb 2017 12:19:27 GMT

> ��, �� ))[code]#!/usr/bin/perl
> use Text::Iconv;
> $text = '\u041b\u044e\u0431\u0435\u0440\u0435\u0446\u043a\u0438\u0439';
> print Text::Iconv->new("java", "koi8-r")->convert($text);[/code]
> � �� -�� (��-�� ucs-2be ��
> �� ?)

�� , �� Text::Iconv ��, �� .

�� , ��

�� (��)

Sun, 19 Feb 2017 17:52:57 GMT

>>> �� , �� -�� \u041b\u044e\u0431\u0435\u0440\u0435\u0446\u043a\u0438\u0439
>> [code]#!/usr/bin/perl
>> use Encode;
>> $text='\u041b\u044e\u0431\u0435\u0440\u0435\u0446\u043a\u0438\u0439';
>> print Encode::from_to($text,'utf8','koi8r');[/code]60
> ��, � �� .
> �� (utf8), �� ,
> � �� "��", � ��
> �� :).

��, �� ))[code]#!/usr/bin/perl

use Text::Iconv;

$text = '\u041b\u044e\u0431\u0435\u0440\u0435\u0446\u043a\u0438\u0439';
print Text::Iconv->new("java", "koi8-r")->convert($text);[/code]

� �� -�� (��-�� ucs-2be �� ?)

OpenForum RSS: �������������� �������

�������������� ������� (������)

�������������� ������� (�������)

�������������� ������� (ACCA)

�������������� ������� (abut)

�������������� ������� (�������)

�������������� ������� (Andrey Mitrofanov)

�������������� ������� (abut)

�������������� ������� (abut)

�������������� ������� (�������)

OpenForum RSS: ��

�� (��)

�� (��)

�� (ACCA)

�� (abut)

�� (��)

�� (Andrey Mitrofanov)

�� (abut)

�� (abut)

�� (��)