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