perl解析复杂数据结构时引用带来的困惑

撒哈拉里的鱼

最近在使用perl解析稍微复杂点格式的数据时遇到困惑。因为复杂数据是依靠引用连接起来的，但是每次都要解引用，明确告诉perl这里其实是一个hashtab，这个引用是一个数组，然后操作其元素。每次都foreach my $sss ( @{$data} )这样挺纠结的，有时候还得拷贝一份hashtab或者数组的副本，这样要修改原始数据的时候又麻烦了。是有我不知道的解决办法，还是语言特性如此？（我use warnings和use strict）

比如说如下这份来自json的数据，要修改pktRecv中的某些值。

撒哈拉里的鱼

$VAR1 = {
          'JSChart' => {
                         'datasets' => [
                                         {
                                           'data' => [
                                                       {
                                                         'pktRecv' => '2902607',
                                                         'time' => '1344614400',
                                                         'byteRecv' => '1542688768'
                                                       },
                                                       {
                                                         'pktRecv' => '5296108',
                                                         'time' => '1344614700',
                                                         'byteRecv' => '2814056448'
                                                       },
                                                       {
                                                         'pktRecv' => '2269288',
                                                         'time' => '1344615000',
                                                         'byteRecv' => '1205422080'
                                                       },
                                                       {
                                                         'pktRecv' => '858125',
                                                         'time' => '1344629400',
                                                         'byteRecv' => '456594432'
                                                       },
                                                       {
                                                         'pktRecv' => '883033',
                                                         'time' => '1344629700',
                                                         'byteRecv' => '469655552'
                                                       },
                                                       {
                                                         'pktRecv' => '880745',
                                                         'time' => '1344630000',
                                                         'byteRecv' => '468205568'
                                                       },
                                                       {
                                                         'pktRecv' => '1075241',
                                                         'time' => '1344630300',
                                                         'byteRecv' => '571540480'
                                                       },
                                                       {
                                                         'pktRecv' => '1244995',
                                                         'time' => '1344630600',
                                                         'byteRecv' => '661620736'
                                                       },
                                                       {
                                                         'pktRecv' => '1221087',
                                                         'time' => '1344630900',
                                                         'byteRecv' => '648822784'
                                                       },
                                                       {
                                                         'pktRecv' => '1149240',
                                                         'time' => '1344631200',
                                                         'byteRecv' => '610515968'
                                                       },
                                                       {
                                                         'pktRecv' => '1068030',
                                                         'time' => '1344631500',
                                                         'byteRecv' => '567103488'
                                                       },
                                                       {
                                                         'pktRecv' => '885617',
                                                         'time' => '1344631800',
                                                         'byteRecv' => '469921792'
                                                       },
                                                       {
                                                         'pktRecv' => '1222722',
                                                         'time' => '1344632100',
                                                         'byteRecv' => '649026560'
                                                       },
                                                       {
                                                         'pktRecv' => '1400129',
                                                         'time' => '1344632400',
                                                         'byteRecv' => '743264256'
                                                       },
                                                       {
                                                         'pktRecv' => '1387575',
                                                         'time' => '1344632700',
                                                         'byteRecv' => '736407552'
                                                       },
                                                       {
                                                         'pktRecv' => '1365123',
                                                         'time' => '1344633000',
                                                         'byteRecv' => '724296704'
                                                       },
                                                       {
                                                         'pktRecv' => '1340514',
                                                         'time' => '1344633300',
                                                         'byteRecv' => '710953984'
                                                       },
                                                       {
                                                         'pktRecv' => '1575669',
                                                         'time' => '1344633600',
                                                         'byteRecv' => '835874816'
                                                       },
                                                       {
                                                         'pktRecv' => '1600285',
                                                         'time' => '1344633900',
                                                         'byteRecv' => '848697344'
                                                       },
                                                       {
                                                         'pktRecv' => '1791717',
                                                         'time' => '1344634200',
                                                         'byteRecv' => '950289408'
                                                       },
                                                       {
                                                         'pktRecv' => '1818375',
                                                         'time' => '1344634500',
                                                         'byteRecv' => '964213760'
                                                       },
                                                       {
                                                         'pktRecv' => '1902925',
                                                         'time' => '1344634800',
                                                         'byteRecv' => '1008971776'
                                                       },
                                                       {
                                                         'pktRecv' => '1901335',
                                                         'time' => '1344635100',
                                                         'byteRecv' => '1007890432'
                                                       },
                                                       {
                                                         'pktRecv' => '1880593',
                                                         'time' => '1344635400',
                                                         'byteRecv' => '996676608'
                                                       },
                                                       {
                                                         'pktRecv' => '2142081',
                                                         'time' => '1344635700',
                                                         'byteRecv' => '1135567872'
                                                       },
                                                       {
                                                         'pktRecv' => '2166007',
                                                         'time' => '1344636000',
                                                         'byteRecv' => '1148085248'
                                                       },
                                                       {
                                                         'pktRecv' => '2144592',
                                                         'time' => '1344636300',
                                                         'byteRecv' => '1136451584'
                                                       },
                                                       {
                                                         'pktRecv' => '2037094',
                                                         'time' => '1344636600',
                                                         'byteRecv' => '1079072768'
                                                       },
                                                       {
                                                         'pktRecv' => '1983139',
                                                         'time' => '1344636900',
                                                         'byteRecv' => '1050245120'
                                                       },
                                                       {
                                                         'pktRecv' => '1977387',
                                                         'time' => '1344637200',
                                                         'byteRecv' => '1046992896'
                                                       },
                                                       {
                                                         'pktRecv' => '2139754',
                                                         'time' => '1344637500',
                                                         'byteRecv' => '1133149184'
                                                       },
                                                       {
                                                         'pktRecv' => '2304585',
                                                         'time' => '1344637800',
                                                         'byteRecv' => '1220594688'
                                                       },
                                                       {
                                                         'pktRecv' => '2432887',
                                                         'time' => '1344638100',
                                                         'byteRecv' => '1288675328'
                                                       },
                                                       {
                                                         'pktRecv' => '2543064',
                                                         'time' => '1344638400',
                                                         'byteRecv' => '1347056640'
                                                       },
                                                       {
                                                         'pktRecv' => '2595793',
                                                         'time' => '1344638700',
                                                         'byteRecv' => '1374845952'
                                                       },
                                                       {
                                                         'pktRecv' => '2876857',
                                                         'time' => '1344639000',
                                                         'byteRecv' => '1524556800'
                                                       },
                                                       {
                                                         'pktRecv' => '2842259',
                                                         'time' => '1344639300',
                                                         'byteRecv' => '1505725440'
                                                       },
                                                       {
                                                         'pktRecv' => '2734701',
                                                         'time' => '1344639600',
                                                         'byteRecv' => '1448142848'
                                                       },
                                                       {
                                                         'pktRecv' => '2774369',
                                                         'time' => '1344639900',
                                                         'byteRecv' => '1468944384'
                                                       },
                                                       {
                                                         'pktRecv' => '3117504',
                                                         'time' => '1344640200',
                                                         'byteRecv' => '1651357696'
                                                       },
                                                       {
                                                         'pktRecv' => '3155205',
                                                         'time' => '1344640500',
                                                         'byteRecv' => '1671042048'
                                                       },
                                                       {
                                                         'pktRecv' => '2940077',
                                                         'time' => '1344640800',
                                                         'byteRecv' => '1556251648'
                                                       },
                                                       {
                                                         'pktRecv' => '3224650',
                                                         'time' => '1344641100',
                                                         'byteRecv' => '1707480064'
                                                       },
                                                       {
                                                         'pktRecv' => '3201723',
                                                         'time' => '1344641400',
                                                         'byteRecv' => '1694983168'
                                                       },
                                                       {
                                                         'pktRecv' => '3355557',
                                                         'time' => '1344641700',
                                                         'byteRecv' => '1776473088'
                                                       },

flw

所以新版 Perl 已经在许多地方支持自动解引用了。参见：
http://search.cpan.org/~rjbs/per ... s_accept_references

cdtits

这个很强大

撒哈拉里的鱼

回复 3# flw


    多谢，看起来能解决一些问题，我试试看。

sjdy521

自己写个foreach函数，实现自动解引用吧

zhlong8

你理想中是什么样子，像SQL 那样声明式的？应该有模块或者你可以自己写一个啊

撒哈拉里的鱼

这个应该由语言自己来实现。

sjdy521

回复 8# 撒哈拉里的鱼


    语言又怎么知道你何时需要解引用，何时不需要解引用呢，一个人的需求不能代表所有人的。

zhlong8

撒哈拉里的鱼 发表于 2012-08-22 14:37
这个应该由语言自己来实现。

for my $item (@{$VAR1->{JSChart}->{datasets}->{data}}) {
        $item->{pktRecv} = "something";
}

这样不可以吗？要想再抽象就要往 DSL 方向发展了吧