mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: compilatore perl

ciao a tutti,
volevo sapere se era possibile compilare uno script in perl,
di modo che possa essere utilizzato anche su pc senza perl.
Se esiste, me ne potete consigliare uno per windows, grazie.
Rocks

 Rocks
prova PAR, per installarlo su windows puoi usare PPM
(magari aggiornando prima i repository con
http://search.cpan.org/~podmaster/PPM-Repositories-0.11/
)
oppure scaricando
http://backpan.perl.org/authors/id/A/AU/AUTRIJUS/PAR-0.90.tar.gz
e
http://backpan.perl.org/authors/id/A/AU/AUTRIJUS/PAR-0.90-MSWin32-x86-multi-thread-5.8.7.par
(che va messo nella directory precendetemente creata con tar xfz
PAR-0.90.tar.gz)
poi usando nmake:
http://www.perl.it/documenti/faq/iclp_view.html?pag=5&faq=2
Se PAR non dovesse funzionare, prova perlapp che, a mio parere, nelle
ultime release ha sopravanzato perl2exe in quanto a stabilità e
funzionalità.

 ha scritto nel messaggio 
news:dsg4mf$b8a$1...@nnrp.ngi.it...


 avvenuti.... è puramente casuale) di come si compilerebbe uno script .pl
http://search.cpan.org/~autrijus/PAR-0.90/script/pp#EXAMPLES
Ciao,
Emanuele.

Grazie ma non c'é qualcosa di più semplice??
Nel senso che possonon  installare perl su windows,
perciò come faccio???

Rocks wrote:

Tu vorresti creare un eseguibile per Windows di uno script Perl senza
installare perl sul computer dove vorresti fare l'eseguibile?

 installare perl sul computer dove vorresti fare l'eseguibile?
Sì, esattamente; naturalmente se è possibile.

Rocks wrote:

Credo sia possibile con perl2exe usando l'opzione -platform=blabla
Con PAR c'è un modo per creare dei .par cross-platform ma per eseguirli
su una macchina diversa da quella dove li hai installati devi avere perl
e PAR (un po' come Java con il quale comunque devi avere la JVM per fare
cose cross-platform).
Per quello che ne so, dunque, forse puoi farcela con perl2exe per *nix,
ma non ne ho esperienza diretta. Ad ogni modo se il tuo programma
necessita di moduli che usano dll (XS) allora non vedo come perl2exe
possa funzionare.
Newsgroup: it.comp.lang.perl
Titolo: [Esempio] che non funziona...

Ciao a tutti
Per caso ho trovato questo script perl
http://www.yepa.com/yps/modules.php?name=News&file=article&sid=102
ho provato a farlo girare ma ottengo questo errore _Global symbol $q
requires explicit package name at /  segue il path.
Altri errori identici per le altre variabili.
Mi chiedo se quelli che hanno pubblicato l'esempio lo hanno provato (lo
spero), che impostazioni o settings devo attivare?
Grazie
Virgilio

 spero), che impostazioni o settings devo attivare?
Prova a usare "my" ogni volta che nel listato appare una nuova variabile.
Esempio:
my $q=new CGI;
my $nome = ...
... etc ...
  Raffaello

 wrote:

Ho fatto come suggerito e ho aggiunto anche _use strict_ e ottengo
questa segnalazione
Use of bare << to mean <<"" is deprecated at
/Users/virgilio/Sites/
prova.pl
 line 17.
Can't find string terminator "" anywhere before EOF at
/Users/virgilio/Sites/
prova.pl
 line 17.
[Mon Jan  9 16:55:06 2006] [error] [client 127.0.0.1] Premature end of
script headers: /Users/virgilio/Sites/
prova.pl
la line 17 in errore e'     print << END;
Grazie 
-- 
Ciao, Virgilio

 wrote:

Sistemato lo script cosi' funziona:
commentate le due linee con END
inserite istruzioni print per i tags CENTER e per il display dei
parametri.
Resta da capire come poteva girare nel formato originale.
Ciao 
-- 
Ciao, Virgilio

Resta da capire come poteva girare nel formato originale.
Evidentemente non è stato verificato, almeno non nella forma esatta in
cui è stato pubblicato. In realtà però c'era giusto uno spazio in più
sulla riga "print << END;"; che gli altri siano considerati errori
piuttosto che semplici scorrettezze stilistiche, deriva dal contesto
in cui esegui lo script (un "use strict" ereditato da qualche parte),
evidentemente diverso da quello dell'autore.
Con questo non voglio dire difendere più che tanto l'autore, ma
insomma, si è visto di peggio.
Ciao.

 wrote:

Hai ragione non sono stato attento sulle segnalazioni di errore; ho
riprovato con le due soluzioni e funziona.
Grazie
-- 
Ciao, Virgilio

 e neanche al quote, pare :-P
Gia'  :-)
Newsgroup: it.comp.lang.perl
Titolo: Script per calcolo prezzi skipass

Avrei bisogno di uno script per fare il calcolo dei prezzi dello
skipass, praticanente il visitatore inserisce il periodo es: 1/2/2002
- 1/3/2002  il numero adulti ed il numero bambini ed in base a
questi dati risulti il costo.
I prezzi variano da periodo a periodo ed anche se adulto o bambino.
Ne ho visto uno in java che però molte volte non funziona o dà il
costo errato.
Avete qualche sito o scritp da suggerirmi??
Grazie per le eventuali risposte
Gabriele

Pablos wrote:

beh non e' difficilissimo farselo... un file che contiene i periodi 
associati ai prezzi di adulti/bambini/comitive, un algoritmo di somme e 
moltiplicazioni, una mascherina in gtk... in un paio di giorni si fa, anche 
senza avere grandi capacita' programmative :)
Ivan
-- 
*------------------------------CONOSCENZA------------------------------*
   (@_  Ivan Fabris, S.Sofia (FC) Powered by Linux Debian 2.2 r3  _*)
   //\      
www.darthxiong.net
 
setiathome.ssl.berkeley.edu
      /\\
   V_/_     
www.folug.linux.it
   pgp key @ 
www.keyserver.net
     _\_V
*------------------------------E'-POTENZA------------------------------*

Newsgroup: it.comp.lang.perl
Titolo: getservbyport()

Sempre io. Dato che mi è stato criticato anche l'italiano non userò
abbreviazioni di alcun genere oltre a non firmare :-)
Ora, stavo scrivendo uno scriptino per alcuni servizi IRC e mi sono piantato
per un errore con la funzione getservbyport (ho provato a sostituirla con
getservbyname ma non cambia molto...).
Lo script (un pezzo) è questo:
#!/usr/bin/perl
use Socket;
$host = $ARGV[0];
$port =$ARGV[1];
$nomehost = gethostbyname($host) or die "Cannot get hostname: $! \n";
$porta = getservbyport($port,'tcp') or die "Cannot get port: $! \n";
$protocollo = getprotobyname('tcp') or die "Cannot get protocol: $! \n";
$indirizzo = sockaddr_in($nomehost,$porta);
#line 18
socket(CONNE,PF_INET,SOCK_STREAM,$protocollo);
connect(CONNE,$indirizzo) or die "Connect: $! \n";
$nick = "nick Erix
";
$user = "Pino 0 0 :Coded by Erix
";
syswrite(CONNE,$nick,length($nick));
syswrite(CONNE,$user,length($user));
sysread(CONNE,$messaggio,32768);
print "$messaggio \n";
close CONNE;
provo ad eseguirlo:
C:\Documenti\Programmi>perl -w 
connect.pl
 
