my $TTY = open("/dev/tty"); sub prompt-char($prompt) { ENTER shell "stty raw -echo min 1 time 1"; LEAVE shell "stty sane"; print $prompt; $TTY.read(1).decode('latin1'); } say so prompt-char("Y or N? ") ~~ /:i y/;
Last updated 11 months ago