mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Java al posto di CGI

Ciao a Tutti,
Ultimamente mi sono ritrovato a gestire un piccolo sito su di un server
Unix. Purtroppo adesso ho la necessita’ di programmare dei CGI in Perl.
Devo ammettere di non aver idea di come si fa.
A questo punto volevo chiedervi una cosa: posso usare della applicazioni
Java per sostituire i CGI ??
Per esempio, se volessi scrivere la stringa “ciao come stai?” su di un
file (pippo.html) come posso fare utilizzando Java??
Ciao e grazie di tutto.
Bonifazi Federico
e-mail: 
fede_...@libero.it

Java per sostituire i CGI ??
faresti prima a scoprirlo nei gruppi dedicati 
Oha
-- 
#include <disclaimer.h>




Fulvio ha scritto:

Be' grazie, mi documentero' un po' e speriamo di riuscire a fare qualcosa.
grazie ancora, ciao

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

 insieme che comprende anche le servlet Java)... 
Non per fare il polemico, ma CGI è qualcosa di molto preciso che non
comprende i Java servlet, come non comprende ASP, mod_perl o php.
Max

 comprende i Java servlet, come non comprende ASP, mod_perl o php.
Quello che ho sempre saputo/creduto delle cgi era che si trattasse di
output html da programma elaborato serverside.
Se sbaglio bene, sono contento di saperlo, ma allora cosa definisce
l'insieme "cgi"? (non mi dare il significato dell'acronimo ;o))


 l'insieme "cgi"? (non mi dare il significato dell'acronimo ;o))
Non ti do il significato dell'acronimo, ma mi permetto di attirare la tua
attenzione sul temine "Gateway". Comunque questa è la definizione fornita
nel draft:
 
   The Common Gateway Interface (CGI) is a simple interface for
   running external programs, software or gateways under an
   information server in a platform-independent manner.
Il draft (
search.ietf.org/internet-drafts/draft-coar-cgi-v11-03.txt
)
definisce una serie di specifiche che stabiliscono in modo preciso quali
variabili d'ambiente devono essere definite, come i dati vengono passati
da e verso il server, quando e se il server deve paRsare o meno gli
header, etc...
Naturalmente gran parte di queste specifiche hanno controparti analoghe in
altre tecnologie e spesso non è chiaro (nè ha senso stabilirlo) se un
qualche processo o software sia esterno o interno al web server (oggi poi
tutto tende ad essere *distribuito*), ma ciò non ci autorizza a chiamare 
CGI qualsiasi tipo di software che produca contenuto dinamico sul web.
Potremmo cancellare quel draft dall'Internet e dalla nostra memoria, e i
servlet Java continueranno a funzionare come prima.
Ciao,
Max

Newsgroup: it.comp.lang.perl
Titolo: MetaTag=expire

Sto cercando il modo di far si che una
pagina si ricarichi in modo da far
scorrere un banner (tipo gif animata) su
una pagina mentre si è collegati.
Ci sono altri modi per fare il reload
(chiaramente automatico) di un img
mentre la si sta guardando?
-non ditrmi con le gif animate perchè mi
serve un img che cambiando cambi anche
il link corrispondenta!
Grazie!
fla...@studios.it

...

Newsgroup: it.comp.lang.perl
Titolo: Problemi con Form mail

Salve a tutti, 
intanto grazie per l'aiuto con l'upload (ho trovato utile anche il tread di 
ZioBudda), ora ho un'altro problema......
Ho una Form con la quale mando un mail, solo che non riesco a settare il 
campo "From:" del messaggio e chi lo riceve vede solo Nobody come 
Sender.......
Questo è il listato:
open (MAIL, "|$mailprog $FORM{'recipient'} -s 'Sog' ") || die "Can't open 
$mailprog!\n";
print MAIL " Richiesta Informazioni\n";
print MAIL "--------------------------------------------------------\n";
print MAIL " $FORM{'messaggio'}\n";
print MAIL "\n------------------------------------------------------\n";
close (MAIL);
Aspetto consigli.......grazie

 close (MAIL);
 Cosa e' $mailprog ?
 Direi mailx o elm. 
 Se e' uno user agent, credo sia impossibile fissare il From: perche' lo mette
 lui automaticamente.
 Per cambiare il From: devi creare tu gli header del messaggio e usare 
 un delivery agent, ovvero sendmail.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 
ciaoz
Ho sentito urla di sudore... che schifo...
--
Michel <ZioBudda> Morelli		  
mic...@michel.enter.it
 
http://ziobudda.enter.it
Italian Linux FAQ                  
http://ziobudda.enter.it/FAQ/

> 
 Certo che puo' essere uno user agent.
 Ho almeno un CGI che usa 'mail' per mandarmi un messaggio. E ovviamente
 appare come spedito da Nobody.
 
 Ovviamente gli user agent si appoggiano a sendmail, ma nessuno ti vieta di
 usarli direttamente, anche da CGI, specialmente se non ti importa di
 ricevere mail da Nobody.


campo "From:" del messaggio e chi lo riceve vede solo Nobody come 
Devi usare sendmail -t.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

Newsgroup: it.comp.lang.perl
Titolo: Postgres e variabili di ambiente

Salve,
sto cercando di installare DBD:Pg, ma quando lancio il comando "perl
Makefile.PL", mi da errore poiche' richiede che siano settate le
variabili di ambiente "POSTGRES_INCLUDE" e "POSTGRES_LIB" !!
Dove sono queste variabili e come devono essere settate?!?!?
Grazie
Donatella  :)
--
Posted from [195.120.213.3] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

...

Newsgroup: it.comp.lang.perl
Titolo: Righe

Ho un file di testo e vorrei creare uno script che apra una determinata riga
e sommi al numero esistente 1 e se non è possibile deve scrivere una frase
E' possibile?!!
Se si come faccio ad aprire una riga e amuntare il dato di uno e se il dato
è una lettera allora scrivere una frase?
Grazie in anticipo!!!!

 è una lettera allora scrivere una frase?
Apri il file, leggi, riscrivi quello che vuoi in un nuovo file e poi
rinomini il tutto.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 ha scritto nel messaggio
news:91do39$uft$3...@menelao.polito.it...


 E poi come si fa a sommare 1+1 in perl!!!
Pelo piu', pelo meno, nello stesso modo che hai imparato in prima
elementare.
--
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/

 E poi come si fa a sommare 1+1 in perl!!!
