/usr/share/doc/libio-prompt-perl/examples/yesno.pl is in libio-prompt-perl 0.997002-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | #! /usr/bin/perl -w
# Variations on the yes/no theme...
#
use IO::Prompt;
1 until prompt(-YN1, "Continue char (Y/N): ");
1 until prompt(-yn1, "Continue char (y/n): ");
1 until prompt(-yesno1, "Continue char (y/n): ");
1 until prompt(-yes1, "Continue char (y/*): ");
1 until prompt(-YES1, "Continue char (Y/*): ");
1 until prompt(-Y1, "Continue char (Y/*): ");
1 until prompt(-yn, "Continue line (y/n): ");
1 until prompt(-yes, "Continue line (y/*): ");
1 until prompt(-YN, "Continue line (Y/N): ");
1 until prompt(-Y, "Continue line (Y/*): ");
print "Done\n";
|