Vypnuti kodovani na filehandle

[Jan Kasprzak]

	Zdravim,

jak se vypne prekodovani na filehandle? Mam kus kodu, kde delam neco jako
(zjednodusene):

binmode $fh, 'encoding($kodovani)';
... print $fh neco ...
flush $fh;
binmode $fh, ':bytes';
seek $fh, 0, 0;
while (<$fh>) {
	print $jiny_fh;
}

Pricemz to vypada, ze pokud tim prvnim binmode zapnu kodovani, tak to druhe
binmode uz to kodovani nezrusi (na vystup jdou pak data v UTF-8).
Kdyz tento kod nahradnim nasledujicim:

# bez binmode
... print $fh Encode::encode($kodovani, neco) ...
flush $fh;
# bez dalsiho binmode
seek $fh, 0, 0;
while (<$fh>) {
	print $jiny_fh;
}

tak dostanu ven bajty v $kodovani, jak ocekavam.

	Co delam spatne?

-Y.

-- 
| Jan "Yenya" Kasprzak  <kas at {fi.muni.cz - work | yenya.net - private}> |
| GPG: ID 1024/D3498839      Fingerprint 0D99A7FB206605D7 8B35FCDE05B18A5E |
| http://www.fi.muni.cz/~kas/    Journal: http://www.fi.muni.cz/~kas/blog/ |
> I will never go to meetings again because I think  face to face meetings <
> are the biggest waste of time you can ever have.        --Linus Torvalds <