develooper Front page | perl.beginners | Postings from January 2002

A couple of questions!

Thread Next
From:
Marvin Bonilla
Date:
January 5, 2002 10:47
Subject:
A couple of questions!
Message ID:
Pine.BSI.4.33.0201051114060.5274-100000@sprintvf.ibw.com.ni
Hello

I am really new programing perl scripts so, I read this list and I
realized that you know a lot about this stuff, well I want to make a
report where the final information we want to have depend of the hour it
was saved. The log file is lineal and its look like this:

Thu Nov  1 00:00:01 2001
        NAS-IP-Address = 216.226.201.177
        NAS-Port = 105
        NAS-Port-Type = Async
        User-Name = "Pproagua"
        Called-Station-Id = "2447000"
        Calling-Station-Id = "2892646"
        Acct-Status-Type = Stop
        Acct-Authentic = RADIUS
        Service-Type = Framed-User
        Acct-Session-Id = "0000E366"
        Framed-Protocol = PPP
        Framed-IP-Address = 209.198.193.30
        Acct-Terminate-Cause = User-Request
        Acct-Input-Octets = 1295352
        Acct-Output-Octets = 9812455
        Acct-Input-Packets = 18832
        Acct-Output-Packets = 23384
        Acct-Session-Time = 5275
        Acct-Delay-Time = 0
        NASGroupDigital = True
        IBW-Realm = ibw.com.ni
        Timestamp = 1004594401


The first line has the hour that this report was origined, the information
that I need is the line where appears "Acct-Session-Time = 5275"
but just from the 08:00 to 19:00, and them sum the numerical value.

I can get the hour (with while and split functions) but once I get
that I do not how to read their "Acct-Session-Time" belong to this hour.

So I need a cue that tell me with which function I can read any numbers of
line before o after a match is found or some idea about how I can do that.

The other question is "Do Someone know some URL I can get excercises to
practice perl programing since beginners level??

Thanks for your sure answers
Marvin B.






Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About