#!/usr/bin/perl

use DBI;
use strict;

# Datenbankdaten----------------------------------------------------------------
my $dbhost = "xxx.xxx.xxx.xxx";
my $port = "3306";
my $dbname = "abc";
my $username = "NAME";
my $pw = "PASSWORT";
my $data1 = "DBI:mysql:$dbname;$dbhost;$port";
my $data2 = DBI->connect($data1, $username, $pw);
# ------------------------------------------------------------------------------

#Abfrage LSA1-------------------------------------------------------------------
my $abfrage1 = "SELECT MAC, Zeit FROM LSA1 GROUP BY MAC";
my $prepare_abfrage1 = $data2->prepare($abfrage1);      
$prepare_abfrage1->execute();
my @bt_geraet1;
while(@bt_geraet1 = $prepare_abfrage1->fetchrow_array)
        {
         print $bt_geraet1[0]." ".$bt_geraet1[1]." \n";
        }
$prepare_abfrage1->finish();
#-------------------------------------------------------------------------------
$data2->disconnect();

# Befehl für zweite Tabelle, mit ?-Notation (siehe auch Wiki-Artikel)
my $statement = qq~SELECT Zeit FROM tabelle2 WHERE MAC = ?~;
# wieder ein prepare()
my $sth = $data2->prepare( $statement ) or die $data2->errstr;

# für die Debug-Ausgabe
use Data::Dumper;

while(@bt_geraet1 = $prepare_abfrage1->fetchrow_array)
        {
         print $bt_geraet1[0]." ".$bt_geraet1[1]." \n";

         # Abfrage auf 2. Tabelle ausführen und MAC-Adresse verwenden
         $sth->execute( $bt_geraet1[0] ) or die $data2->errstr;
         my $ergebnis = $sth->fetchall_arrayref();
        
         # Debug-Ausgabe
         print Dumper $ergebnis;
        }
$prepare_abfrage1->finish();

# Befehl für zweite Tabelle, mit ?-Notation (siehe auch Wiki-Artikel)
my $statement = qq~SELECT tabelle2.mac, tabelle1.zeit, tabelle2.zeitspalte FROM tabelle1, tabelle2 WHERE tabelle1.mac = tabelle2.mac~;

my $sth = $data2->prepare( $statement ) or die $data2->errstr;

# für die Debug-Ausgabe
use Data::Dumper;

while( my @row = $sth->fetchrow_array){
         print sprintf "%s -> %s - %s\n", @row;
}
$sth->finish();