+ -
当前位置:首页 → 问答吧 → 请找错,谢谢!!

请找错,谢谢!!

时间:2010-08-05

来源:互联网

  1. #!/usr/bin/perl
  2. @array = {a,b,c,a,b,a,b,d,e,f};
  3. my %h;
  4. map{ ++$h{$_}} @array;

  5. print, keys %h;
  6. print, values %h;
复制代码
想用hash统计下字符频率,怎么打不出结果???

作者: chong232   发布时间: 2010-08-05

本帖最后由 兰花仙子 于 2010-08-05 10:27 编辑


QUOTE:
想用hash统计下字符频率,怎么打不出结果???
chong232 发表于 2010-08-05 10:24




    数组定义错了。
    map用法不宜。

作者: 兰花仙子   发布时间: 2010-08-05

  1. use strict;
  2. use Data::Dumper;

  3. my %h;
  4. my @array = qw(a b c a b a b d e f);
  5. $h{$_}++ for @array;

  6. print Dumper \%h;
复制代码
(1)不是什么地方都用map。
(2)use strict什么地方都要用。

作者: 兰花仙子   发布时间: 2010-08-05



QUOTE:
数组定义错了。
    map用法不宜。
兰花仙子 发表于 2010-08-05 10:26




    汗,,,数组定义错了,惭愧,谢谢仙子mm

作者: chong232   发布时间: 2010-08-05