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