Get me out of this while loop( perl regexp)

druuna · 02-20-2010, 06:51 AM

Hi,

This is one solution:

Code:

#!/usr/bin/perl

use strict ;
use warnings ;

my $count = 0 ;

while ( <STDIN> ) {
   for ( split ) {         # break up everything into single words
      if ( $_ =~ /hi/ ) {  # only increase counter if word equals hi
         $count++ ;
      }
   }
}
print "Counted hi: $count time(s).\n" ;

I introduced a new perl function: split

Have a look here for an explanation:
(perl tutorial) split
(perldoc) split
(perlmeme) Using the Perl split() function

Hope this helps.

ashok.g · 02-21-2010, 11:40 PM

Hi druuna,
Again you are coming with other solution than the one I used.
Actually I implemented the same in different ways. But, I took it as a challenge to achieve this code only with the help of perl regular expression's special variables($&,$',$`) and some control statements(like while,for,etc.,..). That is why I'm more particular about this post.

Hope you understood my concern.
Thank You!