- 论坛徽章:
- 0
|
Thanks, ulmer !
我的意思是想写一个通用的函数,不仅仅是读取数据,还有新增或修改都以统一的方式来进行,而不仅仅是输出。因为添加记录时,当前没有记录,只有一条记录或多条记录的情况都不一样,同样,删除时也不尽相同。
经过这样转换后,不管是读取/添加/新增,处理方式都一样,简化了操作。比如
打印: print $config->{"book"}->{"perl"}{"cn"} ;
增加: $config->{"book"}->{"newbook"}{"cn"} = "This is a New book"
$config->{"book"}->{"newbook"}{"date"} = "2006-09"
删除: delete($config->{"book"}->{"newbook"});
这样操作完成后,再用 XMLOut 即可保存新的数据,如下:
- open FILE,">$xmlfile" || die "ERR: Cannot write xml file ! \n";
- print FILE XMLout($config, noattr => 1, rootName => "books",
- xmldecl => '<?xml version="1.0" encoding="utf-8"?>');
- close (FILE);
复制代码 |
|