2016-08-18 9 views
0

私は、perlプログラミングの初心者であり、それを学びたいと思っています。 下のサンプルファイルからいくつかのデータを抽出する必要があります。ファイル "test.txt"の内容は複数のグループとオブジェクトですが、行ごとに追加されます。グループを作成して入力ファイルからオブジェクトを追加する

セットグループアドレスグループ1 セットグループアドレスグループ1はXYZ2
を追加 セットグループアドレスグループ2はグループ2はグループ2はXYZ4
セットグループアドレスグループ3はXYZ5を追加XYZ4
セットグループアドレスを追加XYZ1
セットグループアドレスを追加XYZ1
を追加私はラインに上記を変換する必要が


グループ名グループ1のメンバーを追加XYZ1、XYZ2
グループ名グループ2は、XYZ1、XYZ4、XYZ5
グループ名グループ1は論理アレイ内の各ラインを読むために
1.ループ可能性があり、私のためにメンバーXYZ4、XYZ5

を追加するメンバーを追加します、
2.ストアグループ名と変数に格納されたフィールド
3.同じ連結フィールド変数の場合は、グループ変数を比較します。

ロジックを修正して私を助けることができれば、本当に役に立ちます。 事前に感謝します。

よろしく、

サンディープ

答えて

1

あなたはPerlを使用していて、「ユニーク」または「グループ化」のようなものを聞くと - 非常に可能性が高いそれはハッシュテーブルのためのジョブが別名連想配列です:

use warnings; 
use strict; 

my %hash; 
while (<>) { 
    # .... extract key & value from your data 
    $hash{$unique_key} .= " ".$added_value; 
} 
# ... 

foreach (keys %hash) { 
    do_something($_, $hash{$_}); 
    # this will be the key and all the 
    # corresponding values combined. 
}; 
関連する問題