Re: Dynamically create objects from YAML

YAML::XS from CPAN (http://search.cpan.org/dist/YAML-LibYAML/lib/YAML/XS.pm). For example:

#!/usr/bin/perl -w
use strict;

package example;    # object definition

sub new {
    my $self = {};
    $self->{'data'} = pop;
    return bless($self);
}

sub getData {
    my $self = shift;
    return $self->{'data'}
}

package Main;

use YAML::XS;

my $eg = new example("Hello world!\n");
my $save = Dump $eg;    # object instance to yaml markup

# save yaml markup to file
open (EG, '>yaml.test') || die;
print EG $save;
close(EG);

$save = $eg = undef;    # clear variables

# now load yaml markup from file
open (EG, '<yaml.test') || die;
$save .= $_ while (<EG>);
close(EG);

# yaml markup back into object
$eg = Load $save;
print $eg->getData();   # proof!
[download]

Dump and Load are the YAML::XS commands.

Comment on Re: Dynamically create objects from YAML Download Code

Replies are listed 'Best First'.
Re^2: Dynamically create objects from YAML by zwon (Abbot) on Oct 18, 2010 at 00:43 UTC
Or slightly shorter: `use strict; use warnings; package Example; sub new { my $self = {}; $self->{'data'} = pop; return bless($self); } package main; use YAML qw(DumpFile LoadFile); # it will use YAML::XS if it installed use Data::Dumper; my $eg = Example->new("Hello world!"); my $save = DumpFile('test.yml', $eg); my $rest = LoadFile('test.yml'); warn Dumper $rest;` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Dynamically create objects from YAML
by zwon (Abbot) on Oct 18, 2010 at 00:43 UTC

Or slightly shorter:

use strict;
use warnings;

package Example;

sub new {
    my $self = {};
    $self->{'data'} = pop;
    return bless($self);
}

package main;

use YAML qw(DumpFile LoadFile); # it will use YAML::XS if it installed
use Data::Dumper;

my $eg = Example->new("Hello world!");
my $save = DumpFile('test.yml', $eg);

my $rest = LoadFile('test.yml');

warn Dumper $rest;
[download]

[reply]
[d/l]