循环时在PERL脚本中执行oracle sql查询

Question

我试图在PERL脚本的while循环中执行oracle sql查询，如下所示 -

    my $dbh = DBI->connect( 'dbi:Oracle:'.$dbname,
        $dbusername,
        $pass,
        {   PrintError => 0,
            RaiseError => 1
        }   
    ) || die "Erreur lors de la connexion: $DBI::errstr";

    print ("Connexion à la base de données $dbname avec $dbusername OK \n");

    $requete = "select distinct to_char(date_appli,'yyyymmdd') from DATE_APPLI ".
           "where frequence = 'Q' and actif = 1";

    $sth_sql = $dbh->prepare($requete);
    $sth_sql->execute();
    @row=$sth_sql->fetchrow_array;
   $datesitu=@row[0];

$sth_sql->finish;
print "La date de situation est $datesitu \n";

# SQL to get validation script and table names 
$requete = "select SCRIPT_NAME, table_name from fdf_scripts";

$sth_sql = $dbh->prepare($requete);
$sth_sql->execute();
$sth_sql->bind_columns(undef, \$script_name, \$table_name);

while ($sth_sql->fetch()) {

  $script_sql="$sql_path\\"."FDF_Test_scripts\\".$script_name.".sql";   #validation script path
  $script_log="$log_path\\".$script_name.".log";                        #log files path 
  $rep_file_name="$sql_path\\"."FDF_Test_scripts\\".$table_name.".sql"; #reports SQL path
  $csv_file="$sql_path\\"."FDF_Test_scripts\\".$table_name.".csv";      #report CSV path 

#Load data into validation tables using validation scripts  

  $CmdText="sqlplus -s $connect \@$script_sql $script_log";

  print "Inserting data into table : $table_name \n";

  #system ("$CmdText");

  $col_sql = "select COLUMN_NAME from all_tab_cols where TABLE_NAME = upper(\'$table_name\')\n";

  print "$col_sql\n";

  $sth_sql = $dbh->prepare($col_sql);
  $sth_sql->execute();
  $sth_sql->bind_columns(undef, \$COLUMN_NAME);

  while ($sth_sql->fetch()) {

    print "$COLUMN_NAME\n";

  }



  if (open (my $fh, '<:encoding(UTF-8)', $script_log)){
    while (my $line = <$fh>){
      if ($line=~m/\bERROR\b/){ 
        print "Error While Loading $table_name table Please Check log file for errors at: $script_log \n";
      }       
    }
  }
  else {
        warn "Could open file: $script_log \n"
  }

}

在上面的代码中，我从表中获取表名，然后循环它们以获取该表中存在的每个表的列名。

代码在内部while循环的一次迭代中执行，但是为下一次迭代抛出错误，如下所示 -

DBD::Oracle::st fetch failed: ERROR no statement executing (perhaps you need to call execute first) [for Statement "select COLUMN_N\
AME from all_tab_cols where TABLE_NAME = upper('FDF_Bond_validation_results') 

我不熟悉PERL，只是开始使用它，不知道我怎么能克服这个问题。

如果需要更多信息，请告诉我。

Answer 1

在循环中，行$sth_sql = $dbh->prepare($col_sql);覆盖$sth_sql变量的内容。第二次循环运行时，$sth_sql的内容不一样，并且覆盖它的语句已经用尽（试图再次从中获取是导致错误的原因）。

要纠正这个问题，您应该为第二个$sth_sql变量使用不同的名称，或者只是使用$sth_sql声明第二个my变量以使其保持在循环内（请参阅perldoc -f my）。

注意：此解决方案已由JGNI在问题的评论中确定。我的角色只是总结这个问题，以便为这个问题提供正确的答案。