#!/usr/bin/perl -w

use strict;
use warnings;
use time::localtime;
use Data::Dumper;
use File::Find;
use POSIX;
use Net::SMTP;
use CGI;
use DBI;
use DBD::ODBC;
use SQL::Statement;
 

    


##############################################################################################

################Anlegen der Prüfdatei Programm Status: In der Datei werden die einzelnen Programmabläufe dokumentiert ob OK oder NOK
     my $ausgabe_Datei1 = 'D:\\Perl\\DB_ABFRAGE\\Status_Programm.txt';
     open(LogDatei1,'>D:\\Perl\\DB_ABFRAGE\\Status_Programm.txt') or die "Kann Log Datei nicht anlegen : $!";
    
     my $tm  = strftime ("%H:%M:%S  %d/%m/%Y" , localtime);
     print LogDatei1 "Start des Programms TDDOUBLE.pl $tm \n\n\n";
     
##########################################################################################
# ####################################################
# parameter und funktion fuer das script einlesen 
######################################################
#Übergabe der globalen Variablen aus der main.ini Datei
     my $parameterFile = "D:\\perl\\DB_ABFRAGE\\Main.ini";  
     print LogDatei1 "Die Main.ini konnte eingelesen werden $tm \n\n\n";                                                                                                                             
     open(IN, $parameterFile) || die print LogDatei1 "Paramterfile $parameterFile nicht gefunden! Abbruch des Programms, da Parameter nicht geladen werden konnten!";  
     my @par = <IN>;                                                                    
#Übergabe der Variablen aus der Main.ini     
my $ausgabe_Datei2; 
my $Schreiben1;

                                                             
     eval( join("\n", @par) );   


##############################################################################################

################Anlegen der Prüfdatei Programm Status: In der Datei werden die einzelnen Programmabläufe dokumentiert ob OK oder NOK
     my $Ergebnis1 = $ausgabe_Datei2;
     open(LogDatei2,$Schreiben1) or die  print LogDatei1 "Kann die Ausgabedatei $ausgabe_Datei2 nicht anlegen : $!";
    
      $tm  = strftime ("%H:%M:%S  %d/%m/%Y" , localtime);
     print LogDatei2 "Ergebnis der ABFRAGE doppelte Mailadressen $tm \n\n\n";
     print LogDatei1 "Die Ausgabedatei1 $Schreiben1 konnte angelegt werden $tm \n\n\n";
##########################################################################################
#Connection SQL-Datenbank
#
# $dbh = DBI->connect("DBI:mSQL:database=$db;host=$host",
#                      undef, undef, {RaiseError => 1});
###############################################################################
# Globals
#$driver = "mSQL"; # or "mSQL1";

my $MS_SQL_SERVER_USER     = 'XXXX';
my $MS_SQL_SERVER_PASSWORD = 'XXXXX';
my $MS_SQL_SERVER_HOST     = 'jdbc:mercury:sqlserver://SERVER:HOST';
#jdbc:mercury:sqlserver:
my $dbh = DBI->connect($MS_SQL_SERVER_HOST, $MS_SQL_SERVER_USER, $MS_SQL_SERVER_PASSWORD) or die "Fehler bei Datenbankverbindung: $!";

#my $dbh;                       # database handle
my $sth;                        # statement handle
my $table = 'USER';
my $table_ref;
print LogDatei1 "Connect is OK";
        
        # Fehler werden automatisch von DBI (MODUL VON PERL) behandelt          
my %error_handling_attribs = (
                PrintError => '1',  # report errorrs via warn()
                RaiseError => '1',  # report errors via die()
        );
###############################################################################

H:\>D:\Perl\DB_ABFRAGE\Treiber.pl
DBM
DBI:DBM:f_dir=.
DBI:DBM:f_dir=Apps
DBI:DBM:f_dir=Daten
DBI:DBM:f_dir=Eigene Dateien
DBI:DBM:f_dir=INSTALL_TESTER_VS2005
DBI:DBM:f_dir=mail
DBI:DBM:f_dir=Memowin
DBI:DBM:f_dir=My Documents
DBI:DBM:f_dir=Outlook
DBI:DBM:f_dir=post
DBI:DBM:f_dir=Program Files
DBI:DBM:f_dir=Q
DBI:DBM:f_dir=WINDOWS

ExampleP
dbi:ExampleP:dir=.

File
DBI:File:f_dir=.
DBI:File:f_dir=Apps
DBI:File:f_dir=Daten
DBI:File:f_dir=Eigene Dateien
DBI:File:f_dir=INSTALL_TESTER_VS2005
DBI:File:f_dir=mail
DBI:File:f_dir=Memowin
DBI:File:f_dir=My Documents
DBI:File:f_dir=Outlook
DBI:File:f_dir=post
DBI:File:f_dir=Program Files
DBI:File:f_dir=Q
DBI:File:f_dir=WINDOWS

Gofer

ODBC
DBI:ODBC:MS Access Database
DBI:ODBC:Excel Files
DBI:ODBC:dBASE Files
DBI:ODBC:Visual FoxPro Tables
DBI:ODBC:Visual FoxPro Database
DBI:ODBC:doms.mdb
DBI:ODBC:Xtreme Sample Database 2005
DBI:ODBC:QT_Flight32

Proxy
install_driver(Proxy) failed: Can't locate RPC/PlClient.pm in @INC (@INC contains: C:/Program Files/Perl/lib C:/Program
Files/Perl/site/lib .) at C:/Program Files/Perl/site/lib/DBD/Proxy.pm line 29.
BEGIN failed--compilation aborted at C:/Program Files/Perl/site/lib/DBD/Proxy.pm line 29.
Compilation failed in require at (eval 17) line 3.
Perhaps a module that DBD::Proxy requires hasn't been fully installed
 at D:\Perl\DB_ABFRAGE\Treiber.pl line 13

DBI connect('$MS_SQL_SERVER_HOST','sa',...) failed: [Microsoft][ODBC Driver Manager] Data source name not found and no d
efault driver specified (SQL-IM002)(DBD: db_login/SQLConnect err=-1) at D:\Perl\DB_ABFRAGE\TEST_2.pl line 66
Fehler bei Datenbankverbindung:  at D:\Perl\DB_ABFRAGE\TEST_2.pl line 66, <IN> line 16.

my $dbh = DBI->connect('dbi:ODBC:$MS_SQL_SERVER_HOST','sa', '271imda') or die "Fehler bei Datenbankverbindung: $!";

my $dbh = DBI->connect("dbi:ODBC:$MS_SQL_SERVER_HOST",'sa', '271imda') or die "Fehler bei Datenbankverbindung: $!";

ODBC
DBI:ODBC:MS Access Databa
DBI:ODBC:Excel Files
DBI:ODBC:dBASE Files
DBI:ODBC:Visual FoxPro Ta
DBI:ODBC:Visual FoxPro Da
DBI:ODBC:doms.mdb
DBI:ODBC:Xtreme Sample Da
DBI:ODBC:QT_Flight32
DBI:ODBC:TESTDIRECTOR_DB

my $dbh = DBI->connect('dbi:ODBC:TESTDIRECTOR_DB','sa', '271imda') or die "Fehler bei Datenbankverbindung: $!";