[Cascavel-pm] Inversao de variavel

[Luis Campos de Carvalho]

Leandro Costa wrote:
> Ola Galera,
> 
> Estou fazendo uma programa para gerar o DNS reverso atraves de um script
> perl
> Parei no seguinte problema:
> variavel : 10.1.0.1
> Como faco para inverter os octetos ?
> 

   # Bico!
   sub reverse_octets{
     my $ip = shift || '127.0.0.1';
     return
       $ip =~ m/(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/ ?
         "$4.$3.$2.$1" : undef;
   }

   # para usar:
   print reverse_octets '200.10.5.1';

   Se você se interessar como funciona, o Alceu explica! =-]
-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
   Luis Campos de Carvalho is Computer Scientist,
   PerlMonk [SiteDocClan], Cascavel-pm Moderator,
   Unix Sys Admin && Certified Oracle DBA
   http://br.geocities.com/monsieur_champs/
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=