僕のYak Shavingは終わらない

車輪の再発明をやめたらそこには壮大なYakの群れが

Tategaki力をちょっとだけ上げたAcme::Tategaki

こんな感じで地道にがんばってます。

sub _convert_vertical {
    my @text = @_;
    @text = map { [ split //, $_ ] } @text;
    @text = transpose_ragged( \@text );
    @text = map { [ map {$_ || ' ' } @$_ ] } @text;
    @text = map { join ' ', reverse @$_ } @text;

    for (@text) {
        $_ =~ tr//‥−-─ー「」→↑←↓==,、。〖〗【】…/\:||||¬∟↓→↑←॥॥︐︑︒︗︘︗︘︙/;
        $_ =~ s///g;
        $_ =~ s///g;
        $_ =~ s///g;
        $_ =~ s//┌┐/g;
        $_ =~ s//└┘/g;
        $_ =~ s/\[/┌┐/g;
        $_ =~ s/\]/└┘/g;
        $_ =~ s///g;
        $_ =~ s///g;
        $_ =~ s/<//g;
        $_ =~ s/>//g;
        $_ =~ s///g;
        $_ =~ s///g;
    }
    return join "\n", @text;
}

いろんな鍵括弧へも対応してます。
f:id:kazuph1986:20130713190519p:plain


「〜」な伸ばし棒にも対応しました。
f:id:kazuph1986:20130713190532p:plain


なのですが丸括弧への対応が全然できてません。
f:id:kazuph1986:20130713190632p:plain

p-r待ってます。
kazuph/Acme-Tategaki · GitHub
Acme::Tategaki - This Module makes a text vertically. - metacpan.org