author | František Kučera <franta-hg@frantovo.cz> |
Sat, 24 Nov 2018 17:01:54 +0100 (2018-11-24) | |
branch | v_0 |
changeset 142 | 36a8ecc8fb45 |
parent 120 | 4d33f14e99dd |
permissions | -rwxr-xr-x |
#!/usr/bin/perl # Projde zdroják v javě a najde v něm, # jaké proměnné prostředí se nastavují pro běh skriptů # Výstup: tělo XHTML tabulky (řádky) 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"; } }