mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: passaggio dati verso uno script e ritorno

Salve a tutti, e' la prima volta che programmo in Perl, ed avrei la
necessita' di passare dei dati da uno script ad un altro e poi riaverli
indietro.
E' possibile fare una cosa del genere.
In pratica ho uno script che riceve dei dati, poi chiama il secondo script e
gli passa questi dati, il secondo script deve solo rendere in formato piu'
leggibile ( tutta una serie di IF.....) i dati ricevuti e ripassarli al
primo script.
Grazie in anticipo
Saluti MArco.

potresti essere piů chiaro sulla natura dei dati da passare?
-- 
Posted from 
mail3.galactica.it
 [212.41.208.20] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 potresti essere più chiaro sulla natura dei dati da passare?


e' di quanto e' stato superato.
Puoi passare questi dati come parametri e recuperare l'output con i backtick.
Ad esempio:
$output = `/path/nomescript DescCollegamento 12432 22`;
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 wrote in message
slrn9ghm...@leah.italpro.net...


Scusate l'ignoranza.....
Sono quelli che ho inidicato nell'esempio. ;-)
` => backtick
praticamente sono e` l'apice inverso (ALT+96 se non li hai sulla
tastiera). Si comporta come il doppio apice (") nel senso che valuta
eventuali espressioni al suo interno, pero` ad esempio un:
$a = `ls -l`;
anziche' memorizzare la stringa "ls -l" in $a, esegue tale stringa come
comando esterno e ritorna l'output in $a.


 wrote in message
slrn9gi3...@leah.italpro.net...


Newsgroup: it.comp.lang.perl
Titolo: [?] argomenti di un cgi

Ciao a tutti,
Volevo sapere come sia possibile passare dei parametri al mio cgi
dall'esterno.
Mi spiego meglio:
Ho provato a faru un link di questo tipo
<a href="/cgi-bin/
test.pl?var1=ciao
">perl test</a>
e anche cosě
<a href="/cgi-bin/
test.pl?ciao
">perl test</a>
ma non so come leggerlo dall'interno del mio programma in perl, io pensavo
di fare  un
print $ARGV[0]
ma non funziona.
Vorrei sapere dov'č lerrore...
Ciao e grazie a tutti.

 wrote in message news:85s694$bnc$1...@nslave2.tin.it...


ma non so come leggerlo dall'interno del mio programma in perl, io pensavo
Il modo classico e':
use CGI qw(:cgi-lib);
&ReadParse;
$VARIABILE1 = $in{'var1'};
-- 
Ciao
     Marco Innocenti
Newsgroup: it.comp.lang.perl
Titolo: HTTP_X_FORWARDED_FOR come si modifica?

Ciao, con il perl è possibile modificare il valore di molti header, ad
esempio HTTP_USER_AGENT e molti altri... ma come si fa a cambiare il valore
di HTTP_X_FORWARDED_FOR xxxxxx (è una valore che viene visualizzato quando
si usa un proxy pubblico e si testa il proxy con uno script tipo env.cgi).
grazie per l'attenzione
saluti
gordon

 si usa un proxy pubblico e si testa il proxy con uno script tipo
env.cgi).
A che pro?
Valerio
Newsgroup: it.comp.lang.perl
Titolo: Problemi di EXEC

Salve,
sto usando Perl su  Red-Hat Linux 6.2 installato su un PC e ho un
problema:
ho 2 directory A e B.
A contiene un file html che richiama uno script Perl ;
B contiene un file html che richiama un altro script Perl.
Entrambi gli script risiedono nella directory cgi-bin.
Lo script lanciato da A funziona perfettamente. Quello lanciato da B mi
da il seguente errore:
"No such file or directory: exec of /home/httpd/cgi-bin/
script.pl
 failed
Premature end of script headers: /home/httpd/cgi-bin/
script.pl
"
I permessi di esecuzione sono gli stessi, qualcuno sa dirmi che
succede?!?!?
Grazie
Donatella :)
-- 
Posted from root@[195.120.213.3] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 succede?!?!?
Che lo script B ha un errore e non funziona.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 Donatella :)
controlla che, nel file che non viene eseguito (B), oltre che una sintassi
corretta, come ti e' gia' stato suggerito, la direttiva
#!/usr/bin/perl
o qualsiasi altro path valido per il tuo interprete perl, sia stata digitata
correttamente.
ciao,
asast

Newsgroup: it.comp.lang.perl
Titolo: Script Automatico

Salve ho realizzato uno script CGI in perl e ho bisogno che parta
automaticamente ogni 10 giorni, senza doverlo lanciare con il browser,
sapete dirmi qual'č il comando che permette di lanciare automaticamente tale
script ogni xx giorni?
GRAZIE
CIAO
Swift
xswif...@usa.net
Togliere HELL

 automaticamente tale script ogni xx giorni?
  at?
	Alla prossima,
		Marco

vai a questo indirizzo e scaricati questo prg.
http://151.99.197.24/VOLFTP/sk.exe?it/cgim_f10.zip
Newsgroup: it.comp.lang.perl
Titolo: Non vedo la gif...

Ciao a tutti!
nel file cgi viene richiamata una piccola immagine in gif che però non vedo
sul browser...ecco la righa:
print "<center><img src=\"$imagedir/logo.gif\" height=\"100\"
width=\"295\"></center>\n";
perchè non la vedo?
Ho già controllato che $imagedir sia il percorso corretto  per trovare
logo.gif e lo è.
Ho caricato per5 su Apache 2.036 (Win2K).
Ciao,                            Fabio

 logo.gif e lo è.
Piu' che un percorso, dev'essere un URL !
:-)

Newsgroup: it.comp.lang.perl
Titolo: Web Server, qual'è il migliore per windows98?

Ho la necessità di usare un web server con l'unico scopo di testare script ,
pagine asp. php ecc...
Ho installato Microsoft Web Server sul cd di windows98 ma non funziona per
niente.
Ma da errori tipo: errore 500 Errore del server.
Cosa posso fare??
Non ne parliamo a provare a pubblicare le pagine!!
Mi dice che l'unità c: non esiste?!
Esiste un Web Server decente per windows98 che mi faccia lavorare in pace?

Ti ho gia' risposto sul NG di cgi. Cavolo questo e' il tuo terzo o quarto
messaggio che invii simultaneamente su 2 NGs !!!
Mi dici che cosa centrano le ASP con il Perl ?!?!?!
Alex
sunrises24 ha scritto nel messaggio ...


 ha scritto nel messaggio
news:PGK26.195651$hk4.7...@news.infostrada.it...

Newsgroup: it.comp.lang.perl
Titolo: parsing ricorsivo

Sera a tutti,
Se qualche guru può darmi una zampa, gradirei molto.
Il problema è:
In una dir ho un tot (oltre 100) di file e tutti contengono 3 linee errate
che dovrei sostituire.
Se qualcuno ha sotto mano uno script che fa una sostituzione ricorsiva lo
ringrazio infinitamente.

 che dovrei sostituire.
1) le 3 linee errate si trovano alla stessa posizione in tutti i files?
2) le 3 linee errate vengono ripetute nello stesso file?
3) posta le 3 linee errate
Ciao

ringrazio infinitamente.
Non capisco dove sia la ricorsività: mi pare che sia sufficiente eseguire
lo stesso script su tutti i file. Lo script dovrebbe essere, se non hai
"mentito" sulle specifiche, banale e non particolarmente ricorsivo. In ogni
caso, forse fai ancora prima ad usare un editor; diversi hanno una funzione
di ricerca e sostituzione (anche su espressioni regolari) su più file.
Ciao.


Se sei su Unix, usa questo:
$ find /percorso_base -type f -name '*.xxxx' | xargs perl -i.bak -pe 's(cerca)(sostituisci)g'
Occhio! Provalo prima in una dir di test, dove ci copi tre o quattro file, e vedi come si comporta.
Ciao
gmax
-- 
   ____ ____  _____ _   _
  / _  |    \(____ ( \ / )
( (_| | | | / ___ |) X (
  \___ |_|_|_\_____(_/ \_)
(_____|
MySQL Certified Professional
Sapere, saper fare, fare, far sapere
http://gmax.oltrelinux.com

 3) posta le 3 linee errate
eccole!
include_once("../common/dbConnection.php");
include_once("../common/header.php");
include_once("../common/footer.php");
quelle corrette:
include_once("dbConnection.php"); ecc..
in pratica ho N dir (clienti, fornitori, fatture, ddt ecc..) con i
relativi file ai quali pensavo di montare un menu in css incluso nel file
header.php che a quanto pare si rifiuta di funzionare correttamente il
ché mi costringe ad estrarre tutti i file dalle dir, posizionarli nella
DOCUMENT_ROOT e rimappare i 3 percorsi per ogni file (11 per ogni tabella
di database) 

Il Wed, 12 Jan 2005 20:03:07 +0000, Flavio Bosio ha scritto:
Chi fa da se...
perl -pi -e "s/vecchiaroba/nuovaroba/g;" *.php
e chi s'è visto s'è visto.

Newsgroup: it.comp.lang.perl
Titolo: flock?

Sto provando ad usare la funziona flock.
Uso come webserver apache sotto win98, può essere cosotto windows non
funzioni?
Grazie.
Maurizio

 funzioni?
Da perlport:
 flock FILEHANDLE,OPERATION
     Not implemented (Mac OS, VMS, RISC OS, VOS). 
     Available only on Windows NT (not on Windows 95). (Win32)

funzioni?
Su windows non funziona
Ciao
Andrea Busia
No Spam, Grazie.

Ringrazio gli amici per la risposta!

Newsgroup: it.comp.lang.perl
Titolo: Carrello con pagamento carta di credito

Salve,
Offro a tutti i webmaster interessati un servizio di carrello con 
possibilità di pagamento in contrassegno, carta di credito e bonifico 
bancario.
Il servizio, gestito su un mio server, permette di gestire le transazioni 
anche da pagine statiche.
Per maggiori info: 
http://www.bottegaio.net
Le mie referenze 
http://www.andreaambrosini.com
Un sito dimostrativo 
http://www.lachimera.net
Grazie per l'attenzione
Andrea

 bancario.
Non sapevo che questo fosse diventato un NG pubblicitario.....
-- 
Saluti,
Giancarlo
Newsgroup: it.comp.lang.perl
Titolo: come fermare WIN32 ACTIVE PERL ?

Stò imparando a programmare in PERL e lo stò usando nei CGI con APACHE su
WINT con ACTIVE PERL:
come faccio a fermare l' iterprete perl quando mi va in loop infinito o
comunque mi tiene attivi dei processi occupandomi il processore al 99% anche
se fermo il servizio APACHE e chiudo il BROWSER ove ho provato il CGI ?
Con Taskl Manager non si ferma !!
Sandros

----------

usa kill.exe, da riga scrivi "kill perl.exe"
Paolo
--
Posted from 
ns.alcanet.it
 [194.243.74.35]
via Mailgate.ORG Server - 
http://www.mailgate.org
Newsgroup: it.comp.lang.perl
Titolo: documentazione perl

Stefano mi ha chiesto di inserire questo messaggio che lui ha problemi:
________________________________________________
Ciao a tutti.
Devo imparare a più presto il linguaggio PERL per lavoro.
Qualcuno saprebbe indicarmi un libro valido e magari in italiano per
imparare bene il PERL ??
Ci sono dei Corsi fatti come dio comanda per il PERL ?
Grazie mille.
Stefano
tornini...@hotmail.com

 Ci sono dei Corsi fatti come dio comanda per il PERL ?
In italiano c'è:
==A) Le "Lezioni pratiche sulla programmazione in Perl" 
di Giordano Costantini (
apache3000.it
) su 
manuali.net
:
http://www.manuali.net/manuali/search.asp?q=perl&Go.x=16&Go.y=15
o su http:/
www.manuali.it/
 (in pdf) con percorso:
Informatica > Linguaggi di Programmazione > Perl
==B) il corso di 
html.it
:
http://www.html.it/perl/index.html
==C) il corso di Software Planet:
http://www.softwareplanet.net/php/mostraCorso.php?nomeCorso=Perl
==D) il Perl Tutorial:
http://www.dei.unipd.it/~tigre/b/PerlTutorial/perl-tutorial.html
o in pdf:
http://www.dei.unipd.it/~ieeesb/pages/download/down/Perl_Tutorial.pdf
==E) il materiale di latoserver:
http://www.latoserver.it/perl/
==F) il corso di Marco Liverani :
http://www.isinet.it/~marco/perl/
che trovi diversamente impaginato su:
http://www.risorse.net/perl/
e 
http://www.webinn.it/programmazione/sommario_%20perl.htm
==G) le lezioni su "Appunti di informatica libera" (appunti di Linux):
http://www.appuntilinux.prosa.it/a2247.html
==H) ancora materiale su: 
http://www.venis.it/francesco/indice.html
e naturalmente: 
http://www.perl-it.org/
 :)

Un libro che puoi scaricare gratuitamente è su: 
http://www.hyperbook.it
http://www.hyperbook.it/p_book/perl2.htm
 Ci trovi anche un libro in java
ed uno in c.
Newsgroup: it.comp.lang.perl
Titolo: Non capisco perche' la if non funziona.

Salve.
Potete aiutarmi a capire il perche' una if sembra non fare il suo
dovere?
Ho un database con una tabella composta da vari campi. Uno di questi e'
dichiarato di tipo char(1) e contiene il valore "e" oppure il valore
"u".
Il database e' Mysql sotto Linux.
I valori di questi campi vengono trasferiti in un array con questa
istruzione: "while (@row = $sth->fetchrow_array) (utilizzo il modulo DBI
in perl) quindi @row conterra' i valori di tutti campi record per
record.
Ora, il problema e' che se do un'istruzione di questo tipo if ($row[7]
== 'u') sembra non funzionare. $row[7] si riferisce al campo che
contiene o "e" oppure "u". Sebbene $row[7] contenga effettivamente "u"
la if  lo ignora.
Sapete perche'?
Grazie.
--
Posted from 
mta04-acc.tin.it
 [212.216.176.35]
via Mailgate.ORG Server - 
http://www.mailgate.org

la if  lo ignora.
Prova con
if ($row[7] eq "u")
oppure con
if ($row[7] =~ m/u/i)
--
Maurizio Coppari
C.I.R.F.I.D. - University of Bologna
via Galliera 3, 40126  Bologna
e-mail: 
cop...@remove.cirfid.unibo.it
           (please remove remove in reply)

if ($row[7] eq "u")
Grande! Cosi' funziona perfettamente. Scusa ma quale sarebbe
ladifferenza tra - if ($row[7] == "u") - e
- if ($row[7] eq "u") - ?
Grazie per l'aiuto.
-- 
per rispondere togli <toglimi> dall'indirizzo di posta. 

- if ($row[7] eq "u") - ?
== si usa per i numeri.
eq si usa per le stringhe.
Ciao
Andrea Busia
---------------------------------
Redattore di 
www.ludus.it
La prima rivista online italiana
dedicata al mercato dei videogiochi
---------------------------------

eq si usa per le stringhe.
Grazie.
Ed il not equal? Va bene != anche per le stringhe? 


Ed il not equal? Va bene != anche per le stringhe? 
No!
!= si usa per i numeri.
ne si usa per le stringhe. ("not equal", appunto)


ne si usa per le stringhe. ("not equal", appunto)
E se devo confrontare variabili?
Devo usare eq per quelle
contenenti caratteri o stringhe e == per quelle contenenti 
numeri?

numeri?
Esatto!
Ciao
Andrea

Newsgroup: it.comp.lang.perl
Titolo: Evitare che lo script si blocchi

Salve,
esiste un modo per evitare che nel caso in cui durante un ciclo vi sia
un errore (per esempio lo script stà cercando di accedere ad un sito
web ma il sito non risulta online in quel momento) lo script si
blocchi?

 ha scritto:

Con il costrutto "eval"?

Icestorm ha scritto:

e come funziona il costrutto eval?
mi puoi fare un esempio?
grazie

 grazie
http://www.perl.it/documenti/perlfunc/view.html?func=eval

 
http://www.perl.it/documenti/perlfunc/view.html?func=eval
si avevo letto anche io quella pagina però non capisco come funziona
eval.
mi potresti fare un esempio?

 mi potresti fare un esempio?
eval {
 print (1/0); # boom
 };
print $@;
 Raffaello
Newsgroup: it.comp.lang.perl
Titolo: Perl in Google App Engine

Se volete anche Perl su Google App Engine:
1. fate un salto qui:
http://code.google.com/p/googleappengine/issues/list
2. loggatevi con il vostro Google account (GMail etc.)
3. cliccate sulla stella in corrispondenza dell'ID 34 (Add Perl 
support), in alto a sinistra nella pagina. (La stella deve diventare 
gialla).
Se accedendo alla pagina vedete la stella, significa che siete già 
loggati in Google e quindi potete saltare il passo 2 ;-)
Grazie!

 Se volete anche Perl su Google App Engine:
Questa è una bella notizia, temevo di dover studiare anche Python e
quindi passare alla neurodeliri. Tempo fa era sufficiente conoscere
due o tre linguaggi di programmazione, oggi ne devi usare almeno
cinque tra linguaggi e meta-linguaggi se vuoi produrre qualcosa di
buono in rete.
Se ho ben capito, ciò significa che un gruppo di programmatori può
lavorare insieme sullo stesso codice in rete, giusto? Stavo lentamente
studiando questa possibilità che permetterà in futuro di produrre
software molto elaborato più velocemente ed anche più sicuro perchè
testato da più persone.
Per il momento Google mi informa che devo aspettare che si liberi
dello spazio.

 testato da più persone.
Ottima scelta. Lo spirito del software libero è proprio questo.
Ciao e Grazie per il voto :-)
Emanuele

Newsgroup: it.comp.lang.perl
Titolo: Guadagnare ricevendo SMS con SMSCASH. Novita' del 9 luglio!

Ciao!
Ti piacerebbe guadagnare almeno 130.000 lire a bimestre o ricevere una
ricarica gratis al mese per il tuo cellulare, ricevendo semplicemente
alcuni messaggi SMS pubblicitari sul tuo telefonino?
Non e' uno scherzo, ne stanno parlando in televisione (su canale 5) in
questi giorni...
Decidi tu quanti messaggi ricevere al giorno e il modo in cui vorresti
essere pagato.
Se desideri iscriverti clicca sul link:
http://www.smscash.it/index.php3?pagid=reg&p_form=P&p_pres=0&cpre=18894&p_desc=1
Una volta iscritto, sei sempre in tempo a cancellarti, se la cosa non ti
piace.
Ciao.
PS presentando altre persone hai la possibilita' di guadagnare di piu'!

 ha scritto nel messaggio
news:3969a...@news.dada.it...


Newsgroup: it.comp.lang.perl
Titolo: 22 / 10 / 2000

L'inizio di una nuova era.
Grazie ragazzi,
Mkè


anche per me č l'inizio di una nuova era...
sono entrato in un nuovo tunnel... il perl.
--
#rm -r .*
Newsgroup: it.comp.lang.perl
Titolo: Richiamare CGI

Altro problema:
come posso richiamare un CGI all'interno di una pagina già predefinita?
Cioè il programma CGI dovrebbe creare la pagina HTML finale all'interno di
una pagina già esistente!(per evitare pagine differenti dalla struttura
grafica impostata)
Spero di essermi spiegato bene. Scusate l'ignoranza!
Ciao e grazie a chi vorrà darmi una dritta!
Valentino

Ciao e grazie a chi vorrā darmi una dritta!
Innanzitutto, siamo purtroppo OT credo, esiste it.comp.www.cgi.
Perō ti sono vicino perchč ci sto provando anch'io, se ho capito cosa
vuoi fare. Per quello che ho capito devi usare SSI per catturare
l'output di un CGI avviata da un'altra CGI.
Io sto cercando maledettamente di farmi tornare una tabella alla
maniera di come si richiamano le immagini senza usare SSI quindi, ma
tramite un tag tipo <img src> che punta ad una CGI che crea una
tabella e la dovrebbe ritornare.
Ad ogni modo pare che con uno javascript ci si riesce, mi ci sto
inoltrando :)
-- 
Īš°`°šĪø,ļļ,øĪš°`°šĪø,ļļ,øĪš°`°šĪø,ļļ,øĪš°`°šĪø,ļ
http://www.pigmalion.youngwind.com
 pigmalion network
http://www.pigmalion.youngwind.com/perl/
 appunti Perl - FAQ
Īš°`°šĪø,ļļ,øĪš°`°šĪø,ļļ,øĪš°`°šĪø,ļļ,øĪš°`°šĪø,ļ
-- 
Posted from 
relay4.inwind.it
 [212.141.53.75] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.perl
Titolo: lanciare e ripetere uno script perl

ciao a tutti, come posso fare a lanciare ogni 4 sec uno script perl, 
solamente se non è gia' in esecuzione?? 

 solamente se non è gia' in esecuzione??
Su che sistema operativo ?
 Raffaello

 perl 
mioscript.pl
 &
cosě mi viene lanciato in background e dentro lo script metto un ciclo 
infinito???
cosě poi con kill eventualmente posso stopparlo?
Simone 

 Simone 
Andrea

Newsgroup: it.comp.lang.perl
Titolo: Chat

Conoscete qualche script carino per le chat ?
Premesso che un cgi che fa la chat non e' poi cosi' difficile a meno
che tu non voglia permettere la chat privata 2 a 2 e altre features
avanzate.
Devi semplicemente aggiungere i messaggi inviati dagli utenti in un
file gia' formattato come html, che poi verra' caricato in un frame
con un tempo di reload a tua scelta.
Io ne avevo modificato uno gia' esistente. Prova a cercare su
www.cgipoint.it
 .
Ciao
PSQ

 wrote in message
3943c008....@news.libero.it...


Mi puoi inviare il tuo script perchč non riesco a capire una cosa.
Lo script lo dovrei cercare perche' devo avercelo sperduto su qualche
dischetto.
Se non ricordo male l'autore originale era un certo David Turley. Cmq
sono quasi sicuro che e' sul sito citato nel messaggio originale di
risposta.
Se hai domandi ponile pure e cerchero' di risponderti per quanto mi e'
possibile (e per quanto ricordo...)
ciao
PSQ
Newsgroup: it.comp.lang.perl
Titolo: cgi

Ho problemi nell'attivare gli script .cgi nel mio server
chi mi puo aiutare?
giampiero

chi mi puo aiutare?
La casistica puo` essere varia. Il caso piu` comune e` coperto nelle
it.comp.lang.perl FAQ, vedi link da URL in fondo a mio messaggio.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

Newsgroup: it.comp.lang.perl
Titolo: installazione moduli con ppm

Dopo centinaia di tentativi, sono demoralizzato, ma ho fretta di terminare
un lavoro !!!!
Storable.pm , come una qualunque libreria di Active Perl, non mi riesce
proprio di installalrla: tutti i doc in proposito mi suggeriscono: ppm
install storable.ppd (all'interno della dir di scompattazione), ma
niente.... Attivo la connessione e dopo 2 secondi mi risponde : impossibile
trovare il file binario per Strorable .
Qualcuno più praico di me, saprebbe darmi un indicazione ?
PS su Linux, il problema non si pone, ma poiche il software di sviluppo che
uso sta su Win... ecco che mi blocco
Grazie infinito

entra in ppm mentre sei collegato, e poi segui quello che c'è scritto qui
sotto
ppm> search Storable
Searching in Active Repositories
  1. Apache-Session   [1.53] A persistence framework for session data
  2. ClearCase-CRDB   [0.07] base class for ClearCase config-record analysis
  3. Memoize          [0.66] Make your functions faster by trading space for
t~
  4. MLDBM            [2.00] store multi-level hash structure in single
level ~
  5. PML             [0.4.1] >parse('/path/to/somefile');
  6. Storable       [1.0.10] persistency for perl data structures
  7. Storable       [1.0.10] persistency for perl data structures
ppm> install 6
dove '6' è il numero di posizione in lista di quello che vuoi installare.
ciao
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

dove '6' č il numero di posizione in lista di quello che vuoi installare.


 altra indicazione !!???
sicuro di avere una repository attiva?
ppm>repository
cosa ti dice?


 > Grazie per il suggerimento, ma non c'è niente da fare...


 ha scritto nel messaggio
news:aui7u0$7k25v$1...@ID-159100.news.dfncis.de...

Newsgroup: it.comp.lang.perl
Titolo: come spedire messaggi sui newsgroups?

Ciao a tutti,
esiste uno script che possa spedire automaticamente messaggi sui newsgroups?
Se si', dove lo posso trovare?
Grazie in anticipo.
Ciro

Se si', dove lo posso trovare?
man Net::NNTP
Oha
-- 
#include <disclaimer.h>

 sui newsgroups?
  Suona come "vorrei segarvi i coglioni, mi date una mano a farlo meglio
e piu` velocemente?".
  Cosa vuoi, entrare anche tu nella lista degli /spammer/ sui newsgroup?
Mi sembra che ce ne siano gia` abbastanza, non trovi?
	Alla prossima,
		Marco

Mi sembra che ce ne siano gia` abbastanza, non trovi?
sei permaloso. sono sicuro che 
ci...@freemail.it
, dal
151.21.136.81, non ha alcuna intenzione di fare danni.
vero ciro?
Oha
-- 
#include <disclaimer.h>

 151.21.136.81, non ha alcuna intenzione di fare danni. vero ciro?
  Sempre meglio pararsi in anticipo, no?
	mailto:
ab...@iol.it
	mailto:
ab...@libero.it
  Se serve, conosco pure qualcuno che lavora per Infostrada... }:D
	Alla prossima,
		Marco

 cerchero' un'altra donna dentro ai sogni di Tarzan...

 151.21.136.81, non ha alcuna intenzione di fare danni.


 mailto:
ab...@libero.it
Eventualmente anche:
 
ab...@na.nic.it
 , Cc: 
in...@nic.it
come si legge su 
http://www.nic.it/NA/mailspam.html
Saluti,
Marco Cacchiani 
ma...@sirius.pisa.it
--
Sirius Servizi Informatici                     e-mail: 
in...@sirius.pisa.it
Parco Teatro Pasolini, 1                       Phone:  +39 (50) 865120
I-56019 - Vecchiano                            Fax:    +39 (50) 860260
(Pisa - ITALIA)                                
http://www.sirius.pisa.it/

 e piu` velocemente?".
E magari voleva solo, visto che il formmail è già stato "inventato",
implementare qualcosa tipo un "formnewsgroup" dal suo sito, scivendoci
sotto "spammate pure i NG, tanto nessuno sa chi siete e le grane me le
prendo io".
Voleva solo essere gentile con gli spammer!
M.
Newsgroup: it.comp.lang.perl
Titolo: domanda da neofita

volevo sapere senza scatenare flame o altro, se  tramite Perl fosse
possibile mandare in stampa un file di testo generato da php e residente
sul server sulla porta seriale del client.
Grazie

wilma_dammi_la_clava wrote:

Perl può tutto.

 residente sul server sulla porta seriale del client.
Premessa: porta seriale? Forse volevi dire parallela (visto che si parla di 
stampare) o ancor meglio USB.
Detto questo direi che ci mancano molti dettagli per dirti se si può fare:
- Sistema operativo del client
- Specificare se l'applicazione Perl è possibile installarla sul client 
(altrimenti la vedo un po' impossibile la cosa)
- Specificare se stiamo parlando di LAN o di meccanismo da voler far girare 
su Internet.

 residente sul server sulla porta seriale del client.
Non dai molte informazioni, ma penso si potrebbe usare samba
per condividere la stampante.
Se chiarisci meglio l'ambiente in cui stai lavorando magari si
può trovare una soluzione.
-- 
ValeRyo - GS500F "Camilla"
Comitato Per La Salvaguardia Dell'Italiano
E anche tu potrai dire: quest'hanno c'è l'ho l'iscrizione!
Se impareremmo i congiuntivi fossimo persone migliori! 

 stampare) o ancor meglio USB.
E' roba prenuragica, ma esistono anche le stampanti seriali.

 trovare una soluzione.
scusate ma non mi ero accorto che il post non era passato, allora la 
situazione è questa, server debian con apache2 e php4, client che 
utilizzano le procedure via web, ed alla fine dell'inserimento 
dell'anagrafica genero i codici da dare ai clienti, quindi che mi sono 
pensato, genero un file di testo formattato, a cui aggiungo i caratteri 
di escape per il taglio carta, e ora servirebbe di mandare in stampa 
questo file lato client sulla stampante seriale che il client utilizza 
per l'emissione di altri scontrini.
la stampante è una termica samsung con emulazione epson tmt 88
spero di essere stato più chiaro, se servono altri dettagli .. sono qui...

 client utilizza per l'emissione di altri scontrini.
Una possibilità potrebbe essere quella di condividere la stampante
del client sul server e mandare in stampa 'sul server'.
-- 
ValeRyo - GS500F "Camilla"
Ai sensi del dlgs 123/45 ("T.U. sulle cazzate in coda alle email") devi
distruggere il tuo pc per il solo fatto di aver letto questo messaggio.
Prima di stampare questa mail, pensa agli alberi. Abbattine almeno uno. 

Emanuele Zeppieri ha scritto:

sei Sardo?	:)

Coniglio Sgabbiato wrote:

No, soltanto un estimatore della Sardegna ;-)

