{"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":"2021-02-27T09:22:07","modified_gmt":"2021-02-27T09:22:07","slug":"remove-the-duplicate-data-from-array-using-perl","status":"publish","type":"post","link":"https:\/\/www.scmgalaxy.com\/tutorials\/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 […]<\/p>\n","protected":false},"author":4,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_joinchat":[],"footnotes":""},"categories":[489],"tags":[175],"class_list":["post-2421","post","type-post","status-publish","format-standard","hentry","category-perl-script","tag-perl"],"yoast_head":"\nRemove the duplicate data from array using perl - scmGalaxy<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/www.scmgalaxy.com\/tutorials\/remove-the-duplicate-data-from-array-using-perl\/\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Remove the duplicate data from array using perl - scmGalaxy\" \/>\n<meta property=\"og:description\" content=\"rajeshkumar created the topic: Remove the duplicate data from array using perl Remove the duplicate data from array using perl […]\" \/>\n<meta property=\"og:url\" content=\"https:\/\/www.scmgalaxy.com\/tutorials\/remove-the-duplicate-data-from-array-using-perl\/\" \/>\n<meta property=\"og:site_name\" content=\"scmGalaxy\" \/>\n<meta property=\"article:published_time\" content=\"2017-12-08T10:06:56+00:00\" \/>\n<meta property=\"article:modified_time\" content=\"2021-02-27T09:22:07+00:00\" \/>\n<meta name=\"author\" content=\"scmgalaxy K\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Written by\" \/>\n\t<meta name=\"twitter:data1\" content=\"scmgalaxy K\" \/>\n\t<meta name=\"twitter:label2\" content=\"Est. reading time\" \/>\n\t<meta name=\"twitter:data2\" content=\"1 minute\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/www.scmgalaxy.com\\\/tutorials\\\/remove-the-duplicate-data-from-array-using-perl\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/www.scmgalaxy.com\\\/tutorials\\\/remove-the-duplicate-data-from-array-using-perl\\\/\"},\"author\":{\"name\":\"scmgalaxy K\",\"@id\":\"https:\\\/\\\/www.scmgalaxy.com\\\/tutorials\\\/#\\\/schema\\\/person\\\/fc12ad190f540e79460243c81148d102\"},\"headline\":\"Remove the duplicate data from array using perl\",\"datePublished\":\"2017-12-08T10:06:56+00:00\",\"dateModified\":\"2021-02-27T09:22:07+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/www.scmgalaxy.com\\\/tutorials\\\/remove-the-duplicate-data-from-array-using-perl\\\/\"},\"wordCount\":50,\"commentCount\":0,\"keywords\":[\"Perl\"],\"articleSection\":[\"Perl Script\"],\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/www.scmgalaxy.com\\\/tutorials\\\/remove-the-duplicate-data-from-array-using-perl\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/www.scmgalaxy.com\\\/tutorials\\\/remove-the-duplicate-data-from-array-using-perl\\\/\",\"url\":\"https:\\\/\\\/www.scmgalaxy.com\\\/tutorials\\\/remove-the-duplicate-data-from-array-using-perl\\\/\",\"name\":\"Remove the duplicate data from array using perl - scmGalaxy\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/www.scmgalaxy.com\\\/tutorials\\\/#website\"},\"datePublished\":\"2017-12-08T10:06:56+00:00\",\"dateModified\":\"2021-02-27T09:22:07+00:00\",\"author\":{\"@id\":\"https:\\\/\\\/www.scmgalaxy.com\\\/tutorials\\\/#\\\/schema\\\/person\\\/fc12ad190f540e79460243c81148d102\"},\"breadcrumb\":{\"@id\":\"https:\\\/\\\/www.scmgalaxy.com\\\/tutorials\\\/remove-the-duplicate-data-from-array-using-perl\\\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/www.scmgalaxy.com\\\/tutorials\\\/remove-the-duplicate-data-from-array-using-perl\\\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/www.scmgalaxy.com\\\/tutorials\\\/remove-the-duplicate-data-from-array-using-perl\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/www.scmgalaxy.com\\\/tutorials\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Remove the duplicate data from array using perl\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/www.scmgalaxy.com\\\/tutorials\\\/#website\",\"url\":\"https:\\\/\\\/www.scmgalaxy.com\\\/tutorials\\\/\",\"name\":\"scmGalaxy\",\"description\":\"A Platform for Software Engineers\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/www.scmgalaxy.com\\\/tutorials\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"en-US\"},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/www.scmgalaxy.com\\\/tutorials\\\/#\\\/schema\\\/person\\\/fc12ad190f540e79460243c81148d102\",\"name\":\"scmgalaxy K\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/4b902ea8c77ee0a326c112f29d0edf51b7c3e1cd05c4fb92a810177e9c3f12a9?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/4b902ea8c77ee0a326c112f29d0edf51b7c3e1cd05c4fb92a810177e9c3f12a9?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/4b902ea8c77ee0a326c112f29d0edf51b7c3e1cd05c4fb92a810177e9c3f12a9?s=96&d=mm&r=g\",\"caption\":\"scmgalaxy K\"},\"sameAs\":[\"http:\\\/\\\/www.DevOpsSchool.com\"],\"url\":\"https:\\\/\\\/www.scmgalaxy.com\\\/tutorials\\\/author\\\/scmgalaxy\\\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"Remove the duplicate data from array using perl - scmGalaxy","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/www.scmgalaxy.com\/tutorials\/remove-the-duplicate-data-from-array-using-perl\/","og_locale":"en_US","og_type":"article","og_title":"Remove the duplicate data from array using perl - scmGalaxy","og_description":"rajeshkumar created the topic: Remove the duplicate data from array using perl Remove the duplicate data from array using perl […]","og_url":"https:\/\/www.scmgalaxy.com\/tutorials\/remove-the-duplicate-data-from-array-using-perl\/","og_site_name":"scmGalaxy","article_published_time":"2017-12-08T10:06:56+00:00","article_modified_time":"2021-02-27T09:22:07+00:00","author":"scmgalaxy K","twitter_card":"summary_large_image","twitter_misc":{"Written by":"scmgalaxy K","Est. reading time":"1 minute"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/www.scmgalaxy.com\/tutorials\/remove-the-duplicate-data-from-array-using-perl\/#article","isPartOf":{"@id":"https:\/\/www.scmgalaxy.com\/tutorials\/remove-the-duplicate-data-from-array-using-perl\/"},"author":{"name":"scmgalaxy K","@id":"https:\/\/www.scmgalaxy.com\/tutorials\/#\/schema\/person\/fc12ad190f540e79460243c81148d102"},"headline":"Remove the duplicate data from array using perl","datePublished":"2017-12-08T10:06:56+00:00","dateModified":"2021-02-27T09:22:07+00:00","mainEntityOfPage":{"@id":"https:\/\/www.scmgalaxy.com\/tutorials\/remove-the-duplicate-data-from-array-using-perl\/"},"wordCount":50,"commentCount":0,"keywords":["Perl"],"articleSection":["Perl Script"],"inLanguage":"en-US","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/www.scmgalaxy.com\/tutorials\/remove-the-duplicate-data-from-array-using-perl\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/www.scmgalaxy.com\/tutorials\/remove-the-duplicate-data-from-array-using-perl\/","url":"https:\/\/www.scmgalaxy.com\/tutorials\/remove-the-duplicate-data-from-array-using-perl\/","name":"Remove the duplicate data from array using perl - scmGalaxy","isPartOf":{"@id":"https:\/\/www.scmgalaxy.com\/tutorials\/#website"},"datePublished":"2017-12-08T10:06:56+00:00","dateModified":"2021-02-27T09:22:07+00:00","author":{"@id":"https:\/\/www.scmgalaxy.com\/tutorials\/#\/schema\/person\/fc12ad190f540e79460243c81148d102"},"breadcrumb":{"@id":"https:\/\/www.scmgalaxy.com\/tutorials\/remove-the-duplicate-data-from-array-using-perl\/#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/www.scmgalaxy.com\/tutorials\/remove-the-duplicate-data-from-array-using-perl\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/www.scmgalaxy.com\/tutorials\/remove-the-duplicate-data-from-array-using-perl\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/www.scmgalaxy.com\/tutorials\/"},{"@type":"ListItem","position":2,"name":"Remove the duplicate data from array using perl"}]},{"@type":"WebSite","@id":"https:\/\/www.scmgalaxy.com\/tutorials\/#website","url":"https:\/\/www.scmgalaxy.com\/tutorials\/","name":"scmGalaxy","description":"A Platform for Software Engineers","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/www.scmgalaxy.com\/tutorials\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"en-US"},{"@type":"Person","@id":"https:\/\/www.scmgalaxy.com\/tutorials\/#\/schema\/person\/fc12ad190f540e79460243c81148d102","name":"scmgalaxy K","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/secure.gravatar.com\/avatar\/4b902ea8c77ee0a326c112f29d0edf51b7c3e1cd05c4fb92a810177e9c3f12a9?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/4b902ea8c77ee0a326c112f29d0edf51b7c3e1cd05c4fb92a810177e9c3f12a9?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/4b902ea8c77ee0a326c112f29d0edf51b7c3e1cd05c4fb92a810177e9c3f12a9?s=96&d=mm&r=g","caption":"scmgalaxy K"},"sameAs":["http:\/\/www.DevOpsSchool.com"],"url":"https:\/\/www.scmgalaxy.com\/tutorials\/author\/scmgalaxy\/"}]}},"_links":{"self":[{"href":"https:\/\/www.scmgalaxy.com\/tutorials\/wp-json\/wp\/v2\/posts\/2421","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.scmgalaxy.com\/tutorials\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.scmgalaxy.com\/tutorials\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.scmgalaxy.com\/tutorials\/wp-json\/wp\/v2\/users\/4"}],"replies":[{"embeddable":true,"href":"https:\/\/www.scmgalaxy.com\/tutorials\/wp-json\/wp\/v2\/comments?post=2421"}],"version-history":[{"count":1,"href":"https:\/\/www.scmgalaxy.com\/tutorials\/wp-json\/wp\/v2\/posts\/2421\/revisions"}],"predecessor-version":[{"id":2422,"href":"https:\/\/www.scmgalaxy.com\/tutorials\/wp-json\/wp\/v2\/posts\/2421\/revisions\/2422"}],"wp:attachment":[{"href":"https:\/\/www.scmgalaxy.com\/tutorials\/wp-json\/wp\/v2\/media?parent=2421"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.scmgalaxy.com\/tutorials\/wp-json\/wp\/v2\/categories?post=2421"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.scmgalaxy.com\/tutorials\/wp-json\/wp\/v2\/tags?post=2421"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}