Perl初心者（ハッシュ）

Question

いつもお世話になっています。perl初心者でただいま勉強中です。課題でweather.datというファイルを読み込んで、if文を使わず、ハッシュを使って、１ヶ月分の天気を集計するプログラムを作りたいんですが、cloudy:
rainy: stormy: sunny: というようになってしまい、データの個数が表示できません。気温についても同様の結果になってしまいます。どのようにすればいいですか？
自分の実行結果
day 1: 15.0 rainy
day 2: 20.4 cloudy
day 3: 20.1 sunny
day 4: 22.5 cloudy
day 5: 21.8 sunny
day 6: 23.7 sunny
day 7: 21.8 cloudy
day 8: 17.1 cloudy
day 9: 19.4 rainy
day 10: 23.1 sunny
day 11: 20.2 sunny
day 12: 13.6 rainy
day 13: 15.8 cloudy
day 14: 22.6 sunny
day 15: 19.8 cloudy
day 16: 20.4 sunny
day 17: 20.2 rainy
day 18: 15.4 rainy
day 19: 15.0 cloudy
day 20: 22.9 cloudy
day 21: 17.4 cloudy
day 22: 15.8 cloudy
day 23: 18.8 cloudy
day 24: 22.1 rainy
day 25: 16.0 rainy
day 26: 15.4 rainy
day 27: 22.0 sunny
day 28: 18.7 stormy
day 29: 23.0 cloudy
day 30: 19.0 sunny
day 31: 21.9 rainy

Days
cloudy:rainy:stormy☀️---
Average Temperatures
Illegal division by zero at scr2-3.pl line 26.

正しい実行結果
day 1: 15.0 rainy
day 2: 20.4 cloudy
day 3: 20.1 sunny
day 4: 22.5 cloudy
day 5: 21.8 sunny
day 6: 23.7 sunny
day 7: 21.8 cloudy
day 8: 17.1 cloudy
day 9: 19.4 rainy
day 10: 23.1 sunny
day 11: 20.2 sunny
day 12: 13.6 rainy
day 13: 15.8 cloudy
day 14: 22.6 sunny
day 15: 19.8 cloudy
day 16: 20.4 sunny
day 17: 20.2 rainy
day 18: 15.4 rainy
day 19: 15.0 cloudy
day 20: 22.9 cloudy
day 21: 17.4 cloudy
day 22: 15.8 cloudy
day 23: 18.8 cloudy
day 24: 22.1 rainy
day 25: 16.0 rainy
day 26: 15.4 rainy
day 27: 22.0 sunny
day 28: 18.7 stormy
day 29: 23.0 cloudy
day 30: 19.0 sunny
day 31: 21.9 rainy

Days
cloudy: 12
rainy: 9
stormy: 1
sunny: 9

Average Temperatures
cloudy: 19.1916666666667
rainy: 17.6666666666667
stormy: 18.7
sunny: 21.4333333333333
以下が、コードです。よろしくお願いします。

コード

%days = ();
%tmp = ();

open(IN, "weather.dat") or die("Cannot open file.");

while (<IN>) {
chomp;
($day,$weather,$tmp) = split(/,/);
print("day $day:\t$tmp\t$weather\n");

$days{$}++;
$tmp{$}++;

}
close(IN);

print("---\nDays\n");
printf("cloudy:",$);#ここがcloudy:12のように表示したい
printf("rainy:",$);#ここがrainy:9のように表示したい
printf("stormy:",$);#ここがstormy:1のように表示したい
printf("sunny:",$);#ここがsunny:9のように表示したい

print("---\nAverage Temperatures\n");
printf("cloudy:",$/$days);
printf("rainy:",$/$days);
printf("stormy:",$/$days);
printf("sunny:",$/$days);

Answer 1

A.Ichiさんのコードを簡略化しました。

@weatherList = ('cloudy', 'rainy', 'stormy', 'sunny');
%days = ();
%temperatures = ();

open(IN, "weather.dat") or die("Cannot open file.");

while (<IN>)  {
	chomp;
	($day, $temp, $weather) = split(/,/);
	print("day $day:\t$temp\t$weather\n");

	$days{$weather}++;
	$temperatures{$weather} += $temp;

}
close(IN);

