创建组并从输入文件添加对象答案

【问题标题】：create groups and add object from input file创建组并从输入文件添加对象
【发布时间】：2016-08-18 08:33:13
【问题描述】：

我是 perl 编程的新手并热衷于学习它，我需要从下面的示例文件中提取一些数据。文件“test.txt”的内容是多个组和对象，但每行添加。

设置组地址 Group1 添加 XYZ1
设置组地址 Group1 添加 XYZ2
设置组地址 Group2 添加 XYZ1
设置组地址 Group2 添加 XYZ4
设置组地址 Group2 添加 XYZ4
设置组地址 Group3 添加 XYZ5

我需要将以上内容转换为行，

Group-name Group1 添加成员 XYZ1, XYZ2
组名 Group2 添加成员 XYZ1、XYZ4、XYZ5
组名 Group1 添加成员 XYZ4、XYZ5

对我来说，逻辑可能是
1.循环读取数组中的每一行，
2. 存储组名和归档在一个变量中
3.比较组变量，如果相同的连接字段变量。

如果有人可以纠正逻辑并帮助我，那将非常有帮助。提前欣赏。

问候，

桑迪普

【问题讨论】：

标签： arrays perl

【解决方案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.
};

【讨论】：