perl - perlで変数をsqlplusクエリに渡す

Question

ここで問題が発生しています。変数を sqlplus クエリに渡そうとしていますが、機能していないようです。

    my $connect = DBI->connect('DBI:Oracle:',$dbuser,$dbpasswd);
  my $query = "select sum(transaction_amnt) from comm_to_cand natural join cmte_id_to_geo where cycle='?'", $cycle;
  my $query_handle = $connect->prepare($query);
  $query_handle->execute();
  $cmte_money = $query_handle->fetchrow_array();

  print 'Money: ';
  print $cmte_money;

  if($cmte_money > 0)
  {
    print 'HI';
  }
  else
  {
    print 'NOOOO';
  }

「cycles」変数を変数から定数に変更するとクエリが機能し、if ステートメントのチェックで hi が出力されるので、データベースは確実に機能します。

私はインターネットを精査しましたが、答えが見つからないようです。

score 5 · Accepted Answer

まず、プレースホルダーを使用するつもりですが、使用していません。

where cycle='?'     -- This is a string

する必要があります

where cycle=?       -- This is a placeholder

そして、実際にプレースホルダーの値を渡さないという問題があります。

$query_handle->execute();

する必要があります

$query_handle->execute($cycle);

score 1 · Accepted Answer

プレースホルダーの置換は実行に渡されるため、次のようになります。

my $query = "select sum(transaction_amnt) from comm_to_cand natural join cmte_id_to_geo where cycle=?";
my $query_handle = $connect->prepare($query);
$query_handle->execute($cycle);

あなたが持っていたコードは、警告を有効にしていれば警告を発していたでしょう。あなたがそうしていることを確認し、あなたが受け取ったものにどのように対応するかを理解してください.

score 0 · Accepted Answer

  my $connect = DBI->connect('DBI:Oracle:',$dbuser,$dbpasswd);
  # Tell the DBI that the query uses bind variable with ? (question mark)
  my $query = "select sum(transaction_amnt) from comm_to_cand natural join cmte_id_to_geo where cycle=?";
  my $query_handle = $connect->prepare($query);
  # Pass the value 
  $query_handle->execute($cycle); # assuming the variable is defined (otherwise it will pass as NULL into the query)
  $cmte_money = $query_handle->fetchrow_array();

  print 'Money: ';
  print $cmte_money;

  if($cmte_money > 0)
  {
    print 'HI';
  }
  else
  {
    print 'NOOOO';
  }

score 0 · Accepted Answer

次に例を示します。

use strict;

    use DBI;

    my $connect = DBI->connect('DBI:Oracle:', $dbuser, $dbpasswd); 
    my $query = "select sum(transaction_amnt) from comm_to_cand natural join cmte_id_to_geo where cycle = `$cycle`"; 
    my $query_handle = $connect->prepare($query); 
    $query_handle->execute(); 
    @cmte_money = $query_handle->fetchrow_array(); 

    print 'Money: '; 
    print @cmte_money; 

    if($#cmte_money >= 0) 
    { 
      print 'HI'; 
    } 
    else 
    { 
      print 'NOOOO'; 
    }

私は定数変数を定義します$cycle、私はこのように考えます。

perl - perlで変数をsqlplusクエリに渡す

4 に答える 4

Related

Reference