1 #!/usr/bin/perl

     2 

     3 # Projde zdroják v javě a najde v něm,

     4 # jaké proměnné prostředí se nastavují pro běh skriptů

     5 # Výstup: tělo XHTML tabulky (řádky)

     6 

     7 use strict;

     8 use warnings;

     9 

    10 open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;

    11 

    12 while (<JAVA>) {

    13 	if (/"(.*)=".*\/\/\s+env:(.*)/) {

    14 		print "<tr><td><code>$1</code></td><td>$2</td></tr>\n";

    15 	}

    16 }

    17