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

s c h i z o - g i z m o
=======================
e' uno script in perl 
che attraversa un'albero di directory 
(la sintassi e' unix; al momento, quindi, x gli utenti win & mac... ciccia!)
contenente immagini e file html
partendo da una radice (settabile)
(l'intenzione e' quella di sfruttare la cache di netscape)
e la ricostruisce in una directory temporanea (settabile)
attraverso un processo di randomizzazione
degli elementi incontrati
.
per chi fosse interessato,
l'URL di schizo-gizmo e'
http://utenti.worldonline.it/centomila/schizo-gizmo/
have a good trip with your brain :)
(sono graditi commenti & suggerimenti)

 ha scritto nel messaggio
news:87pum3b...@worldonline.it...


 ha scritto nel messaggio
news:8q3ljd$ba2$1...@nslave1.tin.it...


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

Gentili,
leggevo più addietro, della possibilità di compilare con estensione .exe, il
sorgente perl. Gia conoscevo perl2exe, ma mai sono riushito a compilare in
modo compiuto (funzionale), in quanto mi vengono richieste delle libbrerie
che nel pacchetto scaricabile non sono incluse (e manco sono riuschito a
reperirle in rete). E quando mai riesco a forzare la compilazione, le
libbrerie dell' esegibile creato sono vuote => runtime error !
What's solutions / sudgestions you might propose ?
Thks

 reperirle in rete). 
Potresti fornirci gli errori che ti dà? Aggiungi per favore anche
l'elenco dei moduli che utilizzi nei tuoi script (dunque l'elenco dei
vari "use Nome::Modulo").

 Potresti fornirci gli errori che ti dā? Aggiungi per favore anche


 ERROR: Can't open C:\.......mydir\p2x580.dll
Sei sicuro che la versione di perl2exe che hai sia compatibile con il
perl (Activestate) che hai installato? E' l'unica cosa che mi viene in
mente.
Ad ogni modo, potresti installarti PAR: funziona perfettamente ed è
gratuito. Per installarlo potresti usare PPM:
da ppm digita
rep add bribes 
http://www.bribes.org/perl/ppm/
poi fai search PAR e poi install NUMERO (PAR 0.91)
Una volta installato, scrivi
pp 
lwpsampl.pl
 e otterrai un a.exe perfettamente funzionante.

 ha scritto nel messaggio
news:du43r7$12s$1...@nnrp.ngi.it...


 PAR, è un apiacevole novità, Proverò
Per la cronaca, sto avendo dei problemi con PAR 0.91, io uso la versione
0.90, denominata "par-5.8.7" che si trova in altri repository (per
comodità va installato PPM::Repositories :
http://search.cpan.org/search?query=PPM%3A%3ARepositories&mode=module
 )
o credo direttamente dalla directory CPAN dell'autore.

 ha scritto nel messaggio
news:du473d$26t$1...@nnrp.ngi.it...


 ho installato Activeperl 5.8.0
Non usare perl 5.8.0, ha un sacco di problemi!
Installa ActivePerl 5.8.7
http://www.activestate.com/Products/ActivePerl/?mp=1
che rispetta pure eventuali installazioni preesistenti.
Se sei su Windows, anche niPerl va benissimo:
http://www.numeninest.com/Perl/
Ciao,
Emanuele.
Newsgroup: it.comp.lang.perl
Titolo: Eliminare mime attach dalle email

Qualcuno puo' aiutarmi ? Vi ringrazio in anticipo.
Uso POP3Client per leggere da perl delle email per parserizzarle
e inserire alcuni dati in un database ORACLE.
Ho il problema che molte email arrivano con attach, che io devo
eliminare a priori, per avere una situazione pulita.
Come posso fare, in modo pulito che funzioni sempre ?
In passato utilizzavo eseguibili esterni come munpack su unix, ma ora
devo fare tutto in perl e voglio scrivere una soluzione pulita
usando meno programmi esterni possibile.
-- 
Francesco Poggio
Architecture Specialist
IT Governance Magneti Marelli
Tel: 
+39 011 6879188
Fax: 
+39 011 6879234
Cel: +39 0335 5498700
Mailto:
Francesc...@venaria.marelli.it

 wrote:
Dai un'occhiata hai MIME tools, fanno al caso tuo. Non li conosco
in profondita' percio' non saprei darti maggiori informazioni ora.
-- 
Ciao, Maurizio.

Newsgroup: it.comp.lang.perl
Titolo: domanda sulle variabili

Salve a tutti
scusatemi per la (probabile) facilià della domanda ma sono un novellino del
perl ed ho una grossa urgenza di risolvere il problema.
Avendo un variabile a cui è assegnata una stringa di testo (non ne conosco a
priori la lunghezza) vorrei assegnare ad un altra variabile la prima lettera
della stringa. Mi spiego:
se $titolo="casa"
alla variabile $a voglio assegnare "c"
grazie a tutti per l'attenzione
    Roberto

 ha scritto nel messaggio
news:PaEc7.2208$Xf5....@news.infostrada.it...

Newsgroup: it.comp.lang.perl
Titolo: ***Aiuto per system*****

Ciao a tutti
Qualcuno mi sa dire come faccio a mettermi in una variabile il risultato
di una exec o di system ?
Ad esempio system ('hostname'), come faccio a catturare il valore di
hostname??
Grazie

 wrote:

Non puoi. system() serve per eseguire programmi esterni, non per ottenerne il
risultato. Peggio ancora exec(), che non torna mai.
Per quello che vuoi tu devi usare i backtick `` (oppure qx{} che e' la
stessa cosa)
 $hostname = `hostname`;
 
 oppure
 
 $hostname = qx{hostname};
 
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 $hostname = `hostname`;
mi sono sempre chiesto che differenza ci sia fra l'uso
dei backticks e
open(PIPE, "hostname |");
oltre a non aprire una shell, ci sono altre
differenze?
Oha
-- 
"Qualcuno mi spieghi perche' 144 e' l'unico
quadrato perfetto della serie di Fibonacci"

 differenze?
A parte l'inutile complicazione? 
Quanti dati ti aspetti di ricevere da hostname? La pipe in ingresso la apri
se il programma deve girare tanto e produrre dati che tu elabori man mano
che arrivano (ad esempio, se il programma produce tantissimi dati di cui te
ne interessano una minima parte).
Se il programma produce pochi dati, in maniera statica, con i quali non devi
interagire, usi i backtick.


