mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Aiuto !!!!!!!!!!!! Sono ben accetti consigli e modifiche

Sto implementando una routine che a determinati intervalli di tempo, mi vada
a pescare informazioni da un sito. Il problema, seppur semplice, mi ha fatto
arrovellare senza successo.
Ho lavorato circa in questo modo :
$t = gmtime;
$t1 = $t;
while( $t1 == $t ){
    $t = gmtime;
    $minuti = substr($t,14,2); # estrapolo il valore dei minuti
    if($minuti_new == $minuti ){
        $page = 'http://.....'
        $minuti_new = $minuti + 1; # 1 č intervallo che intercorre tra un
refresh delle
                                                            info e l'altro
     ....................
    }
}
Ora il fatto č che non riesco ad ottenere la temporizzazione: o il programma
mi va a pescare le informazioni ad ogni cilo di clock (30 -50 ogni secondo),
o niente (a causa della codizione $minuti_new == $minuti).
Sono ben accetti consigli e modifiche alla routine, meglio ancora se la
funzione di temporizzazione puň essere inglobata in una funzione di sistema
(č piů economico).
Grazie Simon

 arrovellare senza successo.
Se sei su unix, usa cron. Se sei su windows, credo tu possa usare 'Pianifica
operazioni'.
In ogni caso non sprecare CPU a loopare nel tuo programma.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

my $minuti = 5;
while (1) {
	sleep $minuti * 60;
	# fai quello che vuoi ...
}
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Io invece lo ho messo nel CRON...
risolvendo tutti i problemi.
Se si spegne la macchina, con CRON riparte da solo, senza CRON invece devi
rilanciarlo.

x CtRiX, 
1) crontab è OT
2) potrebbe non avere crontab
3) ha chiesto come si fa in perl, non come si fa e basta
4) il buon M. Munafò ne ha già parlato, citando addirittura le operazioni pianificati di windows


 wrote in message
200104040752...@mail.mailgate.org...

Newsgroup: it.comp.lang.perl
Titolo: telnet si, web no !

Ciao!
Qualcuno so spiegarmi perchè spesso un programma in perl funzia
correttamente da riga di comando sotto win eda prompt linux anche ma se
caricato da web (sulla stessa macchina linux!!!) mi da un bel errore 500??
Grazie 1000!
Ciao
--
Salvatore Bocchetti
... idee e servizi per le radio
http://www.salvatorebocchetti.it
ICQ: #1212361

 caricato da web (sulla stessa macchina linux!!!) mi da un bel errore 500??
Perche' non segue le direttive CGI e produce del testo prima dell'header,
probabilmente perche' sbagli le directory e non trova dei file?
Chissa'!!?? Potrei anche spararti altre duecento spiegazioni, ma se non vedo
il programma valgono esattamente come il due di picche.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 caricato da web (sulla stessa macchina linux!!!) mi da un bel errore 500??
Hai provato a dare un occhio nei log di Apache?
-- 
Lorenzo Pulici - snowdog at 
tiscalinet.it
  - Web Design
http://milanohockey.virtualave.net
 
http://snowdog.cjb.net
http://verdebaggio.freeweb.org
 
http://members.xoom.com/Ramones/
   PGP ID: 1D33 3DE6 635E D192 F648  74D9 28A7 E921 3E1A 44F2

caricato da web (sulla stessa macchina linux!!!) mi da un bel errore 500??
A occhio manca il content-type. Aggiungi PRIMA di qualsiasi altro
output un:
print "Content-type: text/html\n\n";
	Michele. 
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/
Newsgroup: it.comp.lang.perl
Titolo: loop problem

