Article View: es.comp.os.linux.programacion
Article #10321analizar un fichero de texto con perl
From: [ Z A T O P E K ]
Date: Thu, 07 Mar 2002 16:23
Date: Thu, 07 Mar 2002 16:23
41 lines
2459 bytes
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-mailShow 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