うまい棒の断片

■ [perl]YAML::Syckでyamlの読み込み/書き出しmemo 01:32

LoadFileで返されるものがblessedな(この場合はhashの)referenceだということさえ解ればなんとかなるな。今は直接要素名指定してるけど、ホントはアクセサみたいなの作ったほうがいいのかな？

• before.yaml

---
age: 26
item:
  - wii
  - macbook
name: hogem
status:
  today: good
  yesterday: bad

• yaml.pl

use YAML::Syck;
use Perl6::Say;

my $y = LoadFile('./before.yaml');
say $y->{name};
say $y->{age};
say $y->{status}->{today};
say $y->{status}->{yesterday};

for my $item ( @{$y->{item}} ) {
  say $item;
}

pop @{$y->{item}};

DumpFile('./after.yaml', $y);

$ perl yaml.pl
hogem
26
good
bad
wii
macbook

• after.yaml

---
age: 26
item:
  - wii
name: hogem
status:
  today: good
  yesterday: bad