commit - 5f8e7670f9d2b71f241595510f5be99841e2560e
commit + 8dc394dfe2c2f0bcf9c47f1b18de4850565076d3
blob - a74f378aef06dad28dfb11140274a79f08506edb
blob + c0ab88649e75bfb223f5a8d07a029a2b10be2af5
--- plass
+++ plass
$default_length = 32;
}
+my %subcmd = (
+ cat => [\&cmd_cat, "entries..."],
+ find => [\&cmd_find, "[pattern]"],
+ gen => [\&cmd_gen, "[-nq] [-c chars] [-l length] entry"],
+ got => [\&cmd_got, "args ..."],
+ mv => [\&cmd_mv, "from to"],
+ rm => [\&cmd_rm, "entries..."],
+ tee => [\&cmd_tee, "[-q] entry"],
+ tog => [\&cmd_tog, "args ..."],
+ );
+
my $usage = "[-h] [command argument ...]";
my $cmd;
sub usage {
say STDERR "Usage: $prog $cmd $usage";
} else {
say STDERR "Usage: $prog $usage";
+ say STDERR "commands: ", join(' ', sort(keys %subcmd));
}
exit 1;
}
GetOptions("h|?" => \&usage) or usage();
$cmd = shift // 'find';
-
-my %subcmd = (
- cat => [\&cmd_cat, "entries..."],
- find => [\&cmd_find, "[pattern]"],
- gen => [\&cmd_gen, "[-nq] [-c chars] [-l length] entry"],
- got => [\&cmd_got, "args ..."],
- mv => [\&cmd_mv, "from to"],
- rm => [\&cmd_rm, "entries..."],
- tee => [\&cmd_tee, "[-q] entry"],
- tog => [\&cmd_tog, "args ..."],
- );
usage() unless defined $subcmd{$cmd};
my $fn;
($fn, $usage) = @{$subcmd{$cmd}};