Perl_配列を利用してSQL実行するとき、SQLインジェクションを防ぐ方法 - Qiita

要件 ・外部から取得したリストの値を利用してDB更新したい。 ・取得するリストで、要素数が毎回変わる。 ・SQLインジェクションのリスクを避けたい。 コード例 #ステータス更新の関数を呼ぶ &updateStatus($dbh, @list); sub updateStatus{ #関数を呼ぶとき渡すパラメター。 $dbh：DB接続の設定、@list：取得のリスト配列 my($dbh, @list)=@_; #配列の要素数を取得 my $cnt=@list; #要素数と同じ数の"?マーク"文字列を作って、SQLを実行する my @mark; for(my $i=1; $i<=$cnt; $i++){ push(@mark, "?"); } my $markString=join(',',@mark); my $sql1=qq[ UPDATE table1 SET status = '1'