Thread aktuelles Verzeichnis (43 answers)
Opened by J-jayz-Z at 2005-05-15 02:55

pKai
 2005-05-15 04:19
#54892 #54892
User since
2005-02-18
357 Artikel
BenutzerIn
[default_avatar]
[quote=Dubu,15.May.2005, 01:31]perldoc Cwd[/quote]
Ich wusste, da war was. Konnte mich nur an den Namen nicht erinnern ;)

Folgendes funktioniert bei mir problemlos:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use warnings;
use Cwd;

my $dir = cwd;

opendir (DIR, $dir) || die $!;
my @files = readdir (DIR);
closedir (DIR);

{
local ($\,$,) = ($/, $/);
print @files;
}
I sense a soul in search of answers.

View full thread aktuelles Verzeichnis