Search Results

opendir DIR, "/LDAP_backup";
@files = grep { $_ !~ /^[.]{1,2}$/ } readdir DIR;
closedir DIR;

for (@files) {
@y = split /[.-]/;
$x{"$y[4]$y[3]$y[2]"} = $_;
}

for (sort keys %x) {
...

strange... are there entries in /dev/dsk/... for the disk?