Newsgroup: it.comp.lang.perl
Titolo: CERCO PICCOLO AIUTO PERL

mi serve far blinkare una stringa ..come faccio??? mi spiego meglio devo
avere in output questa stringa:
caricamento dati..........COMPLETATO
e il "COMPLETATO" lo vorrei che lampeggiasse.
come faccio?
e possibile??
un grazie a chiunque legga anche solo questa news...
-Morgan.

Molto semplice, basta che all'interno della pagina di risposta tu inserisca
un piccolo SCRIPT JAVA che ti consenta di far lampeggiare il COMPLETATO. Per
quanto riguarda lo script Java fatti un giretto sotto 
html.it
 probabilmente
trovi qualcosa che fa al caso tuo.
Ciao
Marco
ma...@virtualcom.it

Newsgroup: it.comp.lang.perl
Titolo: BerkeleyDB +HAshdi HAsh

è possibile utilizzare il berkeley db per salvare delle informazioni 
di una struttura hash di hash?
Se si come?
(D).A.v.i.d

 di una struttura hash di hash?
Come spiegato in perltie (sez. BUGS), non c'è un modo semplice per
farlo.
Da' uno sguardo a questo modulo:
  Tie::MLDBM - Multi-Level Storage and Locking Class
 
http://search.cpan.org/~robau/Tie-MLDBM-1.04/
Max
Newsgroup: it.comp.lang.perl
Titolo: Funzione Perl formato ORE

