Foro - Perl en Español

#!c:\perl\bin\perl.exe
use strict;
use base 'usuario';

# Variables a guardar
my $nombre_usuario;
my $apellido_usuario;
my $login_usuario;
my $password_usuario;
my $numero_sap;
my $iniciales_gerencia;
my $extension_telefonica;
my $cargo_desempena;
my $correo_electronico;
my $ubicacion_empresa;
my $roles;
my $status_usuario;

# Métodos para introducir variables
coge_parametros();

my %hash =(id_gerencia=>'$id_gerencia', nombre_usuario=>'$nombre_usuario', apellido_usuario=>'$apellido_usuario', login_usuario=>'$login_usuario', password_usuario=>'$password_usuario', numero_sap=>'$numero_sap', extension_telefonica=>'$extension_telefonica', cargo_desempena=>'$cargo_desempena', correo_electronico=>'$correo_electronico', ubicacion_empresa=>'$ubicacion_empresa', roles=>'$roles', status_usuario=>'$status_usuario');
my $obj1 = usuario->insert (\%hash);

exit;


#------------------------------------------------------------------------------------------------------------------------------------------------
#                                                                                               Funciones
#-------------------------------------------------------------------------------------------------------------------------------------------------

sub coge_parametros()
{

        #Determinamos el tipo de metodo usado para pasar los argumentos
        $method=$ENV{"REQUEST_METHOD"};
        if ($method eq "GET")
        {
                #Si el metodo es GET los argumentos vienen en $ENV{"QUERY_STYRNG"}
                $argumento=$ENV{"QUERY_STRING"};
        }
        else
        {
                #Si el metodo es POST los argumentos vienen en la entrada estandar
                $argumento=<STDIN>;
        }

        # Obtengo las variables y las imprimo
        foreach (split(/&/,$argumento))
        {
                ($variable,$valor) = split(/=/, $_);
                $valor=~tr/+/ /;
                $valor=~s/%([0-9|A-F]{2})/pack(C,hex($1))/eg;
                $datos{$variable}=$valor;
        }
                $nombre_usuario=$datos{nombre_usuario};
                $apellido_usuario=$datos{apellido_usuario};
                $login_usuario=$datos{login_usuario};
                $password_usuario=$datos{password_usuario};
                $numero_sap=$datos{numero_sap};
                $iniciales_gerencia=$datos{iniciales_gerencia};
                $extension_telefonica=$datos{extension_telefonica};
                $cargo_desempena=$datos{cargo_desempena};
                $correo_electronico=$datos{correo_electronico};
                $ubicacion_empresa=$datos{ubicacion_empresa};
                $roles=$datos{roles};
                $status_usuario=$datos{status_usuario};
}

my $method=$ENV{"REQUEST_METHOD"};