Hai sbagliato newsgroup, allora. Questo e' un newsgroup dedicato ad un
linguaggio di programmazione.


Newsgroup: it.comp.lang.perl
Titolo: generare password

Salve ragazzi,
qualcuno di voi conosce un modulo o un comando in Perl che mi permetta di 
generare in automatico delle password.
Grazie anticipatamente
 
        johnny

Qualcuno utilizza un metodo piuttosto semplice, ovvero quello di tradurre un
numero in esadecimale, ottenendo da un numero casuale una serie di lettere e
numeri a caso !
es:
$pre = int(rand 8999999) + 1000000;
$numero = sprintf "%lx",$pre;
print "$numero";

 numeri a caso !
Questa tecnica pero` ha lo svantaggio di restringere l'alfabeto usato per
generare la password. 
Una domanda simile e` comparsa di recente sulla mailing list di Nordest.pm.
Sono state suggerite varie soluzioni, quasi tutte basate su moduli scaribili
da CPAN:
  Crypt::RandPasswd
  random password generator based on FIPS-181
  Crypt::PassGen
  Generate a random password that looks like a real word
  String::Random
  Perl module to generate random strings based on a pattern
Un altro suggerimento consisteva nell'uso di una parte della stringa
generata da Digest::MD5 o Digest::SHA1.
ciao
Stefano
Newsgroup: it.comp.lang.perl
Titolo: R: Il mio primo Mex..

E perche questo codice mi da errore??
if ( $UserName ) {
print <<"[pre HTML]";
<b> $UserName </b>
<input type=hidden NAME="UserName" value="$UserName">
<input type=hidden NAME="Password" value="$Password">
<input type=hidden NAME="OldTitolo" value="$Titolo">
</font><font size="2" face="Verdana,Arial">
<a href="$forumuri/login.cgi?LogOff=LogOff&F=$Form{'F'}">Cambia Utente</a>
[pre HTML]
}

 esegui lo script con lo switch "-w".
Avevo modificato il tutto con
print" \n";
print" \n";
print" \n";
Poi l'ho inserito in un file a parte che richiamo con require.. Non
conoscevo -w .. ( molto utile ) ora ho provato a rimodificarlo e non mi da
piu' errore.. Ho fatto copia e incolla sia quando ho postato, che ora.. Non
capisco.. ma funziona...
Grazie mille... Forse bastava una prova in piu'.. di solito i miei problemi
me li risolvo da solo, ma.... continuo a perdere dei giorni per un print
..!!
Grazie mille!!
MaloMax

Newsgroup: it.comp.lang.perl
Titolo: Librerie grafiche

Ho necessita' di creare dei grafici (istogrammi, torte, aree, le solite
menate) basati su dati che cambiano di volta in volta, e poi spedire il
risultato in gif su una pagina web.
Visto che non ho per niente voglia di mettermi a imparare come funziona
il formato gif, la compressione lzh e roba del genere, sapete se esiste
qualche libreria (funzionante col Perl 5 standard su Unix) che mi dia
qualche funzionalita' del genere gia' bell'e pronta?
grazie,
bye 
silvio

qualche funzionalita' del genere gia' bell'e pronta?
Dai un occhiata a:
http://www.ast.cam.ac.uk/AAO/local/www/kgb/pgperl/
dovrebbe fare al caso tuo!
Ciao
Roberto Montanari
munt...@vegatel.it

 risultato in gif su una pagina web.
GIFgraph!
http://www.tcp.chem.tue.nl/~tgtcmv/perl/
Ciao, 
MM

silvio@nospam_acme.it
 wrote:
 >Ho necessita' di creare dei grafici (istogrammi, torte, aree, le solite
 >menate) basati su dati che cambiano di volta in volta, e poi spedire il
 >risultato in gif su una pagina web.
Usa il modulo GD.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

 Usa il modulo GD.
Grazie mille, dal Readme pare proprio che sia cio' che mi serviva.
bye
silvio
Newsgroup: it.comp.lang.perl
Titolo: parte intera di un numero decimale

Ehm, scusate...
qualcuno sa dirmi come si prende la parte intera di un numero decimale?
Grazie

 qualcuno sa dirmi come si prende la parte intera di un numero decimale?
C'e' spiegato in perlfaq4 
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 wrote in message
8tn329$2lb$1...@menelao.polito.it...


 wrote in message
8tn329$2lb$1...@menelao.polito.it...


 Grazie Maurizio, perň tutto sta a capire dove si trova questa faq 4!
Sul tuo PC, dove l'hai installata insieme a Perl.


emh scusa, forse è 
perl-it.org
? (VERGOGNA)
Se usi Linuz batti:
perldoc perlfaq4
oppure:
perldoc perlfaq
Comunque per troncare la parte decimale puoi utilizzare:
$b = int($a);
	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!


Se usi windows ed hai istallato l'interprete di perl della activestate vai
alla directory:
C:\Perl\html\lib\pod
dentro ci sono tutte le risposte che vuoi.
Ciao.
--
Marco Allegretti
shi...@katamail.com
http://www.shishii.com

 wrote in message
tyDL5.63315$3K3.1...@news.infostrada.it...


Newsgroup: it.comp.lang.perl
Titolo: fork()

Salve a tutti,
programmo da pochissimo e mi trovo a dover usare una fork... qualcuno mi puo' fare
un esempio di utilizzo oppure puo' segnalarmi uno script da cui 'prendere l'ispirazione'?
il man (sia man fork che man perlfunc che perldoc -q fork) e' veramente striminzito :(
bye,
Veleno.



 perldoc perlipc
 
http://search.cpan.org/search?dist=Proc-Background
 
http://search.cpan.org/search?dist=Proc-Forkfunc
 
http://search.cpan.org/search?dist=Proc-Simple
 

  
http://search.cpan.org/search?dist=Proc-Simple
mamma mia la roba che devo studiarmi... 8-|
magari e' meglio se me lo studio bene dall'inizio... che libro consigliate?
(anche in inglese)
bye,
Gilberto "Veleno" Ficara
Newsgroup: it.comp.lang.perl
Titolo: threads

Salve,
     il seguente codice sforna un nuov thread per ogni richiesta 
