init III

VWD_ServiceProvider_Template/run.pl

@@ -0,0 +1,16 @@
+#!/bin/perl
+
+open V, "<var.txt";
+while (<V>) {
+   ($k,$v) = /^! (__.*__) (.*)\n*$/;
+   next if ($k eq "" or $v eq "");
+   $h{$k}=$v;
+}
+close V;
+
+open T, "<temp.txt"; open R, ">res.txt";
+while (<T>) {
+   for ($i=0; $i<=5; $i++) { foreach $k (keys %h) { s/$k/$h{$k}/g; } }
+   printf R unless (/__.*__/);
+}
+close T; close R;