interagire, usi i backtick.
poco convinto, ho fatto una prova su un P200 di cui
riporto i risultati:
$ perl -v
This is perl, version 5.004_04 built for i386-linux
Copyright 1987-1997, Larry Wall
Perl may be copied only under the terms of either the
Artistic License or the
GNU General Public License, which may be found in the
Perl 5.0 source kit.
$ cat 
temp.pl
for($i=0;$i<1000;$i++)
{
        my $out=`hostname`;
}
$ time perl 
temp.pl
real    0m13.235s
user    0m5.820s
sys     0m7.390s
$ cat 
temp2.pl
for($i=0;$i<1000;$i++)
{
        open(P, "hostname |");
        my $out=<P>;
        close(P);
}
$ time perl 
temp2.pl
real    0m13.520s
user    0m5.790s
sys     0m7.720s
___
pare che i metodi si equivalgano, come tu dicevi,
invece, se cambio `hostname` con 
`zcat /usr/doc/HOWTO/HOWTO-INDEX.gz`
usando i backticks ho un real di 42.498s
usando una open ho un real di 25.617
Oha
PS:
$ zcat /usr/doc/HOWTO/HOWTO-INDEX.gz | wc
924 4707 35192


 riporto i risultati:
Pazienza. TMTOWTDI.


Pazienza. TMTOWTDI.
eh eh :)
Oha

Newsgroup: it.comp.lang.perl
Titolo: flock di dbm

Ciao a tutti...
una domanda (forse stupida ma...)...
C'č bisogno di FLOCKare anche i file dbm (hash permanenti su file) per
evitare casini quando vi accedono due persone simultaneamente?
e se si, serve lockarli anche se li accedono solo in lettura o se uno in
letturae l'altro in scrittura?
Grazie!
Salva

 letturae l'altro in scrittura?
Beh. Per la sola lettura non c'e' bisogno, di solito, mentre ce ne sarebbe
sicuramente bisogno per la scrittura.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Newsgroup: it.comp.lang.perl
Titolo: generatore di codici

Sto cercando un programmino per generare dei codici univoci da
utilizzare per le registrazione ad un servizio.
Quale logica posso usare per generare questi numeri?
Questa logica non deve essere individuata dagli utenti, in modo che
questi ultimi non possano generare facilmente dei codici ed accedere al
servizio.
Qualcuno puo' darmi qualche dritta?
Grazie in anticipo.
ciao
daniele
--

...

Ciao,
io ti consiglio di utilizzare MD5, si tratta di un algoritmo che cripta a
128 bit una stringa di qualsiasi dimensione creando un codice univoco e
unico per ogni stringa immessa..... mi spiego meglio:
se hai la parola "ciao" l'algoritmo ti ritorna: "dsadask2114235d" (per
esempio), e se riscrivi "ciao" ti ritorna la stessa cosa..
Se hai installato perl per NT il modulo è gia' compreso (a seconda della
versione) mentre se hai Unix o un suo clone devi scaricare il modulo al
seguente indirizzo:
ftp://sunsite.cnlab-switch.ch/mirror/CPAN/modules/by-category/14_Security_an
d_Encryption/
Troverai anche molte altre cose interessanti
        Ciao a presto ... Mully
Newsgroup: it.comp.lang.perl
Titolo: il Perl è sempre Perl?

Ho provato su win95 un semplicissimo script per Perl sul mio pc e non
funziona (ne ho provati anche altri che funzionano).
Lo stesso identico l'ha provato un mio amico su linux e a lui funziona.
Cosa può essere???
Ecco lo script
print STDERR "nome del file: ";
$filename = <STDIN>;
open(FILE, "< $filename");
while (!eof(FILE)) {
  $riga = <FILE>;
  print "$riga";
}
Grazie mille



Forse dovresti dire che cosa fa invece: da errore in compilazione? Arriva
al prompt e non prosegue ? Altro ?
Poi puoi provare con il debugger. Inoltre io verifichere se da un errore
nella open (magari il nome del file e' sbagliato, ed il file non viene
aperto ...)
--------------------------------------------------------------------------
       -- )     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?

 Come posso procurarmelo??
Scusa, ho dato per scontato che lo sapessi.
Perl e' dotato di un semplice debugger interattivo con il quale si puo'
eseguire un programma, farlo fermare ad una istruzione, verificare e
modificare il valore di variabili, eseguire le istruzioni passo, passo,
etc.
Si usa semplicemente lanciando perl con lo switch -d :
perl -d 
program_to_debug.pl
						l.f.


Newsgroup: it.comp.lang.perl
Titolo: CPAN e moduli recenti

...in questi giorni mi sto picchiando furiosamente con CPAN..
devo installare il Modulo Net::Analisys  ma cpan sembra non vederlo
da nessuna parte.. partono ora i domandoni
1)c'è un modo per aggiornare la cache di cpan?
2)Se il server originale di cpan è
ftp://ftp.funet.fi/pub/languages/perl/CPAN/
come mai anche utilizzando  solo quel server nella urllist
non trova il modulo?
3)posso evitare di provocarmi danni permanenti per abuso di tamarindo
e far funzionare il tutto(CPAN almeno)  ? ^_^ 
saluti 
(D).A.v.i.d

 e far funzionare il tutto(CPAN almeno)  ? ^_^
Ho risolto reload index ... che cazzata il tamarindo mi aspetta...
Newsgroup: it.comp.lang.perl
Titolo: mi dite dove sbaglio?

#!/usr/bin/perl
@badStrings=("String 1","String 2","message number \\d+ rcvd");
open INFILE, '<', "./inputfile";
open OUTFILE, '>', "./outputfile";
while ($line=readline INFILE)
{
	$flag=0;
	for $currstring (@badStrings)
	{
		$flag=1 if $line =~ /$currstring/;
	}
	print OUTFILE $line if $flag!=1;
}
close INFILE;
close OUTFILE;
Lo script in questione e' assolutamente banale eppure da qualche parte
devo commettere qualche fesseria... infatti eseguendolo su un file di
circa 6Mb ci impiega circa 9sec. contro gli 0.9 di uno analogo scritto in
awk.
C'e' un modo per velocizzarlo?
grazie mille



Ciao,
  due problemi: 
     1. Ricompili le regex per ogni iterazione
     2. Test tutte e tre le regex, pure se la prima matcha.
 Prova a riscrivere il loop così:
