kleines Script zum konvertieren von perl html -> template html

diff --git a/scripts/pl2tmpl.pl b/scripts/pl2tmpl.pl
new file mode 100755 (executable)
index 0000000..bd4d4d5
--- /dev/null
+++ b/scripts/pl2tmpl.pl
@@ -0,0 +1,15 @@
+#!/usr/local/bin/perl -pli.orig
+
+#
+# perlcode -> template converter
+#
+# there's ugly perl generated html in your xy.pl?
+# no problem. copy&paste it into a separate html file, remove 'qq|' and '|;' and use this script to fix most of the rest.
+#
+# use: perl pl2tmpl.pl <file>
+#
+# will save the original file as file.orig
+#
+
+s/\$form->\{(?:"([^}]+)"|([^}]+))\}/[% $+ %]/g;
+s/\| \s* \. \s* \$locale->text \( ' ([^)]+) ' \) \s* \. \s* qq\|/<translate>$1<\/translate>/xg;