First version of Di Lena's stylesheet generator (for the HELM DTD).

[helm.git] / helm / meta_style / subst.pl

diff --git a/helm/meta_style/subst.pl b/helm/meta_style/subst.pl
new file mode 100755 (executable)
index 0000000..27ca245
--- /dev/null
+++ b/helm/meta_style/subst.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+
+open(FILE, $ARGV[2]) || die("Error: cannot open \"$ARGV[2]\" for reading.\n");
+@file = <FILE>;
+close(FILE);
+
+open(FILE, ">$ARGV[2]");
+
+foreach $line (@file)
+{
+       $line =~ s/$ARGV[0]/$ARGV[1]/g; 
+       
+       print FILE "$line";
+}
+
+close(FILE);