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

Salve a tutti, a  tutti mi stavo interessando al linguaggio Perl, (mi
interesso di programmazione web)vorrei sapere un pò quali sono i vantaggi e
gli usi princiapli di questo linguaggio,e se può valere la pena investirci
su del tempo.
Un grazie anticipato a tutti quelli che mi risponderanno
Code

 su del tempo.
Beh, sicuramente non è possibile esaurire in un post tutti benefici derivanti
dall'utilizzo di Perl... :-)
Per quanto riguarda la tua domanda, sicuramente è ottimo per la programmazione
WEB, anche il suo campo d'azione è assai molto più vasto.
Per il resto ti invito ad andare anche su 
www.perl.it
 (oltre che i classici
perl.org
 e 
perl.com
) dove potrati iniziare a documentarti su questo linguaggio.
by
	- Enrico
--- have fun with 
www.perl.it
 ---

 su del tempo.
Vale la pena ? Si.
Non e' un linguaggio estremamente facile da imparare, ma a mio avviso e'
un linguaggio molto potente. I maligni dicono (e io non sono d'accordo)
che sia buono solo per le "quick and dirty solutions".
La principale caratteristica del Perl e' la possibilita' di operare su
stringhe in maniera molto efficiente.
Comuqnue puoi trovare molte cose in rete che descrivono le potenzialita'
di tale linguaggio.
 Raffaello
Newsgroup: it.comp.lang.perl
Titolo: Creare una News Client in Perl

 10 righe non di piů! :-)
------------------------------------------------------
Č nata una nuova mailin-list dedicata al Perl!!!
"Impariamo a progerammare in Perl"
http://www.domeus.it/circles/perl
Iscriviti subito!

 genere?
Qualcosa di più rispetto a a quanto è scritto nella documentazione?
 
http://search.cpan.org/doc/GBARR/libnet-1.0704/Net/NNTP.pm
Secondo me è meglio se te lo scarichi, te lo installi, ti studi come
usarlo, ed eventualmente chiedi sul NG qualora ci fosse qualcosa che non
capisci o che non riesci a far funzionare correttamente.
Max

 ha scritto nel messaggio
news:Pine.LNX.4.10.101082...@c64.comm2000.it...


Ho trovato documentazione in italiano qui
http://faq.ziobudda.net/ILDP/journal/pj9607/noframes/nonews.html
e in inglese qui
http://ftp.poli.studenti.to.it/info/perl/wwwman/libnet/Net/NNTP.html
la pagina della cpan non si apre e da errore del server, ma forse cìè la
stessa cosa.
------------------------------------------------------
È nata una nuova mailin-list dedicata al Perl!!!

Newsgroup: it.comp.lang.perl
Titolo: AIUTO!!! 2 Form in una

Vi prego ho un problema molto grave:
ho bisogno che una form che invii i dati immessi a due processi diversi.
Mi spiego meglio:
nel mio programma di commercio elettronico, la form che acquisisce i dati
dell' ordine deve passare i dati ad una procedura interna del programma (che
posso attivare solo con una action) e allo stesso tempo ad un CGI che mi
invii i dati nella e-mail in modo che possa essere avvisato appena una
persona faccia un ordine.
Entrambe le procedure devono essere lanciate alla pressione del tasto
"submit".
AIUTO!!!!!!!!!!!!!!!!!!




Beh. L'e-mail lo puoi far mandare dalla stessa CGI che ti fa l'action della
parte veramente importante del FORM. I campi ce li hai gia'. La procedura
per spedire l'e-mail e' sempre la solita (e ovviamente dipende dal
linguaggio che stai usando per programmare).
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

linguaggio che stai usando per programmare).
Non č cosě facile, in quanto la prcedura che mi elabora i dato della form č
interna al programma di commercio elettronico e non č modificabile!!

"submit".
Puoi associare submit ad una sola azione. La cosa tuttavia non
dovrebbe essere un problema, in quanto puoi attivare un CGI che mandi
le e-mail e che chiami il tuo programma di e-commerce.
	Michele.
