Google Calendar URL encode Perl

my ($encoded_description) = @$_[3];
$encoded_description =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;

Leave a Reply

Your email address will not be published. Required fields are marked *