Perl 5 从用户获取输入并从数据库中的表中删除

Question

我有一个简单的 Perl 脚本，我只是想从用户终端样式中获取输入并使用它来删除数据库中表中的一行，这里是代码 sn-p：

# something not right here..
my $name = <STDIN>;

my $sth3 = $dbh->prepare("DELETE FROM animals WHERE animal_name = ?");

$sth3->bind_param(1, $name);

$sth3->execute() or die 'nope...';
print $sth3->rows;
$sth3->finish();

连接正常，但是，查询不会获取要删除的值，因此总是返回 0 行。任何帮助都会很好，我相信我正在以正确的方式解决这个问题，但是在将它绑定到查询时犯了一个小错误。提前谢谢你。

Answer 1

您需要chomp 输入。做

my $name = <STDIN>;
chomp($name);

或

chomp(my $name = <STDIN>);