mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: [it.comp.lang.perl] benvenuto su Usenet!

:
---------------------------------------------------------------------
Questo gruppo ha come argomento la programmazione in Perl per ogni
piattaforma per cui esiste questo linguaggio.
Non sono ammesse discussioni di programmazione generica, per esempio
la programmazione di CGI.
Il gruppo non e` da intendersi moderato ne` in gateway con mailing list.
Il "sito ufficiale" del gruppo e` 
http://www.perl-it.org

 di quotare poco, e di lasciare il testo citato *prima* del tuo.
Ciao,
scusate che vuol dire *quotare poco*?
Grazie.
--
Marco Allegretti
shi...@kataweb.it
http://www.shishii.com

 wrote:
: scusate che vuol dire *quotare poco*?
Fare come hai fatto tu (cioe` eliminare le cose che non servono 
dell'articolo precedente, lasciando solo quelle necessarie alla
comprensione)
ciao,.mau.

 ha scritto nel messaggio
news:8ppu6s$8nj$1...@beatles.cselt.it...

Ciao,
quindi, se ho capito bene si deve cancellare il testo precedente non
necessario.
Per cui chi *quota molto* è colui che invece ritrasmette tutto?
Ho capito bene?
Grazie e ciao.


 cerchero` un'altra donna dentro ai sogni di Tarzan...
Newsgroup: it.comp.lang.perl
Titolo: Principiante chiede aiuto

Salve a tutti.
Ho iniziato a studiare PERL (in ambiente Windows) da  pochissimo tempo.
Proveniendo da altri linguaggio di programmazione,la mia (modesta) opinione
è che si tratta di un programma potente anche se un pò ermetico (almeno per
me). Adesso vorrei di cercar di capire i fondamenti delle espressioni
regolari. Ho letto la documentazione presente nel file perlre.htm ma, anche
a causa del mio cattivo inglese, ci sono cose con non mi sono chiare.
Mi potreste indicare dove poter trovare documentazione,in italiano, su
questo argomento  ?
E veniamo al mio quesito.
Devo estrarre da una pagina HTML una serie di informazioni  che dovranno
essere successivamente elaborate. Le informazioni si presentano a blocchi ed
ogni blocco ha il seguente schema :
 -  Intestazione (si tratta di una dicitura costante)
 -  Una serie di righe  che contengono una dicitura fissa e un dato
variabile (anche il numero di righe è costante) ( esempio  Cliente:    Pinco
Pallino  - Codice Cliente: 256 ecc.) - A volte il dato variabile è a blank
La mia necessità è quella di estrarre i campi variabili separandoli con un
carattere di asterisco (*) in modo che possano essere salvati su un file
testo.  l'asterisco è quindi un separatore  del campo.
Ho già predisposto il programma (che funziona) ma da Voi volevo sapere se
l'approccio che ho utilizzato è corretto oppure se ho programmato con il
metodo usato in altri linguaggi, anche se ho usato il Perl.
Il programma è questo ( ho saltato le informazioni non necessarie)
open IN, $nomefilein;                                                     #
apre il file di lettura
open OUT, $nomefileou;                                                #apre
il file di scrittura
@archivio = <IN>;
#carica in un array tutto il file
chop(@archivio);
$indice =0;
$contatore = 0;
for ($indice = 0;$indice<=$#archivio;$indice++)         #inizia la scansione
dell'array
{
 if ($archivio[$indice] =~ m/.+RICHIESTA/)                 #parola chiave
che determina l'inizio del blocco
    {
     $stringa = "";
     # elimina alcuni TAG html
     $archivio[$indice] =~ s/&nbsp//g;
     # sostituisce i caratteri con asterisco
     $archivio[$indice] =~ s|</B><BR>Scheda n. <B>|\*|;       #######
     $archivio[$indice] =~ s|</B>  del <B>|\*|;
#####à
     ..................
     $stringa = $stringa . $archivio[$indice] ."\n";
     print OUT $stringa;
     $contatore++
    };
};
close IN;
close out;
In pratica procedo, per ogni riga dell'array, a sostituire le parti che
rappresentano sottostringhe, che terminano  nel punto a partire dal quale
estraggo il dato che mi interessa, con un asterisco.
Vorrei sapere se esistono sistemi alternativi per fare la stessa cosa. .
Un'ultima domanda : Qual'è il codice ASCII  per racchiudere una stringa che
rappresenta un comando ( accento acuto ?).
Grazie della pazienza e a presto.

 wrote in message
8e9nih$sk4$1...@nslave1.tin.it...

Newsgroup: it.comp.lang.perl
Titolo: mail

dovrei mandare una mail attraverso uno script perl!
esiste qualcosa di gia fatto!?
Fabrizio

esiste qualcosa di gia fatto!?
A questo risponde l'apposita FAQ a:
http://www.borders.it/perl/faq/
	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!

A questo risponde l'apposita FAQ a:
Per non parlare della documentazione o di un po' di sperimentazione.
Cmq Fabrizio, ci sono *tanti modi*, per quanto ne so:
1. Puoi affidarti a moduli già realizzati (cerca sul CPAN se già non
li hai), vedi le sub Net::SMTP, Mail::Sender, or Mail::Sendmail.
2. Oppure puoi fare tutto da solo aprendo un socket sulla porta 25 di
un server SMTP e mandare.
3. Soluzione intermedia - ti affidi a del codice altrui per la
gestione dei socket come handle e poi ci dialoghi usando print e
<STDIN>. Ad es. prova con pipesock di M.Sciabbarrà che trovi sui
listati di DEV.
-- 
       ¥ 
      |†|
     /    \         la scusa giusta al momento giusto : l'alcool
    |      |        non ho potuto fare i compiti : stavo bevendo
J  |  &  |  D   domani non posso andare al lavoro : devo bere
    |      |        scusa non posso sposarti : la vite mi chiama
    '-----'

A questo risponde l'apposita FAQ a:
Per non parlare della documentazione o di un po' di sperimentazione.


Newsgroup: it.comp.lang.perl
Titolo: Generazione automatica htaccess

Ciao a tutti,
ho la necessità di creare circa 200 coppie di userid/password in automatico
per proteggere una directory.
Avete per caso qualche codice che crei in automatico il file .htaccess
contenente le 200 coppie generate random?
GRazie a tutti

Dave wrote:

per generare le password ti consiglio
http://www.adel.nursat.kz/apg/
per quanto riguarda la generazione del file .htaccess puoi usare htpasswd 
(distribuito con apache) oppure un banale script in perl, la password va 
criptata in MD5 o con crypt()
-- 
~ Federico Feroldi
yahoo! engineer team

Newsgroup: it.comp.lang.perl
Titolo: Configurare Apache

Salve, sono alle prime esperienze con gli script cgi-perl.
Ho installato Linux RedHat 6.2.
Ho provato a caricare con Netscape uno script 'funzionante' precedentemente
inserito nella directory
/home/httpd/cgi-bin , ma purtroppo ottengo solo un Internal server error :
prematurely end of header ... .
Come posso rosolvere il problema ?
Ho notato che nel mio sistema non è presente il file mod_cgi.so.
In piu' nel file httpd.conf compare (senza #) la riga
Load modules mod_cgi.so
GRAZIE

 Come posso rosolvere il problema ?
Prova ad inserire un
print "Content-type: text/html\n\n";
prima di ogni altra riga di output su STDOUT, dovrebbe sistemarsi il
problema.
Ciao, Ezio.
Newsgroup: it.comp.lang.perl
Titolo: estrapolare un valore da una stringa

ciao a tutti,
premetto che sono inesperto di perl (un pò meno di scripting in bash)ma
ho bisogno di estrarre un valore dalla seguente stringa:
<!-- cuin d 665683 --><!-- cuout d 943824 --><!-- avmxin d 563110 -->
il valore è il 2° numero (in questo caso 943824).
Dico in questo caso perchè questi valori sono soggetti a variazioni e
quindi bisogna considerare che crescono o diminuiscono.
qualcuno mi può aiutare?
Grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

quindi bisogna considerare che crescono o diminuiscono.
Il discorso è tutt'altro che chiaro: si può contare sul fatto che il valore
che ti serve è il primo numero che segue la stringa "cuout d"? Se sì,
l'espressione regolare sopra risolve il problema. Se no, chiarisci meglio
la struttura dei dati in ingresso.
Per esempio, per estrarre il secondo numero della stringa, qualsiasi cosa
ci sia in mezzo, va bene anche questa:
   ($valore) = ($_ =~ /^\D+\d+\D+(\d+)/);
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: [Q] Includere variabili da file esterno

Mi trovo a dover creare un file di configurazione esterno al programma
principale in perl. Come posso fare in modo che questo file venga
caricato all'avvio del programma principale per fargli importare le
variabili che mi servono?
Tanto per capirci, mi serve che il file config contenga una cosa di
questo tipo:
$var1 = 'xxxxx'
$var2 = '/var/www/abc/'
$var3 = 'email\@address.dom'
che devono essere poi nel mio prog. principale le variabili $var1 $var2
e $var3.
-- 
 __            ___                        
|  \. _ _  _    _/ _  _ _ _  _. _ |_|_ _  
|__/|(-(_)(_)  /__(_|(_(_(_|| |(_)|_|_(_) 
       _/                                 

 e $var3.
require 'path/del/file/esterno';
Il file esterno deve contenere statements perl validi e terminare con uno
statement che restituisca un valore vero. Tradizionalmente l'ultima riga dei
files require'd e':
1;
Piu' o meno puoi vedere il file esterno come un pezzo del tuo programma
perl - in realta' viene trattato come l'argomento di un eval() - che viene
eseguito all'inizio (puo' contenere anche subroutines, procedure di
inizializzazione piu' o meno complesse, codice condiviso fra piu' programmi,
ecc.
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/

 ecc.
quidi posso inserire una sub che poi chiamo con eval(sub(parametri));
nel .pm? 


 nel .pm?
No, puoi semplicemente inserire una sub nel file esterno e poi richiamarla
dal programma esattamente some se fosse inserita all'interno del programma
stesso.
[file: bho.cnf]
  $var1 = 'pinco';
  $var2 = 'pallino';
  sub scrivi {
     print join"\n",@_,"\n";
  }
  1;
[/file]
[programma:]
  #!/usr/bin/perl
  require "/path/di/bho.cnf";
  $var3 = 'tizio';
  $var4 = 'caio';
  scrivi($var1,$var2,$var3,$var4);
[/programma]
L'equivalenza con l'eval consiste nel fatto che questo esempio e'
equivalente al seguente:
[programma:]
  #!/usr/bin/perl
  eval {
    $var1 = 'pinco';
    $var2 = 'pallino';
    sub scrivi {
       print join"\n",@_,"\n";
    }
    1;
  };
  $var3 = 'tizio';
  $var4 = 'caio';
  scrivi($var1,$var2,$var3,$var4);
[/programma]
perldoc -f eval
per capire come funziona eval.
ciao, marco

Newsgroup: it.comp.lang.perl
Titolo: Scrivere su un file

Ho un problemino: ho una parte di script del tipo:
print "Scegli \"questo\" o \"quello\"\n;
$sel=<STDIN>;
Ora, come faccio a fare in modo che il $sel vada ad essere scritto sul
file, ad esempio, ./temp ?
Ovviamente il file era già stato aperto in scrittura con open()
all'inizio dello script!
Grazie
Edo

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

 all'inizio dello script!
ovviamente era aperto in scrittura (nonnecessariamente all'inizio dello
script)
open (F, ">nomeDelFile") or die "mannaggia ! non funziona ancora!";
          ^
oppure in scrittura ma in "append"
open (F, ">>nomeDelFile") or die "mannaggia ! magari non esisteva?";
          ^^
e poi chiaramente ci scrivi quel che ti pare
print F $sel;
      ^
già che ci sei, ricordati di chiudere il file. non si sa mai cosa può
succedere a questi computer :-)
close(F) or die "Questa poi! non riesce a chiudere il file!";
ciao, antonio

 thus introducing one level of indirection. [...]
Amo questo tipo di risposte, mi fanno sentire un perfetto idiota! Potevo
mica leggere un po' meglio prima di sparare sul NG? 
Vabbè, la prossima volta imparo!
Grazie!
Edo
Newsgroup: it.comp.lang.perl
Titolo: puntatori ed altre domande tecniche

salve a tutti, avrei bisogno di chiarimenti su alcuni punti che sul
manuale risultano oscuri o non trattati, in particolare
1) una funzione deve modificare tre array, devo per forza metterli come
parametri in questo modo ( ? ) 
$x=&func(@parametri_in_input, \@ouput1, \@output2, \@output3 );
nel corpo della funzione, ricevero' i paramtri come $rif_outpu1=$_[1];
ecc...
Devo sottoporre gli array a dei cicli, nel caso @output1 ( 1 per tutti )
sia grande e pieno, fare un foreach ( @{$ref_ouput1} ) e' efficiente? o
sarebbe meglio fare 
@dummy1=@{$ref_output1};
foreach ( @dummy )
cosa accade in realta' in questo caso? e' solo una differenza "visiva" o
il perl tratta le due forme in modo differente? @dummy1 e' un altro
array, e modificando $dummy1[3] i cambiamenti non si riflettono su
@output? cioe' l' array viene duplicato? oppore sono due scritture
uguali per dire la stessa cosa? e quale delle due forme e' migliore,
anche dal lato "ortografico"?
Ivan

 anche dal lato "ortografico"?
@dummy e' un altro array e le modifiche non si riflettono. Stai occupando il
doppio di spazio.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 @dummy1=@{$ref_output1};
No. Così fai una copia e le modifiche in @dummy non hanno effetto su
@$ref_output1.
Se vuoi passare uno o più array che debbano essere modificati hai
a disposizione sostanzialemente due tecniche:
Una è quella che indicavi tu. Invochi la funzione così:
 func( \@array1, \@arrya2 );
e internamente usi i due reference per modificare gli array.
L'altro metodo è dichiarare funzione specificando il prototipo:
 sub func(\@\@) { ..... }
e quindi invocarla in questo modo:
  func( @array1, @arrya2 ); # senza '\'!
I parametri contenuti in @_ in questo caso saranno comunque due reference
ai due array, quindi la funzione sarà presumibilmente implementata nello
stesso modo.
Nota inoltre che gli elementi di una lista vengono passati a una funzione
by-reference, nel senso che gli elementi di @_ non sono delle copie di
quegli scalari, ma degli alias. Esempio:
 sub pippo { $_[0] = 2 }
 my @a = (1,2);
 pippo( @a );
 print @a; # stampa "22", non "12"!
Per ulteriori informazioni:
 perldoc perlsub 
Max

Newsgroup: it.comp.lang.perl
Titolo: [Newbie] Script e web

Ciao, vi prego non massacratemi subito di nomi...
Ho letto vecchi post e ho cercato con google ma non mi sono ancora chiare 
alcune cose.
Uno script per può essere eseguito dal server web in modo che l'output di 
tale script possa essere utilizzato per fare un report in formato html?
Se si lo script deve essere per forza un cgi? Il cgi deve essere per forza 
un programma compilato?
Spero di non aver detto bestialià....
Grazie, ciao!
-- 
Davide

ne hai dette, ne hai dette... tranquillo che le abbiamo pensate tutti :-)
comunque per queste domande usa it.comp.www.cgi che è meglio... qui sei un
po' Off Topic
ciao
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

 sei un po' Off Topic
ok, thx
Ciao!
-- 
Davide
Newsgroup: it.comp.lang.perl
Titolo: Crittografia con perl

Un saluto a tutti,
come sviluppatore perl mi chiedevo se qualcuno fosse interessato allo
sviluppo di un sistema (anch'esso in perl) che permetta la crittazione delle
sorgenti che quotidianamente vendiamo o semplicemente regaliamo a terzi.
Resta inteso che non desidero impegnarmi in discussioni polemiche sul
perche' ricorrere ad un sistema del genere in un mondo (quello Unix) in cui
la regola principale e' l'opensource (personalmente credo che opensource non
voglia dire necessariamente *gratis*!).
Quello che cerco di proporre è la nascita di un team, completamente slegato
da logiche commerciali, che abbia voglia di impegnarsi in questo progetto
via Internet, magari creando per l'occasione una mailing list.
Attendo vostre considerazioni in merito.
Buon lavoro.
----
Silvano

scusa l'ignoranza... ma non è sufficiente compilare i programmi?
"Silvano Esposito" <s.esp...@NOSPAMspeedlab.it> ha scritto nel messaggio
news:95r5f1$r88$1...@stargate1.inet.it...


Nessuna polemica, ma ci sono gia' i moduli per farlo :-)
Alex

 Nessuna polemica, ma ci sono gia' i moduli per farlo :-)
Potresti dirmi di piu' in merito. Magari darmi qualche url per approfondire?
Grazie.
----
S. E.

...


Newsgroup: it.comp.lang.perl
Titolo: R: errore semplice script

 ciao, .mau.

 wrote:
: Grazie per il suggerimento ma non funziona!
Io ho fatto una prova, prima di risponderti, e a me funzionava
(la versione con il Content-Type, ovviamente.. l'altra no)
: come mai in tutti i tutorial che parlano di perl non parlano di header http?
Perche` appunto parlano di perl, che *puo`* essere usato per scrivere
script CGI, ma non viene usato *solo* per quello.
Ti consiglierei di chiedere in it.comp.www.cgi, allora.
ciao, .mau.

 wrote in message
8i2npu$e78$1...@beatles.cselt.it...


Ricordati di usare il metodo Ascii per trasferire il file dal tuo Pc alla
directory cgi del server, e quando scrivi un cgi o pl usa sempre un editor
di solo txt (io uso notepad di windoz e va benissimo....ehm ne ho scritto
uno solo ma funziona).
Assicurati che il path del Perl sia esatto
ciao ;-)

 wrote in message


Ciao Il problema e' stato risolto, penso che l'errore consisteva nel fatto
che creavo lo script direttamente sul server attraverso il programma ftp,
invece creandolo sul mio pc e facendo l'upload in modo ascii tutto funziona
;)  Ciao
)aniele <amore@mio> wrote in message NTSntJH1$GA....@news1.galactica.it...


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

Salve a tutti. Come faccio ad arrotondare un numero con parecchie cifre
decimali ad un numero con una sola cifra decimale? Grazie mille, ciao a
tutti
--
UFOLOGIA & UFO
http://www.ufologia.com/
"Vivi ogni giorno come se fosse l'ultimo perché uno di questi giorni avrai
ragione di crederlo."

 cerchero` un'altra donna dentro ai sogni di Tarzan

 > int($x *10)/10;
