Remove duplicates

[perlnoobster]

Hi perl monks, I'm attempting to remove duplicates:

 

my (@Category_Link)=$main_page=~m!<a href="http://www.testsite.co.uk/i
+tm/(.+?)"!sg;


for my $temp_page (@Category_Link)
{

my @uniq = grep $temp_page{$_}++, @Category_Link;


print OUT "http://www.testsite.co.uk/itm/$temp_page\n";
}

I am fairly new to perl and learning slowly but surely, but can't figure it out please can someone help? Thank you

[marto]

How can I remove duplicate elements from a list or array? from perlfaq4.

[choroba]

Use strict. $temp_page is different from %temp_page.

You can use uniq from List::MoreUtils. Or, make your own:

sub uniq {
    my %tmp;
    undef @tmp{@_};
    return keys %tmp;
}
my (@Category_Link)
    = uniq($main_page =~ m!<a href="http://www.testsite.co.uk/itm/(.+?
+)"!sg);

Update: Usage line added.

[Anonymous Monk]

Hi perl monks, I'm attempting to remove duplicates:

:) And the problem is?

What happens when you employ Basic debugging checklist or brian's Guide to Solving Any Perl Problem ? What is the Dumper output? Where does the problem occur?