Yes/No確認プロンプト

---

　Term::UIを使うとYesかNoを確認する処理を簡単に書くことができます。
　デフォルト入力値の指定や、誤入力時の再問い合わせもやってくれます。

use strict;
use warnings;
use v5.10;
use Term::UI;
use Term::ReadLine;

my $term = Term::ReadLine->new();

my $isYes = $term->ask_yn(
    prompt => 'Do you agree?',
    default => 'y',
);

if ($isYes) {
    say "Thank you.";
}

---

関連項目

・一文字入力待ち
・入力文字列の履歴を保存