File Coverage

blib/script/seq

Criterion	Covered	Total	%
statement	49	68	72.0
branch	17	30	56.6
condition	2	3	66.6
subroutine	6	7	85.7
pod			n/a
total	74	108	68.5

#!/usr/local/bin/perl

=encoding utf8

=begin metadata

Name: seq
Description: print a numeric sequence
Author: Michael Mikonos
License: artistic2

=end metadata

=cut

use strict;

use File::Basename qw(basename);
use POSIX qw(floor);

use constant EX_SUCCESS => 0;
use constant EX_FAILURE => 1;

my $Program = basename($0);

my $begin = 1;
my $step = 1;
my $ender;
my $format = "%g";
my $term = "\n";

sub usage {
    warn "usage: $Program [-f format] [-s string] [begin [step]] end\n";
    exit EX_FAILURE;
}

while (@ARGV && $ARGV[0] =~ /^-/) {
    my $opt = shift;
    if ($opt eq '--') {
        last;
    } elsif ($opt eq '-s') {
        $term = shift;
    } elsif ($opt eq '-f') {
        $format = shift;
    } elsif ($opt =~ m/\A\-?[0-9]/) {
        unshift @ARGV, $opt;
        last;
    } else {
        warn "$Program: unexpected option: '$opt'\n";
        usage();
    }
}
if (@ARGV == 0) {
    usage();
} elsif (@ARGV == 1) {
    $ender = getnum($ARGV[0]);
} elsif (@ARGV == 2) {
    $begin = getnum($ARGV[0]);
    $ender = getnum($ARGV[1]);
} elsif (@ARGV == 3) {
    $begin = getnum($ARGV[0]);
    $step  = getnum($ARGV[1]);
    $ender = getnum($ARGV[2]);
} else {
    warn "$Program: extra argument '$ARGV[3]'\n";
    usage();
}

if ($step == 0) {
    warn "$Program: illegal step value of zero\n";
    exit EX_FAILURE;
}
if ($ender < $begin) {
    if (@ARGV != 3) {
        $step = -$step;
    } elsif ($step > 0) {
        warn "$Program: needs negative decrement\n";
        exit EX_FAILURE;
    }
} else {
    if ($step < 0) {
        warn "$Program: needs positive increment\n";
        exit EX_FAILURE;
    }
}

my $head = 1;
my $count = floor(($ender - $begin) / $step);
for (0 .. $count) {
    if ($head) {
        $head = 0;
    } else {
        print $term;
    }
    printf $format, $begin + $_ * $step;
}
print "\n";
exit EX_SUCCESS;

sub getnum {
    my $n = shift;
    if ($n !~ m/\A[\+\-]?[0-9]+(\.[0-9]+)?\Z/) {
        warn "$Program: invalid number '$n'\n";
        exit EX_FAILURE;
    }
    return $n;
}

__END__