Re: parsing a file to get the count alone

in reply to parsing a file to get the count alone

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
[download]

In Section Seekers of Perl Wisdom