求助，写perl 对数据分组，归类

赛萌

A        B        C       
C        A        B        D
D        F               
E        Z               
G        K               
K        M               
KK        CC               
M        P       
在一行的字母表示他们之间有联系，属于一个种类，要求是把属于一个种类的字母输出到一个大的数组中，得到的结果应该是：
A B C D F
E Z
G K M P
KK CC
求助怎么用perl脚本实现这个
   

MMMIX

回复 1# 赛萌


    每一个类设个 hash，然后逐行检查其中的成员属于哪个类就是了。

赛萌

回复 2# MMMIX


    这只是个例子，要是遇到了很多个，会得到很多类，那怎么还给每个类设一个哈希啊？？

MMMIX

回复 3# 赛萌


    Perl 又不是只能定义一个 hash，你弄个 array 其每个成员都是个 hash (reference) 不就完了？你这个例子中就已经有好多个类了。

赛萌

回复 4# MMMIX


    好吧，我可能真不适合学perl 哎，女生学程序是不是都需要很聪明啊，并且本科都没有学过程序，现在工作，完全跨专业，人家比我晚来一个月的男生都会自己写perl脚本了，我都三个月了还不会写

MMMIX

回复 5# 赛萌


    不用心，不努力，那肯定是啥也学不好，这和男女无关。

赛萌

回复 6# MMMIX
噢

   

nanshanjin

你什么专业？回复 5# 赛萌


   

赛萌

回复 8# nanshanjin
物理学专业还是师范类的，怎么了？

   

104359176

写这个程序分两步，第一步，将文本解析成一个数据结构，第二步，计算数据结构之间的联系。

写代码前要考虑清楚这个问题的实质：这个问题的实质就是路径搜索，这是一种基本的问题，好像一个迷宫，一条记录就好像连接在一起的出口，找到所有连接在一起的出口，就是问题的答案。

第一步，读入文件，将字符拆开，用适合的数据结构保存这些值。这一步通常耗费大量的代码，但逻辑比较简单，使用模块比较方便：

1. use 5.020;
   
2. use File::Slurp qw(read_file);
   
3. 
   
4. # 把文件按行读入，保存在一个列表中
   
5. my @lines = read_file('file_name');
   
6. 
   
7. # 提前声明一个数据结构
   
8. my %records;
   
9. 
   
10. # 按照行逐行处理
    
11. for my $line (@lines) {
    
12.   # 剔除行末的字符
    
13.   chomp $line;
    
14.   # 将字符拆分成一个一个字母
    
15.   my @chars = split(/\s+/, $line);
    
16.   # 将这条记录起一个名字，还能查询里面的东西
    
17.   # $chars[0] 是第一个字符
    
18.   # @chars[ 1 .. $#chars ] 是剩下的字符数组
    
19.   $records->{ $chars[0] } = @chars[1..$#chars];
    
20. }
    
21. 
    

复制代码

其实这类问题早就有人解决过千万次，做成一个模块，用一个函数搞定完全可以的。

后面的步骤，尝试自己解决一下。