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

Salve,
cercando un modulo per leggere caratteri da tastiera in maniera "non
bloccante", mi sono imbattuto nel modulo in oggetto. Ma non riesco nemmeno
a far funzionare lo script di esempio compreso nella documentazione:
use Term::ReadKey;
ReadMode 4; # Turn off controls keys
while (not defined ($key = ReadKey(-1))) {
  # No key yet
}
print "Get key $key\n";
ReadMode 0; # Reset tty mode before exiting
Sembra ignorare completamente quello che digito; quando poi killo il
processo, i caratteri riappaiono nel prompt. La versione di perl che so
usando è la 5.8.0 compresa su Slackware.. qualcun altro ha modo di
riscontrare lo stesso problema? Ho anche provato a mettere "$|++;" (per
quel che possa servire :D) ma non ha funzionato.
TIA
-- 
# Roberto Natella "Domine"           
http://www.autistici.org/domine/index.php
@a=qw/i p s hax t xlpx u e t o q hx e u l ae f o rrr a k t cn j /;unshift@a,[@
a];chop($b=$b=~/^.{0,$_}/&&$&.(chop$b).$')for 0..length ($b=join$b,a..x);$b=~/
$&/x,$c=$-[0]||$c||length$b,$_.=chop$a[$c],/.$/while$#a>=length;s/$&/ /g,print

quel che possa servire :D) ma non ha funzionato.
Infatti quello è per la bufferizzazione dell'output (e, ad ogni buon conto,
che cosa c'è di male a scrivere "$| = 1;"?), mentre il tuo problema è al
limite la bufferizzazione dell'input, che comunque dovrebbe essere gestita
da Term::ReadKey stesso, che però evidentemente non ci riesce (forse per
una qualche idiosincrasia di Slackware).
Prova a dare un'occhiata a getc in perlfunc: è descritto un trucchetto per
la lettura immediata di un carattere.
Ciao.

 Ciao.
Molto curioso, ne farò tesoro :) Purtroppo però non è quello che mi serve,
visto che getc() mi blocca il "flusso" dello script (mentre mi servirebbe
qualcosa di non bloccante per scrivere una specie di giochino per
terminale).
Cmq grazie mille :)


terminale).
Può darsi però che con un meccanismo simile, modificando qualche attributo
del terminale, si riesca anche ad ottenere questo.
Hai dato un'occhiata anche a Term::InKey (ma mi sa che sia bloccante anche
quello)?
Ciao.

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

C'è qualche libreria che mi permetta di controllare se la sintassi di un 
URL sia giusta o devo fare un pattern match seguendo la BNF?
Saluti Seva

 
Ho risolto con Regexp::Common
:)
Newsgroup: it.comp.lang.perl
Titolo: FIle Upload?

Ciao a tutti,
nessuno sa dirmi dove posso trovare un tutorial oppure uno script
funzioannte per fare l'upload di un file.
Grazie come sempre! Sopratutto ai più esperti che non mancano mai di
rispondere!
Ciao.
--
Maurizio
midiit...@geocities.com
- Musica e Computer.....e anche belle donne
(890 Midi Italiani - 1612 Midi Internazionali - Oltre 4000 Testi)
http://www.musicaecomputer.com
http://go.to/musicaecomputer
E' disponibile MC Midi Navigator 0.9b
E' disponibile Buongiorno 1.00
E' disponibile MC Leggi di Murphy 1.01

Ciao.
Se intendi upload ia browser ti conviene chiedere al gruppo
it.comp.cgi poichè molti server hanno dei metodi proprietari.
Se invece vuoi uploadare via ftp prova a guardare net::ftp
Ciao
Andrea Busia
No Spam, Grazie.

 Se invece vuoi uploadare via ftp prova a guardare net::ftp
Si intendevo da browser!
GRazie per l'aiuto!

Newsgroup: it.comp.lang.perl
Titolo: MS Access

Salve a tutti,
	con il nuovo lavoro mi sono trovato a lavorare con un database
di Access. Vorrei quindi accedere a tali dati tramite perl. In
particolare ad una o due tabelle...
Ho cercato su CPAN se esiste un modulo per tale accesso ma non mi è
sembrato. Ho visto che esiste per Excel ma non per access...
Sapete come si possa fare?
Devo passare da  DBD::ODBC?
E in tal caso cosa dovrei mettere al posto di questa stringa?
$dbh = DBI->connect('dbi:ODBC:DSN', 'user', 'password')
Quale sarebbe il DSN?
Grazie per qualsiasi info.
Questa cosa è per me molto importante perchè riuscirei ad usare perl nel
nuovo posto di lavoro :-)
-- 
nathanvi
ICQ --> 20318568
mail --> vitto.z A_T 
tiscali.it

$dbh = DBI->connect('dbi:ODBC:DSN', 'user', 'password')
Anche questa è una possibilità, può venir comoda soprattutto se accedi
a dati in rete da un sistema non Windows. I dettagli dipendono da come
è configurato ODBC sul server.
Ciao.

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

Salve a tutti,
sono un novellino e vorrei sapere come chiamare le quesry di ms access
da uno script perl. cioè vorrei dare la possibilità ai miei visitatori
di search un database access. qualcuno saprebbe dirmi come fare?
se la domanda è già stata fatta qualcuno mi potrebbe inoltrare il
thread?
grazie
paolo

In data Fri, 15 Sep 2000 12:44:33 GMT, Paolo scrive:

   Prova a cercare un modulo DBI::Access o qualcosa  del  genere,  penso 
esista.
   DBI e' il modulo che connette i database  a  perl,  con  quello  puoi 
fare di tutto  usando  normale  SQL.  Io  lo  uso  in  combinazione  con 
InterBase e lo trovo molto funzionale.
Ciao.
***Ivan***
Newsgroup: it.comp.lang.perl
Titolo: interrogare script da un server all'altro

