Mes: enero 2007

  • Aumentando el rendimiento en Net::SSH::Perl

    Trasteando con Debian y Net::SSH::Perl se observa que el rendimiento a la hora de conectarse a las máquina en bajísimo, muy muy lento. Vamos a buscar la solución… Primero analizamos el script de Perl con una librería de Profiler, en este caso, usamos esta que está en pruebas DProfLB ejecutamos: [shell]perl -d:DProfLB test_ssh.pl # dprofpp…

  • Can’t bind socket to port 1023

    Error: [shell] Net::SSH: Can’t bind socket to port 1023: La dirección ya se está usando at test_ssh.pl line 32 [/shell]Solución: Agregar priveleged => 0 [shell] my $ssh = Net::SSH::Perl->new( $hostname, privileged => 0 ); [/shell]

  • Buscando puntos débiles

    Para buscar dónde falla mi script, o donde está gastando más recursos uso el modulo de Devel::Profile Instalar: [shell] perl -MCPAN -e ‘ install Devel::Profile ‘ [/shell] Usar así : [shell] perl -d:Profile test.pl [/shell]

  • búsquedas y reemplazo

    Estoy escribiendo un documento en el que te detallo como instalar una aplicación con librerías de perl en Debian. Me interesa obtener de mi fichero tmp todos los nombres de librerias que tienen el formato libxxxx-perl y quiero obtener los nombres de paquetes. He usado este comando: [shell]grep «lib.*perl» tmp | sed ‘s/.*\(lib.*[^ ]perl\).*/\1/'[/shell]

  • Dynamic MMap ran out of room

    Error en Debian etch ejecutando apt-get o apt-cache [shell] E: Dynamic MMap ran out of room E: Ocurrió un error mientras se procesaba kernel-image-2.6.18.2 (NewVersion1) E: Problem with MergeList /var/lib/dpkg/status E: No se pudieron analizar o abrir las listas de paquetes o el archivo de estado. [/shell] editar /etc/apt/apt.conf agregar : [shell] APT::Cache-Limit 25165824; [/shell]

  • Borrar modulos de Perl instalados con CPAN

    http://www.cpan.org/misc/cpan-faq.html#How_delete_Perl_modules [shell] #!/usr/local/bin/perl -w[/shell] use ExtUtils::Packlist; use ExtUtils::Installed; $ARGV[0] or die «Usage: $0 Module::Name\n»; my $mod = $ARGV[0]; my $inst = ExtUtils::Installed->new(); foreach my $item (sort($inst->files($mod))) { print «removing $item\n»; unlink $item; } my $packfile = $inst->packlist($mod)->packlist_file(); print «removing $packfile\n»; unlink $packfile;

  • Obteniendo la estructura de una base de datos mysql

    Cómo obtener el ‘schema’ de una base de datos de mysql. [shell] mysqldump -u root -p -d base_de_datos > mysql-schema.sql [/shell] Este comando genera un volcado de la base de datos, pero sin datos lo que nos deja la estructura o schema. [shell] -u : usuario -p : password, si no está especificada la pide…

  • no digas friki, di colgao

    ¿ te suena friki ? claro que sí, ahora a todo se le llama friki, que si mira que friki del futbol ( el futbol no es friki ), que si que pasa tu tio friki … mallll estamos desprestigiando el uso de esta palabra. Desde aquí hago un llamamiento a usar la palabra colgao,…

  • Downgrade a C3

    Ahora algunos conductores ahora me dan largas, debe ser por que conducto mi recien extrenado C3 ( negro y brillante por ahora ) y como va limpio se piensan que soy una chica. La verdad que de conducir un León a un C3, va una diferencia bastante grande, pero por ahora estoy bastante contento con…

  • convertir a utf8 con el vi

    [shell]vi -c «:wq! ++enc=utf8» fichero[/shell]