hatenablog2hugo to my hugo

rename.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

use Path::Class qw{dir};

my $root = dir(".");

for my $year ($root->children) {
    next if ! $year->is_dir;
    next if $year->basename =~ /\d{8}/;

    for my $month ($year->children) {
        for my $day ($month->children) {
            my $dirname = $year->basename . $month->basename . $day->basename;
            # mkdir $dirname;

            for my $article ($day->children) {
                my $org = $article->absolute;
                my $dst = $root->subdir($dirname)->file($article->basename)->absolute;
                warn $org . " -> " . $dst;
                # rename $org, $dst;
            }

            $day->remove;
        }

        $month->remove;
    }

    $year->remove;
}

for my $year ($root->children) {
    next if ! $year->is_dir;

    my $org = $year->absolute;
    my $dst = $org;
    $dst =~ s/(....)(..)(..)$/$1-$2-$3/;

    warn $org . " -> " . $dst;
    rename $org, $dst;
}