Text::LTSV::Liner 書いてみた。

LTSVのPerlのパーサをCPANで探していたら、Text::LTSVとApp::YGが見つかったけど、どちらも次のような感じで複数行に分けて表示してくれるものっぽかった。

$ cat sample.ltsv | ltsview -k id,name
---
id:001
name:taro
---
id:002
name:jiro
---
:

ログとかを眺めてるときは1行でいいなーと思って、パーサを書いてみた。
https://github.com/key-amb/perl-Text-LTSV-Liner

まだPODとかテストとかちゃんと書いてないけど、一応動く。
使用イメージはこんな感じ↓

はてさて、こういうのはCPANに上げていいものやら。
(上げたことない)

(2014/3/15 追記)
とりあえず CPAN 上げてみました。
http://search.cpan.org/~keyamb/Text-LTSV-Liner-0.01/