假如有这样的一段序列:1 2 1 2 2 1 1 3 1 4 1 5 4 1 我们需要得到如下的结果:1 3 1 5 2 1 4 1 那么,请借助以下的perl脚本来实现. 代码一: 复制代码 代码如下: #!/bin/perluse strict; use warnings; my $filename; my %hash; my @information; my $key1; my $key2; print "please put in the file lik
数组|重复 <% '======================================'作者:阿里西西'时间:2005.12.20'作用:去除数组中重复的项'======================================Function MoveR(Rstr) Dim i,SpStr SpStr = Split(Rstr,",") For i = 0 To Ubound(Spstr) If I = 0 then MoveR = MoveR &