Perl中的数据库INSERT操作
要在表中创建一些记录时，需要PerlINSERT操作。在这里，我们使用表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;使用绑定值
在某些情况下，可能不会事先给出要输入的值。因此，您可以使用绑定变量，该变量将在运行时获取所需的值。PerlDBI模块使用问号代替实际值，然后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;