[Roma.pm] domanda
Flavio Poletti
polettix at gmail.com
Wed Sep 16 23:24:53 PDT 2009
1. non hai detto se ci sono stati risultati positivi con quanto suggerito
nell'email precedente2. 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.
3. ancora non ho capito di preciso *cosa* non vada
2009/9/17 <umbertobernardelli at live.it>
>
>
> *From:* Flavio Poletti <polettix at gmail.com>
> *Sent:* Wednesday, September 16, 2009 2:02 AM
> *To:* roma at pm.org
> *Subject:* Re: [Roma.pm] domanda
>
>
> utilizzo Widows XP professional e ho aggiunto il server IIS:
> il mio scopo è salvare l'immagine su MySQL e dopo con GD::Image fare un
> confronto
> con un'altra immagine.
> Ciao
>
> ****************************************************************************
>
> Continuo a non capire quali siano le difficoltà, visto che "DBI funziona,
> con Mysql funziona".
> 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:
>
> my $data;
> { # restringo lo scope
> local $/; # per leggere il file tutto in una volta
> open my $fh, '<', $myfile
> or die "open('$myfile'): $!";
> binmode $fh;
> $data = <$fh>;
> close $fh;
> }
>
> che spesso puoi trovare "riassunto" come segue:
>
> my $data = do { open my $fh, '<', $myfile or die "open(): $!"; binmode $fh;
> local $/; <$fh> };
>
>
> In questi casi è molto comodo utilizzare File::Slurp:
>
> use File::Slurp qw( read_file );
> my $data = read_file($myfile); # voilà
>
>
> In questo modo, sei sicuro che non vengano operate trasformazioni sui dati
> in ingresso quando leggi da file.
>
> 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.
>
> Altra cosa... ma come controlli che il contenuto del blob corrisponda a
> quello che ti aspetti?!?
>
> Ciao,
>
> Flavio.
>
>
>
> _______________________________________________
> Roma mailing list
> Roma at pm.org
> http://mail.pm.org/mailman/listinfo/roma
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/roma/attachments/20090917/aeca37da/attachment.html>
More information about the Roma
mailing list