irc.azzurra.it
 6667
Cannot get port: Unknown error
Cosa sbaglio? Ci ho pensato un bel po' ma non sono riuscito a risolvere :-(
Erix


I parametri di sockaddr_in andavano al contrario =)
bye
Erix

Newsgroup: it.comp.lang.perl
Titolo: lavoro SSI

>> Se potete, rispondete anche su casella e-mail, grazie! <<<

Renditi conto che invece di scrivere inviare la pagina deve aprirla,
leggerla per cercare i comandi SSI, eseguire le direttive SSI e spedire la
risposta di tale esecuzione per poi completare il trasferimento del resto
del documento ... Condisci il tutto con (come minimo) una ventina di
richieste in contemporanea ... conta che netscape quando richiede una
pagina apre 4 socket in parallelo (mi sembra di aver letto da qualche pare
una cosa del genere) ... e vedi che cosa succede!
Ciao
Luca
Newsgroup: it.comp.lang.perl
Titolo: Mistero!!

se io lancio un cgi dal browser  cosi': 
http://www.xxx.it/cgi-bin/yyy.cgi
( il browser e' sul mio PC il sever e' altrove)
funziona perfettamente!
Se invece lo lancio da uno script su un altro server in questo modo :
il cgi parrebbe funzionare... ma  non scrive i file che dovrebbe!
com'e' possibile??...  una questione di permessi?.. ma se lo lacio dal
browser funziona???
In pratica funziona solo se lo lancio tramite browser altrimenti funziona ma
non scrive i file!
Grazie
 use LWP::Simple;
 use URI::URL;
 $url=("
http://www.xxx.it/cgi-bin/yyy.cgi
");
 print  get($url);
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.465 / Virus Database: 263 - Release Date: 25/03/2003

  print  get($url);
   Un'altra (remota) possibilita` e` che l'URL contenga qualche 
carattere che il Perl sottopone ad escape tra gli apici doppi.
-- 
Alla prossima,
Marco

 Marco


Newsgroup: it.comp.lang.perl
Titolo: Aggiornare File

Come fare per aggiornare una determinata stringa all'interno di un file
di testo con un prog. in Perl?
                    Antonello 
a.al...@sistemi.it

 wrote:
: Come fare per aggiornare una determinata stringa all'interno di un file
: di testo con un prog. in Perl?
E` una provocazione, uno scherzo o cosa?
Da prompt:
perl -pe 's/stringa1/stringa2/g' file
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
Newsgroup: it.comp.lang.perl
Titolo: [ANN] Piccolo contributo - Manuale Perl

 consigliarmi fate pure...
Il consiglio e' di non chiamarla 'beta'. E' una pre-alpha, al massimo.
Chiamare 'Lezione 1' l'indice, 'Lezione 2' la prefazione, ecc. non e'
indicativo del reale contenuto. E la 'Lezione 14' potevi pure evitarla.
Lodevole l'impegno, dubbio il risultato.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 "Consider Munafo', who was once handsome and tall as you" (T.S.Eliot)

 forse perchè ritienti il contenuto non sufficiente?
Perche' la gente non apprezza mai i miei tentativi di diplomazia?
Cosa volevi che scrivessi? La verita'?
La verita' la puo' vedere con i propri occhi la gente che visita il sito.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)


no, se scrivevi qualcosa di obiettivo, magari facevo a meno di visitare il
sito


ЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,И

Altro che spam, e' una cosa nobile...
Dai dei nomi (specialmente alle prime lezioni) un po' piu' appropriati...
Inoltre come appunti personali vanno bene, ma per uno che visita il sito (e
che vuole imparare il perl) sono quasi illeggibili.  (poco discorsivi)
(vanno "bene" come ripasso per chi gia' sa).
Qualche errore qua e la ...
Non ti preoccupare, ogni cosa la si inizia e la si porta avanti, vedrai che
(se non cambierai idea e continuerai a lavorarci sopra) in poco tempo
diventeranno molto utili e ben scritti.
Alex

Il consiglio e' di non chiamarla 'beta'. E' una pre-alpha, al massimo.
Scusate se forse esula un po dal ng ma dove trovo info su come si
utilizzano idealmente i termini alpha, beta, beta release etc.
-- 
Posted from 
relay4.inwind.it
 [212.141.53.75] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

ho messo on line i miei appunti
Ringrazio tutti per le critiche ed i suggerimenti. Un po per volta sto
provvedendo a fare tutte le modifiche.
Ho messo anche una piccola faq in italiano.


 utilizzano idealmente i termini alpha, beta, beta release etc.
Di solito si chiama alpha una versione con alcune delle funzionalita' ma
molto incompleta. 
Si chiama beta la versione praticamente funzionante ma che puo' possedere 
ancora alcuni bachi.
Piu' raro e' l'uso di gamma, per una versione completa rilasciata per breve
tempo per verificare la totale assenza di problemi.
Puoi verificare su qualsiasi sito contentente il Jargon Dictionary, ad esempio
http://info.astrian.net/jargon/terms/b/beta.html
 (per la voce 'Beta').

Newsgroup: it.comp.lang.perl
Titolo: Perl e NAT (server centralizzato)

 si incontra con un corrispondente su una di queste mantiene la connessione.
Ho usato il programma in locale (port1:127.0.0.1:port2), dato che non ho 
a disposizione due computer per fare le prove in remoto...
ora per vorrei sapere come creare un server centralizzato per mettere 
d'accordo nodi che sono dietro NAT.
diciamo che <host1> è un server, <host2> è un client e <central> è il 
server centralizzato.
(anche se con "nat-traverse" entrambi i nodi sono sia server che client)
<host1> si mette in ascolto e chiama <central> per comunicargli il 
proprio ip (del suo device NAT in questo caso) e la prorpia porta, in pi 
un nickname di riconoscimento: "Larry"
<host2> chiama <central> per comunicargli il proprio ip (del suo device 
NAT in questo caso) e il nickname del server a cui vorrebbe 
connettersi...
<central> sa a che numero ip corrisponse "larry"...
sicuramente non sono stato chiaro, anche per questo ho bisogno del 
vostro aiuto,
grazie

 d'accordo nodi che sono dietro NAT.
inizia da qui: 
http://en.wikipedia.org/wiki/STUN
Attenzione che per certi tipi di NAT non va.
Ciao
Roberto.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 server centralizzato.
allora, in pratica <host1> ogni tot secondi fa una richiesta all script 
central.cgi su <central> di tipo "sono vivo" mandado la porta x sul 
quale POI si mettera in ascolto nat-traverse lo script perl che fa udp 
hole punch...
<host1>, a sua volta chiede aiuto a <central> per comunicare con <host2> 
e <central> fa in modo che gli script nat-traverse su <host1> e <host2> 
siano lanciati in contemporanea....
il problema è che nat-traverse su <host1> e <host2> devono partire in 
contemporanea (o non più di 5/10 secs di scarto) e devono avere gli ip 
l'uno dell'altro e le relative porte...
ancora non sono sicuro se questa sia la via migliore...
grazie
Newsgroup: it.comp.lang.perl
Titolo: OT: Cercasi "perl monger" .....

Scusa per l'Off-Topic ma.... e' una cosa seria!
	Se hai una piu' o meno vaga idea del motivo per cui questo codice:
==============================================
$*=q^00$2b{29}2a;30$17>24&25*2a(1e)1b;
28+1d-26/1b=28+22*1c(1e)17;19@21^, $*.="[1b]28";
$z="";@%=split/\W/,$*;@_=map{hex}@%;
for(@_){$_=chr($_+74);s%[zgf]%$z%g;my$t=$_;push@#,sub{$t};}
for(@#){print&$_}0xf00f&print$/;
==============================================
fa esattamente quello che fa... allora, forse, sei sicuramente la
persona che stiamo cercando.
Se, inoltre, stai cercando un ambiente di lavoro nuovo, giovane e
stimolante.... allora inviaci, via e-mail, il tuo C.V.
Chi siamo? Trovi la risposta qui: 
 
http://www.nextra.it
Bye,
Damiano
-- 
Damiano Verzulli - NEXTRA S.p.A.
40033 Casalecchio di Reno (BO) -I-
e-mail: 
verz...@nextra.it
ICQ-UIN: 2945174

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

 la persona che stiamo cercando.
  JustanotheJrperlhacker?
            ^^
	Alla prossima,
		Marco
PS Qual e` l'espressione regolare che riconosce tutti gli identificatori
di variabile del PERL? ;)

 di variabile del PERL? ;)
