よこいまさる日記

● 高杉良「欲望産業」

　武富士の会長の武井氏、逮捕だそうで。

　武富士の盗聴事件が取り沙汰されていたときに、切込隊長の日記の書き込みで、高杉良の小説「欲望産業」を知った。　「欲望産業」は、武富士を題材にしたと思われる消費者金融会社を舞台にした、ワンマン会長とパワフルなマダム社長のお話、といったところ。　小説に登場する、「ワンマンっぷり」、「暴力団とのつながりの噂」、「高井戸の豪邸」、「板橋」、「元旦にはカラオケ大会」、などのキーワードが、今日のニュースで紹介された武井氏とまったく同じで、フィクションと現実の区別をどこにつければよいのかわからなくなってきた。　この、たいへん現実くさいフィクションが、高杉小説のよいところであるけどね。

　この小説は上下2巻で、先週末から読み始めて、今日の帰りの電車でちょうど読み終わった。　読み終わったその日に、元ネタになっている人が逮捕とは....。

● Perl の foreach 文

かれこれ6年以上間違った知識で Perl とつきあっていたみたいなのだが。

Perl の foreach 文での「配列の各々の要素」っていうやつを変更すると、配列内の要素そのものが変更される、っていうことに今日初めて気付いた。 たとえばこんなふうに。

 1: my @array = ("aa", "bb", "cc", "dd");
 2:
 3: foreach my $each (@array) {
 4:     $each .= "+aa";
 5: }
 6: foreach my $each (@array) {
 7:     print "$each\n";
 8: }

なコードがある場合、その結果は：

 aa+aa
 bb+aa
 cc+aa
 dd+aa

と 配列の要素はすべて 4行目にある "+aa" の追加がされる。 今日までは、3行目の foreach で @array の要素が一つずつコピーされて、foreach のスコープのなかで $each をどうしようと @array には影響しないなんて考えていたのだが、実際はそうでないってことだった。 配列の要素の値を変更したくない場合には、実際にはこのように別の変数に値をコピーしてやらないとダメなのですね。

 1: my @array = ("aa", "bb", "cc", "dd");
 2:
 3: foreach my $each (@array) {
 4:     my $tmp = $each;
 5:     $tmp .= "+aa";
 6: }
 7: foreach my $each (@array) {
 8:     print "$each\n";
 9: }

今までの僕のやりかただと、@array の値を変更するときにはこんなことしていたんだよねぇ。

 for (my $i = 0; $i < $#array; $i++) {
     $array[$i] .= "+aa";
 }

これからは foreach で配列の要素の値が変更できる・される って肝に命じてコード書きますよ。

それにしても、よくもこれまで問題起きずに済ましてきたよなぁ…。

● 今日一日

本番環境でのライブテスト前日ってこともあって、かなり気合い入れてプログラムの動き見つめながらテスト。 おおよその細かい不具合とかも取れたつもりだし。 ってことで明日はいよいよ本番でのテスト。

今日の昼は麻布十番商店街のほうまで歩いていって、紅……(名前失念) とかいう中華料理屋。 途中の麻布十番商店街の道路にヤ○ザっぽいクルマがうようよ。

あ、明日は同期のメッセンジャー友達 (と僕が勝手に設定している) に 毒男を飼いたいのですが を教えてあげよっと。 っていうか彼女は基本的に忙しいから見ている暇なさそうだけど。

● 12:51

鰹漬け丼

● 禁煙1日目

なんだか4月ぐらいからまたタバコすいだしていたわけだが、そろそろ半年たったし本当にやめようなんていう具合。

なんどか試したが、禁煙初日のニコチン欠乏症には ニコチネルパッチ20だとちょっとニコチン少ない感じがするが、貼っていないよりかはマシかな。　ニコチネルパッチ20を6週間(14枚2週間分×3箱)、ニコチネルパッチ10を2週間、使うって具合か。　ニコチネルパッチ20が2週間5千円ぐらいなので、毎日タバコ一箱吸う場合の 300円×14日 = 4,200円　と比較すると、禁煙してもしなくても大差ない金額なんだよな。

とりあえず楽天でニコチネルパッチ20を、あと4週間分注文。

今回の喫煙の反省点としては、もらいタバコ禁止ですな。　喫煙者と飲みに行ってついついタバコ貰ってしまうのは禁止の方向で。　あと喫煙すると体力的に落ちるのは確かですし、いろいろとマッタリしすぎてしまいます。　酸素少ないと頭働かない→惰性で仕事する　ってことが多すぎでした。　そのわりにはニコチンが摂取されているからといって何かの特性が良くなるってこともなかったですし。　二度目の喫煙期間をもって、ありゃアカンわ、と思った次第。