ricevuta:
#!/usr/bin/perl -w
use strict;
use warnings;
use IO::Socket::INET;
use Data::Dumper;
use threads;
use IO::Handle;
STDOUT->autoflush(1);
my $sock = IO::Socket::INET->new(
                           LocalPort => '65001',
                           Proto => 'tcp',
                           Reuse => 1,
                           Listen => 1,
                           Type => SOCK_STREAM
                        ) || die $!;
$sock->listen();
while ( my $client = $sock->accept() )
{
   if ($client)
   {
      $client->autoflush(1);
 
      my $thr = threads->new(\&manage, $client);
      for my $t (threads->list()) {
         printf Dumper(\$t) . " has tid = %d\n", $t->tid();
      }
   }
}
sub manage {
   my $client = shift;
   my $data = <$client>;
   print "$data\n";
   sleep 10;
   syswrite $client, "Hello World!";
   close($client);
}
__END__;
vorrei che ogni nuova richiesta prima di sfornare un thread killasse 
tutti gli altri threads...si puň fare?
grazie

 tutti gli altri threads...si può fare?
Credo di non capire, quello che descrivi fa sì che ad un dato istante
sia ammesso al più un thread attivo. Supponi per assurdo che al tempo
t0 siano attivi N thread, ed arrivi una nuova richiesta: secondo
quanto chiedi, gli N thread devono essere terminati, per poter poi
creare 1 nuovo thread. Poiché si parte da 0 richieste/thread, N può
valere 0 o, al più, 1.
In queste ipotesi, perché usare i thread?
Newsgroup: it.comp.lang.perl
Titolo: problemino DBI

Salve, ho scritto questo pezzo di codice per interfacciarmi ad un database:
       1 #! /usr/bin/perl -w
       2
       3 use DBI;
       4
       5 $dbh = DBI->connect ('DBI:mysql:belbox') ||
       6         die "Cannot open..." . DBI->errstr;
       7 $str = $dbh->prepare ('SELECT * FROM log LIMIT ?') ||
       8         die "Cannot query..." . $dbh->errstr;
       9
      10 print "Value: ";
      11 chomp ($i=<stdin>);
      12 $str->execute($i) || die "Cannot execute..." . $str->errstr;
Il problema e' che $str->execute($i) pare aggiungere degli apici ('') al 
numero memorizzato in $i, infatti l'errore che ho e' questo:
Cannot execute...You have an error in your SQL syntax near ''4'' at line 
1 at ./
delog.pl
 line 12, <stdin> line 1.
Come posso risolvere il mio dilemma??
grazie!
caligari.


Purtroppo non puoi usare LIMIT con un placeholder.
Devi modificare il tuo codice in modo da usare l'interpolazione di Perl 
direttamente nella query
print "Value: ";
chomp ($i=<stdin>);
$str = $dbh->prepare ('SELECT * FROM log LIMIT $i');
$str->execute($i) || die "Cannot execute..." . $str->errstr;
Ciao
gmax
P.S. Username e password? Non starai mica usando il database
da utente anonimo sul database "test"?
Se e' cosi', affrettati a mettere la password (Quella di root
l'hai gia' aggiunta, vero? ;) ).
Se non lo fai, sappi che con questo "buco" aperto, chiunque puo' entrare 
nel tuo database e crearti una dozzina di tabelle da due giga l'una 
finche' il tuo database non collassa.

 
Ti ringrazio molto per l'aiuto!
Username e pass non le ho messe, perche' questa che sto facendo e' una 
prova il locale sul mio pc, per un sistema piu' ampio che sta 
sviluppando l'azienda per la quale lavoro.
Quindi non mi preoccupo dei problemi di sicurezza (riguardo mysql) sul 
mio pc di casa (-:
Grazie ancora!
caligari.

 
argh!! con questo codice da questo errore:
Cannot execute...called with 1 bind variables when 0 are needed at 
./
delog.pl
 line 13, <stdin> line 1.
Ed anche con i "" nella query, lo stesso.
)-:
caligari.


