#!/usr/bin/perl

use strict;
use warnings;

use DBI;

my $table_header = q(`AfterbuyNr`,`eBayNr`);
my $mysql_pre = 'test';
my $mysql_table  = 'test';

my $newdata = 'test.data';
print qq(|  Load Data für $mysql_pre startet\n);

my $dbh = DBI->connect("dbi:mysql:test", 'test', 'test');
my ($sth, $sql);

$sql = <<'SQL';
CREATE TABLE IF NOT EXISTS `test`  (
  `id` int(11) DEFAULT 0,
  `AfterbuyNr` int(11) DEFAULT 0,
  `eBayNr` int(11) DEFAULT 0 ); 
SQL
$sth = $dbh->prepare( $sql );
$sth->execute();

$sql = <<SQL;
LOAD DATA LOCAL INFILE '$newdata' 
        INTO TABLE $mysql_table 
        FIELDS TERMINATED BY ';'  
        ENCLOSED BY '\"' 
        LINES TERMINATED BY '\n' ($table_header);
SQL

$sth = $dbh->prepare( $sql );
$sth->execute();

print qq(|  Load Data für $mysql_pre beendet\n);

"100111";"123456777"
"100777";"123456999"