Gossamer Forum: General: Perl Programming: Count number of "tests" in a file?

Oct 19, 2005, 8:12 AM

Watts

Veteran (1141 posts)

Oct 19, 2005, 8:12 AM

Post #1 of 4

Shortcut

Count number of "tests" in a file?

Is there a way to simply count the number of "tests" or "routines" in a perl file?

I could do a count of "if's" perhaps...

(I run a script that does some error checking comprised of if/then statements and I thought it'd be really cool to be able to say "450 test ran - no errors found" or something.)

Oct 19, 2005, 5:16 PM

xtremenw

Novice (5 posts)

Oct 19, 2005, 5:16 PM

Post #2 of 4

Shortcut

Re: [Watts] Count number of "tests" in a file? In reply to

I believe the following is what you want.

Code:
open(FILE, "./file.txt"); 
while (<FILE>) 
{ 
  $counter++ if ($_ =~ /tests|routines/i); 
} 
close(FILE); 
print "Found 'test' or 'routines' $counter times.\n";

Oct 20, 2005, 9:09 AM

Hargreaves

User (107 posts)

Oct 20, 2005, 9:09 AM

Post #3 of 4

Shortcut

Re: [Watts] Count number of "tests" in a file? In reply to

It might be worth a look at the Test:: modules on CPAN.

Oct 20, 2005, 10:04 AM

Watts

Veteran (1141 posts)

Oct 20, 2005, 10:04 AM

Post #4 of 4

Shortcut

Re: [xtremenw] Count number of "tests" in a file? In reply to

I think that will accomplish the task. I was secretly hoping there was some kind of global variable that would indicate the number of commands Perl has "received" such as open, if, else, close, unlink, print - stuff like that. However I think simply counting the number of "if's" will work for my needs.

Thanks!