如何用Perl找到包括同样字母的单词

molliechan

我想用perl 找到包括同样字母的所有单词(或组合) 。
比如：Mary  找到 army; amry; amyr; mray;mayr; mrya ..... 在这个例子中就是把字母m, a, r, y 打乱顺序重新排列成一个组合。
考虑到 一个英文单词有两个字母以上（包括两个字母的），它的字母都会有不同的组合， 能不能用perl 写个code 找出一片文章中包括同样字母的所有单词(或组合) 。
如果我没说清楚，请留言，请见谅，我再解释：）谢谢大家帮忙！

jason680

回复 1# molliechan

1.多问少回,非礼也
  白手起家
  帖子    5
  主题    4

2. data
input data
output data
how to procedure or get the answer

ba_du_co

1. #!/usr/bin/perl
   
2. use 5.018;
   
3. 
   
4. sub search {
   
5.     my $file = shift;
   
6.     sub {
   
7.         my ( $word, %chars, %group ) = shift;
   
8.         @chars{ map lc, split //, $word } = ();
   
9.         my @chars = keys %chars;
   
10. 
    
11.         for my $line (@$file) {
    
12.             my @words = $line =~ /\w+/g;
    
13.             for my $WORD (@words) {
    
14.                 my $word = lc $WORD;
    
15.                 next if $word =~ /[^@chars]/;
    
16.                 my %check;
    
17.                 @check{ split //, $word } = ();
    
18.                 $group{$WORD}++ if keys %check == @chars;
    
19.             }
    
20.         }
    
21.         my @group = keys %group;
    
22.         @group ? @group : "[ $word: No Results Found ]";
    
23.       }
    
24. }
    
25. 
    
26. my $file   = [<DATA>];
    
27. my $google = search $file;
    
28. 
    
29. my @mary = $google->('mary');
    
30. say join ', ', @mary;
    
31. 
    
32. my @lego = $google->('lego');
    
33. say join ', ', @lego;
    
34. 
    
35. __DATA__
    
36. Cat act, python thypoon, thytoon action?
    
37. God said: This Dog is a Good Dog!
    
38. Mary, Larry, Henry, Ramy, Raramy and Rammy army go ray.
    
39. 
    
40. 
    
41. Weith ACT: "white wieth"!
    
42. write "google, lego, gole goel leo loge"...
    
43. Pugool, GOOGLES, geelog, gelleo.
    
44. loogee loople
    

复制代码

molliechan

谢谢你的回复。因为刚刚开始学习perl，还没太多能力能解决问题 。我努力学，希望能有能力多回复！

回复 2# jason680


   

MMMIX

回复 1# molliechan


    把每个单词中的字母排下序，然后再比较不就行了？

fender0107401

貌似可以抽象成一个聚类问题。

jason680

回复 4# molliechan

只问不回，非礼也.
http://bbs.chinaunix.net/thread-4125538-1-1.html
   

molliechan

谢谢提醒，下次注意 回复 7# jason680