Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

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]
[Corion]: choroba++ # fixed width
marto has a Dirty_Mind on vinyl
[Corion]: Heh. The upside of this phone call was at least commendations from my cow-orkers on how clam I stayed and how I always brought the topic back to my priorities and the established processes of $work (them only getting half of the conversation).

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (14)
As of 2017-08-17 13:06 GMT
Find Nodes?
    Voting Booth?
    Who is your favorite scientist and why?

    Results (287 votes). Check out past polls.