#!/usr/bin/perl

open(I,'config.yaml')||die('error: config.yaml read fail');
while($l=<I>) { my @s=split(/[\s\:]+/,$l); ${$s[0]}=$s[1];}
close(I);


perl ¿¡ YAML Ãß°¡
% cpan install YAML



#!/usr/bin/perl

use YAML qw(DumpFile LoadFile);

$yfile="list.yaml";
my $yin=LoadFile($yfile);
while (my ($k,$v)= each(%$yin)) {
        if(ref($v) eq "ARRAY"){

        }
        elsif(ref($v) eq "HASH"){
        }
        else {
            print "KK11:$k,$v\n";
        }
}


DumpFile "lout.yaml", @$yin{'V2A'};


#!/usr/bin/perl
use YAML qw(DumpFile LoadFile);
sub e { print "$_[0]\n"; print `$_[0]`;}

my $cfg=LoadFile("config.yaml");
print($cfg->{'RENAME'}."\n");
print(%$cfg->{'RENAME'}."\n");
$aa=$cfg->{'RENAME'};
print(%$aa."\n");
while(my ($k,$v) = each %$aa) {
        print "$k -> $v\n";
}