perl里有Java中ObjectOutputStream的相应方法吗

riverlee2008

UID: 42674
帖子: 155
积分: 356
在线时间: 1 天 9 小时

1^# riverlee2008 发表于 2008-08-08 12:36

perl里有Java中ObjectOutputStream的相应方法吗

如题
想把一个复杂的变量写入的文件，从文件读取时，直接返回的是写入时的变量，在java中可以通过ObjectOutputStream，ObjectInputStream来实现，不知道在perl中有没有相应的package，先谢了

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

2^# forlorngenius 发表于 2008-08-08 12:40

Data:umper

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

3^# forlorngenius 发表于 2008-08-08 12:41

Data::Dumper

riverlee2008

UID: 42674
帖子: 155
积分: 356
在线时间: 1 天 9 小时

4^# riverlee2008 发表于 2008-08-08 12:57

谢谢了，像是可以解决我的问题了

hdc1112

UID: 2620
帖子: 83
积分: 190
在线时间: 9 小时

5^# hdc1112 发表于 2008-08-08 13:53

Data:umper我觉得不行，你的意思如果是把一个变量保存到文件，下次再读取的话，建议你用Storable

用法如下：
use Storable;
store \%table, 'file';
$hashref = retrieve('file');

Data:umper用于打印出具体数据结构，但是没有读取功能

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

6^# forlorngenius 发表于 2008-08-08 15:54

eval

hdc1112

UID: 2620
帖子: 83
积分: 190
在线时间: 9 小时

7^# hdc1112 发表于 2008-08-08 17:06

sorry，我说错了，用Data:umper是可以存取到文件而且可以读取出来的，打个饭先，回来把书上的例子抄给你。。额。。

riverlee2008

UID: 42674
帖子: 155
积分: 356
在线时间: 1 天 9 小时

8^# riverlee2008 发表于 2008-08-08 17:19

谢谢你们盛情帮忙，用Data：：Dumper+eval 是能实现变量向文件进行存取，hdc1112 提的用Storable肯定也行，再次谢谢你们提出的方法，又多学了点东西

hdc1112

UID: 2620
帖子: 83
积分: 190
在线时间: 9 小时

9^# hdc1112 发表于 2008-08-08 17:58

呵呵，我对eval也有更深的了解了，还是把代码贴出来，供版友参阅

QUOTE:

use Data::Dumper;

my %hash = qw(
      Fred Flintstone
      Barney  Rubble
);

my @array = qw(Fred Barney Betty Wilma);

open my $fh, ">data.dump"
      or die "failed to open dump file!\n";

my $dd = Data::Dumper->new([\%hash,\@array],[qw(*hash *array)]);

print $fh $dd->Dump;

close $fh;

my $data = do {
      if( open my $fh, '<', 'data.dump' ) { local $/; <$fh> }
      else { undef }
};

undef %hash;
undef @array;
eval $data;

print Dumper(\%hash);
print Dumper(\@array);

哎，哪怕是抄个程序调通也学了些东西。。还是动手好。。