Salve, avrei bisogno di sapere se è possibile creare uno script CGI che
manda un parametro(
p.es
. un nome) ad altri script su altre macchine
server e ne riceve la risposta per elaborarla a sua volta!
Se è possibile come credo, quali sono le linee di codice da includere in
questo file? da tenere presente che gli script sulle altre macchine, non
posso aprirli e modificarli, sono "blackbox" per me!
grazie per l'attenzione
ciao-- 
               _____                      __________
              /  _  \___  _______    ____ \____    /
             /  /_\  \  \/ /\__  \  /    \  /     / 
            /    |    \   /  / __ \|   |  \/     /_ 
            \____|__  /\_/  (____  /___|  /_______ \
                    \/           \/     \/        \/
		+-+-+-+-+-+-+  +-+-+-+-+-+-+-+-+
		|P|A|G|I|N|E|  |U|T|I|L|i|n|u|X|
		+-+-+-+-+-+-+  +-+-+-+-+-+-+-+-+
 
http://start.at/pagineutilinux
	            mailto:
Av...@bigfoot.com
		         icq #:22911298

...


 Possibile e' possibile, magari utilizzando LWP.
					     ^^^
cos'č???
rigrazie e ciao-- 


					     ^^^
E` un modulo (lo trovi in giro come libwww-perl) che ti permette
di creare request HTTP, FTP, NNTP, ...
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

 cos'è???
E' uno dei moduli perl che ti permettono di "giocherellare" con i vari
aspetti del web. Fa parte del pacchetto libwww-perl che puoi trovare su
CPAN:
 
http://www.perl.com/CPAN/modules/by-module/LWP/
	Hope this helps.
	Best regards,


Newsgroup: it.comp.lang.perl
Titolo: funzioni telnet ed ftp

Vorrei fare degli script per collegamenti telnet ed ftp.
Quali moduli utilizzare (uso Mandrake 9.0) e come utilizzarli.
Dove trovo degli esempi ??
Grazie


use Net::Telnet;
use Net::FTP;
http://www.cpan.org/modules/by-module/Net/libnet-1.12.tar.gz
http://www.cpan.org/modules/by-module/Net/Net-Telnet-3.03.tar.gz
anche se dovresti già averli nel sistema.
Per gli esempi:
perldoc Net::Telnet
perldoc Net::FTP
   - Enrico
--------------------------------
Inviato via 
http://usenet.libero.it
Newsgroup: it.comp.lang.perl
Titolo: usare send mail

vorrei sapere come sfruttare il prog sendmail installato su un web server in
modo da porte madanre e-mail direttamente da form.
che comandi per ci sono ..
vorrei sapere se ci sono testi per questo argomento...

\n";
print MAIL "Subject: Prova\n\n";
print MAIL "blash blash dsfsd";
close (MAIL);
Alternativamente puoi utilizzare il pratico modulo Mail::Mailer.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/

 Alternativamente puoi utilizzare il pratico modulo Mail::Mailer
Ciao Michele!
Ci sono vantaggi significativi utilizzando Mail::Mailer invece del sendmail?
bye!


Mail::Mailer permette di scegliere il programma da usare per il trasporto:
puoi usare mail, oppure usare sendmail, oppure usare direttamente una
connessione SMTP. In pratica ti permette di usare la medesima interfaccia a
prescindere dal mezzo che hai effettivamente a disposizione per spedire i
messaggi.
Naturalmente richiede qualche modulo aggiuntivo, tipo Net::SMTP, per poter
sfruttare tutte le possibilita'.
La pagina di manuale non e' molto informativa, ma l'esempio che c'e' in
perlfaq9 mi sembrerebbe sufficiente per averne un idea.
Maurizio
-- 
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: Sendmail con Hosting NT - Cambio permessi file

Salve a tutti,
sono un newbie di Perl.
Premetto ho l'hosting in NT .
In uno script form to email, ho questo problema:
Lo script apparentemente funziona, ma alla fine non ricevo la mail!!!!!!
1) lo script fa riferimento al sendmail, ma NT utilizza il sendmail per
inviare la posta o utilizza qualcos'altro???
2) Come faccio a cambiare i permessi di un file, se provo con Chmod, mi dice
"Command not understood" ed è giusto perchè funziona solo su Unix, ma allora
come faccio??
Se il mio script non funziona vuol dipendere da questo??
Su CuteFTP vedo che i permessi per il file.cgi sono -rw, ovvero lettura e
scrittura ma manca chiaramente l'esecuzione!!!!
Chi mi aiuta??
Grazie
Michele Giudilli

per quel che riguarda i permessi con CuteFTP free non li puoi impostare,
perchè dovresti comprare i plug-in che te lo permettono. prova ad usare
AceFTP o WS_FTP: sono semplici e ti permetton0o l'utilizzo di tutte le
opzioni.
Per il sendmail non so', forse il manteinair ti deve dare il percorso del
file sendmail, visto che praticamente è un eseguibile?
--
Posted from 
IDENT:ro...@planetsec.com
 [194.20.232.117] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 opzioni.
anche con Internet Explorer puoi. Però ti serve il pacchetto "Browsing
Enhancements" installato, mi pare l'abbiano aggiunto nella versione 5. Ah, e
ovviamente attivare il "Graphical FTP" nella scheda Avanzate delle Opzioni
Internet, Pannello di Controllo (si vede che non c'ho una mazza da fare tutto il
giorno?)
Newsgroup: it.comp.lang.perl
Titolo: come calcolare ma maschera di "192.168.134.197/30" ?

Salve,
Vorrei calcolare la maschera, il primo e l'ultimo indirizzo di una network
di cui so un indirizzo e la barra data in questa forma:
'
192.168.134.197/30
'
Ho provato con la libreria Net::IP
ma il seguente comando mi da errore
my $ip = new Net::IP ('
192.168.134.197/30
') or die (Net::IP::Error());
Questo perche' lui vuole direttamente la maschera/30 e non ADDRESS/30
Come posso fare?
Grazie in anticipo,
Mario.

 ha scritto nel messaggio
news:pan.2006.06.21....@libero.it...




Sono ai primissimi passi con il Perl, quindi non saprei aiutarti sul
codice, in merito all' algoritmo però posso provarci:
una maschera di rete "/30" significa che i primi 30 bit dell' indirizzo
(a partire da sinistra) indicano la rete ed i restanti 2 (gli Ipv4 sono
su 32 bit) sono usabili per rappresentare gli host [1], puoi, quindi
generare una variabile binaria di 30 volte 1 (magari usando l'
operatore di ripetizione "x" su stringa) e convertita in decimale (ma
nessuno ti impedisce di operare in binario, per il Perl fa lo stesso)
ed andare a fare una AND bit a bit con l' IP 192.168.134.197, questo ti
fornirà l' idirizzo (o meglio l' identificativo) della rete:
192.168.134.196, il più è fatto! Ora, con 2 bit hai 4 combinazioni
possibili:
x.x.x.196 -> 11000100 subnet ID
x.x.x.197 -> 11000101 host (precedente +1)
x.x.x.198 -> 11000110 host (precedente +1)
x.x.x.199 -> 11000111 broadcast address (precedente +1)
puoi ottenerli, a partire dal subnet ID, con un ciclo for con
[((32-30)^2)-1] iterazioni
[1] 2^2=4 valori, di cui 2 sono sempre riservati
Spero di non aver scritto cavolate...ciao :)

 Spero di non aver scritto cavolate...ciao :)
Direi proprio che non hai affatto detto cavolate :-)

 
Ti ringrazio :)
Aggiungo che:
essendo la maschera di rete > 24 si può lavorare anche solo sull' ultimo
valore del quartetto dell' ip - per quanto una AND non costi molto
computazionalmente, la medesima operazione su un numero minore di bit
dovrebbe pesare ancor meno - e, anche se non immediato, ragionando in
esadecimale (associazione 4 ad uno col binario), essendo la maschera 
 > 28, si può addirittura lavorare solo sull' ultimo valore,
risparmiando ancora un po'
Saluti
Newsgroup: it.comp.lang.perl
Titolo: Perche' PHP mi va, ma il PERL no ???

Ehi raga ho un problema
Sto installando in apache per windows php e perl.
In http.conf ho aggiunto le seguenti linee:
    ScriptAlias /php/ "D:/Languages/Php/"
    ScriptAlias /perl/ "D:/Languages/Perl/bin/"
    AddType application/x-httpd-php .php
    AddType application/x-perl .pl
    Action application/x-httpd-php /php/php.exe
    Action application/x-perl /perl/perl.exe
Perche' gli script .php vengono eseguiti correttamente da qualsiasi 
sottodirectory di localhost,
mentre per gli script .pl mi becco un "internal server error?"
C'entra forse quella fantomatica prima riga che dovrei mettere in testa ad 
ogni file .pl ?
Aiuto !!!
Grazie
Paolo Zavarise

 ha scritto nel messaggio
news:Xns90E3DF85F6411pa...@192.106.1.6...


 su error_log cosa si dice? setta il livello su debug di Errorlevel...
Buona idea... mo guardo error_log.
Dunque... dice
[Fri Jul 20 01:49:53 2001] [error] [client 127.0.0.1] Premature end of 
script headers: d:/languages/perl/bin/perl.exe
Il 
prova.pl
 che ho utilizzato e'
print "Hello world";
End of script headers... devo aggiungere una riga all'inizio ?
Il mio perl.exe si trova in "d:\languages\perl\bin"
Any ideas ?
Grazie
Paolo Zavarise

 Any ideas ?
La primissima riga di OGNI script perl deve sempre indicare la posizione
dell'inerprete; nel tuo caso:
#!d:\languages\perl\bin\perl.exe
o perlomeno su unix funziona cosě (ma immagino sia lo stesso anche con
Windows -- penso).
Fai una prova...

 #!d:\languages\perl\bin\perl.exe
azz... no, non e' questo il problema
ora il mio 
prova.pl
 e'
#!d:\languages\perl\bin\perl.exe
print "Hello world";
ma apache continua a scrivere "500 Internal server error", ovvero, 
guardando in log.txt
[Fri Jul 20 10:05:39 2001] [error] [client 127.0.0.1] Premature end of 
script headers: d:/languages/perl/bin/perl.exe
UFFFA!!! :(
Help
PZ

 print "Hello world";
print "Content-type: text/html\n\n";
print "Hello World";
-- 
Saluti,
Giancarlo
Newsgroup: it.comp.lang.perl
Titolo: Pattern matchin curioso...

Perche' se nelle stringhe da comparare ci sono delle \ Perl si comporta in
maniera curiosa???
Per esempio il file 
$a="C:\\gino\\pino";
$b="C:\\gino";
$a=~ s/$b//;
print "$a\n";
$a="C:\gino\pino";
$b="C:\gino";
$a=~ s/$b//ig;
print "$a\n";
$a="C:\gino\pino";
$b="C:\\gino";
$a=~ s/$b//ig;
print "$a\n";
Da come output
C:\gino\pino
pino
pino 
Io ho due stringhe che mi vengono da Win32::GetFullPathName.
Come posso fare a togliere l'una dall'altra visto questo funzionamento
strano del pattern matching.
Ho pensato di sostituire tutte le \ con /,di
fare il pattern matching e di ripristinare tutte le \. 
Cosi' funziona, ma mi sembra una soluzione assai rattopata!
Grazie dell'interessamento
______________________________________________________________________________
 Filippo Bozzi
 Reply to 
s16...@studenti.ing.unipi.it
    or to 
f.l...@mailcity.com
    or to 
felip...@telemail.it
______________________________________________________________________________

maniera curiosa???
Perchè sono caratteri speciali
Se ci spiegassi cosa sono $a e $b forse potremmo aiutarti meglio nello
sviluppare una RE più efficace
Ciao
Andrea Busia
No Spam, Grazie.

 
Cerco di spiegarmi meglio.
Con Win32::GetFullPath ottengo il path assoluto di un file in win (per
esempio dando Win32::GetFulPath(uno\pippo.txt ottengo C:\Leon\tmp\uno).
Io vorrei ottenere un path relativo partendo da una certa directory.
Per  esempio:
Ho unam stringa $a C:\uno\due\tre\quattro\cinque\txt.txt ed una $b
C:\uno\due\tre\ e vorrei ottenere la stringa quattro\cinque\txt.txt.
Fancendo 
a$=s~/$b//gi ottngo ancora a$ = C:\uno\due\tre\quattro\cinque\txt.txt ,
ovvero non esegue nessuna sostituzione.


ovvero non esegue nessuna sostituzione.
Usa queste istruzioni in sequenza
$b=~s/\\/\\\\/g;
$a=~s/$b//;


 ovvero non esegue nessuna sostituzione.
Come saprai, i backslash (e altri caratteri speciali, come il '.' ) hanno
un significato particolare nelle regexp, che non coincide con
un'occorrenza di loro stessi. Prova invece con:
 $a =~ s/\Q$b\E//;
Il significato \Q è illustrato in perlre.
Max
Newsgroup: it.comp.lang.perl
Titolo: Active Perl + IIS5

Salve a tutti,
per motivi di pura "curiosità infromatica" vorrei capire come
funzionano i cgi. Da quanto mi e' sembrato di capire leggendo qualche
tutorial su siti che trattano l'argomento, per poter utilizzare cgi
scritti in Perl è necessario installare oltre a IIS5 anche l'Active
Perl (sul mio PC lavoro con Win2k).
- ho scaricato ed installato
ActivePerl-5.6.1.629-MSWin32-x86-multi-thread.msi.
- ho poi creato nella root directory di IIS5 un file "script.cgi". Il
contenuto di script.cgi e':
#!/usr/bin/perl 
print "Content-type:text/html\n\n";
print "<html><head><title>Prima paginadiprova</title></head>\n";
print"<body>\n";
print "<h2>Ciao atutti!</h2>\n";
print"</body></html>\n";
- se apro da IE 
http://localhost/script.cgi
 pero' non viene
visualizzato solo "Ciao a tutti" ma tutto il contenuto del file. Credo
percio' che il Perl non venga correttamente interpretato.
- Cambiando la prima riga da:
#!/usr/bin/perl 
a:
#!/perl
ottengo lo stessa cosa.
Vi chiedo un piccolo aiuto per poter partire e testare qualche
semplice script.
Scusate se sono stato un po' lungo ;-)
TIA - Nexus.

Ho trovato la soluzione!
A chiunque possa interessare segnalo:
"Configuring and Testing a PERL Script with IIS 4.0 and 5.0"
url:
http://support.microsoft.com/support/kb/articles/Q245/2/25.ASP?LN=EN-US&SD=gn&FR=0
Ciao - Nexus.

Newsgroup: it.comp.lang.perl
Titolo: Controllo data formalmente corretta!

Esiste un'istruzione in PERL che ti dice se una data è formalmente corretta?
Grazie

 Grazie
Cosa intendi con formalmente? Cosa ti serve?
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************

 ha scritto nel messaggio
news:aecbrn$9eg$1...@news.flashnet.it...


Wallace wrote:


senza che stai a impazzire ... butta su Date::Manip
http://search.cpan.org/doc/SBECK/DateManip-5.40/Manip.pod

Newsgroup: it.comp.lang.perl
Titolo: LWP::UserAgent e stdout...

 wrote:
: Utilizzo LWP::UserAgent per prelevare una pagina html dal server, soltato che scrive in
: stdout tutto il suo log... e' possibile evitarlo ?
script >/dev/null
Se poi non e` uno script che lanci da riga di comando o se non gira
sotto Unix ti arrangi, cosi` impari a dirci qualcosa di piu` sui tuoi
problemi :-)
-- 
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

 problemi :-)
