大侠帮忙改改代码啦

昭襄王

初学，试着写了个，感觉那个$i比较多余，能用$.吗？

1. @test_set = qw/ACDE ADEF DEFG EFGH/;
   
2. for (@test_set){
   
3.   @c = split //;
   
4.   $i = 0;
   
5.   for $x (@c){
   
6.     $hash{$x.$i}++;
   
7.     $i++;
   
8.   }
   
9. }
   
10. for $key (keys %hash){
    
11.   print "$key=$hash{$key}\n";
    
12. }

复制代码

昭襄王

回复  昭襄王

$.用在文件句柄里····不要唔会了··
wfnh 发表于 2010-12-02 16:48

    哦，明白了，多谢！

昭襄王

回复 7# wfnh


    审题不认真，不单纯是统计字母
统计字母在不同字符串中的同一位置
./pl025
E0=1
D2=1
G3=1
E1=1
D1=1
C1=1
D0=1
G2=1
E2=1
F2=1
F3=1
A0=2
F1=1
H3=1
E3=1

昭襄王

perl -ne 'chomp; $i=0;s/(\w)/$1 . $i++ . " "/ge; @str=split(/ /); map{$_, $test{$_}++} @str; END{for ...
小鹭 发表于 2010-12-02 17:12

    很霸道的想法。学习。