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

alen0826

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

Perl_Er

%phone_book
$phone_book{help} = 4357

input: $key
then,
if( exists($phone{$key}) ) {
       print $phone{help}
}

[ 本帖最后由 Perl_Er 于 2009-12-12 22:58 编辑 ]

alen0826

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

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

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

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

ttcn_cu

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

alen0826

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

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 编辑 ]

Perl_Er

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

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. }

复制代码