P.S.: Ah, la domanda sarebbe stata piu` opportuna in it.comp.www.cgi.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/



Allora fai l'opposto. Fai chiamare quel programma dal tuo CGI che spedisce
la posta. Dettagli su come fare dipendono dal linguaggio con cui scrivi il
CGI. 
Se, dal momento che hai chiesto in questo newsgroup, usi Perl, l'esempio sul
POST nel LWP Cookbook (man lwpcook) puo' aiutarti.


Newsgroup: it.comp.lang.perl
Titolo: PER NEOFITI IN CERCA DI AIUTO con form mail

Avevo chiesto tempo fā un aiuto per inviare email tramite form non sono
stato aiutato quindi suppongo che nessuno sia a conoscienza di questo sito
... 
http://www.shishii.com/index.shtml
 .
In questo sito č trattato form mail per server unix linux e windows NT tutto
in italiano e spiegato passo passo pių altre cose interessanti , sempre
riferito a neofiti.
Spero di aver fatto cosa gradita a qualcuno ..Saluti Adriano

 wrote:

e vero!!
e in quel sito puoi trovare molte utily [perl]
Newsgroup: it.comp.lang.perl
Titolo: data ultima modifica

Avendo una cartella (/files/) uplodati su server dovrei stampare la lista
con la relativa "data di invio" ed  eventualmente le dimensioni..
(NB. data di invio non data di creazione del file tipo `ls --full-time`
per intenderci)
quindi andrebbe bene una subroutine tipo:
(php)
function file_time($filename)
{
	global $timeoffset;
	$tmp = filemtime($filename) + 3600 * $timeoffset;
	return $tmp;
}
ma sfortunatamente non conosco l'equivalente in perl..
qualche dritta? 

 per intenderci)
Ciao, purtroppo non riesco a provare la cosa a causa delle porte chiuse 
nel PC del mio ufficio. Ad ogni modo hai dato uno sguardo alla 
documentazione del modulo Net::FTP?
http://search.cpan.org/~gbarr/libnet-1.19/Net/FTP.pm
Nel metodo dir sembra che dioca quello che cerchi (ma nota bene che non 
ho fatto nessuna prova al riguardo):
}dir ( [ DIR ] ) 
Get a directory listing of DIR, or the current directory in long format.
In an array context, returns a list of lines returned from the server. 
In a scalar context, returns a reference to a list.
Spero che ti sia utile. Probabilmente in quel "lonmg format" vi è anche 
quello che cerchi.
Ciao.
Inviato da 
www.mynewsgate.net
Newsgroup: it.comp.lang.perl
Titolo: Databasee

Devo scrivere una serie di script per il mio sito aziendale, il problema è che
non so su che tipo di DB appoggiare i miei dati. Avrei bisogno qundi di
qualcuno che abbia esperienza di prog perl con dbi che mi dia qualche
suggerimento tenendo presente che:
ho 1 server linux, 
i dati che dovranno essere gestiti non dovrebbero raggiungere dimensioni
rilevanti,
devo comunque installare tutti i moduli necessari in quanto direi di non avere
installato nulla al momento, e cmq non vorrei installare nulla di
particolarmente esoso.
Grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 
Semplicissimo:
Mysql, tenendo presente che e' molto potente ma leggero, pero' non supporta 
le chiavi esterne. Perche' funzioni tutto bene ti servono i seguenti 
moduli: DBI DBD DBD::mysql che trovi su CPAN.Se vuoi installi con CPAN 
oppure ti scarichi i tar.gz, ti consiglio questo ultimo modo cosi' 
controlli gli esiti del test di installazione.
Ciao/ Angelo 

 Ciao/ Angelo
Grazie della risposta.
Cosa intendi con "non supporta le chiavi esterne" ?
Capisci che devo capire bene prima di avviarmi in questa avventura...
Grazie di nuovo.


Grazie
Ciao,
in alternativa a mySQL puoi usare Postgresql. Personalmente lo
preferisco perche':
- supporta transazioni, mysql non le supportava almeno fino a un po'
di tempo fa
- puoi usare nested selects (es: select from table where field =
(select from table2 where field2 = value))
Se ti interessa sto scrivendo un po' di pagine su come creare un sito
di ecommerce con linux/postgres/perl/dbi
Non e' esattamente quello che ti serve. Io uso Apache-ASP, ma puoi
usare CGI in perl o simili. L'uso del DBI/DBD dovrebbe fare comunque
al caso tuo.
Se vuoi dargli un'occhiata puoi andae a questo indirizzo
http://freecommerce.crapa.org
Spero che ti sia utile
Stefano
PS grandi Police!!!

 
Ti faccio un esempio. Hai una tabella con anagrafica dei tuoi clienti ed 
una con i loro recapiti. Ad un certo punto vuoi inserire dei racpiti di un 
cliente che non esiste nella tabella anagrafica, quindi vuoi inserire dei 
record nella tabella recapiti violando la chiave della tabella anagrafica, 
in quanto il cliente che vuoi inserire non esiste. In altri motori db ci 
sono dei sistemi per dire al motore che la tabella recapiti ha una chiave 
esterna presente nella tabella anagrafica e questa funzione ti impedisce di 
aggiungere record in recapiti se non esiste il soggetto in anagrafica a cui 
imputare tali recapiti. In mysql non c'e' questa funzionalita', devi farla 
col tuo script perl. Questa secondo me e' la principale pecca di mysql, per 
il resto gira come una lippa ed e' leggerissimo, pensa che io ci faccio db 
da usare su desktop e portatili e non ho il minimo problema.
Ciao Angelo
Newsgroup: it.comp.lang.perl
Titolo: a capo con \r\n

Ciao.
Siccome dovrei creare un centinaio di pagine htm per un sito web e
siccome queste pagine sono quasi tutte identiche, ho pensato bene di
farmi uno script in perl che mi risolvesse il problema.
Al che' mi e' venuto un dubbio. 
Il carattere "a capo" di unix e' diverso da quello di
windows....quindi il dubbio e', quale devo usare ?
Se nello script scrivo print F "<html>\n" questo viene visualizzato
correttamente con linux, ma non con windows. Se invece scrivo 
print F "<html>\r\n" succede proprio il contrario. Cioe' viene
visualizzato correttamente su windows e non su linux.
A questo punto la domanda sorge spontanea. Quale devo usare dei 2 ?
grazie per l'aiuto e scusate per la domanda da newby. :-)

Perche' non usi semplicemente 
print "<html> \n"; 
In oltre esistono dei moduli perl che ti permettono di abbreviare certe
cose
dell'html . Per esempio il modulo CGI , HTML ecc...
dai un'occhiata al cpan e activestate.
ciao

-- 
---
Gioachino Bisconti
Magneti Marelli S.p.A.- Electronics Division  - I&SP
Web Master - I&SP 
Viale Carlo Emanuele II 118
10078 Venaria Reale (Torino)
Tel. +39-011-68.79.134
Fax. 
+39-011-6879
.126
mailto:
Gioachino...@venaria.marelli.it
http://www.venaria.marelli.it/dse/isp/mdp/index.htm

No, se usi un editor decente (ad esempio Allaire HomeSite o vim).
Quindi e' solo un problema di visualizzazione ?
Cmq. ora mi spiego meglio.
Lo script in perl lo faccio con vim sotto linux. Provo a lanciarlo e
le pagine htm che mi genera vengono correttamente visualizzate dal
browser. Tanto piu' che se nel browser lancio "visualizza html" mi
mostra un codice bello pulito, come se lo avessi scritto io.
Poi resetto il PC, carico windows e provo a testare le pagine appena
create con explorer. E qui' sorge il problema. Le pagine vengono
visualizzate, apparentemente, in maniera corretta. Ma poi
visualizzando il codice con notepad scopro che l'html e scritto tutto
su una sola riga e che dove dovrebbe esserci il carattere di "andata a
capo" ci sono solo strani simboli ascii. Tutto questo avviene
mettendosolo "\n".
Allora, tornando all' inizio.
E' solo un problema di visualizzazione ? Posso essere tranquillo che
le pagine generate funzionino correttamente ?
E' sicuro che non debbo usare \r\n ?
Spero di essermi spiegato.
Grazie mille per l'aiuto !!!

E' sicuro che non debbo usare \r\n ?
Il problema e` che notepad non gestisce correttamente i soli "\n". A
parte questo, continua ad utilizzare solamente "\n" e non avrai nessun
altro 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!

	Michele.
GRAZIE infinite per il chiarimento !!!!
Newsgroup: it.comp.lang.perl
Titolo: [NEWBIE] Script pl e cgi su NT ?

Scusate forse la domanda un po' scema per voi, perņ per me č piuttosto
seria.
Devo far eseguire degli script cgi su un server NT e non so da dove
cominciare.
Per quanto riguarda la config di iis non ho grossi problemi, perņ vglio
sapere quali sono i passi giusto che devo fare per permettere ad una dir del
mio sito di eseguire script cgi, pl, exe in piena libertą (limitata alla dir
di esecuzione ovviamente con apposite autorizzazioni).
Grazie,
Simone