ciao, antonio
Newsgroup: it.comp.lang.perl
Titolo: esiste un editor perl

Buon giorno,
volevo sapere se esiste un editor perl, magari in italiano (in inglese va
bene lo stesso), gratuito, perň.
Grazie,
Nicola

 wrote:
: volevo sapere se esiste un editor perl, magari in italiano (in inglese va
: bene lo stesso), gratuito, perň.
puoi scegliere tra vi(m) e emacs :-)
.mau.

Newsgroup: it.comp.lang.perl
Titolo: Ma dove legge/scrive il perl sotto iis ?

Un quesito x voi
open (prova,">prova");
close (prova);
Questo script ("
test.pl
") crea un file prova da 0 byte.
Lo script e' situato in localhost/myscript.
Il mio problema e' che il file "prova" viene creato in "localhost/" 
anziche' in "localhost/myscript"
Se entro nella directory myscript e da linea di comando eseguo perl 
test.pl
,
naturalmente il file prova e' creato nella directory corrente, 
"d:/localhost/myscript".
Perche' sotto IIS 5, con perl configurato come cgi (.pl associato a 
perl.exe), scrive il file nella homedir anziche' nella directory dello 
script ?
Grazie a chi mi aiutera !!!
Ciao
Paolo Zavarise

Risposta seria: non so
Risposta vera: IIS fa schifo.
Prova Apache 2.0 che sotto win32 dicono che surclassa IIS alla grande... e
costa anche qualcosa meno!
MAx

 costa anche qualcosa meno!
