运维网's Archiver
论坛
›
Perl
› Perl去除数组中重复元素的两段代码
在水一万
发表于 2017-5-19 11:44:21
Perl去除数组中重复元素的两段代码
#!/usr/bin/perl
use warnings;
use strict;
use DBI;
my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 );
my %saw;
my @out=grep(!$saw{$_}++,@array);
print "@out\n";
页:
[1]
查看完整版本:
Perl去除数组中重复元素的两段代码