[ale] Help Processing a Log File

[Jonathan Glass]

Except that it only reads the last entry.  The other 40000+ are being
skipped.  :(

Jonathan

On Wed, 2004-05-12 at 21:22, Geoffrey wrote:
> Jonathan Glass wrote:
> > To answer your question, no, the '-nomard' is the only possible entry. 
> > I just broke it apart to make more sense.
> > 
> > Perfect!  Now I just have to write a wrapper script to parse the whole
> > log file (40,000+ print entries) and send it to this script.  
> > 
> > I wonder if I can change the while (<ARGV>) statement and pull in the
> > file there?  Should I pull in 6 lines at a time?  Maybe some kind of
> > while statement?
> 
> you pass the file name to the script, and it will parse it.  As it is, 
> you'll not get what you want, because you'll need to print inside the 
> loop.  It would be simple enough to just put the print as the last 
> statement of the loop.
> 
> You'd execute it as:
> 
> parse.pl logfile.
> 
> > 
> > Thanks for the start!  I'll see how far I can get.  Also, thanks for
> > letting me think out loud.
> > 
> > I just found the regex section of my perl book, just before you sent
> > this.
> > 
> > Jonathan
> > 
> > On Wed, 2004-05-12 at 20:56, Geoffrey wrote:
> > 
> >>Jonathan Glass wrote:
> >>
> >>>I'm trying to parse a printer log file.  Here is a snippet of a single
> >>>print job (I added the extra lines for legibility):
> >>>-----------
> >>>jobstart '-HMUTT' '-nomard' '-Plp' '-kcfA008MUTT' '-b752686'
> >>>'-t2003-02-18-16:15:53.000'
> >>>
> >>>start '-q29645' '-p241810' '-t2003-02-18-16:15:55.087' '-Aomard at MUTT+8'
> >>>'-nomard' '-Plp'
> >>>
> >>>filestart '-q29646' '-p241810' '-t2003-02-18-16:15:57.095'
> >>>'-Aomard at MUTT+8' '-nomard' '-Plp'
> >>>
> >>>fileend '-b9' '-T36' '-q29646' '-p241819' '-t2003-02-18-16:16:31.076'
> >>>'-Aomard at MUTT+8' '-nomard' '-Plp'
> >>>
> >>>end '-b9' '-T42' '-q29645' '-p241819' '-t2003-02-18-16:16:35.070'
> >>>'-Aomard at MUTT+8' '-nomard' '-Plp'
> >>>
> >>>jobend '-HMUTT' '-nomard' '-Plp' '-kcfA008MUTT' '-b752686'
> >>>'-t2003-02-18-16:16:35.000'
> >>>
> >>>-----------------
> >>>
> >>>All I need to do is pull out the user (-nomard, -name omard) and the
> >>>number of pages printed (fileend -p241819, subtract filestart -p241810).
> >>>
> >>>I can think of ways of pulling a single variable out (username, #pages
> >>>at start, #pages at end), but can't figure out how to pull out all 3
> >>>simultaneously.
> >>>
> >>>i'm hoping to parse through the past year's worth of logs and create a
> >>>cumulative total, broken down by user and month.
> >>>
> >>>I recently saw a perl regex that could do this, but it was too complex
> >>>for me to follow.
> >>>
> >>>Any suggestions, pointers, tips?  I really need this report fairly soon,
> >>>unfortunately.
> >>
> >>I'm not quite sure I understand the problem.  Is it possible to have 
> >>either a '-nomard' or a '-name omard'?
> >>
> >>Here's my quick hack of a prototype to possibly get you started:
> >>
> >>#!/usr/bin/perl
> >> 
> >>
> >>
> >>          use strict;
> >> 
> >>
> >>my ($user, $p1, $p2);
> >> 
> >>
> >>while (<ARGV>) {
> >> 
> >>
> >>     /jobstart/ &&  ($user = substr((split(/\'/, $_))[3], 2));
> >>     /filestart/ &&  ($p1 = substr((split(/\'/, $_))[3], 2));
> >>     /fileend/ &&  ($p2 = substr((split(/\'/, $_))[7], 2));
> >>};
> >>print "$user ", $p2 - $p1, "\n";
> >>
> >>
> >>Does that produce anything like you're looking for???
-- 
Jonathan Glass
Systems Support Specialist II
Institute for Bioengineering & Bioscience
Georgia Institute of Technology
Email: jonathan.glass at ibb.gatech.edu
Office: 404-385-0127
Fax: 404-894-2291