Infatti sarebbe $str->execute() e basta, però la preparazione della
query
ogni volta fa perdere tempo. Io ho avuto lo stesso problema quando
dovevo
inserire delle \N derivanti da un dump, che ovviamente come '\N' non
avevano lo stesso effetto :-(((
Purtroppo non ho saputo risolvere, anzi se qualcuno sa come
modificare l'autoquote del DBI lo dica ora! :-))
-- 
Valerio Granato
http://www.musicoff.com
 - Music Online For Free
La Grande Comunità Online per Musicisti
Newsgroup: it.comp.lang.perl
Titolo: cosa vuol dire -e??

In molti script vedo certe volte magari una variabile seguita poi da un -e??
Cosa signiifica??
Grazie

è una verifica se un file esiste.
if (file.txt -e)  #se il file esiste allora...
...e mica so' Mandake pe' davero - Gigi Proietti (Febbre da Cavallo)
--
Posted from 
relay2.inwind.it
 [212.141.53.73] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Cosa signiifica??
$ perl -h 
...
-e 'command'    one line of script. Several -e's allowed. Omit [programfile].
...
Tipo, dalla shell:
$ perl -e 'for ($x=1;$x<=10;$x++) { print $x, "\n";}'
indovina cosa fa?
Ciao
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

 if (file.txt -e)  #se il file esiste allora...
  /-e/ e` un operatore prefisso, quindi la sintassi esatta e`:
	if (-e 'file.txt')
	Alla prossima,
		Marco

 indovina cosa fa?
Ho scritto una scemata invidiabile! (che perň č vera!)
Avevo letto di corsa la domanda, sorry.
-e verifica che un file (ma non solo) esista:
$file = "file.txt"
print "$file esiste\n" if (-e $file);


Cosa signiifica??
perldoc perlfunc
-- 
ciao, |
Marco | * The Internet is full. Go away.  -- Joel Furr *
      | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

hai ragione, Marco...
...e mica so' Mandrake pe' davero - Gigi Proietti (Febbre da Cavallo)
--
Posted from 
IDENT:ro...@planetsec.com
 [194.20.232.117] 


 wrote in message
002301c001cd$154a7ae0$6b69d2c3@mecarell...


 Cosa cambia ???  Non basta il "if" per sapere se esiste un file??
  No. L'operatore /-e/ restituisce "vero" se il file chiamato 'file.txt'
esiste, la stringa 'file.txt', invece, e` vera per definizione. Chi
assicura al Perl che quando tu passi all'/if/ la stringa 'file.txt'
questa rappresenta un nome di file invece che un indirizzo di posta
elettronica o un versetto della Bibbia?
	Alla prossima,
		Marco
Newsgroup: it.comp.lang.perl
Titolo: DBI/DBD::Oracle su NT

Non so se potete aiutarmi.
Ho fatto molte cose in passato con le librerie DBI/DBD su macchine
UNIX HP o SUN.
Ora dovrei fare alcuni script perl usando DBI/DBD su piattaforma NT.
Non so da dove cominciare per installare DBI e DBD::Oracle sulla
distribuzione di perl per NT (ActivePerl).
Ho assolutamente bisogno di ricompilare il perl ? Come faccio ?
Grazie per l'aiuto !
-- 
	Francesco Poggio
	Magneti Marelli - Enti Centrali
	IT Governance - Internet/Intranet Architecture Specialist
	Viale Carlo Emanuele II 118
	10078 Venaria Reale (Torino)
	Tel. 
(+39)-011-6879188
	Fax  
(+39)-011-6879032
	Mailto:
Francesc...@venaria.marelli.it

 Ho assolutamente bisogno di ricompilare il perl ? Come faccio ?
Hai già installato l'ActivePerl?
Se si dal prompt di dos... insomma come si chiama su NT
digita ppm
dopodichè digita help ... :))  (c'e' il search per cercare e l'install
per installare moduli)
Se non funzionasse, se hai il 5.005 ( per il 5.6 vai indietro di qualche
directory e cerca! :) ) vai su
http://www.ActiveState.com/ppmpackages/5.005/zips/
scarica DBI.zip e DBD-Oracle.zip e installali a mano (c'e' scritto come
in un file all'interno)




 
Stando a quanto è documentato sul sito di Activestate, sia DBI che
DBD::Oracle sono distribuiti con release la 5.6 di ActivePerl.
http://www.activestate.com/Products/ActivePerl/docs/index.html
http://www.activestate.com/Products/ActivePerl/docs/site/lib/DBD/Oracle.html
MM

 >


 MM
-- 


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

Ciao a tutti,
ho un tot di record memorizzati su un file di testo, la domanda è questa:
come faccio ad eliminare quei record che dopo alcuni controlli risultano non
validi?
Grazie
katia


Leggi il file e riscrivi solo quelli validi in un altro file che poi rinomini.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)


leggi ogni record e stampi solo quelli validi:
--- 
chkrecs.pl
 ---
#!/usr/local/bin/perl
while(<>) {
    	chop;
    	if(record_valido($_)) {
    	    	print;
    	}
}
sub record_valido {
    	my ($record) = shift;
    	# effettui i controllo sul record
    	# return 0; se non valido
    	# return -1; se valido
}
---
la command line:
chkrecs.pl
 < file_input > file_output
-- 
Federico Feroldi ~ 
http://www.pixzone.com/
Newsgroup: it.comp.lang.perl
Titolo: [Gtk2-perl] finestre figlie

Salve a tutti,
sto cercando di realizzare una form di inserimento dati tramite
Gtk2-perl e fin qui tutto è andato per il meglio. 
Ora ho la necessità di creare una finestra "figlia" in cui mostrare
un oggetto Gtk2::SimpleList, dove sono presenti dei dati che devo
riutilizzare nella finestra principale. Per fare ciò ho creato un
nuovo oggetto Gtk2::Window in cui ho messo tutto l'occorrente.
Il mio problema sta nel fatto che non ho capito come distruggere la
finestra figlia, senza causare anche la distruzione del padre, visto
che la chiamata Gtk2->main_quit distrugge tutta l'applicazione. A me,
invece, servirebbe soltanto che una volta eseguito un click su un
bottone, il controllo (e dei dati, ma questo non è un problema)
ritorni al padre.
Spero di essere stato chiaro a sufficienza; qualora servisse, posso
eventualmente postare i pezzi di codice incriminati, anche se credo
che il problema sia più che altro a livello concettuale, visto che
ho trovato la reference di Gtk2-perl ancora un po' scarna (ma, dato
che è una reference, non c'è da aspettarsi molto).
Ciao,
nico

 finestra figlia,
In genere in questi casi faccio un hide della finestra figlia e faccio 
un enable della finestra padre che avevo prima disabilitato. Questo in 
Win32::GUI ma penso sia applicabile anche a Gtk2.

 che è una reference, non c'è da aspettarsi molto).
A dire il vero, l'API reference - che è generata automagicamente - fa
quello che deve fare. A te, forse, serve più un testo introduttivo sulle
GTK. Esiste la traduzione del tutorial delle GTK per il Perl, che sto
scrivendo quando il lavoro e la vita privata mi danno un po' di tempo;
trovi l'HTML sul sito delle GTK2-Perl:
 
http://gtk2-perl.sf.net
Con il codice degli esempi e tutto il resto.
Ciao,
 Emmanuele.
-- 
Emmanuele Bassi (Zefram)                 [ 
http://www.emmanuelebassi.net
 ]
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

* Andrea Maestrutti [2004-11-14 20:25]:

No. Nelle Gtk2, questo comportamento *nasconde* solamente la finestra -
tutte le risorse da essa occupate rimarranno a disposizione. Se questo
avviene in un callback, e il blessed object che si riferisce alla
finestra viene a finire fuori dallo scope, e reclamato dal garbage
collector, si crea un memory leak.
Se si vuole chiudere la finestra *dopo* aver eseguito tutte le
operazioni desiderate, allora la si distrugge, e si permette al garbage
collector di de-allocare tutta la memoria ad essa associata.


 collector, si crea un memory leak.
Tra l'altro, non ho mai usato Win32::GUI, ma se ::hide non fa qualcosa
in più dell'equivalente metodo delle Gtk2, allora anche nel tuo caso
potrebbe esserci un bel leak.


 potrebbe esserci un bel leak.
No perché al successivo riutilizzo non instanzio nulla di nuovo ma 
faccio uno show della finestra che avevo nascosto.

  >>>>> "EB" == Emmanuele Bassi <zef...@wolverine.lohacker.invalid> writes:
[...]
  EB> Ciao, Emmanuele.
Sei stato chiarissimo, anzi, cristallino. Ho risolto il problema.
Grazie mille,
nico
Newsgroup: it.comp.lang.perl
Titolo: need help for Perl/CGI application

Anybody could help me?
    First of all sorry for my terrible English! ^_^ I have read the
Herrmann's book "Teach yourself CGI PROGRAMMING with PERL 5 in a week", but
I think I haven't found what I need to know.
    I have to built a CGI application written in Perl 5 that:
- send a HTML form information to a remote server with the methods GET or
POST;
- receive the reply from the server and store it in a variable for a further
elaboration.
In other words, this application has to simulate, in a simpler way, what a
broswer do when it interacts whit a host HTML server sending a form and
receiving the answer. I don't know which Perl functions I must use and how.
I've thought, for example for the POST method, to open a file in this way:
    open(filename, '>>POST
http://www.sitename.com/subdirectory/program_cgi.cgi
 HTTP/1.1')
and then send the form information codified in URI standard to the STANDARD
OUTPUT;
1) is it correct?
2) have I to send some header too?
3) can I find the remote server reply in STANDARD INPUT?
4) if all yes, how can I do for the GET method?
    Thank you all, it would be great if you want reply me at
ar...@shineline.it
 Bye,
                    Federico Bari.

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

Newsgroup: it.comp.lang.perl
Titolo: GUI builder

Qual e` un buon costruttore di interfaccie (posibilmente in GTK) per
il perl? Ho trovato PerlBuilder, ma sembra non funzionare...
Henryx
P.S. ovviamente conosco Glade, ma volevo qualcosa piu` indipendente
-- 
GnuPG fingerprint = 42F9 521B 63C7 89FE 354C  89FA 4E49 3E2D 2EB6 B014

 il perl? Ho trovato PerlBuilder, ma sembra non funzionare...
Dovrebbe esistere glade-perl, se non me lo sono sognato... :)
Ciao,
-- 
(appena tornato dalle ferie)
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

 Dovrebbe esistere glade-perl, se non me lo sono sognato... :)
Ehm, avevo detto che non volevo usare Glade... :)
Henryx


 Ehm, avevo detto che non volevo usare Glade... :)
Scusa, probabilmente avevo la testa da qualche altra parte :)
Ciao,
-- 


Newsgroup: it.comp.lang.perl
Titolo: INFORMAZIONI SUL CLIENT

mi potreste dire tutte le variabili che restituiscono valori sul client??
IP browser ed altro???
e per caso sapete come sapere anche la risoluzione del client, il numero di
colori ed altro simile??
ringraziamenti anticipati
Ravara Stefano
Supporto Tecnico Stileitalia
www.stileitalia.it
sup...@stileitalia.it
ICQ 36389650
-------------------------------------

 cerchero` un'altra donna dentro ai sogni di Tarzan...
Newsgroup: it.comp.lang.perl
Titolo: Gtk2-perl

Salve a tutti.
Volevo chiedere se c'e' un modo per aumentare la velocita' di repaint
nelle librerie Gtk2-perl.
Il mio problema nasce da questo codice di prova:
 
http://rafb.net/paste/results/CrdrUH92.html
Ovvero: quando premo avvia partita, il programma si blocca sulla accept,
come naturale, ma senza prima settare il testo della $label3, che rimane
nullo. Anche il bottone $button1 non viene eliminato da destroy().
Mi e' stato suggerito appunto di controllare la velocita' di repaint.
Grazie in anticipo a tutti.
Mithenks 

 nullo. Anche il bottone $button1 non viene eliminato da destroy().
Il mio occhio pediatrico vede e stravede tutto. ;-)
Senza dare un'occhiata al codice, il consiglio è usare questo:
	Gtk2->main_iteration while Gtk2->events_pending;
All'interno della porzione di codice che "blocca". Questo forzerà il
consumo dei pending events, e permetterà l'aggiornamento dell'UI.
Ciao,
 Emmanuele.
-- 
Emmanuele Bassi (Zefram)                 [ 
http://www.emmanuelebassi.net
 ]
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

  Emmanuele.
Mithenks

 prima della chiamata a Gtk2 main. Ho sbagliato qualcosa?
Si, non hai capito.
In particolare, non hai capito una parte di "All'interno della porzione
di codice che blocca", anche se non saprei quale.
+++
Innanzittutto, non puoi metterlo prima del Gtk2->main, perché se non è
ancora iniziato il mainloop, come fai a dirgli di eseguire gli eventi
rimanenti nella coda?
Secondariamente, se hai un loop che blocca, ad esempio:
	foreach $item (@an_array) {
		do_something_cpu_intensive ($item);
	}
Non puoi inserire la chiamata al consumo dei pending events all'inizio
o alla fine del loop, perché in quei momenti il controllo è dato al
mainloop delle GTK.
Ergo, il loop dovrebbe diventare:
	foreach $item (@an_array) {
		do_something_cpu_intensive ($item);
 
		Gtk2->main_iteration while Gtk2->events_pending;
	}
Il tuo codice non lo guardo: non sono connesso, al momento, e non ho
tempo per fare il correttore di bozze.

Newsgroup: it.comp.lang.perl
Titolo: error: uninitialized value

Nel seguente codice:
    my @listaAnni;
    my $year="";
     while ( ($year) = $sth->fetchrow_array() ) {
         if ( not $year =~ m/[\d]{4}/ ) {
             next;
         }
         push @listaAnni, $year;
     }
Mi dï¿œ l'errore:
     Use of uninitialized value in pattern match (m//)
alla riga con l'if.
Sapete intuire da cosa possa essere dovuto?
E.

 ha scritto nel messaggio 
news:ARjHm.22916$813....@tornado.fastwebnet.it...

Direi ad $year che non e' valorizzato. evidentemente fetchrow_array torna un 
valore undef.
Fai un test con la funzione undef per esserne certo.
Ciao
-- 
 ************** (.)_(.) *******************
 Un amico ï¿œ uno che sa tutto di te e,
 nonostante questo, gli piaci
(E. Hobbard) 

?manu* wrote:

Come ha detto nameci, dipende dal fatto che fetchrow_array() puï¿œ 
restituire un array con elementi undef (in corrispondenza di valori NULL 
nel DB), ma la funzione per testare questa circostanza sarebbe defined, 
non undef.
Puoi eliminare anche il next:
while ( ($year) = $sth->fetchrow_array ) {
     if ( defined($year) && $year =~ /\d{4}/ ) {
         push @lista_anni, $year
     }
}
altrimenti, se preferisci testare il negato della condizione:
while ( ($year) = $sth->fetchrow_array ) {
     push @lista_anni, $year
         unless !defined($year) || $year !~ /\d{4}/
}
In ogni caso ï¿œ meglio usare il negato dell'operatore di match (!~) 
piuttosto che negare il predicato con not.
Ciao
-Emanuele

 }
Ti ringrazio molto,
E.

Newsgroup: it.comp.lang.perl
Titolo: Decompilare un .exe perl

Salve a tutti
premetto che sto appena imparando a muovermi in perl
Mi serve assolutamente di ricavare il sorgente da un file .exe. 
Dev'esserci un modo ma non ci riesco.
grazie a tutti
hedgehog

Dev'esserci un modo ma non ci riesco.
Chi te l'ha detto "dev'esserci un modo"? Dipende come è stato ottenuto
l'.exe. Se è stato creato con par o simili, il sorgente dovrebbe essere in
chiaro nell'eseguibile, e lo estrai al limite anche con un editor. Se è
stato usato qualche altro compilatore un po' più "compilante", dipende,
potrebbe essere proprio impossibile.
Ciao.

 Mi serve assolutamente di ricavare il sorgente da un file .exe.
Nel caso si tratti di exe ottenuto tramite una vecchia versione di
perl2exe (dubito che con le ultime versioni o con perlapp sia così
facile), c'è (almeno) un link su perlmonks:
http://www.perlmonks.org/?node_id=237943

 potrebbe essere proprio impossibile.
non č in chiaro nell'eseguibile.. :|
Newsgroup: it.comp.lang.perl
Titolo: HTML manipulation

Salve, sono in cerca di qualche script che mi permetta di editare,
attraverso la compilazione di un form online, i campi di un template
in HTML.
Ho cercato in un sacco di directories tipo cgi-resources, perlarchive,
hotscripts, superscripts....
ma non ho trovato nulla che facesse al caso mio.
Questo NG e' la mia ultima speranza..... dopodiche' esiste solo il
licenziamento......... ;-)
Many thanxx
Ah... dimenticavo.... dovrebbe girare con Apache 1.3.4 su Red Hat 5.2
--
 ,---.
 |  -'  . ,-. ,-,-. ,-. . ,-. ,-.
 |  ,-' | ,-| | | | ,-| | |   ,-|
 `---|  ' `-^ ' ' ' `-^ ' `-' `-^
  ,-.|
  `-+'
----------------------------------
Can I draw a line down the center of
your head and make it look like a butt??!
(Sanka Coffie)

 --
bhe, se mi paghi te lo faccio io, dato che credo di aver capito che devi
farlo per lavoro...
bau

farlo per lavoro...
Volentieri.... quanto e' il tuo onorario??


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

qualcuno sa dirmi dove posso trovare un buon manuale di perl online e
gratis?
grazie
Alberto

gratis?
http://www.perl-it.org
, nella sezione link.
	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!

gratis?
Insieme al perl stesso? Ci hai guardato?
-- 
ciao, |
Marco | * The Internet is full. Go away.  -- Joel Furr *
      | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

 wrote in message
ct3989c3cfi1175n3e9%m...@wonderland.linux.it...


Newsgroup: it.comp.lang.perl
Titolo: Help mi serve il giorno ma non quello odierno...

con questo trovo tutto quello che mi serve su oggi:
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime (time);
ma se voglio sapere il giorno della settimana della data 2000/11/01 come
devo fare?
mi serve per terminare un programmino, riuscite ad aiutarmi?
grazie 1000

Oxy,

<code>
	use Time::Local;	# for timelocal sub
 
	my @WDAYS=(
		'sunday',
		'monday',
		...
	);
 
	my $date='2000/11/01';
	my @tokens=split /\//,$date;
	my $time=timelocal 0,0,0,$tokens[0],$tokens[1],$tokens[2];
	my $wday=(localtime $time)[6];
	print "$date week day was: $WDAYS[$wday]\n"
</code>
	Alla prossima,
		Marco

trovato:)
 use Time::Local 'timelocal_nocheck';
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime
timelocal_nocheck 0,0,0,12,1,101;
(0,0,0,giorno,mese-1,anno-1900;)
Bye

Ciao Marco,
GRAZIE!

Newsgroup: it.comp.lang.perl
Titolo: ODBC e PERL

Fino ad ora ho utilizzato il DBD 'Mysql' per interfacciarmi ai database
mysql,
ho perň una domanda, il DBD 'ODBC' č standard per ogni database? posso
quindi utilizzarlo per la gestione di datbase Mysql oppure serve solo per
interfacciarsi con database Microsoft....
Se sono OT scusatemi ma forse questa domanda riguarda un pň piů il
linguaggio PERL in se rispetto alle specifiche dei database...........
Grazie a tutti
Claudio Bellucci


Ciao Geppo
Newsgroup: it.comp.lang.perl
Titolo: Moduli per HTML

Salve,
che moduli usereste per fare la get di una pagina html ?
Ci sono moduli per fare il parsing di una pagina html,
ripulirle dai tag per ricavarne i contenuti,
ho scritto qualcosa con le espressioni regolari,
ma vorrei qualcosa di piu' generale,
Grazie
Andrea


wrote:

ho fatto esperimenti tnato tempo fa.
Lwp::Simple
Lwp
per interagire con il web, ma c'č anche dell'altro...
HTML::Parser o vicino a questo nella libreria (si lo so č un
riferimento poco professionale...ma non me ricordo) per fare il resto.
Facce sapč...
--
www.pigmalion.info
www.pigmalion.info/perl/

Newsgroup: it.comp.lang.perl
Titolo: Script in ascolto su più porte

Salve,
      Si puň fare con  i socket uno script che ascolta su  piů porte?
ad esempio:
#!/perl
use Socket qw(:DEFAULT :crlf);
use IO::Socket::INET;
$socket = IO::Socket::INET->new(LocalPort => '81',
                                     Proto => 'tcp',
                                      Type      => SOCK_STREAM,
                                       Reuse     => 1,
                                       Listen    => 10);
 
$socket->listen();
$socket_2 = IO::Socket::INET->new(LocalPort => '82',
                                     Proto => 'tcp',
                                      Type      => SOCK_STREAM,
                                       Reuse     => 1,
                                       Listen    => 10);
 
$socket_2->listen();
$socket_3 = IO::Socket::INET->new(LocalPort => '83',
                                     Proto => 'tcp',
                                      Type      => SOCK_STREAM,
                                       Reuse     => 1,
                                       Listen    => 10);
 
$socket_3->listen();
__END__;
...etc...

 
Sě. Poi dovrai usare IO::Select per sapere quando c'č una connessione in 
ingresso. Prova, ad esempio, ad aggiungere le seguenti righe al tuo codice:
 use IO::Select;
 my $s = IO::Select->new();
 $s->add( $socket );
 $s->add( $socket_2 );
 $s->add( $socket_3 );
 my @ready = $s->can_read(1000);
 for my $sock (@ready)
 {
        my $client = $sock->accept();
        print $client "BYE\n";
 }
Max

  }
Ho capito. Ma puoi dirmi cos'č quel 1000 ?
Cmq immagino che una connessione esclude l'altra, ovvero devo chiudere 
un scoket e poi leggere l'altro... vero?
grazie e ciao!

 Non fai prima a lasciare l'ascolto a inetd o xinetd ?
puoi spiegarti meglio? conosco poco i servizi di Linux, dato che 
programmo su mac os 9.
ciao

 un scoket e poi leggere l'altro... vero?
No, puoi avere più connessioni concorrenti. Come gestire dipende 
dall'architettura che dovrà avere la tua applicazione.
Max

Newsgroup: it.comp.lang.perl
Titolo: Scroll di un testo

Come faccio, in Perl, a fare lo scroll del testo visualizzato tramite il
comando <INPUT TYPE="TEXT" ... ?
Grazie per l'aiuto.

Perchè non usi il javascript è più semplice ...
chiedi ai NG di javascript...

Newsgroup: it.comp.lang.perl
Titolo: Accesso Concorrente

Ciao a tutti, premetto che č da poco che ho iniziato a programmare i Perl,
ho un problema di questo tipo: devo fare in modo di aggiornare un file di
password con quelle inserite da alcuni utenti attraverso un form HTML, fin
qui tutto bene... il problema nasce quando l'aggiornamento viene fatto nello
stesso momento da due o piů utenti (in questo caso l'ultimo utente che ha
scritto cancella tutti le modifiche degli altri).
Come posso fare? Io l'ho testato sotto Windows 95 (dovrei passare a
WinNt???) con Sambar Server, ho provato ad usare la funzione Flock ma non č
supportata....
Ringrazio anticipatamente chiunque voglia darmi una mano.
Ciao Ciao
Paolo
----------------------------------------------------------------------------
-----------------------------------------------
La natura e' fantastica. Un miliardo d'anni fa non avrebbe mai sospettato
che noi avremmo portato gli occhiali, eppure ci ha fatto le orecchie!
Milton Berle
----------------------------------------------------------------------------
-----------------------------------------------
Citta' di Sesto San Giovanni.
Visitateci: 
www.sestosg.net
-- 
Posted from 
IDENT:ro...@relay.it.net
 [151.1.1.6] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 supportata....
Potresti creare un file di lock quando inizi il processo di aggiornamento
della tua base dati, controllarne la presenza o meno quando effettivamente
vai ad agire sui dati ed eliminare il file di lock alla fine di tutto.
A te le verifiche e la gestione degli errori (esempio: una seconda istanza,
trova il file di lock, aspetta un secondo e ricontrolla).
Per verificare che il file di lock effettivamente l'ha creato la tua istanza
di processo (e non altri), potresti crearlo inserendo nel nome del file il
PID, oppure creando un numero random. Insomma, in modo tale che sia univoco
il processo che l'ha creato.
Jul

Newsgroup: it.comp.lang.perl
Titolo: come fare il match di un'espressione regolare in una stringa?

 dove ho sbagliato?
   A non leggere attentamente il manuale. Prova a stampare $a e vedi 
cosa succede, dopodiche`, tenendo a mente la locuzione "interpreted 
string", traine le dovute conseguenze.
-- 
Alla prossima,
Marco

 wrote in message 
news:3CE8E0AA...@b.it

-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.perl
Titolo: Convertire una stringa in una regex

Sapete se esiste una maniera sicura per convertire una stringa in una regex 
(ovvero "10.10.10.1" in "10\.10\.10\.1" ed è un caso semplice)
grazie mille a chi sa e risponde ;)
ciau