Gira sotto FreeBSD o NeXTSTEP o Mac OS X Server... a scelta... :-) e' un cgi e il pkt
non deve scrivere il suo log su stdout... da quanto ho visto anche il pkt per gestire i
msg MIME scrive i msg di errore sull'output...
C'e' un modo per evitarlo senza modificare il src del/i pacchetto/i ?


 msg MIME scrive i msg di errore sull'output...
Che io sappia LWP::UserAgent non dovrebbe comportarsi così; potresti essere un
po' più specifico riguardo al CGI?
Ciao
	Gundam

 wrote:
: Gira sotto FreeBSD o NeXTSTEP o Mac OS X Server... a scelta... :-) e' un cgi e il pkt
: non deve scrivere il suo log su stdout... da quanto ho visto anche il pkt per gestire i
: msg MIME scrive i msg di errore sull'output...
LWP::UserAgent non scrive alcun log su stdout.
Probabilmente hai problemi con il programma che hai scritto, che
purtroppo senza sorgenti non so dire quali siano (ho la sfera di
cristallo in panne :-).


 LWP::UserAgent non scrive alcun log su stdout.
Purtroppo mi sono accorto dopo aver scritto il msg che l'output non era generato da LWP
ma da un altro prg... tnx.


Newsgroup: it.comp.lang.perl
Titolo: [OT]Ci sono ISP gratis in Inghilterra?

