Re: stupid newbie question

[John Delacour]

At 5:04 pm -0200 17/1/05, Marco Takita wrote:
What I need is to count how many times either CR05-C1-102 or 
CR05-C1-103 appears in the text, which I was able to do:

#!/usr/bin/perl
while (<>) {
....

My problem is that I cannot do that for individual blocks like:
Sequence Contig3772
Assembled_from  CR05-C1-102-004-_A01_-CT.F_008.ab1  -40  955
Assembled_from  CR05-C1-102-006-_E05_-CT.F_035.ab1  -40  972
Assembled_from  CR05-C1-102-004-_B01_-CT.F_007.ab1  -32  1007
Assembled_from  CR05-C1-103-033-_G08_-CT.F_026.ab1  397  1400
Assembled_from  CR05-C1-102-060-_D07_-CT.F_029.ab1  403  1450
Assembled_from  CR05-C1-102-008-_G03_-CT.F_010.ab1  404  1427
Assembled_from  CR05-C1-102-065-_F12_-CT.F_043.ab1  406  1498

There are far shorter ways of doing it than I show here but since you 
say you're new to Perl I'll make it as long as I can:

#!/usr/bin/perl -w
use strict;
my ($i,  $line, @lines, $text);
$text = <<'EOT';
Sequence Contig3772
Assembled_from  CR05-C1-102-004-_A01_-CT.F_008.ab1  -40  955
Assembled_from  CR05-C1-102-006-_E05_-CT.F_035.ab1  -40  972
Assembled_from  CR05-C1-102-004-_B01_-CT.F_007.ab1  -32  1007
Assembled_from  CR05-C1-103-033-_G08_-CT.F_026.ab1  397  1400
Assembled_from  CR05-C1-102-060-_D07_-CT.F_029.ab1  403  1450
Assembled_from  CR05-C1-102-008-_G03_-CT.F_010.ab1  404  1427
Assembled_from  CR05-C1-102-065-_F12_-CT.F_043.ab1  406  1498
EOT
@lines = split m~[  \012  \015  \x{2029}  ] ~x, $text;
foreach $line ( @lines ) {
  $i++  if  $line  =~  m~CR05-C1-102  |  CR05-C1-103~ix;
}
print $i;
$text is some text delimited by paragraph separators of one of 3 
kinds -- which of them being irrelevant in this case.  We split the 
$calar $text into an @rray of lines.  We then loop through  @lines 
adding 1 to the initial value 0/undefined of $i each time a match (m) 
is found in $line for ..102  or (|) ..103

JD