print("---\nDays\n");
foreach $weather (@weatherList)
{
	#ここがcloudy:12のように表示したい
	printf("%s: %d\n", $weather, $days{$weather});
}

print("---\nAverage Temperatures\n");
foreach $weather (@weatherList)
{
	printf("%s: %f\n", $weather, $temperatures{$weather} / $days{$weather});
}

Answer 2

このような感じでしょうか (weather.datのレイアウトは、出力と同じにしています）

%days = ();
%tmp = ();

open(IN, "weather.dat") or die("Cannot open file.");

while (<IN>)  {
    chomp;
    ($day,$temp,$weather) = split(/,/);
    print("day $day:\t$temp\t$weather\n");

    $days{$weather}++;
    $tmp{$weather}+=$temp;

}
close(IN);

print("---\nDays\n");
printf("cloudy:%d\n",$days{'cloudy'});#ここがcloudy:12のように表示したい
printf("rainy:%d\n",$days{'rainy'});#ここがrainy:9のように表示したい
printf("stormy:%d\n",$days{'stormy'});#ここがstormy:1のように表示したい
printf("sunny:%d\n",$days{'sunny'});#ここがsunny:9のように表示したい

print("---\nAverage Temperatures\n");
printf("cloudy:%f\n",$tmp{'cloudy'}/$days{'cloudy'});
printf("rainy:%f\n",$tmp{'rainy'}/$days{'rainy'});
printf("stormy:%f\n",$tmp{'stormy'}/$days{'stormy'});
printf("sunny:%f\n",$tmp{'sunny'}/$days{'sunny'});

Comments

[ikuo-biyori]

ちょっと確認したいんですが、コードの解釈は、以下でよろしいでしょうか。
%days = ();#変数配列宣言（ハッシュ)
%tmp = (); #変数配列宣言（ハッシュ)

open(IN, "weather.dat") or die("Cannot open file.");

while (<IN>) {
chomp;
($day,$weather,$tmp) = split(/,/);
print("day $day:\t$tmp\t$weather\n");

$days{$weather}++;#days[cloudy],days[rainy],days[stormy],days[sunny]の配列の要素にデータを足す(たとえば、cloudyならdays[cloudy]の個数が１増える)
$tmp{$weather}+=$tmp;#tmp[cloudy],tmp[rainy],tmp[stormy],tmp[sunny]の配列の要素にデータを格納し、その格納した値を足す

}
close(IN);

print("---\nDays\n");
printf("cloudy: %d\n",$days{'cloudy'});#days[cloudy]を表示する。（int型だから%d)
printf("rainy: %d\n",$days{'rainy'});#days[rainy]を表示する。（int型だから%d)
printf("stormy: %d\n",$days{'stormy'});#days[stormy]を表示する。（int型だから%d)
printf("sunny: %d\n",$days{'sunny'});#days[sunny]を表示する。（int型だから%d)

print("---\nAverage Temperatures\n");
printf("cloudy: %f\n",$tmp{'cloudy'}/$days{'cloudy'});#tmp[cloudy]をdays[cloudy]を割ったものを表示する(double型だから%f)
printf("rainy: %f\n",$tmp{'rainy'}/$days{'rainy'});#tmp[rainy]をdays[rainy]を割ったものを表示する(double型だから%f)
printf("stormy: %f\n",$tmp{'stormy'}/$days{'stormy'});#tmp[stormy]をdays[stormy]を割ったものを表示する(double型だから%f)
printf("sunny: %f\n",$tmp{'sunny'}/$days{'sunny'});#tmp[sunny]をdays[sunny]を割ったものを表示する(double型だから%f)

[A.Ichi]

コードの解釈は良いと思います。
ハッシュはキー付きの配列と考えて良いと思います。数字の部分がキーになっている。
キー値は、無ければ作成、有れば更新になります。またexists()関数で有無もチェックできます。

$days{$weather}++は、days['cloudy']++と等しいです。

例えば、データベースの頻繁に参照するテーブルで件数が少ないもので有れば、起動時にテーブルをハッシュテーブルにキャッシュしてこれを利用すると、かなりの速度改善になります。

[ikuo-biyori]

ありがとうございます。分かりました。