過去に合わせ、/2010/acme/2010-12-01 でなく /2010/acme/1 とルーティングするようにする

	use strict;
	use warnings;

	use Path::Tiny;

	my $iter = path('content')->iterator({recurse => 1});
	while (my $src = $iter->()) {
	    next unless $src->is_file;

	    if ($src->basename =~ m!(?<date>\d\d\d\d-\d\d-(?<day>\d\d))\.txt!) {
		my $date = $+{date};
		my $day  = $+{day};

		my $name = $day =~ m!0(\d)! ? $1 : $day;

		my ($raw_meta, $body) = split("\n\n", $src->slurp_utf8, 2);

		$raw_meta .= "\nmeta-date: $date";
		$src->spew_utf8($raw_meta . "\n\n" . $body);

		my $target = $src->parent->child("$name.txt");
		$src->move($target);
	    }
	}

Author: kfly8

content/articles/advent-calendar/2010/acme/2010-12-01.txt renamed to content/articles/advent-calendar/2010/acme/1.txt

@@ -1,4 +1,5 @@
 Hello Acme World!
+meta-date: 2010-12-01
 
 (firstly written in Japanese, later in English)
 

content/articles/advent-calendar/2010/acme/2010-12-10.txt renamed to content/articles/advent-calendar/2010/acme/10.txt

@@ -1,6 +1,7 @@
 Acme::Yomeru
 meta-author: bayashi <[email protected]>
 meta-tags: perl, acme, joke
+meta-date: 2010-12-10
 
 こんちには 、 みさなん 、<a href="http://twitter.com/#!/bayashi">bayashi</a> です。
 さくむて かなぜど ひいて いですないか 。

content/articles/advent-calendar/2010/acme/2010-12-11.txt renamed to content/articles/advent-calendar/2010/acme/11.txt

@@ -1,6 +1,7 @@
 CPAN愛のモジュール - Acmeから始まらない物語
 meta-author: makamaka
 meta-tags: perl, acme
+meta-date: 2010-12-11
 
 (firstly written in Japanese, later in English)
 

content/articles/advent-calendar/2010/acme/2010-12-12.txt renamed to content/articles/advent-calendar/2010/acme/12.txt

@@ -1,6 +1,7 @@
 Acme::Ikamusumeで侵略しなイカ？
 meta-author: tomi-ru
 meta-tags: perl, acme, ikamusume
+meta-date: 2010-12-12
 
 人間どもよ！
 

content/articles/advent-calendar/2010/acme/2010-12-13.txt renamed to content/articles/advent-calendar/2010/acme/13.txt

@@ -1,6 +1,7 @@
 Acme::W
 meta-author: dameninngenn
 meta-tags: perl, acme
+meta-date: 2010-12-13
 
 こんにちは、冬なのに脇からの発汗が凄まじい<a href="http://twitter.com/dameninngenn">dameninngenn</a>です。
 脇周りが白くなってるインナーを確認してはニッコリする毎日です。

content/articles/advent-calendar/2010/acme/2010-12-14.txt renamed to content/articles/advent-calendar/2010/acme/14.txt

@@ -1,6 +1,7 @@
 Acme::Seclusion::JP
 meta-author: hide_o_55
 meta-tags: perl, acme
+meta-date: 2010-12-14
 
 こんにちは。Acme Track 2回目の[http://d.hatena.ne.jp/hide_o_55/:title=hide_o_55]です。
 

content/articles/advent-calendar/2010/acme/2010-12-15.txt renamed to content/articles/advent-calendar/2010/acme/15.txt

@@ -1,6 +1,7 @@
 時にはお伽の話を - Acme::Rumpelstiltskin
 meta-author: makamaka
 meta-tags: perl, acme
+meta-date: 2010-12-15
 
 (firstly written in Japanese, later in English)
 

content/articles/advent-calendar/2010/acme/2010-12-16.txt renamed to content/articles/advent-calendar/2010/acme/16.txt

@@ -1,6 +1,7 @@
 Acme合体で猫-トースト装置をつくる
 meta-author: makamaka
 meta-tags: perl, acme
+meta-date: 2010-12-16
 
 (firstly written in Japanese, later in English)
 

content/articles/advent-calendar/2010/acme/2010-12-17.txt renamed to content/articles/advent-calendar/2010/acme/17.txt

@@ -1,6 +1,7 @@
 Acme::BrainfucktoryでBrainf*ckをもっと簡単に
 meta-author: makamaka
 meta-tags: perl, acme
+meta-date: 2010-12-17
 
 (firstly written in Japanese, later in English)
 

content/articles/advent-calendar/2010/acme/2010-12-18.txt renamed to content/articles/advent-calendar/2010/acme/18.txt

@@ -1,4 +1,5 @@
 Acme::CPANAuthors::British
+meta-date: 2010-12-18
 
 こんにちは<a href="http://e8y.net/blog/">トミール</a>です。