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