Re: parsing a file to get the count alone

[reneeb]

Maybe you need something like this:

#!/usr/bin/perl

use strict;
use warnings;

local $/ = "\nGenerating";
while(my $entry = <DATA>){
    my ($table,$count) = $entry =~ /Summary of ([^\s]+).*(\d+)/s;
    print $table,": ",$count,"\n" if $count > 1;
}


__DATA__
Generating Summary of table_1


      (count(*))

               1
Generating Summary of table_2


      (count(*))

               2

[Hofmator]

I guess that is (close to) what Anonymous Monk wanted.

Just a small remark, [^\s]+ can be written /S+ in your regex.