Esiste una funzione in Perl la quale, se gli fornisco una cifra in
secondi me la restituisce nel formato ORE:MINUTI:SECONDI ?
E se non esiste, qualcuno mi aiuta a creare una piccola procedura
sempre in perl che lo fa?
Grazie a tutti e saluti

secondi me la restituisce nel formato ORE:MINUTI:SECONDI ?
Puoi usare localtime(), a cui devi passare il numero di secondi
dal 1 Gennaio 1970.
	Michele. 
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

 sempre in perl che lo fa?
da perldoc perlfunc:
 my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
 my $data = "$hour:$min:$sec";
Ciao
-- 
----------------------------------------------------------------------------
| °       Claudio Della Ciana        | pynhqvbq...@rznvy.pbz       ° |
| °      >-------------------<       | (apply a rot13 to reply)          ° |
----------------------------------------------------------------------------

sempre in perl che lo fa?
($anno, $mese, $giorno, $ore, $minuti, $secondi)=localtime($TIME)
$time = numero di secondi dal 1 gennaio 1970
Ciao
Andrea Busia

On Mon, 28 Jun 1999 13:53:55 +0200, Claudio Della Ciana
<pynhqvbq...@rznvy.pbz> wrote:
| da perldoc perlfunc:
| 
|  my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
|  my $data = "$hour:$min:$sec";
sbaglio o cosi' si avrebbe: "11:6:5"?
oha