Devo partire, vorrei collegarmi con qualcosa tipo: come faccio?
Grazie,
Carlo
--
Posted from [194.21.44.3]
via Mailgate.ORG Server - 
http://www.mailgate.org

 Carlo
Sono sicuro che ce ne sia uno, ma al momento il nome mi sfugge....
Ciao, a presto
    Federico
-- 
"There's so many different worlds
  So many different suns
  But we have just one world
  And we live in different ones."       Mark Knopfler

Newsgroup: it.comp.lang.perl
Titolo: Aiuto .msg outlook

spiegatemi...
Come potrei fare una ricerca del testo in un file .msg creato da MS Outlook?
Grazie

 Grazie
spiegaci... cos'hai trovato fino ad ora?

polettix ha scritto:

ben poco...

polettix ha scritto:

credo che il problema in parte è dovuto al fatto che dovrei capire come 
fare almeno il parsing del file msg di outlook.
Visto che è un formato binario proprietario (MAPI).


Beh, mi riferivo a cosa avessi trovato in Perl. Ecco un paio di dritte
che ti saranno utili in futuro:
* la maggior parte del codice Perl disponibile on line la puoi trovare
su CPAN: 
http://www.cpan.org/
* esiste un motore di ricerca per i moduli CPAN: 
http://search.cpan.org/
* ne esiste anche un altro: 
http://kobesearch.cpan.org/
Cercando semplicemente "outlook" è venuto fuori
Email::Outlook::Message, che potrebbe fare al caso tuo. Buona fortuna!
Ciao,
   Flavio.

    Flavio.
grazie 1000 ;)
Newsgroup: it.comp.lang.perl
Titolo: una cosa semplice...

Come si fa a creare un file? So come far scrivere su uno esistente ma non
riesco a trovare i comandi per crearlo da zero.
Grazie
                                      Alessio

 riesco a trovare i comandi per crearlo da zero.
E' lo stesso. Al piu` (se vuoi crearlo vuoto) vedi "touch".
-- 
Oramai che i baci tuoi piu` non mi sazian
cerchero` un'altra donna dentro ai sogni di Tarzan...

 wrote in message 1ej2r5x.11d4svk2g94gkN%bale...@mac.com...


Newsgroup: it.comp.lang.perl
Titolo: connessione a DB Access

 
Ci vogliono i doppi backslash! oppure, se i doppi backslash ti fanno
schifo:
 Win32::ODBC('dsn='. $PROVA . ';db=d:\programmi\DevStudio\VB\Nwind.mdb' );
MM

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

 
Non vedo il motivo, con gli apici singoli il doppio backslash rimane
doppio backslash. Che ti serve con un doppio backshlash in un path?
Probabilmente funziona comunque, ma è inutile.
MM

Probabilmente funziona comunque, ma =E8 inutile.
A suo tempo avevo avuto dei problemi sotto Win32, ed ho iniziato a
quotare sempre il backslash singolo... Forza dell'abitudine, magari
non serve ed hai ragione tu, ma sicuramente funziona.

Newsgroup: it.comp.lang.perl
Titolo: aggiungere robe ad un array