per quanto riguarda perl, installa activeperl
e cambia la prima linea di ogni script perchè punti al binario di perl
#!c:/perl/bin/perl.exe
per abilitare una dir alle cgi con iis, chiedi su un newsgroup micro$oft
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.perl
Titolo: GD per Win32

Salve a tutti,
ho iniziato a lavorare da poco su Perl e avrei una domanda: ho installato la
versione piu' recente di ActivePerl (build 518) e mi piacerebbe poter usare
qualche modulo per la generazione automatica di immagini (il GD o simili).
Il problema e' che non riesco a usare il GD, perche' mi ricevo il messaggio
'Can't locate object for module GD in @INC ....', come se mancassero i file
.PM o .PLL, che invece sono al loro posto (il .PM e' sotto \PERL\LIB e il
.PLL e' sotto \PERL\LIB\AUTO\GD) : devo installare una versione piu' vecchia
di Perl (mi spiacerebbe) oppure sbaglio qualcosa io ???
Grazie in anticipo.
Saluti.    Cris Di Sclafani


devi installare una versione più nuova di GD !!!
i files PLL sono per i build della serie 300. per trovare una versione
aggiornata vai a:
http://www.activestate.com/packages/zips/
scaricati GD.zip e leggiti il readme per l'installazione.
good luck! ;-)
__END__
# Aldo Calpini
print sort {$_{$a} cmp $_{$b}} values %{{split undef,
"xritajbugne fahokem csuctawer jhdtlrnpqloevkshpr"}};

Ciao,
grazie mille, ha funzionato !!!!
Grazie e ciao da Cris
Newsgroup: it.comp.lang.perl
Titolo: OKKEY

Consigli su un buon manuale di PERL da acquistare che non sia scritto da
ERIC HERMANN?

ERIC HERMANN?
Wall, Christiansen, Orwant: Programming Perl, 3rd edition
	(O'Reilly & Associated)
		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!


Colgo l'occasione, qualcuno ha visto la terza edizione? e mi sa dire se per un
felice possessore della seconda vale la pena "l'upgrade"?
Immagino che la risposta sia "si" e so gia' che finiro' per prenderla, ma mi
interessava il parere di qualcun altro.
-- 
Saluti,
Giancarlo

interessava il parere di qualcun altro.
Io ho avuto tutte e tre le edizioni del libro. La terza e` sicuramente ottima,
ampliata moltissimo e con nuove sezioni. L'acquisto non e` strettamente
indispensabile, se usavi il precedente solo come guida di riferimento forse
non serve... pero` e` fortemente consigliabile, gran libro! ;-)





non serve... pero` e` fortemente consigliabile, gran libro! ;-)
Temevo una risposta di questo tipo... da una parte dice "Compralo!" dall'altra
"Non e' poi cosi' importante..."  :-)
-- 
Saluti,
Giancarlo

Ma è in italiano?
Per fortuna NO :)
-- 
Saluti,
Giancarlo

Newsgroup: it.comp.lang.perl
Titolo: [?] Libri

Ciao a tutti,
    scusate l'intrusione.
Qualcuno può indicarmi qualche buon libro per imparare il Perl da zero?
Considerate però che sono un programmatore e che quindi posso evitare quei
libricini gialli per deficenti e/o quelli del tipo "imparare il perl in 21
giorni".
Ciao e grazie a tutti.

 wrote in message 82tpk2$hqq$1...@nslave2.tin.it...


Umberto Meroni
Oh, chi si vede!
Ciao, comunque non lascerņ il VB, che č la mia passione (cedo invece
volentieri il Delphi in cabio del Perl, che mi servirą per scrivere CGI)


 
Ho appena acquistato (amazon) "Effective Perl Programming" che
almeno a me, non professionista, pare ben fatto. E' di
complemento al "classico" di cui sopra.
-- 
	Dino

Newsgroup: it.comp.lang.perl
Titolo: cerco modulo, aiuto!





Salve a tutti,


qualcuno mi saprebbe dire se c'e' un modulo che si 
accorge che e' arrivata una mail e mi scarica l'allegato in una cartella 
predefinita in locale?


Ho provato a dare un'occhiata sul sito cpan ma e' 
un labirinto!!!


Grazie a tutti!!!



 Ho provato a dare un'occhiata sul sito cpan ma e' un labirinto!!!
Non esistono moduli che fanno queste cose, esistono programmi che si
chiamano per esempio Eudora o Outlook...
per fare un'operazione del genere in perl puoi percorrere due strade:
A) scrivi un software che interroga a intervalli regolare (lo metti in
crontab) il server POP (usando Net::POP3), scarica la posta e converte gli
allegati (usando il modulo MIME::Base64); oppure, meglio:
B) redirigi la casella al tuo programmino (nel file /ets/aliases scrivi
qualcosa tipo ordini: "|/usr/local/
mioprogrammino.pl
"); in questo modo il
programma viene attivato quando riceve la posta, se la guarda in standard
input e ci fa tutto quello che vuoi.
bye
silvio
Newsgroup: it.comp.lang.perl
Titolo: Asino perl cerca aiuto

Sapreste indicarmi una buona guida per il perl da trovare in rete???
grazie per la collaborazione (me lo mandreste a: 
ge...@tes.mi.it
)

Sapreste indicarmi una buona guida per il perl da trovare in rete???
http://www.perl.com
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

Newsgroup: it.comp.lang.perl
Titolo: mi potete aiutare ??????

Ho bisogno del vostro aiuto.
Dovrei estrapolare da una stringa del tipo :
Identities = 74/74 (100%)
il valore di 74 per inserirlo successivamente in un array.
Come posso fare, forse la domanda e' banale , ma sono un neofita.
Grazie. Antonello

 il valore di 74 per inserirlo successivamente in un array.
Quale dei due 74?
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: Ricerca di stringa in altra stringa

Ciao. Ho bisogno di un favore.
Ho una variabile PIPPO che continene una stringa.
Ho poi un'altra variabile PLUTO che continene un'altra stringa.
Come faccio a sapere se PLUTO e' contenuta in PIPPO in una qualsiasi
posizione?
Es.:   PIPPO = "Oggi piove"
         PLUTO = "iov"
Grazie mille

          PLUTO = "iov"
in un ciclo if 
$PIPPO="Ciao come stai";
$PLUTO="com";
if ( $PIPPO =~/$PLUTO/ )
        {
        print "Ciao besugo\n\n";
        }
ciao
nuxun

 Grazie mille
$quotedPluto = quotemeta($pluto);
if ($pippo =~ m/$quotedPluto/){
#pippo contiene pluto
}else{
#pippo non contiene pluto
}
L'applicazione della funzione quotemeta a pluto e' necessaria se e solo se
pluto puo' contenere caratteri speciali per l'operatore di match, ad
esempio:
$pippo = "c:\miacartella\miofile";
$pluto = "miacartella\miofile";
$quotedPluto = quotemeta($pluto);
$pippo =~ m/$pluto/ e' falso, perche' equivale a $pippo =~
m/miacartella\miofile/ (nota che "\m" non e' un carattere speciale, per cui
equivale ad "m")
$pippo =~ m/$quotedPluto/ e' vero (come probabilmente desideri), perche'
equivale a a $pippo =~ m/miacartella\\miofile/
Spero di averci preso (non ho fatto prove, e con il pattern matching mi
incasino spesso).
Ciao
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)

