mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: come è possibile calcolare la differenza di giorni fra due date? $date1-$date2=$days????

vorrei calcolare quanti giorni passano da una data $date1 ad un altra
$date2.
Come fare? 
Grazie in anticipo, Mario.

 wrote in message
news:ZiXm9.44126$e31.9...@twister2.libero.it...


 Come fare? 
Non è ben chiaro come tu intenda il formato delle date, 
ma i vari moduli CPAN Date::* fanno la caso tuo.
Personalmente ti consiglio Date::Calc visto che è scritto in C
   use Date::Calc qw(Delta_Days);
   my $Dd = Delta_Days($year1,$month1,$day1,$year2,$month2,$day2);
   ...
(perldoc Date::Calc per la docs)
	- Enrico

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

Qualcuno mi spiega che genere di linguaggio è il perl.
Ne sono venuto a conoscenza da poco e mi dicono tutti che è molto valido.
Alex

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

Newsgroup: it.comp.lang.perl
Titolo: Equivalente di unescape()

Qualche anima buona saprebbe spiegarmi se in Perl è possibile avere qualcosa
che equivalga alla funzione unscape() di JavaScript?
Mi spiego meglio: ho delle stringhe provenienti da un client a cui sono
stati convertiti tutti i caratteri non letterali in sequenze di %XX (Per
esempioo loo spazio appare come %20)tramite escape() e io ho bisogno di
avere la stringa originale in ambiente Perl.
Come avrete capito sono alle prime armi, siate comprensivi!

 Come avrete capito sono alle prime armi, siate comprensivi!
  Il manuale e` il tuo migliore amico! :)
	Alla prossima,
		Marco

 Come avrete capito sono alle prime armi, siate comprensivi!
Sara,
premesso che non conosco, se non mooolto superficialmente Java, vorrei che
tu mi spiegassi meglio il problema. Ho fatto delle ipotesi:
1) il programma di cui parli e' un gateway visto che citi il client,
vero???;
2)il metodo con cui le stringhe vengono passate e' quello di una "form" html
che appende le coppie <nome>=<valore> alla query_string???(per farla breve
hai una <form action="./cgi-bin/
script.pl
" method="GET"???);
3) vorresti decodificarle perche' vengano cosi' memorizzate in variabili
cosi' come le ha scritte il client???
. Se e' cosi', fammi sapere, ti inviero' un codice per la decodifica delle
stringhe "appese" all'url in perl (questo per capire il procedimento, ma
sappi che c'e' il modulo 
cgi.pm
 che lo fa da solo);
. Se non e' così, oppure se io non ci ho capito niente, tutto cio' che ho
detto lo sapevi gia', ....beh pazienza ;-)
ciao fabio

 ha scritto nel messaggio
news:iCTd5.12067$sE5.1...@news.infostrada.it...


 cerchero` un'altra donna dentro ai sogni di Tarzan...
Newsgroup: it.comp.lang.perl
Titolo: quesito sull' estrazione di sottostringhe

Salve a tutti.
Sono nuovo del perl, e stavo esercitandomi sulle regexp per cercare di
estrarre una stringa da un' altra.
Nella fattispece, data una variabile $stringa del tipo "testo.di.prova",
vorrei riuscire ad ottenere "di.prova" cioe' tutto il testo che c' e' dopo
il primo punto (se il testo fosse stato "tanti.saluti.a.tutti", io vorrei
ottenere "saluti.a.tutti").
ho provato con split, ma al massimo riesco a dividere le tre parole (con
split(/\./, $stringa) ), oppure ad ottenere un array di 2 elementi, di
cui uno vuoto e l' altro con l' ultima parola (con split(/^.*\./, $stringa) ).
Qualcuno di voi puo' aiutarmi?

 cui uno vuoto e l' altro con l' ultima parola (con split(/^.*\./, $stringa) ).
