Foro - Perl en Español

por **juanse_rojas** » 2014-11-30 15:12 @675

Hola, la verdad que soy nuevo programando en Perl, ahora estoy haciendo una pequeña aplicación para mi asignatura de programación en Perl que me configure un enrutador.

Anduve buscando algún módulo que permita sumar a una IP valores ejemplo: 10.0.0.1 sumarle 1 y que quede 10.0.0.2 o restarle 1 y quede 10.0.0.0.

Se los agradezco de antemano

#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
 
sub ip_calculator($$){
        my $ip          = shift;
        my $operation   = shift;
        # control operation
        return -1 if $operation !~ m/\d/;
        return -1 if $operation =~ m/[a-zA-Z]/;
        return -1 if $operation !~ m/^\+\d+$/ and
                     $operation !~ m/^-\d+$/  and
                     $operation !~ m/\d+$/;
        # At this point operation is ok
 
        my $type_operation=()?"rest":"add";
        my @octetos = split(/\./,$ip);
 
        ($operation =~ m/^-/) ? &rest($operation,@octetos) : &add($operation,@octetos);
 
        # this can be done using functional programing
        sub add($){
                my $value = shift;
                my @octetos = @_;
                $value =~ s/\+//;
                return($octetos[0] . "." . $octetos[1] . "." . $octetos[2] . "." . ($octetos[3]+$value));
        }
        sub rest($){
                my $value = shift;
                my @octetos = @_;
                $value =~ s/\-//;
                return($octetos[0] . "." . $octetos[1] . "." . $octetos[2] . "." . ($octetos[3]-$value));
        }
}
Coloreado en 0.007 segundos,  usando GeSHi 1.0.8.4

Crea una carpeta llamada tests; copia y ejecuta estos tests.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use warnings;
use strict;
use Test::More 'no_plan';
use lib '../';
use ip_calculator;
ok(&ip_calculator("10.0.0.1","d") eq "-1","operation has NO numbers");
ok(&ip_calculator("10.0.0.1","d1") eq "-1","control of operation 1d");
ok(&ip_calculator("10.0.0.1","") eq "-1","control of operation empty");
# print &ip_calculator("10.0.0.1","1")."\n";
isnt(&ip_calculator("10.0.0.1","1"),"-1","1 vALID add operation");
isnt(&ip_calculator("10.0.0.1","+1"),"-1","+1 vALID add operation");
isnt(&ip_calculator("10.0.0.1","1"),"-1","-1 A vALID rest operation");
ok(&ip_calculator("10.0.0.1","+1") eq "10.0.0.2","sumarle 1 a 10.0.0.1 da 10.0.0.2");
ok(&ip_calculator("10.0.0.1","+100") eq "10.0.0.101","sumarle 1 a 10.0.0.1 da 10.0.0.2");
# print &ip_calculator("10.0.0.1","+1");
ok(&ip_calculator("10.0.0.1","-1") eq "10.0.0.0","Restarle 1 a 10.0.0.1 da 10.0.0.0");
ok(&ip_calculator("10.0.0.101","-100") eq "10.0.0.1","Restarle 100 a 10.0.0.101 da 10.0.0.1");
 
ok(&ip_calculator("10.0.0.255","1") eq "10.0.0.256","ESTO NO DEBERÍA SER ASÍ");
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Un placer estar por estos foros.

Foro - Perl en Español

Módulo para direcciones IP

Módulo para direcciones IP

Publicidad

Re: Módulo para direcciones IP

Re: Módulo para direcciones IP

¿Quién está conectado?