@badre = map qr($_) @badStrings; 
while (<INFILE>)
 {
 	foreach my $re(@badre)
 	{
                unless (/$re/) {
 		print OUTFILE;
                last;
 	}
}
e dimmi che succede....
 
-- 
Leo "TheHobbit"
One Ring to rule them all, One Ring to find them,
One Ring to bring them all and in the darknes bind them
In the land of Mordor where the Shadow lie.

 C'e' un modo per velocizzarlo?
Ho fatto delle piccole modifiche, vedi se noti differenze...
  Cordialità,
  P.
<CODE>
#!/usr/bin/perl
 
@badStrings=("String 1","String 2","message number \\d+ rcvd");
 
 
 open (INFILE, "./inputfile"); 
 open (OUTFILE, ">./outputfile");
 while (<INFILE>) {
 	$flag=0; 
	foreach (@badStrings) {
 	$flag=1 if $line =~ /$_/; } print OUTFILE
 	$line if $flag!=1;
 }
 
 close INFILE; 
 close OUTFILE;
</CODE>
-- 
<!--_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
                      The Hacking Pages   
 
www.lulli.net
 
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-->
Newsgroup: it.comp.lang.perl
Titolo: Problema con Archivie Zip

Questa è la frase che mi appare quando io provo ad effettuare operazioni con
il file zip:
Can't locate Archive/Zip.pm in @INC (@INC contains:  C:/Perl/lib
C:/Perl/site/lib.) at 
extract.pl
 line 12.
BEGIN failed--compilation aborted at 
extract.pl
 line 12.
Ho provato ad inserire la libreria 
zip.pm
 sia sotto c:/perl/lib  che
c:/Perl/site/lib ma il problema persiste.
Qualcuno ha avuto a che fare con questa utilities??
Grazie!

 c:/Perl/site/lib ma il problema persiste.
forse la devi mettere in
C:/perl/lib/Archive/Zip.pm
....
Ma il perl per win non ha un sistema di gestione dei moduli funzionale?
No penso che tu li debba per forza copiare a mano nelle directory 
adeguate...
-- 
Saluti,
Giancarlo

Ho paura che il problema possa dipendere dal fatto che il perso sul serve č
installato su d: anziche c:!!!
Come posso ovviare il problema??
Azz, non so come raccapezzarmi!!!!
Grazie!!
Byez


Vedo che sei su una macchina windows. Hai installato Archive::Zip con
ppm?

Azz, non so come raccapezzarmi!!!!
Ma ppm dov'e` finito?
Ciao.

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

Come definire il penultimo elemento di un array?
Grazie
Ciao
Teo
·· e-mail «
aven...@libero.it
» ··
    ð ICQ number 42325926 ð
   Linux (kernel 2.2.10) user

Come definire il penultimo elemento di un array?
$PIPPO[$#PIPPO-1]
Ciao
Andrea

 $PIPPO[$#PIPPO-1]
Amante delle complicazioni, eh?
 $pippo[-2]
 
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Grazziiiie mille.


 $pippo[-2]
Non sapevo che si potesse andare anche per valori negativi (per
partire dalla fine), molto utile! :-)))
Ciao
Andrea
Newsgroup: it.comp.lang.perl
Titolo: scrivere dentro un file

mettiamo che io ho un file di testo con 3 righe tipo
riga 1
riga 2
riga 3
o simile, se io volessi aggiungere per esempio una riga tra la prima e
la seconda, come devo fare???
sul libro che sto leggendo io non c'e' questo caso, spiega solo come
aggiungere delle righe col comando seek(descrittore, numero_di_byte,
riferimento) ma facendo cosi' sovrascrive la riga che c'era prima, pero'
non voglio che c'ho avvenga, mi sono letto un po' man perlfunc ma non
c'ho capito una mazza, cioe', non so se serve un'altro comando o simile,
potete aiutarmi??? magari se mi dite quale comando serve mi leggo il man
perlfunc di quel comando (se non sono stato chiaro ditemelo ^_^) 
bau

 wrote:
: mettiamo che io ho un file di testo con 3 righe tipo
: 
: riga 1
: riga 2
: riga 3
: 
: o simile, se io volessi aggiungere per esempio una riga tra la prima e
: la seconda, come devo fare???
scrivere la prima, aggiungere la nuova riga, e scrivere tutto il resto del
file.
.mau.


mi avevano gia' suggerito cosi'.
ma come faccio a leggere una riga sola???
le mie capacita' limitate non me lo permettono :)))
bau

ma come faccio a leggere una riga sola???
$riga=<FILE_HANDLER>;
-- 
Saluti,
Giancarlo


saro' testone ma non ho capito
bau

saro' testone ma non ho capito
Es.:
open (MIOFILE, "nomefile");
while ($riga = <MIOFILE>) {
  print "$riga\n";
}
close (MIOFILE);
	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: un aiutino ( newbie )

sono alle prime armi ...so che dovrei sbattermi la testa ma in questo
frammento di codice non so proprio dove sbaglio :
#!C:/perl/bin/perl.exe
@array1 = ( 10, 20, 30 ); 
@array2 = ( 40, 50 );
@array1_inv = reverse( @array1 );
@array2_inv = reverse( @array2);
print = @array1_inv ;
print = @array2_inv ;
@array_tot = @array1_inv + @array2_inv ;
print = @array_tot;
<>
mi potete x favore dire dove sbaglio e perche' ????
Ciao 
Pietro 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 <>
Aiutaci ad aiutarti. Cosa vuoi ottenere, e cosa ottieni invece ?
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org/blog
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it

> Aiutaci ad aiutarti. Cosa vuoi ottenere, e cosa ottieni invece ?
Io devo semplicemente creare l'inverso di 2 array e unirli in un solo
array .
Questo e' quello che ottengo : can't modify print in scalar assignment 
at C:\xx\
xx.pl
 line 6 , near "@array1_inv ;"
Ciao e Grazie 


 @array_tot = @array1_inv + @array2_inv ;
