perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 18
Click for quality!




11.02.2012 / 23:56

Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home


PERLscripts


PHPscripts


JAVAscripts


Hilfreiches


Links2www


Newscenter


Community


Interna




Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragNur DATEIEN in Verzeichnis auflisten
Seitenanfang
Hi Renee :P,

ich wundere mich warum dieser code:

my $dirname = 'C:\Dokumente und Einstellungen\Administrator';

opendir ( DIR, $dirname ) || die "Error in opening dir $dirname\n";
while(($filename = readdir(DIR)))
{
next if -f $filename;
print $filename."\n";
}
closedir(DIR);

mir nicht das gewünschte Ergebnis liefert.
Eigentlich sollten mir nur die Dateien in dem Ordner ausgegeben werden. Aber ich bekomm den kompletten Ordnerinhalt ausgegeben. Fällt dir evtl. ein woran das liegen könnte?

Datum: 22.12.2009-11:43

Beitragre: Nur DATEIEN in Verzeichnis auflisten
Seitenanfang
Sorry, es muss natürlich next if -d $filename; heissen. Funktioniert aber leider genauso wenig.

Datum: 22.12.2009-11:56

Beitragre: Nur DATEIEN in Verzeichnis auflisten
Seitenanfang
Hallo,
Du musst bei der Prüfung, ob Datei oder Verzeichnis den Pfad mit angeben. Dann erst weiß Perl wo zu prüfen ist. Also in Deinem Fall:
[code]
next if -d "C:/Dokumente und Einstellungen/Administrator/$filename";
[\code]
Dann sollte es klappen.

Gruß,
Charly

Datum: 22.12.2009-19:43

Beitragre: Nur DATEIEN in Verzeichnis auflisten
Seitenanfang
Hey charly,

danke werd ich morgen gleich mal testen :)

Datum: 22.12.2009-20:06

Beitragre: Nur DATEIEN in Verzeichnis auflisten
Seitenanfang
Hi Carly,

Danke es funktioniert nun!
Frohes Fest

Datum: 23.12.2009-14:40

-






-
-