i have this small perl script i am planning to run under windows xp, it
functions perfectly except it will not loop, if i comment out the execs in
the loops it will.. does anyone have any advice.. thanks.
  while (1) {
    print "\n";
    print "--------------------------------------- \n";
    print " *_* MENU *_* \n";
    print "--------------------------------------- \n";
    print "\n";
    print " (1) QUT Email \n";
    print " (2) QUT OAS \n";
    print " (3) QUT Virtual \n";
    print "\n";
    print " (4) ITB112 - Software Development 2 \n";
    print " (5) ITB114 - Intro. to Networking \n";
    print " (6) ITB115 - Intro. to Databases \n";
    print " (7) ITB420 - Computer Architecture \n";
    print "\n";
    print "\n > ";
    $input = <STDIN>;
    chomp $input;
    if ($input eq "1") { exec ("C:\\Progra~1\\Intern~1\\IEXPLORE.EXE
email.qut.edu.au
"); }
    elsif ($input eq "2") { exec ("C:\\Progra~1\\Intern~1\\IEXPLORE.EXE
www.fit.qut.edu.au
\/oas\/"); }
    elsif ($input eq "3") { exec ("C:\\Progra~1\\Intern~1\\IEXPLORE.EXE
qutvirtual.qut.edu.au
"); }
    elsif ($input eq "4") { exec ("C:\\Progra~1\\Intern~1\\IEXPLORE.EXE
www.olt.qut.edu.au
\/it\/itb112\/"); }
    elsif ($input eq "5") { exec ("C:\\Progra~1\\Intern~1\\IEXPLORE.EXE
www.olt.qut.edu.au
\/it\/itb114\/"); }
    elsif ($input eq "6") { exec ("C:\\Progra~1\\Intern~1\\IEXPLORE.EXE
www.olt.qut.edu.au
\/it\/itb115\/"); }
    elsif ($input eq "7") { exec ("C:\\Progra~1\\Intern~1\\IEXPLORE.EXE
www.olt.qut.edu.au
\/it\/itb420\/"); }
  }

the loops it will.. does anyone have any advice.. thanks.
    exec LIST
    exec PROGRAM LIST
    The exec function executes a system command and *never**returns*--
    use system instead of exec if you want it to return.
This is an italian news group, by the way.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: auto-path assoluto

Come fa un script pl ha risalire al suo path assoluto?
Ciao.
--Gabriele

Gabriele wrote:

per esempio....
  @cginame = split(/\//,$0);
  $cginame = pop(@cginame);
  $cgidir  = substr($0,0,length($0)-length($cginame)-1);
ottieni il nome del CGI in $cginame e il path in $cgidir
Saluti

 ottieni il nome del CGI in $cginame e il path in $cgidir
Si ma cosi non devo perforza usare il modulo CGI?
use CGI;
--Gabriele

Si ma cosi non devo perforza usare il modulo CGI?
A parte il nome delle variabili, non mi pare che ci sia nulla di specifico
CGI nel codice proposto. Comunque, puoi guardare anche il pacchetto
File::Spec.
Ciao.

 ottieni il nome del CGI in $cginame e il path in $cgidir
Ho provato come mi hai detto ma invece che il percorso esatto (nel mio caso
D:\Apache2\perl\
test.pl
)
mi ritorna soltanto D:\Apache2\
perltest.pl
.
In pratica si mangia l'ultima barra.
Togliendo il -1
my $cgidir  = substr($0,0,length($0)-length($cginame));
funziona.
A cosa serviva quel  -1?
--Gabriele

Come diceva Giovanni non c'e' bisogno di utilizzare CGI
Saluti

Newsgroup: it.comp.lang.perl
Titolo: HELP

Una domanda da principiante...Dopo aver editato uno script in perl con il
blocconote come posso controllare che il mio script funzioni?
Grazie

 blocconote come posso controllare che il mio script funzioni?
Eseguendolo e verificando se ti da errori.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 wrote in message
3GEL5.63835$3K3.1...@news.infostrada.it...


 Grazie
Per testare lo script in locale devi dalla linea di comando eseguire:
perl 
nomedeltuofile.pl
e vedi se da errori o no comunque il vero test lo dovresti eseguire su di un
server web
Bye Bye

Newsgroup: it.comp.lang.perl
Titolo: modifica di un file in perl

Ciao a tutti!
Premetto che non ho molta dimestichezza con perl, quindi ci vuole un'ania
"pia" che mi risponda :D
Io ho un file scritto in perl, e presenta la creazione di un'intenstazione e
un pie' pagina.
Io vorrei caricare delle immgini (gif,jpg), nel momento in cui viene
richiamato il cgi.
Ho scaricato ed ingoiato il tutorial presente su 
www.html.it
, ma non
risponde appieno alle mie esigenze. Proprio su quel tutorial consigliavano
di venire a "rompere le scatole" qui ! :-D
Se qualcuno di voi mi puo' aiutare mi farebbe un grande favore (e magari
oltre che pubblicare la risposta qui, se riuscirebbe a rispondermi anche di
persona :D  )
Grazie ancora
Francesco
cabig...@yahoo.com
cabig...@archimedia.it

 richiamato il cgi.
puoi essere + preciso... caricare in che senso?
cioč che quando qualcuno chiama il tuo   prova.cgi   gli venga fuori una
pagina html con un'immagine dentro??
...bhe il perl ti permette di costruire un file che genera un testo html...
basta che gli fai scrivere anche una riga
<IMG SRC="
http://www.tuoweb.com/immagini/titolo.gif
" HEIGHT=45 WIDTH=279>
...era questo il problem? ...penso di no... comunque...
bho!=)
ciaociao
Francesco
Newsgroup: it.comp.lang.perl
Titolo: input type=file

ho una form che ha un input type file per l'upload, l'action e' il
seuante cgi in perl:
-----------------------------------------------
use CGI; 
my $basedir=".";
my $req = new CGI; 
my $file = $req->param("file"); # file e' il nome del tag input
if ($file ne "")
{
  my $fileName = $file; 
  $fileName =~ s!^.*(\\|\/)!!; 
  $newmain = $fileName;
  open (OUTFILE, ">$basedir/$fileName"); 
  while (my $bytesread = read($file, my $buffer, 1024))
  { 
    print OUTFILE $buffer; 
  } 
  close (OUTFILE); 
}
-------------------------------------------------
Ebbene, tutto questo funziona: salva il file uploadato nella directory
corrente, pero' non ho capito come fa a funzionare!!!!
In particolare la read non richiede come primo parametro un descrittore
di file? (mi risulta che in $file c'e' solo il nome)
ciao
-- 
Massimiliano Cialdi
cia...@firenze.net
cia...@control.dsi.unifi.it
cia...@geoide.it

 risulta che in $file c'e' solo il nome)
Sorprendente, vero? :)
$file non è una semplice stringa. Si tratta di un glob reference (v.
perldoc perlref) bless-ato in un package nel quale è stato definito un
overload dell'operatore "", ossia l'operatore di conversione in stringa
(v. perldoc overload).
Se sei interessato ai dettagli implmentativi, apri CGI.pm e cerca il
package Fh. Si tratta, tuttavia, di codice leggermente astruso, la cui
comprensione richiede una certa familiarità con alcune tecniche avanzate
come la manipolazione della symbol table e la generazione di simboli (v.
per es. perldoc Symbol).
Max

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

ciao a tutti, scrivo per la prima volta in questo newsgroup,
fondamentalmente per chiedervi un favore:
da pochi giorni ho installato Apache su Linux, con l'intenzione di
testare dei CGI scritti in Perl, in locale.
il mio problema è che non sono assolutemente capace a configurarlo
correttamente, nonostante tutta la documentazione che ho trovato.
qualcuno sarebbe tanto gentile da postarmi un file di configurazione
che faccia piu' o meno al caso mio, o almeno a darmi qualche
dritta? (abbiate pieta' di me.....)
ringraziamenti sentiti
Giovanni

dritta? (abbiate pieta' di me.....)
chiedi su it.comp.os.linux.iniziare oppure so
it.comp.os.linux.setup
Oha
-- 
#include <disclaimer.h>
Newsgroup: it.comp.lang.perl
Titolo: Cari amici... una domanda

Problema:
Ho un server Nt 4.0  su cui faccio girare IIS.....
vorrei cimentarmi nello studio del perl-cgi  e conseguenti script che
possono  girare sui web server diffusi su tutta internet..
ora chiedo...
cosa installo per far girare i miei futuri script (spero di
riuscirci...:-))) sul web server locale (appunto iis ) in modo che provati
in locale non avro' mai problemi quando passero' su altri web server sparsi
per la rete ???
cioe' devo installare perl developer kit...(quale release) ... active
state... etc... ho un po' di confusione in merito...
Thank you....
johnny20...@infinito.it

 state... etc... ho un po' di confusione in merito...
Sul server WWW dipartimentale, sul quale ho dovuto installare IIS (tutti i
colleghi hanno M$ come applicativo), ho installato la versione Win32 del
Perl, scaricabile da ActiveState. Non ha mai perso un colpo. La manualistica
per poterlo configurare con IIS e' abbastanza completa.
Hope this help.
Jul

 state... etc... ho un po' di confusione in merito...
Installa l'ultima release del perl della activestate.
Non usare il php, molte direttive non fungono su IIS.
In merito alla portabilità del perl, con il linguaggio intrinseco nessun
problema,
ma presta attenzione al modo in cui mappi le connessioni ai database, se
ne usi.
Io per problemi di politica aziendale ho dovuto sviluppare un
applicazione
webbata intranet su IIS/win32 usanto php/perl/db2 per poi passare il
tutto su un server Linux.
Se hai problemi spediscimi pure una e-mail.
Newsgroup: it.comp.lang.perl
Titolo: <!--#exec cgi="/cgi-bin/script.cgi" --> si ma dal cgi?

Scusate l'ignoranza, ma se voglio generare una pagina web dinamicamente con
uno script ad esempio Perl e voglio usare un tag tipo <!--#exec
cgi="/cgi-bin/script.cgi" --> nella pagina e non mi da nulla come risultato,
cosa posso fare?
Grazie

 ha scritto nel messaggio
news:3a07...@news.swissonline.ch...

Le ipotesi sono due:
1) c'č un errore nello script o nell'istallazione
2) non hai chiamato la pagina "xxxx.shtml" invece di "xxxx.html".
Ciao.
--
Marco Allegretti
shi...@katamail.com
http://www.shishii.com


No aspetta , non esiste una pagina, é generata da un scipt Perl usando
context type html txt ma voglio che a sua volta acceda a un'altro script cgi
che mi serve per la gestione dei banner.
BhooOO
Mi sono fermato al capitolo 14 del Perl :-)


 Mi sono fermato al capitolo 14 del Perl :-)
Non è un pbl di perl. Il punto è che il tuo server web (apache?)
normalmente prima apre la connessione verso il client, poi esegue lo
script e ne butta l'output verso la connessione aperta. Nel tuo caso
invece dovrebbe prendere "al volo" l'output e processarne i contenuti
per eseguirne le direttive SSI (Server-Side, appunto). Cosa che,
ovviamente, il server non fa (cosa che ho appena verificato), anche se
definisci il mime-type dell'output come text/shtml (!). La domanda che
sorge è... per quale motivo devi complicarti la vita, rendendo
macchinosa una cosa semplice? :-) Il tuo script di partenza puo'
eseguire con una pipe lo script che devi richiamare, e buttarne fuori
l'output togliendoti ogni altro problema:
   open FN, "| scriptesterno.cgi";
   while (<FN>) { print }
   close FN;
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Primi passi in Perl

Ciao a tutti.
Sto muovendo i primi passi in Perl e devo realizzare un "qualcosa" che,
in risposta alla action di un form, richiami un eseguibile e generi
run-time una pagina html che contenga i risultati dell'esecuzione.
Richiamando un file .pl all'interno del quale eseguo una system e delle
print che generano l'output della nuova pagina HTML, pensavo potesse
funzionare ma invece.....
Il problema e' che tutto cio' lo devo realizzare su un server web NT e
tutta la documentazione che trovo e' relativa a macchine unix o giu' di
li.
C'e' qualcuno che sa come configurare NT per eseguire file .pl e
produrre risultati ? (io ottengo solo che il browser si inchioda
aspettando la replica del server che non arriva mai).
Grazie mille !!!

li.
Vai a:
http://128.151.21.16/wwwrlp/perlcal/
e li' trovi la doc. per configurare il perl sotto NT.
bis bald
Tonio

Newsgroup: it.comp.lang.perl
Titolo: Perl & NT & IIS4

Salve ragazzi, 
	ho un problemino niente male...
Ambiente: SBS con NT4, SQL Server 6.5, IIS4 e Perl 5.003
Premessa : Gli script perl funzionano bene a linea di comando
Faccio un cgi stupido e lo metto sotto IIS4... form che lo chiama e...
risposta di IIS4 tradotta: "il CGI non si comporta correttamente con i
dovuti tag html".
Che cacchio succede ?
Ho messo i diritti di esecuzione a quella directory, il CGI e' corretto
(provato identico in altro ambiente), ho associato ai ".pl" la stringa
"c:\perl\bin\perl.exe %s %s"...
dove diavolo sbaglio ? o meglio mi sono scordato qualche cosa ?
Grazie, Ezio

 Che cacchio succede ?
Mandi gli header corretti? La prima cosa da mettere in stdout è
"Content-type: text/html\n\n"
Ciao,
Valerio
--
-------------------------------------------------------
 
http://www.livenet.it
Hosting - Housing - Accesso ad Internet
                      0815625909
         03395452296 03394733180
-------------------------------------------------------


certo che si... il casino deve essere in qualche configurazione di
IIS4... oltre a dire che sulla directory ci sono i permessi di
esecuzione ed associare ai ".pl" o ".cgi" la stringa
"c:/perl/bin/perl.exe %s %s", tocca fare dell'altro ?
Grazie ancora, Ezio

 "c:/perl/bin/perl.exe %s %s", tocca fare dell'altro ?
Mi pare proprio di no, perň non sono un esperto di IIS.
Passo la palla a chi ne sa piů di me.
Ciao,
Valerio

Ambiente: SBS con NT4, SQL Server 6.5, IIS4 e Perl 5.003
IIS4? Installa ActiveState Perl 5.18
------
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... "

 
magariiiii... la sfiga e' che hanno implementato tutto con CPAN perl
5.003... non funziona con ActivePerl neanche a mano...

5.003... non funziona con ActivePerl neanche a mano...
Allora rimetti l'IIS 3.

Newsgroup: it.comp.lang.perl
Titolo: Stringa colorata nel perl

Come si fa a colorare la stringa da mettere dentro il print, senza averla
per forza in bianco e nero ??
Ad es. se scrivo:
print "Ciao a tutti";
Il Ciao vorrei scriverlo in rosso, a in giallo e tutti in verde.
E' possibile ?? Se si, bisogna usare un modulo ???
Grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 E' possibile ?? Se si, bisogna usare un modulo ???
Devi usare le sequenze di escape (che che tu voglia stampare su terminale).
Term::ANSIColor (su CPAN) potrebbe darti una mano 
by
	- Enrico
 

per forza in bianco e nero ??
Puoi tentare con Term::ANSIColor, o Term::Tui o Term::WinConsole.
Dico tentare, perché il risultato dipende anche dal sistema (che non ci
dici). comunque, Term::ANSIColor dovrebbe funzionare su ogni terminale con
funzionalità ANSI (ma la console di Windows deve essere configurata
opportunamente per averle), e Term::WinConsole ha una lista di architetture
abbastanza confortante.
Ciao.



Il sistema operativo è Win2000, ho già visto che su linux funziona, su
windows no !!!

 Il Ciao vorrei scriverlo in rosso, a in giallo e tutti in verde.
Prova a dare uno sguardo a Win32::Console.
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

 windows no !!!
naturalmente, per far sì che la console DOS possa interpretare le sequenze
di escape, hai già controllato che nel CONFIG.SYS della configurazione sia
presente la tanto famigerata riga:
device=c:\winnt\system32\ansi.sys 
vero??? 
:-)))
cià
mario.


 windows no !!!
Ma va ????
;)
 Raffaello

windows no !!!
Allora puoi, come ti è già stato suggerito, configurare la console in modo
che venga eseguito il driver ansi.sys, e quindi usare Term::ANSIColor;
oppure, come ti è già stato suggerito, utilizzare Win32::Console, che non
ha bisogno di driver ANSI e consente un controllo più completo, ma è anche
un pelino più complicato da utilizzare.
In quest'ultimo caso, naturalmente, la tua applicazione girerà solo su
Windows.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: Replace di blocco HTML

Devo rimpiazzare un intero blocco HTML (nella fattispecie un <TR>) che
contenga parole specifiche.
Ad esempio
<tr>
<td>.... PIPPO ....</td>
</tr>
deve essere sostituito con un altra stringa fissa, ma tutti gli altri <tr>
devono restare uguali.
Qualcuno ha idea della regular expression da usare?
Grazie!

Qualcuno ha idea della regular expression da usare?
Un'idea: lascia stare. Usa uno degli innumerevoli moduli per il trattamento
di documenti html. Ci perdi meno tempo che a strologare un'espressione
regolare, e a correggerla tutte le volte che scopri che non funziona in
questa o in quella situazione.
In ogni caso, la strada non potrebbe comunque essere quella di una singola
espressione regolare: dovresti in un modo o nell'altro costruire una qualche
macchina a stati. Tanto vale farlo con strumenti come (per esempio)
HTML::TokeParser, che ti semplificano molto la vita.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: intercettare errori di Time::Local::timelocal

Quando chiamo la funzione Time::Local::timelocal con una data non valida 
(per esempio il 31 settembre), la funzione dï¿œ errore e interrompe 
l'esecuzione. Come faccio ad intercettare l'errore e continuare 
l'esecuzione?


Potresti usare Date::Calc per verificare che la data sia corretta:
use Date::Calc qw( check_date );
.
.
.
if ( check_date($aaaa,$mm,$gg) ) {
	#uso timelocal
} else {
	#next
}

l'esecuzione?
Se vuoi *prevenire* l'errore puoi, come ti � gi� stato suggerito,
controllare la validit� della data attraverso le funzioni del modulo
stesso.
Se vuoi *intercettare* l'errore, il metodo � il solito:
  eval { qualcosa };
  if ($@) {
	tratta_errore;
  }
Ci sono poi anche dei moduli che permettono di usare una sintassi try ...
catch analoga a quella di java e altri linguaggi, ma non � molto di pi� che
zucchero sintattico.
Ciao.

   }
Non funziona, perch� in caso di errore la funzione timelocal interrompe 
l'esecuzione del codice. Prova questo:
#!/usr/bin/perl
use Time::Local;
my $startTime = Time::Local::timelocal(0,0,0,
				       31,8,2009);
print "hello!\n";
#E.

 Non funziona, 
Come non detto... sorry. Non avevo notato "eval", che � un comando che 
non conoscevo.
E.

non conoscevo.
Oh, non ti preoccupare, � senz'altro colpa mia: � la seconda volta in due
giorni che, appena dico qualcosa, mi si fa notare che non ho capito il
problema. Non pu� essere una coincidenza.
Ciao.

Giovanni Zezza ha scritto:

Comunque ho fatto come dicevi, con grande soddisfazione. Mi chiedo solo: 
non � che "eval" sia eccessivamente costoso come prestazioni? Mi d� 
l'idea che venga eseguito un nuovo processo... E i messaggi di errore 
dove vanno a finire?
E.

 E i messaggi di errore dove vanno a finire?
Nella variabile $@.
s.
-- 
Stefano Rodighiero      |  
http://www.stefanorodighiero.net
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it

 il resto del programma.
poletti@PoleBookPro:~/sviluppo$ perl 
eval.pl
              Rate   con_eval senza_eval
con_eval   31758/s         --        -1%
senza_eval 32182/s         1%         --
poletti@PoleBookPro:~/sviluppo$ cat 
eval.pl
#!/usr/bin/perl
use strict;
use warnings;
use Benchmark qw( cmpthese );
use Time::Local qw( timelocal );
cmpthese(-5,
   {
      con_eval => sub { eval { my $x = timelocal(localtime()) } },
      senza_eval => sub { my $x = timelocal(localtime()) },
   }
);

Newsgroup: it.comp.lang.perl
Titolo: Giochini per menti contorte

Ciao,
  Il Perl e` un linguaggio con una sintassi che permette costrutti tanto
complessi da risultare a meta` tra il confuso e l'elegante. 
  Se non avete proprio niente di meglio fare, provate a scrivere uno
script Perl che riceva dallo standard input un file di record separati
dal carattere '\n', composti da N campi separati dal carattere ':', e
che stampi sullo standard output gli stessi record con lo stesso
tracciato ma ordinati crescentemente secondo il terzo campo. Nota: i
caratteri nel file di input appartengono al sotto-insieme a 7 bit
dell'insieme ASCII.
  Questa sera vi posto la mia soluzione (una riga, due statement). ;)
	Alla prossima,
		Marco

