Making a perl array unique - arrays

Question

I am currently having a very simple problem with capturing the output from a backticked shell command. I apologize that the problem is rather simple.
I have some sorted array (#valid_runs) which I know contains consecutive, duplicate elements. I want to use backticks to echo this array to uniq. I want to capture the STDOUT in an array. I attempt to do so like this.
#unique_valids = `echo '#valid_runs' | uniq`;
print #unique_valids;
This print statement yields nothing. For that matter neither does this.
#unique_valids = `echo '#valid_runs'`;
print #unique_valids;
I know how to use uniq and echo. This seems rather odd to me. I would think this has more to do with perl arrays than proper use of those commands. I have searched around a bit elsewhere, so please don't pelt me with downvotes just because the solution might seem trivial. Thanks again for your time.
NOTE on solutions:
TLP's solution is the most straightforward as far handling the uniq problem. I am being rather flexible, since all responses suggested not making a system call for this problem. If Perl's uniq function the same as Unix's uniq then the array ought to remain sorted.
John Corbett's solution works well if you don't care about a sorted result.

Answer 1

Using system calls for something that can easily be accomplished with perl code is not a good idea. The module List::MoreUtils has a uniq function that does what you require:
use List::MoreUtils qw(uniq);
my #unique = uniq #runs;
The subroutine inside the module itself is very simple, though, exactly like theglauber's answer:
sub uniq (#) {
my %seen = ();
grep { not $seen{$_}++ } #_;
}

Answer 2

you should just store the array into a hash, because hash keys are always unique. You can do that like this:
my %temp_hash = map { $_ => 1 } #valid_runs;
my #unique_valids = keys %temp_hash;
that's the perl way of doing it anyway. There's no need to use back tics here (I try to avoid those as much as I can).

Answer 3

It's easy to do this in perl. Here's a rather obscure but fun way to dedup an array:
#dedup = grep !$seen{$_}++ #orig_array;
Figure out what this is doing by checking the documentation for the perl function grep.
If you have to use uniq, you probably need to put each array element in a separate line.
join("\n", #your_array)
should achieve that.

Answer 4

#!/usr/bin/perl
use warnings;
#a = (1, 2, 3, 3, 4, 4, 5);
$cmd = "/usr/bin/uniq <<EOF\n";
$cmd .= $_."\n" foreach (#a);
$cmd .= "EOF\n";
$result = `$cmd`;
print "Cmd: $cmd\n";
print "Result is $result";
#u = split /\n/,$result;
print "After ",join " ",#u,"\n";
This does what you ask, but theglauber's answer is still better Perl.