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

我有一个简单的Perl脚本，我只想从用户终端样式获取输入，并使用它删除数据库表中的一行，下面是代码片段：

# 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();

#这里有些不对劲。。
我的$name=；
my$sth3=$dbh->prepare（“从动物中删除，其中动物名称=？”；
$sth3->bind_参数（1，$name）；
$sth3->execute（）或死“不…”；
打印$sth3->行；
$sth3->finish（）；

连接正在工作，但是，查询不会获取要删除的值，因此始终返回0行。任何帮助都会很好，我相信我的方法是正确的，但是在将其绑定到查询时犯了一个小错误。提前谢谢。

您需要输入。做

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

my$name=；
chomp（$name）；

或

chomp（我的$name=）；

您可以添加输入和有关表的一些信息（内容、表结构）吗？在绑定之前，可以选择

chomp$name

？不过只是个主意。

chomp(my $name = <STDIN>);