Considerando che Apache vien via gratis e per Incredibly Idiot Server
chiedono dei bei soldi, direi che costa di sicuro meno.
Bye,
 Emmanuele.
-- 
I ... Owe ... You ... Pain! -- Willow, "Tough Love"
GnuPG Key ID: 0x788E3A3A
GnuPG Key FP: 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4
Newsgroup: it.comp.lang.perl
Titolo: Da gif a png

dovrei convertire una gif in png per mandarla sul cell.
Come posso fare (in Perl ) ?
Grazie in anticipo  :)



Forse, per una volta riesco ad essere io utile a qualcuno :-)
Esiste un ottimo modulo denominato Image::Magick.
http://search.cpan.org/~jcristy/PerlMagick-6.02/Magick.pm
Tramite questo modulo, che è una sorta di interfaccia con l'omonimo programma puoi fare tutte le conversioni che vuoi e molto altro ancora.
Ciao,
	nathanvi

 ha scritto nel messaggio
news:20040805104...@ortiz.LINGOTTO.LOCAL...




Ti ringrazio, effettivamente lo avevo gia' trovato e installato, ma ancora
non ho capito come converto un gif in un png!
Forse il problema sta nell'installazione che per quanto risulti "installato"
poi il modulo non viene trovato. Forse per che il modulo
si chiama "Apache-ImageMagick"  e io lo sto provando su Windows! :-/
Ciao