Questa istruzione sarebbe pure giusta, ma non fara` quello
che (immagino) tu ti aspetti, ovvero concatenare i due
array che hai definito. Per renderti conto di quello che
fa, prova ad eseguire questo, e vedi se riesci a spiegarti
il comportamento di tale codice.
  @c = (1, 2, 3);
  @d = (3, 4);
  @a = @c + @d;
  print @a;
+++
Secondo me non ha senso che continui a scrivere codice piu` 
o meno a casaccio finche` non funziona: guadagneresti parecchio 
tempo leggendo un po' di documentazione. Ad esempio:
  * perlintro 
 
http://pod2it.sourceforge.net/pods/perlintro.html
  * il corso di Perl di Michele Beltrame
 
http://www.perl.it/documenti/articoli/index.html
 (indice)
 
http://tinyurl.com/9r2bb
 (versione PDF)


 
La funzione di print non è seguita dall' =
Piuttosto racchiudi l'array tra doppi apici per produrre l'interpolazione di
variabile:

Ok risolto , capito dove sbagliavo . 
..Grazie x avermi aiutato  x il link e sopratutto x l'esempio
"chiarificatore "

Newsgroup: it.comp.lang.perl
Titolo: Carico CPU con i threads

Ciao a tutti.
Ho un programma sviluppato utilizzando i threads.
Per evitare di sovraccaricare la RAM e le risorse di rete del PC dove
deve girare (si tratta di processi di ping), ho fatto in modo che i
threads che girano contemporaneamente non siano mai più di un certo
numero (nell'esempio $maxpingproc).
Il problema è che la CPU sta al 100% per tutta la durata del
programma, e sto cercando invano di capire perchè.
Ecco il ciclo che si occupa di lanciare i threads (ripulito), forse il
problema potrebbe essere qui.
###legge da DB la lista di apparati da pingare
 while (my $ref = $sth->fetchrow_hashref()) {
   while ( $activethreads >= $maxpingproc ) {
     ### non fa nulla finchè il numero dei processi attivi è >= del
massimo consentito
     ### la variabile $active threads è shared e viene
incrementata/decrementata dai thread
     ### quando iniziano/finiscono
   }
   ### lancia il thread
   threads->new(\&pingprocess, $ref->{'ipAddress'});
 }
Secondo voi può essere quel ciclo while vuoto l'istruzione che carica
così tanto la CPU?
Grazie.

 cosě tanto la CPU?
Ehm... mai sentito parlare di "attesa attiva"?
Quel ciclo while viene eseguito di continuo, ovvero la condizione
viene testata in continuo. Per cui carico pieno.
Leggi perlthrtut, e prova a usare un semaforo e attesa passiva (credo
sia la funzione 'lock', o 'cond_wait') per attendere la terminazione
di un thread qualunque ( ->join non va bene perche' ne attende uno in particolare)
-- 
  dakkar
  sono su PerlMonks.org, 
use.perl.org
, PAUSE/CPAN


No, mai sentito parlare ;)
La funzione lock credo serva ad altro, o almeno quella che conosco io.
In ogni caso, preziose informazioni. Mi toccherà mettermi a guardare come
funzionano sti semafori... ;)
Grazie mille!
Newsgroup: it.comp.lang.perl
Titolo: Motore delle espressioni regolari non funziona?

Ciao a tutti,
 come da titolo ho una stringa in un file che non riesco a "matchare"
con il motore di espresssioni regolari del mio interprete PERL
(ActiveState ActivePerl 5.8.x - lavoro sotto Windows). La stringa è la
seguente:
...
<wiride>
    <codice_scheda>
...
dove tra i due tag ci sono il carattere <LF> [ (\n) ] e più spazi [
(\s)+  oppure quattro spazi, senza usare espressioni regolari ]. Le ho
provate tutte (ma veramente tutte - diventandoci quasi matto), ma la
sequenza tra i due tag non la riconosce... riconosce solo <LF> e più
spazi, ma separatamente (solo il primo o solo il secondo).
Dov'è che ho sbagliato???
Grazie

 Dov'č che ho sbagliato???
Se non spieghi quello che hai fatto, č difficile dirtelo ;-)
Cerca di dire *esattamente* quello che vuoi matchare (specificando 
altresě con chiarezza se vuoi anche "catturare" qualcosa, e se sě cosa), 
magari fornendo degli esempi *completi* delle stringhe che stai 
elaborando, e vedrai che il regex engine di Perl funziona alla 
perfezione ;-)
Ciao,
Emanuele.

 
Formidabile!
Hai appena cominciato, e hai dato la colpa a Perl, come se in 18 anni che
esiste nessuno si e' accorto che il motore non funziona.
Prova a dire, invece: "non capisco come si fa", e fai vedere cosa hai fatto.
Magari si riesce anche a dirti dove sbagli.
PEBKAC
http://www.google.com/search?q=define+pebkac
ciao
gmax
-- 
 _  _ _  _
(_|| | |(_|><  The Data Charmer
 _|
http://datacharmer.org/
Newsgroup: it.comp.lang.perl
Titolo: Stato di salute del Perl

Ci sono alcune cose che un po' mi preoccupano relativamente allo stato
di salute del Perl. Uno di questi è la scarsa frequentazione di questo
NG, ma ce ne sono anche altri.
Volevo promuovere l' espressione di vostre opinioni nel merito di
questi due punti:
1. Come si pone oggi lo stato del perl e dei CGI rispetto alla
concorrenza di altri linguaggi e di  tecnologie di scripting?
2. Come si pone il linguaggio di programmazione Perl rispetto agli
altri linguaggi di programmazione
Mi interessano i vostri pareri su:
1. Efficacia e validità;
2. punti deboli e punti di forza
3. Motivi di maggiore o minore diffusione
4. prospettive future
La mia preoccupazione non tanto quella di salvare un investimento
formativo, (non sono particolarmente evoluto) quanto quella di capire
lao stato e l' evoluzione di un linguaggio che ha particolari motivi
di interesse.
Ciao a tutti.
Daniele

 1. Efficacia e validità;
Personalmente ritengo il Perl come un ottimo linguaggio per tutti i miei
progetti sotto le 1000 linee di codice. Sopra questo limite, riconsidero
di solito l'utilizzo di un linguaggio come il Perl, in favore di altri.
Ovviamente, la mia e` solo una posizione personale.
Per le altre tre richieste, non sono sufficientemente preparato ne' sono
sufficientemente informato, sul Perl, per rispondere.
Bye,
 Emmanuele.
-- 
I ... Owe ... You ... Pain! -- Willow, "Tough Love"
Italian Buffy Resource Site (Beta) - 
http://www.ibrs.f2s.com
GnuPG Key ID: 0x788E3A3A
GnuPG Key FP: 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