Newsgroup: it.comp.lang.perl
Titolo: Copia e incolla

Volevo creare dei tastini per il copia e incolla e taglia, quali sono i
comandi!?!
Grazie in anticipo

 comandi!?!
Non ci sono.
Tenta in un altro newsgroup.
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: a cosa serve - in un hash?

Ciao a tutti, sto incominciando a programmare in perl e mi è capitato
un listato in cui c'era questa sintassi:
$q->param(-name=>"Format",-value=>$tag);
e cercando su google o sui libri di perl non ho trovato nessun
riferimento al significato dei - in un hash.
potete illuminarmi? possibilmente senza darmi fuoco se la domanda è
stupida ;)

 stupida ;)
E' una vecchia convenzione, ormai in disuso, per mettere meglio in 
evidenza le chiavi dell'hash nel caso di utilizzo dello stesso per il 
passaggio di parametri a una subroutine.
S'ispira ai command-line parameter delle applicazioni che usano getopt e 
similari.

 > potete illuminarmi? possibilmente senza darmi fuoco se la domanda è

Newsgroup: it.comp.lang.perl
Titolo: Interpretare questo breve script...

Salve,
come da oggetto, qualcuno mi aiuta ad interpretare questo script? Il perl è
un linguaggio che non conosco e, sebbene a naso ho capito che dovrebbe
succedere, alcune istruzioni non so assolutamente che significhino. Lo
script in questione è preso dall'url:
http://www.logiman.com/pag/zyxip.php
e dovrebbe prelevare l'ip pubblico assegnato ad un router.
Questa è esattamente la mia esigenza e se capisco che fa questo script
magari riesco a fare la stessa con altri lingiaggi e con il mio router
(d-link).
#!/usr/bin/perl
my $zyxelrouter = '192.168.0.1';
my $pw = '1234';
-- fin qui è tutto chiaro :))
use strict;
use warnings;
use Net::Telnet;
-- suppongo che carichi dei mouduli...o qualcosa del genere...
my $cn = new Net::Telnet(Host => $zyxelrouter, Timeout => 2);
-- dovrebbe aprire una connessione telnet verso il router
$cn->waitfor(String => "Password: "); $cn->print("$pw\n");
-- se ho capito bene aspetta che appaia la scritta "Password:" per passargli
quella definita in $pw (si sta loggando insomma...)
$cn->waitfor(String => "[21;56H"); $cn->print("24\n");
$cn->waitfor(String => "[21;56H"); $cn->print("8\n");
-- come sopra, aspetta che appaiano quelle due scritte per passargli i
valori in esame. (Non so assolutamente a cosa serve...)
$cn->waitfor(String => ">"); $cn->print("ip ifconfig wanif0\n");
-- aspetta il prompt per "digitare" il comando "ip ifconfig wanif0"
(e chi sa quale sarà il comando da lanciare sul mio router...)
my $if;
-- crea una istanza di $if ?!?!? (questa riga la ignoro)
while ($_ = $cn->getline) {
  ($if) = /inet (\d+\.\d+\.\d+\.\d+), netmask/ and last;
}
-- presumo che in "$cn->getline" ci sia il risultato del comando lanciato,
quindi l'ip del router. Non so invece che è $_. Mi da l'idea di una
variabile di sistema ma...non ho idea cosa possa contenere, quindi non so
quando quel ciclo si interrompe.
A seguire non so cosa avviene all'interno del ciclo.
printf "%s\n", defined $if ? $if : '???';
-- scriverà qualcosa...
$cn->waitfor(String => ">"); $cn->print("exit\n");
-- aspetta il prompt e "srive" exit
$cn->waitfor(String => "[21;56H"); $cn->print("99\n");
-- aspetta questa seconda riga e scrive 99 (non so a cosa serve)
exit 0;
-- è concluso lo script? :)))
Questo è quello che ho capito...grazie a chi mi aiuterà :)
Saluti...
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 il valore trovato ed esce dal ciclo while.
Perchè nel ciclo ogni volta crei una istanza di $line?
 
Comunque nel complesso ho capito...adesso devo solo provare quale comando
sul mio router mi restituisce l'ip. Farò un paio di prove direttamente via
telnet.
Grazie, saluti...


"particolare"?
E' un variabile qualunque, immagino che il mnemonico sia qualcosa come
"i(nter)f(ace) (configuration)".
Ciao.

 telnet.
Una curiosità... ti serve per caso a sapere l'IP dinamico che il provider 
assegna al tuo router?
Non fai prima a usare un sito web del tipo 
http://www.whatismyip.com
 ?
Newsgroup: it.comp.lang.perl
Titolo: split directory

Salve,
       sapete se esiste un modulo o un altro modo per ottenere da una 
variabile:
$path = "/Users/Larry/Desktop";
ua array che contenga:
 $array[0] = "/";
 $array[1] = "/Users/";
 $array[2] = "/Users/Larry/";
 $array[3] = "/Users/Larry/Desktop/";
grazie a chiunque mi aiuterà,
ciao

 $path = "/Users/Larry/Desktop";
Non esattamente quel che chiedi, ma la prima cosa che viene 
in mente č:
  use strict;
  use warnings;
  use File::Spec;
  my $path = "/Users/Larry/Desktop";
  my @dirs = File::Spec->splitdir( $path );
  print join "\n", @dirs;
Che produce in output (occhio alla prima riga vuota):
  ---
  Users
  Larry
  Desktop
  ---
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it

Newsgroup: it.comp.lang.perl
Titolo: Net::IRC

qualcuno ha della documentazione su Net:IRC? i link che ho trovato non
funzionano
mi sono messo in testa di scrivere un client irc in perl, pero' non e'
che sia una cima col perl, ho modificato un po' irctest che c'e' dentro
il gz del Net::IRC, ma non funziona, se pero' qualcuno c'ha qualche doc
che potrebbe passarmi mi leggo quello e ci riprovo
crazie e bau

