🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: es.comp.os.linux.programacion
Article #10321

analizar un fichero de texto con perl

#10321
From: [ Z A T O P E K ]
Date: Thu, 07 Mar 2002 16:23
41 lines
2459 bytes
Hola tengo que hacer un script de perl o del algo, se me ocurre perl porque
en su momento hice algo pero ahora estoy perdido.
pues eso, tengo un fichero del tipo:

Thu Mar 07 17:13:02 2002
 NAS-IP-Address = 10.21.65.12
 Acct-Status-Type = Start
 Acct-Session-Id = "3171ABFC"
 Framed-IP-Address = 34.34.34.34
 Framed-IP-Netmask = 255.255.255.255
 User-Name = "usuario"
 NAS-Port = 63725
 Acct-Multi-Session-Id = "CE8EABFC"
 Acct-Link-Count = 1
 NAS-Port-Type = ISDN
 Service-Type = Framed-User
 Framed-Protocol = PPP
 Acct-Authentic = RADIUS
 Called-Station-Id = "23232323"
 Calling-Station-Id = "23232323"
 Connect-Info = "     64000       64000"
 Timestamp = 1015517582


que es el log de un radius y lo tengo que analizar para saber los que tengo
conectado y los que no.

Mi idea es analizar el fichero de tal manera que simpre recorra todo el
fichero buscando una cadena start dentro de Acct-Status-Type  si la
encuentra busque el identificativo de sesion dentro de Acct-Multi-Session-Id
y el usuario dentro de  User-Name. una vez hecho esto vea si, siguendo el
fichero, hay para el mismo identificativo de sesion una cadena stop dentro
de Acct-Status-Type, lo cual queire decir que se ha desconectado y no esta
pero si para ese identificativo de sesion no encuentra el stop si esta
conectado y en este caso me imprime el nombre de usuario, y luego sigue con
las demas lineas buscando mas usuario sin el stop para imprimirmelos.


me puede ayduar alguein ha ahcer esto?
muchas gracias
Carlos
Technical Details
Message-ID: <a68473$cdh4m$1@ID-59646.news.dfncis.de>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed00.sul.t-online.de!t-online.de!news-lei1.dfn.de!news-ber1.dfn.de!fu-berlin.de!uni-berlin.de!212.163.45.10!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: SPANISH,ASCII-7-bit
X-Google-Thread: f86c8,fbbbaeed53640129,start
X-Google-Attributes: gidf86c8,public
X-Google-ArrivalTime: 2002-03-07 08:24:05 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed00.sul.t-online.de!t-online.de!news-lei1.dfn.de!news-ber1.dfn.de!fu-berlin.de!uni-berlin.de!212.163.45.10!not-for-mail
From: "[ Z A T O P E K ]" <boli_NOSPAM_@excite.com>
Newsgroups: es.comp.os.linux.programacion
Subject: analizar un fichero de texto con perl
Date: Thu, 7 Mar 2002 17:23:27 +0100
Lines: 43
Message-ID: <a68473$cdh4m$1@ID-59646.news.dfncis.de>
NNTP-Posting-Host: 212.163.45.10
X-Trace: fu-berlin.de 1015518243 13026454 212.163.45.10 (16 [59646])
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000