なかのにっき

web インターフェース。 むー、kuma での DLS は使えなくなったのかな?

この件 の fix。 以前 ASCII 形式でもらってきたデータは固定桁の小数点形式で、 たとえば decimal(6,4) と指定されている 6 桁のフィールドでは、 最初の 2 桁が整数部、残りの 4 桁が小数部、となっている。 んで面倒くさいことに、leading zeros は書かれてなくて、 かつ負号は数値の直前に置かれる。 さらに末尾に置かれる 0 は有効桁を表わしているので、 これは有無を区別しておきたい。 まとめると、

" 17   " → 1.7
" -17  " → -0.17
"  -17 " → -0.017
" -170 " → -0.170

という感じに変換したい。

ということで 以下のような関数にした。 $line は行データ、$fbeg はフィールドの桁位置。 最初の check は null フィールド対策。

sub decimal{
	($line, $fbeg, $flen, $dlen) = @_;
	$ilen = $flen - $dlen;

	$field = substr($line, $fbeg, $flen);
	if ($field =~ / {$flen}/) {return $field;}

	if ($field =~ s/-/ /) { $sign = "-" }

	$ipart = substr($field, 0, $ilen);
	$ipart += 0;

	$dpart = substr($field, $ilen, $dlen);
	if ($dpart !~ / {$dlen}/){
		my @digits = split (//, $dpart);
		my $c = 0;
		while($digits[$c] =~ " "){
			$digits[$c] = "0";
			$c++;
		}
		$dpart = join('', @digits);
	}
	return "$sign$ipart.$dpart";
}

"+= 0" のアイディアや基本戦略は鵜飼さんに教えていただいた。 ちなみに最初は $ipart のところを

	$ipart = substr($field, 0, $ilen);
	if ($ipart =~ / {$ilen}$/) {
		$ipart =~ s/ $/0/;
	}
	if ($sign =~ "-") {
		$ipart =~ s/^( *) ([^ ]*)/\1-\2/;
	}

のように書こうとしていた。後者の置換は小澤さんに教わった。 出力桁数が揃うので、用途によってはこっちがいいこともあるかな。 ありがとうございました > お二方

今日から。 研究室にも謎の物品が持ち込まれている。


というわけでゆっくり午前中一杯寝る。 amazon の配送先を自宅にしたので、13:30 現在待機中。

学校に来たら研究室前のゴミ箱が消えている。 研究室にいた佐藤くんに聞いたら、朝から無くなっていたらしい。 おいおい。

あそうか、読みは [gi:k] なのか。ギークね。

武蔵小金井の南口、ふみきり手前の東側にあるラーメン屋。 むかし「武蔵屋」というのが入っていたところ。 ちょっと寄ってみた。普通のラーメン (600 円) を注文。 スープは魚系のダシなのだけど、脂分が多く中太の縮れ麺に絡んで、 すすり込む感じが油そばに似ていておもしろい。 ただスープの味自体がちょい薄目で、 なんか水分でのばされたような印象を受けた。 チャーシューは美味しかった。

photo CD を受け取ってきて、 このとき のパッケージを利用して作成。

ぐへ、 photo CD のファイル名の番号が撮影順になってないぞ。なんだこりゃ。

とりあえず support@apm にメールした。

• Samba 2.2.7 (2.2.x)

  Changes: A security hole has been discovered in versions 2.2.2 through
  2.2.6 of Samba that could potentially allow an attacker to gain root
  access on the target machine. The word "potentially" is used because there
  is no known exploit of this bug, and the Samba Team itself has not been
  able to craft one. In addition to addressing this security issue, this
  release also includes thirteen unrelated improvements.