Parse a directory of tumblr backup html posts and output as JSON

tumblrparse.pl

#!/usr/bin/perl
#
# tumblrparse.pl
# Parse a directory of tumblr backup html posts and output as JSON.
# Ignoring title and media.
#
use warnings;
use strict;
use JSON::PP;

if (@ARGV != 1) {
    die "Usage: $0 <path>\n";
}

my $path = $ARGV[0];

opendir(my $DIR, $path) or die "Can't open $path: $!";
my @files = sort readdir($DIR);

my @posts;
while (my $file = shift @files) {
    next if $file =~ /^\./;

    open(my $fh, "<", "$path/$file") or die "Can't open $file: $!";
    my $content = do { local $/; <$fh> };
    close($fh);

    #my $title = $1 if $content =~ m{<h1>(.*?)</h1>}s;
    my $post = $1 if $content =~ m{<p>(.*)</p>}s;
    my $time = $1 if $content =~ m{<span id="timestamp"> (.*) </span>}s;

    #print "Post: $post. Time: $time\n";
    my %hash = (
      $file => {
        "time" => $time,
        "post" => $post
      }
    );
    push @posts, JSON::PP->new->encode(\%hash);
}
print "[" . join(",\n", @posts) . "]\n";
closedir($DIR);