puoi formulare meglio la domanda? 


 Il problema e' il "perche'" di quell'output!
Mi pare evidente. Ti dò un aiutino
do { print unless /[zfg]/ } for map { chr(hex($_)+74) } split /\W/,
q!$2b{29}2a;30$17>24&25*2a(1e)1b;28+1d-26/1b=28+22*1c(1e)17;19@21[1b]28!;
Ciao ciao,
Andrea
-- 
"...Unix, MS-DOS, and Windows NT (also known as the Good, the Bad, and 
 the Ugly)."
(by Matt Welsh)

 puoi formulare meglio la domanda?
  Immagina di dover scrivere una subroutine che legga un sorgente PERL e
stampi a video tutti e solo gli identificatori validi di variabile PERL
(scalare, array o hash). La domanda e`: dovendo risolvere un problema
del genere, se e quale espressione regolare utilizzeresti?
  IMHO, domande del genere sono piu` probanti per la valutazione della
conoscenza di un linguaggio di programmazione rispetto alla "ravanatura"
all'interno di stringhe di valori esadecimali: personalmente mi auguro
che i miei collaboratori non scrivano mai "codice offuscato" del tipo da
te presentato.
	Alla prossima,
		Marco

 
Invece di:
==============================================
$*=q^00$2b{29}2a;30$17>24&25*2a(1e)1b;28+1d-26/1b=28+22*1c(1e)17;19@21^,
$*.="[1b]28";
$z="";@%=split/\W/,$*;@_=map{hex}@%;
for(@_){$_=chr($_+74);s%[zgf]%$z%g;my$t=$_;push@#,sub{$t};}
for(@#){print&$_}0xf00f&print$/;
==============================================
Confesso che mi sono fatto aiutare, io sto iniziando a studiare PERL e
sto "lurkando" qui da qualche tempo.
Bye
Andrea Capriotti
http://gulliver.unian.it/capriotti

 $*.="[1b]28";
Ovviamente questo deve andare tutto in una riga.


 te presentato.
anch'io... ovviamente.
Mi auguro, pero', che i miei collaboratori siano in grado di capire cosa
faccia nel giro di qualche minuto.....
Concludo rinnovando l'invito: se conoscete il PERL quel tanto che basta
per capire il funzionamento degli script che avete visto... allora
inviateci il C.V.
Bye,
Damiano

Newsgroup: it.comp.lang.perl
Titolo: Da dove vieni?

Ho due siti e in uno ho creato uno script in perl .
Questo script deve essere eseguito da questi due siti e non da altri.
Come posso fare!?!
Pensavo di usare l'ip cioč il cgi doveva ricavare l'ip dei dati inviati al
cgi cosě poteva verificare se era uguale all'ip dei due siti!!!!
(lip dell'host non dell'utente)

 Come posso fare!?!
$ENV{HTTP_REFERER}
Confrontare con un array di referers buoni e sei a posto.
ciao, marco
--
Marco Cacchiani                                
e-mail:ma...@sirius.pisa.it
Public pgp key:         
http://www.sirius.pisa.it/marco/pgp_public_key.asc
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/

Newsgroup: it.comp.lang.perl
Titolo: Limitazione dei decimali visualizzati...

Salute a tutti,
muovo i primi passi in Perl e mi trovo a dover formattare dei dati numerici
decimali.
Esempio:
ottenendo un risultato con (n) decimali devo visualizzarlo solo con due
                $tot = 125,1234  ===>  $tot=125,12
Non ho molta dimestichezza con i pattern...
Ringrazio in anticipo chi mi vorrà dare una dritta.

 Non ho molta dimestichezza con i pattern...
Non serve nessun pattern. 
Devi usare (s)printf, quindi
perldoc -f sprintf
PS: se vuoi usare la , come delimitatore dei decimali, invece, e' un altro 
discorso.
-- 
Saluti,
Giancarlo
Newsgroup: it.comp.lang.perl
Titolo: cgi, moduli e dubbi

Ho da poco iniziato a lavorare con Perl ed alcuni aspetti mi rimangono
poco chiari.
La piattaforma utilizzata dal mio provider è Microsoft con IIS 4.
Ho creato una pagina html che con un bottone tipo 'submit' lancia il cgi
'
mio_cgi.pl
' che al suo
interno utilizza un modulo '
mio_modulo.pl
'.
1)
Il provider mi assegna all' interno della subdirectory mio_sito, che
assume la valenza di root,
una subdirectoy /cgi-bin con diritti di esecuzione e dichiara che il cgi
non necessita di path
dell' interprete, ma ho notato che sia con:
#!/perl
che
#!/usr/..../.../perl
il cgi funziona comunque.
Perche?
2)
Cercando di utilizzare un modulo con il comando:
require "/cgi-bin/
mio_modulo.pl
"
ottengo il seguente errore:
Can't locate 
mio_modulo.pl
 in @INC (@INC contains: C:/Perl/lib
C:/Perl/site/lib .) at
D:\Inetpub\webs\mio_sito\cgi-bin\
mio_modulo.pl
 line 9.
