in reply to Percent encoding of URIs with UTF-8 characters
use utf8;
use URI::Escape qw(uri_escape);
use Encode qw(encode);
for my $name (
'Ján Slota',
'Peter Kažimír',
'Alojz Hlina',
'František Mikloško',
'Ján Počiatek',
) {
my ($pr, $meno) = split ' ', $name;
printf "http://www.orsr.sk/hladaj_osoba.asp?PR=%s&MENO=%s&SID=0&R=on\n",
map { uri_escape encode('Windows-1250', $_) } $meno, $pr;
}
__END__
http://www.orsr.sk/hladaj_osoba.asp?PR=Slota&MENO=J%E1n&SID=0&R=on
http://www.orsr.sk/hladaj_osoba.asp?PR=Ka%9Eim%EDr&MENO=Peter&SID=0&R=on
http://www.orsr.sk/hladaj_osoba.asp?PR=Hlina&MENO=Alojz&SID=0&R=on
http://www.orsr.sk/hladaj_osoba.asp?PR=Miklo%9Ako&MENO=Franti%9Aek&SID=0&R=on
http://www.orsr.sk/hladaj_osoba.asp?PR=Po%3Fiatek&MENO=J%E1n&SID=0&R=on
edit: Windows-1250, not -1252. choroba++
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Percent encoding of URIs with UTF-8 characters
by andal (Hermit) on Mar 22, 2013 at 08:45 UTC | |
|
Re^2: Percent encoding of URIs with UTF-8 characters
by McA (Priest) on Mar 22, 2013 at 09:10 UTC |