YAML
config.yaml
Kagawa: Udon: 200 Takamatsu: 200 University: Kagawa: 100 Tiba: 300
yaml-parse.pl
#!/usr/bin/env perl use strict; use YAML::Tiny; use Data::Dumper; my $readfile = "config.yaml"; my $writefile = "output.yaml"; my $yaml = YAML::Tiny->read($readfile); $yaml->[0]->{Kagawa}->{Udon} = 1000; $yaml->write($writefile); 1;
YAML形式のファイルを読み込んで、
{Kagawa}->{Udon}の値を 1000 に書き変えて、
$writefile に出力しています。