Problema risolto
Grazie mille a tutti!!!
Saluti Simone
--
Posted from root@[212.39.4.130]
via Mailgate.ORG Server - 
http://www.mailgate.org

 sbaglio o cosi' si avrebbe: "11:6:5"?
non sbagli...

Newsgroup: it.comp.lang.perl
Titolo: massima dimensione di un hash...esiste?

ciao a tutti!
Ho un problema con un'applicazione web che sto realizzando in perl...
Mi succede che leggo un file e inizializzo, con l'uso di 'eval', delle
variabili del tipo:
$msg1 = "testo1";
$msg2 = "testo2";
etc....
Poi utilizzo queste variabili per farcire un hash del tipo:
my %label = (					
  	'msg1'  => $msg1,
  	'msg2'  => $msg2,
  	'msg3'  => $msg3,
        '....'  => $....
);
Tutto funziona bene per lo scopo che mi serve (praticamente mi serve per
la localizzazione in diverse lingue dell'applicazione... leggo un file
diverso in base alla lingua necessaria) ma solo se l'hash contiene al
massimo 20 coppie. Se supero tale numero anche solo di un'unità ottengo un
errore di "compilazione" dal Perl.
Mi chiedo: "Esiste un limite al numero di elementi di un hash?" oppure "in
cosa sbaglio?"
grazie per l'attenzione.
mw.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 "in cosa sbaglio?"
Esattamente che errore ti da? 
Ho la sfera di cristallo in riparazione! <g>
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

