Perl去掉数组中重复行的脚本,供大家学习参考。
#!/usr/bin/perl
use strict;
my %hash; my @array = (1..10,5,20,2,3,4,5,5); #grep 保存符合条件的元素 @array = grep { ++$hash{$_} < 2 } @array;
CopyRight © 2010-2021 脚本学堂 Jb200.com , All Rights Reserved.