Class::DBI是使简单的数据库操作几乎不用编程，同时使困难的变得有可能。对很多简单的数据库应用来说，它使我们完全不用编写SQL，另一方面它也不强迫你用很复杂的数据结构来表示一个复杂查询。如果你确实需要原始SQL的功能或表达能力，它也会适时的给你让路。
例子程序：
#!/usr/bin/perluseMy::PhoneBill::Call;my$number=shiftordie"Usage:$0<number>";my@calls=My::PhoneBill::Call->search(number=>$number);my$total_cost=0;foreachmy$call(@calls){$total_cost+=$call->cost;printf"%s%s-%dsecs,%.1fpence\n",$call->calldate,$call->calltime,$call->duration,$call->cost;}printf"Total:%dcalls,%dpence\n",scalar@calls,$total_cost;
评论