vstup/skriptování-proměnné.pl
changeset 120 4d33f14e99dd
parent 119 eec920c4bddf
child 121 1a32988c4fef
     1.1 --- a/vstup/skriptování-proměnné.pl	Sun Jul 08 12:55:27 2012 +0200
     1.2 +++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.3 @@ -1,17 +0,0 @@
     1.4 -#!/usr/bin/perl
     1.5 -
     1.6 -# Projde zdroják v javě a najde v něm,
     1.7 -# jaké proměnné prostředí se nastavují pro běh skriptů
     1.8 -# Výstup: tělo XHTML tabulky (řádky)
     1.9 -
    1.10 -use strict;
    1.11 -use warnings;
    1.12 -
    1.13 -open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;
    1.14 -
    1.15 -while (<JAVA>) {
    1.16 -	if (/"(.*)=".*\/\/\s+env:(.*)/) {
    1.17 -		print "<tr><td><code>$1</code></td><td>$2</td></tr>\n";
    1.18 -	}
    1.19 -}
    1.20 -