use Probeset; # that is my module use Data::Dumper; my $store = Data::Dumper -> Dump ([$probeset], [qw(probeset)]); open (DUMP, "> $file); print DUMP $store; close DUMP;
$probeset = bless( { '_genechip' => 'Human Genome U133A Array', '_probeset_id' => '1007_s_at', '_affy_date' => '2004-12-07', '_chipcode' => 'HG_U133A', [ ...} '_trans_id' => '????', '_exons_num' => '????', '_organism' => 'Homo sapiens' }, 'Probeset' );
use Probeset; open (DUMP, "< $tempdump") or die "Can't open dumping file!"; my $obj=''; my $line; while ($line = <DUMP>) { $obj .= $line; } my $probeset; eval $obj;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: use Data::Dumper to implement Object persistence
by gellyfish (Monsignor) on Apr 27, 2005 at 16:15 UTC | |
by tucano (Scribe) on Apr 28, 2005 at 09:32 UTC | |
|
Re: use Data::Dumper to implement Object persistence
by salva (Canon) on Apr 27, 2005 at 16:21 UTC | |
by friedo (Prior) on Apr 27, 2005 at 21:45 UTC | |
by IOrdy (Friar) on Apr 28, 2005 at 03:33 UTC | |
by DrHyde (Prior) on Apr 28, 2005 at 10:57 UTC | |
by gellyfish (Monsignor) on Apr 28, 2005 at 14:48 UTC | |
by Tanktalus (Canon) on Apr 27, 2005 at 18:18 UTC | |
|
Re: use Data::Dumper to implement Object persistence
by merlyn (Sage) on Apr 27, 2005 at 16:04 UTC |