问:perl有没有直接序列化数组的函数么？

duketang

如题  谢谢

chshyu

sort ?

duketang

这个是排序阿~ 我说的是把数组转换成字符串

aaronvox

join可以吗?

1.   
   
2. 
   
3.      join EXPR,LIST
   
4.              Joins the separate strings of LIST into a single
   
5.              string with fields separated by the value of EXPR,
   
6.              and returns that new string.  Example:
   
7. 
   
8.                  $rec = join(':', $login,$passwd,$uid,$gid,$gcos,$home,$shell);
   
9. 
   
10.              Beware that unlike "split", "join" doesn't take a
    
11.              pattern as its first argument.  Compare "split".
    
12. 
    

复制代码

duketang

join对hash或多维不起作用吧？

liumangya

perl的变量是不区分类型的，普通的不需要转换
数组或哈希的话，可不可以用“.”啊

[ 本帖最后由 liumangya 于 2006-8-22 13:58 编辑 ]

realalley

序列化用join，反序列化用split
例如
@array={"a","b","c"};
序列化 $string=join ":" @array
反序列化 @aray=split /:/  $string
":"符号可以自己定义，但如果本身字符串有符号":",则会造成副作用

realalley

hash可以和数组可以互相转化，但如果涉及到引用，目前好像我还不知道有什么好的序列化的方法，自己手写吧

duketang

呵呵 已经自己手写了~

yzq025

use Storable;
use Storable qw(freeze thaw);


$buff = freeze(\@rows);         #对象序列化

@rows = @{thaw($buff)};     #对象反序列化

比split和join安全可靠