Perlでのデータ処理について初歩的な質問

質問

現在Perlでデータ処理をしています。処理を進めていき、下のようなデータを得ることができました。

Question1
1→2
2→4
3→3
2→6
4→4

Question2
1→2
3→4
2→3
4→2
3→3

このようなデータがa.txt，b.txt，，，e.txtというように5個あります。

これらのデータからそれぞれ、Question1の1,2,3,4とQuestion2の1,2,3,4の→のあとの数字の合計をa_out.txt，b_out.txt，，，e_out.txtとして一気に出力させたいです。
ただし、Question1に2→4と2→6のように、二つのデータがある場合は、より後ろにあるデータ（この場合だと2→6）を足し合わせることにしたいと思っています。

明快な方法がなかなか思いつかないので、力を貸していただけたらと思います。

回答No.3

g_p_ · ベストアンサー

#! perl
use strict;
use warnings;

my @names = qw(a b c d e);
my $txt = q(.txt);

for my $name (@names) {

# 要るヤツ
my $result = {
Question1 => {
1 => 0,
2 => 0,
4 => 0,
},
Question2 => {
2 => 0,
4 => 0,
}
};

open my $in, '<', qq($name$txt) or die $!;

my $question;
while ( my $line = <$in> ) {
chomp $line;
next unless $line;
if ( $line =~ /^(\d+)→(\d+)$/ ) {
next if exists $result->{$question}->{$1};
$result->{$question}->{$1} = $2;
}
else {
$question = $line;
}
}
close $in or die $!;

open my $out, '>', qq(${name}_out$txt) or die $!;
my $total;
for my $questions ( keys %{$result} ) {
$total += $_ for values %{ $result->{$questions} };
}
print {$out} qq(total=$total\n);
close $out or die $!;

}

exit;
__END__
やっつけ度満点ですが、こんな感じでどうでしょ。

お礼

ありがとうございます．
＃要るヤツ
の部分って使わないデータを０にすればいいんですよね？このプログラムの場合ではQuestion1の1,2,4とQuestion2の2,4以外のデータが足し合わされるということでいいでしょうか？

回答No.5

g_p_

すみません、
間違ってました。

>next if exists $result->{$question}->{$1};
>ココで該当するハッシュのキーが存在しなかったら、読み飛ばしているつもりなんですけど。

ぜんぜん読み飛ばしてませんね。not が抜けてます。

next if not exists $result->{$question}->{$1};

でした。
二度も書き込んで見逃してました。すみません。

もうお分かりでしょうが、要らないキーを設定するも良し、
必要なキーを設定するも良し、いくらでもやり方はあるって事ですね。

とにかく間違ってましたすみません。

お礼

うまくいきました！

next if not exists $result->{$question}->{$1};
と
my $result 以下の部分を書き換えることで色々なパターンに対応できますね．

丁寧にありがとうございました！

回答No.4

g_p_

>＃要るヤツ
>の部分って使わないデータを０にすればいいんですよね？
>このプログラムの場合ではQuestion1の1,2,4とQuestion2の2,4以外のデータが足し合わされるということでいいでしょうか？
いや逆です。

どこまで説明すれば良いかアレですが、

要は、ファイルを読む前に、
# 要るヤツ
my $result = {
Question1 => {
1 => 0,
2 => 0,
4 => 0,
},
Question2 => {
2 => 0,
4 => 0,
}
};
で、結果を格納するハッシュを初期化していて、

next if exists $result->{$question}->{$1};
ココで該当するハッシュのキーが存在しなかったら、読み飛ばしているつもりなんですけど。
期待した結果が出なかったんですかね？

回答No.2

g_p_

>上のa.txtの場合だと"total＝25"といった感じに
なら、手っ取り早く、
これを

for my $num ( sort keys %{$result} ) {
my $total;
$total += $_ for values %{ $result->{$num} };
print {$out} qq($num→$total\n);
}

これに
my $total;
for my $num ( sort keys %{$result} ) {
$total += $_ for values %{ $result->{$num} };
}
print {$out} qq(total=$total\n);

でどうでしょ。
$total の宣言場所と出力位置を変えただけです。

お礼

わざわざありがとうございます！
追加で質問なんですけど，この場合って

$total += $_

のところで，数字を順番に足していっているんですよね？
もしも，Question1の１，２，４とQuestion2の２，４だけを足し合わせたい場合だとプログラムを結構変えないといけなくなりますか？

回答No.1

g_p_

こんなんでどうですか？
#! perl
use strict;
use warnings;

my @names = qw(a b c d e);
my $txt = q(.txt);

for my $name (@names) {

my $result;
open my $in, '<', qq($name$txt) or die $!;

my $question;
while ( my $line = <$in> ) {
chomp $line;
next unless $line;
if ( $line =~ /^(\d+)→(\d+)$/ ) {
next unless $question;
$result->{$1}->{$question} = $2;
}
else {
$question = $line;
}
}

open my $out, '>', qq(${name}_out$txt) or die $!;
for my $num ( sort keys %{$result} ) {
my $total;
$total += $_ for values %{ $result->{$num} };
print {$out} qq($num→$total\n);
}
close $out or die $!;

close $in or die $!;
}

exit;
__DATA__
読み込むファイルとか出力する形式とか分からない部分もありますが、
大体こんな感じでよくないですか？
他にもうまいやり方はあるでしょうけど。参考までに。

お礼

ありがとうございます．きちんと動きました．
私の説明が下手くそで質問の意図が伝わらなかったかもしれませんが，私が出力したかったのはQuestion1の１から４までの数字とQuestion2の１から４までの数字をすべて足し合わせたものです．
（上のa.txtの場合だと"total＝25"といった感じに）

うまく説明できずにすみません．．．