/usr/share/doc/libgetopt-declare-perl/examples/demo_shell is in libgetopt-declare-perl 1.14-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 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | #!/usr/bin/env perl
use strict;
use warnings;
use Getopt::Declare;
my $shell_cmds = <<'EOCMDS';
Commands: [repeatable]
echo [-n] <words:/.*/> ECHO WITHOUT NEWLINE
{ print $words; print "\n" unless $_PUNCT_{'-n'}; }
[pvtype: chwho /u?g?a?/]
[pvtype: chwhat /r?w?x?/]
chmod [-R] <who:chwho>=<what:chwhat> <files>...
CHANGE FILE PERMISSIONS
{ foreach (@files) { print "chmod $who=$what $_\n"; } }
help SHOW THIS SUMMARY
{ $self->usage() }
exit EXIT SHELL
{ exit }
<error:/.*/>
{ print "Unknown command: $error\n";
print "(Try the 'help' command?)\n"; }
EOCMDS
my $shell = Getopt::Declare->new($shell_cmds,[-BUILD]);
my $count = 1;
sub prompt { print "$count> "; $count++; return <STDIN> }
print "Welcome to an interactive shell!\n";
$shell->parse(\&prompt);
|