root/vstup/skriptování-proměnné.pl @ 103:aa91d1c6d4c1

#!/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";
        }
}