>>this is verzeichnis.pl ######################################### #/usr/bin/perl -w
use strict; my $qis_root = "/home/user1/DiREx/test"; my $SNR_LOG; chdir($qis_root)|| die "canīt change to $qis_root!"; while (defined($SNR_LOG = <*>)){ #print "$dateien\n"; parse_logs($SNR_LOG); } sub parse_logs{ print "Yeeehaaa: $_ \n"; } ########################################## << I would suggest doing it this way. This opens the dir, read's the files and gets rid of the . and .. which will be includeded in it. Hope that helps.. Joe #/usr/bin/perl -w use strict; my $qis_root = "/home/user1/DiREx/test"; my $SNR_LOG; opendir(IMD, $qis_root) || die("Cannot open directory"); @thefiles= readdir(IMD); closedir(IMD); foreach $f (@thefiles) { unless ( ($f eq ".") || ($f eq "..") ) { print "$f"; } }