http://qs321.pair.com?node_id=11121727


in reply to regex, find words that occur more than once.

You don't tell us why which leaves plenty of room for guessing. If you don't need to use a regex you can get a count of word use like this:

use strict; use warnings; my $text = "and him him lad has him done and john has has"; my %words; ++$words{$_} for split /\s+/, $text; print "$_: $words{$_}\n" for sort keys %words;

Prints:

and: 2 done: 1 has: 3 him: 3 john: 1 lad: 1

If that's not helpful for your immediate problem you might like to give us some more context.

Optimising for fewest key strokes only makes sense transmitting to Pluto or beyond

Replies are listed 'Best First'.
A reply falls below the community's threshold of quality. You may see it by logging in.