| author | František Kučera <franta-hg@frantovo.cz> |
| Sat Nov 17 23:21:47 2012 +0100 (2012-11-17) | |
| changeset 121 | 1a32988c4fef |
| parent 104 | 9224b3d36c61 |
| permissions | -rwxr-xr-x |
1 #!/usr/bin/perl
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)
7 use strict;
8 use warnings;
10 open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;
12 while (<JAVA>) {
13 if (/"(.*)=".*\/\/\s+env:(.*)/) {
14 print "<tr><td><code>$1</code></td><td>$2</td></tr>\n";
15 }
16 }