weblog of key_amb

主にIT関連の技術メモ

IO::Prompt::Simple

perlでプロンプトをさくっと使いたいときに使う。

use IO::Prompt::Simple;
if ( prompt 'ok?', +{ yn => 1 } ) {
    # 処理
} else {
    return;
}