Невозможно прочитать полный файл yaml из скрипта perl

Question

Как я могу прочитать приведенный ниже файл yaml из скрипта perl?

test.yaml

--- 
a: first 
b: second 
c: third 
--- 
a: fourth 
b: fifth 
c: seventh 

Я попытался ниже сценарий, но не повезло

use YAML; 
use Data::Dumper; 

open (YFILE, "<test.yaml") or die $!; 
my $yaml = join('', <YFILE>); 
close(YFILE) 

my $hash = YAML::Load($yaml); 

print Dumper($hash); 

Просьба предложить.

Answer 1

Прежде всего, вы должны включить use strict и use warnings.

На вашем close(YFILE) также отсутствует полутол.

Когда я добавить точку с запятой в сценарий, я получаю этот выход:

$VAR1 = { 
     'c' => 'seventh', 
     'a' => 'fourth', 
     'b' => 'fifth' 
}; 

Благодаря @choroba, вы можете по-видимому, сделать это:

use YAML; 
use Data::Dumper; 

open (YFILE, "<test.yaml") or die $!; 
my $yaml = join('', <YFILE>); 
close(YFILE); 

my (@objs) = YAML::Load($yaml); 

print Dumper(@objs); 

Который возвращает:

$VAR1 = { 
     'c' => 'third', 
     'a' => 'first', 
     'b' => 'second' 
}; 

$VAR2 = { 
     'c' => 'seventh', 
     'a' => 'fourth', 
     'b' => 'fifth' 
};