Вот такой вот скрипт тестовый: ====================================================== #!/usr/bin/perl
use warnings;
use strict;
use utf8;
use open qw(:utf8 :std);
my @tests=
(
'Ежики',
'Ёжики',
'ежики',
'ёжики'
);
for (0 .. $#tests)
{
my $was=$tests[$_];
$tests[$_] =~s/[^а-я]/[убито]/i;
printf "%03d %20s - %s\n", $_, $was, $tests[$_];
}
======================================================
и вот такой вот результат:
000 Ежики - Ежики
001 Ёжики - [убито]жики
002 ежики - ежики
003 ёжики - [убито]жики
и вот такой вот Perl:
This is perl, v5.10.0 built for i486-linux-gnu-thread-multi
Copyright 1987-2007, Larry Wall
Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl". If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.
с каких это пор над Ё такая дискриминация?
если это правильное поведение ткните пожалуйста в документацию в нужное
место.
--
... mpd is off
. ''`. Dmitry E. Oboukhov
: :’ : email: [email protected] jabber://[email protected]
`. `~’ GPGKey: 1024D / F8E26537 2006-11-21
`- 1B23 D4F8 8EC0 D902 0555 E438 AB8C 00CF F8E2 6537
signature.asc
Description: Digital signature
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
