ドットインストール代表のライフハックブログ
ちょっと遊んでいたら見つけたのですが、これ簡単ですね。 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
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く