Typhon Software
Site Admin
Registrado: 24 Jul 2006
Mensajes: 248
Ubicación: Bs As Argentina
|
 Publicado: Sab Feb 20, 2010 3:17 pm Título del mensaje: Generar Guid con Perl en Ubuntu Server (Data-UUID-1.203) |
 |
|
Para poder obtener un guid con Perl vamos a instalar el modulo Data-UUID-1.203 .
Los Guid son muy utilizados en Commit para los identificadores de Mysql.-
El mismo lo obtenemos de la pagina de CPAN con este link
http://search.cpan.org/~rjbs/Data-UUID-1.203/
Primero lo que tenemos que hacer es verificar si tenemos todo lo necesario para compilar este modulo, podemos disparar desde linea de comando, la sentencia sudo apt-get install build-essential
Una vez que tenemos instalado todo lo necesario para compilar, ya descargamos y descomprimimos la carpeta Data-UUID-1.203, nos ponemos manos a la obra para instalarla (es muy facil) primero entramos dentro de la carpeta recientemente descomprimida y ejecutamos los siguientes comandos.
1)
| Código: | | $ sudo perl Makefile.PL |
2)
3)
4)
| Código: | | $ sudo make install |
Listo con todos estos pasos tenemos la libreria instalada... aqui les dejo un ejemplo de perl para poder usarla...
| Código: | #!/usr/bin/perl
use strict;
use Data::UUID;
my $ug;
my $uuid1;
my $str;
$ug = new Data::UUID;
$uuid1 = $ug->create();
$str = $ug->to_string($uuid1);
print "\n".$str."\n"; |
Este pequeño programita llama a la libreria rencientemente instalada y ademas genera un Guid, que queda almacenado en la variable $str, luego lo imprime en pantalla con un par de saltos de linea para que podamos ver mejor el resultado ...
Saludos
_________________
http://www.typhon.com.ar - Soporte y Ayuda para la implementacion de Commit Soft ERP. info@typhon.com.ar |
|
F.A.Q.
Buscar
Lista de Miembros
Grupos de Usuarios
Regístrese
Perfil
Conéctese para revisar sus mensajes
Conectarse