cosa sbaglio?"
In cosa sbagli non sono in grado di dirlo.
Per quanto riguarda il numero di elementi di un hash, invece, no, non
esiste alcun limite prefissato. L'unico limite č la memoria complessiva a
disposizione che, di solito, nei sistemi attuali, consente di memorizzare
hash di svariate migliaia di elementi, ognuno con una dimensione di
svariate migliaia di caratteri.
In ogni caso, superando il limite della memoria disponibile otterresti
un'errore in esecuzione, non in compilazione come dici.
Un altro limite che si potrebbe incontrare č la lunghezza complessiva di
un'istruzione. Francamente, non mi ricordo nulla al riguardo, ma questo
limite (se c'č) potrebbe effettivamente dare errore in compilazione.
E' comunque piů semplice e produttivo che tu ci comunichi il messaggio di
errore di perl, piuttosto che procedere per illazioni.
Ciao.

Qualcuno ha un po' di cenere da prestarmi??? ;-)))
Dopo un caffč e due passi nel corridoio ho scoperto la soluzione
dell'arcano: non avevo dichiarato abbastanza variabili per contenere il
tutto.
Mi spiego meglio.
Il file che io leggo, al momento contiene una trentina di coppie del tipo
"$msgX = "testo X" e queste vengono poi utilizzate per la farcitura
dell'hash come indicato nel post precedente...
Prima di fare tutto ciň, avevo dichiarato solo una ventina di variabili
con un paio di linee del tipo "my ($msg1, $msg2, $msg3,....) fermandomi
appunto a $msg20.
Quando tentavo di inserire dalla ventesima coppia in poi, il Perl si
incavolava (giustamente?).
La soluzione č stata quella di estendere la dichiarazione delle variabili
fino a $msg30 e tutto č andato a posto.
Sicuramente non ho rispettato qualche regola del linguaggio... e qualcuno
di voi magari sta storcendo il naso... ma per l'uso che ne devo fare credo
che vada bene ;)))
ciao


