从wordpress博客迁移到github记录

    #!/usr/bin/perl
    use warnings;
    use strict;
    use DBI;
    use DBD::mysql;
    
    open my $fh, '>', 'comments.xml' or die $!;
    print $fh '<?xml version="1.0" encoding="utf-8"?>'; 
    print $fh '<uyan xmlns="http://uyan.cc" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">';
    
    my $dbh = DBI->connect("DBI:mysql:database=blog;host=localhost;port=3306", "user", "passwd", {RaiseError => 1});
    $dbh->do('set names utf8');
    my $sth = $dbh->prepare('select p.post_title title, c.comment_author author, c.comment_author_url url, c.comment_date date, c
    .comment_content content from wp_comments c, wp_posts p where c.comment_approved='1' and c.comment_post_ID = p.ID');
    $sth->execute();
    while (my $ref = $sth->fetchrow_hashref()) {
        print $fh '<post><content>'.$ref->{'content'}.'</content>';
        print $fh '<page_title>'.$ref->{'title'}.'</page_title>';
        print $fh '<user_id>0</user_id>';
        print $fh '<comment_author>'.$ref->{'author'}.'</comment_author>';
        print $fh '<time>'.$ref->{'date'}.'</time>';
        print $fh '<from_type>wordpress</from_type>';
        print $fh '<page>'.$ref->{'url'}.'<page>';
        print $fh '<page_url>'.$ref->{'url'}.'</page_url>';
        print $fh '<domain>youdomain.com</domain></post>';
    };
    print $fh '</uyan>';

    #!env perl
    use warnings;
    use strict;
    use DBI;
    use DBD::mysql;
    
    my $dbh = DBI->connect("DBI:mysql:database=blog;host=localhost;port=3306", "user", "passwd", {RaiseError => 1});
    $dbh->do('set names utf8');
    my $sth = $dbh->prepare("select post_title, post_name, post_date, post_content FROM wp_posts WHERE post_status = 'publish' AND post_type = 'post' order by id desc ");
    $sth->execute();
    while (my $ref = $sth->fetchrow_hashref()) {
        my $slug = $ref->{'post_name'};
        next unless $slug =~ m/^\w/;
        my $title = $ref->{'post_title'};
        my $date = substr($ref->{'post_date'}, 0, 10);
        my $content = $ref->{'post_content'};
        my $filename = $date . '-' . $slug . '.textile';
        my $header = "---\nlayout: post\ntitle: " . $title . "\ndate: " . $date . "\n---\n\n";
        open my $fh, '>', "$filename" or die $!;
        print $fh $header;
        print $fh "$content\n";
        $fh->close;
    }
    $sth->finish();
    $dbh->disconnect();