Programando cosas

Esto hace rato que lo queria postear es simplemente un codigo muy simple que me ayuda a bajar las fotos de celulares que tienen camara y me las pasan por infrarojo a la palm y de la palm las bajo a la maquina 😮


#! /usr/bin/perl -w
use strict;
use Palm::PDB;
use Palm::Raw;
use Data::Dumper;

my $pdb = new Palm::PDB();

Palm::PDB::RegisterPDBHandlers(«Palm::Raw», «» );

$pdb->Load($ARGV<0>);

foreach my $record (@{$pdb->{records}})
{
print $record->{data} ;
}
es simplemente algo como esto

~# perl miprog.pl Cam0021.pdb > foto.jpg

y estos son unos links muy buenos sobres docs de apache
http://redimido.glo.org.mx/presentaciones_y_textos/howto/reverse_proxy_con_a
http://blackshell.usebox.net/archivo/992.php