(ovvero "10.10.10.1" in "10\.10\.10\.1" ed č un caso semplice)
Evidentemente, tutto dipende dal significato attribuito a "sicura". Esiste
un modo per quotare tutti i caratteri non alfabetici di una stringa, cosě
che vengano interpretati letteralmente se la stringa viene inserita in un'
espressione regolare: funzione quotemeta e sequenze di escape \Q ... \E.
Ciao.

 quotemeta
grazie mille :)
ciau
Newsgroup: it.comp.lang.perl
Titolo: Scorrere array associativo in base alla key

Ciao,
avrei bisogno di scorrere un array associativo in base alla key, in 
particolare partendo dalla key piu' lunga fino alla piu' breve.
Date ad esempio le assegnazioni:
a{'uno'}="pippo"
a{'secondo'}="pluto"
a{'terzo'}="topolino"
...vorrei realizzare un ciclo che restituisca...
"pluto" ovvero a{'secondo'}
"topolino" ovvero a{'terzo'}
"pippo" ovvero a{'uno'}
Qual'e' il modo piu' performante per farlo?
Grazie!
-- 
Daniele
togli i sette per scrivermi

 Qual'e' il modo piu' performante per farlo?
Mi pare ci siano due modi:
   i. ordinare le chiavi al momento della stampa (o quel che devi
      fare con i valori della hash)
  ii. mantenere un array di chiavi ordinate, da aggiornare ad 
      ogni modifica della hash. Al momento della stampa dei
      valori usi questo array per pigliare una hash-slice
