1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/ukázka/skriptování-proměnné.pl	Thu Oct 24 22:06:44 2019 +0200
     1.3 @@ -0,0 +1,17 @@
     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 +# Výstup: tělo XHTML tabulky (řádky)
     1.9 +
    1.10 +use strict;
    1.11 +use warnings;
    1.12 +
    1.13 +open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;
    1.14 +
    1.15 +while (<JAVA>) {
    1.16 +	if (/"(.*)=".*\/\/\s+env:(.*)/) {
    1.17 +		print "<tr><td><code>$1</code></td><td>$2</td></tr>\n";
    1.18 +	}
    1.19 +}
    1.20 +