$ip = '200.201.202.203'; ou $ip = $ENV{'REMOTE_ADDR'};
$ipt = substr($ip, 0, 11);
prontinho... :-)
-----------------------------------------------
http://www.stnet.com.br
-----------------------------------------------
-----Mensagem Original-----
De: Marco A P D'Andrade <[EMAIL PROTECTED]>
Para: <[EMAIL PROTECTED]>
Enviada em: Quarta-feira, 15 de Dezembro de 1999 08:39
Assunto: Re: [perl] IP
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];
>
> Abragos,
>
> _______________________
> Francisco Lopes
> UIN: 17364815
> Email: [EMAIL PROTECTED]
>
> -----Mensagem Original-----
> De: Leonardo Almeida Lage <[EMAIL PROTECTED]>
> Para: <[EMAIL PROTECTED]>
> Enviada em: Sabado, 11 de Dezembro de 1999 17:19
> Assunto: [perl] IP
>
> >
> > Ola pessoal da lista, estou precisando pegar um IP, por exemplo:
> 200.201.202.203 e utilizar apenas as tres primeiras casas: 200.201.202
> >
> > Sera que alguim pode me ajudar a fazer isto?
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.
=======================================
