showcmd.pl to HTML.

index -|- end

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

index -|- top