Perl中的数据库INSERT操作

要在表中创建一些记录时，需要Perl INSERT操作。在这里，我们使用表TEST_TABLE创建记录。因此，一旦建立了数据库连接，就可以将记录创建到TEST_TABLE中了。以下是将单个记录创建到TEST_TABLE中的过程。您可以使用相同的概念创建尽可能多的记录。

记录创建采取以下步骤-

• 使用INSERT语句准备SQL语句。这将使用prepare() API完成。

• 执行SQL查询以从数据库中选择所有结果。这将使用execute() API完成。

• 释放固定手柄。这将使用 finish() API完成。

• 如果一切正常，请执行此操作，否则您可以回滚完整的事务。提交和回滚将在下一部分中说明。

my $sth = $dbh->prepare("INSERT INTO TEST_TABLE
   (FIRST_NAME, LAST_NAME, SEX, AGE, INCOME )
   values
   ('john', 'poul', 'M', 30, 13000)");
$sth->execute() or die $DBI::errstr;
$sth->finish();
$dbh->commit or die $DBI::errstr;

使用绑定值

在某些情况下，可能不会事先给出要输入的值。因此，您可以使用绑定变量，该变量将在运行时获取所需的值。Perl DBI模块使用问号代替实际值，然后execute()在运行时通过API传递实际值。以下是示例-

my $first_name = "john";
my $last_name = "poul";
my $sex = "M";
my $income = 13000;
my $age = 30;
my $sth = $dbh->prepare("INSERT INTO TEST_TABLE
   (FIRST_NAME, LAST_NAME, SEX, AGE, INCOME )
   values
   (?,?,?,?)");
$sth->execute($first_name,$last_name,$sex, $age, $income)
or die $DBI::errstr;
$sth->finish();
$dbh->commit or die $DBI::errstr;