franta-hg@103: #!/usr/bin/perl
franta-hg@103: 
franta-hg@103: # Projde zdroják v javě a najde v něm,
franta-hg@103: # jaké proměnné prostředí se nastavují pro běh skriptů
franta-hg@104: # Výstup: tělo XHTML tabulky (řádky)
franta-hg@103: 
franta-hg@103: use strict;
franta-hg@103: use warnings;
franta-hg@103: 
franta-hg@103: open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;
franta-hg@103: 
franta-hg@103: while (<JAVA>) {
franta-hg@103: 	if (/"(.*)=".*\/\/\s+env:(.*)/) {
franta-hg@103: 		print "<tr><td><code>$1</code></td><td>$2</td></tr>\n";
franta-hg@103: 	}
franta-hg@103: }
franta-hg@103: