\n \n \n \n \n\n
\n \n \n \n
#!/usr/bin/env perl<\/span><\/div>use<\/span> strict<\/span>;<\/span><\/div>use<\/span> warnings<\/span>;<\/span><\/div> <\/div>my<\/span> @args<\/span> =<\/span> @ARGV<\/span>;<\/span><\/div>my<\/span> %opt<\/span>;<\/span><\/div> <\/div>$opt<\/span>{<\/span>f<\/span>}<\/span> =<\/span> '%g'<\/span>;<\/span><\/div> <\/div>foreach<\/span> (<\/span>@args<\/span>)<\/span> {<\/span><\/div>    if<\/span> (<\/span>$_<\/span> =~<\/span> /^-(\\D)$/<\/span>)<\/span> {<\/span><\/div>        shift<\/span> @args<\/span>;<\/span><\/div>        $opt<\/span>{<\/span>$1<\/span>}<\/span> =<\/span> shift<\/span> @args<\/span>;<\/span><\/div>    }<\/span><\/div>    else<\/span> {<\/span><\/div>        last<\/span>;<\/span><\/div>    }<\/span><\/div>}<\/span><\/div> <\/div>my<\/span> (<\/span>$first<\/span>,<\/span> $increment<\/span>,<\/span> $last<\/span>)<\/span> =<\/span> (<\/span>1<\/span>,<\/span> 1<\/span>,<\/span> 1<\/span>);<\/span><\/div>if<\/span> (<\/span>scalar<\/span> @args<\/span> ==<\/span> 1<\/span>)<\/span> {<\/span><\/div>    $last<\/span> =<\/span> $args<\/span>[<\/span>0<\/span>];<\/span><\/div>}<\/span><\/div>elsif<\/span> (<\/span>scalar<\/span> @args<\/span> ==<\/span> 2<\/span>)<\/span> {<\/span><\/div>    $first<\/span> =<\/span> $args<\/span>[<\/span>0<\/span>];<\/span><\/div>    $last<\/span>  =<\/span> $args<\/span>[<\/span>1<\/span>];<\/span><\/div>}<\/span><\/div>elsif<\/span> (<\/span>scalar<\/span> @args<\/span> ==<\/span> 3<\/span>)<\/span> {<\/span><\/div>    $first<\/span>     =<\/span> $args<\/span>[<\/span>0<\/span>];<\/span><\/div>    $increment<\/span> =<\/span> $args<\/span>[<\/span>1<\/span>];<\/span><\/div>    $last<\/span>      =<\/span> $args<\/span>[<\/span>2<\/span>];<\/span><\/div>}<\/span><\/div>else<\/span> {<\/span><\/div>    die<\/span> 'invalid argument(s)'<\/span>;<\/span><\/div>}<\/span><\/div> <\/div>for<\/span> (<\/span><\/div>    my<\/span> $i<\/span> =<\/span> $first<\/span>;<\/span><\/div>    (<\/span>$increment<\/span> ><\/span> 0<\/span>)<\/span> ?<\/span> $i<\/span> <=<\/span> $last<\/span> :<\/span> $i<\/span> >=<\/span> $last<\/span>;<\/span><\/div>    $i<\/span> +=<\/span> $increment<\/span><\/div>    )<\/span><\/div>{<\/span><\/div>    printf<\/span> "$opt{f}\\n"<\/span>,<\/span> $i<\/span>;<\/span><\/div>}<\/span><\/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>4\n<\/div>3\n<\/div>2\n<\/div>1\n<\/div> <\/div>=== -1 3 10\n<\/div>--- input\n<\/div>-1 3 10\n<\/div>--- expected\n<\/div>-1\n<\/div>2\n<\/div>5\n<\/div>8\n<\/div> <\/div>=== 10 -4 -2\n<\/div>--- input\n<\/div>10 -4 -2\n<\/div>--- expected\n<\/div>10\n<\/div>6\n<\/div>2\n<\/div>-2\n<\/div> <\/div>=== format\n<\/div>--- input\n<\/div>-f %02g 0 10 100\n<\/div>--- expected\n<\/div>00\n<\/div>10\n<\/div>20\n<\/div>30\n<\/div>40\n<\/div>50\n<\/div>60\n<\/div>70\n<\/div>80\n<\/div>90\n<\/div>100\n<\/div> <\/div> <\/div><\/pre><\/div>\n        \n        <\/div>\n\n        \n          view raw<\/a>\n          seq.t<\/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::More;\n<\/div> <\/div>plan tests => 2;\n<\/div> <\/div>isnt system($ENV{SEQ_COMMAND}), 0, \'no argumant\';\n<\/div>isnt system("$ENV{SEQ_COMMAND} 1 1 1 1"), 0, \'4 argumants\';\n<\/div> <\/div><\/pre><\/div>\n        \n        <\/div>\n\n        \n          view raw<\/a>\n          seq_error.t<\/a>\n          This Gist<\/a> brought to you by GitHub<\/a>.\n        <\/div>\n      <\/div>\n    \n  \n<\/div>\n')