CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Intermediate: Re: [savo] is this greedy?: Edit Log



savo
User

Sep 30, 2009, 8:30 AM


Views: 2232
Re: [savo] is this greedy?

This should work.

Code
#!/usr/bin/perl 
use warnings;
use strict;
use 5.010;

open( LOG, "<test.log" ) or die "can't open log file: $!\n";
my $c = 1;
while (<LOG>) {
chomp;

if ( $c == 1 ) {
if (/(ActiveConnectionsHighCount?)/) {
say;
}

}

if (/JDBC Runtimes fgrlog/) {
++$c;
}

}



(This post was edited by savo on Sep 30, 2009, 8:32 AM)


Edit Log:
Post edited by savo (User) on Sep 30, 2009, 8:32 AM


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives