ukázka/skriptování-proměnné.pl
author František Kučera <franta-hg@frantovo.cz>
Sat, 06 Jun 2020 13:22:57 +0200
branchv_0
changeset 300 b9bd0f06b4a1
parent 120 4d33f14e99dd
permissions -rwxr-xr-x
MySQL seems to works well even with libmyodbc5a.so not only libmyodbc5w.so ODBC driver

#!/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";
	}
}