#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use DBI;

local $\ = local $, = "\n";

my $DBH = dbh();

my $q = q(
	INSERT INTO test(text)VALUES(?)
	ON Duplicate Key UPDATE text=?
);

my $STH = $DBH->prepare($q);
my $ins = '12asdf'; # Zum Testen Werte ändern....
my $state = $STH->execute($ins, $ins); # case state: 1 INSERT, 2 UPDATE
if($state ==  2){
	print "Es war ein Update, wir brauchen die ID mit einer weiteren Abfrage!";
	my $id = $DBH->selectrow_array("SELECT id FROM test WHERE text=?", {}, $ins);
	print "Hier ist sie: $id";
}
elsif($state == 1){
	print "Es war ein Insert, wir brauchen die ID als Last_Insert_Id!";
	my $id = $DBH->selectrow_array("SELECT LAST_INSERT_ID()");
	print "Hier ist sie: $id";
}
else{ die "Wiedermal ist alles schiefgegangen!" }
# Frage: Mit welchem Feld letztendlich wird die referenzielle Integrität hergestellt?
# Antwort: Mit dem Feld, welches in der Haupt-Tabelle als Unique Key definiert ist!
# Nächste Frage: Wozu brauchen wir dann einen auto_increment Wert?
# Antwort 1: Wenn wir alles so lassen wie es ist, brauchen wir die auto_increment ID.
# Antwort 2: Wenn wir das DB-Design geschickt ändern, brauchen wir diese ID nicht mehr.


###########################################################################
sub dbh{
	my $class = shift; # Name der o.g. Package
	my %cfg = (
		base => 'myweb',
		host => 'localhost',
		port => 3306,
		user => '',
		pass => '',

	@_);
	my $dbh = undef;
	eval{
		$dbh = DBI->connect("DBI:mysql:$cfg{base}:$cfg{host}:$cfg{port}", $cfg{user}, $cfg{pass},
			{RaiseError => 1, PrintError => 0}
		);
	};
	return $@ ? undef : $dbh;
}

__END__
CREATE TABLE `test` (
  `id` int(11) NOT NULL AUTO_INCREMENT,
  `text` varchar(20) NOT NULL DEFAULT '',
  PRIMARY KEY (`id`),
  UNIQUE KEY `text` (`text`)
) ENGINE=MyISAM AUTO_INCREMENT=14 DEFAULT CHARSET=utf8