ho provato a risolvere il problema impostando la variabile:
$gm_dir = "D:/inetpub/webs/mio_sito/cgi-bin";
e richiamando il modulo col comando
require "$gm_dir/
mio_modulo.pl
";
il problema persiste anche se il messaggio di errore varia leggermente,
e non cita più la
variabile @INC :
Can't locate D:/inetpub/webs/mio_sito/cgi-bin/
mio_modulo.pl
 at
D:\Inetpub\webs\mio_sito\cgi-bin\
mio_cgi.pl
 line 9.
a questo proposito ho notato che cambiando il valore della variabile il
messaggio di errore non
cambia, per esempio:
$gm_dir = "D:/inetpub/webs/mio_sito/ZZZ-cgi-bin";
il messaggio rimane:
Can't locate D:/inetpub/webs/mio_sito/cgi-bin/
mio_modulo.pl
 at
D:\Inetpub\webs\mio_sito\cgi-bin\
mio_cgi.pl
 line 9.
invece che fare riferimento al path ./ZZZ-cgi-bin dichiarato nella
variabile come detterebbe
la logica.
Grazie a chiunque riuscirà a chiarirmi le ideee.
Enzo Benvenuti

 Enzo Benvenuti
il perl path non deve essere dichiarato su windows.
per l'errore sembra proprio come scrive .. can't locate, ovvero non lo
trova alla posizione specificata. ma lo hai messo nella stessa cartella
del mio_cgi?
require '
modulo.pl
';
ciao
 
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************


Sia il cgi 
mio_cgi.pl
 che il modulo 
mio_modulo.pl
 si trovano nella
subdirectoty /mio_sito/cgi-bin.
Grazie per l' interessamento.
Enzo Benvenuti
Newsgroup: it.comp.lang.perl
Titolo: ottenere una pagina da una cgi

Salve a tutti,
dovrei costruire un programmino che invii una richiesta http ad una pagina
web (una form) e ottenga la risposta per rielabolarla, sia passando i
parametri come GET/POST. Qualche modulo dal quale iniziare a sviluppare?
Luca

 
http://search.cpan.org/~gaas/libwww-perl-5.808/lib/LWP.pm
Perfetto! Fa quello che voglio, l'unica cosa che vorrei sapere è quale
parser usare per ottenere un albero dei tag html, in modo da poter
analizzare la pagina un po' meglio.
Qualche suggerimento?
Luca


HTML::Tree? Ha ottime referenze da quel che vedo. (http://
search.cpan.org
)

Newsgroup: it.comp.lang.perl
Titolo: <no subject>

Salve a tutto il ng.
Sono una neofita e sono incappata in un problema a cui non riesco a trovare
soluzioni.
ho la seguente necessità:
dopo aver eseguito un test l'utente dovrebbe veder apparire il risultato del
test stesso ed un link alla pagina del commento. Per quanto riguarda i
risultati semplici tipo $score < 30 e $score > 90 sono a posto, ma come
faccio a fare $score compreso tra 31 e 89???
Il codice che ho usato per i primi due è il seguente:
if ($score < 30) {
print qq|
 <A href=../../rd.htm>Risultato D (Nullo)</A> da 0 a 30 punti<br>
|;
}
Ho provato sia <=> che cmp, ma ovviamente vale solo tra due variabili...
Ho provato anche:
if ({$score >= 31} AND {$score < 90}) {
print qq| <A href=../../rc.htm>Risultato C (Scarso)</A> da 31 a 90 punti
<br>
 |;
 }
Grazie a tutti,
Elena
--
Posted from 
ro...@mbox1.flashnet.it
 [194.247.160.2]
via Mailgate.ORG Server - 
http://www.mailgate.org

 if ({$score >= 31} AND {$score < 90}) {
se questo č il tuo source vero allora
1) perl č case-sensitive (dovresti scrivere 'and' e non 'AND'
2) le parentesi grafe non credo che vadano bene. perl non si arrabbia, ma fa
qualcos'altro (da me da sempre VERO)
metti le parentesi tonde
PS: sii gentile, metti qualcosa nel "subject" quando posti qualche domanda :-)
ciao, antonio

 ciao, antonio
Grazie, ho comunque risolto. Il codice da scrivere è:
if($score > 61){
  if($score < 90){
        print qq| <A href=../../rb.htm>Risultato B (Medio)</A> da 61 a 90
punti <br>
        |;
        }
        else{
  print "\n";
  }
 }
Ciao, Elena

... Il codice da scrivere è:


 }
Una soluzione piu` elegante potrebbe essere:
SWITCH : {
  (($score > 60) && ($score <= 90)) && do { print "(opz1)..."; last SWITCH; }
  (($score > 90) && ($score <= 120)) && do { print "(opz2)..."; last SWITCH; }
  (($score > 120) && ($score <= 150 )) && do { print "(opz3)..."; last SWITCH; }
  print "Qualsiasi altra opzione...";
}
Cosi` il sorgente e`, a mio avviso, piu` chiaro.
Nota che SWITCH non e` un costrutto in Perl (come lo e` invece ad esempio
in C++), ma solo una label. Di fatto puoi scrivere una qualunque parola
al posto di "SWITCH". ;)
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/
Newsgroup: it.comp.lang.perl
Titolo: ESPERTO PYTHON CERCASI

Cerchiamo un esperto  in applicazioni client/server e web application
con conoscenze di :
 -PHP
 -PERL
 -Python
 -JAVA/JSP
Buona conoscenza sistemi operativi Linux.
Inserimento immediatO in azienda di Padova
Residenza: Padova o zone limitrofe
Inviare curriculum a 
c...@select.it
  con riferimento in oggetto: PYTPD
Per informazioni: 
in...@select.it



Newsgroup: it.comp.lang.perl
Titolo: Chi puo' darmi consigli su dove scaricare SENDMAIL e come configurarlo?





Salve, sto' alla ricerca DISPERATA di Sendmail per 
poterlo installare e configurare sul mio server on line e (in particolare) su 
Apache.


Grazie in anticipo.



 Grazie in anticipo.
www.sendmail.org
?
Ma cosa c'entra APache?
-- 
___________________________________
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

Guarda su questo sito:
http://www.activestate.com/Products/PerlMx/index.html
ma leggi bene le istruzioni.
Cmq dovrebbe esserci quello che cerchi.
Ciao.
...e mica so' Mandrake pe' davero
--
Posted from 
IDENT:ro...@planetsec.com
 [194.20.232.117] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG





 




 
