1 #!/usr/bin/perl

     1 #!/usr/bin/perl

     2 

     2 

     3 # Projde zdroják v javě a najde v něm,

     3 # Projde zdroják v javě a najde v něm,

     4 # jaké proměnné prostředí se nastavují pro běh skriptů

     4 # jaké proměnné prostředí se nastavují pro běh skriptů

     5 

     6 

     6 use strict;

     7 use strict;

     7 use warnings;

     8 use warnings;

     8 

     9 

     9 open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;

    10 open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;