String::Diff

Perl

信頼のおけるブロガーのString::Diffを使ってみた。
すごい！
一部抜粋で

use String::Diff;
my($old, $new) = String::Diff::diff($old_entry->body, $self->stash->{entry}->body,
    remove_open  => '<span class="remove_entry">',
    remove_close => '</span>',
    append_open  => '<span class="append_entry">',
    append_close => '</span>',
);

$self->stash->{old_entry} = $old;
$self->stash->{new_entry} = $new;

これだけ！すばらしい。
Kwikiをさわってて、Test::VimColorのわけわからんエラーがでて
いやーんだったので簡単なWikiを作ってみた時に使ってみた。
さすが、信頼のおけるブロガーですね。

でも、PODがまちがってました。＞＜
さすが、信頼のおけるブロガーですね。
はい。