🚀 go-pugleaf

In article <33795@mongo.uucp> waynet@mongo.uucp (Wayne Thompson) writes:
}Here's a short script that does the same.

I hate to be picky, but the script has a bit of a problem.  Try feeding it
     count 5 -w6 7
or
     count 5 xxy

On the other hand, here's a short perl script that also does the job.
It is a bit longer than the shell script, but a fair amount of that is doing
error checking and such.

   __
  /  )                              Bernie Cosell
 /--<  _  __  __   o _              BBN Sys & Tech, Cambridge, MA 02238
/___/_(<_/ (_/) )_(_(<_             cosell@bbn.com

#!/usr/local/bin/perl

# Output a sequence of integers

$Usage="usage: num [-wWIDTH] [firstn] lastn\n";

sub Usage { printf stderr $Usage ; exit 1; }

do Usage() if ($#ARGV < 0 || $#ARGV > 2);

$lastnum = pop(@ARGV);
do Usage() if $lastnum !~ /^[0-9]*$/;

if ($#ARGV >= 0 && $ARGV[0] =~ /^-w([0-9]*)$/)
{
    $width = $1;
    shift(@ARGV);
}
else
{
    $width = length($lastnum);
}

if ($#ARGV >= 0)
{
    $firstnum = $ARGV[0];
    do Usage() if $firstnum !~ /^[0-9]*$/ || $#ARGV != 0;
}
else
{
    $firstnum = 1;
}

for ($i = $firstnum; $i <= $lastnum; $i += 1)
{
    printf ("%0${width}d\n", $i);
}

exit 0;