dell'insieme ASCII.
print sort {(split(/:/,$a))[2] cmp (split(/:/,$b))[2]} <STDIN>;
-- 
Saluti,
Giancarlo

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

Salve
  Tutti conoscono (credo) cosa è la perl poetry. Consiste nello scrivere
programmi perl che siano anche poesie.
   Ovviamente, non è necessario che il programma faccia qualcosa. La sola
condizione è che si tratti di un programma sintatticamente corretto, cioè
che passi con successo il test
   perl -c 
poesia.pl
  In genere, profittando del fatto che ci sono tante keywords perl che
sono parole in inglese, le poesie in questione sono in inglese.
   Ieri sera, con un  paio di mongers italiani (non faccio nomi perché
non si vergognino :)) stavamo pensando se si potesse fare della perl
poetry in italiano.
  Dopo un po' abbiamo riciclato il buon vecchio Ungaretti, con il
seguente script
#!/usr/bin/perl
$Mattina=
$m'illumino / $d'immenso
è corto, ma non prendetevela con me... la colpa è di Ungaretti :)))
Ciao
-- 
Leo TheHobbit |     Perl Geek Code Version: 0.01     |
IRCnet #roma2 | P++>++++c--P6-R+++M++O++MA++E+++PU+BD|
ICQ 56656060  | C*D >++S++X WP MO PP++n+CO-->+PO-o G |
              |A+OLC+OLCC+OLJ-OLCO---OLS+OLL++OLA--Ee|
              |           Ev-uL++(+++)w!m!           |a.d. X Kal. Mai. MMDCCLV AUC

 sono parole in inglese, le poesie in questione sono in inglese.
