Remove duplicates

perlnoobster has asked for the wisdom of the Perl Monks concerning the following question:

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";
}
[download]

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

Comment on Remove duplicates Download Code

Replies are listed 'Best First'.
Re: Remove duplicates by marto (Cardinal) on Nov 15, 2012 at 09:20 UTC
How can I remove duplicate elements from a list or array? from perlfaq4.	[reply]
Re: Remove duplicates by choroba (Cardinal) on Nov 15, 2012 at 09:21 UTC
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);` [download] Update: Usage line added. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l] [select]
Re: Remove duplicates by Anonymous Monk on Nov 15, 2012 at 09:23 UTC
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?	[reply]