--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ukázka/skriptování-proměnné.pl	Sat Nov 17 23:05:59 2012 +0100
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+# Projde zdroják v javě a najde v něm,
+# jaké proměnné prostředí se nastavují pro běh skriptů
+# Výstup: tělo XHTML tabulky (řádky)
+
+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";
+	}
+}
+