in reply to Simple (probably)

Hi

How about this:

  while (my ($key,$value) = each(%no)) {
      $contains++ while $value =~ /$search/gi;
  }

[download]

There's probably a better way, but that seems to work.

HTH, FalseVinylShrub

Disclaimer: Please review and test code, and use at your own risk... If I answer a question, I would like to hear if and how you solved your problem.

Replies are listed 'Best First'.
Re^2: Simple (probably)
by MaroonBalloon (Acolyte) on Dec 13, 2009 at 05:18 UTC
    Brilliant! Thank you. It worked straight off. I hadn't realized that IF wasn't executing what I needed and that I required "while"
[reply]

In Section Seekers of Perl Wisdom