В сообщении от 3 марта 2010 12:38:28 автор Andrei написал: > perl -E 'use utf8; $a{'x'} = 2; say utf8::is_utf8(keys %a) ? 1 : 0' perl -E 'use utf8; $a{q[x]} = 2; say utf8::is_utf8(keys %a) ? 1 : 0' будьте осторожны скавычками :) -- С уважением, Гнатына Александр.