--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/vstup/skriptování-proměnné.pl	Sun Jul 01 14:43:21 2012 +0200
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+# Projde zdroják v javě a najde v něm,
+# jaké proměnné prostředí se nastavují pro běh skriptů
+
+use strict;
+use warnings;
+
+open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;
+
+while (<JAVA>) {
+	if (/"(.*)=".*\/\/\s+env:(.*)/) {
+		print "<tr><td><code>$1</code></td><td>$2</td></tr>\n";
+	}
+}
+