Text::LTSV
勢いで Text::LTSV という perl モジュールを書いたけど、ただ tab を split してコロンで split するだけなのでわざわざこんな駄モジュールを使うまでもない、という・・・。
use Text::LTSV; my $hash = Text::LTSV->parse_line("hoge:foo\tbar:baz\n"); is $hash->{hoge}, 'foo'; is $hash->{bar}, 'baz'; my $data = Text::LTSV->parse_file('./t/test.ltsv'); # or parse_file_utf8 is $data->[0]->{hoge}, 'foo'; is $data->[0]->{bar}, 'baz'; my $ltsv = Text::LTSV->new( hoge => 'foo', bar => 'baz', ); is $ltsv->to_s, "hoge:foo\tbar:baz";
反省はしていない。