open(CONFIG, $file) or die print "\n\nFEHLER: ini-File ($file) nicht gefunden ($!)\n"; while () { chomp; # kein NewLine s/#.*//; # keine Kommentare s/^\s+//; # keine fuehrenden White-Spaces s/\s+$//; # keine angehaengten White-Spaces next unless length; # noch was da? my ($var, $value) = split(/\s*=\s*/, $_, 2); $value = qx{ ksh -c '. $auto_ini_file ; echo "\$$var" ' } ; chomp $value; $AUTO_ENV_DATA{$var}="$value"; } close(CONFIG);