Text::FrontMatter::YAML

#!/usr/bin/perl
 
use File::Slurp;
use Text::FrontMatter::YAML;
 
# READING
my $text_with_frontmatter = read_file("item.md");
my $tfm = Text::FrontMatter::YAML->new(
    document_string => $text_with_frontmatter
    );
 
my $metadata = $tfm->frontmatter_hashref;
 
print qq(This is $metadata->{title}\n);
print qq(This is $metadata->{date}\n);
print qq(This is $metadata->{taxonomy}->{category}\n);
print qq(This is $metadata->{taxonomy}->{tag}\n);

---
title: London Industry at Night
date: 13:34 06/07/2014 
taxonomy:
    category: blog
    tag: [city, night, photography]
---

正規表現

• $yf =~/^-{3}${1}(.*?)-{3}${1}/#Triple-dashedを含まない
• $yf =~/^(-{3}${1}.*?-{3})${1}/#Triple-dashedを含む