자릿수 구분단위가 없이 큰 숫자를 보는 것은 작으면서도 큰 불편함이다.
db2에서, 또는 printf를 통해서 숫자를 출력할 때 자릿점 찍기가 불가능하다.
ksh로 역시 상당히 어렵다.
다음 펄 스크립트를 사용해 숫자에 자릿점을 넣을 수 있다.
#!/usr/bin/perl -w
use strict;
sub commarize
{
my $text = reverse($_[0]);
$text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
return(scalar(reverse($text)));
}
my $i = 0;
while ($i <= $#ARGV)
{
my $s = commarize($ARGV[$i]);
printf("%s\n",$s);
++$i;
}
exit(0);
use strict;
sub commarize
{
my $text = reverse($_[0]);
$text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
return(scalar(reverse($text)));
}
my $i = 0;
while ($i <= $#ARGV)
{
my $s = commarize($ARGV[$i]);
printf("%s\n",$s);
++$i;
}
exit(0);
위 내용을
PATH가 걸린 위치에 commarize 따위의 이름으로 저장하고
chmod 777 실행권한을 지정한 후
ksh 스크립트에서 다음과 같이 사용하면 된다.
foo=$(db2 -x "select count(*) from bigTable")
bar=$(commarize ${foo})
echo "Count = ${bar}"