Il metodo ii e` piu` veloce ma paghi un overhead alle modifiche. 
E` possibile che sia implementato in qualche modulo nella gerarchia
Tie::Hash::* (non ho controllato).
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org/blog
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it

   }
Ancora piu` semplice, visto che " interpola anche gli accessi
alle hash:
    print "$a{$_} ovvero a{'$_'}\n";


Ciao,
vi ringrazio entrambi... notevole il codice: avrei fatto ben altri 
giri per ottenere lo stesso risultato! Vado ad applicare... grazie!


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

Salve,
volevo sapere se esiste un istruzione in perl per rilevare l' url di una
pagina da cui si č aperto il popup.
Cioč se dalla pagina 
http://www.pippo.com
 si apre il popup che manda alla
pagina 
http://www.miosito.com/index.cgi?username
, questo ultimo url puň
registare in un file di testo l' url 
http://www.pippo.com
 come referral
della pagina da cui si č aperto il popup?

Newsgroup: it.comp.lang.perl
Titolo: Qualcuno puo' aiutarmi???

Ciao a tutti, c'e' qualcuno che mi sa dire come posso fare per far
partire un programma Perl al momento in cui una macchina NT
workstation viene accesa?
Grazie a tutti.
Massi

 workstation viene accesa?
Usa srvany.exe e lo fai partire come servizio.
http://velocity.activestate.com/docs/ActivePerl/faq/Windows/ActivePerl-Winfaq4.html
Max
Newsgroup: it.comp.lang.perl
Titolo: Problemi con IO::Dir

