Shibuya.js とかでは、JavaScript とかでプレゼンツールを自作しているのに、Perl でプレゼンツールを自作している奴は、見たことがない。 YAPC::ASIA 2007 の LT 向けに、ターミナルを使った高橋メソッドなプレゼンをやろうと思って、Perl で適当に書いてみた。 →、↓、[PgDn] でページを進む。 ←、↑、[PgUp] でページを戻る。 [Home] で先頭ページへ。 [End]、C-c、C-d でプレゼン終了。 でも、ターミナルだと表現力が足りなさすぎてなんか面白くないからやめた。 そもそも Term::* 系ってほとんど使ったことがないから、よくわからないまんま作ってみて、微妙すぎて、これ以上手を加える気が失せた。 まずいないでしょうが、もし誰か使いたいっていう奇特な方がいたら、どうぞご勝手に。 #!/usr/local/bin/perl # $I