Remove duplicates


Keep It Simple, Stupid
	PerlMonks

Remove duplicates

by perlnoobster (Sexton)

on Nov 15, 2012 at 09:17 UTC ( #1003972=perlquestion: print w/ replies, xml )

Need Help??

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
Re: Remove duplicates by marto (Chancellor) 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 (Prior) 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]

Back to Seekers of Perl Wisdom

Node Status^?

node history
Node Type: perlquestion [id://1003972]
Approved by Old_Gray_Bear
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others about the Monastery: (19)

As of 2013-06-19 16:02 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

How many continents have you visited?

Results (659 votes), past polls