Questo uso di split e` concettualmente sbagliato. L'espressione
regolare che si deve fornire come primo parametro denota il
_separatore_ degli elementi che vengono restituiti. Con quell'istruzione
stai dicendo che vuoi che il separatore risulti formato da qualunque
carattere ripetuto un numero arbitrario di volte, seguito da un punto.
Il tutto all'inizio della riga. Quindi la sottostringa "saluti.a."
viene usata come separatore.
ciao,
S.

 ottenere "saluti.a.tutti").
la parola chiave e`: regex.
Nel tuo caso quella che fa al caso tuo e`:
$testo =~ s/^.*$\.//;
perldoc perlre per maggiori info.
-- 
                         Maurizio - Tannoiser - Lemmo
                 Founder Member of ERLUG 
http://erlug.linux.it
-------------------------------------------------------------------------------
God is real, unless declared integer

   print join ".", @parole;
Mammamia che fatica! Non basta:
    ($primo, $resto) = split /\./, $stringa, 2;
?
Ciao.

$testo =~ s/^.*$\.//;
Questa proprio non l'ho capita! Come fa una stringa a terminare e continuare
($\.) nello stesso tempo?
Mi pare che dovrebbe essere, eventualmente:
  $testo =~ s/^[^.]+\.//;
Ciao.

 ?
Il suggerimento e` molto giusto, hai ragione, pero` va
ulteriormente modificato per fare quel che viene chiesto:
   ($primo, @resto) = split /\./, $stringa;
   print join ".", @resto;
O, a mio avviso ancora meglio:
   (undef, @resto) = split /\./, $stringa;
   print join ".", @resto;
ciao,
S.

 [...]
:/
Ecco appunto, nego tutto :))
Mi e` venuto in mente di eseguire il tuo codice usando
perl, anziche` l'interprete bacatissimo che ho in testa.
Ho imparato una cosa nuova su split, thank you.
ciao,
S.

 Ecco appunto, nego tutto :))
tutto-tutto no, grazie a te ho scoperto undef. (l' ho gia' detto che sono
niubbissimo? ^_^)

   $testo =~ s/^[^.]+\.//;
Sorry, bieco errore di digitazione. il "$" era da intendersi come "?",
ovvero "trova questo pattern solo una volta" (cfr. greedy in perlre),
quindi
$testo =~ s/^.*?\.//;
-- 
                         Maurizio - Tannoiser - Lemmo
                 Founder Member of ERLUG 
http://erlug.linux.it
-------------------------------------------------------------------------------
Vote Cthulhu. Why choose the lesser evil?
Newsgroup: it.comp.lang.perl
Titolo: MODULI

Ciao Raga,
nella FAQ del Perl per Win32 ho trovato una pagina su come si installano i
moduli, ma non l'ho capita BENE!!!
Per quello che ci ho capito devo aprire il prompt di ms-dos, scrivere PPM e
poi scrivere install /location c:/urldelmodulo.tar.gz !
E' giusto? Io penso di no perchč se lo faccio cosě non mi dice nulla, se
invece scrivo install /c:/nomemodulo.tar.gz mi scrive alcune cose e poi mi
dice che non č presente il PPD file.
Ho letto la faq e questo file č un file XML ma dove lo devo mettere?
Aspetto una risposta al piů presto perchč mi serve tantissimo.
Sto cercando di installare il modulo GD 1.23 per fare un contatore visite.
Grazie per l'attezione. Gradisco anche una risposta per email:
mich...@tiscalinet.it
 !
Ciao
--------------------------------
ANNUNCIO PER TUTTI I PARTECIPANTI AL NEWGROUP:
Cerco persone che vogliono fare scambio banner con il mio sito:
http://michaeljj.virtualave.net/index2.htm
--
---------------------------------------------------------------
FRANCESCO "FRANCY" PLATANIA - 
mich...@tiscalinet.it
ICQ # 38498339 - 
http://michaeljj.virtualave.net
CTE WebMaster - King Of Pop
=========CTE MJ FC TEAM==========

 Aspetto una risposta al più presto perchè mi serve tantissimo.


Newsgroup: it.comp.lang.perl
Titolo: La funzione exit

Noto molti script CGI in Perl terminano con la funzione  exit;
Qualcuno mi puo' spiegare a che cosa serve esattamente ?
Io l'ometto sempre pero' iCGI funzionano lo stesso!  Commetto un grave
errore ??

 errore ??
In alcuni sistemi operativi (Unix e compagni, non so gli altri) ogni
programma al ritorno puo' comunicare al sistema operativo un "exit status"
di solito usato per far sapere se si esce per errore o altro. La funzione
exit() consente di assegnare il valore dell' exit status. Normalmente i
server http che lanciano procedure CGI non fanno controlli sull'exit
status, quindi la cosa puo' non avere alcun effetto.
--------------------------------------------------------------------------
       -- )     Luca Fini                            Tel: +39 055 2752 307
 ___    |\      Osservatorio Astrofisico di Arcetri  Fax: +39 055 2752 292
/   |   | |-_   L.go E.Fermi, 5 +-----------------------------------------
(___|___//___)  50125 Firenze  /   WWW: 
http://www.arcetri.astro.it/~lfini
 (_)      (_)   Italia        / e-mail: 
lf...@arcetri.astro.it
-----------------------------+--------------------------------------------
                              In a world without fences - who needs GATES?
Newsgroup: it.comp.lang.perl
Titolo: ricerca tra date

Ciao a tutti,
dovrei effettuare una ricerca tra date... ossia...
se (data1<data2) ...
per rendere la cosa più agevole ho preferito , ove possibile, confrontare i
secondi restituiti dalla funzione time();
E' possibile convertire una data (es 01/12/2000) nel corrispondente valore
che restituirebbe time() in quella data?? spero di esser stato chiaro...!
Ciao,
Salva


Se scrivi le date come YYYYMMDD (ovvero, ad esempio, 20000112, oppure 19991024
per il 24/10/1999) puoi confrontarle come stringhe
    if ($data1 lt $data2)
altrimenti, converti la data in secondi usando timelocal() di Time::Local.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 che restituirebbe time() in quella data?? spero di esser stato chiaro...!
perldoc Time::Local




 Grazie!!
Time::Local e' installato di default.
Se fai 'man Time::Local' dovresti trovare la documentazione, cosi' pure la
trovi nell'help HTML se hai ActivePerl.
Nella documentazione trovi l'esempio d'uso (non ce l'ho sotto mano per
riprodurtelo)


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

Ciao a tutti, per lavorare con XML (DOM, soprattutto) quali moduli
usate? 
Grazie
d
-- 
Davide Cittaro
Drop WINDOWS if you want to reply

io ho utilizzato XML::Simple;
mi sembra il meno scorbutico.
Ciao

 usate? 
Con DOM, il migliore modulo e XML::LibXML. Ce anque XML::DOM e 
XML::XPath, ma sono viechi (e non molto mantenuti).
The Perl-XML FAQ 
http://perl-xml.sourceforge.net/faq/
 a piu d'informazione.
-- 
mirod

Newsgroup: it.comp.lang.perl
Titolo: Printare immagine

dovrei prendere una gif  e printarla come gif
( NO HTML ! )
Il codice sotto ovviamente non va... come potrei fare ?
#!/usr/bin/perl
 print STDOUT header("image/gif");
 binmode STDOUT;
 use LWP::Simple;
#  $c= get("
http://www.xxx.it/image.gif
");
# print $c;
Grazie 1000 :)


provando a "ripulire" un po' il tuo codice (ho riordinato un po' le 
righe e aggiunto use CGI):
   #!/usr/bin/perl
   use CGI qw(header);
   use LWP::Simple;
   print header("image/gif");
   binmode STDOUT;
   $c = get("
http://www.xxx.it/image.gif
");
   print $c;
a me lo script funziona, a parte l'immagine che non esiste [1].
cheers,
Aldo
[1] non starò qui a fare commenti salaci sul fatto che ti scarichi le 
immagini di 
www.xxx.it
 ;-)

 immagini di 
www.xxx.it
 ;-)
Azzo non avevo visto cosa c'era... lo avevo scritto a caso!
Tra l'altro sul sito  a cui si viene rimandati e' presente il virus :
JS_EX... !!!!! Chiedo scusa :-(
Cmq mi servono solo per uso personale, per vederle sul Cell.
dove non mi posso scaricare una pagina da 500kb per
vedere una gif da 25 kb!!
Ciao
Newsgroup: it.comp.lang.perl
Titolo: [OT] c'è qualche esperto di SQL?

Sto usando SQL su un servfe mysql via Perl da un apio di giorni e
avrei bisogno di un po' di aiuto per iniziare, ho provato a porre
delle domande sul ng de database ma nessuno ha risposto, se qualcuo mi
può aiutare me lo faccia sapere via e-mail (basta questo msg OT).
Grazie
Andrea Busia

puņ aiutare me lo faccia sapere via e-mail (basta questo msg OT).
Poni pure qui le tue domande: se riguardano l'uso di mySQL da Perl
non sei OT. ;-)
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

Newsgroup: it.comp.lang.perl
Titolo: Check to see if a file exists

I was wondering you could check to see if a file exists without opening it.
Thanks!

 I was wondering you could check to see if a file exists without opening it.
wonder: -e
-- 
Oramai che i baci tuoi piu` non mi sazian
cerchero` un'altra donna dentro ai sogni di Tarzan

Newsgroup: it.comp.lang.perl
Titolo: e-commerce???

salve,
vorrei imparare a creare un sito che permetta all'utenza internet di
comprare prodotti...
ma non so proprio da dove iniziare...
qualcuno può consigliarmi qualche buon tutorial x iniziare??
grazie mille!
Francesco

Perl: guida di riferimento, e' un libro che non vale molto secondo me !
Learning perl e' molto introduttivo e' vero, ma e' fatto per poi leggere
programming perl di larry wall (il creatore di perl). Perl guida di
riferimento vuole essere una via di mezzo : cerca di coprire tutti gli
aspetti di programming perl con la leggerezza di learning perl.  Inoltre
parla molto di moduli NON standard.
Ultimamente stanno traducendo molti libri in italiano, ma ancora per molti
linguaggi meno comuni ci sono problemi !! Se vuoi VC++, VB, JAVA, beh non ci
sono problemi !!! Programming Perl mi sembrava proprio che esistesse in
italiano, ma non ne ho la certezza. Ho invece la certezza che CGI
programming NON esista !
Siti italiani che li vendono (in inglese) e' un problema: Le librerie
virtuali lavorano senza magazzino (in genere). Quando ordini un libro, lo
prendono dal distributore di zona in 24 ore e te lo inviano. Per i libri in
inglese non si puo' fare !!! Bisongna tenerli in magazzino, ma questa e' una
caratteristica delle librerie vere e non virtuali. Apogeonline va bene, e'
un editore, ma ha un sito incompleto. Amazon e' eccezzionale e tiene
magazzino, ma purtroppo lo sconto viene piu' che annientato dalle spese di
spedizione.
Nella libreria Feltrinelli della mia citta' ci sono tutti e 4 i libri
menzionati (i 3 da me sono in inglese, anche se mi pare, non ne sono sicuro,
che programming ci sia anche in italiano!)
Alex
Mikon ha scritto nel messaggio ...


Invece esiste, ma non la second edition (uscita da poco).
...

La second edition e' uscita il luglio 2000 ( non cosi' poco) e la prima
invece nel marzo 96.
Ora mi hanno detto che e' cosi' datata che fa paura! SIamo nel 2001 e
leggere un libro di 5 anni prima sui CGI in perl non e' affatto una buona
cosa !!
Inoltre la prima edizione non era specifica sul perl, ma trattava i CGI sia
in C che in Perl !!!!
Visto che hai citato infomedia. la prima edizione costa 127.000 e la seconda
101.000 (entrambe in lingua inglese ) ???????????

Newsgroup: it.comp.lang.perl
Titolo: Trovare tutte le stringe da un'espressione regolare

Salve, partendo da un'espressione regolare qualiasi
č possibile generare tutte (o almeno un insieme) le stringe
ammesse da quest'espressione?
ad esempio:
   a*b
genera
 b e (a^w)b (dove w č maggiore di 0)
come posso fare?
Grazie.
--------------------------------
Inviato via 
http://usenet.libero.it

 come posso fare?
Hai considerato il fatto che in generale ottieni stringhe di lunghezza
infinita ?
 Raffaello

    a*b
se è una RE di perl ("a" ripetuta 0 o più volte, seguita da "b") allora
queste sono le possibili stringhe:
ab
aab
aaab
aaaab
ecc....
è quello che vuoi?
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

 per farlo uscire.
Scusa Domizio, non capisco cosa intendi. 
Roberta parla dell'insieme denotato dall'espressione regolare, che 
puo` essere anche infinito. Tu proponi forse di provare tutte le 
stringhe costruibili su un alfabeto, accettare quelle che soddisfano
la regular expression e fermarsi usando un'altra condizione 
(non so, $counter == 10_000) ?
ciao
Stefano

