在水一万 发表于 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去除数组中重复元素的两段代码