トップ «前の日記(■2004-11-13) 最新 次の日記(■2004-11-28)» 編集

どんぞこ日誌

2003|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|07|08|12|
2007|01|04|08|12|
2008|01|02|03|04|06|07|08|10|11|12|
2009|01|02|04|05|06|07|08|09|11|12|
2010|01|03|04|07|08|10|11|12|
2011|01|02|03|04|05|06|07|08|10|12|
2012|01|02|03|05|06|07|08|09|10|
2013|01|02|07|08|09|
2014|08|09|
2015|08|
2016|06|07|12|
2017|01|03|08|
2018|03|
2022|03|
2023|03|
2024|02|

同人関連(どんぞこ楽屋) | 旧い雑文   


■2004-11-21

* [雑感] ホラーじゃないんだB!

 「いま、会いにゆきます」という映画が流行っているそうじゃないですか。通勤時にいつもポスターを見かけては、ずいぶんほのぼのとしたホラー映画なんだなあ、と思ってたのですが。どうも違うらしい。 あれでしょ、ほら、深夜に電話が鳴って、受話器を取ると「いま、会いにゆきます……」。キャー! だと思ってたんですが、ずいぶん大きな勘違いをしていたものです。

* [雑感] 消耗B!

  先週で長かったBlosxom強化月間(?)も終わり。とはいえ、まだ色々後始末が…… で、この間に外に出していたプログラムのコードレビューをしたのですが。ファイル内の各行の重複チェックを行う処理。

 my @lines = @_; # サブルーチン内
 my @check = @lines;
 for my $line ( @lines ){
   for my $check ( @check ){
     if($line eq $check){ error() }
   }
 }

  イメージとしてはこんな感じ。1000行のデータで100万回チェックするつもりですか。やり直してください、と。で、次に返ってきたのが

 my @lines = @_;
 my @check = @lines;
 for my $line ( @lines ){
   my @found = grep(/$line/,@check);
   if(@found > 1){ error() }
 }

  ああ、前回よりちょっとひねってあります。笑いたいような、泣きたいような、怒りたいような。このようなソースを出してくるのは大変特殊な例なのか、良くあることなのかしら。  PHPとMySQLによるWebアプリ開発が得意と称するこの会社は、他にも配列を逆順にする処理で

 my @array = @_;
 my @reverse;
 for(my $i = $#array; $i >= 0; $i-- ){
   push @reverse,$array[$i];
 }
 return @reverse;  

という素敵実装をされていたのが印象的でした。Perlが不得手だとしても、PHPにarray_reverseがあるんだから同様の組み込み関数があることぐらい想像つくと思うのですが。  そんなこんなで今週はかなり疲弊していました。

[]