Ovviamente, la mia e` solo una posizione personale.
Questo è interessante. Ho visto citati (mi pare su Perl.org - o
sbaglio?) progetti di grandi dimensioni che hanno impiegato Perl  per
una quantità di righe sorgente molto ma molto + elevato di quello che
tu citi: per esempio un progetto di migrazione di Unicredtit. In
questo senso vanno anche alcuni - pochi - threads comparsi in gruppi
della gerarchia comp. Però, apparentemente, sembrano fatti
eccezionali, o perlomeno non comuni, e questo sembrerebbe non dare
contraddire il tuo criteri.
Qualcuno conosce delle cifre a proposito del panorama italiano per
quanto concerne l' adozione dei linguaggi? in Italia, posto a 100 il
numero di sviluppatori che sanno scrivere codice con caratteristiche
di  professionalità, quanta percentuale di questi utilizzazno con
qualche sistematicità:
-C
-C++
-Java
-Delphi
da un lato e
-perl
-python
-TCL
-VB
dall' altro? naturalmente i totali potrebberonon dare 100 in quanto
uno stesso programmatore potrebbe utilizzare sistematicamente almeno 2
linguaggi (eg: perl e c)
Ciao

 - VB
Programmatori esperti, e che producono codice di qualita`, in VB non ne
conosco molti, stante anche il codice che vedo in giro... ;-)


4. prospettive future
direi interessantissime, vatti a vedere l'articolo su parrot
e le varie apocalissi ed esegesi di wall e conway riguardo a perl 6.
le trovi su 
perl.com
Newsgroup: it.comp.lang.perl
Titolo: Perl con apache

non riesco a far funzionare uno script perl con apache 1.3.20 (sotto
windows98)
lo script l'ho messo nella cartella cgi-bin con il nome prova.cgi
il perl 5.6.04 della activestate è installato nella directory c:\perl
non so se sia un problema di configurazione di apache, credo di si', devo
cambiare qualche parametro nel file di configurazione per far funzionare
i cgi?
l'errore e' il 500 "internal server error"
Lo script è il seguente:
 #!\per\bin\perl
print "Content-type:text/html\n\n";
print "<html><head><title>Prima paginadiprova</title></head>\n";
  print"<body>\n";
 print "<h2>Ciao atutti!</h2>\n";
 print"</body></html>\n";
grazie a tutti

  #!\per\bin\perl
     ^^^^
"per" ?!
Max

Prova cosi' :
#!C:/per/bin/perl.exe
Ciao


 print "Content-type:text/html\n\n";
prova cosě:
print "Content-type: text/html\n\n";
esegui perl con l'opzione -w che logga tutti gli errori e magari usa
anche strict, poi controlla il log di apache.
Ciao
-- 
Posted from 
relay.mailgate.org
 [151.38.159.199] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.perl
Titolo: Statistiche di file mbox

Salve ALL! :)
Mi domandavo se conoscevate qualche script  in perl che mi tirasse fuori
un po`  di statistiche dal file  mbox di una mailing  list (top posters,
subjects piu` gettonati e simili)...
	Grazie :)
-- 
GHERdO, happy GNU/linux user.
"E sempre allegri bisogna stare...
	... che il nostro piangere fa male al RE!"

 subjects piu` gettonati e simili)...
Non uno script, un modulo:
http://search.cpan.org/search?dist=Mail-Box
Puo` andare bene per quello che devi fare?
ciao
Stefano

 Puo` andare bene per quello che devi fare?
Lo stavo guardando oggi pomeriggio prima di postare. Se non c'e` nulla di
gia` fatto procedero` con il self made :) :) :)


 
http://search.cpan.org/search?dist=Mail-Box
Sto provando ad installare il modulo  in questione su una box OpenBSD3.0
con perl v5.6.1.
Tra le altre cose, Mail-Box necessita di Object::Realize::Later che
pero` non supera il make test:
root@erode:~/Object-Realize-Later-0.08# make test
PERL_DL_NONLAZY=1 /usr/bin/perl -Iblib/arch -Iblib/lib -I/usr/libdata/perl5/i386-openbsd/5.6.1 -I/usr/libdata/perl5 -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' t/*.t
t/10isa.............Weak references are not implemented in the version of perl at blib/lib/Object/Realize/Later.pm line 8
Ho installato anche WeakRef, ma non e` cambiato nulla. Qualche idea?
	tnx :)


 pero` non supera il make test:
Ho  provato  a  chiedere  in  mail  all'autore  e...  Mark  ha  risposto
*istantaneamente*! :)
CMQ, il problema non era in WeakRef, ma in una mia installazione a mezzo
di Scalar::Util, adesso e` tutto a posto.

Newsgroup: it.comp.lang.perl
Titolo: pidof

Esiste l'equivalente per il perl!?
Un altra cosa! perdoc -tf nome se volessi fare una ricerca del tipo perldoc -tf nome* 
come si fa??
grazie
Fabrizio

Esiste l'equivalente per il perl!?
Non credo. Io di solito uso:
$pid = `pidof nomeproc`;
chomp $pid;
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> FAQ di it.comp.lang.perl: 
http://www.borders.it/perl/faq/
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 Esiste l'equivalente per il perl!?
Non esiste, ma puoi scrivertelo facilmente adoperando il modulo
 Proc::ProcessTable
 
http://search.cpan.org/search?dist=Proc-ProcessTable
Ti scrivo due righe di codice che forse fanno già tutto quello che ti
serve:
  sub pidof # trova i pid dei processi applicando una 
            # regexp ai filename
  {  my $retext = shift;
     my $re = qr/$retext/;
     my $t = new Proc::ProcessTable;
     my $ps = $t->table;
     my @pids = map { $_->pid } grep { $_->fname =~ $re; } @$ps;
     return \@pids;
  }
 my @pids = pidof('^bash$');
 print join ", ", @$pids;
Ovviamente puoi anche usare direttamente il comando pidof dall'interno di
uno script perl:
 my @pids = split ' ', qx| /sbin/pidof bash |;
 print join ",", @pids;
...che però, oltre che essere una soluzione poco elegante, è anche poco
portabile. (Mi riferisco alle piattaforme *nix diverse da Linux, non a
Windows, ovviamente)
Max


Grazie per i sugerimenti ma Unix è uno standard!
quindi non avrei problemi per la portabilità!
Fabrizio
Newsgroup: it.comp.lang.perl
Titolo: If -e

