document.write('') document.write('
\n \n \n \n \n\n
\n
\n \n \n \n 
#!/usr/bin/env perl\n<\/div>
use strict;\n<\/div>
use warnings;\n<\/div>
 <\/div>
my @args = @ARGV;\n<\/div>
my %opt;\n<\/div>
 <\/div>
$opt{f} = \'%g\';\n<\/div>
 <\/div>
foreach (@args) {\n<\/div>
    if ($_ =~ /^-(\\D)$/) {\n<\/div>
        shift @args;\n<\/div>
        $opt{$1} = shift @args;\n<\/div>
    }\n<\/div>
    else {\n<\/div>
        last;\n<\/div>
    }\n<\/div>
}\n<\/div>
 <\/div>
my ($first, $increment, $last) = (1, 1, 1);\n<\/div>
if (scalar @args == 1) {\n<\/div>
    $last = $args[0];\n<\/div>
}\n<\/div>
elsif (scalar @args == 2) {\n<\/div>
    $first = $args[0];\n<\/div>
    $last  = $args[1];\n<\/div>
}\n<\/div>
elsif (scalar @args == 3) {\n<\/div>
    $first     = $args[0];\n<\/div>
    $increment = $args[1];\n<\/div>
    $last      = $args[2];\n<\/div>
}\n<\/div>
else {\n<\/div>
    die \'invalid argument(s)\';\n<\/div>
}\n<\/div>
 <\/div>
for (\n<\/div>
    my $i = $first;\n<\/div>
    ($increment > 0) ? $i <= $last : $i >= $last;\n<\/div>
    $i += $increment\n<\/div>
    )\n<\/div>
{\n<\/div>
    printf "$opt{f}\\n", $i;\n<\/div>
}\n<\/div>
 <\/div><\/pre><\/div>\n        \n        <\/div>\n\n        
\n          view raw<\/a>\n          seq.pl<\/a>\n          This Gist<\/a> brought to you by GitHub<\/a>.\n        <\/div>\n      <\/div>\n    \n            \n\n      
\n        
\n          \n          \n          \n            
#!/usr/bin/env perl\n<\/div>
use strict;\n<\/div>
use warnings;\n<\/div>
use Test::Base;\n<\/div>
 <\/div>
plan tests => 1 * blocks;\n<\/div>
 <\/div>
my $target = $ENV{SEQ_COMMAND};\n<\/div>
 <\/div>
filters {\n<\/div>
    input    => [qw/chomp make_cmd_str exec_perl_stdout/],\n<\/div>
    expected => [qw//],\n<\/div>
};\n<\/div>
 <\/div>
sub make_cmd_str {\n<\/div>
    return "system \'$target @_\'";\n<\/div>
}\n<\/div>
 <\/div>
run_is_deeply;\n<\/div>
 <\/div>
__END__\n<\/div>
 <\/div>
=== 1 arg (seq 0)\n<\/div>
--- input\n<\/div>
0\n<\/div>
--- expected\n<\/div>
 <\/div>
=== 1 arg (LAST)\n<\/div>
--- input\n<\/div>
1\n<\/div>
--- expected\n<\/div>
1\n<\/div>
 <\/div>
=== 1 arg (seq 10)\n<\/div>
--- input\n<\/div>
10\n<\/div>
--- expected\n<\/div>
1\n<\/div>
2\n<\/div>
3\n<\/div>
4\n<\/div>
5\n<\/div>
6\n<\/div>
7\n<\/div>
8\n<\/div>
9\n<\/div>
10\n<\/div>
 <\/div>
=== 2 args (FIRST LAST)\n<\/div>
--- input\n<\/div>
1 10\n<\/div>
--- expected\n<\/div>
1\n<\/div>
2\n<\/div>
3\n<\/div>
4\n<\/div>
5\n<\/div>
6\n<\/div>
7\n<\/div>
8\n<\/div>
9\n<\/div>
10\n<\/div>
 <\/div>
=== 3 args (FIRST INCREMENT LAST)\n<\/div>
--- input\n<\/div>
1 2 5\n<\/div>
--- expected\n<\/div>
1\n<\/div>
3\n<\/div>
5\n<\/div>
 <\/div>
=== negative start (seq -10 0)\n<\/div>
--- input\n<\/div>
-10 0\n<\/div>
--- expected\n<\/div>
-10\n<\/div>
-9\n<\/div>
-8\n<\/div>
-7\n<\/div>
-6\n<\/div>
-5\n<\/div>
-4\n<\/div>
-3\n<\/div>
-2\n<\/div>
-1\n<\/div>
0\n<\/div>
 <\/div>
=== null return (seq 10 1)\n<\/div>
--- input\n<\/div>
10 0\n<\/div>
--- expected\n<\/div>
 <\/div>
=== null return (seq -1 -2)\n<\/div>
--- input\n<\/div>
-1 -2\n<\/div>
--- expected\n<\/div>
 <\/div>
=== only 0\n<\/div>
--- input\n<\/div>
0 0\n<\/div>
--- expected\n<\/div>
0\n<\/div>
 <\/div>
=== null return (seq -1 -1 1)\n<\/div>
--- input\n<\/div>
-1 -1 1\n<\/div>
--- expected\n<\/div>
 <\/div>
=== 10 to 1\n<\/div>
--- input\n<\/div>
10 -1 1\n<\/div>
--- expected\n<\/div>
10\n<\/div>
9\n<\/div>
8\n<\/div>
7\n<\/div>
6\n<\/div>
5\n<\/div>