mi sono messo in testa di scrivere un client irc in perl, pero' non e'
Ne esiste gia` uno, cercalo su freshmeat o in debian.
Ma ti anticipo che scrivere un buon client in perl e` molto complicato,
e` meglio scriverne uno in C e interfacciarlo a un motore di scripting
in perl.
-- 
ciao, | * The Internet is full. Go away.  -- Joel Furr *
Marco | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

 Marco | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it
bhe, mi immaginavo che era difficile, pero' il c non lo conosco per
niente, il perl invece un po' si, eppoi mi sono fissato col perl
http://gecco.mobilia.it
 (non prendetelo con tono serioso)

 crazie e bau
bastava fare man Net:IRC :)))

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

qualcuno ha un semplicissimo script per realizzare un contatore di accessi
a una pagina, in modo da poterlo studiare per capire come si fanno?
grazie...

a una pagina, in modo da poterlo studiare per capire come si fanno?
Dai un'occhiata a:
 
http://www.worldwidemart.com/scripts/
Ci sono vari script che puoi scaricare e studiare.
	Miky.
-- 
Michele Beltrame
Italpro - Power Web Services
mi...@io.com
http://www.italpro.com/mb
Newsgroup: it.comp.lang.perl
Titolo: ottimizzare replace

Ho scritto questa funzione:
sub scriviTemplate {
     my ($filename, %vars) = @_;
     my ($riga);
     open(TEMPL,"<$filename")
         || die("Errore: impossibile aprire il file $filename");
     while ($riga = <TEMPL>) {
         while( my ($key,$value) = each(%vars)) {
             $riga=~s/\@\@$key\@\@/$value/g;
         }
         print $riga
     }
     close(TEMPL);
}
che, come vedete, apre un file di testo e lo stampa sostituendo tutte le 
occorrenze di chiavi come @@KEY@@ con dei corrispondenti valori, presi 
dalla hash di input. Mi sembra perï¿œ che fare due iterazioni (sulle righe 
e sulle chiavi) sia molto dispendioso. Probabilmente sarebbe meglio 
leggere l'intero file in una stringa, e fare le sostituzioni. O forse 
ancora meglio fare una unica sostituzione con tutte le chiavi.
Non ho molta esperienza col perl, mi potreste suggerire come si fa?
E.

 Non ho molta esperienza col perl ...
Perchï¿œ dedichi troppo tempo a Python (comunque non te la cavi male 
neanche col Perl ;-)
Ciao
-Emanuele

 neanche col Perl ;-)
Grazie troppo buono. Purtroppo col Perl mi ritrovo a fare le cose per 
emulazione e per tentativi. Il Python lo conosco poco ma mi piace molto. 
Ma la mia lingua madre ï¿œ il C++.
E.

 ...come dovrei fare per passare una reference?
 scrivi_template( 'template.txt', {
        "PIPPO" => $pippo, 
        "PLUTO" => $pluto   }  );
MM

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

Ho una stringa cosě composta = "Via%20Trento".
Vorrei creare una nuova stringa contenente solo "Trento" sapendo che la
stringa precedente č sempre composta da via (o da Piazza, largo, ecc. parole
memorizzate dentro un'array) poi c'č il carattere "%20" e poi il testo che
mi interessa con anche gli eventuali spazi compresi.
Come risolvere? io ho provato con &new = &stringa =~ /($vie)(.*?)/i    , ma
non mi ci finisce nulla dentro....dove sbaglio?
Grazie e ciao
Alessio "Gazza" Galli

Gazza wrote:

Le RE sono uno strumento potente ma non sempre sono la soluzione migliore:
	$what=(split /%20/,$mystring)[1]
Se proprio, invece, non riesci a farne a meno:
	$mystring=~/.+%20(.+)/;	
	$what=$1
-- 
Baci,
Mony

 ha scritto nel messaggio
news:a8urf5$qlv$1...@newsreader.mailgate.org...

Grazie mille.
ciao
Alessio "Gazza" Galli
Newsgroup: it.comp.lang.perl
Titolo: Re: script perl per archivio frasi

 Al momento ho del codice in PHP, ma mi serve in Perl.
Lo so, e' un barbatrucco, non una risposta. Pero', potresti fare un bel
$frase=`fortune quote`;
print $frase;

frase casuale.
Esiste (naturalmente) un pacchetto (Fortune), che dovrebbe fare tutto
quello che chiedi.
Ciao.

"fortune". Cioč quello che fa quel codice in PHP.
E quindi?
   use CGI qw/:standard/;
   use Fortune
   my $fortune_file = new Fortune("nome file fortune");
 
   $fortune_file->read_header();
   my $fortune = $fortune_file->get_random_fortune();
   print header();
   print start_html("Fortune")
 
   print h1($fortune);
 
   print end_html();
Se non puoi installare sul server il pacchetto Perl Fortune (ma dici di
averlo "linkato", qualsiasi cosa questo voglia dire), dai un'occhiata al
codice di Fortune.pm e vedi se ti riesce di duplicarlo.
Ciao.

averlo "linkato", qualsiasi cosa questo voglia dire)
Ah, dici "pubblicato un link che punta al modulo"?
No, non hai pubblicato nessun link a nessuna pagina che faccia riferimento
al modulo Perl Fortune!
Ciao.

messaggio, ora non posso.
Neanch'io (ci sarà come minimo qualche errore di sintassi). Il modulo 
comunque è molto semplice e non dovresti avere problemi.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: Re: consiglio libro.

 fatto qualche piccolo script in perl?
Io ho questi libri in formato elettronico:
-Perl in a Nutshell
-Learning Perl
-Learning Perl on Win32 Systems
-Programming Perl
-Advanced Perl Programming
-Perl Cookbook
Sinceramente non so come siano usciti dalla casa editrice, ma si 
possono trovare facilmente nelle comunita' di file-sharing cercando 
"ebook O'Reilly", naturalmente sulla legalita' di questa cosa ci 
sarebbe da ridire :-)
	Brownout

 fatto qualche piccolo script in perl?
learning perl
programming perl  (terza edizione)
Bye
Newsgroup: it.comp.lang.perl
Titolo: Problem with libwww and HTTP 200, HTTP 302 response messages

I'm issuing the following GET method to a
server trough libwww:
require LWP::UserAgent;
require HTTP::Request;
require HTTP::Headers;
my $UserAgent = new LWP::UserAgent;
my $hdr1 = new HTTP::Headers;
$UserAgent->agent('Mozilla/2.0 (compatible; MSIE 3.02; Update a; AK;
Windows 95)');
	$hdr1->header(Connection => 'Keep-Alive', 
			Host => '
www.soldionline.it
', 
			Accept => 'image/gif, image/x-xbitmap,
image/jpeg, image/pjpeg, */*',
			Referer => '
http://www.soldionline.it
');
my $request = new HTTP::Request('GET',
'
http://www.soldionline.it/quotazioni/02.rtq
', $hdr1);
my $response = $UserAgent->request($request);
If I  print $request->as_string,  I have
GET 
http://www.soldionline.it/quotazioni/02.rtq
Connection: Keep-Alive
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*
Host: 
www.soldionline.it
Referer: 
http://www.soldionline.it
User-Agent: Mozilla/2.0 (compatible; MSIE 3.02; Update a; AK; Windows
95)
Like response I have :
HTTP 200 OK
Connection: close
Date: Sun, 16 Jan 2000 14:31:25 GMT
Accept-Ranges: bytes
Server: Apache/1.3.6 (Unix) ApacheJServ/1.0
Content-Length: 4012
Content-Type: text/html
ETag: "8bfa2-fac-38301445"
Last-Modified: Mon, 15 Nov 1999 14:10:13 GMT
Client-Date: Sun, 16 Jan 2000 11:29:46 GMT
Client-Peer: 
127.0.0.1:2222
Title: SoldiOnline Daily
If I issue the same request trough a proxy I have the same result
on print response->as_string (HTTP 200 OK), but if I see the log of
the 
proxy I can see something like
T4 01/13 21:39:48 Server Data: HTTP/1.1 302 Found{0D}{0A}
T4 01/13 21:39:48 Server Data: Date: Thu, 13 Jan 2000 23:41:33
GMT{0D}{0A}
T4 01/13 21:39:48 Server Data: Server: Apache/1.3.6 (Unix)
ApacheJServ/1.0{0D}
T4 01/13 21:39:48 Server       {0A}
T4 01/13 21:39:48 Server Data: Set-Cookie:
JServSessionId=3fdf98ba6557a620.40405
T4 01/13 21:39:48 Server       5.947806893500; path=/{0D}{0A}
T4 01/13 21:39:48 Server Data: Location:
http://www.soldionline.it/rap/registraz
T4 01/13 21:39:48 Server       ione.html{0D}{0A}
T4 01/13 21:39:48 Server Data: Connection: close{0D}{0A}
T4 01/13 21:39:48 Server Data: Content-Type: text/html{0D}{0A}
T4 01/13 21:39:48 Server Data: {0D}{0A}
I mean a 302 Redirection.
If I issue the same request trough a browser like Netscape 3.0 I
receive
a 302 redirection anyway (with or without  the proxy)
Does someone knows why I have a 200 instead of a 302 response ?
Thank you in advance
Massimiliano

 Does someone knows why I have a 200 instead of a 302 response ?
You are probably seeing just the final status ... that of the
successful redirect. Try the following bit to see what's actually
happening:
#!/usr/bin/perl
use LWP::UserAgent;
use LWP::Debug qw(+conns);
$URL = '
http://www.soldionline.it/quotazioni/02.rtq
';
$ua = LWP::UserAgent->new;
$request = HTTP::Request->new(GET => $URL );
$response = $ua->request($request);
__END__
This should show you everything that's happening.
Hope that helps
Pat
--
$monger{Omaha}[0]
Patrick Timmins
ptim...@itd.sterling.com
Sent via Deja.com 
http://www.deja.com/
Before you buy.
Newsgroup: it.comp.lang.perl
Titolo: passaggio di parametri a script

Da una forma passo i parametri ad uno script Perl e li osservo con una
semplice iterazione
foreach my $param ($q->param) { print $q->p($param . ' = ' .
$q->param($param)) };
quest'ultima mi permette di risparmiare parecchie righe di programma,
in questo modo posso visualizzare tutti i parametri con una sola riga.
Il problema che ho, può riassumersi con il famoso detto (oramai in
disuso) "troppa grazia Sant'Antonio", infatti oltre agli elementi della
form mi visualizza anche il bottone, vale a dire nome del bottone =
valore del bottone.
Potrei risolvere il problema con una condizione all'interno
dell'iterazione, però vorrei trovare qualcosa di più elegante.
Qualcuno/a ha un'idea?
Ringrazio in anticipo
Oreste

Forse ho trovato una soluzione abbastanza elegante
foreach my $param ($q->param) {
next if $param eq 'xxx';
print $q->p($param .' = '. $q->param($param)); 
};
Oreste
Newsgroup: it.comp.lang.perl
Titolo: mod_perl + directoryindex - problema

Ciao a tutti,
ho un problema nell'impostare la pagina iniziale di un sito (generata da
modperl) con la direttiva directoryindex
Premetto che utilizzo Apache 1.3.27.e mod_perl 1.27
Il mio problema e' quello di impostare la pagina iniziale del sito quando
l'utente ne digita solo il nome.
Ho provato le seguenti soluzioni
DirectoryIndex pippo
<Location /pippo>
    SetHandler perl-script
    PerlHandler Apache::Main
</Location>
:
che non funziona proprio, nel senso che se io digito
www.miosito.com
ottengo il listiong della directory root (o forbidden se l'ho disabilitato).
Ho quindi provato con
<Location />
    SetHandler perl-script
    PerlHandler Apache::Main
</Location>
(senza directoryindex e ponendo la location uguale a /)
Funziona per la pagina iniziale, ma TUTTE le pagine del sito vengono
redirette alla pagina iniziale!!!
Ho trovato una soluzione con
  DirectoryIndex index.html
  redirect /index.html 
http://www.miosito.com/main/
<Location /main/>
    SetHandler perl-script
    PerlHandler Apache::Main
</Location>
ma si tratta di una redirezione vera e propria, che e' visibile nella riga
degli indirizzi del browser, ove compare
http://www.miosito.com/main
per cui la terrei come ultima risorsa.
Qualcuno sa come fare?
GRazie
Mauro

 
Proprio non ti piace vedere la URI /main nel path vero? :-)
Allora fai semplicemente:
   <LocationMatch "^/$">
      SetHandler perl-script
      PerlHandler Apache::Main
   <LocationMatch> 
e solo la URL 
http://www.miosito.com/
 verrà gestita dal tuo handler.
Ricordati che però così avrai problemi nell'utilizzare Apache::Main come
dispatcher nel caso tu usassi le informazioni nel path ($r->path_info)
by
	- Enrico

dispatcher nel caso tu usassi le informazioni nel path ($r->path_info)
Me la puoi spiegare meglio?
GRazie
Mauro



Ad esempio 
http://www.miosito.com/login
 non verrà gestita da Apache::Main.
Potresti infatti utilizzare all'interno di Apache::Main il valore 
di $r->path_info (che conterrebbe il valore '/login') per gestire
un'ipotetica login utente.
by
	- Enrico

un'ipotetica login utente.
Ho capito, non credo che nel mio caso questo crei problemi (tendo ad
associare una location per pagina)
Grazie mille
Mauro

Newsgroup: it.comp.lang.perl
Titolo: come creare un array in runtime?

Ho il seguente codice (errato)
foreach $IdCODD (@codd)
{
    @avg=();
GetArrayValue(... , \@avg , ...);
push(@array_data,\@avg);
}
GetArrayValue calcola dei valori e li inserisce in @avg
avg viene poi inserita in un array di array.
Visto che si sta lavorando con i puntatori... di fatto l'array inserito
in array_data e l'array usato da GetArray è lo stesso.
Come posso creare di volta in volta un array per poterlo usare in modo da
passarlo alle varie funzioni ed inserirlo in array_data senza usare lo
stesso.
?
Spero di essere stato chiaro,
Grazie in anticipo, Mario.

 lo stesso.
Dichiari @avg con 'my' all'interno del loop.
Per inciso, è buona norma dichiarare tutte le variabili con 'my' e
aggiungere 'use strict' all'inizio di tutti i programmi.
Max
Newsgroup: it.comp.lang.perl
Titolo: estrarre singole ripetizioni

Salve a tutto il NG.
Ho questo problema :
ho un file che contiene molte stringhe del genere "ID=qwertyuiop" 
composto da un numero variabile di caratteri dopo l'=.
Io devo estrarre queste stringhe escludendo quelle gia' estratte.
Questa e' la mia soluzione, scusatemi ma sono un novellino di perl e 
della programmazione in generale :
$infile = 'C:\info.htm';
$outfile = 'C:\output.txt';
$tmpfile = 'C:\temp.txt';
open(INFILE,$infile);
open(OUTFILE,">",$outfile);
open(TMPFILE,"+>",$tmpfile);
while (<INFILE>){
			if (/.+(ID=.+)','scrollbar=auto'/){
				 print TMPFILE $1," * ";
			}
}
print TMPFILE "\n";
$tmp = <TMPFILE>;
if ($tmp =~ /(ID=.+)\ \*\ /g){
		 print OUTFILE $1,"\n";
}
close(TMPFILE);
close(INFILE);
close(OUTFILE);
Sto impazzando.
Ottengo due file uno temp.txt che contiene quello che mi aspetto e 
output.txt che anziche' contenere le occorrenze singole e' uguale a 
temp.txt.
Questo un estratto del file temp.txt :
ID=uAP4btFG9ovMP% * ID=uAP4btFG9ovMP% * ID=uAP4btFG9ovMP% * ID=S5v%
2BwxVrcBpELtMUmt * ID=S5v%2BwxVrcBpELtMUmt * ID=S5v%2BwxVrcBpELtMUmt * 
ID=S5v%2BwxVrcBpELtMUmt * ID=LhPjr1RTO * ID=LhPjr1RTO * ID=LhPjr1RTO * 
ID=LhPjr1RTO etc.etc.
Vi prego aiutatemi.
Ciao a tutti

}
Francamente, non ho capito bene perché apri $tmpfile in lettura e
scrittura, che cosa ti aspetti di leggerci, e perché dall'operazione ti
aspetti che elenchi le singole occorrenze. Un problema dell'espressione
regolare su TMPFILE è probabilmente che il gruppo (ID=.+) prende dentro
troppa roba. Non so però, vista la premessa, se mi convenga seguire questa
traccia.
Preferisco dirti come risolverei io la cosa (sperando di aver capito quale
sia la cosa da risolvere). Io metterei tutte le occorrenze dentro un hash
(eventualmente su disco, se ci sono davvero moltissimi dati), estraendo
tutto alla fine:
    $outfile = 'C:\output.txt';
    $tmpfile = 'C:\temp.txt';
    open(INFILE,$infile);
    my %occorrenze;
    while (<INFILE>){
        if (/.+(ID=.+)','scrollbar=auto'/){
            ++$occorrenze{$1};
        }
    }
    close(INFILE);
    open(OUTFILE,">",$outfile);
    for my $stringa (keys %occorrenze) {
        print OUTFILE $stringa, "\n";
    }
    close(OUTFILE);
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Esiste un package Pure Perl per manipolazione immagini ?

L'uso del caro e vecchio GD entra in conflitto con Vista, gli stessi
identici programmi giravano con XP.
Per tagliare la testa al toro cerco qualcosa in Pure Perl che si possa
utilizzare come package perchè un modulo non potrei installarlo sul
server del provider.
Grazie

 identici programmi giravano con XP.
Scusa ma mi perLplimo. Se vuoi passami qualche script di prova: ho Vista 
ma non riscontro problemi di sorta (se si esclude Vista stesso).

Oreste wrote:

Oreste, credo la causa di tutti i tuoi problemi sia quella cui ha 
accennato Andrea qualche messaggio fa: probabilmente hai un mix di 
package PPM per Perl 5.8 e per Perl 5.10.
Tieni presente che Perl 5.8 e 5.10 *non* sono /binary compatible/, 
quindi ogni versione di Perl richiede i suoi *specifici* PPM (binari).
Siccome di package PPM perl Perl 5.10 ce ne sono ancora pochi, la cosa 
migliore da fare è:
1. pulisci tutto;
2. reinstalla *esclusivamente* Perl 5.8.8;
3. reinstalla i PPM *esclusivamente* per Perl 5.8.8.
Per i PPM usa questo repository:
http://trouchelle.com/perl/ppmrepview.pl
per mettere il quale dentro ppm basta:
ppm rep add 
trouchelle.com
 
http://trouchelle.com/ppm/
(Anche questo l'aveva già detto Andrea ;-)
Se vuoi puoi utilizzare Perl 5.10 (ma è meglio aspettare che arrivino 
altri PPM e che esca almeno la 5.10.1): in ogni caso dovrai parimenti 
utilizzare *esclusivamente* i PPM 5.10 e *non* quelli 5.8.
Ciao,
Emanuele.

 2. reinstalla *esclusivamente* Perl 5.8.8;
Ah dimenticavo, prendi ActivePerl *32-bit* (x86), anche se hai vista 
64-bit (e incrocia le dita).
(E anche questo Andrea l'aveva già detto ;-)
Ciao!

On Mar 6, 6:22 pm, Emanuele Zeppieri

In effetti il problema deve essere il mix di package, avevo già
risolto alcuni problemi sostituendo la 5.10 con la 5.8, mi devo
trasformare in spazzino e ripulire tutto.
Scusate per il panico.
Ciao

Newsgroup: it.comp.lang.perl
Titolo: Richiamare uno script perl da un'altro script

Ciao,
e' possibile, da uno script Perl far eseguire un'altro script (e nel
frattempo il primo rimane in wait) e al termine dello script chiamato
continuare l'esecuzione del primo script?
Ho provato ad usare system(), ma sembra funzioni solo con comandi di
sistema.
Grazie mille a chi sapra' aiutarmi (magari anche dicendomi solo dove
posso trovare indicazioni in merito)
Ciao
	Dudu



Il problema e' identico alla questione degli include, ovvero la soluzione e' 
'do'
do '
programma.pl
'
Naturalmente anche system deve funzionare, a patto che gli dai le
informazioni giuste. system() esegue qualsiasi cosa.
 system('perl 
programma.pl
');
 
oppure, se il programma e' eseguibile, si trova nel path ecc. ecc. 
 system('
programma.pl
');
 
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

On 25 Mar 2000 22:12:39 GMT, 
mmmu...@netscape.net
 (Maurizio M.
Munafo`) wrote:
Grazie mille. Mi hai risolto un grosso (per me) problema.
Ciao
	Dudu