Salve a tutti,
sto scrivendo un client ftp che si collega, scarica dei files da una
cartella e fa l'upload di alcuni file dal disco locale.
ora, per avere la lista dei file da spedire uso IO::Dir e la seguente
funzione:
sub getlsLocale
{
	my $dirobj = shift @_; #ad esempio "c:/pippo/"
	my %dir = ();
	tie %dir, IO::Dir, $dirobj || die "Cannot open $dirobj";
	return keys %dir;
}
usando strict mi dà come errore:
   Bareword "IO::Dir" not allowed while "strict subs" in use at
pippo.pl
 line 221
senza strict invece fila via tutto liscio e mi restituisce l'array con
i nomi dei file.
allora ho provato:
sub getlsLocale
{
	my $dirobj = shift @_; #ad esempio "c:/pippo/"
	my %dir = ();
	my $d = IO::Dir->new();
	tie %dir, $d, $dirobj || die "Cannot open $dirobj";
	return keys %dir;
}
ma in escuzione mi restituisce un errore:
  Attempt to bless into a reference at C:/Perl/lib/IO/Dir.pm line 36,
<STDIN> line 2.
sicuramente sbaglio io qualcosa, ma non capisco come mai la prima
versione con strict non funziona mentre senza sì.
Accetto volentieri consigli (sono abbastanza nuovo del perl).
Grazie,
KRaL

 <STDIN> line 2.
