Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.sai.msu.su/~megera/postgres/testlocale-utf8.pl Дата изменения: Fri Jun 13 21:06:12 2003 Дата индексирования: Sat Dec 22 05:29:22 2007 Кодировка: koi8-r Поисковые слова: п п п п п п п п

#!/usr/bin/perl -w
use locale;
my @all = qw(п№ я† яѓ пє пµ пЅ пЁ я€ я‰ п· я… яЉ яЌ п¶ пґ п» пѕ яЂ пї п° пІ я‹ я„ яЏ я‡ яЃ пј пё я‚ яЊ п± яЋ );
#print join("\n", sort {$a cmp $b} @all),"\n";
print join(" ", sort {$a cmp $b} @all),"\n";