ma per l'uso che ne devo fare credo che vada bene ;)))
Quello che funziona va bene, quello che funziona meglio va meglio.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: reperire software Perl

Dove posso reperire software Perl?

 Dove posso reperire software Perl?
Prova a usare un motore di ricerca o ftpsearch e come parola chiave
scrivi CPAN
CPAN e' il piu' grosso archivio di software su perl
				Ciao
					Davide

Dove posso reperire software Perl?
Vai a dare un'occhiata sul rinnovato sito 
www.perl.com
, trovi tutto.
	Miky.
-- 
Michele Beltrame
Italpro - Power Web Services
mi...@io.com
http://www.italpro.com/mb

 
Ecco qua l'indirizzo...
http://www.cdrom.com/pub/perl/CPAN/
spero proprio che ti basti... 
				Ciao
					Davide

Dove posso reperire software Perl?
[Informazioni tratte dal testo: L.Wall, T.Christiansen, R.L.Schwartz,
Programmare in Perl, Jackson Libri, 1997, pp. XXXI ss.]:
Il sito ufficiale e' quello del CPAN (Comprehensive Perl Archive
Network). Una lista di mirrors la trovi in:
ftp.funet.fi/pub/languages/perl/CPAN/MIRRORS
Sotto la directory principale CPAN ci trovi almeno le seguenti:
 authors/   numerose subdir, una per partecipante
 doc/       documentazione nei vari formati ASCII, HTML, PS, POD
 modules/   moduli non presenti in C, in Perl o in entrambi
 ports/     sorgenti e/o binari per il porting sui sistemi operativi
            non direttamente supportati dalla distribuzione standard
 scripts/   raccolta di svariati scripts da tutto il mondo
 src/       sorgenti della distribuzione standard
 
Puoi anche usare un Web Browser per accedere al servizio multiplex
di CPAN presso 
www.perl.com
 (anche se il testo che ho citato ne mette
a nudo un difettuccio).
Ciao  -  Roberto
-- 
-------------------------------------------------------------------
     Roberto Tagliarino
 
roberto.t...@multiwire.net
-------------------------------------------------------------------

 Dove posso reperire software Perl?
Che ne dici di:
 
http://www.cgi-resources.com
        ?
Ciao Ciao
Newsgroup: it.comp.lang.perl
Titolo: Permessi sui file

Scusate la banalità della domanda..
Problema..
Ambiente winXP e ActivePerl
Premetto di non conoscere assolutamente Win, quindi cercate se possibile
di dare una risposta a prova di deficente.. grazie
Dunque ho scritto..
open( MYFILE, '>C:\test.txt') or die "Non posso aprire il file";
print MYFILE "Hello world";
close( MYFILE );
e fin qui tutto è OK, solo che dovrei lavorare sul file C:\boot.ini che è
un file nascosto e di sistema
Dopo alcuni ravanamenti.. ancora non ho capito come cavolo si gestiscono i
permessi in sto sistema..
Qualcuno sa come si imposta un chmod 777 in windows? ammesso che sia
possibile ma immagino di si visto che i virus in pratica è ciò che fanno o
sbaglio? Quindi un sistema per scrivere in sto file deve esserci..

 permessi in sto sistema..
Devi usare il comando attrib (help attrib):
1) attrib -s -h c:\boot.ini
(ti toglie i flag "di sistema e hidden" sul file)
se poi vuoi modificare i permessi devi usare cacls (help cacls), per esempio
se vuoi fare un "chmod 777" devi dare il comando
2) cacls c:\boot.ini /p everyone:F
anche se io te lo sconsiglio perche' in pratica dai a chiunque "il permesso"
di rovinarti il boot (boot.ini fa piu' o meno lo stesso lavoro di lilo.conf
o grub.conf in linux).
dopo dovresti rimettere il flag "di sistema" nuovamente su boot.ini
3) attrib +s c:\boot.ini
Considera che io uso w2000, ma a quanto ne so questi comandi sono rimasti
anche per winxp.
Paulus
--------------------------------
Inviato via 
http://usenet.libero.it

 anche per winxp.
Attrib esiste dal MSDOS 2.0 :)

 anche per winxp.
Ok fin qui ci sono..
ora ho un altro problema, 
in pratica se faccio:
$data=`DATE /T`
print("$data");
mi restituisce la data in formato 22/07/2003
e se volessi fare un confronto tipo:
data=`DATE /T`
$miadata="20030721";
if($data > $miadata)
{
print("data superata ");
}
else
{
print("data da superare");
}
in pratica.. c'è il sistema per manipolare la data in stile `date %Y%m%d`
altra cosa.. come si ottengono gli apici inversi (``) in windows
ovviamente..

 $miadata="20030721";
Perchè usare il programma DATE quando ci sono delle funzioni apposite?
Gurada su perldoc perlfunc localtime e gmtime. :)
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

> altra cosa.. come si ottengono gli apici inversi (``) in windows
se quello che vuoi e' far eseguire un comando di SO, devi usare "system".

Newsgroup: it.comp.lang.perl
Titolo: Array che passione.....

