O Perl não possui uma função pré-definida para codificar caracteres na forma de uma URL, este artigo exemplifica como criar uma função urlencode()

-------- Corte Aqui --------------------- #!/usr/bin/perl ######################################################################## # © Sloppycode.net All rights reserved. # # This is a standard copyright header for all source code appearing # at sloppycode.net. This application/class/script may be redistributed, # as long as the above copyright remains intact.  # Comments to sloppycode@sloppycode.net ######################################################################## $value = "here is a string with strange £!¬*%)^---  characters"; for ($i=0;$i <= length($value);$i++){ if (substr($value,$i,1) =~ /[a-zA-Z0-9]/){ $endstring .=substr($value,$i,1); } else{ $endstring .= "%" .sprintf "%x",ord(substr($value,$i,1)); } } print "Content-type: text/html\\n\\n"; print "\\n"; print $endstring; print "\\n";

Quebra-Linha

Colaborador..: Marcelo Giovanni
Categoria(s).: Perl;
Versão.......: 1.0
Data.........: 07/11/2002 10:29:04
Visualizado..: 5452 vezes
Fonte........: http://www.sloppycode.net/sloppycode/Perl%5BCGI%5D/s30.html