#!/usr/bin/perl
#
use strict;
use dbi;

my $user;
my $pw;


my $dateiNameOut = 'bla.txt';

open (OUT, ">>$dateiNameOut") 
		|| die "Fehler bei $dateiNameOut: $!";


my $sel1;
my $i;

my $dsnt = 'DBI:DB2:Datenbank-Subsystem';

my $stmf;
my @abfrageergebnis;
my $dbht;

$user = 'user';
$pw = 'pw';


$dbht = DBI->connect($dsnt, $user, $pw, {RaiseError => 0, PrintError => 0})
						or DBFehler_out('Connect zur DB funktioniert nicht');
						

$sel1 = "select * from bla;";

my $stmf = $dbht->prepare($sel1)
					or DBFehler_out('Abfrage bla funktioniert nicht');	
							
$stmf->execute()
	or DBFehler_out('Fehler bei Abfrage bla');




while(@abfrageergebnis = $stmf->fetchrow_array()){
	for ($i=0; $i < 58; $i++){
		print $abfrageergebnis[$i].";";
	}
	print OUT "\n";
}


$stmf->finish();


$dbht->disconnect();

     
close(OUT);


exit(0);

			

sub DBFehler_out
{
	print "Fehler!";

	my $message = $_[0];

	if (!$DBI::err){
		print "\n   Fehler im Statement \n   $message : \n   kein Ergebnis";
	}
	else{
		print "\n   DBFehler_out:\n$message:\nFehler ".$DBI::err."(".$DBI::errstr.")\n";
	}

}