Powered by Ajaxy
Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset

Perl: Find duplicates in a group of words

Perl: Find duplicates in a group of words
{filelink=15262}

#!/usr/bin/perl
my @analog = qw{ Perl, used with java is effective, but perl with python is less effective than python with java };
my %seen;
@new_data=();
foreach (@analog) {
  print "I've seen this word, $_!
"
   if $seen{$_}++;
}

Users who found this page were searching for:

  • python math maximum
  • perl palindrome check
  • subclass python
  • python read contents of file
  • perl remove duplicate groups
  • python print one word from values in a dictionary
  • find maximum of a list in python
  • tkinter checkbutton example
  • python read contents of a file
  • factorial on perl

No comments yet.

Leave a Comment