COME FACCIO A METTERE SENDMAIL SUL SERVER APACHE CHE HO NEL MIO PC 
PER TESTARE I CGI? NON DEVO METTERE SENDMAIL NELLA DIRETTORI \BIN DI 
APACHE?


 



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

 3. goto 1.
Un loop? ;-)
Ah, Marco, non stavo parlando con te, ovviamente!


 Ah, Marco, non stavo parlando con te, ovviamente!
<nickcarter>lo supponevo</nickcarter> :)


 <nickcarter>lo supponevo</nickcarter> :)
E chi l'č?????
Ciao
M.
--
____________________________________________________
    Life's just a blast, it's moving realy fast    
better stay on top or life will kick you in the ass.
ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ

 E chi l'č?????
Un refuso: "lo supponevo" non era il motto di Nick Carter di Bonvi ma di
Cip l'Arcipoliziotto di Jacovitti O:-)


 Cip l'Arcipoliziotto di Jacovitti O:-)
Mah ... non voglio piů fare l'incompetente e taglio qui il discorso! ;-)


Bonvicini si sta rivoltando nella tomba! E a De Maria fischiano le orecchie!
Ma come! non lo conosci?


   it.comp.www.cgi.
e dare una bella lettura alla RFC #821

 fatti?
Ma il server SMTP chi lo gestisce? Un programma apposito che viene
incaricato di inviare le mail, ossia un MTA.
Per *x ce ne sono a bizzeffe, dai piů semplici ai piů complessi. Ormai,
cmq, sendmail č sinonimo id MTA, sebbene dietro possano nascondersi anche
exim, postfix e compagnia bella!
Sotto Win qualcosa c'č, ma non lavorando con tali sistemi non so essere
piů preciso!


 Ma come! non lo conosci?
Ma avete finito di prendermi per i fondelli? ;-))))))))))))))))
No, non so chi sia! :-P

Newsgroup: it.comp.lang.perl
Titolo: help su script perl

Salve....
conderato che sono zero di perl volevo chiedere un aiuto...
come fare in modo che appena caricata una pagina html questa mi esegua
automaticamente
(senza perdere tempo)  uno script  .cgi sulla dir cgi-bin ????
esempio:
entro su una  folders
quindi viene chiamato l'index.htm (che sarà vuoto e che non mi interessa che
si apra)
per cui deve essere subito caricato il .cgi sulla  cgi-bin/file.cgi
GRAZIE
 se preferite potete anche rispondere su
johnn...@TROMBETTAinfinito.it
(togliere trombetta per risponder)

per cui deve essere subito caricato il .cgi sulla  cgi-bin/file.cgi
Sposta il CGI fuori dalla cgi-bin e chiamalo:
index.cgi
Se il tuo web server e` opportunamente configurato esso verra` eseguito.
Assicurati di cancellare eventuali altri index.*, ai quali il web server
potrebbe dare precedenza.
	A presto, Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!




non sono un grande esperto ma dimmi se concordi o mi sto sbagliando io...
Mah, in effetti puo` anche essere che su un gratuito non funzionino.
Tentare tuttavia non ti costera` nulla. ;-)


puoi fare una pag index.htm con 2 frame...:
al primo dai dimensione 0, al secondo 100% e gli fai richiamare la tua
pag...
ciao
Francesco
"Johnny" <johnn...@TROMBETTAinfinito.it> wrote in message
news:8v9ob5$8...@news.edisons.net...


 news:8v9ob5$8...@news.edisons.net...


 form
-- 
Pier Angelo Favarolo
-+-+-+-+-+-+-+-+-+-+
Il mio sito sulle tariffe telefoniche:
http://tariffe.surf.to
http://surf.to/tariffe
http://ascu.unian.it/~pangelo/tariffe

form
Potresti usare una pagina index.html simile a questa:
<html>
<head>
<meta http-equiv=refresh content="0;url=/cgi-bin/
script.pl
">
</head>
<body>
</body>
</html>
Il tag "meta" nell'header fa si che la pagina esegua un redirect
all'indirizzo (url) specificato dopo un certo numero di secondi dal
caricamento (in questo caso 0, ovvero redirect  immediato).
Ciao
	Massimo Barbieri

 > news:8v9ob5$8...@news.edisons.net...


 ha scritto nel messaggio
news:8vocvn$2s5$1...@lacerta.tiscalinet.it...



Newsgroup: it.comp.lang.perl
Titolo: Embedded Perl?

Neofita:
ne sapete qualcosa? (references, libri, siti)
max


Max


Puoi andare anche su 
www.webmonkey.com
piu' precisamente
http://hotwired.lycos.com/webmonkey/98/24/index3a.html
spero che ti sia utile
ciao
S.
Newsgroup: it.comp.lang.perl
Titolo: Come fare a ....

Ciao a tutti !!!
E' da circa una settimana che ho iniziato ad imparare Perl (con winXP)
ma non riesco a capire come fare questa cosa:
Vorrei fare uno script che :
- mi cerca in tutto il disco C i file con estensione .tmp, .bak, .old
(per esempio)
- se ne trova, mi deve fare il print del percorso della dir dove si
trova il file
- se non ne trova , deve informarmi che non ha trovato file
.tmp oppure file.bak 
E' possibile avere uno script del genere per capire come devo 
ragionare ?
Grazie e ciao. 

On Sun, 18 Jul 2004 16:36:54 GMT, 
snow...@despammed.com
 (snowhite)
wrote:

ti serve File::Find;
guarda nella doc ufficiale...
se hai ancora prob... posta pure
--
pigmalion at home
http://www.pigmalion.info/
Newsgroup: it.comp.lang.perl
Titolo: Esecuzione comandi di sistema, perchè fa così?

Ho provato ad usare gli apici inclinati per far eseguire un comando e
inviare l'output a una variabile.
Uso win95 e il perl 5.005_02
@A=`copy $A.txt $B`
con $A="prova" e $B="..\pippo"
Però eseguendo lo script, copia il file prova.txt, ma dopo aver cercato non
so cosa nel floppy disc anche se non ci sono dischetti (un po' come fanno
gli antivirus alla chiusura della sessione).
Qualcuno mi sa dire cosa cerca nel dischetto? E' possibile evitare questo
problema? Siccome dovrò, poi, esportare il programma su un computer con Unix
Solaris, il problma si ripresentarà anche lì?
tenete presente che usando il comando system("copy $A.txt $B") questo non
succede.
Grazie a chiunque mi può aiutare
Andrea Busia

...


Newsgroup: it.comp.lang.perl
Titolo: DBI mysql

Ciao a tutti,
sto utilizzando DBI per un insermento di un record in un db mysql.
questo è il codice:
$dbh->do("INSERT INTO Documenti (1, 2, 3, 4, 5, 6, 7) VALUES (?, ?, ?, ?, ?, 
?, ?)", undef, 0, 0, 0, 0, 0, 0, 0);
come faccio a recuperare l'id di questo record appena inserito???
visto che c'è nella tabella il primo campo id come contatore automatico...
Grazie
SIMONE

 visto che c'è nella tabella il primo campo id come contatore automatico...
  $rv = $dbh->last_insert_id($catalog, $schema, $table, $field);
  $rv = $dbh->last_insert_id($catalog, $schema, $table, $field, \%attr);
