Generated: Sat Oct 24 16:35:28 2020 from showcmd.pl 2019/11/17 504. text copy
#!/perl -w # NAME: showcmd.pl # AIM: Just out the command arguments found, if any. # 2019-11-17 - Review, added trailing '\n',... # 2007-05-26 - Initial cut use strict; use warnings; if (@ARGV) { print "Showing commands ... " . scalar @ARGV . "\n"; show_cmd(@ARGV); } else { print "No command found ...\n"; } exit(0); sub show_cmd { my (@av) = @_; my ($arg); while (@av) { $arg = $av[0]; print "[$arg] "; shift @av; } print "\n"; } # eof showcmd.pl