kodovani diakritiky

[Honza Pazdziora]

> 
> mam mensi problem s kodovanim/rozkodovanim diakritiky v perlu,..
> jde o cgi script, ktery mi posle z vyplneneho formulare stringy,
> ktere jsou v cestine-zakodovane..splodil jsem nasledujici desifrovator:
> 
> $retez = $ENV{'QUERY_STRING'};
> $retez =~ s/\+/ /g;
> $retez =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;

Tohle se normalne resi pomoci

	use CGI;
	my $query = new CGI;

	my $text = $query->param('text');

...

> ale odmita mi to zpet zobrazit s^ atp.

Je nutne prekonvertovat 1250 do neceho standardniho:

	use Cz::Cstocs '_1250_il2';
	use CGI;
	my $query = new CGI;
	my $text = $query->param('text');
	$text = _1250_il2($text);

------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
 I just got back from vacation and started to clean my mailbox -- sorry
 if you had to wait for this email.