è nella documentazione di DBI, perldoc DBI

Io ho un MySQL un po' vetusto per cui la soluzione di dree non mi
funziona. Se hai lo stesso problema, prova con la funzione
LAST_INSERT_ID() di MySQL, ad esempio:
my $last_id = ($dbh->selectrow_array("SELECT LAST_INSERT_ID()"))[0];
Potrei aver sbagliato qualcosa nello scrivere questa linea di codice :)
In ogni caso, attenzione alle due parentesi in "LAST_INSERT_ID()"

Newsgroup: it.comp.lang.perl
Titolo: Utilizzo di PAR

Salve a tutti,
Ho sviluppato un piccolo programma che fa uso del modulo Text::Aspell.
La mia idea era di distribuirlo con par facendo una roba tipo:
pp -o programma.exe 
programma.pl
Purtroppo se lo sposto su altre macchine mi dice che manca
aspell-15.dll. Mi dice la stessa cosa anche se aggiungo l'opzione -a
aspell-15.dll: il file viene aggiunto all'archivio, ma il programma
non riesce a collegarla
Avete qualche suggerimento?
Simone

Ho risolto il problema della .dll, utilizzando l'opzione -l...
Ora non mi resta che scoprire come impacchettare i dizionari
Ciao
Newsgroup: it.comp.lang.perl
Titolo: .htaccess .htpasswd

Ho una directory ad acesso ritretto (.htpasswd .htaccess) su una
macchina Linux come faccio a scrivere su un file le info di chi entra e
di chi tenta di entrare???
grazie 
Otso

 ha scritto nel messaggio
news:1e9d8go.1h4...@a-aq7-57.tin.it...

Fa tutto apache (o altri server http). Gli accessi 'legali' li trovi
nell'access log.
Gli errori (guarda un po'... :-)) nell'error log.
Ciao,
Valerio

Ok, ma per uno che vuole visualizzare su una pagina html gli utenti che
sono entrati sulle pagine protette???
La mia domanda é questa: esiste il modo per far scrivere in coda ad un
file (anche di testo) gli utenti che effettuano il collegamento su
quelle pagine indicando username + password ???
.htaccess puň scrivere su un file di testo ???
Ciao Otso
Grazie!

 .htaccess può scrivere su un file di testo ???
Non che io sappia, ma Apache ormai può tutto...
Valerio

Non che io sappia, ma Apache ormai può tutto...
io userei il php3 per l'autenticazione. a questo
punto, puoi fare quello che vuoi.
implementare l'autenticazione in php3 significa
scrivere 3 righe di codice
Oha
PS: siamo incredibilmente OT
-- 
#include <disclaimer.h>

Dopo un vano tentativo di capire qualcosa di perl devo

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

E' possibile inviare del''HTML usando sendmail?
Se si come??? HELP ME =))
Grazie Nicola.

Se si come??? HELP ME =))
Si', con qualcosa di questo tipo ...
$mailprog = '/usr/sbin/sendmail';
open (MAIL, "|$mailprog -t");
print MAIL "Content-type:text/html\n";
print MAIL "$testo_con_codice_html";
close(MAIL);
Hope this helps :-)
Ciao!
Maurizio Mascheroni
-------------------------
Idealmente
http://www.idealmente.com
in...@idealmente.com
-------------------------

Grazie funziona =)



Io uso MIME::Lite (lo trovi su CPAN) e vado alla grande,
ci faccio dei multipart document e mando anche attachment...
--
Master:"Conan, what is best in life?" 
Conan:"To crush your enemies, see them driven before you,
and to hear the lamentations of their women!

Newsgroup: it.comp.lang.perl
Titolo: Ancora sulle stringhe

Ciao,
ho un'altra domandine relativa alla trasformazione delle stringhe:
se voglio che tutte le lettere maiuscole diventino minuscole, che devo fare?
Qualcosa del tipo:
$stringa =~ s/[A-Z]/[a-z]/g;   ?
Che comunque non funziona? :oP
Grazie di nuovo, Manuel

 $stringa =~ s/[A-Z]/[a-z]/g;   ?
Due alternative:
 1) $stringa =~ tr/A-Z/a-z/;
 2) $stringa = lc $stringa;
Per maggiori info, vedi:
 perldoc perlop
 perldoc -f lc
Max
Newsgroup: it.comp.lang.perl
Titolo: testare gli script

Ciao Ragazzi.
Sono proprio agli inizi e vorrei sapere cosa mi serve (utilizzo MDK8.1) per
testare gli eventuali script in perl?
Ho bisogno di Sendmail, oltre Apache?
Posso fare tutto questo su una sola macchia, cioč senza disporre di una LAN?
Grazie a tutti, Prospero.

 Posso fare tutto questo su una sola macchia, cioč senza disporre di una LAN?
Se sono script CGI, puoi lavorare in loopback e configurare
adeguatamente 
Apache.
Maggiori info le trovi qui:
http://www.pluto.linux.it/journal/pj9710/vw.html

 Posso fare tutto questo su una sola macchia, cioč senza disporre di una
LAN?
Se hai gia Apache avvialo e metti gli script nella cartella cgi-bin di
Apache. Dal browser lo script e' su 
http://localhost/cgi-bin/script.cgi
---
Mario Rizzuti


Visto che ti trovi: e se voglio fare in modo che Apache riconosca
anche il dominio (tipo 
http://dominio.com/cgi-bin/script.cgi
)?
Grazie
   Vince


    Options ExecCGI FollowSymLinks
    AllowOverride AuthConfig
    </Directory>
</VirtualHost>
Dopodiché fai ripartire inetd (kill -HUP pid_di_inted) ed Apache
(apachectl restart).

in /etc/hosts
poiché in Apache non c'è nessun folder /etc.
Sono certo che l'errore è tutto in httpd.conf, perché precedentemente
ero riuscito a configurare Apache in modo che funzionasse come io
richiedo: purtroppo quell' HD ha deciso un giorno di diventare un
disco volante  8-)), spaccandosi letteralmente in più pezzi  8-(
Ha qualche altra dritta da darmi?
Grazie.
   Vince

 poiché in Apache non c'è nessun folder /etc.
non si tratta di Apache ma proprio di un file linux!
/etc/hosts
è un indirizzo assoluto.
/ (directory root)
etc/ (directory etc/)
hosts (file)
dunque aggiungi nel file (non di Apache) /etc/hosts
la riga sopra detta e riavvia inetd con un kill -HUP pid_di_inetd
In questa maniera quando scrivi 
www.miosito.it
 il browser punterà a 
127.0.0.1 e dunque ad Apache.
Comunque su 
http://www.pluto.linux.it/journal/pj9710/vw.html
è spiegato tutto.

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

Salve!
Non credo che questo post sia inerente al perl, ma spero che qualcuno mi
sappia aiutare cmq anche perchè non saprei dove scrivere...
Ho provato a cambiare i parametri CHMOD di un file .cgi nella cartella
cgi-bin ma non ci sono riuscito.. quale può essere il motivo?
Manuel

cgi-bin ma non ci sono riuscito.. quale puņ essere il motivo?
Dipende da come ci hai provato :) Dicci di +.
--
www.pigmalion.info
www.pigmalion.info/perl/

