[id:cooldaemon:20060714] で書いた内容の YAML 版。 #!/usr/bin/perl use strict; use warnings; use YAML; my $file_name = $ARGV[0]; if (!$file_name) { print "Usage : yaml_checker.pl [YAML file name]?n"; exit; } eval { YAML::LoadFile( $file_nam…