分类导航

程序问答发布时间：2022-05-31 发布网站：大佬教程 code.js-code.com

大佬教程收集整理的这篇文章主要介绍了在这种情况下，将 undef 传递给 DBI 的 `do` 方法的目的是什么？，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

如何解决在这种情况下，将 undef 传递给 DBI 的 `do` 方法的目的是什么？？

开发过程中遇到在这种情况下，将 undef 传递给 DBI 的 `do` 方法的目的是什么？的问题如何解决？下面主要结合日常开发的经验，给出你关于在这种情况下，将 undef 传递给 DBI 的 `do` 方法的目的是什么？的解决方法建议，希望对你解决在这种情况下，将 undef 传递给 DBI 的 `do` 方法的目的是什么？有所启发或帮助；

我不明白 undef 在这段代码中做了什么：

$dbh->do (qq {
            INSERT INTO todo SET t = Now(),status = 'open',content = ?
        },undef,$content);

谁能解释一下？我想我了解整个代码，但不了解它的来源。

use warnings;
use Strict;
use lib q(/data/TEST/perl/lib);
use CGI qw(:standard);
use WebDB;

sub insert_item {
    my $content = shift;
    my $dbh;
    $content =~ s/^\s+//;
    $content =~ s/^\s+$//;
    if ($content ne "") {
        $dbh = WebDB::connect();
        $dbh->do (qq {
            INSERT INTO todo SET t = Now(),$content);
        $dbh->disconnect();
    }
}

sub display_entry_form {
    print start_form(-action=> url()),"To-do item:",br (),textarea ( -name => "content",-value => "",-overrIDe => 1,-rows =>3,-columns => 80),submit(-name=> "choice",-value => "submit"),end_form();
}

print header(),start_HTML(-title=>"To-Do List",-bgcolor => "white"),h2("To-Do List");

my $choice = lc(param ("choice"));

if ($choice eq "") {
    display_entry_form();
} elsif ( $choice eq "submit" ) {
    insert_item(param("content"));
    display_entry_form();
} else {
    print p ("Logic error,unkNown choice: $choice");
}

解决方法

do() 方法接受 3 个参数：查询、查询属性和绑定数据。您示例中的 undef 表示没有要应用的属性。

见"do()" in DBI on CPAN。

$rows = $dbh->do($statement)           or die $dbh->errstr;
$rows = $dbh->do($statement,\%attr)   or die $dbh->errstr;
$rows = $dbh->do($statement,\%attr,@bind_values) or die ...