boh.... a me è sembrato che "generare tutte (o almeno un insieme) le stringe
ammesse da quest'espressione?" voglia intendere appunto creare tutte le
strighe possibili che diano true in caso di provare la RE su di esse...
magari non ho capito un cappero della richiesta.
Se invece le intenzioni fossero quelle, allora magari il sistema random di
fare delle stringhe ed escludere quelle che non soddisfano la RE non è
proprio il massimo: io intendevo fare un loop che contenga un algoritmo
inverso alla RE che GENERA le combinazioni possibili e le spara in un file:
se l'algoritmo è ben fatto non devi nemmeno provarle.
Questo mi ricorda quei programmi che generano indirizzi e-mail o passwords e
li provano...
tu invece cosa avresti capito dalla richiesta?


 se l'algoritmo è ben fatto non devi nemmeno provarle.
  ^ Questo, ma non saprei come fare.
ciao
Stefano

>  ^ Questo, ma non saprei come fare.
beh... non credo che esista la formula magica generale che permetta di
creare l'algoritmo direttamente dalla RE (magari potremmo scrivere un modulo
String::ReverseRE :-)... però sapendo il caso specifico, si può creare
l'algoritmo specifico ;-)
Sarebbe bene che "Roberta" ci precisi esattamente qual'è la RE in questione,
così ci cimenteremo... anche perché non so mica se abbiamo capito bene cosa
le serve...
ciao


boh... se è proprio quello che vuoi qui c'è un loop che genera le stringhe
che soddisfano /a*b/:
print 'a' x $i++, 'b', "\n" while $i < 10

Newsgroup: it.comp.lang.perl
Titolo: Script per download

Sulla mia pagina ho un link ad un file .zip che quindi, premendoci
sopra, fa cominciare il download di tale file.
Io vorrei fare un contatore per i download che vengono fatti del file
e quindi pensavo di mettere uno script in perl che prima aggiorna il
contatore, poi invia il file.
Per aggiornare il contatore so benissimo come fare.
Ma per far cominciare il download del file?
MadMage

 contatore, poi invia il file.
Non molto tempo fa ho fatto un contaaccessi per un mio cliente che voleva
fare esattamente quello che vuoi fare tu.
Se vuoi puoi usarlo. Il codice e' disponibile all'url:
http://www.sirius.pisa.it/marco/download
Il codice e' ampiamente commentato, quindi niente consulenze sul suo
utilizzo.
ciao, marco
--
Marco Cacchiani                                
e-mail:ma...@sirius.pisa.it
Public pgp key:         
http://www.sirius.pisa.it/marco/pgp_public_key.asc
Sirius Servizi Informatici                     e-mail: 
in...@sirius.pisa.it
Parco Teatro Pasolini, 1                       Phone:  +39 (50) 865120
I-56019 - Vecchiano                            Fax:    +39 (50) 860260
(Pisa - ITALIA)                                
http://www.sirius.pisa.it/

