Überprüfung auf Textdatei in PerlScript funzt net.

[Neofox]

Hi

Ich bin eein echter Perl anfänger, und habe ein Problem, ich habe eine Einfache abfrage geschrieben, in der geprüft werden soll ob es sich um eine Textdatei handeln soll. Hier mal der code.



...

foreach $Files (sort readdir(BBDIR)){
if(-T $Files){
$i++;
push(@Array, $Files);
}
}

...



leider funzt es nicht. Ich habe auch mal es mit -r versucht, das einzige was in dem array gespeichert wird ist . und ..

Was mach ich falsch?

Danke für eure hilfe

[quinte17]

ist dein verzeichnis dass du abfrägst vielleicht leer? weil mir sehen die punkte danach aus, dass du in einem ordner stöberst, als dass du auf files zugreifst....
weil "." ist current directory
und ".." ist above directory

mfg