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

E' possibile definire una variabile che lavori in doppia precisione? devo
infatti fare una media aritmetica dell'ordine dei 40000 campi e temo di
ottenere risultati sballati se lavoro in singola.
grazie grazie, HotHello!

 ottenere risultati sballati se lavoro in singola.
Se non erro tutti i numeri sono da considerarsi
double-precision floating-point.
Io sapevo cosi' ...
 Raffaello

 ha scritto nel messaggio
news:pan.2003.02.06....@pippo.com...

Non ce l'ho con te: ma perche' la gente si ostina ad usare un linguaggio
creato per l'analisi dei testi, automazioni di sistema e rete per fare
calcolo scientifico o cose per le quali il perl non e' stato pensato e
quindi rischia di:
-non soddisfare le aspettative
-essere lento da morire
-essere troppo difficile implementare qualcosa in modo che risulti corretta
(giusto livello di approssimazione)
io amo il perl ma per fare calcolo scientifico non lo userei mai preferisco
il C o il C++ (considera che chi pretende il massimo dell'efficienza si
affida sempre al fortran77 !).
ciao,
Nids
ps: ribadisco che non ce l'ho con te, e' solo un discorso generale. Ho
trovato gente che si lamentava perche' il perl era lento a fargli le
inversioni di matrice o perche' i numeri glieli arrotondava in maniera
strana!
pps: analogamante non farei un analizzatore di testi che necessita di
espressioni regolari in fortran77 o in C : sceglierei il perl (solo perche'
ci metto un centesimo del tempo che ci impiegherei a scrivere il codice)

 ottenere risultati sballati se lavoro in singola.
Forse
perldoc Math::BigFloat
e
perldoc Math::BigInt
?

 ci metto un centesimo del tempo che ci impiegherei a scrivere il codice)
infatti hai centrato il punto della questione!
Quello che mi/ti chiedo è se sia possibile richiamare delle subroutine
esterne al codice e sritte in altri linguaggi.
Ciao e grazie dell'interesse!
HotHello
Newsgroup: it.comp.lang.perl
Titolo: problema di autenticazione

Salve a tutti,
vi spiego subito il mio problema:
ho creato un file di testo con le seguenti righe:
AuthName "prova"
AuthType Basic
AuthUserFile .htpasswd
require valid-user
e l'ho uploadato in una directory del mio spazio web che volevo proteggere,
poi ho rinominato il file chiamandolo .htaccess.
In seguito ho creato un altro file con la riga seguente:
luca:aaWyNRwn22NF6
(la password criptata l'ho ottenuta con un semplicissimo script perl con la
funzione: crypt($pass, 'aa'))
Poi ho uploadato anche questo file nella stessa directory da proteggere e
l'ho rinominato chiamandolo .htpasswd.
Il problema è che provando ad entrare nella directory mi appare la maschera
di autenticazione ma anche immettendo i dati giusti non vengo autorizzato.
Dove sbaglio? (è la prima volta che mi cimento in questi problemi e sono
molto confuso, abbiate pietà!!!)
Grazie 1000
Luca
PS Se sono OT scusatemi, ma non so a che newsgroup scrivere!!