magari si potrebbe usare qualche typeglob o buttar giu' un modulo
apposito...
G.
--
Gilberto "Veleno" Ficara
[ 
http://velenux.oltrelinux.com
 ]
GMC/P/PA d- s+:++ a-- C++++ UL++>$ P++++$ L+++>$ E--- W++$
N++ o-- ?K w ?O M- ?V !PS !PE Y+ PGP t- ?5 X++ R* tv- b+++
?DI D++ G>G+++ e h r-- !y+
Newsgroup: it.comp.lang.perl
Titolo: messaggio TIEARRAY

Cosa significa questo messaggio?
Can't locate object method "TIEARRAY" via package "Tie::File"
Linea incriminata:
tie @array, 'Tie::File', $file_password;
(dove: $file_password="password.txt";)
Grazie!
Ciao Paolo

 Can't locate object method "TIEARRAY" via package "Tie::File"
Forse hai dimenticato
   use Tie::Array;
all'inizio dello script.
ciao
Stefano

 ha scritto nel messaggio
news:U%kGa.85276$pR3.1...@news1.tin.it...

No,ecco tutto lo script:
1  #!/usr/bin/perl
2  use Tie::Array;
3  $file_password="password.txt";
4
5  tie @array, 'Tie::File', $file_password;
6  $array[2] = $nuovo;
7  print "valore: $array[$i]\n";
8  untie @array;
Errore:
Can't locate object method "TIEARRAY" via package "Tie::File" at ./
prova.pl
line 6.

 8  untie @array;
