use YAML::Any;
$YAML::Indent = 3;
my $yaml = Dump(@objects);
$YAML::Indent = 4;
And YAML::Any is using YAML::XS, it will use the proper variable: $YAML::XS::Indent.
and the following subroutines are exportable by request:
#!/usr/bin/perl
use strict;
use warnings;
use YAML::Any qw(DumpFile);
my $ds =
{
array => [5,6,100],
string => "Hello",
};
DumpFile("hello.yml", $ds);
When run, this creates a file called "hello.yml" in the current working directory, with the following contents.
---
array:
- 5
- 6
- 100
string: Hello
In turn, the following "LoadFile" example, loads the contents from there and accesses them:
#!/usr/bin/perl
use strict;
use warnings;
use YAML::Any qw(LoadFile);
my ($ds) = LoadFile("hello.yml");
print "String == '", $ds->{string}, "'\n";
Assuming "hello.yml" exists, and is as created by the "DumpFile" example, it prints:
$ perl load.pl
String == 'Hello'
$
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
See <http://www.perl.com/perl/misc/Artistic.html>