Salve a tutti,
vado subito al nocciolo della questione:
ho un array di quattro elementi ( numeri 0-5 ) generato dalla funzione rand 
ed ho un'altro array, sempre costituito da quattro elementi, anch' esso 
costiuito da quattro numeri compresi tra 0-5 inseriti dall'utente su STDIN.
Ho la necessita' di eseguire una comparazione tra i due array e, come 
risultato finale trovare:
1.) quanti elementi  in comune tra i due array, compaiono nella stessa 
posizione.
2.) quanti elementi  in comune tra i due array, compaiono in posizioni 
diverse.
Esempio:
array_one 2 3 1 5
array_two 2 1 0 3
Risultato:
numero 2 e' nella stessa posizione (indice 0 )
i numeri 1 e 3 compaiono in entrambi gli array ma in posizioni differenti.
Il primo quesito posso risolverlo con un semplice ciclo for o foreach.
$match = 0;
for ( my $i = 0; $i < 4; $i++ )
        $match++ if  $array_one[$i] == $array_two[$i] ;
Ho difficolta' nel mettere a punto una routine che possa soddisfare il 
secondo quesito.
Ciao
Claudio

secondo quesito.
Costruisci un array di posizione, il reciproco di quello che usi, in
cui l'indice rappresenta il numero, e il valore la posizione.
Da:
   $array_one =  (2, 3, 1, 5);
   #posizione     0  1  2  3
deriva:
   $pos_one = (-1, 2, 0, 1, -1, 3);
   #valori      0  1  2  3   4  5
Con -1 (o un altro valore fuori dal limite, come undef) indichi
l'assenza del numero.
Entrambi i confronti sono, a questo punto, immediati.
Ciao.


Stai sviluppando un Master Mind?

polettix wrote:

Si'
per fare un po' di pratica con perl sto' sviluppando un mastermind
utilizzando il modulo Term::Screen::ReadLine per la gestione dei semplice
menu di inserimento e Array::Compare per la comparazione degli array, anche
se il modulo non soddisfa tutte le possibili combinazioni.
Su CPAN esiste anche il modulo Games::Mastermind che risolve brillantemente
tutto, ma che gusto ci sarebbe ad utilizzarlo a scopo di esercizio....
Ciao
 
claudio

 Claudio
premesso che i due array abbiano sequenze random di numeri
univoci, il cui algoritomo hai gia' chiaro, per realizzare
cio' che chiedi hai bisogno della parodia del tipo di dato
SET (do you remember Pascal?)
Vi e' un pod Perl dove si dice di usare un hash per le operazioni
sui SET, in quanto ne ha tutte le proprieta'.
Quindi:
@aa1 = (3,4,0,1);
@aa2 = (5,4,2,0);
%set = ();
$i = 0;
@posizcorretta = ();
$fuoriposizione = 0;
while ($i<(scalar(@aa1)))
{
  if($aa1[$i] == $aa2[$i]) {push @posizcorretta, $i}
  else
    {
      if (defined($set{$aa1[$i]}))
        { $fuoriposizione++; }
      else
        { $set{$aa1[$i]} = $aa1[$i]; }
      if (defined($set{$aa2[$i]}))
        { $fuoriposizione++; }
      else
        { $set{$aa2[$i]} = $aa2[$i]; }
    }
  $i++;
}
print "in corretta posizione: ", scalar @posizcorretta ,
      " di indice @posizcorretta\n";
print "fuori posizione: $fuoriposizione\n";
Scritto in fretta!! Prolisso e non esente da errori.
Ciao
Roberto.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.lang.perl
Titolo: PDF Mysql

Ciao a tutti,
come faccio ad inserire uno file PDF dentro a un DB MYSQL???
Simone 

 come faccio ad inserire uno file PDF dentro a un DB MYSQL???
In un campo LONGBLOB?
-- 
  dakkar

Newsgroup: it.comp.lang.perl
Titolo: Verifica di un URL

Ciao a tutti,
Vorrei sapere se e' possibile fare uno script in PERL che verfichi se un 
URL e' esistente oppure no.
Grazie in anticipo
Giovanna
______________________________________________________
Get Your Private, Free Email at 
http://www.hotmail.com
--
Automatic posted from [155.208.254.100] by way of 
f135.hotmail.com
 [207.82.251.14]
via Mailgate Server - 
http://www.mailgate.org

 URL e' esistente oppure no.
 Si. E' possibile.
 Usa la funzione get() o head() in LWP::Simple.
 
 Maurizio
 
-- 
Maurizio M. Munafo' / 
mun...@tuttocitta.it
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Newsgroup: it.comp.lang.perl
Titolo: RadioButton con cgi in Perl

Ciao a tutti,
ho necessita' di inviare un form html con dei RadioButton ad un CGI in Perl,
ma non so come gestire questi RadioButton
tramite appunto il CGI .
Qualcuno puo' darmi una mano oppure dirmi dove trovare informazioni al
riguardo ?
Mille grazie
ciao
cl@udio

 tramite appunto il CGI .
La domanda e` piu` adatta per it.comp.www.cgi, comunque... ;-)
I radiobutton si gestiscono come gli altri controlli (es textbox). 
Nell'HTML metti ad esempio:
<input type="radio" name="anni" value="20">
<input type="radio" name="anni" value="21">
<input type="radio" name="anni" value="22">
I vari input devono avere lo stesso name, ma value diversi. Al momento del 
submit ti ritrovi nel campo "anni" il valore selezionato dall'utente.
Michele.

 ha scritto nel messaggio
news:uAiT7.216442$YD.17...@news2.aus1.giganews.com...

Mille grazie
ciao

Newsgroup: it.comp.lang.perl
Titolo: Vendesi MSDN Library

Vendo i seguenti numeri di MS MSDN Library ORIGINALI:
January 1999 (3 CD) a £ 30.000
April 1999 (3 CD) a £ 30.000
July 1999 (3 CD) a £ 30.000
July 1999 (1 DVD) a £ 35.000
In aggiunta vendo i seguenti CD MS ORIGINALI:
Ms Year 2000 Resource CD (1 CD) a £ 5.000
Ms TechNet Sample 1999 (1 CD) a £ 5.000
Ms Internet Business Development Kit 1996 (Product CD + Information CD +
Internet Product Demo CD + Sampler CD) a £ 5.000
Ms Sample Product Cd 1994, 1995, 1996, 1999 a £ 5.000 cadauno
Ms Internet Explorer 2.0 a £ 5.000
Le spese di spedizione sono escluse dai prezzi e sono a carico del
destinatario.
Scrivete a 
fran...@yahoo.it

 Ms Internet Explorer 2.0 a £ 5.000
Beh, questa poi...
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!
Newsgroup: it.comp.lang.perl
Titolo: espressioni regolari

cari ragazzi,
ho la necessita' di incrementare una variabile se un determinato pattern
viene trovato all'interno di una stringa tramite le ER. Qualche
consiglio....
grazie.
----
Giorgio

 consiglio....
