#!/usr/bin/perl -w
#DatenbankAbfragen

use strict;
use warnings;
use DBI;

use Digest::MD5;
my $dbh;
my  $raw_data;
my  $sqldata;
my  $rc;

#####################################RC-CISCO LETZTEN STATUS ABFRAGEN ########################

 sub Query{ 
 my $query;
 my $sth;     
 my $execu;    
 my $newdata;
 my $file;
 my $ds;
 my @ergebnisse;
 my @row;
 my $sqlrecord;
 my $db_id;
 my $neid;
 my $CISCOID;
 my $datarefid;
 my $sth1;
 my $query1;
 my $found;
 my $th_dbh;
  
  
  
  $query="SELECT * FROM (SELECT RC_CISCO.ID, RC_CISCO.NEID, GATE_STATE.NEID, GATE_STATE.AState, GATE_STATE.TS_LastChange, ".
                   "GATE_STATE.Data_RefID FROM (RC_CISCO LEFT JOIN GATE_STATE ON RC_CISCO.ID = GATE_STATE.Data_RefID) WHERE ( (GATE_STATE.NEID='$neid')) ORDER BY RC_CISCO.TS DESC) AS SUB1 GROUP BY SUB1.ID";
         

            $sth = $dbh->prepare($query) or die "$DBI::errstr\n";
            $ds = $sth->execute or die "$DBI::errstr\n";

            while($newdata = $sth->fetchrow_hashref)
            {
            
            
              
              if (($newdata ->{ID}) eq ($newdata->{Data_RefID}))
                 { 
                   #RC_CISCO DATEN VERGLEICHEN 
                
                 if (($newdata->{ID} eq "RC_CISCO$_->{CISCOID}") && ($newdata->{NEID} eq "$_->{neid}")
                  {
               print "$stext:RC_CISCO$_->{CISCOID} unverändert -> Updaten\n";
               
               $query="UPDATE GATE_STATE SET TS_LastChange=NOW() WHERE Data_RefID='$newdata->{ID}' ORDER BY TS_LastChange DESC LIMIT 1;
               $sth1= $th_dbh->prepare($query) or die "$DBI::errstr\n";
                      
                      $ds = $sth1->execute or die "$DBI::errstr\n";
                      $sth1->finish();
               
               
               }
               }
             else
            
                    {
            
                      print "$stext:Unterschiedliche RC_CISCO Daten für RC_CISCO$_->{CISCOID}...\n";
                      # Updaten 
                      if ($newdata->{ID} ne "RC_CISCO$_->{CISCOID}")
                      {
                        $query="UPDATE RC_CISCO SET ID='RC_CISCO$_->{CISCOID}' WHERE ID='$newdata->{ID}' LIMIT 1;";
                        $sth1 = $dbh->prepare($query) or die "$DBI::errstr\n";
                        $ds = $sth1->execute or die "$DBI::errstr\n";
                        $sth1->finish();
                      }
                   }

 }
 }
 }

Scalar found where operator expected at ./test.pl line 74, near "$sth1= $th_dbh->prepare($query) or die "$DBI::errstr"
  (Might be a runaway multi-line "" string starting on line 73)
        (Missing operator before $DBI::errstr?)
Backslash found where operator expected at ./test.pl line 74, near "$DBI::errstr\"
        (Missing operator before \?)
String found where operator expected at ./test.pl line 76, near "$ds = $sth1->execute or die ""
  (Might be a runaway multi-line "" string starting on line 74)
        (Missing semicolon on previous line?)
Scalar found where operator expected at ./test.pl line 76, near "$ds = $sth1->execute or die "$DBI::errstr"
        (Missing operator before $DBI::errstr?)
Backslash found where operator expected at ./test.pl line 76, near "$DBI::errstr\"
        (Missing operator before \?)
String found where operator expected at ./test.pl line 86, near "print ""
  (Might be a runaway multi-line "" string starting on line 76)
        (Missing semicolon on previous line?)
Scalar found where operator expected at ./test.pl line 86, near "print "$stext"
        (Do you need to predeclare print?)
syntax error at ./test.pl line 70, near ")
                  {"
Global symbol "$stext" requires explicit package name at ./test.pl line 71.
syntax error at ./test.pl line 74, near "$sth1= $th_dbh->prepare($query) or die "$DBI::errstr"
Global symbol "$stext" requires explicit package name at ./test.pl line 86.
Unrecognized character \xFC at ./test.pl line 86.

my $scalar1 = 'Wert1';
my $dbh = DBI->connect($dsn,$user,$pass) or die $DBI::errst;
my $stmt = "SELECT * FROM tabelle WHERE ID = 1';
#...

my $scalar1;
my $scalar2;
my $scalar3;
my $scalar4;
my $scalar5;
my $scalar6;
my $scalar7;
my $scalar8;
my $scalar9;
my $scalar10;
my $scalar11;
my $scalar12;
my $scalar13;
my $scalar14;
my $scalar15;
my $scalar16;
my $scalar17;
my $scalar18;
my $scalar19;
my $scalar20;
my $scalar21;
my $scalar22;
my $scalar23;
my $scalar24;
my $scalar25;
my $scalar26;
my $scalar27;
my $scalar28;
my $scalar29;
my $scalar30;
my $scalar31;
my $scalar32;
my $scalar33;
my $scalar34;
my $scalar35;
my $scalar36;
my $scalar37;
my $scalar38;
my $scalar39;
my $scalar40;
my $scalar41;
my $scalar42;

my ($user,$pass,$db,$host) = ("username","password","datenbank","host");