ksh-Befehl in perl? - #115447 (Allgemeines zu Perl)

schuetze09

2008-10-13 11:34

User since
2006-07-24
15 Artikel
BenutzerIn
[default_avatar]

ja, schon klar. Ich habe nur das Problem, dass diese Format schon "etabliert" ist und ich es nicht einfach ändern kann. Den ksh-Befehl wollte ich aus dem Tool gerne rausschmeißen, damit ich etwas Betreibssystem-unabhängiger werde.

momentan lese ich das ini-File so ein:

Code (perl): (dl )

                open(CONFIG, $file) or die print "\n\nFEHLER: ini-File ($file) nicht gefunden ($!)\n";

                        while (<CONFIG>)
                        {
                                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);