Newsgroup: it.comp.lang.perl
Titolo: installare Wx

Buongiorno sono novizio del Perl, dato che conosco altri linguaggi 
viaggio spedito in questo meraviglioso linguaggio.
Fintanto che volendo usare un esempio scritto da "Stefano Rodighiero" 
nel suo bel "pocket".
L'esempio tratta di fare una GUI con Wx (wxWidgets), ma lo appena lancio 
(uso ActivePerl su Windows XP pro.) spara :
Cant'locate Wx.pm in @INC <@INC contains : C:/perl/site/lib C:/Perl/lib 
.) at 
new8.pl
 line 9.
Begin failed--compilation aborted ad 
new8.pl
 line 9
Cerco sul comodo gestore "Perl Package Manager" ma non c'� o non lo 
riconosco.
Vado sul sito
http://wxperl.eu/index.html
Ma nessun install (letto i READ ) funziona! Faccio:
ppm install Wx-dev-0.26.ppd
Risponde :
ppm install failed: The PPD does not provide code to install for this 
platform
Help !!! Dove sbaglio ????
Ciao

Trovato! Grazie lo stesso e spigo per chi incorresse in tal guaio.
Sul sito c'� il repo giusto che � il 5.10  settare per wx e poi 
scaricare tutto. Ma attenzione che 0.39 (non il 0.44) di Alien-wxWidgets 
da installare.
Ciao


 da installare.
