[스크립트] 연속적으로 중복되는 필드 제거

#!/usr/bin/perl
 
use strict; use warnings;
 
my $val1 = "13074 13075 13076 13076 13076 13076";
my $val2 = "15050 15050 15051 15052 15053 15053";
my $val3 = "12051 12051 13051 15351 15053 15054";
 
my @list;
push(@list, $val1);
push(@list, $val2);
push(@list, $val3);
my $count;
$count = scalar @list;
print("push 된 총갯수: $count 개\n");
 
for(my $i=0; $i<$count; $i++)
{
    my @ar = split(' ', $list[$i]);    #pop(@list); pop()은 순서가 거꾸로 나온다.
 
    @ar = uniqueElements(@ar);
    print "$_ " foreach (@ar);
    print "\n";
}
 
 
 
my @T1;
$T1[0] = $val1;
$T1[1] = $val2;
$T1[2] = $val3;
$count = scalar @T1;
print("T1 총갯수: $count 개\n");
 
 
for(my $i=0; $i<$count; $i++)
{
    my @ar = split(' ', $T1[$i]);    #pop(@list); pop()은 순서가 거꾸로 나온다.
 
    @ar = uniqueElements(@ar);
    print "$_ " foreach (@ar);
    print "\n";
}
 
 
 
sub uniqueElements
{
    my($item, %seen, @result);
 
    foreach $item (@_)
    {
        push(@result, $item) unless $seen{$item}++;
    }
    return @result;
}