Hallo,
wie kann ich in Perl einen Text Url-conform machen, wenn ich die URL z.B. an den UserAgent uebergeben will?
So etwas wie urlencode/urldecode in PHP habe ich in Perl nicht gefunden.
Christian
Hallo,
wie kann ich in Perl einen Text Url-conform machen, wenn ich
die URL z.B. an den UserAgent uebergeben will?
mit http://search.cpan.org/perldoc?URI::Escape
Oder wenn du es nicht so flexibel, aber ohne externes Modul willst:
sub uri\_escape {
my $text = shift;
$text =~ s/([^A-Za-z0-9\-\_.!~\*'()])/sprintf("%%%02X", ord($1))/ge;
return $text;
}
Grüße,
Moritz