YAML::Syckのサンプル

use YAML::Syck;

my $data = YAML::Syck::LoadFile("sample.yaml");
print $data->{A};

• • sample.yaml

A: aaa
B: bbb
C: ccc