#!/usr/bin/perl


use strict;
use warnings;

use Carp;
use DBI;


my $dbh = DBI->connect("dbi:Pg:dbname=raum;host=127.0.0.1;port=5432", "perl_db", "test",{ RaiseError => 0, AutoCommit => 0}) or croak $DBI::errstr;
print "\n Erfolgreich mit Datenbank verbunden \n \n";

if ($ARGV[0]=='update'){
        sub update;
}
elsif ($ARGV[0]=='insert'){
        sub insert;
}
elsif ($ARGV[0]=='delete'){
        sub delete;
}
elsif ($ARGV[0]=='select'){
        sub select;
}
else {
print "Falscher Parameter!";
}

#####UPDATE######

sub update {
my $cmd = 'UPDATE t_personen SET name= ? WHERE id=?; '; my $sth = $dbh->prepare_cached($cm$
   or croak "SQL prepare failed '$cmd': " . $dbh->errstr;

my $rc = $sth->execute($ARGV[1],$ARGV[2]);

$dbh->commit() or die "Failed to save modified data: " . $dbh->errstr;
}

##### delete#######
.
.
.
.

if($ARGV[0] eq 'update'){...}

if($ARGV[0] eq 'update'){
         sub update;
}

if($ARGV[0] eq 'update'){
        update();
}

if ($ARGV[0] eq 'update'){
        update($ARGV[1],$ARGV[2]);
}
if ($ARGV[0] eq 'insert'){
        insert($ARGV[1],$ARGV[2]);
}
if ($ARGV[0] eq 'delete'){
        delete($ARGV[1]);
}
if ($ARGV[0] eq 'select'){
        select();
}
else {
print "  >>> Falscher Parameter! (insert/update/delete/select) <<<\n\n";
}

if ($ARGV[0] eq 'update'){
       update($ARGV[1],$ARGV[2]);
}
elsif ($ARGV[0] eq 'insert'){
       insert($ARGV[1],$ARGV[2]);
}
elsif ($ARGV[0] eq 'delete'){
       delete($ARGV[1]);
}
elsif ($ARGV[0] eq 'select'){
       select();
}
else {
    print "  >>> Falscher Parameter! (insert/update/delete/select) <<<\n\n";
}