2007-06-17から1日間の記事一覧
憂鬱な日曜の夜。一年何%だと良いほうなのでしょう。 #!/usr/local/bin/perl use strict; use warnings; use Getopt::Long; package my_func; sub number_format { my $value = shift; 1 while $value =~ s/(.*\d)(\d\d\d)/$1,$2/; return $value; } package…
憂鬱な日曜の夜。一年何%だと良いほうなのでしょう。 #!/usr/local/bin/perl use strict; use warnings; use Getopt::Long; package my_func; sub number_format { my $value = shift; 1 while $value =~ s/(.*\d)(\d\d\d)/$1,$2/; return $value; } package…