vstup/skriptování-proměnné.pl
author František Kučera <franta-hg@frantovo.cz>
Sat, 07 Jul 2012 16:19:12 +0200
changeset 118 5488d34dd789
parent 104 9224b3d36c61
permissions -rwxr-xr-x
Licence k javovskému souboru a zvýraznění jen určitých řádků zdrojáku (awk).
franta-hg@103
     1
#!/usr/bin/perl
franta-hg@103
     2
franta-hg@103
     3
# Projde zdroják v javě a najde v něm,
franta-hg@103
     4
# jaké proměnné prostředí se nastavují pro běh skriptů
franta-hg@104
     5
# Výstup: tělo XHTML tabulky (řádky)
franta-hg@103
     6
franta-hg@103
     7
use strict;
franta-hg@103
     8
use warnings;
franta-hg@103
     9
franta-hg@103
    10
open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;
franta-hg@103
    11
franta-hg@103
    12
while (<JAVA>) {
franta-hg@103
    13
	if (/"(.*)=".*\/\/\s+env:(.*)/) {
franta-hg@103
    14
		print "<tr><td><code>$1</code></td><td>$2</td></tr>\n";
franta-hg@103
    15
	}
franta-hg@103
    16
}
franta-hg@103
    17