!
Effettivamente sei OT. ;-) Comunque sia prova a mettere come "salt" (il
secondo prametro di crypt()) le prime due lettere della pwd.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> FAQ di it.comp.lang.perl: 
http://www.borders.it/perl/faq/
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 secondo prametro di crypt()) le prime due lettere della pwd.
Grazie della risposta e scusate ancora per l'OT. Ho provato come mi hai
suggerito ma senza risultati.. :-(
Dove posso provare a ottenere informazioni?
Grazie
Luca

 Dove posso provare a ottenere informazioni?
Come non detto, ho risolto il problema, grazie Michele e cercherò di non
esere più OT!!
Ciao a tutti
SK

Newsgroup: it.comp.lang.perl
Titolo: perl su web

Ho una mia home page e, dopo aver scritto un prg in perl, volevo vederlo
funzionare in rete!!!
Pare che digilander, supereva e inwnd, non supportano il perl (Che disdetta)
Dove posso trovare spazio web gratuito che supporti il perl?
Grazie a tutti
ciao

 ha scritto nel messaggio
news:PtAG8.2942$e5.6...@twister1.libero.it...

Newsgroup: it.comp.lang.perl
Titolo: sms

esistono programmi che permettono di inviare gratuitamente sms quando si e'
collegati ed esistono siti che oltre a permettere l' invio, danno la
possibilita' di scaricare uno script da mettere nel proprio sito per la
stessa funzione.
possibile che nessuno abbia finora pensato ad unire le 2 cose cioe' ad
ideare un qualcosa che, posto nel proprio sito, permetta di inviare sms
sfruttando i gateway che sfrutta chi ha gia' creato i programmi tipo
smsplitter o tanti altri? giusto per non essere obbligati a mettere
pubblicita' (non pagata!) nel proprio sito
perche' non lo faccio io? non saprei da dove cominciare!

 pubblicita' (non pagata!) nel proprio sito
Osservazione: fatico a capire cosa questo argomento abbia a che fare col 
linguaggio di programmazione perl, comunque...
C'hanno pensato e quelli che lo hanno fatto hanno ricevuto una diffida
dagli avvocati dei gateway da "sfruttare". E hanno ritirato i programmi.
Cheers,
alf

Domanda molto facile per chi se intende (io purtroppo sono solo all'inizio):
Da un script CGI dovrei richiamare un file .pl passandogli dei parametri e
una volta finita l'esecuzione, quest'ultimo dovrebbe ripassare dei valori di
ritorno al CGI principale.
Praticamente utilizzare un subroutine pero' separata in un altro file.
Grazie
Byebye
By
     - Denny -



...

file1.pl
---------
#!perl
require "./
file2.pl
";
print "Content-type:text/html\n\n";
&go(1); # e' in 
file2.pl
file2.pl
---------
sub go {
   my $num = shift;
   print $num;
}
1;
---
Mario Rizzuti

Newsgroup: it.comp.lang.perl
Titolo: Info sul certificato del client in SSL

Vorrei sapere se è possibile recuperare le informazioni riguardanti il
certificato del client in uno script perl quando ci si collega ad un
server in modalità sicura usando SSL con client authentication.
Grazie.



Con quale server? Che genere di script? CGI? mod-perl? ASP?
Ad esempio, con Apache+mod_ssl, c'è tutta una gamma di informazioni che
vengono passate gli script CGI in forma di variabili di ambiente (SSL_*).
Attivando una certa opzione, puoi anche rendere disponibile l'intero
contenuto dei certificati. Attivandone un'altra, puoi fare anche in modo
che il DN del certificato del client venga visto come username per la
Basic Authorization.
Tutto questo non riguarda molto il Perl, però.
Max
Newsgroup: it.comp.lang.perl
Titolo: Download di files in diversi formati

Salve a tutti.
Ho realizzato un programmino che permette di scegliere da una lista un
documento e di scaricarlo in un particolare formato. (sono disponibili piu'
formati per ogni documento).
Il problema e' che i files non sono direttamente visibili alla consultazione
tramite una propria URL per scelte progettuali. Essi possono essere
scaricati solo tramite la chiamata ad un opportuno CGI, che legge il file in
modalita' binaria e lo spedisce al richiedente.
In questa maniera pero', non sono riuscito a controllare il nome di default
con cui il file viene ricevuto dal richiedente, e conseguentemente neanche
la sua estensione. Questo significa che se il richiedente chiede di salvare
il documento in formato pdf, deve da solo scegliere un nome con estensione
pdf (altrimenti non riuscira' mai a leggerlo).
Ho anche provato ad impostare correttamente la variabile content-type, ma
oltre al potenziale problema della gestione di tipi di files sconosciuti
(aggiungendo il formato ".xst", probebilmente attualmente inesistente, a
quale MIME type corrisponde?) ottengo l'effetto indesiderato che il browser
tenta di aprire il file al suo interno (in accordo con le impostazioni
utente), mentre vorrei che fosse sempre scaricato come file e salvato.
Qualcuno sa darmi qualche suggerimento? Esiste qualche variabile dell'header
HTTP che puo' essermi utile?
Grazie anticipatamente
Maurizio
--
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)

 HTTP che puo' essermi utile?
Boh. Vedi post precedente (su icwc) mi piacerebbe saperlo anche a me.
-- 
# Giorgio Vecchiocattivi.
# Dip. Informatica, Universita` di Pisa. 
---
E` in corso la CFV per la moderazione di it.scienza.informatica.
Se siete interessati leggete l'articolo su it.news.annunci

 wrote:
| Il problema e' che i files non sono direttamente visibili alla consultazione
| tramite una propria URL per scelte progettuali. Essi possono essere
| scaricati solo tramite la chiamata ad un opportuno CGI, che legge il file in
| modalita' binaria e lo spedisce al richiedente.
io tenterei con 
cat file.etx | uuencode nomefile.ext 
in questo modo hai un file uuencodato che viene decodificato dal
browser (usando i MIME/types uuencoded)
Newsgroup: it.comp.lang.perl
Titolo: Data Missing del browser

Vorrei sapere se c'è un modo per evitare che le pagine html generate da
uno script cgi "scadano" con conseguente messaggio del browser:
Data Missing
This document resulted from a POST operation and has expired from the
cache. If you wish you can repost the
form data to recreate the document by pressing the reload button.
Inoltre vorrei sapere se c'è un limite al numero di file che possono
essere contenuti in una directory (s.o. UNIX).
Grazie.
Nicola

nico...@prof.it
 wrote:
 >Vorrei sapere se c'è un modo per evitare che le pagine html generate da
 >uno script cgi "scadano" con conseguente messaggio del browser:
Puoi usare l'header apposito per fare in modo che non rimangano nella
cache. Consulta l'RFC di HTTP per i dettagli.
 >Inoltre vorrei sapere se c'è un limite al numero di file che possono
 >essere contenuti in una directory (s.o. UNIX).
Non mi pare, ma di solito e` una pessima idea superare i ~200.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *
Newsgroup: it.comp.lang.perl
Titolo: Problema di formattazione

Ciao a Tutti Voi !!
Ho scritto questa routine per estrarre da una stringa il valore della somma
dei caratteri ASCII (una specie di controllo di errore);
$str = "Stringa da elaborare";
        $lun = length $str;
        $sum = 0;
        for ($i = 0; $i <= $lun; $i++)
         {
              $val = vec $str, $i , 8;
              $sum = $sum + $val;
         }
 $result = sprintf("%04.4s", $sum);
In $result dovrei avere il risultato su massimo 4 cifre con riempimento di
zeri da sinistra
(es.0254 se il risultato e' 254  ) con un troncamento a sinistra delle cifre
per i risultati che superano le 4 cifre.
ovvero se il risultato fosse 10543 dovrei avere 0543; invece mi ritrovo 1054
cioč mi toglie la cifra di destra.
Dove ho sbagliato ?
Grazie a Tutti e Buon Natale.
Maurizio.

Dove ho sbagliato ?
Nel pensare che l'allineamento di default sia da sinistra. Per avere un
allineamento da sinistra devi mettere un - nella stringa di formato:
    $result = sprintf("%-04.4s", $sum);
Comunque, se è solo per controllo di errore, puoi usare anche il modulo
String::CRC32 o uno dei moduli Digest::... (MD2, MD4, ecc.).
Ciao.

 Ciao.
Ok, grazie per la risposta; riguardo all'utilizzo del CRC32 ed altri, il
dispositivo (una specie di PLC)
mi richiede la somma ASCII su 4 cifre per il  check-control della stringa
inviata tramite socket.
Ciao.

check-control della stringa inviata tramite socket.
Avevo capito che ti servisse un hashing qualunque, e avessi realizzato
questo per semplicità.
Non conosco in dettaglio tutti gli algoritmi disponibili, può anche darsi
che qualcuno dei moduli faccia esattamente quello che ti serve. Comunque, se
hai già scritto la funzione, la questione è puramente accademica.
Ciao.

     $result = substr($sum, -4);
Un altro modo di arrivarci č naturalmente il modulo:
        $str = "Stringa da elaborare";
        $lun = length $str;
        $sum = 0;
        for ($i = 0; $i <= $lun; $i++)
         {
              $val = vec $str, $i , 8;
              $sum = ($sum + $val) % 10000;
         }
        $result = sprintf("%04s", $sum);
Dovrebbe essere conveniente per stringhe lunghe, invece di calcolare somme
astronomiche per poi troncarle. Funziona comunque, ovviamente, anche se
lasci il ciclo cosě com'č, e metti un'unica operazione modulo sul risultato.
Ciao.

 ha scritto nel messaggio
news:n74k0v4ermjd94f6q...@4ax.com...

In effetti sembra la migliore soluzione;
ho scritto questa sub:
sub somma_ascii
{        
        my $lun = length $_[0];
        my $sum = 0;
         my $val;
        for ($i = 0; $i <= $lun; $i++)
         {
             $val = vec $_[0], $i , 8;
             $sum = ($sum + $val) % 10000;
         }
 
     # $sum = '0000'. $sum;       Altro metodo per la formattazione
     # $result = substr($sum,-4);
 
     return (sprintf("%04s",$sum));
} 
che sembra funzioni bene !
Thank You e Buon Anno
Maurizio.
Newsgroup: it.comp.lang.perl
Titolo: I misteri del globbone

    Su un server NT il comando `dir`, che mi funziona in locale, mi da'
acess denied. E fin qui va bene. Al contrario, il globbone <*> che mi
funziona sul server non mi funziona in locale. Questa non la capisco:
qualcuno sa spiegarmela?
_dave_

assumendo che "funziona sul server" voglia dire quando la invochi come cgi
e "funziona in locale" voglia dire quando la invochi da shell,
se tu riportassi qualche errore, l' enigma non richiederebbe una sfera di cristallo
-- 
Posted from 
mail2.galactica.it
 [212.41.208.19] (may be forged) 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 se tu riportassi qualche errore, l' enigma non richiederebbe una sfera di
cristallo
    Eh eh, grazie ma lo stesso vale per me. Il discorso e' che non ci sono
errori. Cmq lo script lo invoco come cgi anche in locale. Uso il Sambar
Server. Tutto qui. Inoltre non e' che mi appello alle vostre doti
divinatorie, pensavo solo che il problema fosse noto e comune, se invece e'
una cosa che si verifica solo a me per motivi strani, mi scuso in anticipo
per avervi fatto perdere tempo.
_dave_

Newsgroup: it.comp.lang.perl
Titolo: Da dove vieni?

Devo creare uno script che vada solo su un sito!
So che posso inviare l'ip del sito e confrontarlo ma poi uno "guarda l'ip"
del mio sito e fa un bel copia incolla e cosě son fregato!?!
Avete qualche soluzione !?!
Al massimo potete spiegarmi come inviare l'ip del mio sito era !?!
Grazie in anticipo!

...


Newsgroup: it.comp.lang.perl
Titolo: tk GUI

Ciao a tutti. Sono riuscito faticosamente ad inserire una casella di
testo ed un bottone che desse l'invio in un semplice script. Ora però mi
servirebbe qualcosa per selezionare una directory e in giro non ho
trovato niente di utilizzabile.
Qualche suggerimento?



use Tk;
use Tk::FBox;
my $mw = new Tk::MainWindow;
...
$f = $mw->FBox( %args );  # <-- vedi docs
my $file = $f->Show;  
...
MainLoop; 
Bye
	- Enrico

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

Salve a tutti,
Provando un po di cgi gia fatti per il file-upload ho notato che hanno
tutti un limite massimo per le dimensioni del file da inviare di circa
70-80K. Dato che vorrei avere la possibilità di inviare file di dimensioni
maggiori vorrei sapere se esiste una soluzione al problema. Uso PWS e Perl
5.001 per windows 95/Nt. 
Ciao
         Edoardo
edoa...@LEVAMI.iname.com
 
Per rispondere togli LEVAMI.

 Per rispondere togli LEVAMI.
-- 
-------------------------------------------------------------------------
Hosting professionale a prezzi USA? 
http://www.servitelit.com/prezzi.htm
-------------------------------------------------------------------------

ti fa un upload di 50 mb di roba....
Anche io ho lo stesso identico problema. 
Come faccio per modificare l'upload limit ???????
Nello script che uso c'č un'opzione per limitarlo, ma non per 
aumentarlo..........

aumentarlo..........
Beh, immagino sia la stessa cosa. Porti il limite ad un valore
arbitrariamente alto e sei a posto.
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/
Newsgroup: it.comp.lang.perl
Titolo: Sostituire stringa in 100.000 file di testo

Esiste un modo o un programma semplice per sostituire un astringa in molti 
file di testo contenuti in una cartell aoppure dveo scrivere uno script perl 
per farlo.. se devo usara per mi sapete suggerire il codice piu' semplice? 

 per farlo.. se devo usara per mi sapete suggerire il codice piu' semplice? 
Alcuni editor di testo possono farlo. Alcuni anche con espressioni regolari.
Io ho in mente il mio, che è un prodotto commerciale, ma sono sicuro che 
è una funzionalità presente anche in diversi editor free.
Con uno script Perl hai, ovviamente, un maggior controllo su tutto (che 
cosa fare con i file modificati, per esempio; il mio editor tenterebbe 
di tenere aperti 100.000 buffer), ma per una semplice sostituzione un 
editor può essere una soluzione valida.
Ciao.

 wrote in message
news:hhUcj.207755$U01.1...@twister1.libero.it...


 wrote in message
news:hhUcj.207755$U01.1...@twister1.libero.it...


Newsgroup: it.comp.lang.perl
Titolo: domanda stupida!

scusate ma non mi ricordo proprio come si fa...
se io mando a un cgi questo...
ciao.cgi?9
come faccio a trovare 9 in $a??
si scrive cosě?
$a = $env;
grazie mille!
Francesco

 si scrive così?

Newsgroup: it.comp.lang.perl
Titolo: cancellare un direttorio

Salve,
dovrei cancellare un direttorio (non vuoto, per cui non posso usare
rmdir). 
Ho provato ad usare: system("rm -r  $direttorio") or die "comando rm
fallito: $!";
Il risultato e' stato che il direttorio viene cancellato, ma la
procedura si e' bloccata ed in error_log ho trovato: "comando rm
fallito: No such file or directory at
/usr/local/etc/httpd/cgi-bin/
programma.pl
 line 518".
Lavoro con sistemi UNIX e monto vari dischi in NFS, per cui in generale
puo' essere che il direttorio da cancellare sia su un disco montato. I
diritti dei direttori nei quali risiedono i direttori da cancellare sono
777.
Cosa posso fare?
Grazie
Paolo
--
Automatic posted from 
tlvsdy.vim.tlt.alcatel.it
 [151.98.8.244]
via Mailgate Server - 
http://www.mailgate.org

 wrote:
: dovrei cancellare un direttorio (non vuoto, per cui non posso usare
: rmdir). 
Ultimamente in comp.lang.perl.modules e` passato un annuncio di una
persona che ha sviluppato un paio di moduli per fare copie e
cancellazioni ricorsive. Non sono ancora sul CPAN:
www.vmunix.com/~gabor/perl/File-NCopy0.10.tar.gz
www.vmunix.com/~gabor/perl/File-Remove0.10.tar.gz
: Ho provato ad usare: system("rm -r  $direttorio") or die "comando rm
: fallito: $!";
: Il risultato e' stato che il direttorio viene cancellato, ma la
: procedura si e' bloccata ed in error_log ho trovato: "comando rm
: fallito: No such file or directory at
: /usr/local/etc/httpd/cgi-bin/
programma.pl
 line 518".
Piu` che un problema di programmazione mi sembra un problema
sistemistico.
Puoi comunque provare ad eseguire il programma in debug (se usi un
modulo tipo CGI.pm o CGI::Request), ma tieni conto che quando niene
eseguito dal server Web probabilmente girera` con i permessi dell'utente
www-data o nobody (dipende dalla tua installazione).
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E

 fallito: $!";
Attento! system() restituisce l'exit code del programma eseguito (anzi,
per la precisione resituisce l'exit code * 256 [v. man perlfunc]).
Per avere l'effetto desiderato dovresti aggiungere un 'not'.
MM
Newsgroup: it.comp.lang.perl
Titolo: Interfaccie utente

Volendo usare perl e mysql, quali moduli mi conviene utilizzare per avere
una interfaccia utente tipo quelle dei programmi Cobol? (magari anche
meglio: list box, check box, etc. + gestione eventi di perdita focus da un
campo: esiste o sto solo sognando?)
Grazie in anticipo
Massimiliano

 focus da un campo: esiste o sto solo sognando?)
  Hai tre possibilita`:
	1. Usare la versione PERL delle curses o di slang (CPAN);
	2. Usare il PERL-Tk, una specie di Tk del Tcl per PERL;
	3. Usare un web server.
  Nel primo caso l'interfaccia e` testuale, nel secondo e nel terzo e`
grafica. Ovviamente, nei secondi due casi devi aver bisogno di un
framework grafico (X, Windows o altro).
	Alla prossima,
		Marco

 wrote:
: Volendo usare perl e mysql, quali moduli mi conviene utilizzare per avere
: una interfaccia utente tipo quelle dei programmi Cobol? (magari anche
: meglio: list box, check box, etc. + gestione eventi di perdita focus da un
: campo: esiste o sto solo sognando?)
Prova il Curses-Devkit, ha menu, radiobuttons, scrollers, ecc.
Cerca Cdk con il modulo CPAN:
$ perl -MCPAN -e shell
cpan> m /Cdk/
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) mail (dot) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nandos

 campo: esiste o sto solo sognando?)
Cerca perlmenu nel CPAN
-- 
Roberto Lupi
IT consultant
Software Developer

Grazie, perlmenu mi sembra ottimo.
Ciao
Massimiliano
Roberto Lupi ha scritto nel messaggio ...

Newsgroup: it.comp.lang.perl
Titolo: HTML 2 TXT

Salve a tutti, sto cercando un moduletto che mi trasformi un filetto
HTML in semplice plain TXT.
Ho cercato su CPAN ed il più interessante mi è sembrato HTML::FormatText.
Il problema è che non lo trovo nella mia distribuzione active::perl...
Sapreste consigliarmi un modulo che fa questa conversione in maniera
professionale? Mi servirebbe per fare bella figura in azienda :-)
Preciso che il testo che dovrebbe essere "tradotto" è molto molto
semplice senza tag strani o immagini...
Grazie,
     nathanvi
