{"id":2421,"date":"2017-12-08T10:06:56","date_gmt":"2017-12-08T10:06:56","guid":{"rendered":"http:\/\/www.scmgalaxy.com\/tutorials\/?p=2421"},"modified":"2025-02-01T23:08:08","modified_gmt":"2025-02-01T23:08:08","slug":"remove-the-duplicate-data-from-array-using-perl","status":"publish","type":"post","link":"https:\/\/www.devopsschool.com\/blog\/remove-the-duplicate-data-from-array-using-perl\/","title":{"rendered":"Remove the duplicate data from array using perl"},"content":{"rendered":"

rajeshkumar created the topic: Remove the duplicate data from array using perl<\/strong><\/p>\n

Remove the duplicate data from array using perl<\/p>\n

Method 1
\n============================================
\nsub uniqueentr
\n{
\n return keys %{{ map { $_ => 1 } @_ }};
\n}<\/p>\n

@array = (\"perl\",\"php\",\"perl\",\"asp\u201d);<\/p>\n

print join(\" \", @array), \"\\n\";
\nprint join(\" \", uniqueentr(@array)), \"\\n\";<\/code><\/p>\n

Method 2
\n============================================
\nsub uniq {
\n return keys %{{ map { $_ => 1 } @_ }};
\n}<\/p>\n

@my_array = (\"one\",\"two\",\"three\",\"two\",\"three\");
\nprint join(\" \", @my_array), \"\\n\";
\nprint join(\" \", uniq(@my_array)), \"\\n\";<\/code><\/p>\n

Method 3
\n============================================
\nsub uniq2 {
\n my %seen = ();
\n my @r = ();
\n foreach my $a (@_) {
\n unless ($seen{$a}) {
\n push @r, $a;
\n $seen{$a} = 1;
\n }
\n }
\n return @r;
\n}
\n@my_array = (\"one\",\"two\",\"three\",\"two\",\"three\");
\nprint join(\" \", @my_array), \"\\n\";
\nprint join(\" \", uniq2(@my_array)), \"\\n\";<\/code><\/p>\n

Method 4
\n============================================
\nmy %unique = ();
\nforeach my $item (@myarray)
\n{
\n $unique{$item} ++;
\n}
\nmy @myuniquearray = keys %unique;<\/code><\/p>\n

Method 5
\n============================================
\nsub duplicate {
\n my @args = @_;
\n my %items;
\n for my $element(@args) {
\n $items{$element}++;
\n }
\n return grep {$items{$_} > 1} keys %items;
\n}<\/code><\/p>\n

Method 6
\n============================================
\n#! \/usr\/bin\/perl -w<\/p>\n

use strict;<\/p>\n

sub uniq{
\n my %temp_hash = map { $_, 0 } @_;
\n return keys %temp_hash;
\n}<\/p>\n

my @test_array = qw\/ 1 3 2 4 3 2 4 7 8 2 3 4 2 3 2 3 2 1 1 1 \/;
\nmy @uniq_array = uniq(@test_array);
\nprint \"@uniq_array\\n\";<\/code><\/p>\n

Method 7
\n============================================
\n%seen=();
\n@unique = grep { !$seen{$_} ++ } @array;<\/code><\/p>\n

Method 8
\n============================================
\nmy @in=qw(1 3 4 6 2 4 3 2 6 3 2 3 4 4 3 2 5 5 32 3); #Sample data
\nmy @out=keys %{{ map{$_=>1}@in}}; # Perform PFM
\nprint join ' ', sort{$a<=>$b} @out;# Print data back out sorted and in order.<\/code><\/p>\n

Reference:
\nDifferent Source of Google Search<\/p>\n

Regards,
\nRajesh Kumar
\nTwitt me @ twitter.com\/RajeshKumarIn<\/p>\n","protected":false},"excerpt":{"rendered":"

rajeshkumar created the topic: Remove the duplicate data from array using perl Remove the duplicate data from array using perl Method 1 ============================================ sub uniqueentr { return keys %{{ map { $_ => 1 } @_ }}; } @array = (“perl”,”php”,”perl”,”asp\u201d); print join(” “, @array), “\\n”; print join(” “, uniqueentr(@array)), “\\n”; Method 2 ============================================ sub…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_kad_post_transparent":"","_kad_post_title":"","_kad_post_layout":"","_kad_post_sidebar_id":"","_kad_post_content_style":"","_kad_post_vertical_padding":"","_kad_post_feature":"","_kad_post_feature_position":"","_kad_post_header":false,"_kad_post_footer":false,"_kad_post_classname":"","_joinchat":[],"footnotes":""},"categories":[14],"tags":[175],"class_list":["post-2421","post","type-post","status-publish","format-standard","hentry","category-perl","tag-perl"],"_links":{"self":[{"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/posts\/2421","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/comments?post=2421"}],"version-history":[{"count":1,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/posts\/2421\/revisions"}],"predecessor-version":[{"id":2422,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/posts\/2421\/revisions\/2422"}],"wp:attachment":[{"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/media?parent=2421"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/categories?post=2421"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/tags?post=2421"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}