求大神教教小白 - perl吧 - RAT

求大神教教小白

level 5

叻叻Andy 楼主

有一个有串50个数字的数组@numbers，然后按升序排列，有重复，然后要给这些数字拍名，从1..n，这里是不是应该用哈希键值对应，然后小白完全不知道怎么构建哈希。。。求解答！ [泪]

[泪]

2016年05月18日 11点05分 1

level 5

我随便写了个数组，你可以修改修改一下
use v5.14;
my @array = (1,34,12,4,234,52,45,2,6234,4);
my %count;
my @unique = grep { ++$count{$_} < 2 } @array;
my @array_new =sort { $b <=> $a }(@unique);
my $x;
for $x (@array_new)
{
print "$x\n";
}

2016年05月20日 01点05分 2

叻叻Andy

谢谢谢谢~

2016年05月21日 02点05分

贴吧用户_58aDZQ9

:百【}~思~必~达~学~院~】里面有专业的视频教程，从入门到深入，都讲解的挺详细的，你们可以参考一下

2019年12月25日 08点12分

level 6

learning Perl 看一遍啊， 200多页。

2016年05月20日 14点05分 3

LLGGQQ188

在吗

2020年02月24日 11点02分

level 1

wxlfh

人家只是要求排序，又没有要求去重，呵呵
my @array = (1..9,4,6,3,7,9);
@array = sort { $a <=> $b } @array;
print "$_\n" for @array;

2016年05月22日 03点05分 4

LLGGQQ188

在吗？

2020年02月24日 11点02分

level 4

wu681562

免费的模板去哪里下载啊？

2020年01月17日 16点01分 13

level 2

PC_sunny

小白想学美工，应该要怎么入手学？

2020年02月09日 05点02分 18

level 5

utuBwQ9OP5

up

2020年02月19日 10点02分 20

1 2 3 4 5 6 尾页