-- 
Per risposte private: 
vitto....@SPAMMAREtiscali.it
sito: 
http://nathanvi.it
FAQ OpenOffice: 
http://openoffice.nathanvi.it
Inviato da 
www.mynewsgate.net

 Il problema è che non lo trovo nella mia distribuzione active::perl...
Ciao Vit!
Il modulo in questione è pure Perl, dunque non ha bisogno di una 
compilazione della parte XS. Perciò puoi installarlo anche a mano:
- lo scarichi
- decomprimi
- entri nella directory
- perl Makefile.PL
- nmake [1]
- nmake test
- nmake install
[1] nmake lo trovi gratuitamente sul sito Microsoft e devi metterlo nel 
path (occhio che quello che scarichi è un file autoestraente, eseguilo 
ed ottieni l'eseguibile che ti interessa)
http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe

 compilazione della parte XS. Perciò puoi installarlo anche a mano:
Dimenticavo:
http://www.perl.it/documenti/faq/iclp_view.html?pag=5&faq=2


Io ho provato a scaricarlo e mi fa scaricare NMAKE.
Sono io che non ci arrivo o non e' propriamente la stessa cosa?
Paolo

 Io ho provato a scaricarlo e mi fa scaricare NMAKE.
ho provato a scaricarlo COSA?
La faq su 
perl.it
 [1] dice di scaricare nmake [2], di eseguirlo (è un 
autoestraente) e di porre i file estratti nel path (ad es. c:\perl\bin)
Fatto questo, si va su 
search.cpan.org
, si cerca il modulo che 
interessa, si scarica il sorgente (tipicamente .tar.gz) lo si scomprime, 
si entra dentro la directory così creata e si danno i comandi:
perl 
makefile.pl
nmake
nmake test
nmake install
e se tutto va bene il modulo è installato.
[1] 
http://www.perl.it/documenti/faq/iclp_view.html?pag=5&faq=2
[2] 
http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
Newsgroup: it.comp.lang.perl
Titolo: SOS!!!

Salve,
avrei bisogno di sapere come si fa a spedire un'attachment usando il
sendmail di Linux da perl!
Grazie!
  Veronica

v.mont...@tdnet.it
 wrote:
 >avrei bisogno di sapere come si fa a spedire un'attachment usando il
 >sendmail di Linux da perl!
Ci sono diversi moduli per generare attachment MIME, l'MTA che c'e` sotto
non ti interessa. Per esempio prova MIME-Lite.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

 wrote:
: avrei bisogno di sapere come si fa a spedire un'attachment usando il
: sendmail di Linux da perl!
Prova ad usare qualche modulo. In particolare (dalla Module List):
MIME::
::Base64       Rdpf  Encode/decode Base 64 (RFC 1521) GAAS
::QuotedPrint  Rdpf  Encode/decode Quoted-Printable GAAS
::Decoder      adpO  OO interface for decoding MIME messages ERYQ
::Entity       adpO  An extracted and decoded MIME entity ERYQ
::Head         adpO  A parsed MIME header ERYQ
::IO           adpO  Simple I/O handles for filehandles/scalars ERYQ
::Latin1       adpO  Encoding 8-bit Latin-1 as 7-bit ASCII ERYQ
::Lite         RdpO  Single module for composing simple MIME msgs ERYQ
::Parser       adpO  Parses streams to create MIME entities ERYQ
::ParserBase   adpO  For building your own MIME parser ERYQ
::Words        cdpf  Encode/decode RFC1522-escaped header strings ERYQ
Probabilmente quello che ti serve e` il MIME::Lite.
Tutti i moduli si possono trovare sui siti del CPAN. Ad esempio puoi
cercare su quello italiano:
ftp://cis.utovrm.it/CPAN/modules/by-module/MIME
Volendo puoi dare anche un'occhiata al Net::SMTP, nella libnet
(interfaccia al protocollo SMTP, quello usato per lo scambio di mail) e
ai moduli Mail::*, ma direi che il MIME::Lite possa bastare.
-- 
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: [REQ] Catturare indirizzo e-mail ??

Ciao a tutti posto questa domanda:
io ho una form che spedisce in automatico la mail c'è il modo
di catturare l'indirizzo e-mail del mittente (senza che lui si costretto ad
inserirlo)
 in modo da sapere chi è che me la spedisce?
