昔はこういうことをしたいときは、こんないけてないことをしていた。 マジックナンバー const char * [][2] ねっとりしたfor文 for( i=0; (char *)str_list[i][0] != NULL ; i++) 「c++プログラミングの処方箋」を読んで改心する。 g++ -g -O2 -Wall -ggdb -…

2007/06/26 追記 30行目にバグがあり修正。 結局必須のキー、例えば$arg_priceが正しく設定されたかどうかは泥臭くやるしかないのか。 1 #!/usr/local/bin/perl 2 3 use strict; 4 use warnings; 5 use Getopt::Long; 6 use Pod::Usage; （略） 16 package m…

憂鬱な日曜の夜。一年何%だと良いほうなのでしょう。 #!/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…

Test::Simple、アラヤダほんとにシンプル。パッケージのコード 1 #!/usr/local/bin/perl 2 3 # Class Structを使わないパターン 4 5 package DataContainer; 6 use strict; 7 use warnings; 8 use Data::Dumper; 9 10 sub new { 11 my $class = shift; 12 re…

初めてperlでclassを作ってみた。 内容はあんまり無い、phpで誰しも真っ先に作るclass。 配列にkeyとvalをぽんぽん入れて、出せて、毎回array_key_existsしなくて良い。 そんなclassはどう書くのか試してみた。 1 #!/usr/local/bin/perl 2 3 package dataCon…