Grazie. Con il tuo permesso, vorrei aggiungere queste note 
sul wiki di Pocket Perl, affinche` possa eventualmente essere 
d'aiuto ad altri lettori.
s.
-- 
Stefano Rodighiero      |  
http://www.stefanorodighiero.net
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it

Newsgroup: it.comp.lang.perl
Titolo: LIBRO PER IMPARARE IL PERL

ciao,
sicuramente e' gia' capitato un topic del genere, ma vi prego di
rispondermi ugualmente !
Mi consigliate un libro per imaprare il Perl che cominci da zero ! (in
italiano)
Grazie


		attenzione: rispondere solo a questo indirizzo!
Newsgroup: it.comp.lang.perl
Titolo: lpw che non funziona

Salve a tutti.
ho fatto un semplicissimo script che dovrebbe scaricare una pagina da
remoto.
sul mio server funziona, ma quando lo metto sul server collegato
direttamente alla rete, non mi funziona più.
testando il risultato del codice che ritorna il web server chiamato, mi da
un 404 object not found, mentre in realtà la pagina esiste.
da cosa potrebbe dipendere?
tnx
--
CIAO!.db
Daniele "The Night Surfer" Bochicchio <webmaster(at)ASPItalia.com>
Moderatore di it.comp.www.asp - 
http://www.ASPItalia.com/newsgroup/icwa.asp
Leggi subito i nostri ultimi articoli:
- 'Costruire un Form con ASP e Flash 4'
http://www.ASPItalia.com/articoli/articoli.asp?data=20000320
- 'Sistemi di pagamento per l'e-commerce'
http://www.ASPItalia.com/articoli/articoli.asp?data=20000316
Uno script al giorno? Solo su 
http://www.aspitalia.com/liste/usag/

un 404 object not found, mentre in realtà la pagina esiste.
provato con lynx in remoto?
Oha
-- 
"Qualcuno mi spieghi perche' 144 e' l'unico
quadrato perfetto della serie di Fibonacci"
Newsgroup: it.comp.lang.perl
Titolo: usr/local/bin/perl

If your location of Perl is not /usr/local/bin/perl.....
Scusate leggo molto spesso all'inizio della presentazione degli script in
perl questa riga. Vorrei sapere che cosa vuol dire e a che cosa serve.
Devo chiedere qualcosa al mio server provider?
Grazie a tutti
Francesca

E' il percorso dell'interprete perl che stà sul server. E' quindi il server
che ti deve fornire il percorso preciso che puo' essere:
#!usr/local/bin/perl
#!usr/bin/perl
Immagino che questo sia per i server Unix, per quelli NT solitamente
dovrebbe essere: #!c:\perl\bin\perl.exe.
Ciao.
...e mica so' Mandrake pe' davero - Gigi Proietti (Febbre da Cavallo)
--
Posted from 
IDENT:ro...@planetsec.com
 [194.20.232.117] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 #!usr/local/bin/perl
Ma mi dite quale distro usa 'sto percorso? Tutte quelle che
ho provato mettono il perl in /usr/bin e anche l'installazione
dal 5.0003 in poi, mi pare.
--
Valerio Granato - 
val...@grana.to
FOR KeyMaster - i2000 Usenet Hierarchy
Maggiori informazioni sulla gerarchia i2000?
http://www.i2000.usenet.it
 - 
in...@i2000.usenet.it


Il mio server č Euroweb97. Sapete dove hanno questa directory?? Lo chiedo a
voi semplicemente per fare prima visto che dopo le 18.30 non rispondono piů!
Grazie
Francesca


Scusate ma il servizio assistenza del mio server mi ha detto che questi
paramentri non sono necessari su server NT. Allora che faccio? Come devo
configurare il file perl che chiede questa directory?
Grazie
Francesca

 dal 5.0003 in poi, mi pare.
Non vorrei dire una cavolata, ma dovrebbe essere qualkche BSD. In linux,
sinceramente, ho sempre visto /usr/bin/.
Certo che poi, per comodità, conviene fare due bei linkoni
/usr/local/bin/perl e /bin/perl che puntano a /usr/bin/perl!
-- 
___________________________________
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

Non sono necessari perchè in Windows e famiglia le informazioni necessarie a
gestire i file sono già contenute nel Registro di Configurazione. Limitati a
nominare il file con l'estensione .pl, perchè Windows riconosce il tipo di file
dall'estensione (almeno spero, con Sambar basta fare così, puoi usare persino
Javascript per i CGI)


 Javascript per i CGI)
aggiungo: se, anzichč quella schifezza di MS-DOS, come shell di DOS avete 4Dos,
potete usare persino i file batch

potete usare persino i file batch
Sono d'accordo. Aggiungerei che se la piattaforma è un NT esiste anche 4NT
che è l'equivalente di 4dos su NT.
Newsgroup: it.comp.lang.perl
Titolo: Confronto elementi array

Salve, devo fare un prog. che legga i file di una dir per spostarli in
un'altra area.
Per far questo devo vedere se esistono 2 file con lo stesso nome, ma con
estensioni diverse es:
pippo.zip
pippo.t
Il .t mi indica che posso trasferire pippo.zip.
Avevo pensato di mettere in 2 array la lista dei .zip e dei .t per poi
confrontare elemento per elemento, ma spero che qualcuno possa darmi un
suggerimento per fare meglio di cosě.
Grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

suggerimento per fare meglio di cosě.
Per come descrivi il problema, sembra che possa bastare un test di
esistenza: leggi la directory (readdir) e, per ogni file.zip, controlli se
esiste file.t (test -e o funzione stat).
Altrimenti, se proprio č necessario memorizzare e confrontare i nomi, degli
hash dovrebbero essere piů veloci. Se l'occupazione di memoria dovesse
risultare eccessiva (ma č difficile, nell'ambito del problema che hai
proposto), puoi legarli ad un database (DB_File o chi per esso).
Ciao.

Non ti serve fare 2 array, e non ti serve nemmeno farne 1... quando tiri su
la lista di tutti i files della dir, la metti direttamente in un loop e
cerchi solo i files '.t'.
Immagina di avere la lista di TUTTI i files della dir:
foreach (qw(tizio.zip caio.zip caio.t pippo.zip pippo.t))
{
    if (my ($name) = /^(.+)\.t$/){ ... sposta "$name.zip" }
}
ciao
--
-.. --- -- .. --.. .. ---
-.. . -- .. -.-. .... . .-.. .. ...

 }
Grazie per la risposta, mi spiegheresti l'espressione che hai usato?
Grazie ancora :-)


foreach (qw(tizio.zip caio.zip caio.t pippo.zip pippo.t))
{   if (my ($name) = /^(.+)\.t$/){ ... sposta "$name.zip" }  }
spiegando verbalmente la cosa...
foreach (qw(tizio.zip caio.zip caio.t pippo.zip pippo.t))
- Il 'foreach(list)' assegna a $_ un elemento della lista ad ogni loop
 if (my ($name) = /^(.+)\.t$/){ ... sposta "$name.zip" }
- l'if pone la condizione: se assegna qualche valore a $name, allora...
sposta il file '.zip'
my ($name) = /^(.+)\.t$/
- ($name) viene assegnato da (.+)
/^(.+)\.t$/
- questo match viene fatto su $_
/^
- dall'inizio
(.+)
- raggruppa uno o più caratteri (qualsiasi)
\.t
- seguiti da '.t'
$
- fine (ovvero dopo '.t' non ci deve essere più nulla)


Bhè cosa dire...Grazie mille, mi hai dato buoni input su cui riflettere.
Posso approfittare ancora della tua disponibiltà e chiederti dove
posso trovare della documentazione sulle espressioni regolari?
Grazie ancora ciao


 posso trovare della documentazione sulle espressioni regolari?
perldoc perlre
perldoc perlretut

Newsgroup: it.comp.lang.perl
Titolo: a cosa serve il punto e virgola ";" nell'url ?

Volevo sapere a cosa serve il punto e virgola ";" nell'url.
esempio:
http: //
www.miosito.com/cgi-bin/script.cgi;action=play;num=1234


sei OT. Questo non è il ng che tratta queste cose.
Newsgroup: it.comp.lang.perl
Titolo: Script per riconoscere le frazioni

Ciao a tutti,
vorrei fare un perl script che mi permetta di isolare
(inserendole ad esempio in un array) delle frazioni
della forma xxx/yyyy presenti in un file di testo 
(o in una stringa).
Qualcuno mi sa indicare come fare ad indicare questo
tipo di pattern a perl ?
Grazie mille.
Alessandro



Questo modulo è un buon punto di partenza
http://search.cpan.org/~davecross/Number-Fraction-1.02/
by
	- Enrico
--- have fun with 
www.perl.it
 ---

 hai scritto una mail.
Il suo oggetto era"Script per riconoscere le frazioni":
#Ciao a tutti,
#vorrei fare un perl script che mi permetta di isolare
#(inserendole ad esempio in un array) delle frazioni
#della forma xxx/yyyy presenti in un file di testo 
#(o in una stringa).
#
#Qualcuno mi sa indicare come fare ad indicare questo
#tipo di pattern a perl ?
#
#Grazie mille.
#
#Alessandro
Supponendo un file del genere:
[nathanvi@argo Primi]$ cat frazioni.txt
Questo e' u esempio di file
con un po' di frazioni del tipo 23/566.
Come si puo' vedere se scrivo 11/33 e poi anche 2456/2, il programma
in perl permette di prendere tutte le frazioni del tipo 12/12 e metterle
in altro file...
Avrei fatto uno script che dovrebbe funzionare:
[nathanvi@argo Primi]$ cat 
frazioni.pl
#!/usr/bin/perl
open FRAZIONI, "frazioni.txt";
open RISULTATI, ">risultati.txt";
 
while(<FRAZIONI>){
        if($_=~/(\d+\/\d+)/g){
                print RISULTATI $1,"\n";
        }
}
Il risultato e':
[nathanvi@argo Primi]$ cat risultati.txt
23/566
11/33
12/12
BUG:
Mi prende soltanto una frazione per riga anche con opzione "g" al
fondo... Servirebbe qualcuno piu' esperto di me che dia maggiori
informazioni :-) Ciao,
	nathanvi

informazioni :-) Ciao,
while(<FRAZIONI>) {
    while(/(\d+\/\d+)/g){
        print RISULTATI $1,"\n";
    }
}
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;



Ho risolto sviluppando la prima soluzione.
Grazie mille a entrambi. 
Alessandro

E' per Gianluca Dalla Vedova? Se non č cosě non considerare la mia risposta.

Newsgroup: it.comp.lang.perl
Titolo: Bug in Net::NNTP

Mi sono accorto che la versione di Net:NNTP presente nel perl 5.003_7 ha
un bug che la rende praticamente inutilizzabile: la funzione _POST si
aspetta una risposta 2xx mentre INN risponde sempre 3xx.
Il bug e` stato eliminato nelle versioni successive?
Per correggere il bug basta sostituire CMD_OK con CMD_MORE.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

 wrote:
: Mi sono accorto che la versione di Net:NNTP presente nel perl 5.003_7 ha
: un bug che la rende praticamente inutilizzabile: la funzione _POST si
: aspetta una risposta 2xx mentre INN risponde sempre 3xx.
: Il bug e` stato eliminato nelle versioni successive?
Si, nella 2.14.1 non c'e`.
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
Newsgroup: it.comp.lang.perl
Titolo: Settaggio variabili.

