Perl快速进行数组取最大值，最小值以及去重

曼曼花开缓缓归矣

于 2022-09-21 14:16:03 发布

阅读量1.8k

点赞数 1

CC 4.0 BY-SA版权

分类专栏：生信文章标签： perl 开发语言

本文链接：https://blog.csdn.net/mmhuakai/article/details/126971867

生信专栏收录该内容

15 篇文章

订阅专栏

本文介绍如何使用Perl语言处理数组的基本操作，包括获取数组的最大值、最小值及去除重复元素的方法。通过具体示例代码展示了如何利用Perl内置模块实现这些功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

我们在使用perl处理数据的时候，最经常用到的则是对数组取最大最小值，以及去重复。

一般采用下面的代码进行操作：

use strict;
use List::MoreUtils ':all';
use List::Util qw/max
min/;

my @arr=c(1,1,2,2,3,4,5,5,5,6,7,8,9,9,10);
my $max=max @arr; ## 取最大值
my $min=min @arr; ## 取最小值
my @uniq=uniq @arr; ## 数组去重复

print "Max:\t$max\n";
print "Min:\t$min\n";
print join";",@uniq;