2つの異なるハッシュテーブルを使用して新しいデータ（新しいハッシュ）を生成するPerl

Question

私は非常に複雑な問題（初心者の私の見解では）にぶつかり、解決方法がわかりません。ワークフローを考えることはできますが、スクリプトは考えられません。

私は次のようなファイルA持っている：教師（タブ）STUDENT1（スペース）Student2（スペース）..

Fiona  Nicole Sherry 
James  Alan Nicole 
Michelle Crystal 
Racheal  Bobby Dan Nicole 

の2があるとき、彼らは時々右隣自分の名前に数字を持っています同じ名前（ex、John1、John2）。 2人以上のアドバイザーがいる場合は、重複することもあります。

ファイルBは教師のグループをまとめたファイルです。同様のように見えますが、値はカンマで区切られています。

Fiona  Racheal,Jack 
Michelle Racheal 
Racheal  Fiona,Michelle 
Jack  Fiona 

ファイルBのトレンドは、キーに複数の値があり、各値がキーとなり、誰とグループ化されているのかを簡単に見つけることができます。ハッシュへ

1. ストアファイルAと：

   私は希望の出力は、生徒が先生に基づいて同様の教育を受ける可能性が高いだろう/ groups.So私は次の操作を実行するスクリプトを希望されています閉じる

