From webmaster.staff at gmail.com Sat Sep 9 05:39:33 2006 From: webmaster.staff at gmail.com (LordOfDeath) Date: Sat, 09 Sep 2006 14:39:33 +0200 Subject: [Roma.pm] salve! Message-ID: <4502B605.3020509@gmail.com> ciao a tutti! cm sn andate le vacanze?? ora si ritorna a lavoro eh :D vi volevo chiedere una cosa, devo creare un prog che permetta il trasferimento di file tra Client/server e Client/server , naturalemnte il client aprir? il prog e digiter? l'ip con cui comunicare e se serve mandare file. per? nn ho la pi? pallida idea di come mandare file...... una manina?? almeno per dirmi se esiste un qualcosa che mi aiuti? dopo mi studio il modulo o comando... From dada at perl.it Tue Sep 12 06:04:42 2006 From: dada at perl.it (Aldo Calpini) Date: Tue, 12 Sep 2006 15:04:42 +0200 Subject: [Roma.pm] salve! In-Reply-To: <4502B605.3020509@gmail.com> References: <4502B605.3020509@gmail.com> Message-ID: <4506B06A.3070200@perl.it> LordOfDeath ha scritto: > ciao a tutti! cm sn andate le vacanze?? ora si ritorna a lavoro eh :D > eh, gia' da un po', purtroppo. > vi volevo chiedere una cosa, devo creare un prog che permetta il > trasferimento di file tra Client/server e Client/server , naturalemnte > il client aprir? il prog e digiter? l'ip con cui comunicare e se serve > mandare file. per? nn ho la pi? pallida idea di come mandare file...... > una manina?? almeno per dirmi se esiste un qualcosa che mi aiuti? dopo > mi studio il modulo o comando... > a meno che non ci siano vincoli specifici e irrinunciabili, per fare trasferimento di file conviene usare un server FTP (o SFTP). improvvisare un server di rete con poche righe di codice, soprattutto se devi esporlo su internet di questi tempi, difficilmente ? una buona idea. conviene affidarsi a programmi ben sviluppati e ben supportati. se proprio hai la necessit? di utilizzare qualcosa di fatto in casa, i moduli da studiare sono Net::Server (http://search.cpan.org/~rhandom/Net-Server-0.94/) per la parte Server e i moduli della distribuzione libnet (http://search.cpan.org/~gbarr/libnet-1.19/) per la parte Client. se vuoi qualcosa di pi? basso livello ancora, IO::Socket (dovresti gi? averlo installato, prova 'perldoc IO::Socket'). e buona fortuna :-) cheers, Aldo From flavio at polettix.it Tue Sep 12 06:37:33 2006 From: flavio at polettix.it (Flavio Poletti) Date: Tue, 12 Sep 2006 15:37:33 +0200 (CEST) Subject: [Roma.pm] salve! In-Reply-To: <4506B06A.3070200@perl.it> References: <4502B605.3020509@gmail.com> <4506B06A.3070200@perl.it> Message-ID: <30830.194.237.142.21.1158068253.squirrel@upmail.polettix.it> > se proprio hai la necessit? di utilizzare qualcosa di fatto in casa, i > moduli da studiare sono Net::Server > (http://search.cpan.org/~rhandom/Net-Server-0.94/) per la parte Server e > i moduli della distribuzione libnet > (http://search.cpan.org/~gbarr/libnet-1.19/) per la parte Client. se > vuoi qualcosa di pi? basso livello ancora, IO::Socket (dovresti gi? > averlo installato, prova 'perldoc IO::Socket'). Per la parte client, pu? essere utile anche Net::FTP e parenti. Ciao, Flavio. From webmaster.staff at gmail.com Tue Sep 12 08:08:14 2006 From: webmaster.staff at gmail.com (LordOfDeath) Date: Tue, 12 Sep 2006 17:08:14 +0200 Subject: [Roma.pm] salve! In-Reply-To: <4506B06A.3070200@perl.it> References: <4502B605.3020509@gmail.com> <4506B06A.3070200@perl.it> Message-ID: <4506CD5E.8090600@gmail.com> purtroppo avrei necessit? di stabilire una connessione "Diretta" senza tramite e utilizzando pochi moduli possibili, infatti avevo pensato ad IO::Socket, ma nn mi viene in mente un'idea di come passare un file, lo passo come variabile semplicemente? tipo apro il file con open file ecc.. gli assegno una variabile e la printo sul socket? Aldo Calpini ha scritto: > LordOfDeath ha scritto: > >> ciao a tutti! cm sn andate le vacanze?? ora si ritorna a lavoro eh :D >> >> > > eh, gia' da un po', purtroppo. > > >> vi volevo chiedere una cosa, devo creare un prog che permetta il >> trasferimento di file tra Client/server e Client/server , naturalemnte >> il client aprir? il prog e digiter? l'ip con cui comunicare e se serve >> mandare file. per? nn ho la pi? pallida idea di come mandare file...... >> una manina?? almeno per dirmi se esiste un qualcosa che mi aiuti? dopo >> mi studio il modulo o comando... >> >> > a meno che non ci siano vincoli specifici e irrinunciabili, per fare > trasferimento di file conviene usare un server FTP (o SFTP). > improvvisare un server di rete con poche righe di codice, soprattutto se > devi esporlo su internet di questi tempi, difficilmente ? una buona > idea. conviene affidarsi a programmi ben sviluppati e ben supportati. > > se proprio hai la necessit? di utilizzare qualcosa di fatto in casa, i > moduli da studiare sono Net::Server > (http://search.cpan.org/~rhandom/Net-Server-0.94/) per la parte Server e > i moduli della distribuzione libnet > (http://search.cpan.org/~gbarr/libnet-1.19/) per la parte Client. se > vuoi qualcosa di pi? basso livello ancora, IO::Socket (dovresti gi? > averlo installato, prova 'perldoc IO::Socket'). > > e buona fortuna :-) > > cheers, > Aldo > _______________________________________________ > 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/20060912/34acd5d0/attachment.html From dubya at sub-culture.ch Tue Sep 12 08:23:44 2006 From: dubya at sub-culture.ch (Christoph Wernli) Date: Tue, 12 Sep 2006 17:23:44 +0200 Subject: [Roma.pm] salve! In-Reply-To: <4506CD5E.8090600@gmail.com> References: <4502B605.3020509@gmail.com> <4506B06A.3070200@perl.it> <4506CD5E.8090600@gmail.com> Message-ID: <9b16401b0609120823s2da82d6akda6b528a57f3f93e@mail.gmail.com> Esatto. Tieni conto che e' abbastanza pericoloso (niente garanzia sul trasferimento intero del file, niente sicurezza ecc.). E' vastamente piu' conveniente di usare FTP (come gia' suggerito prima). Se devi andare con IO::Socket, ecco un breve esempio: http://www.perlfect.com/articles/sockets.shtml -w On 9/12/06, LordOfDeath wrote: > > purtroppo avrei necessit? di stabilire una connessione "Diretta" senza > tramite e utilizzando pochi moduli possibili, infatti avevo pensato ad > IO::Socket, ma nn mi viene in mente un'idea di come passare un file, lo > passo come variabile semplicemente? tipo apro il file con open file ecc.. > gli assegno una variabile e la printo sul socket? > Aldo Calpini ha scritto: > > LordOfDeath ha scritto: > > ciao a tutti! cm sn andate le vacanze?? ora si ritorna a lavoro eh :D > > eh, gia' da un po', purtroppo. > > vi volevo chiedere una cosa, devo creare un prog che permetta il > trasferimento di file tra Client/server e Client/server , naturalemnte > il client aprir? il prog e digiter? l'ip con cui comunicare e se serve > mandare file. per? nn ho la pi? pallida idea di come mandare file...... > una manina?? almeno per dirmi se esiste un qualcosa che mi aiuti? dopo > mi studio il modulo o comando... > > a meno che non ci siano vincoli specifici e irrinunciabili, per fare > trasferimento di file conviene usare un server FTP (o SFTP). > improvvisare un server di rete con poche righe di codice, soprattutto se > devi esporlo su internet di questi tempi, difficilmente ? una buona > idea. conviene affidarsi a programmi ben sviluppati e ben supportati. > > se proprio hai la necessit? di utilizzare qualcosa di fatto in casa, i > moduli da studiare sono Net::Server > (http://search.cpan.org/~rhandom/Net-Server-0.94/ ) per la parte Server e > i moduli della distribuzione libnet > (http://search.cpan.org/~gbarr/libnet-1.19/ ) per la parte Client. se > vuoi qualcosa di pi? basso livello ancora, IO::Socket (dovresti gi? > averlo installato, prova 'perldoc IO::Socket'). > > e buona fortuna :-) > > cheers, > Aldo > _______________________________________________ > Roma mailing list > Roma at pm.orghttp://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: http://mail.pm.org/pipermail/roma/attachments/20060912/fc9cfe74/attachment.html From webmaster.staff at gmail.com Tue Sep 12 08:36:48 2006 From: webmaster.staff at gmail.com (LordOfDeath) Date: Tue, 12 Sep 2006 17:36:48 +0200 Subject: [Roma.pm] salve! In-Reply-To: <9b16401b0609120823s2da82d6akda6b528a57f3f93e@mail.gmail.com> References: <4502B605.3020509@gmail.com> <4506B06A.3070200@perl.it> <4506CD5E.8090600@gmail.com> <9b16401b0609120823s2da82d6akda6b528a57f3f93e@mail.gmail.com> Message-ID: <4506D410.1060905@gmail.com> ti ringrazio, per il problema dell'intero file avevo ovviato al problema, facendo o l'md5 dei file cos? vedendo se si sn inviati tutti, oppure vedendo il numero di byte(se sapete il modulo mi fate un favore). il problema cmq mio ? che come fa il ricevente, a prender eil file dal collegamento, per dire, come lo mette in una variabile e poi ricrea il file?? Christoph Wernli ha scritto: > Esatto. > > Tieni conto che e' abbastanza pericoloso (niente garanzia sul > trasferimento intero del file, niente sicurezza ecc.). E' vastamente > piu' conveniente di usare FTP (come gia' suggerito prima). > > Se devi andare con IO::Socket, ecco un breve esempio: > http://www.perlfect.com/articles/sockets.shtml > > -w > > > On 9/12/06, *LordOfDeath* < webmaster.staff at gmail.com > > wrote: > > purtroppo avrei necessit? di stabilire una connessione "Diretta" > senza tramite e utilizzando pochi moduli possibili, infatti avevo > pensato ad IO::Socket, ma nn mi viene in mente un'idea di come > passare un file, lo passo come variabile semplicemente? tipo apro > il file con open file ecc.. gli assegno una variabile e la printo > sul socket? > Aldo Calpini ha scritto: >> LordOfDeath ha scritto: >> >>> ciao a tutti! cm sn andate le vacanze?? ora si ritorna a lavoro eh :D >>> >>> >> eh, gia' da un po', purtroppo. >> >> >>> vi volevo chiedere una cosa, devo creare un prog che permetta il >>> trasferimento di file tra Client/server e Client/server , naturalemnte >>> il client aprir? il prog e digiter? l'ip con cui comunicare e se serve >>> >>> mandare file. per? nn ho la pi? pallida idea di come mandare file...... >>> una manina?? almeno per dirmi se esiste un qualcosa che mi aiuti? dopo >>> mi studio il modulo o comando... >>> >>> >> a meno che non ci siano vincoli specifici e irrinunciabili, per fare >> trasferimento di file conviene usare un server FTP (o SFTP). >> improvvisare un server di rete con poche righe di codice, soprattutto se >> >> devi esporlo su internet di questi tempi, difficilmente ? una buona >> idea. conviene affidarsi a programmi ben sviluppati e ben supportati. >> >> se proprio hai la necessit? di utilizzare qualcosa di fatto in casa, i >> >> moduli da studiare sono Net::Server >> (http://search.cpan.org/~rhandom/Net-Server-0.94/ >> ) per la parte Server e >> i moduli della distribuzione libnet >> (http://search.cpan.org/~gbarr/libnet-1.19/ >> ) per la parte Client. se >> vuoi qualcosa di pi? basso livello ancora, IO::Socket (dovresti gi? >> averlo installato, prova 'perldoc IO::Socket'). >> >> e buona fortuna :-) >> >> cheers, >> Aldo >> _______________________________________________ >> >> 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: http://mail.pm.org/pipermail/roma/attachments/20060912/e5a85b4b/attachment-0001.html From dada at perl.it Tue Sep 12 12:03:22 2006 From: dada at perl.it (Aldo Calpini) Date: Tue, 12 Sep 2006 21:03:22 +0200 Subject: [Roma.pm] salve! In-Reply-To: <4506D410.1060905@gmail.com> References: <4502B605.3020509@gmail.com> <4506B06A.3070200@perl.it> <4506CD5E.8090600@gmail.com> <9b16401b0609120823s2da82d6akda6b528a57f3f93e@mail.gmail.com> <4506D410.1060905@gmail.com> Message-ID: <4507047A.9080903@perl.it> LordOfDeath ha scritto: > ti ringrazio, per il problema dell'intero file avevo ovviato al > problema, facendo o l'md5 dei file cos? vedendo se si sn inviati > tutti, oppure vedendo il numero di byte(se sapete il modulo mi fate un > favore). non ho capito che intendi per "numero di byte". se vuoi dire la dimensione del file, la recuperi con l'istruzione: my $size = -s $filename; > il problema cmq mio ? che come fa il ricevente, a prender eil file dal > collegamento, per dire, come lo mette in una variabile e poi ricrea il > file?? beh, immagino con qualcosa di simile a quello che si trova nell'articolo che ti ha segnalato Christoph: open(FILE, ">$filename"); while(<$socket>) { print FILE $_; } close(FILE); cheers, Aldo From webmaster.staff at gmail.com Tue Sep 12 12:07:56 2006 From: webmaster.staff at gmail.com (LordOfDeath) Date: Tue, 12 Sep 2006 21:07:56 +0200 Subject: [Roma.pm] salve! In-Reply-To: <4507047A.9080903@perl.it> References: <4502B605.3020509@gmail.com> <4506B06A.3070200@perl.it> <4506CD5E.8090600@gmail.com> <9b16401b0609120823s2da82d6akda6b528a57f3f93e@mail.gmail.com> <4506D410.1060905@gmail.com> <4507047A.9080903@perl.it> Message-ID: <4507058C.20006@gmail.com> Ciao, grazie per i comandi ;), purtroppo l'articolo non spiega il ricevente come interpreta i files, il problema mio rimane, come fa il ricevente a prendere il file mandato? avevo intenzione tipo di fare una regola, della serie, appena manda un mex socketi tipo CONNECT ON, vuol dire che sta per ricevere il file, ma il problema ?, come catturo il flusso? :) Un Saluto Ettore, Aldo Calpini ha scritto: > LordOfDeath ha scritto: > >> ti ringrazio, per il problema dell'intero file avevo ovviato al >> problema, facendo o l'md5 dei file cos? vedendo se si sn inviati >> tutti, oppure vedendo il numero di byte(se sapete il modulo mi fate un >> favore). >> > > non ho capito che intendi per "numero di byte". se vuoi dire la > dimensione del file, la recuperi con l'istruzione: > > my $size = -s $filename; > > >> il problema cmq mio ? che come fa il ricevente, a prender eil file dal >> collegamento, per dire, come lo mette in una variabile e poi ricrea il >> file?? >> > > beh, immagino con qualcosa di simile a quello che si trova nell'articolo > che ti ha segnalato Christoph: > > open(FILE, ">$filename"); > while(<$socket>) { > print FILE $_; > } > close(FILE); > > cheers, > Aldo > _______________________________________________ > 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/20060912/80e279b2/attachment.html From webmaster.staff at gmail.com Tue Sep 12 12:44:46 2006 From: webmaster.staff at gmail.com (LordOfDeath) Date: Tue, 12 Sep 2006 21:44:46 +0200 Subject: [Roma.pm] salve! In-Reply-To: <4507047A.9080903@perl.it> References: <4502B605.3020509@gmail.com> <4506B06A.3070200@perl.it> <4506CD5E.8090600@gmail.com> <9b16401b0609120823s2da82d6akda6b528a57f3f93e@mail.gmail.com> <4506D410.1060905@gmail.com> <4507047A.9080903@perl.it> Message-ID: <45070E2E.8090506@gmail.com> questo nn mi funziona azz.... nn so perk? 1 la finestra si blocca, 2 sembra che le connessioni siano inattive.... #!/usr/bin/perl use Tk; use Tk::BrowseEntry; use Tk::DialogBox; use IO::Socket; $mw = new MainWindow(title => "File exchange By LordOfDeath" ); $mw->Label(-text => '', -font => '{Verdana} 7 bold',-foreground=>'red')->pack(); $mw->Label(-text => '')->pack(); $fleft=$mw->Frame()->pack ( -side => 'left', -anchor => 'ne') ; $fright=$mw->Frame()->pack ( -side => 'left', -anchor => 'nw') ; $mw->Label(-text => '')->pack(); $mw->Label(-text => '')->pack(); @files = <*>; $b3 = $fright->BrowseEntry( -command => \&prendi, -relief => "groove", -variable => \$ne3, -font => '{Verdana} 8'); $b3->pack( -side => "top" , -anchor => 'w' ); $fright->Label(-text => '')->pack(); foreach $file(@files){ $b3->insert("end", "$file"); } sub prendi{ $InfoWindow=$mw->DialogBox(-title => 'File', -buttons => ["OK"]); $InfoWindow->add('Label', -text => "Selezionato $ne3!", -font => '{Verdana} 8 bold',-foreground=>'Green')->pack; $InfoWindow->Show(); if ($InfoWindow eq "OK") { $InfoWindow->destroy(); } } $mw->Label(-text => 'MANDA', -font => '{Verdana} 7 bold',-foreground=>'red')->pack(); $fleft->Label ( -text => '', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ; $fleft->Label ( -text => '', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ; $fleft->Label ( -text => 'IP DESTINATARIO', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ; $destip=$fright->Entry ( -relief => "groove", -width => 35, -font => '{Verdana} 8', -textvariable => \$ip) ->pack ( -side => "top" , -anchor => 'w' ) ; $fleft->Label ( -text => 'PORTA DESTINATARIO', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ; $destport=$fright->Entry ( -relief => "groove", -width => 35, -font => '{Verdana} 8', -textvariable => \$port) ->pack ( -side => "top" , -anchor => 'w' ) ; $fright->Button(-text => 'MANDA!!!', -relief => "groove", -width => '30', -font => '{Verdana} 8 bold', -activeforeground => 'red', -command => \&manda )->pack(); $mw->Label(-text => '', -font => '{Verdana} 7 bold',-foreground=>'red')->pack(); $mw->Label(-text => '', -font => '{Verdana} 7 bold',-foreground=>'red')->pack(); $mw->Label(-text => 'RICEVI', -font => '{Verdana} 7 bold',-foreground=>'red')->pack(); $fleft->Label ( -text => '', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ; $fleft->Label ( -text => 'PORTA RICEVENTE', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ; $rcvport=$fright->Entry ( -relief => "groove", -width => 35, -font => '{Verdana} 8', -textvariable => \$rport) ->pack ( -side => "top" , -anchor => 'w' ) ; $fright->Button(-text => 'RICEVI!!!', -relief => "groove", -width => '30', -font => '{Verdana} 8 bold', -activeforeground => 'red', -command => \&listen )->pack(); sub manda{ my $sock = new IO::Socket::INET ( PeerAddr => $ip, PeerPort => $port, Proto => 'tcp', ); die "Errore nell'inizializzazione della socket\n" unless $sock; print $sock "CONNECTION ON\n"; while(defined($connection=<$sock>)){ print $connection; if($connection=~/RCV ON/){ sleep 3; open(FILE, ">$ne3"); print FILE $_; close(FILE); print $sock "CLOSE\n"; last; } } close($sock); } sub listen{ my $sock2 = new IO::Socket::INET ( LocalHost => '127.0.0.1', LocalPort => $rport, Proto => 'tcp', Listen => 1, Reuse => 1, ); die "Could not create socket: $!\n" unless $sock2; my $new_sock = $sock2->accept(); while(<$new_sock>) { print $new_sock; if($new_sock=~/CONNECTION ON/){ print $sock2 "RCV ON\n"; unless($new_sock=~/CLOSE/){ $file = $irc; open(FILE, ">$file"); print FILE $_; close(FILE); } } print $_; } close($sock2); } MainLoop(); From webmaster.staff at gmail.com Tue Sep 12 12:46:46 2006 From: webmaster.staff at gmail.com (LordOfDeath) Date: Tue, 12 Sep 2006 21:46:46 +0200 Subject: [Roma.pm] salve! In-Reply-To: <4507047A.9080903@perl.it> References: <4502B605.3020509@gmail.com> <4506B06A.3070200@perl.it> <4506CD5E.8090600@gmail.com> <9b16401b0609120823s2da82d6akda6b528a57f3f93e@mail.gmail.com> <4506D410.1060905@gmail.com> <4507047A.9080903@perl.it> Message-ID: <45070EA6.4090600@gmail.com> suppongo che le finestre siano bloccate perk? sn in attesa di connessioni ma nn capisco l'inattivit? dello scambio.. From webmaster.staff at gmail.com Tue Sep 12 12:48:57 2006 From: webmaster.staff at gmail.com (LordOfDeath) Date: Tue, 12 Sep 2006 21:48:57 +0200 Subject: [Roma.pm] salve! In-Reply-To: <4507047A.9080903@perl.it> References: <4502B605.3020509@gmail.com> <4506B06A.3070200@perl.it> <4506CD5E.8090600@gmail.com> <9b16401b0609120823s2da82d6akda6b528a57f3f93e@mail.gmail.com> <4506D410.1060905@gmail.com> <4507047A.9080903@perl.it> Message-ID: <45070F29.6000807@gmail.com> azz mi sa di aver appena capito l'inghippo... if($connection=~/RCV ON/){ open(FILE, ">$ne3"); print FILE $_; close(FILE); printf $sock "CLOSE\n"; last; giusto?=?? :| From webmaster.staff at gmail.com Tue Sep 12 12:51:06 2006 From: webmaster.staff at gmail.com (LordOfDeath) Date: Tue, 12 Sep 2006 21:51:06 +0200 Subject: [Roma.pm] salve! In-Reply-To: <4507047A.9080903@perl.it> References: <4502B605.3020509@gmail.com> <4506B06A.3070200@perl.it> <4506CD5E.8090600@gmail.com> <9b16401b0609120823s2da82d6akda6b528a57f3f93e@mail.gmail.com> <4506D410.1060905@gmail.com> <4507047A.9080903@perl.it> Message-ID: <45070FAA.2030909@gmail.com> cmq sia da sempre gli stessi probl, aiuto!!! thx :D From flavio at polettix.it Thu Sep 21 07:28:26 2006 From: flavio at polettix.it (Flavio Poletti) Date: Thu, 21 Sep 2006 16:28:26 +0200 (CEST) Subject: [Roma.pm] perl e tastiera In-Reply-To: <010c01c69ca0$d2166020$1400000a@main> References: <010c01c69ca0$d2166020$1400000a@main> Message-ID: <9075.194.237.142.10.1158848906.squirrel@upmail.polettix.it> [snip] > In generale, per mandare in timeout operazioni che si prolungano troppo, > si usa $SIG{ALRM} (cio? SIGALRM), assegnandovi un handler che > semplicemente invoca die(), e wrappando l'operazione long-running in una > eval{...} (o meglio 2 eval{...} annidate, per intercettare anche errori > di altra origine). [snip] Ciao Emanuele, ti va di elaborare un po' sulla questione delle 2 eval annidate? Un esempietto pratico sarebbe *molto* interessante :D Ciao e grazie, Flavio. From ema_zep at libero.it Fri Sep 22 04:48:02 2006 From: ema_zep at libero.it (Emanuele Zeppieri) Date: Fri, 22 Sep 2006 13:48:02 +0200 Subject: [Roma.pm] perl e tastiera In-Reply-To: <9075.194.237.142.10.1158848906.squirrel@upmail.polettix.it> Message-ID: <001401c6de3c$f686ef00$1400000a@main> > -----Original Message----- > From: roma-bounces+ema_zep=libero.it at pm.org > [mailto:roma-bounces+ema_zep=libero.it at pm.org] On Behalf Of > Flavio Poletti > Sent: Thursday, September 21, 2006 4:28 PM > To: roma at pm.org > Subject: Re: [Roma.pm] perl e tastiera > > > [snip] > > In generale, per mandare in timeout operazioni che si > > prolungano troppo, si usa $SIG{ALRM} (cio? SIGALRM), > > assegnandovi un handler che semplicemente invoca die(), > > e wrappando l'operazione long-running in una eval{...} > > (o meglio 2 eval{...} annidate, per intercettare anche > > errori di altra origine). > [snip] > > Ciao Emanuele, > > ti va di elaborare un po' sulla questione delle 2 eval annidate? Un > esempietto pratico sarebbe *molto* interessante :D Ciao Fla'! Ammazza che sei annato a ribecca'! ;-) Allora, la eval pi? interna e` opportuna perch? in genere si vuole mandare in timeout operazioni /esterne/ (quali chiamate di sistema, connessioni a db e ad altre risorse esterne etc.), per cui e` opportuno segnalare gli errori specifici dovuti a queste operazioni, quando si verificano. Inoltre i due wrapper servono anche ad evitare una (strettissima) race condition che previene il reset dell'allarme (e` piuttosto sottile da osservare, ma e` spiegata in dettaglio nell'esempio che segue). Un esempio delle due eval annidate stava proprio in "Programming Perl": aspe' che guardo... Ecco, pag. 417 della 3rd edition. Per chi non avesse il libro: http://www.unix.org.ua/orelly/perl/prog3/ch16_01.htm nel paragrafo dal titolo "Timing Out Slow Operations". (E' la prima che ho trovato con Google, spero che si tratti di una riproduzione legale del Safari Bookshelf...) Fammi sapere che ne pensi. Ciao, Emanuele. From flavio at polettix.it Fri Sep 22 05:11:30 2006 From: flavio at polettix.it (Flavio Poletti) Date: Fri, 22 Sep 2006 14:11:30 +0200 (CEST) Subject: [Roma.pm] perl e tastiera In-Reply-To: <001401c6de3c$f686ef00$1400000a@main> References: <9075.194.237.142.10.1158848906.squirrel@upmail.polettix.it> <001401c6de3c$f686ef00$1400000a@main> Message-ID: <33224.213.203.159.164.1158927090.squirrel@upmail.polettix.it> [snip] >> > In generale, per mandare in timeout operazioni che si >> > prolungano troppo, si usa $SIG{ALRM} (cio? SIGALRM), >> > assegnandovi un handler che semplicemente invoca die(), >> > e wrappando l'operazione long-running in una eval{...} >> > (o meglio 2 eval{...} annidate, per intercettare anche >> > errori di altra origine). >> [snip] >> >> Ciao Emanuele, >> >> ti va di elaborare un po' sulla questione delle 2 eval annidate? Un >> esempietto pratico sarebbe *molto* interessante :D > > Ciao Fla'! > > Ammazza che sei annato a ribecca'! ;-) Sai quelle cose che leggi, e ti si piantano in testa... [snip] > Un esempio delle due eval annidate stava proprio in "Programming Perl": > aspe' che guardo... > Ecco, pag. 417 della 3rd edition. > > Per chi non avesse il libro: > http://www.unix.org.ua/orelly/perl/prog3/ch16_01.htm > > nel paragrafo dal titolo "Timing Out Slow Operations". > (E' la prima che ho trovato con Google, spero che si tratti di una > riproduzione legale del Safari Bookshelf...) ahahahahahah > > Fammi sapere che ne pensi. Mi era venuto il timore che la doppia eval andasse fatta *sempre*, meno male che non devo andare a riguardarmi tutti gli script :D [snip] From webmaster.staff at gmail.com Fri Sep 22 08:49:05 2006 From: webmaster.staff at gmail.com (LordOfDeath) Date: Fri, 22 Sep 2006 17:49:05 +0200 Subject: [Roma.pm] KeyLogger Message-ID: <451405F1.4020900@gmail.com> Ciao a tutti! ho notato in ufficio che il mio pc viene utilizzato(senza permesso) non solo da me... l'ho notato perk? in pausa pranzo lasciando il pc con nessun prog aperto mi ritrovo una bella schermata di internet explorer aperta su google. Ora, premettendo che nn voglio usare programmini tipo keylogger ecc.. insomma, quelli gi? fatti, vorrei sapere se possibile come funzionano in perl, magari realizzandone uno per beccare chi ? questo furbacchione, e sapere pi? che altro che fa al mio pc.... Voi direte, spegni il pc nella pausa pranzo, ma ho intenzione di scoprire chi sia.. vi ringrazio in anticipo sciau! From flavio at polettix.it Fri Sep 22 15:24:22 2006 From: flavio at polettix.it (Flavio Poletti) Date: Sat, 23 Sep 2006 00:24:22 +0200 (CEST) Subject: [Roma.pm] KeyLogger In-Reply-To: <451405F1.4020900@gmail.com> References: <451405F1.4020900@gmail.com> Message-ID: <34704.213.203.159.164.1158963862.squirrel@upmail.polettix.it> Ma non puoi bloccare il PC prima di uscire a pranzo? Comunque per beccarlo... probabilmente ? meglio che ti apposti :) Ciao, Flavio. > Ciao a tutti! > ho notato in ufficio che il mio pc viene utilizzato(senza permesso) non > solo da me... l'ho notato perk? in pausa pranzo lasciando il pc con > nessun prog aperto mi ritrovo una bella schermata di internet explorer > aperta su google. > Ora, premettendo che nn voglio usare programmini tipo keylogger ecc.. > insomma, quelli gi? fatti, vorrei sapere se possibile come funzionano in > perl, magari realizzandone uno per beccare chi ? questo furbacchione, e > sapere pi? che altro che fa al mio pc.... > Voi direte, spegni il pc nella pausa pranzo, ma ho intenzione di > scoprire chi sia.. > vi ringrazio in anticipo > sciau! > _______________________________________________ > Roma mailing list > Roma at pm.org > http://mail.pm.org/mailman/listinfo/roma > From webmaster.staff at gmail.com Sat Sep 23 06:00:35 2006 From: webmaster.staff at gmail.com (LordOfDeath) Date: Sat, 23 Sep 2006 15:00:35 +0200 Subject: [Roma.pm] KeyLogger In-Reply-To: <34704.213.203.159.164.1158963862.squirrel@upmail.polettix.it> References: <451405F1.4020900@gmail.com> <34704.213.203.159.164.1158963862.squirrel@upmail.polettix.it> Message-ID: <45152FF3.9010707@gmail.com> Immaginavo risposte simili! ma mi sono incuriosito troppo all'argomento e vorrei capire un funzionamento di un keylogger in perl! :) Ciao! Flavio Poletti ha scritto: > Ma non puoi bloccare il PC prima di uscire a pranzo? Comunque per > beccarlo... probabilmente ? meglio che ti apposti :) > > Ciao, > > Flavio. > > >> Ciao a tutti! >> ho notato in ufficio che il mio pc viene utilizzato(senza permesso) non >> solo da me... l'ho notato perk? in pausa pranzo lasciando il pc con >> nessun prog aperto mi ritrovo una bella schermata di internet explorer >> aperta su google. >> Ora, premettendo che nn voglio usare programmini tipo keylogger ecc.. >> insomma, quelli gi? fatti, vorrei sapere se possibile come funzionano in >> perl, magari realizzandone uno per beccare chi ? questo furbacchione, e >> sapere pi? che altro che fa al mio pc.... >> Voi direte, spegni il pc nella pausa pranzo, ma ho intenzione di >> scoprire chi sia.. >> vi ringrazio in anticipo >> sciau! >> _______________________________________________ >> 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: http://mail.pm.org/pipermail/roma/attachments/20060923/67ca45a4/attachment.html From flavio at polettix.it Sat Sep 23 09:53:24 2006 From: flavio at polettix.it (Flavio Poletti) Date: Sat, 23 Sep 2006 18:53:24 +0200 (CEST) Subject: [Roma.pm] KeyLogger In-Reply-To: <45152FF3.9010707@gmail.com> References: <451405F1.4020900@gmail.com> <34704.213.203.159.164.1158963862.squirrel@upmail.polettix.it> <45152FF3.9010707@gmail.com> Message-ID: <36934.213.203.159.164.1159030404.squirrel@upmail.polettix.it> L'unica volta che ho mai letto riguardo la possibilit? di fare un keylogger in Perl ? in questo thread su Perl Monks: http://www.perlmonks.org/?node_id=446098 Ciao, Flavio. > Immaginavo risposte simili! ma mi sono incuriosito troppo all'argomento > e vorrei capire un funzionamento di un keylogger in perl! :) > Ciao! > > > Flavio Poletti ha scritto: >> Ma non puoi bloccare il PC prima di uscire a pranzo? Comunque per >> beccarlo... probabilmente ? meglio che ti apposti :) >> >> Ciao, >> >> Flavio. >> >> >>> Ciao a tutti! >>> ho notato in ufficio che il mio pc viene utilizzato(senza permesso) non >>> solo da me... l'ho notato perk? in pausa pranzo lasciando il pc con >>> nessun prog aperto mi ritrovo una bella schermata di internet explorer >>> aperta su google. >>> Ora, premettendo che nn voglio usare programmini tipo keylogger ecc.. >>> insomma, quelli gi? fatti, vorrei sapere se possibile come funzionano >>> in >>> perl, magari realizzandone uno per beccare chi ? questo furbacchione, e >>> sapere pi? che altro che fa al mio pc.... >>> Voi direte, spegni il pc nella pausa pranzo, ma ho intenzione di >>> scoprire chi sia.. >>> vi ringrazio in anticipo >>> sciau! >>> _______________________________________________ >>> 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 From webmaster.staff at gmail.com Sun Sep 24 00:45:59 2006 From: webmaster.staff at gmail.com (LordOfDeath) Date: Sun, 24 Sep 2006 09:45:59 +0200 Subject: [Roma.pm] KeyLogger In-Reply-To: <36934.213.203.159.164.1159030404.squirrel@upmail.polettix.it> References: <451405F1.4020900@gmail.com> <34704.213.203.159.164.1158963862.squirrel@upmail.polettix.it> <45152FF3.9010707@gmail.com> <36934.213.203.159.164.1159030404.squirrel@upmail.polettix.it> Message-ID: <451637B7.2040902@gmail.com> grazie. cmq ? un peccato :( user? la vecchia maniera. mi apposter? vicino al pc! Ciau! Flavio Poletti ha scritto: > L'unica volta che ho mai letto riguardo la possibilit? di fare un > keylogger in Perl ? in questo thread su Perl Monks: > > http://www.perlmonks.org/?node_id=446098 > > Ciao, > > Flavio. > > >> Immaginavo risposte simili! ma mi sono incuriosito troppo all'argomento >> e vorrei capire un funzionamento di un keylogger in perl! :) >> Ciao! >> >> >> Flavio Poletti ha scritto: >> >>> Ma non puoi bloccare il PC prima di uscire a pranzo? Comunque per >>> beccarlo... probabilmente ? meglio che ti apposti :) >>> >>> Ciao, >>> >>> Flavio. >>> >>> >>> >>>> Ciao a tutti! >>>> ho notato in ufficio che il mio pc viene utilizzato(senza permesso) non >>>> solo da me... l'ho notato perk? in pausa pranzo lasciando il pc con >>>> nessun prog aperto mi ritrovo una bella schermata di internet explorer >>>> aperta su google. >>>> Ora, premettendo che nn voglio usare programmini tipo keylogger ecc.. >>>> insomma, quelli gi? fatti, vorrei sapere se possibile come funzionano >>>> in >>>> perl, magari realizzandone uno per beccare chi ? questo furbacchione, e >>>> sapere pi? che altro che fa al mio pc.... >>>> Voi direte, spegni il pc nella pausa pranzo, ma ho intenzione di >>>> scoprire chi sia.. >>>> vi ringrazio in anticipo >>>> sciau! >>>> _______________________________________________ >>>> 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 >> > > > _______________________________________________ > 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/20060924/548ca563/attachment.html