Cornelius Kuschnereit wrote:
> @dirs = readdir( DIR );

> foreach $dir (sort @dirs) {

    next unless -d "directory/$dir";

>   print "file: $dir\n";
> }

Reply via email to