Dear Monks,

I would like to count all the r's in the rows (row by row) then print to screen only the number of rows that have r's on all columns (i.e. 3 in this case). How do I do this. My script below doesn't seem to work well.

Thanks

script:

use strict;
use warnings;

# declare variables
my @column = ();
my $y;
my %hash;
my $count;
my $range = 3;

# open the file
open(INFILE,"<","my_column_file.txt") or die("Couldn't open the file\n
+");
      
     while (<INFILE>) {
        
        print "\n";                #separate the elements in each row 
+with a newline
               
        for ($y=0; $y < 3; $y++){   # from the first to the last field
+ (ie field/column 3)
            
         my ($field) = (split)[$y]; # extract fields/ columns from the
+ data
         push @column, $field;      # store all the field values in an
+ a array
         
         #count the consecutive r's --> all those common to a row
         #(i.e.if a sinlge specified column misses an r at that row do
+n't cont it)!

          while ($field =~ /(r+)/g) {
            my $new_count = $count++;
            print "$new_count\n";
            }
                       
           print pop@column;       # print from the array, each time r
+emoving the printed element (avoiding repetition)
           print "\n";             # print each element in a new line
            
    }  
}
[download]

my file:

0  a b h
1  - r z
3  u - u
4  r x r
5  r t r
6  r r r
7  r r r
8  r r r
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.