grrrr locales

[Andraz Tori]

en problem z unicode/utf8 v perlu...

Za to, da bi mi uc/lc v utf8 delal pravilno moram imet nujno naložen
vsaj en utf-8 locale na sistemu in ga potem navesti v setlocale...
ravnokar sem pogruntal (cca. 1h raziskovanja), da po defaultu nimam
nobenega utf8 localea sploh na sistemu in drugi sistemi kjer bi to laufu
tudi 99% nimajo gor utf8 localeov

torej, a obstaja kaka varianta kako da bi to delal univerzalno?
edina stvar ki jo rabim sta funkciji uc/lc, če mi pa zna povedat če je
neka črka velika je pa tud dobr

primer kako je zdaj...

use Unicode::MapUTF8 qw(to_utf8 from_utf8 utf8_supported_charset);
use locale;
use POSIX qw(locale_h);
sub to_utf {
        return (to_utf8(-string =>$_[0], -charset => "ISO-8859-2"));
}
sub from_utf {
        return (from_utf8(-string =>$_[0], -charset => "ISO-8859-2"));
}
 
 	$a="ležeče";
	$b=to_utf($a);
	setlocale(LC_CTYPE, "en_US.UTF-8"); #set internal locale
	$c=uc($b);
	$d=from_utf($c);

	print "
orig:   $a
v utf:  $b
uc utf: $c
iz utf: $d
";

-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: This is a digitally signed message part
Url : http://liste2.lugos.si/pipermail/lugos-prog/attachments/20020618/41df9259/attachment-0001.pgp