{"width":"100%","url":"https://ktat.hatenadiary.jp/entry/20120131/1327946485","author_url":"https://blog.hatena.ne.jp/ktat/","type":"rich","categories":["Perl"],"height":"190","provider_url":"https://hatena.blog","author_name":"ktat","blog_url":"https://ktat.hatenadiary.jp/","provider_name":"Hatena Blog","image_url":null,"version":"1.0","published":"2012-01-31 03:01:25","blog_title":"Practice of Programming","description":"\u3061\u3087\u3063\u3068\u904a\u3093\u3067\u3044\u305f\u3089\u898b\u3064\u3051\u305f\u306e\u3067\u3059\u304c\u3001\u3053\u308c\u7c21\u5358\u3067\u3059\u306d\u3002 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; } } \u3053\u3093\u306a\u611f\u3058\u306b\u3059\u308b\u3060\u3051\u3067\u3001perl \u304b\u3089 mysql \u306e shell \u304c\u53e9\u3051\u308b\u3088\u3002 \u3044\u2026","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fktat.hatenadiary.jp%2Fentry%2F20120131%2F1327946485\" title=\" IO::Pty::Easy \u304c\u7c21\u5358\u30fb\u4fbf\u5229 - Practice of Programming\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","title":" IO::Pty::Easy \u304c\u7c21\u5358\u30fb\u4fbf\u5229"}