如何在Perl数组中打印独特的元素？

发布时间：2020-12-15 21:23:23 所属栏目：大数据来源：网络整理

导读：我在while语句中将元素推入数组。每个元素是一个老师的名字。当循环结束时，数组中最后出现重复的教师名称。有时候，它们不是在数组中彼此相邻，有时它们是。在完成获取值后，如何只打印数组中的唯一值？每次我想打印一个元素时，不必解析整个数组。在所有

我在while语句中将元素推入数组。每个元素是一个老师的名字。当循环结束时，数组中最后出现重复的教师名称。有时候，它们不是在数组中彼此相邻，有时它们是。

在完成获取值后，如何只打印数组中的唯一值？每次我想打印一个元素时，不必解析整个数组。

在所有东西都被推入数组之后，

$faculty_len = @faculty;
$i=0;
while ($i != $faculty_len)
{
        printf $fh '"'.$faculty[$i].'"';
        $i++;
}

use List::MoreUtils qw/ uniq /;
my @unique = uniq @faculty;
foreach ( @unique ) {
    print $_,"n";
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!