这道哈希编程应该怎么编，求助！！

alen0826

请用电话上字母和数字的对应关系来来实现字母到数字的转换.
举个例子:
        输入help,输出应为4357.

ulmer

原帖由 alen0826 于 2009-12-12 22:42 发表
请用电话上字母和数字的对应关系来来实现字母到数字的转换.
举个例子:
        输入help,输出应为4357.

Sample code for learning Perl step by step:

1. 
   
2. use strict;
   
3. 
   
4. # create a hash for telefonkey's number and alphabet
   
5. my %handykeys_num2chars = (
   
6.     2 => 'abc',
   
7.     3 => 'def',
   
8.     4 => 'ghf',
   
9.     5 => 'jkl',
   
10.     6 => 'mno',
    
11.     7 => 'qprs',
    
12.     8 => 'tuv',
    
13.     9 => 'wxyz',
    
14. );
    
15. 
    
16. my $word = 'ChinaUnix';    # i.e.: find related fon key's number from this word
    
17. my $result_num  = '';
    
18. 
    
19. foreach my $char (split '', $word)    // Split word in one char
    
20. {
    
21.     # loop defined hash   
    
22.     foreach my $key_num (sort keys %handykeys_num2chars) {
    
23.         # using regex to match the char and get related number
    
24.         if ($handykeys_num2chars{$key_num} =~ /$char/i) {
    
25.             $result_num .= $key_num;    # put the found number together.
    
26.         }
    
27.     }
    
28. }
    
29. # print result
    
30. print "$word => $result_num\n";
    

复制代码

ttcn_cu

仙子大人发飙了。收回前面的map，改回foreach

1. foreach my $h ('a','b','d','g','j','m','p','t','w'){
   
2.         ++$i;
   
3.         $key{$_}=$i foreach $h..'z';  
   
4. }
   
5. while ($ARGV[0]=~/./g){
   
6. print $key{$&};
   
7. }

复制代码

Perl_Er

先学了再问, 没有学就来问是白问

ttcn_cu

map{$key{$_}=2} 'b'..'c';
等价于
$key{'b'}=2;
$key{'c'}=2;

代码改的简洁一点。。。

1. 
   
2. foreach my $h ('a','b','d','g','j','m','p','t','w'){
   
3.         ++$i;
   
4.         map {$key{$_}=$i} $h..'z';  
   
5. }
   
6. while ($ARGV[0]=~/./g){
   
7. print $key{$&};
   
8. }

复制代码

[ 本帖最后由 ttcn_cu 于 2009-12-13 00:16 编辑 ]

alen0826

map是什么意思
map{$key{$_}=1} 'a'; 是什么意思呢？
我还没学到map这个功能吧

ttcn_cu

明明用了哈希了啊，还要那种？？？

alen0826

非常希望哪位高手能用哈希结构写出来，我可以边看边对照学习，谢谢！

ttcn_cu

1. #!/usr/bin/perl -w
   
2. 
   
3. my %key;
   
4. map{$key{$_}=1} 'a';
   
5. map{$key{$_}=2} 'b'..'c';
   
6. map{$key{$_}=3} 'd'..'f';
   
7. map{$key{$_}=4} 'g'..'i';
   
8. map{$key{$_}=5} 'j'..'l';
   
9. map{$key{$_}=6} 'm'..'o';
   
10. map{$key{$_}=7} 'p'..'s';
    
11. map{$key{$_}=8} 't'..'u';
    
12. map{$key{$_}=9} 'w'..'z';
    
13. while ($ARGV[0]=~/./g){
    
14. print $key{$&};
    
15. }

复制代码

纯当map练习作业

alen0826

我是新手，希望用哈希结构来写，不用先定义下哈希结构吗？比如说2和ABC相对应，3和DEF相对应
例子里的意思是在电话机上h对应4，e对应3，l对应5，p对应7 （大小写可以忽略）

[ 本帖最后由 alen0826 于 2009-12-12 23:32 编辑 ]