From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Date: Tue, 23 Mar 2004 00:01:08 +0300 From: "Konstantin A. Lepikhov" To: community@altlinux.ru Message-ID: <20040322210108.GA18276@lks.home> Mail-Followup-To: community@altlinux.ru References: <405EEFAC.20209@ricom.ru> <405EF5F8.2010004@iop.kiev.ua> <405F007F.40908@ramax.spb.ru> <405F02A3.5070300@ricom.ru> <16515945258.20040322184444@otstavnov.com> <405F1A36.7090406@ricom.ru> <405F4CE7.4020805@beltel.ru> Mime-Version: 1.0 Content-Type: text/plain; charset=koi8-r Content-Disposition: inline In-Reply-To: <405F4CE7.4020805@beltel.ru> User-Agent: Mutt/1.4.2.1i X-Operation-System: ALT Linux Sisyphus (20040318) 2.4.25-lks-up-alt2 Content-Transfer-Encoding: quoted-printable Subject: [Comm] Re: [OFF] Perl regex X-BeenThere: community@altlinux.ru X-Mailman-Version: 2.1.4 Precedence: list Reply-To: community@altlinux.ru List-Id: Mailing list for ALT Linux users List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Mon, 22 Mar 2004 21:01:20 -0000 Archived-At: List-Archive: List-Post: Hi Sergey! Monday 22, at 11:30:31 PM you wrote: > Alexey Morsov wrote: >=20 > >>AM> Igor Homyakov wrote: > >> > >>>>=DC=D4=CF =CB=CC=C1=D3=D3=C9=CB=C1 ! > >>>> > >>>>^([01]?\d\d?|2[0-4]\d|25[0-5])\.([01]?\d\d?|2[0-4]\d|25[0-5])\. > >>>>([01]?\d\d?|2[0-4]\d|25[0-5])\.([01]?\d\d?|2[0-4]\d|25[0-5])$ > >>>> > >> > >>AM> =F5=D7=C1=D6=C1=C5=CD=D9=CA - =DC=D4=CF =D2=C1=DA=D7=C5 =CB=CF=D2= =CF=DE=C5? > >> > >>=FA=C1=D4=CF =D0=D2=C1=D7=C9=CC=D8=CE=CF, =D7 =CF=D4=CC=C9=DE=C9=C5 =CF= =D4 =D0=D2=C9=D7=C5=C4=C5=CE=CE=D9=C8 =D7=C1=D2=C9=C1=CE=D4=CF=D7. =F7 =D3= =CD=D9=D3=CC=C5, =D7=D9=D4=C1=DD=C9=D4 > >>=D4=CF=CC=D8=CB=CF =D7=C1=CC=C9=C4=CE=D9=C5 =C1=C4=D2=C5=D3=C1. > > > >=C4=D9=CB =D1 =D6 =D3=D0=D2=C1=DB=C9=D7=C1=CC =CB=C1=CB =CB=CF=D2=CF=DE= =C5 =C1 =CE=C5 =CB=C1=CB =D7=C1=CC=C9=C4=CE=C5=C5 - =CE=C5 =D7=C1=CC=C9=C4= =CE=CF =C2=D9=D4=D8 =CE=C5 =20 > >=CD=CF=C7=C5=D4 =D0=CF=D4=CF=CD=D5 =DE=D4=CF =CC=CF=C7=C9 =CD=CF=C5=C7= =CF =D3=CB=D7=C9=C4=C1 - =C9 =D3=C5=D4=CB=C1 =CD=CF=D1 - ip =D3=C1=CD =C4= =C1=C0 =DA=C1 =CD=DA=C4=D5 8-) >=20 > =E5=D3=CC=C9 =F7=C1=D3 =C9=CE=D4=C5=D2=C5=D3=D5=C5=D4 =CB=D2=C1=D4=CB=CF= =D3=D4=D8: > use NetAddr::IP::Find; > $num_found =3D find_ipaddrs($text, \&callback); >=20 > =EE=C1 =D7=D3=D1=CB=C9=CA =D3=CC=D5=DE=C1=CA -- regexp =D4=C1=CD =D4=C1= =CB=CF=CA =D6=C5, =CB=C1=CB =D5 =F7=C1=D3, =D4.=C5. =CE=C5=D0=D2=C1=D7=C9= =CC=D8=CE=D9=CA. >=20 use Net::IP::Match; use Net::Patricia; - =D3=C1=CD=D9=CA =D0=D2=C1=D7=C9=CC=D8=CE=D9=CA =C9 =C2= =D9=D3=D4=D2=D9=CA =D7=C1=D2=C9=C1=CE=D4 :) --=20 WBR, Konstantin chat with =3D=3D>ICQ: 109916175 Lepikhov, speak to =3D=3D>JID: lakostis@jabber.org aka L.A. Kostis write to =3D=3D>mailto:lakostis@pisem.net.nospam ...The information is like the bank... (c) EC8OR