Perl question

abdul_zu · 01-08-2006, 03:42 AM

Hi all,

I have one log file i want to take only one world from each line. here is my log file format:

Code:

/SIP/Registry/110001                              : 192.xxx.xxx.1:5060:1200:110001:sip:110001@xxx.xxx.xxx.229:5060;line=4b8886e9dac5a8ce
/SIP/Registry/110005                              : xxx.168.xxx.6:16700:120::sip:192.168.xxx.6:16700
/SIP/Registry/111129                              : xxx.68.xxx.6:1220:300:111129:sip:111129@xxx.68.xxx.6:1220
/SIP/Registry/111130                              : xxx.86.xxx.xxx:1220:10:111130:sip:111130@xxx.86.123.xxx:1220

I want to take only these numbers 110001 from /SIP/Registry/110001?

I will be appricate if any one can help.

barrett9h · 01-08-2006, 04:29 AM

Code:

sed 's/^[^0-9]*\([0-9]*\).*$/\1/'

or

Code:

cut -d / -f 4 | cut -d ' ' -f 1

I'm sure there are many other ways.

abdul_zu · 01-08-2006, 04:34 AM

Hi,

I used the following split fuction and got working well.

Code:

open (ACTLOG, "/var/log/asterisk/endpoints.log");
  while ($record = <ACTLOG>) {

    @personal = split(/ +/, $record);
    @myarray = split(/\//,$personal[0]);
       $update_ep->execute(1,$myarray[3]);
  }

trickykid · 01-08-2006, 08:08 AM

Moved: More suitable in our Programming forum.