#!/usr/bin/perl -w
# Dieses Script () wurde von Rdiger Beck erstellt
# Es ist freie Software
# Bei Fehlern wenden Sie sich bitte an mich.
# jeffbeck@web.de  oder  jeffbeck@gmx.de


# Todo:
# Funktionen
# get_symbol(t_evap);
# liefert:    t_0
# (2)
# # wenn
# $lang="de";
# $unit_system="SI";
#
# get_symbol_description("t_evap")        # Einheit 0 (standard)
# liefert:    t_0: Verdampfungstemperatur in \celsius
  
# get_symbol_description("t_evap", 1)     # Einheit 1
# liefert:    t_0: Verdampfungstemperatur in \kelvin  

# Bibliotheken
use strict;
use DBI;
use Getopt::Long;
Getopt::Long::Configure ("bundling");

#my @driver_names = DBI->available_drivers;
#print @driver_names;

# What to look for
my $name="t_con";

my $dbh = DBI->connect("dbi:mysql:kaelteformel", "root", "dummy",
                   { RaiseError => 1, AutoCommit => 1 });




my $sth = $dbh->prepare("SELECT si_symbol FROM symbols WHERE name='$name'");

$sth->execute();

my @row;

while (@row = $sth->fetchrow_array) {
    foreach my $value (@row) {
       if (defined $value) {
           print "$value\n";
       }
    };
}


$dbh->disconnect;