Ciao a tutti...
ho provato a scrivere una routine simile:
"
opendir DIR, "$A" or die "Non posso leggere $A";
@allfile=readdir DIR;
closedir DIR;
@allfile = grep { !/^\.+$/ } @allfile;
foreach (@allfile)  {
if ( -e $file) { print  "OOOKK !!!!"; }
else {
print "\n\n\t\t\tATTENZIONE !!!!\n\a";
print "\n\tFile inesistente !!\n";
}
}
"
perchè non mi funziona!?mi compare sempre il msg di file inesistente!:(
Baci
Dany
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 else {
E $file dove la va' a prendere? ;-)
Hint:
#v+
foreach my $file (@allfile) {
	if (-e $file) { print "il file \`$file\' esiste\n";     }
	else          { print "il file \`$file\' non esiste\n"; }
}
#v-
Ed usa `use strict;' nei tuoi script, a meno di non star scrivendo un
oneliner, o nel caso tu sappia *esattamente* quello che stai facendo.
Bye,
 Emmanuele.
-- 
Emmanuele Bassi (Zefram)           [ 
http://www.radiance.d2g.com/~zefram
 ]
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

}
foreach che?
E provare a mettere: $file?

 oneliner, o nel caso tu sappia *esattamente* quello che stai facendo.
a che serve 'use strict;' ??


 
 perldoc perlmodlib
 perldoc strict

 a che serve 'use strict;' ??
E` un pragma per i "costrutti non sicuri": i riferimenti simbolici sono
limitati, le variabili devono essere dichiarate prima di essere usate e
gli identificatori semplici sono riservati alle subroutine.
Quello che puo` interessare di piu`, perche' obbliga il programmatore a
pensare prima di scrivere, e`:
	use strict "vars";
Che abilita il check sulle variabili.


Avevate ragione, mi ero dimenticata il "my $file".. ma il risultato non
cambia!ho provato ad impostare $file=info.txt ma la routine, mi apre si
la dir e mi riporta x tutti i file "non esiste"... compreso x il file
info.txt!
foreach my $file (@allfile) {
	if (-e $file) { print "il file \`$file\' esiste\n";     }
	else          { print "il file \`$file\' non esiste\n"; }
}
-- 


 info.txt!
Esegui lo script nella stessa directory di cui fai il readdir?
Altrimenti, e` ovvio che non ti trovi il file, se dai solo il nome del
file e non il suo path.


Newsgroup: it.comp.lang.perl
Titolo: modulo CGI

Ciao a tutti, stò studiando il modulo CGI.pm però ho incontrato un problema
nel metodo accept,
il mio script è questo:
use CGI;
$dati=CGI::new();
@lista=$dati->accept;
print $dati->header();
print @lista;
dovrebbe stamparmi la lista dei tipi di supporto accettati dal browser
prendendo i dati contenuti in $ENV{'HTTP_ACCEPT'} invece mi restituisce
questo messaggio di errore:
Undefined subroutine CGI::accept
sapete spiegarmi quale può essere il problema? Vi ringrazio anticipatamente
a tutti!!
Claudio Bellucci

 a tutti!!
Che il metodo accept non esiste? Il messaggio di errore mi sembra abbastanza
chiaro.
Se poi vai a leggere la documentazione del modulo CGI.pm, scopri che la
funzione si chiama Accept(), dal momento che ha cambiato nome a partire dalla
versione 2.44.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)
Newsgroup: it.comp.lang.perl
Titolo: alle primissime armi...

ciao,
sono un programmatore Visual basic, e vorrei imparare qualcosa sul Perl.
Cos'è necessario per iniziare? Interprete? Ambiente di sviluppo?
Mi sapreste dire dove posso reperire le risorse software necessarie ? Basta
notepad ed un interprete?
grazie dell'aiuto.

www.ActiveState.com
lì trovi tutto quello che ti serve ossia l'interprete Perl per win32...
(credo sia già disponibile quello per perl 5.6.0, l'ultimo cioè) funziona
benissimo. Per l'editor va bene qualsiasi cosa che produca file di testo.
Certo se usi Perl sotto Linux è tutto più semplice (e migliore :-)))
Ciao
P.S. un consiglio... leggiti due o tre volte un buon manuale prima di
iniziare... se no vai nei matti, comunque è un linguaggio talmente versatile
e potente che vale la fatica.

 Cos'č necessario per iniziare? Interprete? Ambiente di sviluppo?


 e potente che vale la fatica.
Che manuale mi consigli, possibilmente in italiano e cartaceo, essendo anch'io
un pivellino ?
Ciao.
***Ivan*** 

Learning Perl di Randal Schwartz e Tom Christainsen edito da O'reilly

 Learning Perl di Randal Schwartz e Tom Christainsen edito da O'reilly
Grazie, mo me lo vado a cercare subito.
Ciao.
***Ivan***

Newsgroup: it.comp.lang.perl
Titolo: Info su corsi

Sapete di corsi di buon livello in Italia tipo "10gg. full immersion"
su Perl e gestione database MySQL, ad un buon livello,
per chi, purtroppo, non ha più il tempo di fare l'autodidatta?
Chi o quale struttura posso contattare per info
su costi e dettagli vari?
Ciao ... dal profondo sud. :)

 per chi, purtroppo, non ha più il tempo di fare l'autodidatta?
Se non devi fare niente di particolare e hai una buona esperienza di
perl e di database (anche Access <bleargh>) dovrebbe bastarti
un giorno per iniziare a fare qualcosa.
Se installi il Postgres (
http://www.postgresql.org
) e il modulo Pg sei
a buon punto.
Devi creare un database con il frontend del postgres, poi crei un
oggetto
Pg ed esegui le query all'oggetto con la funzione exec() che ritorna
una struttura esplorabile con un'altra funzione, getvalue().
Ti assicuro che la documentazione è più che esauriente; la puoi vedere
sul sito del Postgres.
Ciao,
Valerio
Newsgroup: it.comp.lang.perl
Titolo: come usare il perl sotto windows?

Salve,
Programmicchio in perl sotto linux e vorrei (per motivi di lavoro)
iniziare a farlo sotto windows...
Ma come installare il perl sotto windows?
come funzione?
dove prendo cosa?
Grazie in anticipo.
Mario.

 dove prendo cosa?
Prendi uno di questi:
http://cpan.org/ports/index.html#win32
ActivePerl va benissimo, se vuoi una cosa che funzioni subito.
Poi, se e quando ti andrà di sporcarti un po' le mani, ci sarebbero anche:
http://search.cpan.org/~dagolden/Perl-Dist-Vanilla-6/
e:
http://search.cpan.org/~dagolden/Perl-Dist-Strawberry-0.000001/
Ciao,
Emanuele.


Dal sito 
http://www.ActiveState.com
 mi sono scaricato il pacchetto perl 
