Re: 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]

Comment on Re: parsing a file to get the count alone Download Code

Replies are listed 'Best First'.
Re^2: parsing a file to get the count alone by Hofmator (Curate) on Nov 07, 2006 at 10:32 UTC
I guess that is (close to) what Anonymous Monk wanted. Just a small remark, `[^\s]+` can be written `/S+` in your regex. -- Hofmator Code written by Hofmator and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.	[reply] [d/l] [select]


go ahead... be a heretic
	PerlMonks