<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=text/html;charset=iso-8859-1 http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18812"></HEAD>
<BODY style="PADDING-LEFT: 10px; PADDING-RIGHT: 10px; PADDING-TOP: 15px"
id=MailContainerBody leftMargin=0 topMargin=0 bgColor=#ffffff
CanvasTabStop="true" name="Compose message area">
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV style="FONT: 10pt Tahoma">
<DIV><BR></DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV style="font-color: black"><B>From:</B> <A
title="mailto:polettix@gmail.com Ctrl + clic per seguire il collegamento"
href="mailto:polettix@gmail.com">Flavio Poletti</A> </DIV>
<DIV><B>Sent:</B> Wednesday, September 16, 2009 2:02 AM</DIV>
<DIV><B>To:</B> <A title=roma@pm.org href="mailto:roma@pm.org">roma@pm.org</A>
</DIV>
<DIV><B>Subject:</B> Re: [Roma.pm] domanda</DIV></DIV></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>utilizzo Widows XP professional e ho aggiunto
il server IIS:</FONT></DIV>
<DIV><FONT size=2 face=Arial>il mio scopo è salvare l'immagine su MySQL e dopo
con GD::Image fare un confronto</FONT></DIV>
<DIV><FONT size=2 face=Arial>con un'altra immagine.</FONT></DIV>
<DIV><FONT size=2 face=Arial>Ciao</FONT></DIV>
<DIV><FONT size=2
face=Arial>****************************************************************************</FONT></DIV>
<DIV><BR></DIV>Continuo a non capire quali siano le difficoltà, visto che "DBI
funziona, con Mysql funziona".
<DIV><BR></DIV>
<DIV>Non vorrei che il problema fosse altrove, comunque. Su che sistema ti
trovi? Se Windows, la lettura del file è errata perché devi impostare binmode
(non fa male farlo nel caso generale, comunque). Consiglio anche di utilizzare
filehandle con variabili lessicali e la versione a tre parametri di open().
Insomma:</DIV>
<DIV><BR></DIV>
<DIV>my $data;</DIV>
<DIV>{ # restringo lo scope</DIV>
<DIV> local $/; # per leggere il file tutto in una volta</DIV>
<DIV> open my $fh, '<', $myfile</DIV>
<DIV> or die "open('$myfile'): $!";</DIV>
<DIV> binmode $fh;</DIV>
<DIV> $data = <$fh>;</DIV>
<DIV> close $fh;</DIV>
<DIV>}</DIV>
<DIV><BR></DIV>
<DIV>che spesso puoi trovare "riassunto" come segue:</DIV>
<DIV><BR></DIV>
<DIV>my $data = do { open my $fh, '<', $myfile or die "open(): $!"; binmode
$fh; local $/; <$fh> };</DIV>
<DIV><BR></DIV>
<DIV><BR></DIV>
<DIV>In questi casi è molto comodo utilizzare File::Slurp:</DIV>
<DIV><BR></DIV>
<DIV>use File::Slurp qw( read_file );</DIV>
<DIV>my $data = read_file($myfile); # voilà</DIV>
<DIV><BR></DIV>
<DIV><BR></DIV>
<DIV>In questo modo, sei sicuro che non vengano operate trasformazioni sui dati
in ingresso quando leggi da file.</DIV>
<DIV><BR></DIV>
<DIV>Da notare che impostando $/ ad undef (quando fai "local" per default il
valore inserito è proprio undef) praticamente stai dicendo che il separatore dei
"record d'ingresso" è non definito, per cui Perl tratta l'intero file come un
'record' e te lo legge tutto in una botta.</DIV>
<DIV><BR></DIV>
<DIV>Altra cosa... ma come controlli che il contenuto del blob corrisponda a
quello che ti aspetti?!?</DIV>
<DIV><BR></DIV>
<DIV>Ciao,</DIV>
<DIV><BR></DIV>
<DIV> Flavio.</DIV>
<DIV><BR> </DIV></BODY></HTML>