统计一个数组中相同元素的个数怎么实现啊？

lingting

UID: 1898
帖子: 2
积分: 4
在线时间: 10 分钟

1^# lingting 发表于 2007-08-07 15:54

统计一个数组中相同元素的个数怎么实现啊？

统计一个数组中相同元素的个数怎么实现啊？
一个数组的结构是
1 2 2 3 3 3 1 2 3这样
我想知道有几个1　几个2　几个3怎么做比较合适啊？

wwkj_wang

UID: 9186
帖子: 183
积分: 420
在线时间: 1 天 21 小时

2^# wwkj_wang 发表于 2007-08-07 16:30

应该要用for循环吧.

hangring

UID: 45547
帖子: 12
积分: 27
在线时间: 10 分钟

3^# hangring 发表于 2007-08-07 16:42

一年前在www.perlchina.co.
一年前在www.perlchina.org首页的链接里能找到一篇有讨论的这个问题的文章里面有几个人在讨论但是似乎找不到了
不过，下面的文章对你应该有帮助，虽然没有恰好符合你的问题，但已经很相似了

grep 函数介绍
http://www.perlchina.org/archive/archive.php?action=archive&page=53

lingting

UID: 1898
帖子: 2
积分: 4
在线时间: 10 分钟

4^# lingting 发表于 2007-08-08 13:08

哦，一位朋友说用map很快的，我记不起来了

lingting

UID: 1898
帖子: 2
积分: 4
在线时间: 10 分钟

5^# lingting 发表于 2007-08-08 13:13

谢谢hangring，我想起一点.
谢谢hangring，我想起一点来了，如果不用匿名hash直接赋值给一个hash再输出就可以了，我去查一下map函数去

uliyas

UID: 4395
帖子: 91
积分: 209
在线时间: 11 小时

6^# uliyas 发表于 2007-08-08 13:37

map { $result{$_}++ } qw.
map { $result{$_}++ } qw(1 1 2 2 2 3);

%result就是你要的东西