#| 使用 Perl 6 自动创建 Jekyll 文章模版
sub MAIN(:$f) {
my $file = Date.today ~ '-' ~ $f.subst(/\s+/, '-', :g) ~ '.md';
chdir "/Users/ohmycloud/blogs/youngforperl6" or die;
shell("git fetch origin master");
chdir "/Users/ohmycloud/blogs/youngforperl6/_posts" or die;
my $fh = "$file".IO.open(:mode<wo>, :create);
$fh.say: qq:to/EOF/;
---
layout: post
title: $f
categories: [Perl 6]
tags: [Perl6]
---
EOF
shell("Atom $file");
}
使用:
perl6 test.pl6 -f='使用 Perl 6 创建 Jekyll 文章模版'
网友评论