<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div><div>On Sep 27, 2009, at 12:33 AM, <<a href="mailto:umbertobernardelli@live.it">umbertobernardelli@live.it</a>> wrote:</div><blockquote type="cite"><div 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">I risultati non sono positivi</font></div></div></blockquote><div><br></div><div>Ma... ci sono dei risultati positivi intermedi? cioè:</div><br><blockquote type="cite"><div 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">ho provato con
questo <a href="http://file.pl">file.pl</a> a caricare immagini sul database MySQL.</font></div>
<div><font size="2" face="Arial">#!/usr/bin/perl -w<br>use warnings;<br>use
strict;<br>use File::Slurp qw( read_file );<br>use CGI qw( :standard );<br>use
DBI;<br># Which database and which file from the filesystem?<br>my $myfile =
"picture10.png";<br>my $dbname = "foto";<br></font></div>
<div><font size="2" face="Arial"># Make a connection to your database<br>my $dbh =
DBI->connect("dbi:mysql:database=$dbname") || die "Cannot open
db";</font></div>
<div> </div>
<div><font size="2" face="Arial"># Open the file<br>open MYFILE, $myfile or
die "Cannot open file";<br>my $data;</font></div>
<div> </div>
<div><font size="2" face="Arial"># Read in the contents<br>while (<MYFILE>)
{<br> $data .=
$_;<br> }</font></div>
<div> </div>
<div><font size="2" face="Arial">close MYFILE;</font></div>
<div> </div>
<div><font size="2" face="Arial">my $sql = "INSERT INTO fotograf (imagefoto) VALUES
(?)";<br>my $sth = $dbh->prepare($sql);<br>my $numrows =
$sth->execute($data);</font></div>
<div> </div>
<div><font size="2" face="Arial"># We are done with the statement
handle<br>$sth->finish;<br># I am finished with this connection to the
database<br>$dbh->disconnect;</font></div>
<div><font size="2" face="Arial"></font></div></div></blockquote><div><br></div><div>a) assumendo che lo script finisca qui: dopo averlo eseguito, trovi un nuovo record nella tabella?</div><div><br></div><div>b) assumendo che lo script non finisca qui e prosegue:</div><blockquote type="cite"><div 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><span class="Apple-style-span" style="font-family: Arial; font-size: small; ">$sql = "SELECT imagefoto FROM
fotograf";</span></div><div><font size="2" face="Arial">$sth = $dbh->prepare($sql);<br></font></div></div></blockquote><div><br></div><div>$dbh è stato fatto fuori ("I am finished with this connection") :-(</div><br><blockquote type="cite"><div 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">$numrows =
$sth->execute;</font></div>
<div> </div>
<div><font size="2" face="Arial">open OUTPUT, ">output.png";<br>my $ref =
$sth->fetchrow_hashref;<br>my $newdata = $$ref{'imagefoto'};<br>print OUTPUT
$newdata;<br>close
OUTPUT;<br>$sth->finish;<br>$dbh->disconnect;<br></font></div></div></blockquote><div><br></div><div>Cheers,</div><div><br></div><div>-w</div><div><br></div><div><div><span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-size: medium; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; "><span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-size: medium; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; "><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div>-- </div><div>Yes, sometimes I have something to tell: <a href="http://viamarmorata.blogspot.com">http://viamarmorata.blogspot.com</a></div><div><br></div></div></span></span></div></div><br><blockquote type="cite"><div 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 style="FONT: 10pt Tahoma"><div style="background-image: initial; background-repeat: initial; background-attachment: initial; -webkit-background-clip: initial; -webkit-background-origin: initial; background-color: rgb(245, 245, 245); position: static; z-index: auto; background-position: initial initial; "><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> Thursday, September 17, 2009 8:24 AM</div>
<div><b>To:</b> <a title="mailto:roma@pm.org
Ctrl + clic per seguire il collegamento" href="mailto:roma@pm.org">roma@pm.org</a> </div>
<div><b>Subject:</b> Re: [Roma.pm] domanda</div></div></div>
<div><br></div>1. non hai detto se ci sono stati risultati positivi con quanto
suggerito nell'email precedente
<div>2. non è chiaro come *estrai* l'immagine da MySQL e come fai a dire che
"qualcosa non va". Ad esempio: usi un altro script in Perl? Fai un accesso con
qualche altro strumento/linguaggio in modo da garantirti? Se usi uno script Perl
posta anche quello.</div>
<div>3. ancora non ho capito di preciso *cosa* non vada<br><br>
<div class="gmail_quote">2009/9/17 <span dir="ltr"><<a href="mailto:umbertobernardelli@live.it">umbertobernardelli@live.it</a>></span><br>
<blockquote style="border-left-color: rgb(204, 204, 204); border-left-width: 1px; border-left-style: solid; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0.8ex; padding-left: 1ex; position: static; z-index: auto; " class="gmail_quote">
<div style="PADDING-LEFT: 10px; PADDING-RIGHT: 10px; PADDING-TOP: 15px" name="Compose message area" bgcolor="#ffffff">
<div><font size="2" face="Arial"></font> </div>
<div style="FONT: 10pt Tahoma">
<div><br></div>
<div style="BACKGROUND: #f5f5f5">
<div><b>From:</b> <a title="mailto:polettix@gmail.com
Ctrl + clic per seguire il collegamento" href="mailto:polettix@gmail.com" target="_blank">Flavio Poletti</a> </div>
<div><b>Sent:</b> Wednesday, September 16, 2009 2:02 AM</div>
<div class="im">
<div><b>To:</b> <a title="roma@pm.org" href="mailto:roma@pm.org" target="_blank">roma@pm.org</a> </div>
<div><b>Subject:</b> Re: [Roma.pm] domanda</div></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 class="im">
<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></div></blockquote></div></div></div></blockquote></div><br></body></html>