Tisk v unicode

[Ondrej Koala Vacha]

On Thu, 20 May 2004, Ondrej Koala Vacha wrote:

> On Tue, 18 May 2004, Honza Pazdziora wrote:
>
> > On Mon, May 10, 2004 at 12:26:06PM +0200, Ondrej Koala Vacha wrote:
> > > On Mon, 10 May 2004, Ondrej Koala Vacha wrote:
> > >
> > > > S natvrdo pridanym
> > > > use encoding 'latin2';
> > > > 	use open ":std",
> > > > 	IN => ":encoding(iso-8859-2)",
> > > > 	OUT => ":encoding(iso-8859-2)";
> > > >
> > >


Mam dojem, ze unicode zhadam neni konce :(

----------------------------------
#!/usr/local/bin/perl -w
use encoding 'latin2';

my $a="ježeček";
print "main STDOUT $a\n";
print STDERR "main STDERR $a\n";
-------------------------------------
main STDOUT ježeček
Wide character in ekint at n31.pl line 6.

Tedy STDOUT dobre, STDERR spatne. Pridame use :std

--------------------------------------
#!/usr/local/bin/perl -w
use encoding 'latin2';

use open ":std",
	IN => ":encoding(iso-8859-2)",
	OUT => ":encoding(iso-8859-2)";

my $a="ježeček";
print "main STDOUT $a\n";
print STDERR "main STDERR $a\n";
--------------------------------------

"\x{6896b2a5}" does not map to iso-8859-2 at n31.pl line 9.
panic: sv_setpvn called with negative strlen at n31.pl line 9.
"\x{6896b2ad}" does not map to iso-8859-2.
"\x{6896b2a0}" does not map to iso-8859-2.
panic: sv_setpvn called with negative strlen.


Coz tedy moc nechapu. Mam perl 5.8.0 a bohuzel nemam po ruce moznost to
odzkouset na vyssi verzi. Mate nekdo nejake vysvetleni?
Co jsem si ruzne precetl, tak use open se ma tykat vsech tri handlu -
STDIN,STDOUT,STDERR


s pozdravem
--
Ondrej Koala Vacha