だんぺんぶこみっく

2007-04-0220070402

[]いっき 04:23 いっき - だんぺんぶこみっく を含むブックマーク はてなブックマーク - いっき - だんぺんぶこみっく

3:30~4:45

 起床。メールなど

 4:00前ごろからはてブまた鯖落ちか( (-_- #)

4:45~5:45

 web(まだはてブ落ちてる

5:45~6:30

 web・メールなど

6:30~11:00

 いったんPCを終了し,ベッドでTV(ニュース)を確認してたら,うとうとしてしまう。

11:00~12:30

 朝食(笑)

 母に,「保険料は?」と聞かれ,急いで振り込み依頼表を持って駅前銀行に。

 ATMで振込み確認。数十万円おろす。

 すぐ駅前郵便局に行くが,えらい待たされた挙句,本人確認ができないと

 振込みできないとのこと。

 いったん家に戻り,母にお金渡す。その後,近所の郵便局であらためて保険料振込み

12:30~13:00

 近所のBOOKOFFとスーパーによる。飲み物など。

 帰宅してweb

13:00~14:30

 web。母,やや熱があるとのこと(まだ治ってないのか…)

14:30~17:00

 仕事。今年度の授業でつかうXAMPPをインストール,設定

 (ネットワーク関係の授業で,「はじめに読みたいAjax」(たにぐちまこと著)を用いる)

 MySQLの文字コード設定はOK。しかし,Apapheのバーチャルホストがうまくいかない……なぜだ

 (その後,phpmyadminでMySQLをいじったりした。去年は直接MySQLのコンソールから操作してたので,えらい面倒だった)

17:00~18:30

 夕食。カレー(たまねぎ入れないで作ったらしい)

 webとか

18:30~20:30

 引き続きwebしながらMySQL続き

 テーブル作成・追加・検索

 SQL文作成など(これらは,仕事のため)

 あと,その後Perl勉強

 今日は「Perl言語プログラミングレッスン」第5章(ハッシュ)について

[]ハッシュ(Perl) 21:00 ハッシュ(Perl) - だんぺんぶこみっく を含むブックマーク はてなブックマーク - ハッシュ(Perl) - だんぺんぶこみっく

(以下,自分用の思考メモ)

  • Perlのハッシュ≒連想配列らしい(C++とかにあったきもするが,殆どやっていない)
  • ハッシュの前に%をつけなならんのが(ry
  • ようするにjava.util内のコレクションのHashMapのようなものか
  • 以下,前掲書のサンプルプログラムを参考にして今日書いたもの

hash02.pl

use strict;
use warnings;

#ハッシュ
my %h = (
	"阿部高和" => 22,
	"道下正樹" => 20,
	"リチャード=リンチ" => 49,
	"マイケル=ベリーマン" => 47
);
print "追加前\n";
foreach my $k (keys(%h)) {
	my $val = $h{$k};
	print "$k -> $val\n";
}

#追加
$h{"エド=ウッドJr"} = 34;
print "追加後\n";
foreach my $k (keys(%h)) {
	my $val = $h{$k};
	print "$k -> $val\n";
}

(名前はテキトウです)

hash03.pl

use strict;
use warnings;

#同一アイテムの回数をカウントする

#ハッシュ
my %hash;

my $dt = <STDIN>;
chomp($dt);
while($dt ne "end") {
	#わざとこう書いている
	my $x = $hash{$dt};
	$x++;
	$hash{$dt} = $x;

	$dt = <STDIN>;
	chomp($dt);
}

foreach (sort(keys(%hash))) {
	print "$_ -> $hash{$_}\n";
}

(実行結果)

C:\Perl\work>perl  hash03.pl
apple
pineapple
lemon
melon
apple
melon
grape
melon
end
apple -> 2
grape -> 1
lemon -> 1
melon -> 3
pineapple -> 1
トラックバック - http://fragments.g.hatena.ne.jp/TakahashiMasaki/20070402