Cosa c'e che non va nell'istruzione "incrementa la variabile se un la
stringa contiene un determinato pattern" ?
$var++ if ($stringa =~ /pattern/);
M.
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Newsgroup: it.comp.lang.perl
Titolo: Ottenere indirizzo ip di una connessione del client

Salve a tutti,
ho questo codice:
#!/usr/bin/perl
use IO::Socket::INET;
$server = IO::Socket::INET->new(LocalPort => 1234, Type=>SOCK_STREAM,
Reuse=>1, Listen=>10) or die "errore server TCP\n";
while ($client = $server->accept()) {
        ($port, $packed_ip) = sockaddr_in($client);
        $dotted_quad = inet_ntoa($packed_ip);
        my $name = gethostbyaddr($iaddr,AF_INET);
        print "new incoming connection from $name [$dotted_quad] at port $port";
        close ($client);
        next;
}
Le righe per ottenere l'ip e la porta del client le ho prese da un
esempio su internet.
Quando lancio questa semplice applicazione e mi connetto in telnet sulla
porta 1234 ottengo quanto sotto. 
Qualcuno sa aiutarmi?
Grazie
stardust13:/appServer/Manager# perl 
provaip.pl
 &                       
[1] 32561
stardust13:/appServer/Manager# telnet localhost 1234
Trying 127.0.0.1...
Connected to localhost.localdomain.
Escape character is '^]'.
Bad arg length for Socket::unpack_sockaddr_in, length is 32, should be
16 at /usr/lib/perl/5.8/Socket.pm line 198.
Connection closed by foreign host.
[1]+  Exit 29                 perl 
provaip.pl
stardust13:/appServer/Manager# 

         ($port, $packed_ip) = sockaddr_in($client);
 
  ($port, $packed_ip) = sockaddr_in( $client->peername );
oppure, molto meglio, usa direttamente le funzioni di IO::Socket e
IO::Socket::INET:
  $client->peeraddr;
  $client->peerhost;
 
e leggiti 'perldoc IO::Socket' e 'perldoc IO::Socket::INET'.
Max

 e leggiti 'perldoc IO::Socket' e 'perldoc IO::Socket::INET'.
Grazie, molto prezioso !

Newsgroup: it.comp.lang.perl
Titolo: Parsing di una struttura passata da una form

Dovrei realizzare il parsing di dati provenienti da una form per farne
poi una ulteriore elaborazione. Vorrei sapere se ci sono degli script
non troppo complessi che permettano di fare questo. A me servirebbe
fare qualcosa come mettere i nomi dei campi (e il contenuto) in un
array per una lettura successiva.
Grazie.

 poi una ulteriore elaborazione.
utilizza pesantemente 
http://search.cpan.org
 per cercare moduli
che facciano al caso tuo.
Ad esempio puoi provare:
http://search.cpan.org/search?dist=CGI-FormBuilder
ma ce ne sono altri.
-- 
$_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572,,($_,$b)=
split?#?;@b=split?;?;map{$c.=$_,$d.=chr$b[$e++]+ord}split??,pack'H24',$b
;chop$d,print$c.chr(32).$d
Newsgroup: it.comp.lang.perl
Titolo: perl + mysql

domanda:
se eseguo questo script su 10000 e passa record funzniona
do '
connect.pl
';
$q_popola = $db->prepare("UPDATE $t_contatti SET ip_numb = 
INET_ATON(ip)");
$q_popola->execute or die "\n\t!!! INSERIMENTO FALLITO !!! \n";
$query = $db->prepare("SELECT id, ip, ip_numb FROM $t_contatti WHERE 
1");
$query->execute or die "\n !!! QUERY FALLITA !!! \n";
while (@row = $query->fetchrow_array)   {
	$q_aggiorna = $db->prepare("UPDATE $t_contatti SET ip_prov = (SELECT 
DISTINCT dominio FROM classi_ip_isp_work WHERE start_ip < $row[2] AND 
stop_ip > $row[2]) WHERE id = $row[0]");   #mettere il where sull'IP
	$q_aggiorna_isp = $db->prepare("UPDATE $t_contatti SET nome_isp = 
(SELECT DISTINCT nome_isp FROM classi_ip_isp_work WHERE start_ip < 
$row[2] AND stop_ip > $row[2]) WHERE id = $row[0]");   #mettere il 
where sull'IP
	$q_aggiorna->execute or die "\n\t!!! AGGIORNAMENTO FALLITO QUERY 1!!! 
\n";
	$q_aggiorna_isp->execute or die "\n\t!!! AGGIORNAMENTO FALLITO QUERY 2 
!!! \n";
}
print "\n\t *** DB POPOLATO CORRETTAMENTE *** \n";
$db->disconnect;
se invece lo faccio su tutto il db (370000 e passa record) alla fine mi 
torna
DBD::mysql::st execute failed: Subquery returns more than 1 row at 
update.pl
 line 14.
qualche idea?
tra l'altro, potrei riscrivere le due queri di aggiornamento 
all'interno del ciclo in una maniera un po' piu' compatta?
grazie
-- 
Umin
n. p.: Elisa - Fever

 qualche idea?
Se non ho contato male le righe dello script, il problema č alla riga che
ho quotato sopra e l'errore riportato da DBI sembra piuttosto chiaro.
Oltretutto non ha molto a che vedere con perl, quanto piuttosto con le
basi di dati.
Comunque evidentemente quella query su un sottoinsieme di dati riporta
una sola riga che quindi va bene per l'update, mentre su tutto l'insieme
in almeno un caso riporta piů di una riga e allora DBI non sa,
giustamente, come effettuare l'update.

 giustamente, come effettuare l'update.
$q_aggiorna_isp = $db->prepare("UPDATE $t_contatti SET nome_isp = 
(SELECT nome_isp FROM classi_ip_isp_work WHERE start_ip < ip_numb AND 
stop_ip > ip_numb");
se scritta cosi' mi crasha mysql quindi temo che sia una query proprio 
sbagliata...
il fatto e' che su t_contatti ho il campo da settare (nome_isp) che 
deve assumere il valore della sotto select (dopo il confronto tra 
ip_numb di t_contatti e start_ip/stop_ip della classi_ip_isp_work
come potrei riscriverla? non mi viene in mente niente a quest'ora... :(
-- 
Umin
n.p.: Stadio - canzoni per parrucchiere [stop]

 come potrei riscriverla? non mi viene in mente niente a quest'ora... :(
Mysql non crasha. MAI! :)
Più che altro il problema è che, come ti dicevo, la subquery in almeno
un caso riporta più di un valore e quindi mysql non sa, giustamente, come fare
l'update.
Sopra mi hai rispiegato quello che fa la query e questo lo vedo già da
me, ma non ho capito qual'è lo scopo che vuoi raggiungere con quella
subquery.
Spiega cosa vuoi ottenere e quali tabelle hai.
Ciao