1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#! /usr/bin/perl -w
# Change what prompt echos for each input character
# (except <return> -- use the -nl flag for that)...
use IO::Prompt;
if (prompt "next: ", -echo => '*') {
use Data::Dumper 'Dumper';
warn Dumper [$_];
}
if (prompt "next: ", -echo => '.') {
use Data::Dumper 'Dumper';
warn Dumper [$_];
}
if (prompt "next: ", -echo => '') {
use Data::Dumper 'Dumper';
warn Dumper [$_];
}
if (prompt "next: ", -echo => '(*)') {
use Data::Dumper 'Dumper';
warn Dumper [$_];
}
|
