えー

「昨年、中高年女性の自殺率が激減した。理由はヨンさま」だという。「仲間で一緒に楽しめる対象ができ、仲が悪かった嫁姑も、共通の話題で仲直りした。ヨンさまのように一過性のブームを“薬”とするのは、長期的にはいまいちだが、例えば山や海といった健全なもの、いいものに触れ、リラックスしてほしい」。

マジに? ホントにそんな有意な差が出たの?

元データ知りたいなあ……。どこにいけばあるだろう。

(@228)

perlの関数で引数を得るとき、二つの方法がある。@_から代入する方法と、@_からshiftで取り出す方法だ。どっちが正しいやり方なのかは知らないが。

で、どっちが速いのか気になってベンチマークを取ってみた。

#!/usr/bin/perl
$str = "Shift or Substitute?\n";

sub exec_print_shift($)
{
	my $str = shift @_;
	print $str;
}

sub exec_print_sub($)
{
	my ( $str ) = @_;
	print $str;
}

for ( my $i = 0; $i <= 99999; $i++ )
{
	if ( $ARGV[0] eq 'shift' )
	{
		&exec_print_shift($str);
	}
	elsif ( $ARGV[0] eq 'sub' )
	{
		&exec_print_sub($str);
	}
}

このプログラムを実行してtimeで速度を見ると、

$ time ./shift.pl shift >/dev/null 

real  0m0.249s
user  0m0.234s
sys   0m0.002s

$ time ./shift.pl sub >/dev/null 

real  0m0.283s
user  0m0.259s
sys   0m0.008s

と、微妙にshiftで取り出した方が速いことがわかる。

引数が増えて来た場合はどうなるんだろうなあ。まあ、とりあえず引数が一つなら迷わずshiftで取り出せということで。

(@138)

＠ ぐは:

といっても、 こっち じゃなくて、ミニチュアダックスフンドの キタロー なのだが、やっとこトイレを覚えてくれた模様。まだまだ間違えそうになるんだが、トイレに連れてって「しーしー」とか言ってると、ちびっと小便が出たりする。今回トイレの場所を変えたのが功を奏したかなあ。周りから見えにくい所に変えてみたのよね。
(@529)

学校の再入学前で特にすることもなく、バイト先でも見付けるかなあという日々なおかげで緊張感が無いのだろうか。
朝遅く起きて寝ぼけながらメールチェック&巡回、昼飯食って眠くなってぼーっと過ごし、ふと気がつくと夜になってて、これまたやたら眠い。結局一日中だるくって、何もしてねえ。はうう。

　そんなこんなでしぶしぶ帰路につくと、どうも体調がおかしい。雨のせいもあるだろうけど、先週末に引いた風邪が治りきってないようだ。帰宅して熱を計ると、平熱より1度ほど高い36.6度。こりゃ具合も悪いわけだ。休もう、休もう。

　買えずじまいです。もちろんPC133CL3の256M。4980円でならそこかしこに売ってるのだけど、4500円以下の価格の店は全部売り切れ。某店で聞いたところ、「昨日の朝、200枚くらい入荷したばかりなんですけど、その日のうちに全部出ちゃったんですよ」とのこと。CL2の256Mに手を出そうとしてしまったが、2500円も高いのでやめ。128Mを二枚という手も考えたが、相性保証を二枚分付けてもらうと、他店で256買うのと同じ値段になるし、スロットは空いてるに越したこと無いのでやめ。
　というか、レポートに集中しろと言う神のお告げだろうか。

　って、ぷりんとすくりーんキー押せばええやん……。その程度の手間を省くのに4900円出してしまう日本は、絶対不景気なんかじゃない。

　倫理学概論の単位、夏のスクーリングで取る予定だったのだけど、なんと今年の夏スクの倫理学概論は、前に受けた授業と同じ内容。つまり、今回はとれないって事ね。
　となると、レポート書いて試験受けるしかないんだけど、こっちの予定も詰まってる。10月の試験なら3限目じゃないとダメ。1月なら1限目と3限目が空いてる。1限か3限に倫理学概論の試験が割り振られなかったら、もうアウト。やばい、やばいよー！