Grazie a chi mi aiuterà
Roberto

inserirlo)
No. Un tempo si poteva (se l'utente utilizzava Netscape Navigator e Netscape
Mail). Ora per fortuna si puo` navigare in Internet senza quel rischio. ;)
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
 *updated!*
Newsgroup: it.comp.lang.perl
Titolo: Perl e cgi

Ho da poco completato un prg in perl che gestisce l'inserimento di dati su
un file esterno .txt
Come faccio a farlo girare nella mia home page?  con che estensione devo
trasferirlo sul server?
in quale directory?
Ciao a tutti.

bossal wrote:

chiedi al tuo ISP. comunque di solito se lo butti nella cgi-bin con
estensione .cgi dovrebbe funzionare. 
sei su windowse o unix? se sei su win non problem. su unix/linux devi
puntare a perl e settare kle permission a 755. chiedi al tuo ISP.
ciao
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************
Newsgroup: it.comp.lang.perl
Titolo: Errore su Memoize

Sto cercando di installare MythTV, ma mi sono bloccato sull'installazione
di alcuni moduli Perl. Il problema è che ad un certo punto ricevo questo
errore:
Undefined subroutine &Memoize::memoize called at
/usr/lib/perl5/site_perl/5.8.3/XMLTV/DST.pm line 47.
Questa è la riga incriminata:
        Memoize::memoize($_) or die "cannot memoize $_: $!";
provando ad installare il modulo Memoize dalla console CPAN non ricevo
errori:
All tests successful.
Files=19, Tests=179, 54 wallclock secs (14.59 cusr +  0.15 csys = 14.74 CPU)
  /usr/bin/make test -- OK
Running make install
  Already done
ma se lancio r ottengo invece:
Memoize                       undef      1.01  M/MJ/MJD/Memoize-1.01.tar.gz
Il programma è un'applet java per la configurazione di XMLTV, e si blocca
con questo messaggio:
Subroutine XMLTV::Memoize::t redefined at /usr/lib/perl5/site_perl/5.8.3/XMLTV/Memoize.pm line 16.
Subroutine XMLTV::Memoize::d redefined at /usr/lib/perl5/site_perl/5.8.3/XMLTV/Memoize.pm line 17.
Subroutine check_argv redefined at /usr/lib/perl5/site_perl/5.8.3/XMLTV/Memoize.pm line 49.
Undefined subroutine &Memoize::memoize called at /usr/lib/perl5/site_perl/5.8.3/XMLTV/DST.pm line 47.
Compilation failed in require at /usr/local/bin/tv_grab_it line 91.
BEGIN failed--compilation aborted at /usr/local/bin/tv_grab_it line 91.
La versione di perl, come si vede dalle directory, è la 5.8.3.
Purtroppo non conosco perl, e non so come risolvere il problema...
Help Me!!
Raffaele
"Perl, quel linguaggio che ha una sintassi che sembra la passeggiata di un
gatto sulla tastiera..."

 errori:
Memoize è un modulo core nel perl 5.8.3 dunque è già presente di default 
  e non occorre installarlo.
Potrebbe essere invece un problema di XMLTV visto che dice:
Subroutine XMLTV::Memoize::t redefined at 
/usr/lib/perl5/site_perl/5.8.3/XMLTV/Memoize.pm line 16.
Prova a scrivere agli autori del pacchetto.

 /usr/lib/perl5/site_perl/5.8.3/XMLTV/Memoize.pm line 16.
Ok, ma il prolema lo dà:
Undefined subroutine &Memoize::memoize called at
/usr/lib/perl5/site_perl/5.8.3/XMLTV/DST.pm line 47.
E facendo il test del pacchetto XMLTV scaricato via cvs mi risponde:
t/test_dst.........Undefined subroutine &Memoize::memoize called at
/home/raffaele/downloads/tv/mythtv/xmltv/xmltv/blib/lib/XMLTV/DST.pm line
46.
e alla linea 46 c'è scritto:
        Memoize::memoize($_) or die "cannot memoize $_: $!";
Ovvero, quello che non trova, se ho capito bene, è il metodo memoize del
modulo Memoize, che se non ho capito male non è trai metodi ridefiniti in
XMLTV...
E comunque c'è sempre quel "undefined" nello status dei moduli...
Raffaele
Newsgroup: it.comp.lang.perl
Titolo: Script e timeout

Ho il seguente problema:
Devo lanciare uno script Perl sul server web che aggiorna una serie di
database contenuti su file .txt (uno per utente) e per la sua esecuzione
sono necessari anche più di 30 minuti.
Nessun output html deve essere restituito.
Vorrei sapere se lo script viene interrotto dal cgi-timeout limit del server
ed eventualmente se c'è un modo per evitare questo.
Grazie.
Nicola

 ed eventualmente se c'č un modo per evitare questo.
Ho una sensazione di deja-vu...
Ma questa domanda non e' gia' stata fatta la settimana scorsa?
E la risposta non era stata che far eseguire lo script da 'cron' sarebbe
andato bene?
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 andato bene?
In effetti ho riproposto la domanda perché non ero sicuro di aver capito
bene.
A questo punto credo di aver capito che, facendo lanciare lo script da un
crontab process, il timeout viene ignorato e lo script completa la sua
esecuzione.
Grazie.
Nicola

 esecuzione.
tramite il crontab tu esegui un programma che non ha nulla a che fare con il
web o con i vari processi che controllano l'http. Non esegui un cgi, ma un
programma per a se stante.
Non hai assolutamente problemi di timeout.
    Best regards,
        Kazuma
--
Alex Garbagnati, 
agarb...@removethis.decisive.com
Sr. Lead Engineer, Product Development
Decisive Technology Corporation
Mountain View, CA  94043

Newsgroup: it.comp.lang.perl
Titolo: Cosa uso???

Ok, stò cominciando a capirci qualcosa sul perl: ma con cosa lo compilo? Con
cosa lo testo?? Esiste qualcosa tipo il Java JDK che sia gratuito e
scaricabile dalla rete?
Se si datemi l'indirizzo ve ne prego!!!!
Jdam

 Jdam
Compilatori:
 Guarda caso, ho scritto subito dopo di te un messaggio che ti puo' essere
pero' utile: riguarda l'esistenza di un compilatore Perl. In questo caso il
discorso fatto sopra non e' valido, tu scrivi il codice in perl, lo compili
o cross-compili (come per il C o C++) e il compilatore si occupa di scrivere
il corrispondente eseguibile binario, utile anche in una macchina priva di
interprete.
Comunque questo compilatore dovrebbe esistere.. ho chiesto informazioni
anche io (vedi sopra).
Ciao, Fabio
Newsgroup: it.comp.lang.perl
Titolo: Perl e i segnali di interruzione

Qualcuno sa dirmi che segnale viene inviato ad un programma perl in
esecuzione ( uno script richiamato dal browser ) quando si clicca sul
pulsante termina o stop del browser?
Forse un SIG_INT?
Se questo segnale lo catturo e lo disabilito: es: $SIG{INT}='IGNORE';
faccio in modo che lo script continui la sua esecuzione anche dopo che si č
lasciata la finestra del browser dal quale lo si č richiamato?
Per favore, mi rispondete anche al mio indirizzo eMail.: 
ed...@libero.it
Grazie,
Tommaso.
--
----------------
Tommaso Trani
    Edinf s.a.s. - Sviluppo Software Personalizzato
        eMail: 
ed...@softwareplanet.net
            Web: 
www.softwareplanet.net
Sul Web: corsi di programmazione di Visual C++, JavaScript, Perl, HTML,
Linux...
----------------

 clicca sul pulsante termina o stop del browser?
  Se per "script richiamato dal browser" intendi uno script CGI,
nessuno. Quando premi il pulsante "termina" imponi solo al browser di
chiudere il/i socket aperti con il/i server HTTP. 
	Alla prossima,
		Marco

 lasciata la finestra del browser dal quale lo si č richiamato?
Dovrebbe funzionare.
$SIG{PIPE} = sub { print STDERR "$0[$$] SIGPIPE!\n": }
MaX

 $SIG{PIPE} = sub { print STDERR "$0[$$] SIGPIPE!\n": }
IMHO Dovrebbe funzionare solo se richiami lo script da riga di comando.
Se visualizzi l'output dello script in un browser, il tasto termina
*non blocca l'esecuzione dello script*, ma *solo* la visualizzazione dei
risultati ottenuti!
Va ricordato che gli script perl ( e cgi in generale) vengono attivati dal
browser,
*eseguiti SUL e DAL server*, e il loro risultato riportato indietro sul
browser...
Ciao
Mauron

 browser...
Spiego cosa fa quel pezzetto di codice:
se eseguito da linea di comando, in caso di SIGPIPE scrive sullo STDERR
il nome del programma, il pid e "SIGPIPE!", e continua nell'esecuzione.
se eseguito come cgi, fa lo stesso, solo che lo STDERR e' ridiretto
sull'error log del webserver (ossia continua nell'esecuzione).
Capisco che l'esempio non sia stato illuminante, ma al posto del
print e' possibile mettere qualunque cosa, anche un exit: il
fatto importante e' che il programma "se ne accorge".
Ciao
-- 
MaX Flebus

Newsgroup: it.comp.lang.perl
Titolo: sapete i forum....?!

Sono quasi un neofita sul perl(so appena creare un
webstory) e volevo chiedervi :
nei forum sapete no che i messaggi vengono postati in file
creati dal cgi.Come ÿffffe8 possibile questo,come faccio a far
creare dallo script dei file che si creino quando qualcuno
posta un nuovo messaggio?
Non so se sono stato chiaro.
Grazie
* Sent from AltaVista 
http://www.altavista.com
 Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping.  Smart is Beautiful

ma tu non sei per caso il moderatore del forum cgi sul sito 
cgipoint.it
?
"lancinhouse" <jpbenoit...@libero.it.invalid> ha scritto nel messaggio
news:2f0a9504...@usw-ex0108-062.remarq.com...


si sono io perchč??
Non posso essere ignorante come altri scusa???
Non sono mica Edoardo Valsesia.

Newsgroup: it.comp.lang.perl
Titolo: Formattare espressione regolare

Salve,
sto cercando suggerimenti su come formattare (per vederla meglio)
una lunga espessione regolare.
Ho scritto questo codice:
$stringa =~ s/\[Abstract spanish\]|\[Español\]|\[ESPAÑOL\]
                    |\[Español abstract\]|\[Español Resumen\]|\[Resumen
\]
                    |\[Resumen castellano\]|\[Resumen en español\]|\
[Resumen español\]
                    |\[Spanhis abstract\]|\[Spanhish abstract\]|\
[Spanihs abstract\]
                    |\[Spanis abstract\]|\[Spanisch abstract\]|\
[Spanisch Abstract\]
                    |\[Spanisgh abstract\]|\[Spanish abstact\]|\
[spanish abstrac\]
                    |\[Spanish abstrac\]|\[Spanish abstracs\]|\
[spanish abstract\]
                    |\[Spanish abstract\]|\[Spanish abstract\]|\
[Spanish Abstract\]
                    |\[SPanish abstract\]|\[SPANISH ABSTRACT\]|\
[Spanish abstracts\]
                    |\[Spanish abstratc\]|\[Spanish asbtract\]|\
[Spnaishabstract\]
/<otherabstract><es>/g;
Come potete notare sono andato molte volte a capo e ho indentato il
tutto.
Durante il debug ho pero trovato che se mi dimentico uno spazio di
troppo vicino a
una delle alternative, ad esempio facendo
|\[Spanisgh abstract\] |\[Spanish abstact\]| \[spanish abstrac\]
il perl intepreta quello spazio prima o dopo il | come un carattere
significativo e dunque
l'espressione non funziona (per quell'altrenativa li').
Devo preoccuparmi per tutte le alterantive ad inzio o a fine riga ?
Oppure c'e' ul qualificatore per dire che la regexp e' su piu' linee ?
Oppure va bene cosi e non ci sono problemi (magari usando solo tab e
non spazi ) ?
Ciao e grazie

 non spazi ) ?
C'e' lo switch /x. perlre lo spiega.
Ciao

Newsgroup: it.comp.lang.perl
Titolo: Operazioni su finestra windows(Restore, minimize...)

Salve a tutti, e scusate già da ora se la domanda risulterà banale...
Qual è il modo più consigliabile per effettuare operazioni come
Restore, Minimize, Maximize su finestra di Windows?
Sto esercitandomi con uno script che lancia un programma, e vorrei che
lo stesso sia sempre lanciato in automatico con la visualizzazione a
finestra massimizzata...
Pensavo ad una combinazione di tasti, ma non mi sembra che esista...
Sperando in un vostro aiuto vi saluto!

 wrote:

incolla questa riga nell'address bar del tuo browser:
javascript:self.resizeTo(790,600);self.moveTo(0,0);location.href="http://
www.google.com
";
a me funziona su IE per Mac
ciao
-- 
Alla batteria dai retta, ballA!

 writes:

Stava parlando di finestre Windows, non di pagine web...
Per manipolare le finestre sotto Windows credo (non uso Windows) che
il sistema piu` semplice (se non l'unico) sia usare Win32::GUI, ma qui
mi fermo per mancanza di esperienza nell'ambiente.
-- 
  dakkar
  sono su PerlMonks.org, 
use.perl.org
, PAUSE/CPAN
Newsgroup: it.comp.lang.perl
Titolo: Ordinamento di nomi files in base alla versione

Sto cercando di scrivere (in Perl) uno script per individuare, dato un
elenco di pacchetti debian, il cui formato č del tipo
  nome-del-pacchetto_0.1.3-3_i386.deb
i pacchetti per i quali esistono files di versioni successive,
individuando i files corrispondenti a versioni obsolete.
Per fare questo, devo poter ordinare delle sequenze di numeri separati
da ".", per cui ad es. 0.2 < 0.2.3 < 0.2.11 cosě come 
0.2.3-1 < 0.2.3-2
Non basta come č ovvio il semplice ordinamento alfanumerico, dal momento
che 0.2.3 č versione precedente a 0.2.11
Purtroppo, la soluzione del problema mi risulta tutt'altro che banale.
Mi chiedo inoltre se esista una funzione predefinita in qualche modulo
Perl che faccia al caso mio...
Grazie
   Massimo

0.2.3-1 < 0.2.3-2
Ti servono le v-string, o "vector string".
Traduco a braccio da Programming Perl, terza edizione, pg. 67:
Unliteral che comincia con una v ed e' seguito da uno o piu' interi e'
considerata come una stringa composta dai caratteri con i valori
ordinali specificati.
Ad esempio queto programmino stampa "pippo":
#!/usr/bin/perl -w
if (v4.5 lt v4.11) {
        print "pippo\n";
}
Attenzione: queste vstring non possono essere stampate direttamente,
ma devi poi usare il modificatore 'v' nelle stringhe di formato di
printf.


Grazie per il suggerimento.
Perň ho ancora un problema: mentre il tuo programmino mi stampa
effettivamente "pippo", se lancio il seguente script
 #!/usr/bin/perl -w
 if ($ARGV[0] lt $ARGV[1]) {print "pippo\n"}
dando come argomenti "v4.5" e "v4.11", mi considera tali argomenti come
semplici stringhe. Come faccio a dirgli di considerarle invece delle
vstring?

 vstring?
Quel comportamento è determinato dalla presenza un certo tipo di constante
"letterale". Quelle espressioni devono pertanto comparire come parte del
codice, non come valore di una stringa.
Fortunatamente il linguaggio consente tramite eval() di interpretare e
valutare espressioni Perl costruite dinamicamente:
 
 my $v1 = $ARGV[0];
 my $v2 = $ARGV[1];
 my $code = " ( $v1 lt $v2 ) ";
 if( eval $code )
 {
        print $code,"\n";
 }
 elsif( $@) # syntax error?
 {
  print $@,"\n";
 }
 
Max

Newsgroup: it.comp.lang.perl
Titolo: Variabili intere

C'è differenza nel dichiarare $a=1_000 o $a=1000  ??
Grazie mille.
ciao

 C'č differenza nel dichiarare $a=1_000 o $a=1000  ??
Nessuna.
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: operatore s

Salve a tutti.
mi è capitato di trattare un testo le cui line superavano 170 caratteri, anzi colonne.
ora per separare le line dicimao in + parti tutte da 80 caratteri, quale soluzione migliore
si potrebbe utilizzare!?
Fabrizio

ora per separare le line dicimao in + parti tutte da 80 caratteri, quale soluzione migliore
Il modulo Text::Wrap fa al caso tuo.
	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!
Newsgroup: it.comp.lang.perl
Titolo: posizione del cursore sullo schermo

Salve a tutti
Vorrei sapere se in Perl esiste qualche funzione che restituisce  la
posizione del cursore sullo schermo
e se e' possibile anche influenzare tale posizione ad esempio con un input
da tastiera che sposti il cursore.
ciao

bossal wrote:

   Curses su tutti i sistemi. Su MS Windows, inoltre, Win32::Console.pm.
-- 
Alla prossima,
Marco

Newsgroup: it.comp.lang.perl
Titolo: Help - Cerco guida

Salve a tutti, volevo sapere se qualcuno poteva gentilmente indicarmi una
guida o manuale scaricabile con cui è possibile imparare il Perl pertendo
(quasi) da zero..
Grazie mille a tutti!

 (quasi) da zero..
Hai già letto tutto il materiale che ti ho indicato in risposta al tuo 
post su it.comp.www.cgi ? (+ quello di pigmalion)
http://groups.google.com/groups?dq=&hl=it&lr=&ie=UTF-8&selm=p7z2a.111678%24ZE.3106220%40twister2.libero.it
Oppure non ti sono piaciuti?
In alternativa, se conosci l'inglese, c'è l'ottimo libro "Beginning 
Perl" di Simon Cozens, di cui sono scaricabili i capitoli in formato pdf 
qui:
http://learn.perl.org/library/beginning_perl/


wrote:

http://www.pigmalion.info/links/index.cgi?file=comp_lang_perl
http://www.pigmalion.info/links/index.cgi?file=comp_lang_perl_guide
http://www.pigmalion.info/links/index.cgi?file=comp_lang_perl_script

grazie mille a tutti!
Scusa Andrea, non avevo visto le risposte nell'altro ng..
Grazie ancora..

Newsgroup: it.comp.lang.perl
Titolo: image::magick

Scusate ancora...
sto cercando info sul modulo image::magick,
ho già cercato su 
search.cpan.org
 ma il link programmato non è quello
corretto...
qualcuno sa dirmi dove posso trovare ulteriori info?

 wrote in message
q3B17.5636$eB4.1...@news.infostrada.it...

Newsgroup: it.comp.lang.perl
Titolo: HASH

Mi serve una mano con i files .dbm spiego brevemente il concetto:
DB/USER/
Counter.txt
user_nick.dbm #
user_pass.dbm #
user_mail.dbm #
user_enroll_date.dbm # Data di registrazione (time)
user_www.dbm
user_city.dbm # Provenienza
user_num_posts.dbm # Numero di posts
user_logged.dbm # E' loggato? (0/1);
user_firma.dbm # Firma o breve testo...
Quando un utente si iscrive avanza il valore di Counter.txt di 1 ed il 
valore
avanzato verrà usato come chiave degli hash dei files dbm...relativi al 
tipo di dato:
$counter ++;
# APRI user_nick.dbm
# CHIAVE($counter) => $user_nick;
# APRI user_pass.dbm
# CHIAVE($counter) => crypt($user_pass,$salt);
...etc...
Per Risalire ai dati di un Nick_name dovrei aprire il file user_nick.dbm 
e ottenere la chiave sapendo il valore(univoco) ovvero il 
user_nick...come si fa?
...cosi' poi potrò fare:
# APRI user_mail.dbm
# $user_mail = $user_mail{$user_id};
..etc...
E vorrei anche sapere come si fa a controllare se al momento della 
registrazione
una dato Nick name esista già nel file user_nick.dbm...(senza magari 
dover scannare tutto il file con while...)
Grazie a tutti!!!

user_nick...come si fa?
Evidentemente il modo più semplice è che le chiavi in user_nick.dbm sino i
Nick_name, e i valori quelli che adesso usi come chiave. Anche il controllo
di unicità e preesistenza sarebbe in questo modo immediato.
In realtà, per come la vedo io, potresti eliminare l'intero database
user_nick.dbm, e usare come chiave dappertutto il Nick_name, che tanto hai
già stabilito che debba essere unico. Questa comunque è una scelta di cui
valuterai tu l'opportunità; quello che è certo è che gli hash sono fatti
per ottenere un valore sapendo la chiave, non viceversa, e che l'unicità è
garantita per la chiave, non per il valore. L'unico modo per ricercare un
valore è scorrere tutto il database, e anche se si possono immaginare
strategie più o meno furbe (a condizione che interessi trovare un qualunque
valore corrispondente, non tutti), in generale questa è una cosa da
evitare.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: operatore "||"

Ho realizzato uno script che a un certo punto deve eliminarmi dei file e
delle directory. Vorrei che, qualora non riuscisse a fare ciò, mi
avvertisse con un messaggio a video. Dunque ho scritto:
...
`rm "$nomefile"` || print "Impossibile eliminare $nomefile\n";
...
`rmdir "$nomedir"` || print "La directory $nomedir non è vuota\n";
...
Tuttavia, benchè vengano in realtà eliminati $nomefile e $nomedir, i 2
messaggi vengono stampati. 
E' un problema di exit codes (le pagine di manuale relative a rm e rmdir
non danno informazioni a riguardo), oppure devo cambiare del tutto
strategia per ottenere quello che voglio?
Grazie1000

 strategia per ottenere quello che voglio?
