#!/usr/bin/perl
$directory = "/root";
opendir (DIR, $directory) or die "can`t open directory $directory $!\n";
@files = readdir (DIR) or die "can`t read dir $directory";
close (DIR);
foreach $files (@files){
next if ($files eq ".");
next if ($files eq "..");
if (-d $files){
&directoryread($files); # ЕСЛИ ЭТО ДИРЕКТОРИЯ ТО НА соотв. подпрограмму
next;
}
else {
&filesread($files);
next;
}
}
sub directoryread {
print "directory found $files\n";
}
sub filesread {
print "files found $files\n";
}
выводить что все что в папке это фало... несморя на то что там есть и папки...
подскажите