#直接上代码
#!usr/bin/perl -w
use strict;
my @array1 = (1 … 15);
my @array2 =(5 … 20);
print " @array1\n";
print " @array2\n";
my %h = ();
++$h{$_} foreach ( @array1, @array2 );
my @array3 = sort keys %h;
print “@array3\n”;
运行结果:
#效果与以下等价
#!usr/bin/perl -w
use strict;
my @array1 = (1 … 15);
my @array2 =(5 … 20);
print " @array1\n";
print " @array2\n";
my %h=();
foreach(@array1,@array2){
$h{$_} ++;
}
my @array3 =sort keys(%h);
print “@array3\n”;