Scusate ragazzi!
E' da pochissimo che mi sto cimentando con i cgi, e volevo chiedervi una
cosa.
Quando si deve settare le variabili ad esempio di un cgi contatore dei
download, dove c'e' scritto che si devono specificare (nei file ad ex
load.cgi e showload cgi)due variabili e cioe':
$databasefile = 'download.txt'  # path to your download database
$YourURL = '
http://www.your-url.com
';   # url of your site,
il percorso del file downlod.txt lo devo scrivere al posto di $databasefile
lasciando poi ='download.txt' nella seconda parte della stringa?
E l'url del mio sito dove va scritto?Al posto di $your url o al posto di =
'
http://www.your-url.com
'?Ed inoltre, devo scrivere solo l'url del mio sito
(ad es. 
www.miosito.it
) oppure devo scrivere tutto il percorso dove si trova
il file di cui sto settando la variabile?
Spero di non essere stato troppo contorto, e spero mi possiate aiutare
presto!
GRazie!

 lasciando poi ='download.txt' nella seconda parte della stringa?
Ho idea che tu debba leggerti un po' di documentazione sul Perl,
almeno.
Hint: l'assegnazione funziona da sinistra a destra, quindi prova
a sostituire i valori a destra, e poi prova a sinistra, e vedrai
che succede.
Bye,
 Emmanuele.
-- 
Emmanuele Bassi (Zefram)           [ 
http://www.radiance.d2g.com/~zefram
 ]
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

Newsgroup: it.comp.lang.perl
Titolo: Cgi per email

Ma se io nel mio sito voglio mettere che offro le email.
DEvo avere per forza un server pop


É una domanda o un'affermazione?
Se è una domanda credo di si ameno che qualcuno che ha un server pop non ti
autorizzi a dare le sue casele come se fossero tue.
ciao
--------------------------------
Marco Pinna
System & Network Admin
marc...@vaionline.it
--------------------------------

Newsgroup: it.comp.lang.perl
Titolo: www.perl.com

ODIOOOSOOO!!! ma devo per forza fare il mirror della sezione Documentation per
potermi scaricare in un colpo solo al documentazione completa? o sapete se la
trovo da qualche altra parte? (di comprare libri non se ne parla)


Installata nel tuo disco fisso?
-- 
___________________________________
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

Newsgroup: it.comp.lang.perl
Titolo: Ricevere email con attachments

Salve a tutti.
Mi occorerebbe un modulo perl cha mi consenta di ricevere email, con
attachments, da un server pop3 su cui ho un account. Ho cercato invano su
cpan, potreste aiutarmi?



 
http://search.cpan.org/search?dist=POP3Client
Newsgroup: it.comp.lang.perl
Titolo: Inserire dati in file XML

Ciao ragazzi,
ho bisogno di inserire dei dati, provenienti da un form, in un file XML. Ci
sono delle funzioni in perl che possono fare a caso mio?
Grazie a tutti.

 XML. Ci sono delle funzioni in perl che possono fare a caso mio?
Devi generare il file XML da zero, o aprire un file XML esistente e
inserire le informazioni in determinate posizioni?
Nel primo caso, puoi generarlo a mano avendo cura di garantire il corretto
escaping dei caratteri non consetiti. Nel secondo caso ti serve un
parser. Dai un'occhiata a questi due moduli:
 
http://search.cpan.org/search?dist=XML-Parser
 
http://search.cpan.org/search?dist=XML-DOM
Max


Peppe <d...@ddd.dd> wrote in message tRgA6.135$PK3....@news.infostrada.it...


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

Newsgroup: it.comp.lang.perl
Titolo: Array di Array

@vect =(1,20,10,1) ;
for($i=0; $i < @vect;$i++){
....blablabla...
   for($j=0; $j < @vect;$j++){
....blablabla...
     for($z=0; $z < @vect;$z++){
        $weit[$i][$vect[$i]][$vect[$i+1]]= rand;
    print @weit;
    }}}
come posso visualizzare il valore , magari per righe o colonne, od
addirittura la matrice intera, contenuto in una matrice @weit ?
ossia, come posso visualizzare per valore, la riga $weit[0][0.....n][] ?
Stavo già utilizzando il modulo MatrixReal, ma riadattando uno scorcio di
script, mi trovo un po' in difficoltà in questa rappresentazione.
grazie

Non capisco il motivo della tripla iterazione annidata se poi utilizzi
solamente l'indice più esterno. In ogni modo, direi che potresti
cavartela con un:
for my $aref (@{$weit[0]}) { # Itera sugli "elementi" di $weit[0]
   print @$aref;
}
il che non tiene ovviamente conto di eventuali esigenze di
formattazione (gli elementi sono stampati tutti attaccati l'uno
all'altro in questo caso). In sostanza:
* @weit contiene riferimenti ad array
* $weit[0] è il primo di questi riferimenti
* @{$weit[0]} è l'array riferito da $weit[0]
* il ciclo for rende $aref un alias per tutti gli elementi di
  @{$weit[0]};
* $aref, quindi, è esso stesso un riferimento ad un array, di volta in
  volta "incarna" $weit[0][0], $weit[0][1] ecc
* per accedere all'array riferito da $aref utilizziamo di nuovo la
  dereferenziazione mediante @$aref (avresti potuto mettere
  anche @{$aref}, ovviamente)
Su perldoc: perldata, perldsc, perllol (fra gli altri).
Newsgroup: it.comp.lang.perl
Titolo: interprete perl

 
prova-perl.pl
: line 2: print: command not found
Qualcuno può aiutarmi ad uscire da questa impasse altrimenti non riesco 
a andare avanti col tutorial
grazie  atutti
Alessia

> [alessia@localhost ~]$    
Forse è perché sono un po' arrugginito in bash e *nix, ma non capisco
perché esegui sh: di solito, mi pare, si mette lo she bang e si rende
eseguibile il file, e poi lo si lancia con il solo nome (./
prova.pl
 o
./
prova-perl.pl
 che sia).
Ciao.

> alessia@localhost ~]$ sh 
prova-perl.pl
  alessia@localhost ~]$ perl 
prova-perl.pl
oppure
   alessia@localhost ~]$ chmod +x 
prova-perl.pl
   alessia@localhost ~]$ ./
prova-perl.pl
M

Max M. ha scritto:

Grazie per la risposta e scusate se è banale la domanda però io sono 
proprio agli inizi e quindi devo ancora capire bene come funziona il 
tutto. Avevo messo sh perche in un giornale avevo trovato uno script ( 
fatto eseguire però da bash e con estensione .sh ma scritto in perl , 
almeno cosi era scritto sulla rivista)
comunque grazie ai vostri suggerimenti ora funziona
ciao
Alessia
ps cos'è lo she bang?

ps cos'è lo she bang?
La sequenza:
  #!
