perl, odczyt katalogu Opcje

[morrison]

czy ktos wie jak odczytac w perlu zawartosc katalogu-czyli pobrac nazwy plikow do zmiennych? (pod windows)


pozdr

[NuLL]

Kod

opendir(DIRHANDLE, "/jakis/katalog") || die "Nie moge otworzyc /jakis/katalog: $!";
  while ($name = readdir(DIRHANDLE)) {
    print "found file: $name\n";
  }
  closedir(DIRHANDLE);

[morrison]

dzieki, znalazlem wczesniej inne rozwiazanie:


use IO::Dir;

tie %dir, IO::Dir, "../../cacs2cpsee/";

foreach (keys %dir) {

print $_, "\n";

}

Ten post edytował morrison 31.10.2006, 16:02:57