"while()" <fjh...@fjdjf.gjhg> ha scritto nel messaggio
news:CwnQc.28931$1V3.7...@twister2.libero.it...

Io non ci sto a capire piu' niente! Trovo solo Apache-ImageMagick
e non trovo Image::Magick !
Ciao :-/

 Ciao :-/
Forse e` materiale che hai gia` trovato a letto, comunque:
 
http://www.imagemagick.org/www/perl.html
HTH
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

   
http://www.imagemagick.org/www/perl.html
Si, gia' visto...
Cmq grazie:)
Newsgroup: it.comp.lang.perl
Titolo: AIUTOOOOOO !!!!!

Qualcuno potrebbe spiegarmi cosa posso fare per evitare questo errore ed
altri simili con altre librerie:
-----
Can't locate Net/POP3.pm in @INC (@INC contains:
/usr/lib/perl5/i386-linux/5.00401 /usr/lib/perl5...
BEGIN failed--compilation aborted at ./POPProxy.pl line 3.
----
Il sorgente, BANALISSIMO, e' il seguente:
---
#!/usr/bin/perl
use Net::POP3;
----
Grazie in anticipo....
Tony

 wrote:
: Qualcuno potrebbe spiegarmi cosa posso fare per evitare questo errore ed
: altri simili con altre librerie:
: -----
: Can't locate Net/POP3.pm in @INC (@INC contains:
O non hai installato la libnet o hai installato male il Perl.
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nando