per windows, ho lanciato l'installazione, e mi ha installato gli 
eseguibili, le librerie e tutta la documentazione sotto C:\perl
Ha modificato il path aggiungendo C:\perl\bin e credo che abbia pure 
associato l'estensione .pl
Niente di diverso da linux.
Poi mi scrivo i miei 
files.pl
 e li eseguo da riga di comando, come su linux.


E in più c'è "ppm".
Non è potente come CPAN (nel senso che non ci sono tutti i pacchetti), ma 
funziona bene.

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

Ciao a tutti
qualcuno di voi conosce lavora con perl + PAR sotto linux (Debian Lenny)?
Dopo aver eseguito pp su una macchina ed aver spostato i files prodotti 
su un'altra l'esecuzione degli script perl fallisce. Non ho alcun 
messaggio d'errore nulla che possa aiutarmi.
anche un semplice script come
#!/usr/bin/perl
print"pippo";
non viene eseguito sulla seconda macchina... Ho l'impressione che manchi 
qualche libreria ma non ho idea di cosa possa essere. Ovviamente lo 
stesso script su un'altra macchina funziona senza problemi.
Idee?

Risolto il mistero! Se potrà mai servire a qualcuno il motivo per cui 
non veniva eseguito assolutamente nulla è che la directory /tmp era 
montata con il flag noexec, rimontandola con
mount -o remount,exec /tmp
tutto si è risolto...
Come spesso accade sono le piccole cose a fare la differenza

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

Salve, sapete se c'č un modo per implementare l'uso dei socket in perl?
come ad esempio mettere qualche cosa in ascolto in attesa di un client che 
si connetta? insomma una comunicazione tcp/ip server/client...
grazie

 si connetta? insomma una comunicazione tcp/ip server/client...
	perldoc -f socket
--
Alla prossima,
Marco

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

Salve a tutti, forse è un pò OT, ma d'altronde, se cerchi qualcosa di
specifico devi cercare dove ci può essere...
sto cercando collaboratori per la realizzazione di un piccolo portale sul
web publishing, meglio se di Bari, ma non è importante... se a qualcuno
interessa...
Ciao

Cerco collaboratori per mettere su un piccolo portale sul webpublishing. Chi
è interessato può contattarmi all'indirizzo
felixca...@zwallet.com
Grazie in anticipo
[spero si possa fare una richiesta del genere in questo NG, in caso
contrario mi scuso]
Newsgroup: it.comp.lang.perl
Titolo: Esclusione di una parte  di una stringa

scusate la domanda triviale ma qual'è un modo comodo  per estrarre da
una stringa
la sottostringa che NON contiene l'espressione cercata?
esempio :
dato
$stringa="Hello: im am the devil"  vorrei sapendo che nella stringa si
trova la
sottostringa "Hello:"  avere restituita la parte rimanente...

cyber...@libero.it
 ha scritto:

scusatemi ho risolto nel mio caso la parte interessante si trova sempre
a destra del
match quindi   basta $'
se comunque avete un'idea generica ditemela!! ^_^



la mia soluzione e' questa:
memorizzi la stringa originale e quella da escludere. di quella da
escludere ne calcoli la lunghezza (eventualmente +1 per considerare lo
spazio tra le parole). poi tramite index() cerchi la ricorrenza della
stringa da eliminare nella stringa originale. a questo punto devi solo
prendere i pezzi della originale che ti servono: dall'inizio fino al
risultato di index() e poi da index()+lunghezza fino alla fine. chiaro?
ciao

