view release on metacpan or  search on metacpan

1234567891  view on Meta::CPAN

#!/usr/bin/perl 
use 5.014 ; use warnings ; 
use Getopt::Std ; getopts 'd:f' , \my %o  ; 
use FindBin qw[ $Script ] ; 
use utf8 ; 
use Scalar::Util qw[ looks_like_number ] ; 
 
$ARGV[0] //= 20 ;
$o{d} //= 1 ;
my $bk = ( $o{f} ? '　' :' ' ) x $o{d} ; # 空白文字を $o{d}個連結する。 全角空白と半角空白を左に書いた。
my ($n1,$n2) = $ARGV[0] =~ m/(\d+)-(\d+)/ ? ($1,$2) : exists $ARGV[1] ? @ARGV : (1,$ARGV[0]) ; 
exit if map {say "'$_' seems not a number."} grep { ! looks_like_number $_ } ($n1,$n2) ;

my $out = '' ; 
for ( $n1 .. $n2 ) { 
  my $c = s/0{$o{d},}$//ro =~ s/^$/0/ro ; # 文末の1個以上の0を除去して、もしも全部消えたら0にする。
  $c = substr $bk . $c , -$o{d} , $o{d} ; 
  $c =~ y/0123456789 /０１２３４５６７８９　/ if $o{f} ; 
  $out .= $c ; 
}

binmode STDOUT, ":utf8" ;