Newsgroup: it.comp.lang.perl
Titolo: sendmail con attach

Salve a tutti.
ho la necessità di creare un form che oltre a dei normali dati di testo,
possa inviare anche un file attach.
Ho provato inderendo dei codici nel modulo sendmail, ma non ho un manuale
specifico.
Qualcuno puo' aiutarmi? A buon rendere!
Luciano

 
Procurati MIME::Lite
 
http://search.cpan.org/search?dist=MIME-Lite
La documentazione spiega dettagliatamente come generare un messaggio MIME
con attachment. Quel che ti resta da fare è darla in pasto al sendmail
tramite la conseueta pipe.
Max

inserirci anche questa.
Agli ordini. ;-) Domani la inserisco.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
Newsgroup: it.comp.lang.perl
Titolo: stampa hash completo

oggi non me ne va bene una:
dovrebbe stampare un hash completo
print "<table>";
foreach (sort keys %input) {print
"<tr><td>$_</td><td>$input{$_}</td></tr>\n";};
print "</table>";
in realtà si perde valori per strada... 
dove sbaglio?
Mario
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

ho postato il codice errato, questo è quello che sto usando (cmq non va...)
print "<table border=\"1\">";
foreach $key (sort keys %input) {print
"<tr>$key<td></td><td>$input{$key}</td></tr>\n";};
print "</table>";
Mario


print "</table>";
Il codice mi sembra giusto (ma andava bene anche il precedente). Che cosa ti
fa dire che "si perde valori per strada"? Non č che sia piuttosto sbagliato
il modo in cui popoli l'hash?
In realtą io, per mio gusto personale, riscriveri cosģ:
  print "<table border=\"1\">";
  for my $key (sort keys %input) {
      print '<tr>', $key, '<td></td><td>', $input{$key}, "</td></tr>\n";
  }
  print "</table>";
ma non dovrebbe cambiare nulla.
Ciao.

 dove sbaglio?
Hai provato Data::Dumper per visualizzare la struttura?
--
Valerio Granato
http://www.musicoff.com
 - Music Online For Free
La Grande Comunità Online per Musicisti


O forse è l'ordine in cui ti visualizza i valori che non corrisponda a
quanto ti aspetti?
Le chiavi sono id numerici?
Newsgroup: it.comp.lang.perl
Titolo: non funziona !!!

Ho installato il personal web server sul mio sistema in win98.
Ho cercato di fare alcuni esercizi con le cgi e perl ma senza successo!!
Ho messo per nella directory del pws 
www.roby.com
 le directory usr, local, e
