概要 jot.pl シーケンシャルな数値を出力する. jotコマンド をperlで実装したもの.jotはBSD系OSには標準で入っているが,Linux系OSには入っていないことが多い.Linux環境においてもjotを利用できると幸せになれると考え,実装した. 残念ながら,jotと似たコマンドで, seqコマンド というものがLinuxにあることを,後に知ったわけだが. 使い方 次の使い方がある. $ jot.pl 3 1 2 3 $ jot.pl 3 5 5 6 7 $ jot.pl 5 20 100 20 40 60 80 100 $ jot.pl -w "hoge %d" 3 5 hoge 5 hoge 6 hoge 7 コード #! /usr/bin/env perl $format = "%d\n"; if($ARGV[0] eq '--help') { my $help = << ENDOFLINE; JOT output sequential number command usage jot [-w format] the-number [begin-number [end-number]] option -w specify format like and a '\%d' or '\%2& and so on is available to print number e.g. % jot 3 1 2 3 % jot 3 5 5 6 7 % jot 5 20 100 20 40 60 80 100 % jot -w "hoge %d" 3 hoge 0 hoge 1 hoge 2 ENDOFLINE open(LESS, "| less"); print LESS $help; close(LESS); exit 1; } elsif($ARGV[0] eq '-w') { shift(@ARGV); $format = shift(@ARGV). ...