ho sto problema, cioe', me lo sono fatto io il problema
$net = `more /proc/net/dev | grep ppp0`;
poi splitto l'array e prendo solo la quantita' di byte scaricati, ora
volevo mettere dei puntini in mezzo
in pratica ho un numero del tipo 43823132 e volevo trasformarlo in
qualcosa del tipo 43.823.132 ,in pratica metterci i puntini in mezzo per
separare le migliaia etc
io ho splittato a sua volta il numero in un array con dentro igni cifra
eppoi lo riprinto con un puntino in mezzo, il mio problema e' che a
volte ho un numero che puo' essere 434526 che verrebbe 434.526 quindi il
mio problema e':
c'e' un modo per risolvere??
io avevo pensato di far scrivere l'array coi puntini al contrario,
prendevo tre elementi dell'array, poi il puntino e cosi' via, e poi
riprintarlo al rovescio un'altra volta, pero' mi sembra un po' troppo
complicato,
conoscete un metodo piu' facile????
bau

conoscete un metodo piu' facile????
Certo, puoi usare:
sub commify {
	my $text = reverse $_[0];
	$text =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1\./g;
	return scalar reverse $text;
}
Nota che questa funzione ritorna il numero con dei punti
inseriti per separare le migliaia ponendo che vengano usate
le virgole come separatore decimale. Se tu hai ad esempio:
123532,24
otterrai:
123.532,24
Se ti interessa ottenere invece 123,532.24 partendo da 123532.24
(notazione anglosassone) devi sostituire nella regular expression
la virgola col punto e viceversa. Se hai numeri interi nessun
problema. ;-)
	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!

 $net = `more /proc/net/dev | grep ppp0`;
Non c'entra molto con il tuo problema, ma penso proprio che per quello che
vuoi fare con quell'istruzione,
 $net = `grep ppp0 /proc/net/dev`;
 
sia molto piu' efficace. Inoltre, credo proprio che /proc/net/dev potresti
anche aprirlo tu, direttamente, in lettura, per cui ti risparmieresti
l'esecuzione del comando esterno.
Per il resto, mi sembra che ti abbiano gia' dato la risposta in un altro
messaggio.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 
si ma a me interessa solo la riga che comincia con ppp0, dopo dovrei
mettermi a leggere la riga giusta da dentro il prog, con grep faccio
prima, credo
cmq grazie 
bau

 
 my $ppp0 = proc_net_dev()->{ppp0};
 print $ppp0->[0]; # bytes
 print $ppp0->[1]; # packets
 sub proc_net_dev {
   open F, "/proc/net/dev";
   my %device;
   while( <F> ) {
    if( /^\s*([\w\d]+):(.*)/ ) 
    { $device{$1} = [ split ' ', $2 ]; }
   }
   close F;
   return \%device;
 }
Newsgroup: it.comp.lang.perl
Titolo: problema Arrow.pm

ho installato il pacchetto perl-GD-Arrow-0.01-8.noarch.rpm sul mio linux
centos.
Alla linea
use GD::Arrow;
mi dice
"Can't locate GD/Arrow.pm in @INC (@INC contains:
/usr/lib/perl5/5.8.5/i386-lin ......."
effettivamente il pacchetto pur essendo correttamente installato senza
problemi non ha inserito nel path Arrow.pm.
Nel mio script inserisco
use "lib /usr/lib/perl5/5.6.1";
lancio lo script e ottengo:
"Can't locate GD/Arrow.pm in @INC (@INC contains: /usr/lib/perl5/5.6.1
/usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl........"
adesso il path c'è, il pacchetto Arrow.pm pure ma continua a dirmi che non
lo trova.
I permessi sui file sono come gli altri pacchetti, il pacchetto GD lo avevo
installato precedentemente tramite rpm e non ho avuto problemi ad usarlo
(infatti la linea use DG; passa indenne dall'interprete perl.
Come posso risolvere il problema?
p.s. ho provato ad inserire il path /usr/lib/perl5/5.6.1/GD ... ma come era
ovvio non funziona uguale.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 lo trova.
GD/Arrow.pm non è presente in alcuna delle directory di @INC di quello 
specifico perl: se ci fosse verrebbe trovato, vai tranquillo ;-)
Ciao,
Emanuele

Newsgroup: it.comp.lang.perl
Titolo: Comando SYSTEM e PERL per win

Vorrei utilizzare il comando "system" in uno script per lanciare dei
processi.
Detto script dovra' pero' girare su una macchina Windows NT server con
Perlwin.
Quando lo esegue, nel momento in cui incontra il "system" mi scrive sul log
del server web un errore del tipo
"Can't start new PID".
Praticamente non riesce a creare un nuovo processo.
Qualcuno ha mai avuto problemi simili (e magari li ha anche risolti)?
Ciao.



Newsgroup: it.comp.lang.perl
Titolo: Istruzione Local

Ringrazio tutti quelli che fino ad oggi mi hanno risposto.
La domanda che pongo adesso è:
Cosa significa l'istruzione LOCAL?
GRAZIE

 cerchero` un'altra donna dentro ai sogni di Tarzan...
Newsgroup: it.comp.lang.perl
Titolo: sapere quanti files ci sono in una directory ?

Salve, avrei bisogno di sapere quanti files ci sono in una directory...
modificando uno script trovato su internet ho fatto questo:
chomp($newdir = <STDIN>);
chdir($newdir) || die "Non esiste la directory $newdir: $!";
foreach (<*>) {
  $a++;
}
print "$a"
ma ci mette un sacco di tempo (mi aspetto circa 200.000 files in quella
directory, e il programmi no sta funzionando da circa 10 minuti)...
esiste una funzione che mi da la quantità di files nella directory? (su
Windows)
grazie,
Paulus
http://spazioweb.inwind.it/it_informatica
--------------------------------
Inviato via 
http://usenet.libero.it

 (su Windows)
Questo dovrebbe essere un po' piu' veloce:
opendir(DIR,'$newdir');
$a=scalar grep /^[^\.]/, readdir(DIR);
comunque leggere una directory con 200.000 file e' comunque lento.
-- 
Saluti,
Giancarlo

 leggere una directory con 200.000 file e' comunque lento.
Si, me ne sono reso conto... Comunque la velocita' e migliorata di molto da
quando sono riuscito -dopo mesi di duro combattimento- a farmi autorizzare
l'installazione di perl sul server (prima dovevo fare tutto dal mio pc e
controllare la quantitą di files sulle directory del server tramite
connessione di rete!!!!)


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

 che il programma e` lento...
Esiste un modulo Devel::DProf, che dovrebbe servire a fare un profiling
del codice, dandoti il tempo di esecuzione delle singole subroutine.
Non credo si possa andare ulteriormente in dettaglio.
In pratica lo si usa come un debugger
 perl -d:DProf 
