Re: Speaking of counting...

[Scott Schwartz <schwartz@cse.psu.edu>]

Tom Culliton <culliton@clark.net> writes:
| Does anyone have a nice little generic range function for rc? 

In Plan 9 it's named "seq".  I've been using this approximation:

#!/bin/perl
require 'getopts.pl';

$opt_f = "%g\n";
do Getopts('f:');

if ($#ARGV == 2) {
  $start = $ARGV[0]; $step = $ARGV[1]; $end = $ARGV[2];
} elsif ($#ARGV == 1) {
  $start = $ARGV[0]; $step = 1; $end = $ARGV[1];
} elsif ($#ARGV == 0) {
  $start = 1; $step = 1; $end = $ARGV[0];
} else {
  die "usage: [-f fmt] [start [step]] end\n";
}


$opt_f =~ s/["`\$\@]/\\$&/g;
for ($n = $start; $n <= $end; $n += $step) {
  eval 'printf "' . $opt_f . '", $n';
}