Featured image of post 第6回-プレーンテキスト変換を追加してみよう - PerlとMooでドキュメント変換ツールを作ってみよう

第6回-プレーンテキスト変換を追加してみよう - PerlとMooでドキュメント変換ツールを作ってみよう

新しい出力形式「プレーンテキスト」を追加します。TextConverterを作成するだけで、既存のコードを変更せずに機能拡張できることを体験しましょう。OCP（開放閉鎖の原則）の実践です。

@nqounetです。

前回は、acceptメソッドとvisit_*メソッドを使った「Double Dispatch」の仕組みを導入しました。今回は、この設計の真価を発揮します。新しい出力形式を追加してみましょう。

このシリーズについて

このシリーズは「Mooで覚えるオブジェクト指向プログラミング」シリーズを読了した方を対象に、実践的なドキュメント変換ツールを作りながらオブジェクト指向設計を深く学ぶシリーズです。

https://www.nqou.net/2026/01/27/005724/
設計パターンを疑え

TextConverterを追加する

開放閉鎖の原則（OCP）の可視化

Markdownをプレーンテキストに変換するTextConverterを作成しましょう。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

package TextConverter;
# 言語: perl
# バージョン: 5.36以上
# 依存: Moo

use Moo;
use experimental qw(signatures);

sub visit_heading ($self, $element) {
    my $level = $element->level;
    my $prefix = "=" x (7 - $level);  # h1 = ======, h2 = =====, ...
    return "$prefix " . $element->content;
}

sub visit_paragraph ($self, $element) {
    return $element->content;
}

sub visit_code_block ($self, $element) {
    my $content = $element->content;
    $content =~ s/\n$//;  # 末尾の改行を削除
    return "---\n" . $content . "\n---";
}

1;

これだけです。

既存のコードを変更したか？

確認してみましょう。

クラス変更あり？
Elementなし
Paragraphなし
Headingなし
CodeBlockなし
Parserなし
HtmlConverterなし
TextConverter新規追加

既存のコードを一切変更せずに、新しい機能（テキスト変換）を追加できました。これがOCP（開放閉鎖の原則）です。

使ってみよう

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

#!/usr/bin/env perl
use v5.36;
use lib '.';
use Parser;
use HtmlConverter;
use TextConverter;

my $markdown = <<'MARKDOWN';
# タイトル

これは段落です。

## サブタイトル

```perl
my $x = 1;
```

最後の段落です。
MARKDOWN

my $parser = Parser->new();
my @elements = $parser->parse($markdown);

my $html_converter = HtmlConverter->new();
my $text_converter = TextConverter->new();

say "=== HTML出力 ===";
for my $elem (@elements) {
    say $elem->accept($html_converter);
}

say "\n=== テキスト出力 ===";
for my $elem (@elements) {
    say $elem->accept($text_converter);
}

実行結果:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16

=== HTML出力 ===
<h1>タイトル</h1>
<p>これは段落です。</p>
<h2>サブタイトル</h2>
<pre><code class="language-perl">my $x = 1;
</code></pre>
<p>最後の段落です。</p>

=== テキスト出力 ===
====== タイトル
これは段落です。
===== サブタイトル
---
my $x = 1;
---
最後の段落です。

同じ要素に対して、異なる変換結果が得られています。

クラス構造を確認

現在のクラス構造を図にしてみましょう。

	classDiagram
    class Element {
        +content
        +accept(visitor)*
    }
    class Paragraph {
        +accept(visitor)
    }
    class Heading {
        +level
        +accept(visitor)
    }
    class CodeBlock {
        +language
        +accept(visitor)
    }
    
    Element <|-- Paragraph : extends
    Element <|-- Heading : extends
    Element <|-- CodeBlock : extends

    class HtmlConverter {
        +visit_heading(element)
        +visit_paragraph(element)
        +visit_code_block(element)
    }
    class TextConverter {
        +visit_heading(element)
        +visit_paragraph(element)
        +visit_code_block(element)
    }
    
    Paragraph ..> HtmlConverter : accept
    Paragraph ..> TextConverter : accept
    Heading ..> HtmlConverter : accept
    Heading ..> TextConverter : accept
    CodeBlock ..> HtmlConverter : accept
    CodeBlock ..> TextConverter : accept

要素クラス（左側）と変換クラス（右側）が分離されていて、組み合わせ自由になっています。

if/elseアプローチとの比較

第3回で見たif/elseアプローチと比較してみましょう。

if/elseアプローチで出力形式を追加する場合

1
2
3
4
5
6
7
8
9

# 新しい関数を追加
sub to_text ($element) {
    my $type = $element->type;
    
    if ($type eq 'heading') { ... }
    elsif ($type eq 'paragraph') { ... }
    elsif ($type eq 'code_block') { ... }
    # すべての要素タイプに対応する分岐が必要
}

今回のアプローチで出力形式を追加する場合

1
2
3
4
5
6

# 新しいクラスを追加するだけ
package TextConverter {
    sub visit_heading { ... }
    sub visit_paragraph { ... }
    sub visit_code_block { ... }
}