2. ファイルBを開いて、各生徒が生徒を持っているかどうかを確認します（実際のリストはかなり大きくなります）。だから私は最初の教師、フィオナを取る場合、それは格納されているファイルを見て、フィオナがあるかどうかを確認するハッシュテーブル。存在する場合（この場合はNicoleとSherry）、それぞれを新しいキーとして新しいハッシュテーブルにポップします。

   while (<Group>) { 
       chomp; 
       $data=$_; 
       $data=~/^(\S+)\s+(.*)$/; 
       $TeacherA=$1; 
       $group=$2; 
   

3. 次に、フィオナ（Racheal、ジャック）でグループ化されている先生方のグループを見てください。一人で一人ずつ（Racheal）

   if (defined??) { 
       while ($list=~/(\w+)(.*)/) { 
        $TeacherB=$1; 
        $group=$2; 
   

4. Rachealの学生のためのファイルAを見てください。
5. 手順2で作成した学生キーの値（カンマ区切り）として入力します。

6. 学生 - 学生と教師 - 教師のグループを印刷します。

   Nicole Bobby,Dan,Nicole Fiona Racheal 
   Sherry Bobby,Dan,Nicole Fiona Racheal 
   

   フィオナのグループの次の先生、ジャックは生徒がいないので、彼はこの結果にはないでしょう。彼が持っていた場合、例えば、ダビデは、その結果は次のようになります。

   Nicole Bobby,Dan,Nicole Fiona Racheal 
   Sherry Bobby,Dan,Nicole Fiona Racheal 
   Nicole David    Fiona Jack 
   Sherry David    Fiona Jack 
   

私はこのような複雑な、特定の質問をするためにとても残念です。私はこのような何かをしている他の人が何らかのチャンスで答えを受けることを願っています。 ご協力いただきありがとうございます。あなたは私の唯一の助けの源です。

Answer 1

これはデータを見るのにはちょっと変わった方法ですが、私が試したやり方でうまくいくと思います。なぜデータをそのようにしたいのか興味深いでしょう。次回に列見出しを提供するかもしれません。あなたが何らかの形で何かをする理由を知ることは、それを実現する方法を考えるのがより簡単になることがよくあります。

これは私がしたことです。混乱しないでください。ファイルAとファイルBの値をスカラーに入れ、それらの値を読み込んだ部分を変更しました。

その後、「ファイル」を読み進めます。

Sherry Bobby,Dan,Nicole Fiona Racheal 
Nicole Bobby,Dan,Nicole Fiona Racheal 
Crystal Bobby,Dan,Nicole Michelle Racheal 
Bobby Crystal Racheal Fiona Michelle 
Nicole Crystal Racheal Fiona Michelle 
Dan Crystal Racheal Fiona Michelle 

これは私がすべての値を持っていないので、おそらく奇妙です：

# 1: Store file A in a hash 
my (%file_a); 
foreach my $a (split /\n/, $file_a) { 
    my @temp = split /\t/, $a; 
    $file_a{$temp[0]} = $temp[1]; 
} 

# 2: Go through file B 
foreach my $b (split /\n/, $file_b) { 
    my @line_b = split /\t/, $b; 
    # Look in stored file A if the teacher is there 
    if (exists $file_a{$line_b[0]}) { 
    my (%new_hash_table, @teachers); 
    # Put all the students of this teacher into a new hash 
    $new_hash_table{$_} = '' foreach split//, $file_a{$line_b[0]}; 

    # 3: Take one of the group of teachers who are grouped with the 
    # current teacher at a time 
    foreach my $teacher (split /,/, $line_b[1]) { 
     if (exists $file_a{$teacher}) { 
     # 4: This teacher from the group has students listen in file A 
     push @teachers, $teacher; # Store the teacher's name for print later 
     foreach (keys %new_hash_table) { 
      # 5: Fill the students as csv for the student keys from step 2 
      $new_hash_table{$_} = join(',', split(/ /, $file_a{$teacher})); 
     } 
     } 
    } 
    foreach my $student (keys %new_hash_table) { 
     # 6: Print...   
     print join("\t", 
     # Student-student relation 
     $student, $new_hash_table{$student}, 
     # Teacher-teacher relation 
     $line_b[0], @teachers); 
     print "\n"; 
    } 
    } 
} 

は私にとって、それは次のような出力を提供します。

とにかく、これにはいくつかのことがあります。

例のコードでは、$data=~/^(\S+)\s+(.*)$/;のような正規表現を使用して、単純な2列のリストの値を取得しました。これを行うにはsplit operatorを使うほうがずっと簡単です。

あなたは<FILEHANDLE>構文を使用してファイルから読み込むときに、あなたがあなたのラインがそうのようなwhileループの状態にに行きたいスカラを置くことができます。

while (my $data = <GROUP>) { 
     chomp $data 

はまた、それはファイルハンドルの名前を書くことcommonですオール・キャップで。

「Perlの学習」をご覧になることをお勧めします。ハッシュと配列の基本的な概念は、このようなタスクを処理するのに十分でなければなりません。お役に立てれば。

Answer 2

ファイルAを見て、誰が似たような教育を受けているのかを知るには、この冗長なデータが必要な理由を想像することはできませんが、ここではperl all同じ。

$data = {}; 
# pull in students 
open(IN, "students.txt"); 
while(my $line = <IN>) { 
    chomp($line); 
    my ($teacher, @students) = split(/\s+/,$line); 
    $data->{$teacher}->{students} = \@students; 
} 
close IN; 
# pull in teachers 
open(IN, "teachers.txt"); 
while(my $line = <IN>) { 
    chomp($line); 
    my ($teacher, $supporters) = split(/\s+/,$line); 
    my @supporters = split(/,/,$supporters); 
    $data->{$teacher}->{supporters} = \@supporters; 
} 
close IN; 
# make the output 
foreach my $teacher (keys %{$data}){ 
    foreach my $teacher_student (@{$data->{$teacher}->{students}}) { 
    foreach my $supporter (@{$data->{$teacher}->{supporters}}){ 
     my $num_supporter_students = @{$data->{$supporter}->{students}} + 0; 
     if($num_supporter_students) { 

     print "$teacher_student\t" . 
       join(",",@{$data->{$supporter}->{students}}) . 
       "\t$teacher\t$supporter\n"; 
     } 
    } 
    } 
} 

それが返す質問に記載されているデータ上で実行する場合：

Crystal Bobby,Dan,Nicole Michelle Racheal 
Nicole Bobby,Dan,Nicole Fiona Racheal 
Sherry Bobby,Dan,Nicole Fiona Racheal 
Bobby Nicole,Sherry Racheal Fiona 
Bobby Crystal Racheal Michelle 
Dan Nicole,Sherry Racheal Fiona 
Dan Crystal Racheal Michelle 
Nicole Nicole,Sherry Racheal Fiona 
Nicole Crystal Racheal Michelle