本日は・・・

こんばんは、先日はけっこう早い時間にブログを書けたのですが、

現在はいつものように午前さまブログになっています。

本日も、皆さんの期待を裏切って、

真面目に仕事をしてしまいました・・・(;´Д｀)

（本来は真面目にブログをする予定だったのです・・・）

えー本日は撮影と、営業プレゼン、CGIの保守作業です。

本日書いたスクリプトを公開します。

#######################################

sub much{#much

#再利用のための初期化
my @much_list = ();
my @data_aaaa=();
my @data =();
#代入
my ($much_1,$much_2,$much_3)=@_;

#データベースを格納
@much_list = @{$much_1};

if($much_3 ne '0' or $much_3 != ''){##
foreach(@much_list){#1
@data = split(/\t/,$_);
if($data[$much_2] =~ /^$much_3$/){
$aaaa = join("\t",@data);
push @data_aaaa,$aaaa;
}
}#1

@much_list = @data_aaaa;
}##

return @much_list;
}#much

###################################

二次元配列よりは、レコードの処理なので、セパレータで、区切って、

イベントファイルを作っています。

と、

いうようような感じで働いておりました。

真面目に働くことが世間一般ですが、

私、ゆーきゆーきは、

真面目に働くと苦情が来ます。

「ワンクリックプリーズベイベー」

ワンクリックで１位、確定『人気もん！』