YAML::Tiny でエラーになる yaml ファイルをリストアップする[プログラミング]
(2014-05-09 16:22:50) by 太鉄


以下のコードを書いて実行。

use Data::Dumper;
use File::Find;
use YAML::Tiny;

find(\&process, $dir);

sub process {
    my $yaml = $File::Find::name;
    return unless $yaml =~ m/.*\.yaml$/;
    eval {
        my $tiny = YAML::Tiny->new;
        my $data = $tiny->read($yaml);
    };
    if ($@) {
        print "$yaml\n";
        print "$@\n";
    }
}

Tags: perl


コメント投稿
次の記事へ >
< 前の記事へ
TOPへ戻る

Powered by
MT4i 3.1