added useful tools for perl debugging:

[helm.git] / helm / http_getter / tools / uri_escape.pl

diff --git a/helm/http_getter/tools/uri_escape.pl b/helm/http_getter/tools/uri_escape.pl
new file mode 100755 (executable)
index 0000000..0303e3f
--- /dev/null
+++ b/helm/http_getter/tools/uri_escape.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl -w
+use strict;
+
+# escape a URI with uri escaping
+#
+# Stefano "Zack" Zacchiroli <zack@cs.unibo.it>
+#
+
+
+use URI::Escape;
+
+while(<>) {
+ chomp;
+ print uri_escape($_);
+ print "\n";
+}