Non bisogna usare Tie::Array, ma Tie::File.
Riporto dal perldoc di Tie::File: 
<PERLDOC>
        tie @array, 'Tie::File', filename or die ...;
        $array[13] = 'blah';     # line 13 of the file is now 'blah'
	# These are just like regular push, pop, unshift, shift
        my $r1 = pop @array;
        unshift @array, new recs...;
        my $r1 = shift @array;
        @old_recs = splice @array, 3, 7, new recs...;
        untie @array;            # all finished
</PERLDOC>
Dove non si fa menzione di Tie::Array.
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

 ha scritto nel messaggio
news:20030613165205.00...@paranoici.org...

Ok, l'ho corretto, ma ecco un nuovo messaggio:
Can't locate Tie/File.pm in @INC (@INC contains:
/usr/opt/perl5/lib/5.00503/aix /usr/opt/perl5/lib/5.00503
/usr/opt/perl5/lib/site_perl/5.005/aix /usr/opt/perl5/lib/site_perl/5.005 .)
at ./
prova.pl
 line 2.
BEGIN failed--compilation aborted at ./
prova.pl
 line 2.
Non l'ha trovato, infatti dentro a  /usr/opt/perl5/lib/5.00503/Tie  ho
solamente:
RefHash.pm
Scalar.pm
Handle.pm
Hash.pm
SubstrHash.pm
Array.pm
Come posso fare?

 BEGIN failed--compilation aborted at ./
prova.pl
 line 2.