pippo.pl
 
 
il che genera un file di dati che poi analizzi con dprofpp, un programma
installato quando compili DProf.
Oppure usare direttamente dprofpp
 dprofpp -u -p 
pippo.pl
Ovviamente, lo trovi su CPAN.
Io l'ho solo installato e non l'ho praticamente mai usato, quindi ti sto dando
solo le informazioni della manpage (sto facendo delle prove ora...)
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@tuttocitta.it
 
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 wrote:
: Sto lavorando all'ennesimo generatore di statistiche sui newsgroup e ho
: il sospetto che ci sia qualche collo di bottiglia nel mio parser. Esiste
: un sistema per fare il profiling di un intero programma?
: Il modulo Benchmark non mi serve a molto perche` lo vedo anche da solo
: che il programma e` lento...
Devel::DProf
Devel::OpProf
Devel::SmallProf
Se il tuo programma e` poi un po' complesso, puoi provare B::Deparse
(con il Perl 5.005) per capire cosa realmente "vede" il perl e come
l'ottimizza.
Per analizzare le regular expression 'use re qw(debug)'.
-- 
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) ipers (dot) net   for my PGP public key
Newsgroup: it.comp.lang.perl
Titolo: lanciare un script con parametri tramite POST method

Per lanciare uno script perl cgi.bin da HTML (senza usare FORM) passando 
dei parametri, posso fare una cosa del tipo:
http:../../../cgi-bin/
miosciprt.pl?param1=valore
e inserire questo URL come href di un link.
Quindi passo i parametri come query string (in pratica uso il method http 
GET ).
La domanda č:
esiste una qualche altro sistema per passare i dati allo script che non usa 
la querystring e quindi il metodo GET, ma invece il method POST? (tipo il 
method post dei form HTML)
Ciao,
Gabriele

Gabriele Montemari wrote:

   Si`, usando un form con action di tipo POST. :)
   Specificare i parametri nella sezione query dell'URL implica per 
definizione l'uso del metodo GET.
-- 
Alla prossima,
Marco

 method post dei form HTML)
No, pero' con un po' d'astuzia potresti far sembrare un form un link, mi
spiego:
<code>
<style><!--
.btn { border: 0pt; background-color: transparent; color: blue;
text-decoration: underline; cursor: hand; }
--></style>
<form action=/cgi-bin/
myscript.pl
 method=POST>
<input type=hidden name=param1 value="valore 1">
<input type=hidden name=param2 value="valore 2">
<input type=hidden name=param3 value="valore 3">
<input type=submit class=btn value="Clicca qui per procedere...">
</form>
</code>
Se visualizzi questo codice nel browser, la scritta "Clicca qui per
procedere..." sembra un link, ma non lo è.
In questo modo puoi anche spedire parametri molto grossi, cosa che in
modalità GET non si puo' fare (perchè la QS è limitata a 255 car.)
Se non è questa la soluzione al tuo problema, allora credo non ce ne siano
delle altre (te lo dico x esperienza fatta!! :-))
Ciao!
Guido.

definizione l'uso del metodo GET.
--------------------------------
Inviato via 
http://usenet.iol.it
 

 ha scritto nel messaggio
news:212Z131Z171Z34Y...@usenet.iol.it...


Newsgroup: it.comp.lang.perl
Titolo: compilare Perl

Ciao a tutti.
Vorrei farvi una domanda forse stupida.
C'e' qualche tool per compilare uno script in Perl che sforna un
eseguibile stand-alone, o magari un converter perl to c, il tutto magari
multipiattaforma?
Ho effettuato qualche ricerca in rete, ma senza grossi risultati.
Grazie.
Angelo

....forse avrei dovuto "notare la presenza di "perlcc"? :-)
pardon...


...


 Per le macchine win32 c'é PerlEXE, che ti crea un exe stand alone a
partire
Perl2Exe -> 
http://www.dynamicstate.com/perl2exe.htm
Newsgroup: it.comp.lang.perl
Titolo: sprintf

Ciao a tutti,
ho un piccolo problema.
Non riesco ad utilizzare il comando sprintf nel migliori dei modi.
Sono riuscito a dividere in centesimi di euro una variabile costo con il
comando:
 $prezzoeuro = sprintf "%.2f", $prezzoeuro;
ma come faccio a dividere in terzine di zeri i prezzi in lire?
Io ho una varibale 20000, coma faccio a farla diventare 20.000 col comando
sprintf ??
Spero in voi!
Grazie e a presto.
__________
Cesco!
www.vivicatania.net

sprintf ??
Dal "Perl Cookbook":
sub commify {
  my $text = reverse $_[0];
  $text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
  return scalar reverse $text;
}
Questo naturalmente mette le virgole, alla anglosassone. Se vuoi mettere
il punto (e quindi separati i decimali con la virgola) scambia i segni
"," e "." nella regexp.
	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!

 wrote in message
slrn94mn...@karma.italpro.to...


rispecchia il nostro modo di dividere i numeri decimali.
A me a dire il vero funziona benissimo anche con valori sotto 100000. Sei
sicuro di aver compiato bene il codice?


 ricorrere a noiose condizioni if.
Io ho provato ad usare il codice che ha riportato Michele sostituendo come
aveva suggerito lui . con , e mi formatta perfettamente tutti i prezzi :-)
--
Saluti
~~~~~~~~~~~~~~~~~
Veneziano Davide (
ve...@vene.ws
)
http://www.vene.ws
  Faq e manuali, Servizi Internet
http://mail.vene.ws
 E-mail Gratuite Pop3/Smtp/Web
ICQ# 14047537
Newsgroup: it.comp.lang.perl
Titolo: LogIn Help me!!!

