+function uri_escape

+function uri_unescape

diff --git a/.bashrc b/.bashrc
index 26afe36..7a125a3 100644 (file)
--- a/.bashrc
+++ b/.bashrc
@@ -318,6 +318,8 @@ function gdbcvscheckout {(set -ex
        #(set +x;cvsignoresall)
        (set +x;ignoresall)
        );}
+function uri_escape   { perl -MURI::Escape -le '$_=<>;chomp;print uri_escape   $_;'; };
+function uri_unescape { perl -MURI::Escape -le '$_=<>;chomp;print uri_unescape $_;'; };
 
 ulimit -S -c 0
 set +H