IO::Pty::Easy が簡単・便利 - Practice of Programmingちょっと遊んでいたら見つけたのですが、これ簡単ですね。 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; } } こんな感じにするだけで、perl から mysql の shell が叩けるよ。 いや、別に誰も嬉しくないけどさ。 top も叩ける。 use IO::Pty::Easy; my $pty = IO::Pty::Easy->new; $pty->spawn("top"); while