che indica a bash di utilizzare l'interprete (o comunque l'eseguibile)
seguente sul file.
Ciao.

 ps cos'è lo she bang?
 
http://www.in-ulm.de/~mascheck/various/shebang/
Max

 Max
Ciao
Alessia

 Alessia
Dopo aver comprato un paio di manuali ho scoperto che bastava scrivere:
perldoc perl
e avere tutto quello che si vuole. Vuoi sapere il significato di una
keyword ?
perldoc -f <keyword>
GmB
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.perl
Titolo: string search

Ciao a tutti!
Ho un problema banale .... ma da principiante come me non lo so risolvere!
Ecco il problema:
in uno script a un certo punto alla variabile $ulefind viene assegnato un
valore....diciamo 10.10.41.10 come stringa!
A questo punto parte un ricerca all'interno di un file.....
se uso if (!.....= /$ulefind/) ..... questo mi trova anche le substring del
tipo 10.10.41.101 oppure 10.10.41.105.
Come posso fare un "match" perfetto e non seplicemente una substring search!
Grazie 1000 In anticipo
Moreno

 tipo 10.10.41.101 oppure 10.10.41.105.
Se ho ben capito il problema, ti potrebbe bastare anche un 
if ($qualcosa != $ulefind)
senza scomodare le regexp.
Oppure, puoi usare
if(!... =~ /^$ulefind$/)
Ciao
--ev

 if(!... =~ /^$ulefind$/)
cosi' match-a solo in caso che la stringa contenga solo  $ulefind, non 
so se e' questo il caso.
Prova ad usare \b (word boundary) ovvero
$stringa=~/\b$ulefind\b/
-- 
Saluti,
Giancarlo

 $stringa=~/\b$ulefind\b/
Della serie "proviamole tutte":
... o ancora provare a matchare la stringa con uno spazio a destra ed
uno a sinistra!
Ciao e grazie
--ev

 funzion atof, per quella numero->stringa sprintf).
Funzioni C intendevo ..ovviamente.
-- 
Saluti,
Giancarlo

 uno a sinistra!
No con gli spazi non match-a se il pattern fosse a inizio a fine linea 
:-)
Non e' della serie "proviamole tutte" e' un modo corretto di match-are 
una singola parola.
Credevi di poter dichiarare chiuso anche il capitolo relativo alle 
regex? :-)
-- 
Saluti,
Giancarlo

 regex? :-)
Assolutamente no, quello anche fra 10 anni lo considererò ancora
apertissimo! :-)
Ciao

 wrote in message news:9mevn9...@127.0.0.1...


Newsgroup: it.comp.lang.perl
Titolo: Indice di un elemento in un array

Ciao a tutti. Vorrei sapere se esiste una funzione in perl che
restituisce la posizione di un elemento all'interno di un array, in modo
da evitare cosi' di dovermela scrivere. Grazie.
-- 
Ciao
Nico


No. Significherebbe che deve fare la ricerca per te. Perche' mai?
Se hai bisogno di accedere agli elementi di un array usando il contenuto,
dovresti usare un hash al posto dell'array.
Per ulteriori consigli, dovremmo sapere cosa stai cercando di fare.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@tuttocitta.it
 
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

da evitare cosi' di dovermela scrivere. Grazie.
Non c'e`, devi usare foreach (o for o while) e scandire l'array finche'
trovi l'elemento desiderato. Alternativamente, puoi riprogettare il
tutto con un array associativo (hash) al posto di un array "normale".
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.italpro.com/mb/
Newsgroup: it.comp.lang.perl
Titolo: finestrelle indesiderate

Ciao a tutti: so che ho letto la risposta da qualche parte ma non 
ricordo davvero dove :-(
La mia domanda è questa:
ho un script in windows ma quando lo lancio (per esempio da esplora 
risorse o operazione pianificata) mi appare la finestrella del prompt 
del DOS che mi indica che lo script è in esecuzione.
Qualcuno mi sa dire dove reperire la risposta a questa domanda o sa 
rispondermi?
Grazie 1000
Inviato da 
www.mynewsgate.net

nathanvit wrote:

http://www.perl.it/documenti/faq/iclp_view.html?pag=9&faq=1

Newsgroup: it.comp.lang.perl
Titolo: Pulire schermo

Esiste una istruzione di perl che mi permette di eliminare tutto quello
che è stato scritto sul terminale.
Quello che vorrei fare è inserire un comando print che mi scriva un
testo nella prima riga del terminale.
ciao
maxo

una chiamata system con un "clear" o un "cls" (se per windows) ???
dovrebbe funzionare!

dovrebbe funzionare!
Per funzionare, funziona. Perň forse č meglio ricorrere a Win32::Console (in
Windows) o Term::ANSIScreen (in un sistema che supporti i codici ANSI), o
altre analoghe librerie.
Ciao.

 altre analoghe librerie.
Scusate se mi intrometto e ciao a tutti.
Quindi non si ha un qualcosa che sia portabile ?
Ciao

 Ciao
Stampa 25 righe da 80 colonne vuote! :-)
for (1..25) { print " " x 80 . "\n" }
Newsgroup: it.comp.lang.perl
Titolo: Problemino con regexp

Salve a tutti,
vi riporto parte di codice perl di uno script che mi da dei problemi ...
le due sostituzioni dovrebbero avvenire con i valori di $index1 e $index2
sempre diversi (in base alle prime due foreach), ma in realtà avengono
sempre con i valori della prima sostutizione (nel mio caso $index1 = $index2
= 1). Sembra che perl si memorizzi il valore di $index1 e $index2 la prima
volta che incontra la regexp e non voglia più rileggerlo nelle sostituzioni
successive, che quindi risultano errate.
Come fare?
Ringrazio,
Ezio Bonsi
<CODE>
foreach $index1 ($minlimit[0]..$maxlimit[0])
{
   foreach $index2 ($minlimit[1]..$maxlimit[1])
   {
      $row = '';
      foreach (@maskera)
      {
         s/<primoindice>/$index1/g;                #--- prima sostituzione
         s/<secondoindice>/$index2/g;                #--- seconda
sostituzione
         $row .= "$_\n";
      }
      print OUTFILE "$row\n";
      $totiter++;
   }
}
</CODE>

 Ezio Bonsi