...la LibNet lo installata ieri, ed il perl e' stato installato direttamente
durante il setup di LINUX (RedHat)...
...potrebbe  essere un problema di PATH ?
l'errore, tradotto sommariamente dice (piu' o meno...) che non riesce a
trovare il modulo Net/POP3.pm nelle directory contenute in @INC ;
- che cavolo e' @INC ?
- Come faccio a cambiarne il contenuto aggiungendo, ad esempio, il PATH dove
e' stato installato il modulo ?
:-(

 e' stato installato il modulo ?
 BEGIN { unshift @INC, 'netpath' }
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

GRAZIEEEE !!!
...a buon rendere!
Cia'
Tony

e' stato installato il modulo ?
push(@INC, PATH_DEL_MODULO)
es.
POP3.pm è su /usr/pippo/perl/lib/Net
push(@INC, /usr/pippo/perl/lib)
Ciao
Andrea Busia
-------------------------------------------------------
Redattore di Ludus - 
http://www.ludus.it
la prima rivista italiana dedicata ai videogiochi,
con recensioni, anteprime, trucchi, soluzioni, ecc.
-------------------------------------------------------

 wrote:
: ...la LibNet lo installata ieri, ed il perl e' stato installato direttamente
: durante il setup di LINUX (RedHat)...
Forse e` un problema del pacchetto Perl della RedHat.
Prova a fare questa verifica incrociata, esegui:
$ perl -e 'print "@INC\n"'
e cerca dove e` stato installato il modulo Net::POP3
$ find /usr/lib/perl5 -name POP3.pm
poi controlla che la directory segnalata sia tra quelle dell'array @INC.
Una curiosita`: la libnet l'hai installata tu dai sorgenti o era compresa
in un pacchetto Red Hat anche questa?


in un pacchetto Red Hat anche questa?
no, non era nel pacchetto della RedHat, l'ho scaricata da CPAN ed
installata...
Cia', e grazie per il sugg.
Tony
Newsgroup: it.comp.lang.perl
Titolo: ***Espressioni regolari***

Scusate, mi suggerite una espressione per sostituire in un blocco di testo
la a accentata à con l' equivalente html?
Grazie!

 la a accentata à con l' equivalente html?
<code status="not tested">
	use utf8;
	$text_block=~s/\x{00e0}/&agrave;/g;
</code>
   Alternativamente:
	perldoc HTML::Entities
-- 
Alla prossima,
Marco

 
Marco grazie mille, ma forse non ho capito, cosa è utf8?
Il tuo pezzo di codice mi trasforma tutto in un numero!!!
Vedi, ad es qui sostituisco la quadra aperta
$txt =~ s/\[/&#91;/mg;
e funziona!
Il fatto è che non so come codificare le vocali accentate!!

 Il fatto è che non so come codificare le vocali accentate!!
   A questo punto, ti consiglio CALDAMENTE l'uso del modulo HTML::Entities:
<code>
	use HTML::Entities;
	my $string1="Cincillà, cinciquà";
	$string2=encode_entities $string1;
	print "$string1 -- $string2\n"
</code>
-- 
Alla prossima,
Marco

 
Scusami ma questo modulo non ce l' ho!!
So d' essere noioso, dove lo scarico?
Paolo

 So d' essere noioso, dove lo scarico?
   Noioso? Nemmeno per idea... :)
 
http://www.cpan.org
   Se usi una distribuzione ActiveState, puoi usare il programma PPM, 
altrimenti puoi scaricartelo direttamente (facendo attenzione alle 
dipendenze) o mediante il Perl stesso:
	$ perl -MCPAN -e "install 'HTML::Entities'"
-- 
Alla prossima,
Marco

Marco grazie per il tuo aiuto: ho risolto con questa sub estratta da una
libreria pubblica
    sub convert
{
    while (my($entity, $char) = each(%entity2char)) {
    $char2entity{$char} = "&$entity;";
}
delete $char2entity{"'"};  # only one-way decoding
# Fill inn missing entities
for (0 .. 255) {
    next if exists $char2entity{chr($_)};
    $char2entity{chr($_)} = "&#$_;";
}
my %subst;  # compiled encoding regexps
######
    my $ref;
    if (defined wantarray) {
    my $x = $_[0];
    $ref = \$x;     # copy
    } else {
    $ref = \$_[0];  # modify in-place
    }
    if (defined $_[1]) {
    unless (exists $subst{$_[1]}) {
        # Because we can't compile regex we fake it with a cached sub
        $subst{$_[1]} =
          eval "sub {\$_[0] =~ s/([$_[1]])/\$char2entity{\$1} ||
num_entity(\$1)/ge; }";
        die $@ if $@;
    }
    &{$subst{$_[1]}}($$ref);
    } else {
    # Encode control chars, high bit chars and '<', '&', '>', '"'
    $$ref =~ s/([^\n\r\t !\#\$%\'-;=?-~])/$char2entity{$1} ||
num_entity($1)/ge;
    }
    $$ref;
}
Newsgroup: it.comp.lang.perl
Titolo: Fork ?

sto valutando se possa esseere conveniente e funzionale (nel senso che non 
riduce eccezionalmentre le prestazioni macchina), implementare uno 
sdoppiaggio o quadruplicaggio d'azione di una routine.
La routine è preposta a scaricarmi dati da un server, preperendo da un file 
Configurer.conf, l'indicazione di cosa scaricare. Pensavo che moltiplicare 
la medesima routine, facendole ciascuna partire da punti differenti del file 
conf, frazionasse altrettanto il tempo di collegamento internet.
Non ho mai operato con questa funzione, sarebbe fattibile secondo voi ?  da 
perl perlipo non ho capito gran che come implementare la funzione, ed 
eventuali controindicazioni
Thks 

 ha scritto nel messaggio 
news:43da6d88$0$4170$4faf...@reader3.news.tin.it...

Newsgroup: it.comp.lang.perl
Titolo: [OT] Ma tk non lo usa proprio nessuno?

Come da oggetto.
E mica solo in perl, anche in python non lo usano in tanti.
Certo, in python l'ho trovato un bel po' lento, ma in perl gira a 
meraviglia.
pedlo 


Sinceramente, se devo fare qualcosa che coinvolga la realizzazione di
una GUI minima uso proprio Perl/Tk (se non posso fare "web"). Ho
sentito alcuni "lamentarsi" del fatto che le interfacce alla fine sono
un po' bruttine (rispetto ad esempio a WxPerl, 
http://wxperl.sourceforge.net/index.html
),
e probabilmente è vero; sinceramente, però, per quel che faccio va più
che bene.
Se ti interessa, su 
http://www.perlmonks.org/
 c'è zentara che usa
molto Tk (
http://www.perlmonks.org/?node=zentara
).

Newsgroup: it.comp.lang.perl
Titolo: Troncare una cifra.

Salve, sicuramente mi sto perdendo in un bicchier d'acqua pero' non ne
vengo fuori:
data una cifra di lunghezza x dovrei visualizzarla troncandola a 2 cifre
dopo il punto decimale.
Esempio:
1263.72927158 dovrebbe risultare 1263.72
Qualcuno ha idee ?
Ringrazio in anticipo.
Michelangelo
--
Posted from 
server-a.cs.interbusiness.it
 [151.99.250.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

 Qualcuno ha idee ?
 Vuoi troncare o arrotondare?
 
 Per arrotondare, usa printf o sprintf:
    printf "%.2f", $pippo;
 
    $pluto = sprintf "%.2f", $pippo;
 
 per troncare, direi che devi usare una RE
 
  $numero =~ s/(\.\d\d)(\d+)/$1/;
  print $numero; 
 Ma credo tu voglia arrotondare.
 Comunque la risposta si trova nella FAQ di Perl, parte 4 (man perlfaq4)
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@tuttocitta.it
 
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)


Questo funziona:
$numero = "1263.72927158";
$nuovo_numero = sprintf ("%.2f", $numero);
".2f" indica di visualizzare 2 cifre dopo la virgola (punto in
inglese), 2 cifre dopo il floating point.
SAluti
Joe Skop

 inglese), 2 cifre dopo il floating point.
Grazie mille, proprio quello che mi serviva...
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: eseguire script da script catturando l'output

Ciao,
ho bisogno di lanciare uno script da un mio script, in modo che gli vengano
passati dei parametri e l'output dello script lanciato non venga restituito
all'output. Nel caso specifico si tratta dello script awstats che viene
richiamato da un mio script che ho realizzato per estendere le funzionalitŕ
di awstats.
Attualmente sono riuscito a far eseguire lo script con le istruzioni:
$ENV{'QUERY_STRING'} =
"config=$MySiteConfig&logfile=$logPath/ex$logName.log&update=1&framename=mai
nright";
$lancio = system "$PerlPath $path/
awstats.pl
";
Cosě i parametri in 'QUERY_STRING' vengono letti da 
awstats.pl
Il problema č che cosě anche l'output di 
awstats.pl
 viene visualizzato nel
browser e io non ne ho bisogno.
Se invece uso:
do "$PerlPath $path/
awstats.pl
";
oppure:
do "$path/
awstats.pl
";
oppure:
do "/cgi-bin/
awstats.pl
";
ottengo sempre l'errore "Invalid Argument"
Come posso fare per nascondere l'output di 
awstats.pl
?
Grazie
ciao

Con un bel pipe!
open (PIPPO, "applicazione |");
@output = <PIPPO>;
close PIPPO;
e così tutto l'output dell'applicazione "applicazione" è andato nel
handler PIPPO e nel tuo array "@output".
dawe

 close PIPPO;
Funzia anche in windows 2000 ?
Grazie
Ciao

Scusa se rispondo ora, ero in vacanza. Magari ci hai già provato nel
frattempo.
In ogni caso credo proprio di si, del resto la pipe è propria anche di
win.
dawe

Newsgroup: it.comp.lang.perl
Titolo: Esattezza codice blocco file

Vorrei sapere se questa istuzione è corretta.
Io devo fare in modo che la chiamata al mio programma ACAuthority
venga fatta in maniera esclusiva in modo che non ci siano problemi
nella modifica del file Serial.txt (che viene modificato ogni volta
che viene chiamato il programma eseguibile).
Il file attributi.xml è un file temporaneo che ovviamente deve poter
essere scritto da un solo utente alla volta
Grazie molte.
#crea il file XML degli attributi (file temporaneo)
open(attrib_file,">/var/www/private/attributi.xml");
# blocca i processi in modo che solo uno possa scrivere (problemi di
sincronizzazione su Serial.txt per la creazione dell'AC)
flock (attrib_file,1);
    print attrib_file "Questo file contiene tutti gli attributi in
formato XML\n";
close attrib_file;
#chiamo il programma ACAuthority per generare il certificato. Uso
GENERAL NAME
$DistName=$ENV{'SSL_CLIENT_I_DN'};
$output=`/usr/local/ACAuthority/ACAuthority -private
/var/www/private/AAcert.p12 -pass test -holder "$DistName"
-holdersource G -entityName -validity $starting_date $ending_date
-attribute /var/www/private/attribute.xml -serial
/usr/local/ACAuthority/Serial.txt -sha1 $base64  $crl_information
-output $abs_cert_outfile`;
flock(attrib_file,8);

 che viene chiamato il programma eseguibile).
tu dunque immagino voglia fare un lock esclusivo del file Serial.txt
Trovi tutto nelle faq:
perldoc -q lock
o
http://www.perldoc.com/perl5.6.1/pod/perlfaq5.html#How-can-I-lock-a-file-
e seguenti
Altre info in
perldoc -f flock
o
http://www.perldoc.com/perl5.6.1/pod/func/flock.html
-- 
$_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572,,($_,$b)=
split?#?;@b=split?;?;map{$c.=$_,$d.=chr$b[$e++]+ord}split??,pack'H24',$b
;chop$d,print$c.chr(32).$d

Newsgroup: it.comp.lang.perl
Titolo: Mail::Mailer

Ricapitoliamo: io ho il mio progr. cgi bello pronto, ma c'è un problema, il
server su cui si trova il mio sito non è un server Unix, ma NT, quindi, come
mi aveva detto anche Alex, col cavolo che funziona il programma "sendmail"
che dovrebbe trovarsi nella cartella "bin" del server!!! Qualcuno mi può
suggerire come cambiare la riga del codice? Non c'è per caso un programma
come quello anche sui server NT che io potrei richiamare al posto di quello
per mandare la mia benedetta mail? Se non c'è cosa devo fare? Alex mi
parlava di Mail::Mailer, ma sinceramente non ho capito come funziona...
Qualcuno mi può dare una mano? E' sufficiente anche il link ad un tutorial
chemi spieghi. Grazie tantissimo. Ciao.

 chemi spieghi. Grazie tantissimo. Ciao.
perlwin32faq4 - Windows NT and Windows 95: How do I send email from
ActivePerl?
http://velocity.activestate.com/docs/ActivePerl/faq/Windows/ActivePerl-Winfa
q4.html#How_do_I_send_email_from_Perl_fo
Ciao, Ezio Bonsi

 ha scritto nel messaggio
news:Ksfd6.52369$ew1.3...@news.infostrada.it...


 sono arrivato lo stesso. Ciao.
E' sempre un casino postare url lunghi :-(
Bye
Newsgroup: it.comp.lang.perl
Titolo: Problema script

salve a tutti,
stò cercando di far eseguire uno script in perl su linux che mi permette
di creare file .htm dai log di apache, purtroppo però mi ritorna il
seguente errore:
# perl 
log.pl
Can't find string terminator "EOT" anywhere before EOF at 
log.pl
 line
82.
Qualcuno sà dirmi cosa devo modificare nel file???
Grazie mille
bye



Nello script ci deve essere un pezzo che genera dei tag html nella forma 
"here document", cioè ad esempio:
print <<"QUALCOSA";
<tag utml>
QUALCOSA
perchè funzioni la stringa ''QUALCOSA`` deve essere identica sopra e sotto 
e quella di chiusura non deve avere alcuno spazio ne prima ne dopo, 
altrimenti non viene riconosciuto.
Ciao.
-- 
-- Marco Allegretti --
http://www.shishii.com

Newsgroup: it.comp.lang.perl
Titolo: Dove posso trovare ApacheModulePerl.dll?

Non capisco perché non venga distribuita la dll di un modulo importante come
ApacheModulePerl.dll e tutti se la debbano compilare a mano.
Qualcuno l'ha messa disposizione una volta per tutte?
Grazie
Gabo

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

Cosa usi? <g>
Scusa la mia ignoranza, ma i file DLL non sono collegamenti a librerie
dinamiche presentii solo su piattaforme WIn32?

 dinamiche presentii solo su piattaforme WIn32?
Si, ma lui non ha detto che usava Win32.
Dovevo prenderlo per default? :-DDD


 Dovevo prenderlo per default? :-DDD
c'era anche una vena di sottile ironia del tipo
"mah... qui da me funziona tutto sia con linux che con mac... strano che
a te non funzioni..."
hihihi :)
bye,
Gilberto *Veleno* Ficara
___________________________
e-mail: 
g.fi...@fastnet.it
ICQ UIN: 11891959
http://veleno.cjb.net
___________________________
Webmaster di 
www.bestiario.com
 e 
www.hyleg.it
Designer di 
www.icq99.net
Ideatore e mantainer di 
www.3dinfinity.net
Membro dello staff di 
bbk.org
 (designer)
Collaboratore di Html Point, Netnews e 3dRevolution

Newsgroup: it.comp.lang.perl
Titolo: libwww & news

Ciao!
Ho problemi ad inviare news tramite Libwww. Uso il seguente sorgente:
-----
#!/usr/local/bin/perl5
use LWP;
$ua = new LWP::UserAgent;
$ua->agent("myNews/1.0");
$req = HTTP::Request->new(POST => '
news:tin.it.ed...@news.tin.it
');
         $req->header(Subject => 'This is a test',
                      From    => '
mi...@io.com
');
$req->content("Prova forum!!!!");
$res = $ua->request($req);
if (!($res->is_success)) {
    die "NETWORK ERROR!";
}
-----
Mi viene sempre tornato "NETWORK ERROR". 
Grazie in anticipo per l'aiuto.
       A presto, Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

".
Sei sicuro che sia possibile usare una notazione URL per postare?
L'alternativa mi sembra possa essere trovare la notazione corretta oppure
usare Net::NTTP.
Spero sia sufficiente
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: Kill Signals going to forked System command not Perl script

I'm have a problem where kill signals (UNIX, Data General - DG-UX) kill
the forked process from the system command within my perl script,
and therefore don't go to my perl signal handler.  This is causing my
perl script not to clean things up properly.  Example:
-------------------------------------------------------------------
#!/usr/bin/perl
$SIG{'INT'} = 'handler_function';
$SIG{'QUIT'} = 'handler_function';
$SIG{'KILL'} = 'handler_function';
$SIG{'STOP'} = 'handler_function';
$SIG{'ABORT'} = 'handler_function';
$temp_file = "/tmp/temp.file";
system("cat bla bla bla > /tmp/temp.file");
# do stuff
# End of MAIN
exit 0;
sub handler_function
{
  # Remove temporary file(s).
  unlink($temp_file);
}
-------------------------------------------------------------------
In this case if the kill signal (from <Cntrl-C>) comes when
it is performing the "system("cat bla bla bla > /tmp/temp.file");"
it ends up quiting the 'cat', but then the perl script continues.
How can I get it so that kill signals kill the systems commands
and then invoke the perl handler?
Curtis Siemens

perl script not to clean things up properly.
This is a fundamental UNIX restriction.    UNIX has a choice:
is the Right Thing to send the signal to the parent or the child?
And the answer depends on whether the child is interactive or not.
If the child is interactive (like vi or more), you want the child to
get the signal.   If not, you usually want the parent to get the signal.
But there's no general means of knowing whether the child is
(intended to be) interactive.    So UNIX arbitrarily chooses to hit
the child in all cases.
This choice does have the advantage that the parent can fix up the
situation.    After a system() call, $? indicates whether the child
was terminated by a signal.    So you can write code like
 system("cat bla bla bla > /tmp/temp.file");
 my $sig = $? & 0x7f;
 kill $sig, $$ if $sig;
to activate your signal handler.
See   perldoc -f system  for more details.
Mike Guy
Newsgroup: it.comp.lang.perl
Titolo: dimensione file di cui si conosce solo l'URL

Ciao a tutti,
    è la seconda volta che posto su questo NG (la prima per rispondere ad
una domanda di uno di voi).
Vorrei chiedervi se a partire da un'URL è possibile sapere se il documento
associato esiste e sapere anche la dimensione. Da qualche parte mi sembra di
aver letto che per fare queste cose ci vuole il Perl 5.x ,ma come si fa?
Sto creando un circuito di scambio banner e voglio verificare che l'immagine
specificata dal cliente esista e sia inferiore ad esempio a 12Kb.
Grazie a chiunque mi possa aiutare (magari facendo anche un Cc alla mia
email).
Ciao,
Tommaso.
www.softwareplanet.net

 aver letto che per fare queste cose ci vuole il Perl 5.x ,ma come si fa?
Puoi usare la libwww-perl e fare un richiesta HTTP usando il metodo HEAD.
 perldoc LWP
Se non ce l'hai, la trovi qui:
 
http://search.cpan.org/search?dist=libwww-perl
Max


Si, ci ho provato, ma non ci riesco :(  non sono molto esperto nell'uso dei
moduli.
Mica potresti mandarmi un esempio di codice? (se che sono poche righe).
Le informazioni che mi interessano del file sono: il tipo ( .gif, .jpg,
.htm...), la dimensione (byte) e la data di ultima modifica.
Ti ringrazio tantissimo se potrai aiutarmi.
Io ho provato con questo codice, ma non funziona:
$path="
http://www.miosito.com/miaimmagine.gif
"
$ua = LWP::UserAgent->new;
 $request = HTTP::Request->new(GET => $path);
 $response = $ua->request($request);
print "Content-type: text/plain\n\n";
print "->\n";
 if ($response->is_success) {
     print "Content: $response->content\n";
     print "Content Type: $response->content_type\n";
     print "Content Length: $response->content_length\n";
     print "Title: $response->title\n";
     print "Last Modified:$response->last_modified\n\n";
     print "Response: $response.\n";
 } else {
     print $response->error_as_HTML;
 }
l'output del browser è il seguente (inserendo ovviamente un path valido):
->
Content: HTTP::Response=HASH(0x8219ce4)->content
Content Type: HTTP::Response=HASH(0x8219ce4)->content_type
Content Length: HTTP::Response=HASH(0x8219ce4)->content_length
Title: HTTP::Response=HASH(0x8219ce4)->title
Last Modified:HTTP::Response=HASH(0x8219ce4)->last_modified
Response: HTTP::Response=HASH(0x8219ce4).
Newsgroup: it.comp.lang.perl
Titolo: perl help e compagnia bella

Heila ragazzi...
 che ne direste di realizzare una bella guida su perl, in italiano per
gli italiani ?
cosi' alla fine tutti ci guadagneremmo...
io potrei fornire anche lo spazio web...
fatemi sapere cosa ne pensate..
saluti
        Davide

a03...@relay1.it.net
 wrote:
 > che ne direste di realizzare una bella guida su perl, in italiano per
 >gli italiani ?
Ricordo che l'anno scorso c'era qualcuno sulla mailing list dei traduttori
GNU che stava traducendo il manuale on line di perl 5. Se cerchi su
www.li.org
 dovresti trovare gli archivi (si chiama 
i...@li.org
).
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

Newsgroup: it.comp.lang.perl
Titolo: Ricerca su file di testo

Ciao a tutti,
avrei la necessità di fare una ricerca su un file CSV dove ci sono due campi
ed il separatore è ";".
La ricerca andrebbe fatta per il primo campo per poi prendere il valore del
secondo.
Qual'è il modo di fare una ricerca nel minor tempo possibile? Il file avrà
mediamente 100000 righe.
Ciao.
--------------------------------
Inviato via 
http://usenet.libero.it

Una volta che hai importato il file di testo, riga per riga puoi cercare
/.*\;(.*)/
e $1 contiene il secondo campo. Se non ho sbagliato la RE allora cerca tutto
quello che c'è prima di un ";" e tiene tutto quello che c'è dopo il ";".
quindi, che so, una cosa moolto grezza (e credo pure lenta) sia:
open (FH, nomefile);
@righe=<FH>;
foreach $q (@righe) {
   $q=~/.*\;(.*)/;
   push @secondocampo, $1;
}
e l'array @secondocampo dovrebbe avere tutti i valori del secondo campo.
Spero qlcn scriva per darti una soluzione migliore.


 }
Aggiungerei
close(FH);
:P
 Raffaello

Newsgroup: it.comp.lang.perl
Titolo: Eseguire un cgi da un cgi....

Salve.
Qualcuno più esperto di me potrebbe risolvere il mio problema?
Una mia pagina html richiama uno script CGI in Perl.
Questo script deve terminare normalmente dando in risposta una pagina.
Contemporaneamente a questo deve anche eseguire sul server un altro script,
ma in background: l'utente cioè non deve aspettare che termini il secondo
script prima di avere il risultato.
Pensavo a qualcosa tipo qx(./secondo.cgi) ma così facendo devo lo stesso
aspettare che termini...
come si fa?
Si puo usare una cosa del tipo qx(./secondo.cgi&) ????
Grazie per l'aiuto
--------------------------------
Inviato via 
http://usenet.libero.it

 Si puo usare una cosa del tipo qx(./secondo.cgi&) ????
Hai provato ad usare 'exec' ?
Per maggiori info: perldoc -f exec
Ciao e facci sapere
--
http://cloud.prohosting.com/pigmauk/perl/

...

Newsgroup: it.comp.lang.perl
Titolo: La variabile #_

Ho visto in un programma Perl l'uso della variabile   $#_   penso sia
una variabile speciale, oppure no?
Chi lo sa può rispondermi?
King

 una variabile speciale, oppure no?
  In parte.
  E' l'equivalente di $#array, che fornisce l'indice dell'ultimo elemento
  dell'array, applicato alla variabile @_, che contiene i parametri passati
  alla subroutine.
  Quindi $#_ e' l'indice dell'ultimo parametro passato alla subroutine,
  oppure ($#_ + 1) e' il numero di parametri passati. 
  Maurizio
-- 
Maurizio M. Munafo' |                            
E-mail:mmmu...@tuttocitta.it
--------------------+---------------------------------------------------------
             (o_    |                              - Gentile or Jew,
   (o_  (o_  //\    | O you who turn the wheel and look to windward,
   (/)_ (/)_ V_/_   | Consider Phlebas, who was once handsome and tall as you.
Newsgroup: it.comp.lang.perl
Titolo: Localizzazione moduli nella creazione di eseguibili perl

Non riesco a capire per quale motivo uno script che utilizza Tk e che fa 
uso di radiobutton lavora correttamente se interpretato (Activestate Perl) 
mentre invece l' eseguibile generato con perlApp oppure con Perl2Exe mi 
segnala:
Can't locate Tk/Radiobutton.pm in @INC (@INC contains: \perl\site\lib\Tk 
C:\DOCUME~1\op1\IMPOST~1\Temp\06800000\ .) at Tk/Widget.pm line 259.
Il contenuto della variabile @INC č del tutto corretto se lancio lo script 
interpretato; ovvero le solite librerie standard.
Qualcuno ha una idea?
Grazie per l' eventuale aiuto
Ciao 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Qualcuno ha una idea?
Prova a leggere il manuale del perl2exe: 
http://www.indigostar.com/pxman.htm
in particolare al punto 8 e 9.

 in particolare al punto 8 e 9.
Grazie 1E+03, mi era proprio sfuggito.
Per chi avesse avuto il mio stesso problema, vale la stessa cosa per PerlApp di
Activestate nel PDK 3.1
Cambia solo il modo di definire esplicitamente il modulo non caricato, in
PerlApp occorre usare l' opzione: -a=nome del modulo
Grazie ancora. 


Andrea Maestrutti wrote:

---------------------------------------------
Ho avuto lo stesso problema ma in linux. Letto vostri messaggi, seguito 
consigli ed ho risolto alla grande. Unica differenza è che ho compilato con 
perlcc. GIGA GRAZIE     
ciao angelo

Condivido con voi quanto ho ulteriormente scoperto in materia.
C' è un thread di discussione aperto su questo argomento nella mailing list del
PDK di Activestate:
P...@listserv.ActiveState.com
In particolare il problema è presente quando si tenta di compilare (o meglio:
di creare
l' eseguibile) a partire da uno script che istanzia oggetti Tk.
La soluzione riscontrata (anche di persona) è che conviene verificare quali
sono i
moduli mancanti e quindi aggiungerli allo script con la clausola 'use'.
La procedeura è (ahimè) iterativa, nel senso che potrebbe esserci un secondo 
o terzo errore a runtime, ma alla fine risolvete il problema e ottenete l'
eseguibile
(un po' pachidermico ma funzionante) 
Ciao.


Daniele Radogna wrote:

Grazie per il riferimento della mailing list, vado a dare un occhiata. 
Sempre in tema moduli e copilatore, per caso tu hai già creato eseguibili 
di script che utilizzano DBI, DBD?? 
Ora ho problemi con loro, nel senso che il compilatore non mi vede delle 
subroutine dentro package interni al package 
mysql.pm
. Qui la tecnica usata 
coi Tk nel dichiarare tutto non funziona e non ne capisco la ragione.
Hai qualche idea del motivo??
ciao
angelo 

 Hai qualche idea del motivo??
Quello che dici mi preoccupa perchè i moduli DBI sono importanti. 
Usi PerlApp oppure usi Perl2Exe? 
Nel primo caso si può girare il problema alla mailing list (se già non ci sono
notizie in proposito) e vedere se qualcuno ha soluzioni.
Mi sembra ci siano un po' tanti bachi im questo ambiente di sviluppo.
Teniamoci informati
Ciao


 
Sicuramente. 
Angelo