Vuol semplicemente dire che devi installare Tie::File (e` un modulo
presente nel core soltanto dalla versione 5.8 di Perl).
ciao
Stefano

 Come posso fare?
Vai su 
www.cpan.org
 e cerca il pacchetto che ti serve (Tie::File).
Scarica e segui le istruzioni.
Se sei sotto win ed utilizzi ActivePerl (ActiveState) puoi aprire una
shell e digitare, dopo aver dato il comando ppm:
install Tie-File


Newsgroup: it.comp.lang.perl
Titolo: leggere una riga particolare di un file

Salve a tutti,
mi chiedevo come fare a leggere una determinata riga di un file di testo (ho
pensato al comando seek ma non so bene come fare)
Scusatemi se è una domanda troppo ovvia o semplice ma sono un  principiante
per quel che riguarda il perl!!
Grazie 1000
ciao
Luca

 un  principiante per quel che riguarda il perl!!
	$ perldoc perlsyn
	$ perldoc -f map	
	$ perldoc perlvar
	$ perldoc perlopentut
	Alla prossima,	
		Marco
Newsgroup: it.comp.lang.perl
Titolo: usare CGI.pm al massimo

Ciao 
Sto cercando di sfruttare al max il CGI.pm , ma alcune cose 
non funzionano come dovrebbero.
Di seguito elenco uno script che ho adoperato per vedere alcune utility
del CGI.pm
Bene, di queste non me ne funziona nemmeno una . Riesco soltanto a
stampare "CIAO"...
Qualche consiglio ...
grazie
print "Content-type: text/html\n\n";
use CGI;
$query = new CGI;
print "<body><head><title>ciao</title></head> \n";
print "<b>ciao</b> \n";
#USA tag H1 di html 
print h1("Chapter","1"); 
#Tag <hr>
print hr;
#Stampa TABELLA
print table({-border=>undef},
           caption('When Should You Eat Your Vegetables?'),
           Tr({-align=>CENTER,-valign=>TOP},
           [
              th(['Vegetable', 'Breakfast','Lunch','Dinner']),
              td(['Tomatoes' , 'no', 'yes', 'yes']),
              td(['Broccoli' , 'no', 'no',  'yes']),
              td(['Onions'   , 'yes','yes', 'yes'])
           ]
           )
        );
 
print "</html> \n";

 ha scritto nel
messaggio news:3A3A1856...@venaria.marelli.it...


Ho risolto il problema. Grazie lo stesso

-- 
---
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

Semplicemente se usi
$q=new CGI;
non puoi piu' usare
print h1("Chapter");
ma :
print $q->h1("Chapter");
Se vuoi usare gli oggetti, usali !
Alex

Newsgroup: it.comp.lang.perl
Titolo: questo e' + furbo

come faccio a scrivere queste due righe senza dover passare prima la
variabile $nome_file a $_ ?
$_ = $nome_file;
if (/ifcfg-\w/ and !(/ifcfg-ppp\w/)) {
pensavo che questo potesse funzionare invece...
if ((/ifcfg-\w/ eq $nome_file) and (/ifcfg-ppp\w/ ne $nome_file)) {
Cosa non ho capito?
PS. Magari esiste un altro modo per dirgli che voglio solo i file che
cominciano per ifcfg- tranne quelli che cominciano per ifcfg-ppp usando
una sola 're'....
--
Maximiliano Bonfiglio
mailto:
mbon...@flextel.it
FLEXTEL S.p.A.
http://www.flextel.it
Corso Vercelli 328
IVREA 10015 TO Italy
tel 39-125-235319
fax 39-125-252067

 la variabile $nome_file a $_ ?
  *PLONK*

Marco Natoni wrote:

Tutto e' relativo.... :-)))


 una sola 're'....
 $nome_file =~ /^ifcfg-(?!ppp)\w/
Max

if (/ifcfg-\w/ and !(/ifcfg-ppp\w/)) {
if ($nome_file=~/ifcfg-\w/ and $nome_file!~/ifcfg-ppp\w/) {
Ciao
Andrea Busia
No Spam, Grazie.


if ($nomefile =~/^ifcfg-/ && $nomefile!~ /^ifcfg-ppp) {
oppure
if ($nomefile =~ /^ifcfg-(?!ppp)/) {
per usare una sola RE
Newsgroup: it.comp.lang.perl
Titolo: Net::smtp

Net::SMTP 
Per avviare al non sempre funzionamento del Sendmail del mio server folevo
usrae il modulo citato per inviare posta allacciandomi al server di posta
della katamail.... 
Purtroppo non funge........
---------------------------------posta.pl-----------------------------------
---- 
#!/usr/bin/perl 
use Net::SMTP; 
$smtp = Net::SMTP->new('
smtp.katamail.com
', Timeout=>50);
$smtp->mail('kryno2001');
$smtp->to('
thear...@hotmail.com
');
$smtp->data(); 
$smtp->datasend("To: theartofweb\n");
$smtp->datasend("From: kryno2001\n");
$smtp->datasend("Subject: Prova script perl\n");
$smtp->datasend("\n");
$smtp->datasend("Corpo del messaggio file perl theartofweb production\n");
$smtp->dataend(); 
$smtp->quit; 
print "Content-type: text/html\n\n";
print "<html>dovrebbe aver funzionato</html>\n";
exit; 
----------------------------------------------------------------------------
----- 
che si può fare?

 
A meno che il server in questione non appartenga alle reti di katamail o
disponga di autorizzazioni particolari, credo sia piuttosto improbabile
che gli venga permesso di effettuare relay SMTP tramite 
smtp.katamail.com
.
Max


Newsgroup: it.comp.lang.perl
Titolo: Espressioni Regolari in C++

Esiste una qualche libreria che riproduce le Espressioni Regolari el Perl in
C++?
Se si dove posso trovarla?
Grazie e ciao
Alessio "Gazza" Galli

 
Non so se risponde alla tua richiesta, ma nella documentazione di perl ti
spiega come fare per C. Vedi 
perldoc perlembed (o man perlembed) e guarda la sezione su "Performing Perl
pattern matches and substitutions from your C program"
Ciao 
-- 
Leo TheHobbit |  Windows NT: Recommended by people who put   |
IRCnet #roma2 |buggy software in control of lethal weapons.  |
ICQ 56656060  |                                              |a.d. XVII Kal. Mai. MMDCCLV a.U.C.

Se si dove posso trovarla?
pcre: "Perl Compatible regular expression library"
http://www.pcre.org/
NB: non l'ho mai utilizzata, so solo che esiste.

 ha scritto nel messaggio
news:RJvu8.20$081...@nreader1.kpnqwest.net...

Grazie delle risposte
ciao
Alessio "Gazza" Galli

Newsgroup: it.comp.lang.perl
Titolo: Esistono le FAQ su questo NG?

Dove trovo le FAQ di questo NG e se esistono, posso riportare il
contenuto delle stesse sul mio sito (
http://SourceNet.freeweb.org
).
Eventualmente il proprietario delle FAQ puo' contattarmi per dirmi se
posso o meno copiare il contenuto delle FAQ?
Grazie in anticipo.
Bye.

!

http://www.perl-it.org
Segui il link per le FAQ, che ancora non sono molte... anzi, se vuoi dare
una mano sei il benvenuto e scrivimi pure. ;-)
Credo non ci sia problema per la copia della FAQ, basta che metti una
noticina sulla loro origine e sui maintainer (riportati sulla parte
sinistra dell'indice).
	A presto, Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!
Newsgroup: it.comp.lang.perl
Titolo: uso della librera GD

Ho bisogno di utilizzare la libreria GD di perl 
per applicazioni CGI grafiche .  L'ho scaricata 
dalla rete pero' ho dei problemi ...
Come fare per installarla correttamnete ?

panc...@sodalia.it
 wrote:
 >per applicazioni CGI grafiche .  L'ho scaricata 
 >dalla rete pero' ho dei problemi ...
Hai mai riflettuto sul fatto che "ho dei problemi" e` una affermazione
estremamente generale e che non ci fornisce nessun indizio su quale possa
essere il tuo problema?
Prova a essere piu` dettagliato.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

Newsgroup: it.comp.lang.perl
Titolo: Script Perl per crontab!

Ciao , non riesco a far eseguire questo semplice script..o meglio lo
esegue ma non succede nulla...premetto che di perl non ne sò molto...non
mi crea il file...ma non rimanda errori....
#!/usr/bin/perl
my $writedir="/tmp",
'touch $writedir/pippo.tmp';
Ciao
Alex
P.S: Ma in perl la "stanghetta di traverso" è  l'apostrofo??

 P.S: Ma in perl la "stanghetta di traverso" è  l'apostrofo??
 '   ASCII 39, apostrofo, apice semplice 
        in Perl delimita stringa senza interpolazione
        'STRING' può essere scritto anche come q/STRING/
 `   ASCII 96, apice inverso, backtick
        in Perl delimita un stringa che viene eseguita come comando esterno
        `STRING` può essere scritto anche come qx/STRING/
Tutto spiegato bene in "perldoc perlop".
Nax
Newsgroup: it.comp.lang.perl
Titolo: la mia prima regexp

salve a tutti
ho un file di testo contenente, tra le altre informazioni, dei nomi 
scritti cosi': xx.xxxxxx dove le x sono caratteri alfabetici ed il "." 
sta sempre al terzo posto ed e' sempre seguito da un tot imprecisato di 
caratteri alfabetici
ho iniziato a studiare perl da ieri, mi sono letto il manuale e le exp 
regolari ed ho provato una cosa del genere ma vorrei sapere, da chi e' 
piu' pratico, se quanto scritto va bene:
nel file di testo da cui devo estrapolare le stringhe ho:
ewrwrr1231
13 213 1
ab.qualcosa
awqqq
54436rfr
vorrei che mi restituisse $nome = "ab.qualcosa"
quindi ho scritto
$nome =~ /^\D{2}\.\D/;
print "\n$nome\n";
che prende tutto cio' che inizia ^ per due {2} caratteri non numerici 
\D seguiti dal punto \. e da altri non quantificati caratteri non 
numerici \D pero' cosi' mi prende anche cio' che precede e segue al 
"ab.qualchecosa"
cioe', in pratica mi prende tutto
:(
dove sbaglio? (scusatemi ma e' la mia prima regexp)
-- 
Umin
n. p.: U2 - Bullet the blue sky

 print "\n$nome\n";
in realta', ho controllato ora, il file ha tutte le parti che mi 
interessano che iniziano per "ab." cio' che cambia e' quello che segue 
il punto "."
quindi potrebbe essere
$nome =~ /^{ab\.}\D/ ma non va comunque :(
-- 
Umin
n. p.: U2 - All I want is you

 print "\n$nome\n";
 $nome =~ /^(\D{2}\.\D+)/;
 print "\n$1\n";
 perldoc perlre
Max
 

  print "\n$1\n";
grazie! avevo provato anche con il $1, come letto nella guida, ma non 
mi tornava lo stesso, forse perche' non avevo messo il "+"
ora e' diventato, visto anche la considerazione del mio precedente 
post:
$dominio =~ /((it\.){1}\D+)/;
print "\n$1\n";
e mi sembra funzionare
ho tolto il ^ perche' in pratica questa occorrenza e' all'interno di un 
file di testo dove compaiono, sia nelle righe precendi che nelle 
successive, altre parole/numeri
in pratica e' fatto cosi'
ab.qualcosa
    Qualcos'altro di diverso
    12123232
    12112123
ab.something
    Something else
    23232323
    11331333
etc etc
dovrebbe andare lo stesso, vero? oppure ^ era ininfluente perche' 
comunque le righe da analizzare iniziano tutte per "ab."?
grazie
-- 
Umin
n. p.: U2 - Like A Song...

io la farei così:
$dominio =~ /^it\.(\D+)$/
questa trova tutte le stringhe che cominciano con it. seguito da
quasiasi carattere non numerico (quindi anche gli spazi...) e che può
terminare o meno con un "\n", in $1 c'è solo la parte che segue "it.",
se ti serve anche quella farei:
$dominio =~ /^(it\.\D+)$/
e stai a posto. Praticamente il {1} è superfluo...
Ciao

 Ciao
grazie! per il momento avevo risolto ma se la tua soluzione potrebbe 
essere migliore visto che sono ai primi esperimenti con perl e regexp
-- 
Umin
n. p.: Richard Ashcroft - Everybody
Newsgroup: it.comp.lang.perl
Titolo: Tagliare porzione di testo in Perl

Ciao a tutti,
Dovrei tagliare una porzione di contenuto da un file di testo, più
precisamente apro il file, controllo ogni riga, e quanto fa il match
con una ~ , dalla tilde fino a EOF dovrebbe tagliare tutto,
restituendomi il file tagliato.
Fino al match del carattere non ho problemi, ma non so come dirgli dal
carattere fino a EOF taglia tutto il contenuto dal file!
Grazie mille.

 restituendomi il file tagliato.
Come sempre in Perl, ci sono decine di soluzioni, la migliore delle 
quali va scelta a seconda del contesto.
In mancanza di altre informazioni, mi metto nelle condizioni "piu` 
impegnative": tronco il file "in situ", ovvero senza creare un altro 
file (preservando oltre che il nome del file originale, anche il suo 
inode), e senza usare neanche file temporanei.
Inoltre suppongo che non si possano usare moduli non-standard, e che il 
codice debba essere cross-platform (funzionante almeno su Win e *.nix).
Ciao, Emanuele.
=cut
#!perl
use strict;
use warnings;
use Fatal qw(open close);
open my $fh, '+<:raw', 'file.txt';
my $lunghezza_porzione_preservata;
my $tilde_trovata;
while ( <$fh> ) {
     if ( /^([^~]*)~/ ) {
         $lunghezza_porzione_preservata += length $1;
         $tilde_trovata = 1;
         last
     } else {
         $lunghezza_porzione_preservata += length
     }
}
print "File troncato a $lunghezza_porzione_preservata byte!\n"
     if $tilde_trovata and truncate $fh, $lunghezza_porzione_preservata;
close $fh;
__END__
-- 
Dottore, dottore, mi fa male il malleolo!
Malleolo si te fa male!

Newsgroup: it.comp.lang.perl
Titolo: analisi stringhe e sottostringhe di qualsiasi lunghezza

Richiesta programmino per perl :
Stringa e rispettiva cella
1   A1
2   A2
3   A3
4   A4
5   A5
6   A6
0   A7
0   A8
2   A9
1   A10
3   A11
4   A12
5   A13
5   A14
6   A15
1   A16
3   A17
4   A18
3   A19
Nell'esempio i numeri variano da 0 a 6.
Mi servirebbe una funzione o programmino che rilevi della stringa di 19
numeri A1: A19 una sottostringa qualsiasi  ad esempio A3:A4  ( che nel caso
sopra elencato compare 3 volte ) restituendo come valore la frequenza della
sottostringa ( nell'esempio = 3 ).
Fatto questo vorrei conoscere la frequenza dei numeri che compaiono dopo la
stringa ricercata ( in posizioni successive ) .
Schematizzando l'esempio:
Stringa = A1:A19
Sottostringa ricercata = A3:A4
Frequenza numeri comparsi successivamente alla sottostringa ( nell'esempio
la frequenza e'riferita ai valori comparsi in A5 , poi A13  e A19.)
Per il valore 0 frequenza = 0 volte
 "          "      1      "         = 0 volte
"           "      2      "         = 0 volte
"           "       3     "         = 1 volta   vedi A19
"           "       4     "          = 0 volte
"           "       5     "           =  2 volte   vedi A5    e   A13
La lunghezza della stringa e sottostringa possono' variare, offro compenso
da conc..
Grazie infinite         Oscar Selogni

 Grazie infinite         Oscar Selogni
Prego.
Newsgroup: it.comp.lang.perl
Titolo: Dubbi su programmazione ad oggetti

Sto studiando la programmazione ad oggetti in perl,
non mi sono chiare alcune cose, qualche anima gentile
può darmi delucidazioni, i punti sono:
1) l'uso di BEGIN ed END.
2) E' possibile definire in perl un metodo di una classe
   non accessibile dall'esterno.
3) Differanza tra moduli e package.
Grazie mille.
-- 

    non accessibile dall'esterno.
Secondo la seguente documentazione un trucco c'e'.
 Raffaello
[da 
http://www.unix.org.ua/orelly/perl/prog3/ch12_05.htm
]
12.5.5. Private Methods
There is one way to invoke a method so that Perl ignores inheritance
altogether. If instead of a literal method name, you specify a simple
scalar variable containing a reference to a subroutine, then the
subroutine is called immediately. In the description of UNIVERSAL->can in
the previous section, the last example invokes all overridden methods
using the subroutine's reference, not its name.
An intriguing aspect of this behavior is that it can be used to implement
private method calls. If you put your class in a module, you can make use
of the file's lexical scope for privacy. First, store an anonymous
subroutine in a file-scoped lexical:
# declare private method
my $secret_door = sub {
    my $self = shift;
    ...
};
Later on in the file, you can use that variable as though it held a method
name. The closure will be called directly, without regard to inheritance.
As with any other method, the invocant is passed as an extra argument.
sub knock {
    my $self = shift;
    if ($self->{knocked}++ > 5) {
        $self->$secret_door();
    }
}
This enables the file's own subroutines (the class methods) to invoke a
method that code outside that lexical scope cannot access.

 3) Differanza tra moduli e package.
In Perl? Nessuna. La keywork "package" garantisce univocità nella
tabella dei simboli, riducendo la possibilità di collisioni nei nomi di
variabili, funzioni e metodi.
Ciao,
 Emmanuele.
-- 
Emmanuele Bassi (Zefram)                 [ 
http://www.emmanuelebassi.net
 ]
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4
Newsgroup: it.comp.lang.perl
Titolo: esecuzione script perl

Ciao a tutti.
Volevo chiedervi se esiste un modo per eseguire uno script perl sotto
Windows però senza installare l'interprete perl. Vorrei eseguire lo script
come se fosse per esempio un file exe
Grazie a tutti
ciao ciao
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 script come se fosse per esempio un file exe
Gli script perl sotto windows possono essere compilati. 
Vedi: PDK (
www.activestate.com
) a pagamento, Perl2Exe della Indingo a
pagamento o PAR che è gratuito.
Il PDK e Perl2Exe sono due compilatori, PAR non ho mai capito
esattamente cosa sia.
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

 come se fosse per esempio un file exe
Ci sono 2 pacchetti commerciali e almeno 4 soluzioni open source:
Commerciali:
perl2exe 
http://www.indigostar.com/perl2exe.htm
perlapp (fa parte del PDK 
http://www.activestate.com/Products/Perl_Dev_Kit/
)
Open source:
PAR 
http://search.cpan.org/search?query=PAR&mode=module
App::Packer 
http://search.cpan.org/search?query=App%3A%3APacker&mode=module
TinyPerl 
http://tinyperl.sourceforge.net/
perlbin 
http://perlbin.sourceforge.net
Personalmente uso perl2exe, perlapp e PAR a seconda delle esigenze: non 
sempre uno di questi è sempre la soluzione migliore.

come se fosse per esempio un file exe
Esistono diversi modi. Il piů semplice č... installare l'interprete perl,
mettendo interprete, script ed eventuali moduli di cui avesse bisogno
all'interno dello stesso eseguibile. Questo č quello che fa par.
Poi c'č perlcc, e altri modi per "compilare" codice perl in un senso un po'
piů tradizionale.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Newsgroup

Secondo voi si puo' fare un cgi perl leggere (solo lettura) i newsgroup da
web?
Intendo solo cgi, senza news server sulla macchina. Qualcosa che sia
'decentemente' utilizzabile.
Saluti,
Roan


Perche' dovresti fare un cgi? Vuoi leggere le news da una pagina web? 
Posso immaginare voler fare un programma perl per leggere le news, anche se 
non so perche' non dovresti usare un programma fatto apposta per quello.
Tanto il news server comunque dal tuo provider deve stare.
Esiste sicuramente qualche modulo su CPAN che permette di accedere alle news
(Net::NNTP o roba del genere)
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 ICQ# 1980563

 Perche' dovresti fare un cgi? Vuoi leggere le news da una pagina web?
Non proprio. Solo mostrare i thread.
Ho gia' visto qualcosa che utilizza dejanews. Pero' a me serviva poter
accedere direttamente alle news sul gateway fidonet.
Saluti,
Roan

 accedere direttamente alle news sul gateway fidonet.
Premetto che non ne son praticamente nulla, ma direi che con Net::NNTP
dovresti riuscire ad ottenere tutti gli header (tramite XHDR o XOVER, credo).
pero' poi devi farti il threading tu.
Probabilmente riesci anche a trovare qualche esempio in giro (il Cookbook ha
sicuramente qualcosa a proposito delle news).


 sicuramente qualcosa a proposito delle news).
Ovvio che il cookbook ce l'ha :-)
capitolo 18, ricetta 18.4
http://www.oreilly.de/catalog/cookbookger/
http://www.oreilly.de/catalog/cookbook/
 in inglese
sul sito della oreilly tedesco 
http://www.oreilly.de/
 ci sta la possibilità di
scaricare 
ftp://www.oreilly.de/pub/ora/examples/perl/cookbook/
 tutti i sorgenti degli esempi completi e dei "microesempi" usati nel libro
non abbiate paura del sito tedesco, i sorgenti sono scritti in perl, e le
variabili in inglese
ciao, e buon lavoro

-- 
ASTAT - Istituto provinciale di statistica
viale Duca D'Aosta, 59
I - 39100 Bolzano
tel: 0471/994045  fax: 0471/994008
http://www.provinz.bz.it/astat

per chi preferisse il francese
http://www.editions-oreilly.fr/catalogue/perlaction.html
anche in questo caso potrà scaricarsi i sorgenti degl esempi (in formato tar.gz
:-(
ciao, ciao
