[Moscow.pm] tie на стандартные переменные

[Dmitry Karpich]

On Jan 23, 2011, at 1:59 PM, Ivan Petrov wrote:

> > А если use encoding 'utf8'; ?
> 
> а при чем тут encoding? в него еще искусственный интеллект вроде не встроили чтобы отличать строки с багами от остальных
> 

Кстати, да.
Проверил на Ubuntu

#!/usr/bin/perl

use strict;
use warnings;
use encoding 'utf8';
open qw(:std :utf8);

use locale;
use POSIX qw(locale_h strtod);

setlocale(LC_ALL, "ru_RU.UTF-8");

my $a = qq(п р и в е т);
print 'yes'."\n" if ( $a =~ /\w+/ ) ;
print uc($a),"\n";

open(my $fh, '<', 'decodeabrakadabra/not-found') or die "Ошибка открытия файла: ".$!;

дает нам 

$ ./01-test.pl
yes
П Р И В Е Т
Ошибка открытия файла: Нет такого файла или каталога at ./01-test.pl line 18.

т.е. оно верно интерпретирует русский и нормально печатает локализованную ошибку.

Или я опять чего-то не учел?

> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org