ちょっと遊んでいたら見つけたのですが、これ簡単ですね。 use IO::Pty::Easy; my $pty = IO::Pty::Easy->new; $pty->spawn("mysql -u root"); while ($pty->is_active) { while (my $o = $pty->read(1)) { print $o; } if (my $sql = <>) { $pty->write($sql); } else { $pty->write("exit\n"); last; }... > このページを見る
最終更新時間:
2012年01月31日09時21分




![イグジット・スルー・ザ・ギフトショップ【初回限定生産版】 [DVD]](http://ecx.images-amazon.com/images/I/51vKWKCN9rL._SL75_.jpg)