Salve,
Sto cercando di scrivere uno CGI che permetta di
confrontare dei dati inviati tramite modulo(GET) con quelli archiviati in un
file. Una specie di login molto grezzo.
Mi sono bloccato perche' se invio l'ultimo dato contenuto nel file (Un dato
per riga) va tutto bene, altrimenti lo script va in loop infinito! Non
capisco
il perche'! Mi date una mano?
Inoltre in Win faccio le prove con l'Apache, ma c'e' un compilatore passo
passo su cui fare le prove?
Grazie 1000 ecco lo script:
#!perl
#
#
$FileName='dati.txt';
#
#
print "Content-type:text/html\n\n";
$i=0;
open(FILE, "< $FileName");
while (!eof(FILE))
{
   $dato[$i] = <FILE>;
   $i++;
}
close(FILE);
{
$PagNascosta=<<FINE_PAG_NASCOSTA;
<html>
<head>
</head>
<body>
<p align="center"><u><strong><em><big><big><big><big>Pagina Aperta con
successo</big></big></big></big></em></strong></u></p>
<p>&nbsp;</p>
<p>Riepilogo dati... etc etc....</p>
</body>
</html>
FINE_PAG_NASCOSTA
}
{
$PagErrore=<<FINE_PAG_ERRORE;
<html>
<head>
</head>
<body>
<p align="center"><big><big><big><em><strong>Errore, User Name o Password
errata,
ritornare alla pagina precedente e
riprovare!</strong></em></big></big></big></p>
</body>
</html>
FINE_PAG_ERRORE
}
$ricezform=$ENV{'QUERY_STRING'};
$i=0;
while (($i != $#dato)|($ricezform ne $dato[$i]))
{
   print $dato[$i];
   $i++;
}
if ($ricezform eq $dato[$i])
{
   print $PagNascosta;
}
else
{
   print $PagErrore;
}

 {
Hai scritto '|' ma volevi scrivere  '||'.
Max

 wrote in message
Pine.LNX.4.10.100091...@c64.comm2000.it...


 
-- 
"a` parte isso, tenho em mim
 todos os sonhos do mundo"


Ti ringrazio... la provo subito!

Allora.... adesso con la tua procedura non va piu' in loop, ma riconosce
solo l'ultima stringa del file!
Se inserisco l'ultima stringa la sub restituisce 1 altrimenti undef! Come
mai? E' un problema di ritorno a capo?

Newsgroup: it.comp.lang.perl
Titolo: Grab da WebCam

Ciao a tutti!
Avrei la necessita' di catturare ogni X un'immagine da WebCam e poi
elaborarla in PERL.
Qualcuno mi sa dire come posso fare a catturarla e salvarla in un array di
bytes (questo sarebbe l'ideale, altrimenti anche solo salvarla su file)?
Grazie
Luca Bertoncello
(
luca...@lucabert.de
)
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Sistema operativo? Se non ricordo male, in Linux si dovrebbe aprire il
device come se fosse un file e prelevare un'immagine in formato QCIF,
ma se non sei sotto Linux non vale la pena di controllare :)
Newsgroup: it.comp.lang.perl
Titolo: Memory Leak in DBI.

Salve, ultimamente mi e' capitato di leggere diversi thread, dove
molte persone lamentavano una difficolta' nella gestione della
memoria nel modulo DBI, e nello specifico utilizzando
la funzione prepare_cached.
Tutti davano come soluzione quella di usare esclusivamente la
prepare e non prepare_cached. Mi chiedo pero' se questo bug e'
stato risolto, perche' ho provato a installre le ultime DBI e
il problema si presenta lo stesso.

Newbie wrote:

A meno di bug in driver DBI specifici (di cui io non sono a conoscenza), 
  direi che quello della prepare_cached() non è un vero e proprio memory 
leak (almeno non con le ultime versioni di DBI).
Si tratta semplicemente del fatto che le query continuano ad accumalarsi 
nella cache del dbh, se quest'ultimo non viene deallocato. Ma questo è 
esattamente il funzionamento documentato di prepare_cached().
Semplicemente direi che se ci si trova in una situazione in cui si 
eseguono molte query sempre diverse, come accade ad esempio se si espone 
un query builder all'utente, o se non si usano i placeholder (ma qui già 
si tratterebbe di un errore, e pure grave), non si dovrebbe usare 
prepare_cached (che tra l'altro con un basso cache-hit non darebbe alcun 
vantaggio prestazionale), oppure bisogna avere l'accortezza di 
refreshare il dbh di tanto in tanto.
Certo, DBI di suo potrebbe offrire un'API per il dimensionamento e la 
durata della cache delle query (cosa che attualmente non fa), ma direi 
che questa è una feature assente piuttosto che un bug.
E forse non sarebbe neanche una feature di grande utilità, visto che si 
ottiene lo stesso effetto piuttosto facilmente, creando un tie tra 
$dbh->{CachedKids} e un modulo per la gestione della cache, come 
mostrato dalla stassa documentazione di DBI:
my $cache = $dbh->{CachedKids};
tie %$cache, 'Tie::Cache::LRU', 500;
(ma devo precisare che non l'ho mai sperimentato).
Ciao,
Emanuele.

 leak (almeno non con le ultime versioni di DBI).
Fantastica spiegazione. Ti ringrazio moltissimo perche' sei stato di
grande aiuto. ciao.

Newsgroup: it.comp.lang.perl
Titolo: Conversione 1000000 --> 1.000.000

Scusate ma sono nuovo alla programmazione in Perl
Mi potete dare il codice per trasformare un numero
es. 1000000
in notazione
1.000.000


sub main::fp($) {
  for (my $price = shift) {
    tr/./,/;
    1 while s/(.*\d)(\d\d\d)/$1.$2/g;
    return $price;
  }
}
Newsgroup: it.comp.lang.perl
Titolo: Grosso problema

Sto facendo un programma cgi in perl basato su un database che dopo un FORM
prevede la stampa sul browser di alcuni risultati in una pagina html con 2
frame.
 Il contenuto dei frame dipende da cosa sta facendo il cgi in quel momento e
quindi cambia a suo piacere.
Non posso utilizzare file html temporanei sia per problemi di sicurezza sia
per altri motivi.
Ho provato a risolvere il problema stampando la pagina che contiene i 2
frame e indicando come file sorgente lo stesso cgi con i vari parametri come
in un href ma non funziona e me lo aspettavo
vedi esempio:
<html>
<head>
<title>prova</title>
</head>
<frameset cols="150,*">
  <frame name="sommario" target="sx"
src="iter.cgi?action=disegna_frame&tipo_frame=sx&argomento=visualizzazione">
  <frame name="principale"
src="prog.cgi?action=disegna_frame&argomento=visualizzazione&tipo_frame=dx">
  <noframes>
  <body>
  </body>
  </noframes>
</frameset>
</html>
Viene stampata la pagina con i due frame che contengono la visualizzazione
default del programma!
Cosa posso fare??
Ciao

in un href ma non funziona e me lo aspettavo
O occhio sembra tutto giusto. Credo che nel tuo CGI sia errata la
gestione del parametro tipo_frame...
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 wrote in message
slrn8jo4...@karma.italpro.to...

La parte di codice interessata č questa:
dopo il parse form nella sezione di riconoscimento comandi
c'e questo:
$action=$FORM{'action'};
if ($action eq 'jhgckhgc') {&vkjgvckg($fv)}
elsif........
elsif........
ecc...
elsif ($action eq 'disegna_frame') {&routine_frame
($FORM{'argomento'},$FORM{'tipo_frame'};}
......
else .......
.........................
sub routine_frame
{
if ($_[0] eq 'visualizzazione')
    {
     if ($_[1] eq 'sx')
     {print
qq|<html><head><title>Ciao</title></head><body><p>framesinistro</p></body></
html>|;}
     if ($_[1] eq 'dx')
     {print
qq|<html><head><title>Ciao</title></head><body><p>framedestro</p></body></ht
ml>|;}
    }
}
Ho semplificato al massimo il ragionamento e cosě non funziona!
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: divisone delle migliaia

Servirą ancora per poco, ma sto cercando una routine per dividere le
migliaia con il ".". Ne ho scritta una ma č "pietosa" perchč č una
raffica di IF.....
-- 
-------------------------------------------------------------------------
Hosting professionale a prezzi USA? 
http://www.servitelit.com/prezzi.htm
-------------------------------------------------------------------------

 
Una cosa del genere dovrebbe funzionare.
	$numero =~ s/(\d)(?=(\d{3})+[^\d])/$1\./g ;
MM

 raffica di IF.....
while ($cifra =~ s/(\d)(\d\d\d)(?!\d)/$1\.$2/g){};
Chiaro no? :)
Saluti
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)

MM
BELLO!
Ciao


 BELLO!
Sarà bello, ma non funziona :-) 
Così va meglio:
  $numero =~ s/(\d)(?=(\d{3})+(?!\d))/$1\./g ;
MM

 wrote in message
news:Pine.LNX.4.10.990427...@c64.comm2000.it...



MM
E' gia'... e l'avevo anche provato prima di complimentarmi, non per
sfiducia... ma non si sa mai! :)
Evidentemente l'avevo provato con stringhe che, prese dallo stdin, avevano
un "\n" o uno spazio alla fine.
Mi sembra infatti di capire (cosi' questa news perde la peculiarita' di
essere un puro scambio di complimenti per trasformarsi in una domanda che
potrebbe interessare anche altri) che possa essere solo questo il caso in
cui la prima soluzione da te fornita potesse sbagliare: essa richiedeva la
presenza di un carattere diverso da un numero nel lookahead, cioe' non si
accontentava della condizione "non c'e' un numero", ma chiedeva "ci deve
essere qualcosa diversa da un numero".
E' corretto tutto questo (non ho molta dimestichezza con lookahead)?
Grazie


 
Per l'esattezza, il problema era che [^\d] non significa proprio "qualcosa
diverso da un numero", bensì "un *carattere* diverso da un numero", e
quindi non comprende il fine-stringa ($), come invede accade con
(?!\d).
MM

 Chiaro no? :)
