配列変数

質問

初歩的な質問で申し訳ありませんが、
下記のような３つの配列変数があります。

　$a　$b　$c
[0]01 あ メールアドレス1
[1]01 い メールアドレス1
[2]01 う メールアドレス1
[3]02 ア メールアドレス2
[4]03 阿 メールアドレス3
[5]03 伊 メールアドレス3
[6]03 宇 メールアドレス3
[7]03 江 メールアドレス3

$aは会員コード、$bは文字列、$cは会員のメールアドレス
という内容で、それぞれ[0]～[7]まで８つの要素を持って
いて、事前に会員コードでソートされた状態で格納され
ています。
このような条件で$bの文字列を会員コード毎に結合して対
象メールアドレスにメール送信したいのですが、どのよう
な方法がありますでしょうか？
よろしくお願い致します。

回答No.2

leaz024 · ベストアンサー

すみません、１つ書き忘れてました。
No.1 で書いたコードは、インデントを見やすくするために全角スペースを使っています。
ですが、Perlのスクリプトとしてこれは許されず、半角スペースなりタブなりに置き換える必要があります。
全角スペース２個→タブ１個などに置き換えてみてください。

お礼

ありがとうございました！
完璧な結果が得られました。
重ねて御礼申し上げます。

回答No.1

leaz024

ちょっと確認。
・要素を３つ持つ構造のデータが８レコードある。
・要素ごとに別の配列で管理している
・同じレコードのデータは同じIndexに格納されている
ということでいいでしょうか？
（配列は $a、$b、$c ではなく、@a、@b、@c ですよね？）
また、１つの会員コードに対するメールアドレスは１つと決まっているのでしょうか？
以下、そのような仮定で。

my %code2data;
for (my $i = 0; $i <= $#a; $i++) {
　　$code2data{$a[$i]} ||= { mailaddr=>$c[$i] };
　　$code2data{$a[$i]}->{str} .= $b[$i];　　# 文字列の連結部分
}
foreach my $code (keys %code2data) {
　　# メールを送る
　　# メールアドレスは $code2data{$code}->{mailaddr}
　　# 連結文字列は $code2data{$code}->{str}
　　# です。
}

これで、以下のようなメールを送ることができます。
・会員コード 01（メールアドレス1）の人へ 'あいう' という内容
・会員コード 02（メールアドレス2）の人へ 'ア' という内容
・会員コード 03（メールアドレス3）の人へ '阿伊宇江' という内容

補足

早速のご返答ありがとうございます。
ちょっと試してみたのですが、

Unrecognized character \xA1 at （$code2data{$a[$i]} ||= { mailaddr=>$c[$i] }; の行）.

のようなエラーが出てしまいました。
どのような原因が考えられますでしょうか？
よろしければ重ねてお知恵をお借りできませんで
しょうか。
よろしくお願い致します。