Intalar Google-earth en debian lenny

Al puro estilo debian...

1. micra:# aptitude install googleearth-package
   
   
2. micra:# make-googleearth-package
   --2020-02-25 21:40:49-- http://dl.google.com/earth/client/current/GoogleEarthLinux.bin
   Resolviendo dl.google.com... 74.125.79.93, 74.125.79.136, 74.125.79.91
   Connecting to dl.google.com|74.125.79.93|:80... conectado.
   Petición HTTP enviada, esperando respuesta... 200 OK
   Longitud: 25989559 (25M) [application/octet-stream]
   Saving to: `GoogleEarthLinux.bin'
   100%[=========>] 25.989.559 103GB/s in 4m 9s
   
   2010-02-25 21:45:02 (102 KB/s) - `GoogleEarthLinux.bin' saved [25989559/25989559]
   
   Google Earth for GNU/Linux 5.1.3533.1731
   Unrecognized Google Earth version (use --force to build anyway)
   
   
3. micra:# make-googleearth-package --force
   ...(Hagamos caso al oráculo) ...
   [lenny upkpacking and building package ... ... ...] and finally
   
   dpkg-deb: construyendo el paquete `googleearth' en `./googleearth_5.1.3533.1731+0.5.4-1_i386.deb'.
   Success!
   
   
4. # dpkg -i googleearth_5.1.3533.1731+0.5.4-1_i386.deb
   Seleccionando el paquete googleearth previamente no seleccionado.
   (Leyendo la base de datos ...
   97445 ficheros y directorios instalados actualmente.)
   Desempaquetando googleearth (de googleearth_5.1.3533.1731+0.5.4-1_i386.deb) ...
   Configurando googleearth (5.1.3533.1731+0.5.4-1) ...
   Procesando disparadores para menu ...
   micra:#
   
   
5. micra# googleearth ... y aqui esta!!!
   
   
6. Recomienda intalar openlGL, ...

...pero esto será otra historia.

Ref.:
Debian Way or The Hard Way: Installing Google Earth

fit-PC2. El hermanito mayor de micra

Hace ya unos meses que está en el mercado, hay muchas versiones nuevas y muy mejoradas con interesantes opciones, más potencia y conectividad.
Tiene muy buena pinta y nada que ver con su hermanito menor fitPC-Slim, mi servidor micra.
Lo peor de estos micro equipos es que te acostumbras silencio absoluto con el trabajan.

CompuLab Fit-PC2 NetTop
fit-PC2

Traceroute con Perl

Utilizaremos el módulo Net::Traceroute::PurePerl de CPAN.
Un ejemplo:

#!/usr/bin/perl

use Net::Traceroute::PurePerl;

my $t = new Net::Traceroute::PurePerl(
backend => 'PurePerl', # this optional
host => 'www.google.com',
debug => 0,
max_ttl => 15,
query_timeout => 2,
packetlen => 40,
protocol => 'udp', # Or icmp
);

$t->traceroute;
$t->pretty_print;

#asignamos hop,ip,time a una variable tridimensional
for (my $n=1; $n<=15; $n++) {
my $ip = $t->hop_query_host($n, 0);
my $ms = $t->hop_query_time($n, 0);
$trace[$n][0] = $n;
$trace[$n][1] = $ip;
$trace[$n][2] = $ms;
}

#Imprimimos resultados
for (my $n=1; $n<=$maxnhops; $n++) {
for (my $m=0; $m<=2; $m++) {
print "$trace[$n][$m]\t";
}
print "\n";
}

Imagino la cara de Larry Wall al ver este cutreScript ...!!!!

PostgreSQL:Busquedas en campos tipo inet

Si queremos hacer una búsqueda de direcciones IP en un campo PostgreSQL del tipo INET, no podemos hacerlo directamente con LIKE ...

psql=>SELECT * FROM tabla WHERE ip LIKE '192.168.1.%';
ERROR: la sintaxis de entrada no es válida para tipo inet: «192.168.1.%»

...ya que inet no es texto y no lo admite.

SOLUCCIÓN: Utilizar la función HOST(inet) que transforma el campo tipo INET en texto:

psql=>SELECT * FROM tabla WHERE HOST(ip) LIKE '192.168.1.%';

Ref.:
How do I perform a wildcard "like" select on type inet with Postgresql 7.4?
9.10. Network Address Type Functions

SUBSTR: Extraer una subcadena de una cadena

Extraer el principio y final de una cadena de caracteres usando substr y length.
Ejemplo: Corta los n caracteres iniciales y finales de una cadena.

#!/usr/bin/perl
#############################################################
# Extrae n caracteres del inicio y final de una cadena
#############################################################
#bypp:)2010

use strict;

print "Escribe algo: \n";
my $cadena = STDIN; #faltan simbolos mayor y menor

print "nº de caracteres a cortar: \n";
my $n = STDIN; #faltan simbolos mayor y menor

my $ini = substr($cadena, 0, $n);

my $fin = substr($cadena, (((length $cadena) - 1) - $n));

print "$ini\...$fin\n";

Ref.: http://www.tutorialspoint.com/perl/perl_substr.htm

Cambiar wallpapaer de LXDE

Hay que hacerlo desde PCMan file manager:

• Abrir PCMan
• menu Editar/preferencias/
• solapa Escritorio:
• y aqui cambiar el wallpaper y la ruta de la imagen.

Ref.: {SOLVED}Change wallpaper in LXDE?

Bash: if exist file

if [ -f file ]
then
echo file exists
fi

Bash: Estructuras con Test

see ...

Test Constructs

Bash: loop control

Para controlar la ejecución de un bucle for en bash esta break y continue.

Bash Loop Control

Buscar y eliminar ficheros duplicados

Una utilidad linux para consola que busca y borra archivos duplicados: fdupes

Muestraficheros duplicados en le directorio:
# fdupes /dir

Borra los archivos duplicados en el directorio dir: (ojo!! con esto)
# fdupes -d /dir

Buscar recursivamente:
#fdupes -r /dir

Muestra tamaño de los ficheros duplicados:
#fdupes -S /dir

ref.:
Linux fdupes: Get Rid (Delete) Of Double Duplicate Files In Directory
Fdupes. Buscando ficheros y directorios duplicados