risultato di index() e poi da index()+lunghezza fino alla fine. chiaro?
Vabbe', ma non si fa prima a cercare la stringa con un'espressione regolare
e a scrivere: $` . $'? E Perl conserva gią di suo @LAST_MATCH_START e
@LAST_MATCH_END, oltre a pos e altri strumenti ancora per fare il lavoro.
Ciao.

 sottostringa "Hello:"  avere restituita la parte rimanente...
Un semplice:
$stringa=~ s/Hello//g;
non va bene?
Ciao a tutti,
-- 
MuRdOcK :: User Outside

 Ciao.
e' probabile. e' che sono abituato a lavorare con il C. ciao
Newsgroup: it.comp.lang.perl
Titolo: Data::Page

Ho un problema con questo codice che dovrebbe dividermi in pagine i 
records di un db:
[code]
#!/perl
use strict;
use warnings;
use diagnostics;
use Data::Page;
use DBI;
my $total_entries = 114;
my $entries_per_page = 30;
my $current_page = 1;
$page = Data::Page->new($total_entries, $entries_per_page, 
$current_page);
$dbh = DBI->connect("dbi:SQLite:dbname=catalogo_db","","") || die "was 
not able to connect $DBI::errstr\n";
for $riga ( 1 .. $page->last_page )
{
   print "Pagina: $riga \n";
 
   $sth = $dbh->prepare("SELECT MARCA, MODELLO, DESCRIZ, TIPO, PREZZO 
FROM CATALOGO LIMIT ?, ?");
   $sth->execute( $page->skipped, $page->entries_per_page );
 
   while ( ($marca, $modello, $descriz, $tipo, $prezzo) = 
$sth->fetchrow_array )
   {
      print "$marca, $modello, $descriz, $tipo, $prezzo\n";
   }
   print "*\n";
   $page->current_page( $riga );
}
$dbh->disconnect();
[/code]
purtroppo se ne esce con due errori:
uno di sintassi a questa riga:
[code]
$sth = $dbh->prepare("SELECT MARCA, MODELLO, DESCRIZ, TIPO, PREZZO FROM 
CATALOGO LIMIT ?, ?");
[/code]
l'altro è che non riesce a eseguire questa riga perche manca un valore 
oppure un valore e undef:
[code]
   $sth->execute( $page->skipped, $page->entries_per_page );
[/code]
non so proprio come risolvere la questione,
grazie

 [/code]
Qui [1] non ho idee. Puoi postare il messaggio d'errore preciso?
Hai provato a controllare prima dell'execute() il valore restituito
dai due metodi?
ciao,
S.
[1] La storia del metodo skipped() e` divertente. Valdez, un
Perl Monger italiano, aveva implementato skipped() e l'aveva
messo in produzione come sottoclasse di Data::Page (chiamandolo
Data::Page::Extended [
http://www.perlmonks.org/?node_id=329749]
).
Ovviamente sarebbe stato bello avere il metodo direttamente in
Data::Page, per evitare di dover mantenere un modulo che facesse 
una cosa cosi` semplice. All'Italian Perl Workshop dell'anno scorso 
c'era anche Acme (aka Leon Brocard), l'autore di Data::Page.
Valdez ha scritto il metodo su un pezzo di carta e ha passato
il "bigliettino" ad Acme, che stava seduto una fila di posti
piu` avanti. Una patch cartacea, letteralmente.
Dopo qualche minuto: 
http://www.perlmonks.org/?node_id=375933
.
Controlla la data del post, e confrontala con le date dell'IPW :)
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

 statement. In effetti nella doc di DBI si puo` leggere: 
hai ragione .. cmq "credo" di aver risolto cosi':
my $total_entries = 114;
my $entries_per_page = 30;
my $current_page = 1;
$page = Data::Page->new($total_entries, $entries_per_page, 
$current_page);
my $start = 0;
for $riga ( 1 .. $page->last_page )
{
   $sth = $dbh->prepare( qq{SELECT MARCA, MODELLO, DESCRIZ, TIPO, PREZZO 
FROM CATALOGO LIMIT $start, $entries_per_page} );
   $sth->execute;
 
   $start = $start + $entries_per_page;
}
Newsgroup: it.comp.lang.perl
Titolo: Hash

salve
vorrei sapere se qualcuno sa come ordinare in ordine decrescenti i valori di
un hash ;non le chiavi... ad esempio:
albero => 10
orologio => 35
bussale =>2
diventa
orologio => 35
albero =>10
bussola => 2
grazie

 un hash ;non le chiavi... ad esempio:
http://www.perl.it/documenti/faq/view.html?pag=4&faq=59
Nel tuo caso
use strict;
my %hash=(
	albero => 10,
	orologio => 35,
	bussale =>2,
);
my @chiavi = sort {
	$hash{$b} <=> $hash{$a}
} keys %hash;
print "$_=$hash{$_}\n" foreach (@chiavi);

un hash ;non le chiavi... ad esempio:
 perldoc -q sort
Ciao.



non mi stupirei se su cpan ci fosse già la soluzione
e probabilemente forse c'è pure qualche soluzione ad hoc
io ti do la soluzione primitiva
creati un hash indice in cui le chiavi sono i valori dell'altro hash
ed ordina l'hash indice come preferisci.
 te lo riparsi daccapo estraendo le chiavi, i valori saranno le chiavi
dell'hash originale nell'ordine dell'hash indice
mamma mia ma che ho detto? :)))
PS: scusa non volendo avevo risposto in email e me ne sono accorto
solo dopo (non appariva il msg ^_^)
--
pigmalion at home
http://www.pigmalion.info/

Newsgroup: it.comp.lang.perl
Titolo: AIUTO AIUTO Leggere da file...

Ciao a tutti, scusate se rompo
dovrei leggere un file "A". Record per record controllare se il recond
esiste già in
un altro file "B".
E' possibile fare cio'?
Grazie mille!!!!
NK

E' possibile fare cio'?
Possibile e` possibile, ma magari sarebbe meglio se tu ci dessi qualche
specifica ulteriore, per esempio, sulla dimensione e il formato dei file
coinvolti e sul significato che attribuisci a "record".
Supponendo che si tratti di file di testo, e che con "record" tu intenda una
riga, potresti leggere e memorizzare tutto il file B (per esempio, in un
hash), quindi leggi il file A e per ogni riga controlli se e` contenuta
nell'hash che hai creato.
Se il file B e` ragionevolmente piccolo, e le righe sono ragionevolmente
corte, puoi fare tutto il lavoro in memoria, altrimenti potresti legare
l'hash ad un database su file (con DB_File o simili).
Una traccia di codice potrebbe essere la seguente:
  open hB, "<B";
  while (<hB>) {
      chomp();
      $righe{$_} = '1';
  }
  close hB;
  open hA, "<A";
  while (<hA>) {
     chomp();
     if (exists($righe{$_})) {
       print "Trovato: ", $_, "\n";
     }
  }
  close hA;
Esiste anche un modulo Diff, che potrebbe venirti comodo, in dipendenza da
che cosa ti serve il confronto. .... e ci sono anche programmi apposta per
calcolare la differenza di contenuto tra due file, GNU diff fra i primi da
guardare.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Informazioni su Server Apache

Salve a tutti, vorrei contattare qualcuno che puo' darmi delle
specifiche informazioni su dei moduli Apache per Perl.
Ho delle domande specifiche da fare, se qualcuno ne capisce qualche
cosa, puo' gentilmente rispondere a questo post.
Saluti
King

 wrote:
: Salve a tutti, vorrei contattare qualcuno che puo' darmi delle
: specifiche informazioni su dei moduli Apache per Perl.
...o sara` per il modulo Perl per Apache?-)
: Ho delle domande specifiche da fare, se qualcuno ne capisce qualche
: cosa, puo' gentilmente rispondere a questo post.
Dicci pure.
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) mail (dot) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nandos

Nando Santagata wrote:

Dunque, il problema inerente al server apache era l'utilizzo delle
funzioni di hard_timeout e soft_timeout.
Come funzionano tali funzioni?
Una volta che accade un timeout da parte del server apache come posso
utilizzare queste funzioni ?
Posso prendere il controllo del timeout e mostrare all'host cosa e'
accaduto e perche'?
Grazie
King

 wrote:
: Dunque, il problema inerente al server apache era l'utilizzo delle
: funzioni di hard_timeout e soft_timeout.
: Come funzionano tali funzioni?
hard_timeout - set a hard timeout on a request
void hard_timeout(char *name, request_rec *r)
Sets an alarm to go off when the server's configured timeout expires.
When the alarm goes off, the current request is aborted, by doing a
longjmp() back to the top level and destroying all pools for the current
request. The string "name" is logged to the error log.
soft_timeout - set a soft timeout on a request
void soft_timeout(char *name, request_rec *r)
Sets an alarm to go off when the server's configured timeout expires.
When the alarm goes off, the connection to the client is closed, and no
further I/O is done. Other processing continues normally, giving modules
a chance to clean up behind them.
Esistono anche keepalive_timeout, reset_timeout, kill_timeout,
block_alarms, unblock_alarms.
: Una volta che accade un timeout da parte del server apache come posso
: utilizzare queste funzioni ?
: Posso prendere il controllo del timeout e mostrare all'host cosa e'
: accaduto e perche'?
Non ti so dire: non ho mai usato mod_perl per controllare i timeout.
Ah, guarda anche la documentazione di Apache (io ho qualcosa sulle API
in /usr/doc/apache/manual/misc).
