YAMLのロードとダンプ

Perl 30分プログラム

30分プログラム、その216。PerlでYamlを扱ってみる。

ずっとPythonばっかりなのもアレなので、今週はPerlの週にするつもり。で、お題として30分プログラムリストの生成プログラムを改造しようと思う。そのためにYAMLを使いたいのでその下準備。
まだ、30分たっていないけれど、きりがいいのでここまで。

インストール方法

cpan> install YAML

ソースコード

#! /usr/bin/perl
# -*- mode:perl; coding:utf-8 -*-
#
# yaml-test.pl -
#
# Copyright(C) 2008 by mzp
# Author: MIZUNO Hiroki / mzpppp at gmail dot com
# http://howdyworld.org
#
# Timestamp: 2008/01/06 20:56:19
#
# This program is free software; you can redistribute it and/or
# modify it under MIT Lincence.
#

use strict;
use warnings;

use YAML qw(Dump LoadFile);
use Data::Dumper;

# load from yaml
my $yaml = LoadFile $ARGV[0];

# append data
push @$yaml,'d'..'g';

# dump
print Dump($yaml);

参考