| author | František Kučera <franta-hg@frantovo.cz> |
| Sun, 01 Jul 2012 14:43:21 +0200 | |
| changeset 103 | aa91d1c6d4c1 |
| child 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ů
6 use strict;
7 use warnings;
9 open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;
11 while (<JAVA>) {
12 if (/"(.*)=".*\/\/\s+env:(.*)/) {
13 print "<tr><td><code>$1</code></td><td>$2</td></tr>\n";
14 }
15 }