.zsh/func/urlencode

   1 #!/bin/zsh
   2 #
   3 # func/urlencode
   4 #
   5 # encode strings for use with URLs
   6 #
   7 # Copyright © 1994–2008 martin f. krafft <madduck@madduck.net>
   8 # Released under the terms of the Artistic Licence 2.0
   9 #
  10 # Source repository: git://git.madduck.net/etc/zsh.git
  11 #
  12 # Based on http://www.michael-prokop.at/computer/config/.zshrc
  13
  14 setopt localoptions extendedglob
  15 input=( ${(s::)1} )
  16 print ${(j::)input/(#b)([^A-Za-z0-9_.!~*\'\(\)-])/%$(([##16]#match))}