YAML
ファイルから情報を読み取っています
groceries.yaml
# comment
fruit:
apples: 1
oranges: 1
grapes: 1
vegetables:
potatoes: 1
onions: 1
leeks: 1
perl
スクリプトに
myscript.pl
#!/usr/bin/perl
use strict;
use warnings;
use YAML::Tiny;
# Create a YAML file
my $stuff = YAML::Tiny->new;
# Open the config
$stuff = YAML::Tiny->read( 'groceries.yaml' );
print "Fruit: ", %{($stuff->[0]->{fruit})},"\n";
print "Vegetables: ", %{($stuff->[0]->{vegetables})},"\n";
exit
これは問題なく動作しますが、1 つのハッシュfruit
と 1 つのハッシュが必要ですvegetables
。私の素朴な試みは
my @keys = keys %{($stuff->[0])};
foreach my $key (@keys){
my %{ $key } = %{($stuff->[0]->{$key})},"\n";
}
しかし、明らかにこれは機能しません。
自分が間違っていることを理解したいと思っています。また、同じアイデアを実現するさまざまなワークフローを受け入れたいと思っています。:)