#!/usr/bin/perl
#########################################################
## Version Test Erstellt: 14.12.2010 Verfasser: Bremm
#########################################################

use DBI();
use Cwd;

$file_to_read = "raw.dat";
$table = "sonde";

# Connect to the database.
my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost",
                         "root", "gian",
                         {'RaiseError' => 1});

#oeffnet Datei
if (open (SYSHANDLE,"<$file_to_read"))	{ print "\n\t\tEinlesen beginnt ($file_to_read).\n"; }
else	{ print "\n\n\t\tFehler: konnte \"$file_to_read\" nicht oeffnen... :-(\n"; exit; }

$dbh->do("DROP TABLE $table");
$dbh->do("CREATE TABLE $table (id VARCHAR(50))");

#liest Datei zeilenweise ein. Solange wie Zeilen vorhanden sind
while (<SYSHANDLE>)
{
    $dbh->do("INSERT INTO $table VALUES (". $dbh->quote($_) .")"); 
}	

printf ("\t\tZeilen eingelsesen und Datei geschlossen\n");