使用 Class::DBI 对 Perl 进行排序

Question

您有一个名为 Pets 的表格：

name     age     pet
------------------------
Carol     25     null
Stean     23     cat
Mel       24     dog
Rich      24     rabbit

在服务器 mydbserver 上的 MySQL 数据库中，用户为 'user' “密码”的密码。

执行以下操作：

1) 使用上述凭据 (DBI.pm) 创建到此数据库的 Class::DBI 连接。

2) 为表 Pets ( Pet.pm ) 创建一个类

3) 创建一个程序，打印 Pets 表中所有人的姓名以及种类（如果有） 他/她按名称然后年龄排序的宠物。

这是我写的代码.....

#!/usr/bin/perl      
package Pet::DBI;
use DBI;
use strict;
use base 'Class::DBI';
Pet::DBI->set_db('Main','dbi:mysql:dname', 'user', 'password') 

or die $DBI::errstr "\n";
1;

package Pet::Pets;
use base 'Pet::DBI';
use strict;
use warning;
Pet::Pets->table('Pets');
Pet::Pets->columns(All => qw/name age pet/);
1;

use Pet::Pets;
my @pets = Pet::Pets->retrieve_all; 
for (sort {$a->name cmp $b->name} || {$a->age <=> $b->age}  @Pets) {
print "Name:".$_->name ' => '."Age". $_->age"\n";
}

1;

Answer 1

基本上是对的，但是有一些小问题。

不必加载 DBI，Class::DBI 会为您处理。

您应该使用connection 而不是set_db("Main", ...)。 set_db 来自 Ima::DBI，这样偷看是不礼貌的（或必要的）。

虽然这没有直接记录在 Class::DBI 中（应该是），它继承自 Ima::DBI，但无需检查 DBI 错误。 RaiseError 开启，如果连接失败会抛出错误。

你有一个错字，use warning; 而不是use warnings;。

除非您将三个文件拼接在一起以发布帖子，否则如果代码都在一个文件中，1; 语句不会执行任何操作。 use Pet::Pets 将不起作用，因为没有 Pet/Pets.pm 文件。您不必使用已经在同一个文件中的类。

一般情况下，不用$_就不要用了，太多的东西可以悄悄的用或者改。相反，给 for 循环一个适当的变量，如 for my $person。

sort 只占用一个块，但您基本上是正确的。应该是sort { ($a->name cmp $b->name) || ($a->age <=> $b->age) } @Pets

为避免将整个可能非常大的表读入内存，排序实际上应该在数据库中使用ORDER BY name ASC, age ASC 完成，然后使用iterator 一次检索一行。不幸的是，retrieve_all 不支持任何选项。您可以使用retrieve_from_sql 将任意 SQL 添加到基本 SELECT 的末尾。 my $all_people = Pet::Pets->retrieve_from_sql("ORDER BY name ASC, age ASC"); 这样你的数据就已经排序好了，可以一次读取一行。 while( my $person = $all_people->next ) { ... }

您在"Age". $_->age"\n" 中缺少.。

数据库中的空值返回为 undef。您需要检查 $_->pet 是否已定义，如果不使用其他字符串，如 "no pet" 或只是空白 ""。

您正在打印此人的年龄，该问题询问他们的宠物。

否则，它应该可以工作。

但是说真的，告诉给你这个作业的人不要再告诉人们使用 Class::DBI。如果他们愿意，他们可以给我发电子邮件，schwern@pobox.com。