[Perl] perl programm

[callmeagent]

perl programm

uahaha.. es ist zum wahnsinnig werden... ich will "nur" ein programm schreiben, was sämtliche dateinamen aus dem aktuellen ordner ausliest (exklusive der ausgeführten perldatei) und sie mir in einen array schreibt, damit ich auf jede datei einzeln zugreifen kann... aber das geht nicht... warum ???? wer kann mir helfen ???

bin für antworten unter : smajlovic@gmx.net sehr dankbar !!!

 

[MeLLe]

also hmmmmm ich antworte dir lieber im interesse der allgemeinheit hier ok? ....

        $os = 'UNIX';      # oder 'WIN32'

        if($os eq 'UNIX')
        {
                        system "ls \"./verz/\">dir.pl";
        }
        else
        {
                        system "dir verz\\ > dir.pl";
        }
        open(TMPFILE, "<dir.pl");
        while(<TMPFILE>)
        {
                $stop = index($_,".pl");
                $datei = substr($_, $stop-4, $stop+3);
                if($os eq 'UNIX')
                {
                                $dummy  = substr($datei,length($datei)-2,2);
                }
                else
                {
                                $dummy  = substr($datei,length($datei)-3,2);
                }
                if($dummy eq 'pl')
                {
                                push(@dateien, $datei);
                }
       }

       close(TMPFILE);

diese codefragment schreibt die namen aller dateien aus dem unterverzeichnis "verz" in eine temporäre datei, liest diese zeilenweise aus und packt alle .pl-dateien in den array @dateien. es ist zwar nicht genau DEIN problem damit gelöst aber mit paar kleineren modifikationen sollte es vortrefflich auch für dich verwendbar sein

hth

PS: das script ist betriebssystem-abhängig - deswegen die variable $os. läuft der webserver unter UNIX/LINUX, dann unbedingt $os='UNIX' setzen. unter windows dementsprechend halt nicht auf 'UNIX', treffenderweise eher auf 'WIN32' oder so

 

[callmeagent]

Vielen Dank für die schnelle Antwort !

Dies wird mir sicherlich eine sehr gute Hilfe sein !


Mit freundlichen Grüßen,


Smajlovic Salko