In entrambi i casi, la risposta e`: si.
Primo: non usare i backticks, se non quando assolutamente necessario.
Secondo: usa unlink e non `rm nomefile`.
La seconda opzione, ti permettera` di usare il testo con l'or.
Bye,
 Emmanuele.
-- 
Emmanuele Bassi         |             [ 
http://digilander.iol.it/ebassi/
 ]
emmanue...@iol.it
  |
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

volendo coi backticks si può usare $?
`rm $file`;
die "errore" if $?;
ma il punto è che bisognerebbe usarli solo
se il comando shell ha un output che si vuole catturare
altrimenti è meglio system, o nel tuo caso, l' equivalente perl (unlink)
-- 
Posted from 
mail2.galactica.it
 [212.41.208.19] (may be forged) 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.perl
Titolo: Lettura in tail

Ho un demone(snmptrapd) che mi logga ogni tanto una stringa in un file.
Vorrei fare un demone perl che cicli con while(1) e ogni volta che nel file 
di log venga aggiunta una stringa nuova,la prenda e la processa.Come faccio 
a fare una lettura in tail di una nuova stringa dal file quando presente?
Volendo potrei ridirigere l'uscita del demone snmptrapd su ad esempio un 
array per poterlo avere subito a disposizione all'interno dello script perl 
e gestire poi l'array come una coda fifo?
Grazie
        Renato Eschini
www.cli.di.unipi.it/~eschini

Renato Eschini wrote:

Qualcosa tipo:
open (LOG,'tail -f logfile.log|');
while (<LOG) {
...
}
dobrebbe funzionare.
Oppure snmptrapd non si puo' configurare per "loggare" in una pipe ad 
un programma (o al limite in una FIFO)? oppure via syslog pipe-ando ad 
un programma via syslog?
-- 
Saluti,
Giancarlo

 Giancarlo
Domanda... potrebbe funzionare anche un
system('tail -f logfile');
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************

 system('tail -f logfile');
E poi l'output da dove lo recuperi?
Per altro in questo modo direi che lo script per si ferma ad aspettare 
la fine del tail, che non finisce ;-)
-- 
Saluti,
Giancarlo