■Input(プログラム内Yaml形式を変数にロード)
・Load()
引数として指定した文字列行までを入力データとして
セパレータ(---)で区切られたYAML形式データを読み込むことができる。
スカラーデータの場合セパレータは
--- >
としないとエラーとなる
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use YAML;
binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";
my ($string, $ref_array) = Load(<<'...');
--- >
なにかしらの
文字列
で
す
---
- Jan
- Feb
- Mar
...
use Dumpvalue;
my $d = Dumpvalue->new();
$d->dumpValue($string);
$d->dumpValue($ref_array);
実行結果。
'なにかしらの 文字列 で す
'
0 'Jan'
1 'Feb'
2 'Mar'
■Input(プログラム外Yaml形式を変数にロード)
・LoadFile()
config.yml
- aaa
-
- b1
- b2
-
- b3.1
- b3.2
- ccc
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use YAML;
binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";
my $data = YAML::LoadFile('config.yml');
use Dumpvalue;
my $d = Dumpvalue->new();
$d->dumpValue($data);
■Output(標準出力に出力)
・Dump()
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use YAML;
binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";
my $data = [[1, 2, 3], [4, 5, 6], [7, 8, 9]];
print YAML::Dump($data);
---
-
- 1
- 2
- 3
-
- 4
- 5
- 6
-
- 7
- 8
- 9
■Output(ファイルに出力)
・DumpFile()
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use YAML;
binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";
my $data = [[1, 2, 3], [4, 5, 6], [7, 8, 9]];
YAML::DumpFile('output.yml', $data);
