From kanak at perl.it Fri Sep 11 01:38:29 2009 From: kanak at perl.it (kanak at perl.it) Date: Fri, 11 Sep 2009 10:38:29 +0200 Subject: [Roma.pm] domanda In-Reply-To: <4A81BEA5.9040605@perl.it> References: <1304118860-1249824046-cardhu_decombobulator_blackberry.rim.net-36997611-@bxe1032.bisx.produk.on.blackberry> <4A81BEA5.9040605@perl.it> Message-ID: <1756925397.20090911103829@perl.it> qual'e' la variabile che indica la posizione di un elemento dentro un array? in pratica l'opposto di: " $lista[x] " che corrisponde ad " elemento " io vorrei una funzione tipo: "posizione(elemento, @lista) che corrisponde ad " x " grazie From polettix at gmail.com Fri Sep 11 01:58:22 2009 From: polettix at gmail.com (Flavio Poletti) Date: Fri, 11 Sep 2009 10:58:22 +0200 Subject: [Roma.pm] domanda In-Reply-To: <1756925397.20090911103829@perl.it> References: <1304118860-1249824046-cardhu_decombobulator_blackberry.rim.net-36997611-@bxe1032.bisx.produk.on.blackberry> <4A81BEA5.9040605@perl.it> <1756925397.20090911103829@perl.it> Message-ID: In generale la mappatura indice -> valore non ? invertibile, ad esempio con array cos?: @array = (1, 1, 1, 1, 1); dove si trova "1"? Se vuoi l'indice del primo elemento uguale a quello che cerchi, puoi usare first_index (alias firstids) da List::MoreUtils : $indice = first_idx { $_ == $elemento } LISTA; Al posto di "==" puoi ovviamente mettere "eq" ed in generale puoi mettere un qualsiasi blocco di test (ad esempio per cercare il primo elemento pari, positivo, ecc.) Se sei sicuro che la mappatura sia invertibile - ossia la lista/array contiene solamente valori unici - e devi trovare parecchie inversioni potresti utilizzare una hash, ad esempio: my @array = (...); my %indice_di; @indice_di{@array} = 0 .. $#array; # oppure, pi? concisamente my %indice_di = map { $array[$_] => $_ } 0 .. $#array; $indice = $indice_di{$elemento}; Da notare che se hai elementi ripetuti questa tecnica ti dar? l'ultimo indice disponibile, non il primo come first_index(). Ciao, Flavio. 2009/9/11 > qual'e' la variabile che indica la posizione di un elemento dentro un > array? > > in pratica l'opposto di: > " $lista[x] " che corrisponde ad " elemento " > > io vorrei una funzione tipo: > "posizione(elemento, @lista) che corrisponde ad " x " > > grazie > > _______________________________________________ > Roma mailing list > Roma at pm.org > http://mail.pm.org/mailman/listinfo/roma > -------------- next part -------------- An HTML attachment was scrubbed... URL: From kanak at perl.it Fri Sep 11 07:30:18 2009 From: kanak at perl.it (kanak at perl.it) Date: Fri, 11 Sep 2009 16:30:18 +0200 Subject: [Roma.pm] domanda In-Reply-To: References: <1304118860-1249824046-cardhu_decombobulator_blackberry.rim.net-36997611-@bxe1032.bisx.produk.on.blackberry> <4A81BEA5.9040605@perl.it> <1756925397.20090911103829@perl.it> Message-ID: <1365894436.20090911163018@perl.it> grazie mille cerco di tradurmelo un attimo vorrei cercare di farlo col map piuttosto che usare un modulo senno' mi faccio la sub (ma e' antiestetico) > In generale la mappatura indice -> valore non ? invertibile, ad esempio con > array cos?: > @array = (1, 1, 1, 1, 1); > dove si trova "1"? > Se vuoi l'indice del primo elemento uguale a quello che cerchi, puoi usare > first_index (alias firstids) da > List::MoreUtils > : > $indice = first_idx { $_ == $elemento } LISTA; > Al posto di "==" puoi ovviamente mettere "eq" ed in generale puoi mettere un > qualsiasi blocco di test (ad esempio per cercare il primo elemento pari, > positivo, ecc.) > Se sei sicuro che la mappatura sia invertibile - ossia la lista/array > contiene solamente valori unici - e devi trovare parecchie inversioni > potresti utilizzare una hash, ad esempio: > my @array = (...); > my %indice_di; > @indice_di{@array} = 0 .. $#array; > # oppure, pi? concisamente > my %indice_di = map { $array[$_] => $_ } 0 .. $#array; > $indice = $indice_di{$elemento}; > Da notare che se hai elementi ripetuti questa tecnica ti dar? l'ultimo > indice disponibile, non il primo come first_index(). > Ciao, > Flavio. > 2009/9/11 >> qual'e' la variabile che indica la posizione di un elemento dentro un >> array? >> >> in pratica l'opposto di: >> " $lista[x] " che corrisponde ad " elemento " >> >> io vorrei una funzione tipo: >> "posizione(elemento, @lista) che corrisponde ad " x " >> >> grazie >> >> _______________________________________________ >> Roma mailing list >> Roma at pm.org >> http://mail.pm.org/mailman/listinfo/roma >> -- Best regards, kanak mailto:kanak at perl.it From umbertobernardelli at live.it Sat Sep 12 15:39:07 2009 From: umbertobernardelli at live.it (umbertobernardelli at live.it) Date: Sun, 13 Sep 2009 00:39:07 +0200 Subject: [Roma.pm] domanda In-Reply-To: <1304118860-1249824046-cardhu_decombobulator_blackberry.rim.net-36997611-@bxe1032.bisx.produk.on.blackberry><4A81BEA5.9040605@perl.it> <1756925397.20090911103829@perl.it> <1365894436.20090911163018@perl.it> References: <1304118860-1249824046-cardhu_decombobulator_blackberry.rim.net-36997611-@bxe1032.bisx.produk.on.blackberry><4A81BEA5.9040605@perl.it> <1756925397.20090911103829@perl.it> <1365894436.20090911163018@perl.it> Message-ID: cerco un aiuto ho alcune difficolt? a caricare immagini su MySQL con il perl licenza free. Qualcuno potrebbe inviarmi un esempio completo? aspetto From polettix at gmail.com Sun Sep 13 03:21:11 2009 From: polettix at gmail.com (Flavio Poletti) Date: Sun, 13 Sep 2009 12:21:11 +0200 Subject: [Roma.pm] domanda In-Reply-To: References: <1304118860-1249824046-cardhu_decombobulator_blackberry.rim.net-36997611-@bxe1032.bisx.produk.on.blackberry> <4A81BEA5.9040605@perl.it> <1756925397.20090911103829@perl.it> <1365894436.20090911163018@perl.it> Message-ID: Cosa hai provato fino ad ora? Suggerirei di partire da quel che hai fatto per capire quali siano state le difficolt?. Aspettiamo. 2009/9/13 > cerco un aiuto > ho alcune difficolt? a caricare immagini su MySQL con il perl licenza free. > Qualcuno potrebbe inviarmi un esempio completo? > aspetto > > > > _______________________________________________ > Roma mailing list > Roma at pm.org > http://mail.pm.org/mailman/listinfo/roma > -------------- next part -------------- An HTML attachment was scrubbed... URL: From mb at cattlegrid.info Tue Sep 15 02:40:51 2009 From: mb at cattlegrid.info (Michele Beltrame) Date: Tue, 15 Sep 2009 11:40:51 +0200 Subject: [Roma.pm] Italian Perl Workshop 2009: chiusura CFP Message-ID: <4AAF6123.4030908@cattlegrid.info> Salve a tutti! Oggi si chiude il Call for Paper per l'edizione 2009 dell'Italian Perl Workshop. Pertanto, se dovete ancora inviare il vostro intervento, oggi ? il giorno adatto. ;-) http://conferences.yapceurope.org/ipw2009/cfp.html Per chi non sapesse di cosa sto parlando, Perl.it e Pisa.pm, in collaborazione con l'Universit? di Pisa, , in collaborazione con l'IIT-CNR (Istituto di Informatica e Telematica del Consiglio Nazionale delle Ricerche), organizzano l'Italian Perl Workshop 2009, quinta edizione della conferenza nazionale sul linguaggio Perl e tecnologie correlate. La conferenza si terr? a Pisa, nei giorni 22-23 Ottobre 2009, presso l'Area di Ricerca del CNR. Gli ospiti confermati per quest'anno sono Tim Bunce, Mike Whitaker (Penfold), Jonathan Worthington, Thomas Fuchs ed Amy Hoy. L'evento ? *gratuito*, basta registrarsi per partecipare: http://www.perl.it/workshop/register Il Workshop vuole essere un'occasione d'incontro rivolta a tutti gli utilizzatori di Perl, professionisti o amatoriali che siano, ma anche a chi si avvicina per la prima volta a questo linguaggio e ne vuole conoscere le particolarit? e la cultura. A presto, Michele per il comitato organizzatore di IPW 2009 -- Michele Beltrame http://www.italpro.net/ - mb at italpro.net SkyPe: arthas77 - Twitter: _arthas From fabio.dalfonso at fabiodalfonso.com Tue Sep 15 02:58:02 2009 From: fabio.dalfonso at fabiodalfonso.com (Fabio D'Alfonso) Date: Tue, 15 Sep 2009 11:58:02 +0200 Subject: [Roma.pm] Banner IPW 2009 Message-ID: <4AAF652A.6060504@fabiodalfonso.com> An HTML attachment was scrubbed... URL: From mb at cattlegrid.info Tue Sep 15 08:04:02 2009 From: mb at cattlegrid.info (Michele Beltrame) Date: Tue, 15 Sep 2009 17:04:02 +0200 Subject: [Roma.pm] Banner IPW 2009 In-Reply-To: <4AAF652A.6060504@fabiodalfonso.com> References: <4AAF652A.6060504@fabiodalfonso.com> Message-ID: <4AAFACE2.4090907@cattlegrid.info> Ciao! > ho inserito un banner sul mio sito, completamente rinnovato, di formato > spero indoneo a rappresentare l'importanza dell'evento. Grazie!!! Michele. -- Michele Beltrame http://www.italpro.net/ - mb at italpro.net SkyPe: arthas77 - Twitter: _arthas From umbertobernardelli at live.it Tue Sep 15 15:44:36 2009 From: umbertobernardelli at live.it (umbertobernardelli at live.it) Date: Wed, 16 Sep 2009 00:44:36 +0200 Subject: [Roma.pm] domanda In-Reply-To: <1304118860-1249824046-cardhu_decombobulator_blackberry.rim.net-36997611-@bxe1032.bisx.produk.on.blackberry><4A81BEA5.9040605@perl.it> <1756925397.20090911103829@perl.it> <1365894436.20090911163018@perl.it> References: <1304118860-1249824046-cardhu_decombobulator_blackberry.rim.net-36997611-@bxe1032.bisx.produk.on.blackberry><4A81BEA5.9040605@perl.it> <1756925397.20090911103829@perl.it> <1365894436.20090911163018@perl.it> Message-ID: From: Flavio Poletti Sent: Sunday, September 13, 2009 12:21 PM To: roma at pm.org Subject: Re: [Roma.pm] domanda #!/usr/bin/perl -w use warnings; use CGI qw( :standard ); use DBI; use CGI; my $myfile = "000036.png"; #my $myfile = "picture.png"; #my $dbname = "MyDatabase"; my $dbname = "vestiario"; print header, start_html(-title => "vesto"); my $dbh = DBI->connect("dbi:mysql:database=$dbname") || die "Cannot open db"; open MYFILE, $myfile or die "Cannot open file"; my $data; while () { $data .= $_; } close MYFILE; my $sql = "INSERT INTO Immagine (Image) VALUES (?)"; my $sth = $dbh->prepare($sql); my $numrows = $sth->execute($data); $sth->finish; $dbh->disconnect; print br; print "OK load", end_html; Ho usato nel MySQL la tabella con tipo 'longblob' . Ho fatto diversi tentativi: scopo carico $myfile nella tabella con tipo blob. DBI funziona, con Mysql funziona, solo con il tipo blob ho delle difficolt?. ********************************************************************** Cosa hai provato fino ad ora? Suggerirei di partire da quel che hai fatto per capire quali siano state le difficolt?. Aspettiamo. 2009/9/13 cerco un aiuto ho alcune difficolt? a caricare immagini su MySQL con il perl licenza free. Qualcuno potrebbe inviarmi un esempio completo? aspetto _______________________________________________ Roma mailing list Roma at pm.org http://mail.pm.org/mailman/listinfo/roma -------------------------------------------------------------------------------- _______________________________________________ Roma mailing list Roma at pm.org http://mail.pm.org/mailman/listinfo/roma -------------- next part -------------- An HTML attachment was scrubbed... URL: From emazep at gmail.com Tue Sep 15 16:18:31 2009 From: emazep at gmail.com (Emanuele Zeppieri) Date: Wed, 16 Sep 2009 01:18:31 +0200 Subject: [Roma.pm] Banner IPW 2009 In-Reply-To: <4AAF652A.6060504@fabiodalfonso.com> References: <4AAF652A.6060504@fabiodalfonso.com> Message-ID: <66ce663d0909151618u7ad8869ble07a0bf0e1c43f26@mail.gmail.com> On Tue, Sep 15, 2009 at 11:58 AM, Fabio D'Alfonso wrote: > Buongiorno a tutti, > ho inserito un banner sul mio sito, completamente rinnovato, di formato > spero indoneo a rappresentare l'importanza dell'evento. Grazie e complimenti per il tuo nuovo sito, veramente professionale (peccato per la foto ;-) Attento per? che non viene validato (n? i CSS n? l'(X)HTML, almeno della home page), per cui apporta le dovute correzioni (sono immediate) oppure togli i badge ;-) No comunque ? bello, complimenti di nuovo. -Emanuele From polettix at gmail.com Tue Sep 15 17:02:48 2009 From: polettix at gmail.com (Flavio Poletti) Date: Wed, 16 Sep 2009 02:02:48 +0200 Subject: [Roma.pm] domanda In-Reply-To: References: <1304118860-1249824046-cardhu_decombobulator_blackberry.rim.net-36997611-@bxe1032.bisx.produk.on.blackberry> <4A81BEA5.9040605@perl.it> <1756925397.20090911103829@perl.it> <1365894436.20090911163018@perl.it> Message-ID: 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. 2009/9/16 > > > *From:* Flavio Poletti > *Sent:* Sunday, September 13, 2009 12:21 PM > *To:* roma at pm.org > *Subject:* Re: [Roma.pm] domanda > > #!/usr/bin/perl -w > use warnings; > use CGI qw( :standard ); > use DBI; > use CGI; > my $myfile = "000036.png"; > #my $myfile = "picture.png"; > #my $dbname = "MyDatabase"; > my $dbname = "vestiario"; > print header, > start_html(-title => "vesto"); > my $dbh = DBI->connect("dbi:mysql:database=$dbname") || die "Cannot open > db"; > open MYFILE, $myfile or die "Cannot open file"; > my $data; > while () { > $data .= $_; > } > close MYFILE; > my $sql = "INSERT INTO Immagine (Image) VALUES (?)"; > my $sth = $dbh->prepare($sql); > my $numrows = $sth->execute($data); > $sth->finish; > $dbh->disconnect; > print br; > print "OK load", > end_html; > > Ho usato nel MySQL la tabella con tipo 'longblob' . Ho fatto diversi > tentativi: > scopo carico $myfile nella tabella con tipo blob. > DBI funziona, con Mysql funziona, solo con il tipo blob ho delle > difficolt?. > ********************************************************************** > > > Cosa hai provato fino ad ora? Suggerirei di partire da quel che hai fatto > per capire quali siano state le difficolt?. > > Aspettiamo. > > 2009/9/13 > >> cerco un aiuto >> ho alcune difficolt? a caricare immagini su MySQL con il perl licenza >> free. >> Qualcuno potrebbe inviarmi un esempio completo? >> aspetto >> >> >> >> _______________________________________________ >> Roma mailing list >> Roma at pm.org >> http://mail.pm.org/mailman/listinfo/roma >> > > ------------------------------ > > _______________________________________________ > Roma mailing list > Roma at pm.org > http://mail.pm.org/mailman/listinfo/roma > > > _______________________________________________ > Roma mailing list > Roma at pm.org > http://mail.pm.org/mailman/listinfo/roma > -------------- next part -------------- An HTML attachment was scrubbed... URL: From fabio.dalfonso at fabiodalfonso.com Wed Sep 16 03:38:14 2009 From: fabio.dalfonso at fabiodalfonso.com (Fabio D'Alfonso) Date: Wed, 16 Sep 2009 12:38:14 +0200 Subject: [Roma.pm] Banner IPW 2009 In-Reply-To: <66ce663d0909151618u7ad8869ble07a0bf0e1c43f26@mail.gmail.com> References: <4AAF652A.6060504@fabiodalfonso.com> <66ce663d0909151618u7ad8869ble07a0bf0e1c43f26@mail.gmail.com> Message-ID: <4AB0C016.4070404@fabiodalfonso.com> An HTML attachment was scrubbed... URL: From polettix at gmail.com Wed Sep 16 03:44:20 2009 From: polettix at gmail.com (Flavio Poletti) Date: Wed, 16 Sep 2009 12:44:20 +0200 Subject: [Roma.pm] Banner IPW 2009 In-Reply-To: <4AB0C016.4070404@fabiodalfonso.com> References: <4AAF652A.6060504@fabiodalfonso.com> <66ce663d0909151618u7ad8869ble07a0bf0e1c43f26@mail.gmail.com> <4AB0C016.4070404@fabiodalfonso.com> Message-ID: Ciao Fabio, ecco una screenshot commentata, presa sotto Safari 4.0.3 in Mac OS X: http://img.skitch.com/20090916-rgyht1kx1ct6w95wcw1yp9dnik.png Ciao, Flavio. 2009/9/16 Fabio D'Alfonso > Buongiorno a tutti, > purtroppo ognuno ha la foto che si merita... > > Grazie per la segnalazione: i problemi sono legati al componente per lo slide show, ultimo arrivato (a parte un solo errore preesistente) . > > Li metter? a posto in breve. > Grazie, sono contento che sia piaciuto. > > Fabio D'Alfonso > 'Your Partner in Business' > cell. +39.348.059.40.22 > web: www.fabiodalfonso.com > email: fabio.dalfonso at fabiodalfonso.com > fax: +39.06.874.599.581 > BlackBerry? Wireless Enabled Address. > > > > > Emanuele Zeppieri wrote: > > On Tue, Sep 15, 2009 at 11:58 AM, Fabio D'Alfonso wrote: > > > > Buongiorno a tutti, > ho inserito un banner sul mio sito, completamente rinnovato, di formato > spero indoneo a rappresentare l'importanza dell'evento. > > > Grazie e complimenti per il tuo nuovo sito, veramente professionale > (peccato per la foto ;-) > > Attento per? che non viene validato (n? i CSS n? l'(X)HTML, almeno > della home page), per cui apporta le dovute correzioni (sono > immediate) oppure togli i badge ;-) > > No comunque ? bello, complimenti di nuovo. > > -Emanuele > > > __________ Information from ESET NOD32 Antivirus, version of virus signature database 4426 (20090915) __________ > > The message was checked by ESET NOD32 Antivirus. > http://www.eset.com > > > > > __________ Information from ESET NOD32 Antivirus, version of virus > signature database 4426 (20090915) __________ > > The message was checked by ESET NOD32 Antivirus. > > http://www.eset.com > > _______________________________________________ > Roma mailing list > Roma at pm.org > http://mail.pm.org/mailman/listinfo/roma > -------------- next part -------------- An HTML attachment was scrubbed... URL: From fabio.dalfonso at fabiodalfonso.com Wed Sep 16 05:02:55 2009 From: fabio.dalfonso at fabiodalfonso.com (Fabio D'Alfonso) Date: Wed, 16 Sep 2009 12:02:55 +0000 Subject: [Roma.pm] Banner IPW 2009 In-Reply-To: References: <4AAF652A.6060504@fabiodalfonso.com><66ce663d0909151618u7ad8869ble07a0bf0e1c43f26@mail.gmail.com> <4AB0C016.4070404@fabiodalfonso.com> Message-ID: <1006729391-1253102555-cardhu_decombobulator_blackberry.rim.net-546335085-@bda126.bisx.produk.on.blackberry> Ciao, grazie , su firefox lo vedo giusto. Ciao Fabio -- Fabio D'Alfonso 'Your Partner in Business' cell. +39.348.059.40.22 web: www.fabiodalfonso.com email: fabio.dalfonso at fabiodalfonso.com fax: +39.06.874.599.581 BlackBerry? Wireless Enabled Address. -----Original Message----- From: Flavio Poletti Date: Wed, 16 Sep 2009 12:44:20 To: Subject: Re: [Roma.pm] Banner IPW 2009 _______________________________________________ Roma mailing list Roma at pm.org http://mail.pm.org/mailman/listinfo/roma From dada at perl.it Wed Sep 16 05:43:49 2009 From: dada at perl.it (Aldo Calpini) Date: Wed, 16 Sep 2009 14:43:49 +0200 Subject: [Roma.pm] Banner IPW 2009 In-Reply-To: <1006729391-1253102555-cardhu_decombobulator_blackberry.rim.net-546335085-@bda126.bisx.produk.on.blackberry> References: <4AAF652A.6060504@fabiodalfonso.com><66ce663d0909151618u7ad8869ble07a0bf0e1c43f26@mail.gmail.com> <4AB0C016.4070404@fabiodalfonso.com> <1006729391-1253102555-cardhu_decombobulator_blackberry.rim.net-546335085-@bda126.bisx.produk.on.blackberry> Message-ID: <4AB0DD85.6090903@perl.it> Fabio D'Alfonso wrote: > Ciao, > grazie , su firefox lo vedo giusto. non qui. firefox 3.5.3/win e 3.0.3/linux, entrambi come a polettix. who's online e' tagliato e il logo IPW e' tagliato. a 1400x1050, quindi manco a di' che ce l'ho piccolo :-) cheers, Aldo From polettix at gmail.com Wed Sep 16 05:52:55 2009 From: polettix at gmail.com (Flavio Poletti) Date: Wed, 16 Sep 2009 14:52:55 +0200 Subject: [Roma.pm] Banner IPW 2009 In-Reply-To: <4AB0DD85.6090903@perl.it> References: <4AAF652A.6060504@fabiodalfonso.com> <66ce663d0909151618u7ad8869ble07a0bf0e1c43f26@mail.gmail.com> <4AB0C016.4070404@fabiodalfonso.com> <1006729391-1253102555-cardhu_decombobulator_blackberry.rim.net-546335085-@bda126.bisx.produk.on.blackberry> <4AB0DD85.6090903@perl.it> Message-ID: Excusatio non petita accusatio manifesta... 2009/9/16 Aldo Calpini > Fabio D'Alfonso wrote: > >> Ciao, >> grazie , su firefox lo vedo giusto. >> > > non qui. firefox 3.5.3/win e 3.0.3/linux, entrambi come a polettix. who's > online e' tagliato e il logo IPW e' tagliato. a 1400x1050, quindi manco a > di' che ce l'ho piccolo :-) > > cheers, > Aldo > > > _______________________________________________ > Roma mailing list > Roma at pm.org > http://mail.pm.org/mailman/listinfo/roma > -------------- next part -------------- An HTML attachment was scrubbed... URL: From cwernli at gmail.com Wed Sep 16 06:09:11 2009 From: cwernli at gmail.com (Christoph Wernli) Date: Wed, 16 Sep 2009 15:09:11 +0200 Subject: [Roma.pm] Banner IPW 2009 In-Reply-To: <4AB0DD85.6090903@perl.it> References: <4AAF652A.6060504@fabiodalfonso.com><66ce663d0909151618u7ad8869ble07a0bf0e1c43f26@mail.gmail.com> <4AB0C016.4070404@fabiodalfonso.com> <1006729391-1253102555-cardhu_decombobulator_blackberry.rim.net-546335085-@bda126.bisx.produk.on.blackberry> <4AB0DD85.6090903@perl.it> Message-ID: <0BD5E81E-0304-4F1D-BA1A-B671C42D480A@gmail.com> Credo dipenda dalla larghezza della finestra (MacOS 10.6.1/Firefox 3.0.11): Finestra grande - ok: http://skitch.com/chickenshit/b9qjg/mac-firefox-large-ok Finestra piccola - notok: http://skitch.com/chickenshit/b9qjm/mac-firefox-small-notok -w P.S: polettix, grazie per il suggerimento (anche se involontario) di skitch... -- Yes, sometimes I have something to tell: http://viamarmorata.blogspot.com On Sep 16, 2009, at 2:43 PM, Aldo Calpini wrote: > Fabio D'Alfonso wrote: >> Ciao, >> grazie , su firefox lo vedo giusto. > > non qui. firefox 3.5.3/win e 3.0.3/linux, entrambi come a polettix. > who's online e' tagliato e il logo IPW e' tagliato. a 1400x1050, > quindi manco a di' che ce l'ho piccolo :-) > > cheers, > Aldo > > _______________________________________________ > Roma mailing list > Roma at pm.org > http://mail.pm.org/mailman/listinfo/roma From fabio.dalfonso at fabiodalfonso.com Wed Sep 16 06:32:31 2009 From: fabio.dalfonso at fabiodalfonso.com (Fabio D'Alfonso) Date: Wed, 16 Sep 2009 15:32:31 +0200 Subject: [Roma.pm] Banner IPW 2009 In-Reply-To: <0BD5E81E-0304-4F1D-BA1A-B671C42D480A@gmail.com> References: <4AAF652A.6060504@fabiodalfonso.com><66ce663d0909151618u7ad8869ble07a0bf0e1c43f26@mail.gmail.com> <4AB0C016.4070404@fabiodalfonso.com> <1006729391-1253102555-cardhu_decombobulator_blackberry.rim.net-546335085-@bda126.bisx.produk.on.blackberry> <4AB0DD85.6090903@perl.it> <0BD5E81E-0304-4F1D-BA1A-B671C42D480A@gmail.com> Message-ID: <4AB0E8EF.4080502@fabiodalfonso.com> An HTML attachment was scrubbed... URL: From umbertobernardelli at live.it Wed Sep 16 19:05:34 2009 From: umbertobernardelli at live.it (umbertobernardelli at live.it) Date: Thu, 17 Sep 2009 04:05:34 +0200 Subject: [Roma.pm] domanda In-Reply-To: <1304118860-1249824046-cardhu_decombobulator_blackberry.rim.net-36997611-@bxe1032.bisx.produk.on.blackberry><4A81BEA5.9040605@perl.it> <1756925397.20090911103829@perl.it> <1365894436.20090911163018@perl.it> References: <1304118860-1249824046-cardhu_decombobulator_blackberry.rim.net-36997611-@bxe1032.bisx.produk.on.blackberry><4A81BEA5.9040605@perl.it> <1756925397.20090911103829@perl.it> <1365894436.20090911163018@perl.it> Message-ID: From: Flavio Poletti 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. -------------- next part -------------- An HTML attachment was scrubbed... URL: From polettix at gmail.com Wed Sep 16 23:24:53 2009 From: polettix at gmail.com (Flavio Poletti) Date: Thu, 17 Sep 2009 08:24:53 +0200 Subject: [Roma.pm] domanda In-Reply-To: References: <1304118860-1249824046-cardhu_decombobulator_blackberry.rim.net-36997611-@bxe1032.bisx.produk.on.blackberry> <4A81BEA5.9040605@perl.it> <1756925397.20090911103829@perl.it> <1365894436.20090911163018@perl.it> Message-ID: 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 > > > *From:* Flavio Poletti > *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: From fabio.dalfonso at fabiodalfonso.com Thu Sep 17 08:07:07 2009 From: fabio.dalfonso at fabiodalfonso.com (Fabio D'Alfonso) Date: Thu, 17 Sep 2009 17:07:07 +0200 Subject: [Roma.pm] Banner IPW 2009 - Book Now - Buy Now - Pay Now In-Reply-To: <0BD5E81E-0304-4F1D-BA1A-B671C42D480A@gmail.com> References: <4AAF652A.6060504@fabiodalfonso.com><66ce663d0909151618u7ad8869ble07a0bf0e1c43f26@mail.gmail.com> <4AB0C016.4070404@fabiodalfonso.com> <1006729391-1253102555-cardhu_decombobulator_blackberry.rim.net-546335085-@bda126.bisx.produk.on.blackberry> <4AB0DD85.6090903@perl.it> <0BD5E81E-0304-4F1D-BA1A-B671C42D480A@gmail.com> Message-ID: <4AB2509B.2060507@fabiodalfonso.com> An HTML attachment was scrubbed... URL: From polettix at gmail.com Thu Sep 17 13:54:19 2009 From: polettix at gmail.com (Flavio Poletti) Date: Thu, 17 Sep 2009 22:54:19 +0200 Subject: [Roma.pm] Banner IPW 2009 - Book Now - Buy Now - Pay Now In-Reply-To: <4AB2509B.2060507@fabiodalfonso.com> References: <4AAF652A.6060504@fabiodalfonso.com> <66ce663d0909151618u7ad8869ble07a0bf0e1c43f26@mail.gmail.com> <4AB0C016.4070404@fabiodalfonso.com> <1006729391-1253102555-cardhu_decombobulator_blackberry.rim.net-546335085-@bda126.bisx.produk.on.blackberry> <4AB0DD85.6090903@perl.it> <0BD5E81E-0304-4F1D-BA1A-B671C42D480A@gmail.com> <4AB2509B.2060507@fabiodalfonso.com> Message-ID: Ciao, lo slideshow continua ad invadere la colonna a sinistra quando la finestra non ? molto ampia. Il logo lo vedo bene ora. Ciao, Flavio. 2009/9/17 Fabio D'Alfonso > Buongiorno, > ho sistemato il logo e lo slideshow (grazie per la segnalazione). > > Riguardo al css sono stati corretti tutti gli errori a parte uno sul quale > bisogna indagare. > > Comunque, e a questo si riferisce il titolo, la compliance del css > forse non ? la prima delle preoccupazioni; saro' molto preoccupato quandi > mettero' Book Now! Buy Now! E soprattutto PAY Now ! E non si dovessero > vedere... > > Ciao > > Fabio D'Alfonso > 'Your Partner in Business' > cell. +39.348.059.40.22 > web: www.fabiodalfonso.com > email: fabio.dalfonso at fabiodalfonso.com > fax: +39.06.874.599.581 > BlackBerry? Wireless Enabled Address. > > > > > Christoph Wernli wrote: > > Credo dipenda dalla larghezza della finestra (MacOS 10.6.1/Firefox 3.0.11): > > > Finestra grande - ok: > http://skitch.com/chickenshit/b9qjg/mac-firefox-large-ok > Finestra piccola - notok: > http://skitch.com/chickenshit/b9qjm/mac-firefox-small-notok > > -w > > P.S: polettix, grazie per il suggerimento (anche se involontario) di > skitch... > > > > __________ Information from ESET NOD32 Antivirus, version of virus > signature database 4433 (20090917) __________ > > The message was checked by ESET NOD32 Antivirus. > > http://www.eset.com > > _______________________________________________ > Roma mailing list > Roma at pm.org > http://mail.pm.org/mailman/listinfo/roma > -------------- next part -------------- An HTML attachment was scrubbed... URL: From fabio.dalfonso at fabiodalfonso.com Sat Sep 19 11:36:40 2009 From: fabio.dalfonso at fabiodalfonso.com (Fabio D'Alfonso) Date: Sat, 19 Sep 2009 20:36:40 +0200 Subject: [Roma.pm] Banner IPW 2009 - Book Now - Buy Now - Pay Now In-Reply-To: References: <4AAF652A.6060504@fabiodalfonso.com> <66ce663d0909151618u7ad8869ble07a0bf0e1c43f26@mail.gmail.com> <4AB0C016.4070404@fabiodalfonso.com> <1006729391-1253102555-cardhu_decombobulator_blackberry.rim.net-546335085-@bda126.bisx.produk.on.blackberry> <4AB0DD85.6090903@perl.it> <0BD5E81E-0304-4F1D-BA1A-B671C42D480A@gmail.com> <4AB2509B.2060507@fabiodalfonso.com> Message-ID: <4AB524B8.8050602@fabiodalfonso.com> An HTML attachment was scrubbed... URL: From polettix at gmail.com Mon Sep 21 00:53:57 2009 From: polettix at gmail.com (Flavio Poletti) Date: Mon, 21 Sep 2009 09:53:57 +0200 Subject: [Roma.pm] Banner IPW 2009 - Book Now - Buy Now - Pay Now In-Reply-To: <4AB524B8.8050602@fabiodalfonso.com> References: <4AAF652A.6060504@fabiodalfonso.com> <66ce663d0909151618u7ad8869ble07a0bf0e1c43f26@mail.gmail.com> <4AB0C016.4070404@fabiodalfonso.com> <1006729391-1253102555-cardhu_decombobulator_blackberry.rim.net-546335085-@bda126.bisx.produk.on.blackberry> <4AB0DD85.6090903@perl.it> <0BD5E81E-0304-4F1D-BA1A-B671C42D480A@gmail.com> <4AB2509B.2060507@fabiodalfonso.com> <4AB524B8.8050602@fabiodalfonso.com> Message-ID: > > Rifacendo il sito ho scoperto una cosa che ? poco pi? clamorosa dell'acqua > calda: un buon contenitore facilita la produzione dei contenuti > (praticamente Eureka!). > Peccato non si possa dire la stessa cosa di una buona macchina fotografica ;-) Ciao, Flavio. -------------- next part -------------- An HTML attachment was scrubbed... URL: From oha at oha.it Mon Sep 21 01:10:45 2009 From: oha at oha.it (Oha) Date: Mon, 21 Sep 2009 10:10:45 +0200 Subject: [Roma.pm] Banner IPW 2009 - Book Now - Buy Now - Pay Now Message-ID: <200909210810.n8L8Aj4r011891@vivaldi07.register.it> >Peccato non si possa dire la stessa cosa di una buona >macchina fotografica ;-) no, ma lo si puo' dire di un buon fotografo o di un buon soggetto! Oha From fabio.dalfonso at fabiodalfonso.com Mon Sep 21 02:01:36 2009 From: fabio.dalfonso at fabiodalfonso.com (Fabio D'Alfonso) Date: Mon, 21 Sep 2009 11:01:36 +0200 Subject: [Roma.pm] Banner IPW 2009 - Una domanda In-Reply-To: <200909210810.n8L8Aj4r011891@vivaldi07.register.it> References: <200909210810.n8L8Aj4r011891@vivaldi07.register.it> Message-ID: <4AB740F0.1060006@fabiodalfonso.com> An HTML attachment was scrubbed... URL: From fabio.dalfonso at fabiodalfonso.com Mon Sep 21 09:36:43 2009 From: fabio.dalfonso at fabiodalfonso.com (Fabio D'Alfonso) Date: Mon, 21 Sep 2009 18:36:43 +0200 Subject: [Roma.pm] Banner IPW 2009 - Una domanda In-Reply-To: <4AB740F0.1060006@fabiodalfonso.com> References: <200909210810.n8L8Aj4r011891@vivaldi07.register.it> <4AB740F0.1060006@fabiodalfonso.com> Message-ID: <4AB7AB9B.6070906@fabiodalfonso.com> An HTML attachment was scrubbed... URL: From mb at cattlegrid.info Thu Sep 24 08:41:30 2009 From: mb at cattlegrid.info (Michele Beltrame) Date: Thu, 24 Sep 2009 17:41:30 +0200 Subject: [Roma.pm] Offerta di lavoro Message-ID: <4ABB932A.6020500@cattlegrid.info> Ciao! Giro questa offertadi lavoro, nel aso qualcuno fosse interessato. ---------------------------- Buongiorno, vi scrivo per chiedere il vostro aiuto per una ricerca di lavoro nel vostro settore: per una nostra azienda cliente stiamo cercando a Sesto San Giovanni un programmatore Perl, sql, e html, per un contratto a progetto di un mese: il nostro cliente ha bisogno di una implementazione su un applicativo gi? esistente, e per il momento ? questa la durata delle collaborazione richiesta. Vi sarei grato per tutto l?aiuto che potrete darmi, sia in termini di indicazioni, sia se veicolaste questa nostra esigenza a chi pu? essere interessato. Grazie Cordiali saluti, //Good to know you// Nicola Mozzetti Account Manager Randstad Italia S.p.a. Societ? Unipersonale Aut. Min. 1102-SG del 26/11/04 V.le Marelli 36- 20099 Sesto San Giovanni MI T +39 02 26263953 F + 39 02 2626 3961 sestosg.marelli at it.randstad.com www.randstad.it ---------------------------- _________________________________________________________________ mongers at lists.perl.it - La mailing list dei Perl Mongers italiani Home page: http://lists.perl.it/sympa/info/mongers Archivio web: http://lists.perl.it/sympa/arc/mongers From umbertobernardelli at live.it Sat Sep 26 15:33:06 2009 From: umbertobernardelli at live.it (umbertobernardelli at live.it) Date: Sun, 27 Sep 2009 00:33:06 +0200 Subject: [Roma.pm] domanda In-Reply-To: <1304118860-1249824046-cardhu_decombobulator_blackberry.rim.net-36997611-@bxe1032.bisx.produk.on.blackberry><4A81BEA5.9040605@perl.it> <1756925397.20090911103829@perl.it> <1365894436.20090911163018@perl.it> References: <1304118860-1249824046-cardhu_decombobulator_blackberry.rim.net-36997611-@bxe1032.bisx.produk.on.blackberry><4A81BEA5.9040605@perl.it> <1756925397.20090911103829@perl.it> <1365894436.20090911163018@perl.it> Message-ID: I risultati non sono positivi, ho provato con questo file.pl a caricare immagini sul database MySQL. #!/usr/bin/perl -w use warnings; use strict; use File::Slurp qw( read_file ); use CGI qw( :standard ); use DBI; # Which database and which file from the filesystem? my $myfile = "picture10.png"; my $dbname = "foto"; # Make a connection to your database my $dbh = DBI->connect("dbi:mysql:database=$dbname") || die "Cannot open db"; # Open the file open MYFILE, $myfile or die "Cannot open file"; my $data; # Read in the contents while () { $data .= $_; } close MYFILE; my $sql = "INSERT INTO fotograf (imagefoto) VALUES (?)"; my $sth = $dbh->prepare($sql); my $numrows = $sth->execute($data); # We are done with the statement handle $sth->finish; # I am finished with this connection to the database $dbh->disconnect; $sql = "SELECT imagefoto FROM fotograf"; $sth = $dbh->prepare($sql); $numrows = $sth->execute; open OUTPUT, ">output.png"; my $ref = $sth->fetchrow_hashref; my $newdata = $$ref{'imagefoto'}; print OUTPUT $newdata; close OUTPUT; $sth->finish; $dbh->disconnect; ====================================== #mysql===================================== drop database IF EXISTS foto; CREATE DATABASE foto; use foto; CREATE TABLE fotograf ( id tinyint(3) unsigned NOT NULL auto_increment, imagefoto blob NOT NULL, PRIMARY KEY (id) ); Mi aspetto di vedere l'immagine nella pagina html ma non c'?. saluti From: Flavio Poletti Sent: Thursday, September 17, 2009 8:24 AM To: roma at pm.org Subject: Re: [Roma.pm] domanda 1. non hai detto se ci sono stati risultati positivi con quanto suggerito nell'email precedente 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. 3. ancora non ho capito di preciso *cosa* non vada 2009/9/17 From: Flavio Poletti 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 -------------------------------------------------------------------------------- _______________________________________________ Roma mailing list Roma at pm.org http://mail.pm.org/mailman/listinfo/roma -------------- next part -------------- An HTML attachment was scrubbed... URL: From cwernli at gmail.com Sat Sep 26 16:26:07 2009 From: cwernli at gmail.com (Christoph Wernli) Date: Sun, 27 Sep 2009 01:26:07 +0200 Subject: [Roma.pm] domanda In-Reply-To: References: <1304118860-1249824046-cardhu_decombobulator_blackberry.rim.net-36997611-@bxe1032.bisx.produk.on.blackberry><4A81BEA5.9040605@perl.it> <1756925397.20090911103829@perl.it> <1365894436.20090911163018@perl.it> Message-ID: On Sep 27, 2009, at 12:33 AM, wrote: > I risultati non sono positivi Ma... ci sono dei risultati positivi intermedi? cio?: > ho provato con questo file.pl a caricare immagini sul database MySQL. > #!/usr/bin/perl -w > use warnings; > use strict; > use File::Slurp qw( read_file ); > use CGI qw( :standard ); > use DBI; > # Which database and which file from the filesystem? > my $myfile = "picture10.png"; > my $dbname = "foto"; > # Make a connection to your database > my $dbh = DBI->connect("dbi:mysql:database=$dbname") || die "Cannot > open db"; > > # Open the file > open MYFILE, $myfile or die "Cannot open file"; > my $data; > > # Read in the contents > while () { > $data .= $_; > } > > close MYFILE; > > my $sql = "INSERT INTO fotograf (imagefoto) VALUES (?)"; > my $sth = $dbh->prepare($sql); > my $numrows = $sth->execute($data); > > # We are done with the statement handle > $sth->finish; > # I am finished with this connection to the database > $dbh->disconnect; a) assumendo che lo script finisca qui: dopo averlo eseguito, trovi un nuovo record nella tabella? b) assumendo che lo script non finisca qui e prosegue: > $sql = "SELECT imagefoto FROM fotograf"; > $sth = $dbh->prepare($sql); $dbh ? stato fatto fuori ("I am finished with this connection") :-( > $numrows = $sth->execute; > > open OUTPUT, ">output.png"; > my $ref = $sth->fetchrow_hashref; > my $newdata = $$ref{'imagefoto'}; > print OUTPUT $newdata; > close OUTPUT; > $sth->finish; > $dbh->disconnect; Cheers, -w -- Yes, sometimes I have something to tell: http://viamarmorata.blogspot.com > From: Flavio Poletti > Sent: Thursday, September 17, 2009 8:24 AM > To: roma at pm.org > Subject: Re: [Roma.pm] domanda > > 1. non hai detto se ci sono stati risultati positivi con quanto > suggerito nell'email precedente > 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. > 3. ancora non ho capito di preciso *cosa* non vada > > 2009/9/17 > > > From: Flavio Poletti > 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. -------------- next part -------------- An HTML attachment was scrubbed... URL: From polettix at gmail.com Sat Sep 26 16:50:38 2009 From: polettix at gmail.com (Flavio Poletti) Date: Sun, 27 Sep 2009 01:50:38 +0200 Subject: [Roma.pm] domanda In-Reply-To: References: <1304118860-1249824046-cardhu_decombobulator_blackberry.rim.net-36997611-@bxe1032.bisx.produk.on.blackberry> <1365894436.20090911163018@perl.it> Message-ID: > > I risultati non sono positivi, ho provato con questo file.pl a caricare > immagini sul database MySQL. > Da quel che vedo, nello script non ? stata inserita nessuna delle modifiche suggerite (binmode, utilizzo filehandle lessicali, open a 3 parametri...). Nell'esempio suggerivo anche di utilizzare File::Slurp, vedo che fai "use" ma poi non usi read_file... Poich? rileggi i contenuti nuovamente con uno script Perl, devi impostare binmode anche sul filehandle di output. Saluti, Flavio. -------------- next part -------------- An HTML attachment was scrubbed... URL: