Govem

Govem Miguel Vazquez Gocobachi http://govem.gnu.org.mx Miguel Vazquez Gocobachi http://govem.gnu.org.mx JAWS 0.8.5 2008, Miguel Vazquez Gocobachi 2008-10-02T20:58:15+02:00 <![CDATA[ ¿Cómo tener autoincrement en PostgreSQL? ]]> Miguel Vazquez Gocobachi http://govem.gnu.org.mx/admin.php http://govem.gnu.org.mx/index.php/blog/show/%C2%BFC%C3%B3mo-tener-autoincrement-en-PostgreSQL%3F 2008-10-02T20:58:15+02:00 2008-10-02T19:23:05+02:00

Hay dos maneras de utilizar esta funcionalidad en PostgreSQL, la primera es crear una secuencia y la tabla, y la otra es asignarle directamente el tipo al campo de la tabla. En el ejemplo la tabla se llama "foo".

1.- Creando la secuencia y la tabla

CREATE SEQUENCE foo_id_seq;
CREATE  TABLE foo (

    id integer DEFAULT  NEXTVAL('foo_id_seq')NOT  NULL,

    name character varying(8)  NOT  NULL
);

2.- Creando la tabla con el tipo "serial" para el campo "id".

CREATE  TABLE foo (

    id serial,

    name character varying(8)  NOT  NULL
);

Interesante, ¿verdad?

]]>

CREATE SEQUENCE foo_id_seq;
CREATE  TABLE foo (

    id integer DEFAULT  NEXTVAL('foo_id_seq')NOT  NULL,

    name character varying(8)  NOT  NULL
);

2.- Creando la tabla con el tipo "serial" para el campo "id".

CREATE  TABLE foo (

    id serial,

    name character varying(8)  NOT  NULL
);

Interesante, ¿verdad?

]]> <![CDATA[ Trim en Perl ]]> Miguel Vazquez Gocobachi http://govem.gnu.org.mx/admin.php http://govem.gnu.org.mx/index.php/blog/show/Trim-en-Perl 2008-10-02T19:20:04+02:00 2008-09-19T19:33:51+02:00

Muchas veces he utilizado la función trim() en PHP para eliminar espacios al principio y final de una linea. Esto se vuelve un problema cuando deseas hacer lo mismo en Perl, ¿por qué? Porque no existe función en perl que haga tal cosa, asi que aquí tenemos un ejemplo de como implementarlo en nuestras aplicaciones de Perl.

sub trim {

    my  $str = shift;

    $str =~ s/^\s+//;

    $str =~ s/\s+$//;

    return  $str;
}

Y su uso es tan simple como lo siguiente:

my  $string = trim(' Foo bar ');

Happy hacking! ]]>

sub trim {

    my  $str = shift;

    $str =~ s/^\s+//;

    $str =~ s/\s+$//;

    return  $str;
}

Y su uso es tan simple como lo siguiente:

my  $string = trim(' Foo bar ');

Happy hacking! ]]> <![CDATA[ Serialización en Perl ]]> Miguel Vazquez Gocobachi http://govem.gnu.org.mx/admin.php http://govem.gnu.org.mx/index.php/blog/show/Serializando-en-Perl 2008-10-02T19:19:33+02:00 2008-09-19T00:34:30+02:00

Una de las cosas que utilizo con mayor frecuencia es la serialización de datos en PHP. Ahora, trabajando con Perl he decidido utilizar dicha funcionalidad para el almacenamiento de cierta información en un sistema Web, así que utilizando el grandioso CPAN he obtenido el módulo correspondiente.

Para poder serializar datos es necesario contar con el modulo PHP::Serialization, el cual puede ser instalado por medio del shell de perl para CPAN. A continuación, un sencillo ejemplo de su uso:

use strict;
use PHP::Serialization  qw(serialize unserialize);

my  $serialized   = serialize({a => [1,2,3], b => 5});
my  $deserialized = deserialize($serialized);

print  $deserialized->{b};

Su uso es muy simple, asi se que solo basta almacenar la información de $serialized en un campo text de SQL. ]]>

use strict;
use PHP::Serialization  qw(serialize unserialize);

my  $serialized   = serialize({a => [1,2,3], b => 5});
my  $deserialized = deserialize($serialized);

print  $deserialized->{b};

Su uso es muy simple, asi se que solo basta almacenar la información de $serialized en un campo text de SQL. ]]>