今回のアプローチの方が、以下の点で優れています。

  • 既存のコードを変更しない（バグを入れるリスクがない）
  • 新機能が1つのクラスに集約されている（保守しやすい）
  • テストが書きやすい（TextConverterだけをテストできる）

今回のポイント

今回は以下のことを学びました。

  • TextConverterの追加で新しい出力形式を実現
  • 既存コードを変更せずに機能拡張（OCP）
  • 要素と変換処理の組み合わせが自由自在

今回の完成コード

以下が今回作成したコードの完成版です。

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198

#!/usr/bin/env perl
# 言語: perl
# バージョン: 5.36以上
# 依存: Moo

use v5.36;

# === Element（基底クラス） ===
package Element {
    use Moo;
    use experimental qw(signatures);

    has content => (
        is       => 'ro',
        required => 1,
    );

    sub accept ($self, $visitor) {
        die "accept must be implemented by subclass";
    }
}

# === Paragraph ===
package Paragraph {
    use Moo;
    use experimental qw(signatures);
    extends 'Element';

    sub accept ($self, $visitor) {
        return $visitor->visit_paragraph($self);
    }
}

# === Heading ===
package Heading {
    use Moo;
    use experimental qw(signatures);
    extends 'Element';

    has level => (
        is      => 'ro',
        default => 1,
    );

    sub accept ($self, $visitor) {
        return $visitor->visit_heading($self);
    }
}

# === CodeBlock ===
package CodeBlock {
    use Moo;
    use experimental qw(signatures);
    extends 'Element';

    has language => (
        is      => 'ro',
        default => '',
    );

    sub accept ($self, $visitor) {
        return $visitor->visit_code_block($self);
    }
}

# === Parser ===
package Parser {
    use Moo;
    use experimental qw(signatures);

    sub parse ($self, $text) {
        my @elements;
        my @lines = split /\n/, $text;
        
        my $in_code_block = 0;
        my $code_content = '';
        my $code_lang = '';
        
        for my $line (@lines) {
            if ($line =~ /^```(\w*)/) {
                if ($in_code_block) {
                    push @elements, CodeBlock->new(
                        content  => $code_content,
                        language => $code_lang,
                    );
                    $code_content = '';
                    $code_lang = '';
                    $in_code_block = 0;
                } else {
                    $code_lang = $1 // '';
                    $in_code_block = 1;
                }
                next;
            }
            
            if ($in_code_block) {
                $code_content .= $line . "\n";
                next;
            }
            
            next if $line =~ /^\s*$/;
            
            if ($line =~ /^(#+)\s+(.+)/) {
                my $level = length($1);
                my $content = $2;
                push @elements, Heading->new(
                    content => $content,
                    level   => $level,
                );
                next;
            }
            
            push @elements, Paragraph->new(content => $line);
        }
        
        return @elements;
    }
}

# === HtmlConverter ===
package HtmlConverter {
    use Moo;
    use experimental qw(signatures);

    sub visit_heading ($self, $element) {
        my $level = $element->level;
        return "<h$level>" . $element->content . "</h$level>";
    }

    sub visit_paragraph ($self, $element) {
        return "<p>" . $element->content . "</p>";
    }

    sub visit_code_block ($self, $element) {
        my $lang = $element->language;
        if ($lang) {
            return "<pre><code class=\"language-$lang\">" 
                   . $element->content 
                   . "</code></pre>";
        }
        return "<pre><code>" . $element->content . "</code></pre>";
    }
}

# === TextConverter ===
package TextConverter {
    use Moo;
    use experimental qw(signatures);

    sub visit_heading ($self, $element) {
        my $level = $element->level;
        my $prefix = "=" x (7 - $level);
        return "$prefix " . $element->content;
    }

    sub visit_paragraph ($self, $element) {
        return $element->content;
    }

    sub visit_code_block ($self, $element) {
        my $content = $element->content;
        $content =~ s/\n$//;
        return "---\n" . $content . "\n---";
    }
}

# === メイン処理 ===
package main {
    my $markdown = <<'MARKDOWN';
# タイトル

これは段落です。

## サブタイトル

```perl
my $x = 1;
```

最後の段落です。
MARKDOWN

    my $parser = Parser->new();
    my @elements = $parser->parse($markdown);

    my $html_converter = HtmlConverter->new();
    my $text_converter = TextConverter->new();

    say "=== HTML出力 ===";
    for my $elem (@elements) {
        say $elem->accept($html_converter);
    }

    say "\n=== テキスト出力 ===";
    for my $elem (@elements) {
        say $elem->accept($text_converter);
    }
}

次回予告

次回は、さらに別の種類の操作を追加します。変換だけでなく、「単語数カウント」や「リンク抽出」といった分析系の操作も、同じ仕組みで追加できることを確認しましょう。複数のVisitorが共存する世界を体験します。

お楽しみに！

comments powered by Disqus
© 2000 - 2026 設計パターンを疑え
Hugo で構築されています。
テーマ Stack は Jimmy によって設計されています。