OpenForum RSS: OpenNews: �� Perl 5.10.0

�� Perl 5.10.0 (��)

Wed, 26 Dec 2007 07:39:37 GMT

�� -��

�� Perl 5.10.0 (2l00p)

Fri, 21 Dec 2007 04:44:37 GMT

Linux a6m 2.6.18-4-k7 #1 SMP Mon Mar 26 17:57:15 UTC 2007 i686 GNU/Linux

LANG=ru_RU.UTF-8
LC_CTYPE="ru_RU.UTF-8"
LC_NUMERIC="ru_RU.UTF-8"
LC_TIME="ru_RU.UTF-8"
LC_COLLATE="ru_RU.UTF-8"
LC_MONETARY="ru_RU.UTF-8"
LC_MESSAGES="ru_RU.UTF-8"
LC_PAPER="ru_RU.UTF-8"
LC_NAME="ru_RU.UTF-8"
LC_ADDRESS="ru_RU.UTF-8"
LC_TELEPHONE="ru_RU.UTF-8"
LC_MEASUREMENT="ru_RU.UTF-8"
LC_IDENTIFICATION="ru_RU.UTF-8"
LC_ALL=

This is perl, v5.8.8 built for i486-linux-gnu-thread-multi

------------------
#!/usr/bin/perl -w

use encoding "utf8";

$_ = "��, �� ֣�� - �� .";

s/\w{8}/��/g;
print $_;
<>;
------------------

�ӣ �� .

�� Perl 5.10.0 (Stanislaus)

Thu, 20 Dec 2007 12:54:14 GMT

��!

�� switch ��.
given ($foo) {
when (/^abc/) { $abc = 1; }
when (/^def/) { $def = 1; }
when (/^xyz/) { $xyz = 1; }
default { $nothing = 1; }
}
�� utf8:
use utf8; # �� , �� utf-8
# �� Perl �� , �� utf-8:
# �� Encode
# �� , ��, ��
my ($data) = $sth->fetchrow_array;
$data =~ s/��/��/gi;
# �� , �� Perl, �� UTF-8, � �� Unicode � $data �� .
use utf8;
use Encode;
...
my ($data) = map {Encode::decode('UTF-8',$_)} $sth->fetchrow_array;
$data =~ s/��/��/gi;

�� Perl 5.10.0 (MicRO)

Thu, 20 Dec 2007 05:37:36 GMT

�� +utf �� , �� 5.10 ��

�� Perl 5.10.0 (angra)

Wed, 19 Dec 2007 18:48:21 GMT

�� tr, �� c,m,o,a �� .

�� Perl 5.10.0 (fennel)

Wed, 19 Dec 2007 13:16:53 GMT

� �� regexp � �� . �� .

�� Perl 5.10.0 (��)

Wed, 19 Dec 2007 12:05:27 GMT

� �� ?
� �� -�� , �� utf8 � �� -�� .
�� , ��, �� utf8.
��, �� -�� .

�� Perl 5.10.0 (vadiml)

Wed, 19 Dec 2007 10:22:26 GMT

> �� UTF-8 ��

��, ��, �� , � �� utf8 � �ӣ ��

OpenForum RSS: OpenNews: ����� Perl 5.10.0

����� Perl 5.10.0 (������)

����� Perl 5.10.0 (2l00p)

����� Perl 5.10.0 (Stanislaus)

����� Perl 5.10.0 (MicRO)

����� Perl 5.10.0 (angra)

����� Perl 5.10.0 (fennel)

����� Perl 5.10.0 (��)

����� Perl 5.10.0 (vadiml)

OpenForum RSS: OpenNews: �� Perl 5.10.0

�� Perl 5.10.0 (��)

�� Perl 5.10.0 (2l00p)

�� Perl 5.10.0 (Stanislaus)

�� Perl 5.10.0 (MicRO)

�� Perl 5.10.0 (angra)

�� Perl 5.10.0 (fennel)

�� Perl 5.10.0 (��)

�� Perl 5.10.0 (vadiml)