SELECT datee, timee, host, logname, methodr, url, find, replacee, code, bytesd, other, ua, referer FROM dbo.testlog INNER JOIN dbo.testcluster ON SUBSTRING(dbo.testcluster.find, 1, LEN(dbo.testcluster.find) - 1) = SUBSTRING(dbo.testlog.url, 1, LEN(dbo.testcluster.find) - 1)
WHERE dbo.testcluster.find Like  '%*' or dbo.testcluster.find = dbo.testlog.url;

SELECT datee, timee, host, logname, methodr, url, find, replacee, code, bytesd, other, ua, referer 
FROM dbo.testlog 
INNER JOIN dbo.testcluster ON ( SUBSTRING(dbo.testcluster.find, 1, LEN(dbo.testcluster.find) - 1) = SUBSTRING(dbo.testlog.url, 1, LEN(dbo.testcluster.find) - 1) )
WHERE ( dbo.testcluster.find LIKE  '%*' OR dbo.testcluster.find = dbo.testlog.url );

#!/usr/bin/perl -w
use strict;
use Win32::ODBC;


my $infile       = shift;      #parameter
my $out_file     = shift;      #parameter
my $DSN          = shift;      #parameter

my $DataBase;
my @FieldNames;
my $Cols;
my %Data;
my $iTemp;
my $infile_zeile;

$DataBase = new Win32::ODBC($DSN);


#4. Programm starten


&suche();

sub suche {

open(INFILE, '<'.$infile) or die "Unable to open $infile";

    my $sql_state;
    $sql_state = <INFILE>;

open(OUTFILE, '>'.$out_file) or die "Unable to open $out_file";

if (!$DataBase->Sql($sql_state))
{
    #Zuweisung der Feldnamen in das Array: @FieldNames
    @FieldNames = $DataBase->FieldNames();

    #Berechnung der Anzahl der Spalten.
    $Cols = $#FieldNames-1;

    #Zeilenweises Durchgehen der Datenbank per while-Schleife
    while($DataBase->FetchRow())
    {
        #Die Daten der Zeile wird dem assoziativen Array DATA zugewiesen.
        undef %Data;
        %Data = $DataBase->DataHash();
      
        for ($iTemp = 0; $iTemp <= $Cols; $iTemp++)
        {
            if($iTemp != $Cols)
            {
                print OUTFILE $Data{$FieldNames[$iTemp]};
                print OUTFILE " ";
            }
            else
            {
                print OUTFILE $Data{$FieldNames[$iTemp]} ,"\n";    
            }
        }    
    }
#Datenbank wird geschlossen.
$DataBase->Close();
}
}
close(INFILE);
close(OUTFILE);

if ($DataBase->Sql($sql_state))
  # fehler: aufgetreten
  die "Fehler: ", $Database->Error();
} # unless
else {
  #Zuweisung der Feldnamen in das Array: @FieldNames
  # ...
} # else

WHERE     RIGHT(dbo.TestCluster.find, 1) = '*'