bin in modo tale che il sistema sappia che qui può trovare perl (#!
/usr/local/bin/perl).
E sbagliato? Io penso di si visto che non funziona niente. Nel pws ho messo
che queste nuone directory siano esecutibili.
Ho installato Perl per windows.
Non so cosa fare, datemi una mano per favore !!!!! SOno un hyperprincipiante
;-((
Aspettando i vostri aiuti vi saluto tutti
Ciao
Bob

bin in modo tale che il sistema sappia che qui puň trovare perl (#!


...


 bin in modo tale che il sistema sappia che qui può trovare perl (#!


...


ma io non ho win NT...


scusa la mia ignoranza, ma cos'é l'IIS?



    Best regards,
        Kazuma
--
Alessandro A. Garbagnati
Sr. Lead Engineer, Product Development
Decisive Technology
Mountain View, CA, 94043

...


 cosa devo scrivere all'inizio?
Nulla, la prima stringa indica dove e' installato il perl solo e solamente per
i sistemi Unix/Linux, perche' la shell apre il file, legge la prima riga e
lancia il comando con opzione il nome del file!
Sotto WINDOWS 9x / NT questo non funziona. perche per la determinazione del
tipo di file invece di aprire i file si usa l'associazione con l'estensione
(.pl, .txt, .doc .... )!!!
... quindi sotto microsoft la prima riga la puoi anche cancellare.
Ciao
Luca

 scusa la mia ignoranza, ma cos'é l'IIS?
lascia perdere quelle porcherie made in M$, e se proprio non vuoi
passare a Linux installa Apache per Win32.
http://www.apache.org
Configurarlo e' molto molto facile (sono 3 file di testo).
-- 
    .--.     Lorenzo Pulici - milanohockey at 
penguinpowered.com
   |o_o |    
http://milanohockey.virtualave.net
     ICQ 38627287
   |:_/ |    
http://snowdog.cjb.net
  //   \ \   
http://verdebaggio.freeweb.org
 (|     | )  PLUTO Member - 
http://www.pluto.linux.it
/'\_   _/`\       "Le insegne luminose attirano gli allocchi"
\___)=(___/                   (G. L. Ferretti)

Newsgroup: it.comp.lang.perl
Titolo: filler in stringhe? Come?

Ciao
Dovrei comporre dei campi ASCII di lunghezza fissa contenenti numeri.
Esempio
1 deve essere scritto come 00001
34 come 00034
Volevo sapere se esiste una procedura più intelligente che scrivere una sub che
calcola la lunghezza della stringa iniziale e aggiunge gli zeri.
Grazie
Ciao

 1 deve essere scritto come 00001
 $str = sprintf( "%.5d", 1 );
M
Newsgroup: it.comp.lang.perl
Titolo: Cosa si può fare con il perl ??

Sono alle prime armi e conosco un po di php, con questo posso fare per
es una pagina grafica per inserimeto, modifica e cancellazione dati in
un database, mandare email con indirizzo fasullo, creare immagini,
creare un server di posta elettronica (se non sbaglio) ecc...  Ma con il
perl cosa si può fare ??? Prima di iniziarlo a studiare vorrei sapere
che applicazioni si possono costruire. 
Grazie

 che applicazioni si possono costruire.
In Perl puoi fare tutto quello che puoi fare in PHP e molto altro, dalle 
applicazioni con GUI agli script CGI, alle utility per l'amministrazione di 
sistema.
Per maggior informazioni vedi:
http://www.perl.com
http://ww.perl-it.org
        A presto, Michele.


Poesia.
http://www.perlmonks.org/index.pl?node=Perl%20Poetry
-- 
debe

Newsgroup: it.comp.lang.perl
Titolo: system call

Io ci riprovo...
Perche' queste righe di programma non funzionano?
---snip---
$SENDMAIL = '/usr/bin/sendmail';
$HOST_MAILER = '
ro...@netmania.it
';
$msg_body = 'test\n';
open(SM, "|$SENDMAIL $HOST_MAILER")     or die "$ERROR_02 $!\n";
print SM $msg_body;
close(SM);
----------
-- 
******* Linux... the choice of a GNU generation! *******
--------------------------------------------------------
liviata...@usa.net
 (Remove +nospam to e-mail reply)
it.cultura.ebraica ---> 
http://members.xoom.com/icegroup

 ----------
sendmail richiede tutti gli header di email corretti. Se non glieli
fornisci, ciccia.
Se non vuoi dover mettere gli header, usa un mailer (tipo 'mail').
Oppure usa un modulo.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

close(SM);
E (forse :-) ) funziona.
Non dimenticare di quotare le @ con \, quindi
pi...@palla.com
 diventa pippo\@
palla.com
.
Ciao,
Valerio
--
"Microsoft Outlook Express: cosa vuoi postare
postare postare oggi?"
---------------------------------------------------------------------------
          GetNet S.r.l.  Network & System Integrator
               - Partner Infostrada - Sede di Napoli -
 
http://www.getnet.it
     0815625909     03395452296       03394733180
---------------------------------------------------------------------------

 ----------
A parte l'altra mia risposta (sendmail vuole tutti gli header), 
mi rendo conto che non hai definito cosa non funziona!
La prima cosa che salta all'occhio e' il problema degli header, ma leggevo
oggi sul newsgroup 'ufficiale' la risposta ad un problema analogo, cioe' che 
la open su una pipe da errore (e quindi fa scattare il die) solo se fallisce
la fork(), non l'apertura della pipe! Per verificare se la pipe era stata
effettivamente aperta bisogna ravanare con i segnali.
Sembra che ci siano dettagli in perlfaq8 ("Why doesn't open() return an error
when a pipe open fails?") e in perlipc ("Using open() for IPC").
In pratica, oltre alla open() occorre controllare anche la close().
Risultato: non solo forse il testo che stai mandando a sendmail non e'
corretto, ma probabilmente non puoi neanche eseguire sendmail! (ricordo che
sendmail e' eseguibile solo da root)
Spero che questo sia d'aiuto

Newsgroup: it.comp.lang.perl
Titolo: Problema Aiuto!

Premetto che sono ignorante in materia, sto cercando di usare uno script-cgi
"mailto.cgi" per inviare e-mail da un form. Nel file readme c'è scritto:
You will then need to set the
executable bit on 'mailto.cgi'.  The only change you may have to make is
changing the path to Perl in the first line of 'mailto.cgi'.  Standard
settings
for the permissions can be achieved with the following command:
'chmod 755 mailto.cgi'.
Mi date un aiuto perchè non capisco proprio che devo fare!
Gradirei risposte in mail.
Grazie a Tutti

 ha scritto nel messaggio
news:8gbc6t$mm9$1...@nslave2.tin.it...


Newsgroup: it.comp.lang.perl
Titolo: beta tester cercasi

Salve a tutti.
C'è qualcuno che sarebbe disposto a fare un po' di beta testing su un
modulo perl che sto sviluppando?
Si stratta di un sistema per indicizzare documenti testuali ed effettuare
ricerche.
Ecco alcune delle caratterisiche principali:
 Indicizzazione:
 - indici mantenuti come db Berkeley (b-tree) 
 - estrazione dei titoli html 
 - gestione stop-words
 
 Ricerca:
 Due sintassi possibili per le query:
 - standard (simile a quella standard di Altavista)
  es: "cane +lupo -zampa"
 - avanzata (simile a quella avanzata di Altavista)
  es: "((windows AND dos) OR unix) AND NOT macintosh"
Richiede versione 5.005 del perl.
A chi interessa:
http://src.maxim.comm2000.it/perl/MMM-Text-Search-0.05.tar.gz
Saluti.
Max

 Max

 Richiede versione 5.005 del perl.
Perfetto, io lavoro sotto WIN32, te lo poso testare sotto
Windows95/98/NT Server & Workstation.
Adesso lo prelevo e poi ti sapro' dire.
Ciao.
-- 
                          _  _
                  I\/I  '(_) _)
              By: I  Icv  _) _)
 
Mc...@arabafenice.it
--
Posted from 
alpha.interactiva.it
 [195.31.200.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

Newsgroup: it.comp.lang.perl
Titolo: loop infinito

Sono un neofita e mi sto avvicinando a questo linguaggio.
Ho un problema con un semplice programmino, non riesco a capire perchè 
generi un loop infinito. Il programma è questo:
$done=0.0;
$count=0;
while ($done==0) {
	print ("Count is $count\n");
	if ($count==1) {
	$done=1;
}
	$count=$count+0.1;
}
print ("Fine")
deve creare un elenco di numeri da 0 a 1 (0.1, 0.2 ecc fino a 1)
ma è infinito, cosa che non succede con i numeri interi.
Qualuno può darmi un aiuto?
Grazie.
Jay

 Jay
Visto il codice che hai postato, hai molto da imparare! Niente paura
cmq, Perl è un linguaggio di difficile apprendimento ma dà grandi
soddisfazioni.
Rielaborando il tuo codice, ecco cosa farei io:
<CODE>
use strict;
use warnings;
my $count=0;
while($count<1) {
  print "Count is $count\n";
  $count += 0.1;
} 
print "Fine\n";
</CODE>
Consiglio vivamente l'uso di strict & warnings, che aiutano nella
scrittura di un codice sicuro ed efficente.
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \
Newsgroup: it.comp.lang.perl
Titolo: Messaggio di errore che non comprendo!!

Ragazzi,  di seguito ho riportato il messaggio di errore che mi viene
inviato dal browser quando richiamo un applicazione in perl da una pagina
html tramite form. Non capisco quale sia il problema, potete aiutarmi??!!
Grazie mille
Toni
Internal Server Error
The server encountered an internal error or misconfiguration and was unable
to complete your request.
Please contact the server administrator, y...@your.address and inform them of
the time the error occurred, and
anything you might have done that may have caused the error.
couldn't spawn child process: c:/apache/htdocs/cgi-bin/
myfirst.pl
Apache/1.3.3 Server at your_host_name Port 80

 wrote in message
8ujumj$rto$1...@lacerta.tiscalinet.it...


 ha scritto nel messaggio
news:8ujumj$rto$1...@lacerta.tiscalinet.it...


 html tramite form. Non capisco quale sia il problema, potete aiutarmi??!!
C'e' scritto qual e' il problema:
"couldn't spawn child process: c:/apache/htdocs/cgi-bin/
myfirst.pl
"
A mio avviso non riesce ad eseguire 
myfirst.pl
, forse non ha associato 
all'estensione .pl l'interprete perl, ne hai messo come prima riga 
#!/path/to/perl, anche se non ho mai capito come questo secondo meccanismo 
funzioni si Win32.
-- 
Saluti,
Giancarlo