my @inhalt = split /;/, qx (/usr/local/nagios/libexec/check_nrpe20 -H 172.20.2.121 -p 5666 -c check_jobinfos); my $query_del = $dbh->prepare("DROP TABLE IF EXISTS job"); my $create_query = "CREATE TABLE job(jobname VARCHAR(200), beschreibung VARCHAR(30), user VARCHAR(12), status int)"; my $query_fuellen0 = $dbh->prepare("INSERT INTO job VALUES(?,?,?,?)"); $query_del->execute(); $dbh->do($create_query); for my $zeile(@inhalt) { $query_fuellen0->execute() or warn $dbh->errstr; }