lebendb/mk_leben.pl

#!/bin/perl

use strict;
use warnings;

use DBI;
use Data::Dumper;
use utf8;


## Connect to the database.
my $dbh = DBI->connect( "DBI:mysql:database=<dbtablename>;host=<dbhost>",
                        "<dbusername>", "<dbpass>",
                        {'RaiseError' => 1});



my $query_handler = $dbh->prepare("
  SELECT
    user.name,
    blutdruck.user_id,
    blutdruck.systolisch,
    blutdruck.diastolisch,
    blutdruck.puls
  FROM
    user
  LEFT JOIN
    blutdruck
  ON
  ( user.id = blutdruck.user_id )
  GROUP BY
    user.id
  ORDER BY 
    blutdruck.id
  DESC 

#  DESC LIMIT 1
  ");


## define variables
my ( $user_name ,$user_id, $systolisch, $diastolisch, $puls );

#Query abfragen
$query_handler->execute();

##Angeben der Spalten welche abgefragt werden sollen
$query_handler->bind_columns( \$user_name, \$user_id, \$systolisch, \$diastolisch, \$puls );

## LOOP THROUGH RESULTS
while($query_handler->fetch()) {

    print "username=$user_name\n";;
    print "systolisch=$systolisch\n";
}