YAML

とりあえず、YAML::Tiny(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 に出力しています。

広告を非表示にする