Visto che stai studiando il Perl, ti consiglio di attivare anche i messaggi
diagnostici con 
  use diagnostics;
In questo modo, in caso d'errori o warnings, otterrai una spiegazione piu` 
dettagliata del problema.
In questo caso stai tentando di fare un blessing usando una reference ($d)
anziche` il nome di una classe [1]. Se proprio vuoi passare per la creazione
di un oggetto, allora devi usare la funzione ref(), che ritorna, se gli
passi una blessed reference, il nome del package in cui tale reference e`
stata "battezzata". Nel caso di $d, il package e` IO::Dir.
Quindi il tuo codice diventerebbe:
  my $d = IO::Dir->new();
  tie %dir, ref( $d ), $dirobj || die "Cannot open $dirobj";
Ma se il problema e` soltanto evitare che strict si lamenti, allora puoi 
semplicemente mettere tra apici il nome della classe, senza ricorrere a
reference accessorie:
  tie %dir, 'IO::Dir', $dirobj || die "Cannot open $dirobj";
ciao 
Stefano
[1] L'errore lo ottengo solo con Perl 5.8.0. Perl 5.6.1 accetta la reference
    come CLASSNAME senza fare una piega: il risultato e` che ottengo una 
    reference battezzata "ARRAY(qualcosa)".

     reference battezzata "ARRAY(qualcosa)".
Effettivamente uso la 5.8. (Conviene tenere la 5.6.1?)
Cmq ho avuto un pň di fretta ed ho sostituito il tutto con opendir e
readdir.
Grazie cmq della spiegazione.
KRaL

 readdir.
TMTOWTDI :)
ciao 
Stefano

 Stefano
Ciao,
KRaL
Newsgroup: it.comp.lang.perl
Titolo: Distribuzione Perl per Windows

Salve,
sono andato su 
http://www.perl.org
 per cercare una distribuzione per Windows
di Perl e mi sono imbattuto in ActivePerl for Windows, Solaris, Linux. Stavo
leggendo sul sito e volevo conferma su alcune cose, questa distribuzione è a
pagamento mi pare, ma la versione che scarico scade? E' limitata? Anche se
non scade dopo 21 giorni devo registrarla? Esiste una versione free di perl
che si possa installare su IIS?
Grazie
-- 
Gianni
http://www.astice.net

 pagamento mi pare,
No, è gratuita. Forse ti sei confuso con ASPN Perl che è un prodotto 
commerciale (comprende Komodo, il PDK, Visual Perl ecc)
In realtà a te serve ActivePerl:
http://www.activestate.com/Products/Download/Download.plex?id=ActivePerl
Del tutto gratuito :)

Newsgroup: it.comp.lang.perl
Titolo: far matchare i primi 10 caratteri ?si?

Come si fa a far matchare i primi 10 caratteri di due scalari?
esempio:
$url[$n]=~/$tempurl/
vorrei fare sě che i primi 10 caratteri dell'array @url alla posizione
n-esima corrispondano con i primi dieci di $tempurl.
Quualcuno sa se il matchin m// ha problemi con le stringhe molto lunghe o se
ha altri problemi? mi sono trovato difronte a situazioni inspiegabili,
tentativi su tentativi e du stringhe identiche non volevano matchare!
Ciao,TaiGeR

 tentativi su tentativi e du stringhe identiche non volevano matchare!
Le due stringhe non erano identiche, allora. Quello che sta in m// viene
interpolato, per cui virgolette, / e altri metacaratteri possono entrare in
gioco.
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: cerco programmatori in perl e flash5

salve cercasi programmatori in perl e flash 5 per dei lavori !!
meglio se nella piazza di bologna e catania, senno' ci arrangiamo via e mail
!!!
si richiede massima serieta' !!!
concetto sciuto 0329-4282602
in...@vivicatania.net

 wrote in message
9h6qf5$c2i$1...@lacerta.tiscalinet.it...


 wrote in message
news:hUEZ6.441$ZE.1...@news1.tin.it...


Newsgroup: it.comp.lang.perl
Titolo: Web Mail AIUTOOO

Qualcuno puo' consigliarmi un CGI che consenta di leggere la posta via web
inserendo la uesrid, password, pop? Che sia facile da configurare ed
efficiente. Grazie


Sbagliato newsgroup.
M.
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)