Newsgroup: it.comp.lang.perl
Titolo: Problema perl su NT ! Aiuto !

Salve e' la prima volta che posto quindi non assalitemi se e' stato gia'
trattato l'argomento !
Dunque ho un server NT con IIS 4 e Active Perl 5.01 installato, ora dopo che
configuro qualsiasi script .pl nella cgi-bin con i vari permessi ecc. quando
provo lo script tramite una pagina web il server risponde "The specified
module could not be found" questo e' tutto !
Chi mi aiuta ?
Potete rispondermi anche in eamil in ICQ al telefono dove vi pare !
Grazie Saluti Luciano Talarico
--
*********************************************************
  Luciano Talarico Web Design & Multimedia
    Tel. 0347 6941362 - ICQ #42467114
www.luciano.lamezia.net
 - 
luc...@lamezia.net
Visitate Area Multimediale il divertimento on line !!!
 
www.area.lamezia.net
 - 
ar...@lamezia.net
*************************************************************
Lamezia.Net Internet Provider
powered by Microelettronica s.n.c.
Via A. Volta, 7 88046 Lamezia Terme, Cz
Tel. 0968 21248 Fax 0968 447496
email 
in...@microelettronica.it
email 
in...@lamezia.net
Web 
www.microelettronica.it
Web 
www.lamezia.net

