Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

Object Serialization Basics

by chromatic (Archbishop)
on Apr 19, 2000 at 23:48 UTC ( #8070=perltutorial: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    my $data = "this is a string of text";
    my @dataset = qw( this is an array of text );
    my %datagroup = ( hash => "mine", text => "yours" );
  2. or download this
    use Storable;
    my $stored = freeze [ \$data, \@dataset, \%datagroup ];
    my ($newdata, $newdataset_ref, $newdatagroup_ref) = @$thawed;    # cop
    +ies of original variables
    (*data, *dataset, *datagroup) = @$thawed;    # restore into the origin
    +al variables
  3. or download this
    use FreezeThaw;
    my $stored = freeze (\$data, \@dataset, \%datagroup);
    my ($newdata, $newdataset_ref, $newdatagroup_ref) = @thawed;
    (*data, *dataset, *datagroup) = @thawed;
  4. or download this
    my $stored = Data::Dumper->Dump( [ $data, \@dataset, \%datagroup ],
                                     [ qw(data *dataset   *datagroup )] );
    print $stored;
    eval $stored;
  5. or download this
    $hi = bless( {
            'Data' => {},
            'Container' => 'Container',
            'main' => sub { "DUMMY" },
            'say_hi' => sub { "DUMMY" }
        }, 'Hello::Hi' );

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perltutorial [id://8070]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (9)
As of 2016-02-10 09:15 GMT
Find Nodes?
    Voting Booth?

    How many photographs, souvenirs, artworks, trophies or other decorative objects are displayed in your home?

    Results (340 votes), past polls