Retirar parte da Rede
Exemplo:
$ip = "192.168.0.1";
( $A,. $B, $C ) = ( $ip =~ /^(\d+)\.(\d+)\.(\d+)\.\d+$/ );
ou, em uma variavel
( $net ) = ( $ip =~ /^(\d+\.\d+\.\d+)\.\d+$/ );
Francisco Lopes wrote:
> $iptemp = $ENV{'REMOTE_ADDR'};
> @ip = split(/\./, $iptemp);
> $ipinicial = $ip[0];
>
> Abra�os,
>
> _______________________
> Francisco Lopes
> UIN: 17364815
> Email: [EMAIL PROTECTED]
>
> -----Mensagem Original-----
> De: Leonardo Almeida Lage <[EMAIL PROTECTED]>
> Para: <[EMAIL PROTECTED]>
> Enviada em: S�bado, 11 de Dezembro de 1999 17:19
> Assunto: [perl] IP
>
> >
> > Ol� pessoal da lista, estou precisando pegar um IP, por exemplo:
> 200.201.202.203 e utilizar apenas as tres primeiras casas: 200.201.202
> >
> > Ser� que algu�m pode me ajudar a fazer isto?
> >
> > [ ]'s
> > N�o deixe de visitar meu novo site: Progs - http://www.progs.com.br
> >
> > Atenciosamente,
> >
> > Leonardo Almeida Lage
> >
> > Top Web - http://www.topweb.com.br
> > Leo#Zim - http://www.leozim.br.st
> > Progs - http://www.progs.com.br
> >
> > http://www.mrweb.com.br/perl/
> > >>No site da lista, voce tera tudo sobre PERL,
> > >>LINUX, PHP, ASP e informacoes, cadastramento
> > >>e descadastramento da Lista.
> >
>
> http://www.mrweb.com.br/perl/
> =======================================
> >>No site da lista, voce tera tudo sobre PERL,
> >>LINUX, PHP, ASP e informacoes, cadastramento
> >>e descadastramento da Lista.
> =======================================
--
Marco A. P. D'Andrade - [EMAIL PROTECTED]
Webmaster - FiscoData Legisla��o On Line Ltda
41-333 5775 - Curitiba-PR
http://www.mrweb.com.br/perl/
=======================================
>>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
=======================================
