摘要:
1 去除一个数组中的重复元素:使用grep函数代码片段: 代码:my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 ); my %count; my @uniq_times = grep { ++$count{ $_ } $max; }知道的这样搞:use List::Util qw(max);my $max_num = max( 0 .. 1000 );知道的他们还这样搞: use List::Util qw(maxstr);my $max_str = max 阅读全文
posted @ 2013-06-26 22:32
iTech
阅读(4778)
评论(0)
推荐(0)