#!/usr/bin/perl
use strict;
my $str="Проверка";
print substr($str,1,1),"\n\n";
exit;
Возвращает закращенный знак вопроса "?"
Локаль utf8, Ubuntu 6.06, Perl 5.8.7.
Задача преобразовать "Имя Отчество" в "И.О."
#!/usr/bin/perl
use strict;
my $str="Проверка";
print substr($str,1,1),"\n\n";
exit;
Возвращает закращенный знак вопроса "?"
Локаль utf8, Ubuntu 6.06, Perl 5.8.7.
Задача преобразовать "Имя Отчество" в "И.О."
Ответ на:
комментарий
от Zmacs