blogger2middleman

bunkai.pl

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

open (FH,"blog-05-10-2014_2.xml") or die $!;
while (<FH>){
    if (/^<entry>/){
        open (WR,">/tmp/out/${.}.erb") or die $!;
    }
    if (/^<entry>/../^<\/entry>/){
        print WR;
    }
    if (/^<\/entry>/){
        close WR;
    }
}
close FH;

seikei.pl

#!/usr/bin/perl
use strict;
use warnings;
use feature qw(say);
use File::Basename;

my $file = $ARGV[0];
say "sartconvert : $file";

my ($title,@tags,$content);

open (FH,$file) or die $!;
while (<FH>){
    if (/^<content/../<\/content>/){
        $content.=$_;
    }
    elsif (/^<title.+?>(.+)<\/title>/){
        $title.=$1;
    }
    elsif (/^<category scheme.+blogger.+term=\'(.+)\'/){
        push(@tags,lc $1);
    }
}
close FH;

$content=~s/^<content.+?>//;
$content=~s/<\/content>//;
$content=~s/\&lt;/</mg;
$content=~s/\&gt;/>/mg;
if ($content eq ""){
    die "content empty";
}
elsif ($title eq ""){
    die "title empty";
}
elsif (@tags+0==0){
    die "tags empty";
}
     

my $outfile=basename $file,".erb";
open (WR,">conv/$outfile.erb") or die $!;

say WR "---";
say WR "title: ".$title;
say WR "tags: ".join(", ",@tags);
say WR "---";
say WR "";
say WR $content;

close WR;