Chi mi aiuta ?
Spesso l'installer non setta la chiave di registry, anche se dice che
lo fa...
HKLM\SYSTEM\CurrentControlSet\Services\W3SVC\Parameters\Script Map\
Qui crei una REG_SZ:
".pl"="C:\PERL\BIN\PERL.EXE %s %s"
Sostituisci al C:\PERL\BIN\PERL.EXE il path per il PERL.EXE se
diverso, ed okkio che i due %s devono essere minuscoli.
Poi stoppa e ristarta il WorldWide Web Publishing.
------
bale...@dada.it
 
http://zap.to/balestra
  ICQ#:14303012
" Ora mai che i baci tuoi piu' non mi sazian
  cerchero' un'altra donna dentro ai sogni di Tarzan... "

Newsgroup: it.comp.lang.perl
Titolo: Perl e Tk

Ciao a tutti,
mi potreste dire dove trovae materiale (tutorial esempi e cose del
genere) sull'uso di Tk in Perl ?
Grazie 1000
--
Posted from 
king.madnet.it
 [195.223.65.2]
via Mailgate.ORG Server - 
http://www.mailgate.org

 wrote:
: mi potreste dire dove trovae materiale (tutorial esempi e cose del
: genere) sull'uso di Tk in Perl ?
Dovrebbe essere uscito un libro della O'Reilly, poi ci sono newsgroups e
mailing lists a volonta` (
comp.lang.perl.tk
).
-- 
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) ns (dot) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nandos
Newsgroup: it.comp.lang.perl
Titolo: Unlink : come fare a ...?

Ciao a tutti ! Premetto che sto studiando perl da poco ...
Ho fatto uno script , per cancellare dei file inutili , tipo:
#!/usr/bin/perl -w
$a = "/home/pippo/prova.1";
$b = "/home/pippo/prova.2";
$c = "/home/pippo/prova.3";
unlink $a,$b,$c;
ed e' tutto ok .
Pero' non riesco a capire come devo fare per riunire il tutto, tipo: 
$a = "/home/pippo/prova.[1-3]";
 
Cosi' non li cancella tutti e tre : come e' la sintassi esatta ?
Grazie e ciao.
 
-- 
 	"Anche il viaggio piu' lontano inizia dal primo passo."
                                    	    ( Lao Tsu )

 
Ciao,
la risposta e' fittizia... ma ce ne sono moltissime.
#!/usr/bin/perl -w
$path = "/home/pippo/prova.";
@suffix = ('1', '2', '3');
foreach (@suffix) {
   unlink $path . $_;
}
Ma sarebbe meglio studiare un modo migliore. Questo e' proprio
spartano...
Massi

Newsgroup: it.comp.lang.perl
Titolo: Estrarre dati da un link dinamico

Gentili,
non s se quest č il newsgrup piů indicato, ma avrei bisogno di saper se č
possibile estrarre direttamente in formato .CSV , i dati da questo sito:
http://it.table.finance.yahoo.com/d?b=1&a=0&c=1995&e=20&d=8&f=2002&g=d&s=eni
.mi
Una volta te la cavavi con un '&f=sl1d1t1c1ohgv&e=.csv' in coda alla string,
ma ora non funziona !!
Grazie

 non s se quest è il newsgrup più indicato, ma avrei bisogno di saper se è

Newsgroup: it.comp.lang.perl
Titolo: Help su flock()

Salve.
Torno a chiedere consiglio su come intercettare un eventuale
fallimento di flock() in un CGI PERL su Linux.
Sto utilizzando un classico script di mail che oltre ad inviare la
mail ne stampa una copia su un file di log, e tutto finora funziona
perfettamente. Per prevenire tentativi di scrittura contemporanea sul
file di log da parte di piu' processi credo che il lock esclusivo sia
necessario, o no? come potete capire non ho ancora una grande
esperienza di PERL e di Linux.
Grazie per l'attenzione.
gibu...@REMOVEMEtiscalinet.it

 fallimento di flock() in un CGI PERL su Linux.
Per un flock in scrittura (il tuo caso), dovrebbe bastare:
flock(FILE, 2) || warn "Il flock va a farsi benedire.";
Non l'ho mai testato, ma a logica dovrebbe andare!
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....