YAML::XSとYAML::Syck

yaml.pl

#!/usr/bin/perl

use strict;
use warnings;
use YAML::XS;
use YAML::Syck;
use Data::Dumper;

my $filename = "osusume.yaml";
open(IN, $filename) or die("cannnot open file.");
read(IN, my $input , (-s $filename));
close(IN);

my @yxsdoc = @{YAML::XS::LoadFile($filename)->{"gist"}};

my @ysyckdoc = @{YAML::Syck::Load($input)->{"gist"}};
print Dumper @yxsdoc;
print Dumper @ysyckdoc;

=pod
in osusume.yaml

---
gist:
- test1
- test2
- test3

=cut