今まで問題となっていた部分を何とか片付けようの日． 今やってるのは某社のコマースサイトなんだけど， perl の CGI から HTML のテンプレートを読んできて， 値をちゃちゃっと埋め込んで出力，みたいな代物だ．

　で，ノンフレームで左側にナビゲーションバーがついてるシンプルなデザインなんだけど， このナビバーの部分が，何と，全てのテンプレートにそのまま埋め込んであったのだ． 誰だようこの設計したの．．． デザインコンセプトのモックアップがそうなってたとしたって， コーディングの段階でほぐせよこんなん．．．

　とか思いつつ時間が取れなくて直せなかった個所のひとつなんだけど， 今回の変更要件にこのバーの配列を変更するってのがあって， いい機会だからやってしまおうってわけだ． テンプレート内でデータの数だけ HTML をリピートするような記述は既に作ってあるので， あとはデータの条件付けだけなんだけど．

　今いるページに応じてボタンの gif 名を変更するルーチン， 忘れないようにメモっとこう．

$data = [
    { 'name' => 'aaa', 'button' => '1_1.gif' },
    { 'name' => 'bbb', 'button' => '2_1.gif' },
];
for $record ( @$data ){
    map( (( $_->{name} eq $cur_name ) && ( $_->{data} =~ s/_1/_2/g )), keys %$record );
}

　perl マンセー(笑)