changeset 120 | 4d33f14e99dd |
parent 119 | eec920c4bddf |
child 121 | 1a32988c4fef |
--- a/vstup/skriptování-proměnné.pl Sun Jul 08 12:55:27 2012 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,17 +0,0 @@ -#!/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"; - } -} -