Décoder une chaîne de caractères contenue dans une url

[MenzAgitat]

 
Je propose une alternative que je viens de bricoler vite fait :

tclcopier

proc ::urldecode {data} {
	return [subst -novariables -nobackslashes [regsub -nocase -all {%([0-9a-f]{2})} $data "\[binary format H* \\1\]"]]
}

elle a l'avantage de dispenser d'avoir un tableau volumineux et peut-être incomplet, mais a peut-être des inconvénients auxquels je ne pense pas dans l'immédiat.