<primoindice> e <secondoindice> che sono? Da cosa dipendono?
Ora come ora, la prima volta che entri nel foreach ( con 1 e 1) fai tutte le
sostituzioni possibili, per cui le volte successive, a meno che
'primoindice' e 'secondoindice' non siano cose completamente diverse, non
hai piu' nulla da sostituire. O no?
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 sostituzioni successive, che quindi risultano errate.
No, quello che accade è qualcosa di diverso, anche se l'effetto visibile
può lasciare credere che vengano applicate sempre le due regepx iniziali.
In realtà, la prima esecuzione del primo ciclo foreach modifica
irrimediabilmente il contenuto di @maskera. Motivo: le variabili usate
come iteratori in un ciclo forech (nel tuo caso: $_) non sono delle copie
dei vari elementi, ma piuttosto degli alias (come avviene con @_ rispetto
agli argomenti delle funzioni). Le operazioni su quelle variabili hanno
effetto sugli elementi della lista.
Dopo la prima passata, pertanto, le stringhe di @maskera non contengono
più i placeholder attesi.
Max

Newsgroup: it.comp.lang.perl
Titolo: Salvare dati su in file


# --------- CODICE
# separatore di campo (sostituibile con qualsiasi catattere
# non compreso nei dati).
$fs="\t";
@ar1 = qw(array1: 45 72 );
@ar2 = qw(array2: 23.45 1250);
@ar3 = qw(array3: 87 34.90 3200 25);
open(OUT,"> Array.txt") || die ("Non posso aprire Array.txt $!\n");
print OUT join($fs,@ar1), "\n";
print OUT join($fs,@ar2), "\n";
print OUT join($fs,@ar3), "\n";
exit;
# ------------------------
HTH

Grazie per le info, spero di cavarci fuori qualcosa di buono (sono uno
stramaledetto neofita con il perl).
Se mi trovo in difficoltà mi farò risentire!
Grazie ancora di tutto,
Ken
Newsgroup: it.comp.lang.perl
Titolo: Help please!

Ciao a tutti,mi servirebbe una mano se qulacuno di voi mi può
aiutare...
Non ho mai usato il Perl e sto traducendo un programma dal Perl a C.
Sapete cosa vuol dire una espressione del tipo:
$block[$tsk]{$which_period} = $block[$tsk]{$which_period}  . "
$id_block";;
dove tsk,which_period,id_block sono tutte variabili
Grazie mille.

 Grazie mille.
ciao
Roberto.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 dove tsk,which_period,id_block sono tutte variabili
Difficile dirlo. Nel senso che le hash in Perl sono 
elementi fondanti, e usati per scopi differenti tra loro.
Ne cito un paio.
1. Array associativi. Beh, quello per cui le hash sono 
state ideate: una maniera per aggregare insiemi di dati
tra loro uniformi, con modi particolarmente efficienti
per recuperarli. Ad esempio
  my $nomi_di_battesimo = {
     'Tolkien' => 'John R.R.' ,
     'Jordan'  => 'Robert' ,
     'Egan'    => 'Greg' ,
      ...
  };
Se il programma che stai traducendo adopera una hash
in questo modo, allora dovrai avvalerti di una libreria
che fornisca l'implementazione delle hash, oppure scriverne
una da te.
2. Strutture dati complesse. In questo senso si 
tratta di aggregati di dati eterogenei, che insieme 
concorrono a descrivere un'unica entità:
  my $impiegato = {
    nome    => 'Stefano' ,
    cognome => 'Rodighiero' ,
    staff   => 'devel' ,
    ufficio => '3A' 
  };
In questo senso sono equiparabili alle struct C. 
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: HTML template

Dovrï¿œ utilizzare una libreria per il problema in oggetto. Ho trovato, ad 
esempio, FLATE:
 
http://flate.dead-inside.org/
per la vostra esperienza ï¿œ una buona scelta?
E.

 per la vostra esperienza è una buona scelta?
Io uso il modulo
http://search.cpan.org/~samtregar/HTML-Template-2.9/Template.pm
mi trovo benissimo

?manu* wrote:

Personalmente non l'ho mai sentita prima.
Che non vuol dire niente, perï¿œ in genere le librerie Perl piï¿œ affidabili 
(usate, testate, con sviluppo attivo) le trovi su CPAN, non (soltanto) 
sul sito web dell'autore.
Per quanto riguarda i template engine, quello piï¿œ popolare ï¿œ 
probabilmente Template-Toolkit (TT) che, oltre ad essere potentissimo, 
ha i first-class object e la dot-notation di Python, per cui dovresti 
trovarlo familiare.
Lo trovi su CPAN:
http://search.cpan.org/dist/Template-Toolkit/
ma ha anche un suo sito dedicato:
http://template-toolkit.org/about.html
http://template-toolkit.org/docs/
Tra l'altro ne esiste anche un port su Python, per cui quello che impari 
lo potrai riciclare:
http://template-toolkit.org/python/index.html
Poi ce ne sono tantissimi altri (sempre su CPAN), tra cui HTML::Template 
giï¿œ menzionato da Oreste, oppure Mason, anch'esso molto popolare (e 
molto potente, essendo in realtï¿œ un web-framework completo).
Poi ce n'ï¿œ un altro condiviso anch'esso con Python che si chiama Petal:
http://search.cpan.org/dist/Petal/
che ï¿œ un port su Perl del template-engine di Zope (TAL).
Infine te ne segnalo uno che ha un approccio molto particolare: non usa 
tag estranei all'HTML, ma si basa sulla manipolazione dell'HTML Tree stesso:
http://search.cpan.org/dist/HTML-Seamstress/
Comunque con TT vai sul sicuro.
Ciao.

HTML-Seamstress è davvero molto interessante , non lo conoscevo.
Vedo finalmente qualcosa che evita la manipolazione del codice html,
in effetti la pratica migliore è di tenere ben separati i vari codici.
Con html::template ci riesco solo in parte, mentre TT usa un vero
linguaggio parallelo.
Grazie per la segnalazione
On Jun 14, 11:57 pm, Emanuele Zeppieri


Newsgroup: it.comp.lang.perl
Titolo: espressione regolare

Ciao a tutti,
vorrei sottoporvi un problema banalissimo ma che mi sta facendo impazzire.
Ho la necessitą di controllare dei campi di una tabella e di eliminare
eventuali zeri iniziali superflui. Ad esempio:
000000 deve diventare 0
012345          "             12345
000123          "             123
001000          "             1000
Vorrei fare una cosa elegante ed efficiente con una sola espressione
regolare, ma non riesco a trovarla. Potete aiutarmi?
Ciao e grazie
Quix

 
  prova questa: 
 echo 000123 | perl -ne 's/^0+//; print' 
-- 
#eno

  echo 000123 | perl -ne 's/^0+//; print'
 
meglio ancora questa:
echo 00120 | perl -ne 's/^0+(\d+)/$1/; print'
echo 00000 | perl -ne 's/^0+(\d+)/$1/; print'
tratta anche il caso speciale di 00000
-- 
#eno