perlでプロンプトをさくっと使いたいときに使う。 use IO::Prompt::Simple; if ( prompt 'ok?', +{ yn => 1 } ) { # 処理 } else { return; } 参考 IO::Prompt::Simple - search.cpan.org にひりずむ::しんぷる - IO::Prompt::Simple 書いた IO::Prompt::Sim…