请问如何用perl 统计postgres数据库的数据，我急，请帮忙。。

fa8898

我有这样一个计费的表：billing

# select * from billing ;
  id  |     phoneid     |         uri          | opcode | year | month | day |        rectime         
------+-----------------+----------------------+--------+------+-------+-----+------------------------
    1 | 460030931015357 | /feemonthly.jsp      |      1   | 2003 |    11 |   5 | 2003-11-05 09:34:44+08
    2 | 460030900008049 | /feemonthly.jsp      |      1   | 2003 |    11 |   5 | 2003-11-05 09:51:54+08
    3 | 460030926410186 | /feedaily.jsp        |      101 | 2003 |    11 |   5 | 2003-11-05 10:12:48+08

计费策略：
     包月服务：订购： 订购一次交一个月的费用（3元）
               退定   如果用户在该月退定服务，用户还可以使用到月底。
                      如果用户不退定的话，则以后每月都会收取费用。直到用户退定所在月份的月底结束收费。
说明：表中的opcode字段值为[1]，说明用户订购了，值为[101]，说明用户退定了。phoneid可以唯一确定一台手机。

请问我如何用perl统计出每月的费用及新增的用户数。非常感谢！如有疑问，请提出。

apile

为什麽你不用database的方式解决..先用SQL将当月的所有phoneid
找出来..查一下就知道了..
然後SQL改成select * from xxx where phonid =?
动态填入phoneid....
再分析一下所以查出来的data..其实很快..

用perl的话..要产生一个向下面一样的hash
@{ $hash{phoneid} }
看得懂吗ˋ
这样子..会产生一个很大的hash...每个hash的element存的是array..
每个array的element是ref to array of each row...
这样子就可以开始分析了...
有点复杂..基本上比较建议用database的解决方式..