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><br><div class="gmail_quote">
2009/9/16 <span dir="ltr"><<a href="mailto:umbertobernardelli@live.it">umbertobernardelli@live.it</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div style="padding-left:10px;padding-right:10px;padding-top:15px" bgcolor="#ffffff" 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><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> Sunday, September 13, 2009 12:21 PM</div>
<div><b>To:</b> <a title="mailto:roma@pm.org
Ctrl + clic per seguire il collegamento" href="mailto:roma@pm.org" target="_blank">roma@pm.org</a> </div>
<div><b>Subject:</b> Re: [Roma.pm] domanda</div></div></div>
<div><br></div>
<div><font size="2" face="Arial">#!/usr/bin/perl -w<br>use warnings;<br>use CGI qw(
:standard );<br>use DBI;<br>use CGI;<br>my $myfile = "000036.png";<br>#my
$myfile = "picture.png";<br>#my $dbname = "MyDatabase";<br>my $dbname =
"vestiario";<br>print header,<br>
start_html(-title => "vesto");<br>my $dbh =
DBI->connect("dbi:mysql:database=$dbname") || die "Cannot open db";<br>open
MYFILE, $myfile or die "Cannot open file";<br>my $data;<br>while
(<MYFILE>) {<br> $data .=
$_;<br> }<br>close MYFILE;<br>my $sql
= "INSERT INTO Immagine (Image) VALUES (?)";<br>my $sth =
$dbh->prepare($sql);<br>my $numrows =
$sth->execute($data);<br>$sth->finish;<br>$dbh->disconnect;<br>print
br;<br>print "OK
load",<br>
end_html;</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">Ho usato nel MySQL <font size="3" face="Times New Roman"> la tabella con tipo 'longblob' . Ho fatto diversi
tentativi: </font></font></div>
<div><font size="2" face="Arial"><font size="3" face="Times New Roman">scopo
</font></font>carico $myfile nella tabella con tipo blob. </div>
<div>DBI funziona, con Mysql funziona, solo con il tipo blob ho delle
difficoltà.</div>
<div>**********************************************************************</div><div><div></div><div class="h5">
<div> </div>
<div><font size="2" face="Arial"></font> </div>
<div>Cosa hai provato fino ad ora? Suggerirei di partire da quel che hai fatto
per capire quali siano state le difficoltà.</div>
<div><br></div>
<div>Aspettiamo.</div>
<div><br>
<div class="gmail_quote">2009/9/13 <span dir="ltr"><<a title="mailto:umbertobernardelli@live.it
Ctrl + clic per seguire il collegamento" href="mailto:umbertobernardelli@live.it" target="_blank">umbertobernardelli@live.it</a>></span><br>
<blockquote style="border-left:#ccc 1px solid;margin:0px 0px 0px 0.8ex;padding-left:1ex" class="gmail_quote">cerco un aiuto<br>ho alcune difficoltà a caricare immagini
su MySQL con il perl licenza free.<br>Qualcuno potrebbe inviarmi un esempio
completo?<br>aspetto
<div>
<div></div>
<div><br><br><br>_______________________________________________<br>Roma
mailing list<br><a href="mailto:Roma@pm.org" target="_blank">Roma@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/roma" target="_blank">http://mail.pm.org/mailman/listinfo/roma</a><br></div></div></blockquote>
</div><br></div>
</div></div><p>
</p><hr><div class="im">
<p></p>_______________________________________________<br>Roma mailing
list<br><a href="mailto:Roma@pm.org" target="_blank">Roma@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/roma" target="_blank">http://mail.pm.org/mailman/listinfo/roma</a></div><p></p></div>
<br>_______________________________________________<br>
Roma mailing list<br>
<a href="mailto:Roma@pm.org">Roma@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/roma" target="_blank">http://mail.pm.org/mailman/listinfo/roma</a><br></blockquote></div><br></div>