Quando leggo ste belle cose, capisco che con il perl io ancora sto fermo a
capire se si usa l'eq o il == con le if sulle stringhe...
ciao
luther

Newsgroup: it.comp.lang.perl
Titolo: perl e IIS4

Qualcuno sa dirmi come devo configurare iis 4.0 per usare gli script perl?
grazie
dani...@sestantenet.it

 perl? 
Qui dovresti trovare le informazioni che ti servono:
http://www.activestate.com/support/faqs/Perl_for_Win32_FAQ_6.html#6_3
Max

Newsgroup: it.comp.lang.perl
Titolo: AIUTOO MAIL E PASSWORD

Scusate ma sto impazzendo e questo per favore un vostro aiuto.
Non conoscendo bene i CGI e non sapendo oltretutto come fare per
provarli sul mio PC vorrei creare in un sito una parte riservata con
login e password e quindi protetta dalla stessa e un form mail che mi
permetta di allegare un file e di mandarlo a molti destinatari (sempre
gli stessi inseriti nel CGI).
Sto cercando da tanto tempo di tentare da solo scaricandomi CGI dai
vari siti con le raccolte ma per tutti è un casino settarli ma senza
risultati.
Lo so che lo sto mandando anche a NG improprio ma sono disperato.
Vi prego di aiutrami 
Saluti
 

 wrote in message
9saqOCM2khAoy4...@4ax.com...



Newsgroup: it.comp.lang.perl
Titolo: Problemi con "campo"

Allora, riciao a tutti... una cosa stranissima che non mi era mai capitata.
Adesso ve la dico.
Ho costruito un form con più checkbox di nome campo es:
<tr>
    <td width="9%">
      <input type="checkbox" name="campo" value="loc">
    </td>
    <td width="91%"><font face="Verdana, Arial, Helvetica, sans-serif"
size="2">Localit&agrave;</font></td>
  </tr>
  <tr>
    <td width="9%">
      <input type="checkbox" name="campo" value="tipo">
    </td>
    <td width="91%"><font face="Verdana, Arial, Helvetica, sans-serif"
size="2">Tipo
      di Intervento</font></td>
  </tr>
  <tr>
    <td width="9%">
      <input type="checkbox" name="campo" value="ind">
    </td>
    <td width="91%"><font face="Verdana, Arial, Helvetica, sans-serif"
size="2">Indirizzo</font></td>
  </tr>
  <tr>
    <td width="9%">
      <input type="checkbox" name="campo" value="epoca">
    </td>
    <td width="91%"><font face="Verdana, Arial, Helvetica, sans-serif"
size="2">Datazione
      - Epoca</font></td>
  </tr>
Adesso che succede, quando con il perl vado a vedere la variabile $campo
ricavata attraverso una procedura che ho fatto, vedo es.
prova uno due tre
ma il carattere tra le parole non è uno spazio e non posso usare lo split,
che carattere è???
Grazie,
duccio

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

 che carattere è???
Forse invece dell'inutile HTML potevi farci vedere l'utile Perl, dal momento
che ti lamenti che e' quello che non funziona.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)


"Meanwhile, the poor Babel fish, by effectly removing all barries 
to communication between races and  cultures, has caused more and 
bloodier wars then anything else in the history of creation."
(Douglas Adams)

 wrote in message
Pine.LNX.4.10.990917...@c64.comm2000.it...


Newsgroup: it.comp.lang.perl
Titolo: La cacca mi stà sovrastando.....

Ci sto' affogando, devo fare uno script che controlli la posta su di un
determinato server.... sto' usando il modulo POP3Client, ma non me la trova.
Mi invio dei mex da solo sul mio computer in locale, ma non meli vede......
AIUTO!!!!!
Nicola

 non meli vede......
  Non potresti essere un po' piu` specifico? Il caldo rende la mia sfera
di cristallo alquanto inefficace, il caffe` non mi piace, per cui non
posso consultarne i fondi e sventrare gli agnelli per ottenerne aruspici
dalle visceri mi metterebbe in cattiva luce nei confronti degli
animalisti...
	Alla prossima,
		Marco