dushoff.github.io/post.pl at master · dushoff/dushoff.github.io · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
use strict;
use 5.10.0;

my $fn = $ARGV[0];

my ($bn, $ext) = $fn =~ m|(.*)[.](.*)|;

my %att;
$att{date} = `date +"%Y-%m-%d"`;
chomp $att{date};

$att{slug} = $bn;

while(<>){
	last if /^---/;
}

while(<>){
	last if /^---/;
	chomp;
	if (my($tag, $text) = /(.*):\s*(.*)/){
		$att{$tag}=$text;
	}
}

$att{slug} =~ s/ /-/g;

say "cp $fn _posts/$att{date}-$att{slug}.$ext";