#!/usr/local/bin/perl -w
#

use warnings;

$inpdir="/opt/compuset1/rmiserver/BaslerAPI/CompusetService/error/";
 
opendir(LOG, "$inpdir") or die "Verz. kann nicht geoeffnet werden: $!\n";

while ($name = readdir(LOG)) {
        push(@logfiles, $name);
}

@logfiles = grep(/.*\.log$/, @logfiles);

closedir(LOG);

for ($i=0;$i<=$#logfiles;$i++)  {
        $logfiles[$i] =~ /(.*)\.log/;
        print "$1.log\n";
}