将LibreOffice文档转换为豆瓣日记

#!/usr/bin/perl

use warnings;
use strict;

our @level_counters = (0, 0, 0, 0);

our @unordered_list_symbols = qw/ • ? ? ? /;
our @level0_symbols = qw/ 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. /;
our @level1_symbols = qw/ a) b) c) d) e) f) g) h) i) j) /;
our @level2_symbols = qw/ ① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩ /;
our @level3_symbols = qw/ i. ii. iii. iv. v. vi. vii. viii. ix. x. /;

# Symmetric typeface markers
our $bold_marker = "‘‘‘";
our $italic_marker = "‘‘";
our $bold_italic_marker = "‘‘‘‘‘";

sub ProcessListBr {
    my $current_list_level = $_[0];
    my $first_line_spacings = "   " x $current_list_level;
    s/<br\/>/\n$first_line_spacings/g;
}

sub ProcessLists {
    if (s/^\* +/$unordered_list_symbols[0] /) {
    ProcessListBr(1);
    return;
    }
    
    if (s/^\*\* +/    $unordered_list_symbols[1] /) {
    ProcessListBr(2);
    return;
    }

    if (s/^\*\*\* +/      $unordered_list_symbols[2] /) {
    ProcessListBr(3);
    return;
    }

    if (s/^\*\*\*\* +/        $unordered_list_symbols[3] /) {
    ProcessListBr(4);
    return;
    }

    my $clear_level_numbering_index = 0;

    if (s/^# +/$level0_symbols[$level_counters[0]] /) {
    $clear_level_numbering_index = 1;
    $level_counters[0]++;
    ProcessListBr(1);
    }

    if (s/^## +/   $level1_symbols[$level_counters[1]] /) {
    $clear_level_numbering_index = 2;
    $level_counters[1]++;
    ProcessListBr(2);
    }

    if (s/^### +/      $level2_symbols[$level_counters[2]] /) {
    $clear_level_numbering_index = 3;
    $level_counters[2]++;
    ProcessListBr(3);
    }

    if (s/^#### +/        $level3_symbols[$level_counters[3]] /) {
    $clear_level_numbering_index = 4;
    $level_counters[3]++;
    ProcessListBr(4);
    }

    if ($clear_level_numbering_index != 0) {
    for (my $i = $clear_level_numbering_index; $i <= $#level_counters; $i++) {
        $level_counters[$i] = 0;
    }

    return;
    }
    
    @level_counters = (0, 0, 0, 0);
}

sub ProcessURL {
    s/\[(http[^\s]+)\s+([^\s]+)\]/<a href=\"$1\">$2<\/a>/g;
}

sub RemoveFormat {
    s/$bold_italic_marker(.+?)$bold_italic_marker/$1/g;
    s/$bold_marker(.+?)$bold_marker/$1/g;
    s/$italic_marker(.+?)$italic_marker/$1/g;
    s/<u>(.+?)<\/u>/$1/g;
}

my $wiki_file = shift;

if (defined($wiki_file)) {
    open INPUT, "<$wiki_file" or die "Cannot open the file $wiki_file!\n";

    while(<INPUT>) {
    ProcessLists;
    ProcessURL;
    RemoveFormat;
    print;
    }
    
    close INPUT;
}
else {
    print "Please specify the input file!\n";
}