きつねたぬきだし

ちょっとしたメモ代わりに。

Wiki とか Markdown の表

引数を Markdown っぽい表にする。

$ perl -le '$_=join("|","",(map{" $_ "}@ARGV),"");print;s/[^|]/-/g;print' foo bar buzz

TSV から Markdown or Wiki Syntax っぽいものにする。

$ perl -ple 's/\t/ | /g;$_="| $_ |"'

適当に alias しておけば、シェルからぽんぽんっと使えます。 あまり alias が多いのは好きじゃないけど、これくらいならあってもいいはず。

例は table.header と table.body に alias しておくとして。

$ table.header ID Name Point

とか。

$ mysql (中略) -BN | cut -f1,3 | table.body

とか。

組み合わせるときも cat 使うとなんか shell の人っぽい。

$ cat <(table.header ID Name Point) <(mysql (中略) -BN | cut -f1,3 | table.body)

ちなみに Mac OS X な人はコピペするときは pbcopy/pbpaste を使うと良いです。