mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Scusate la domanda.

Salve.
Scusate la domanda stupida ma sto iniziando per la prima volta ad
utilizzare Linux e Perl.
Per creare un programma in perl e farlo eseguire devo per forza inserire
all'inizio del file la seguente linea? #!/usr/bin/perl.
A cosa serve?
Grazie.
.
--
  Mauro Sanna
(
mrs...@tin.it
)
--
Automatic posted from 
mail.tin.it
 [194.243.154.49]
via Mailgate Server - 
http://www.mailgate.org

 .
Nei sistemi U*X, ogni file puo' essere identificato da un cosiddetto magic
number: questo e' un pattern di caratteri che identifica il tipo di file -
ad esempio i file compressi, gzip, GIF, PostScript iniziano tutti in maniera
riconoscibile (%!PS per il postscript).
Nel caso degli eseguibili (che vengono riconosciuti dal fatto di avere 
il bit 'execute' dei permessi a uno) il sistema operativo distingue quasi
sempre almeno tre casi:
i) Il file viene identificato (tramite magic number) come file in formato
'nativo' - e in tal caso viene passato al  loader
ii) il magic number del file e' "#!" (primi due caratteri della prima
linea): In questo caso, il resto della 
riga viene interpretato come il nome dell'interprete in grado di
eseguire il programma - ad esempio se la prima linea e' 
#!/usr/bin/perl -w  
l'OS eseguira' il comando:
/usr/bin/perl -w /path/del/mio/
script.pl
(Fra parentes: se hai appena cominciato a usare perl, lo switch -w e'
*CALDAMENTE* racomandato. Se hai una certa esperienza di perl, e'
ancora caldamente raccomandato.)
Fra le prime righe di questo genere sono di uso comune:
#!/bin/sh
#!/usr/bin/wish
#!/usr/bin/perl -w
#!/usr/bin/gawk -f
...
iii) Il file non ha magic number: L'OS si comporta come in (ii) ma
usa /bin/sh come nome dell'interprete.
Alcuni (vecchissimi) U*x non  sanno comportarsi come in (ii) il che
spiega alcuni paragrafi della documentazione perl.
Per rendere le cose interessanti, perl utilizza la stessa prima  linea
dello script per adattare il suo comportamento corrispondentemente il
suo comportamento - vedi perldoc perlrun.
Cheers,
	Alessandro 
---
Alessandro Forghieri		Site administrator Nouvelle srl
Email: 
a...@orion.it
		Voice: 	+39 59 345767
Via Giardini 460		Fax:	+39 59 343822

 wrote:
: Per creare un programma in perl e farlo eseguire devo per forza inserire
: all'inizio del file la seguente linea? #!/usr/bin/perl.
No, puoi eseguire il programma cosi`:
$ perl programma
Certo, e` piu` comodo fare:
$ chmod u+x programma           # per renderlo eseguibile
$ ./programma
: A cosa serve?
A specificare l'interprete a cui passare il programma.
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
Newsgroup: it.comp.lang.perl
Titolo: Come si legge una variabile da un file .pl?

Qualcuno mi può dire come si fa a leggere una variabile da un file .pl?
Ho provato nel seguente modo:
require("
prova.pl
");
&ottieni_variabile;
print "$variabile";
e su 
prova.pl
 ho scritto:
sub ottieni_variabile{
$variabile = '29';
return "$variabile";
}
ma ricevo il messaggio "Document contains no data"
Cosa ho sbagliato?
Grazie.
Nicola


Se vuoi provare i tuoi script da Web, devi formattare il testo in modo che il
browser possa capirlo: in sostanza devi stampare un header prima del resto
nel tuo caso metti
print "Content-type: text/plain\n\n"; (il doppio \n è fondamentale)
prima di
print "$variabile";
il mio consiglio è però quello di testare prima gli script senza l'accesso 
Web, se è possibile
-=-
Stefano Pisani
FingerPrint: 43A4 43B6 D1EB FC26 32DA  4B59 3578 464C AC5A 9915

Newsgroup: it.comp.lang.perl
Titolo: AIUTO - SITO GRATUITO CHE SUPPORTA CGI IN PERL





 


 




AIUTO - cerco SITI GRATUITI CHE SUPPORTANO CGI IN PERL 



dove mettere il mio sito .Per favore rispondetemi a 
rus...@inwind.it







www.prohosting.com


 


    Marco



rus...@inwind.it
 ("Mario Russo") wrote in
<00ac01c05c57$d6b0e040$5e8b623e@rusmar>: 
www.f2s.com

 dove mettere il mio sito .Per favore rispondetemi a 
rus...@inwind.it
Scusa la bacchettata ma nei NG č vietatissimo postare in HTML.
Per quanto riguarda la tua domanda credo che su 
http://www.freewebspace.net
potrai trovare una quantitą di servizi che neppure ti immagini.
Provare per credere!
--
Ciao, Matteo.
- - - - - - - - - - - - - - - - - - - - - - - - - - -
Promuovi istantaneamente il tuo sito.
http://banny.hypermart.net/cgi-bin/click/click.cgi?matteo
questo č un modo per guadagnare crediti extra !

 ha scritto nel messaggio
news:00ac01c05c57$d6b0e040$5e8b623e@rusmar...
Dimenticavo.... guarda anche questo:
http://www.aspcode.net/freeasphost/freeasphost.asp
--
Ciao, Matteo.
- - - - - - - - - - - - - - - - - - - - - - - - - - -
Promuovi istantaneamente il tuo sito.
http://banny.hypermart.net/cgi-bin/click/click.cgi?matteo
questo è un modo per guadagnare crediti extra !

Newsgroup: it.comp.lang.perl
Titolo: Perl o PHP, voi che dite?

Dai un'occhiata a questo articolo:
http://www-4.ibm.com/software/developer/library/script-survey/?dwzone=linux-web
ed in particolare:
http://www-4.ibm.com/software/developer/library/script-survey/?dwzone=linux-web#which
E' un confronto di 5 linguaggi server-side: Perl, PHP, Python, Tcl e
Java servlets.

Grazie mille !
Ciao

Newsgroup: it.comp.lang.perl
Titolo: come ottenere le informazioni da un visitatore di una pagina web?

faccio scaricare una figura creata con il perl ad un visitatiore
di una pagina web.
come prendere il suo IP?
come ottenere le altre informazioni?
Grazie in anticipo, Mario.

 come ottenere le altre informazioni?
Trovi tutto nell'hash 
%ENV
foreach my $key (keys %ENV) {
	print "$key=$ENV{$key}<br>\n"
}
-- 
$_=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: gzip data

Salve,
     tramite un socket vorrei spedire un flusso di dati testuali...ma 
vorrei gzipparli in real time prima di passarli al socket.
Come si può fare??
Grazie


Un approccio possibile sarebbe utilizzare PerlIO::gzip, ma sembra un
po' poco stabile e dovresti vedere se ti va bene. Altrimenti, prova a
dare un'occhiata a Compress::Zlib e IO::Zlib.
Ciao,
   Flavio.

Newsgroup: it.comp.lang.perl
Titolo: Eliminare una chiave da un hash

Salve a tutti
Qualcuno sa se è possibile eliminare una chiave da un hash (un po' come
il pop di un array)?
Ho provato con:
 undef $hash{'chiave'};
ma rende solo indefinito il valore della variabile senza per questo
eliminarla (se gli chiedo keys %hash, mi compare ancora).
Grazie

 ha scritto nel messaggio
news:3B80D1DD...@unifi.it...


 Diego
Perfetto!
Grazie
Gabriele
Newsgroup: it.comp.lang.perl
Titolo: redhat 9

Scuisate ma i cgi in perl funzionano sulla RH 9.0??!!
No perchè a me non gira nulla, solo internal server error con un premature
end of script....

 end of script....
Ciao,
io uso anche RH9 e i cgi funzionano perfettamente anche in modalità
mod_perl.
-- 
-- Marco Allegretti --
http://www.shishii.com



Posta qui lo script...
Immagino sia un test script, quindi corto :)
--
http://www.pigmalion.info/
Internet è uno dei veicoli più validi per la difesa della libertà,
poiché offre la verità a chi vuole vederla e intenderla...
Vinton G. Cerf

Newsgroup: it.comp.lang.perl
Titolo: [Forse OT] come si creano directory protette da password?

Salve a tutti!
Chiedo ai guru di questa NG, come si possono creare delle directory protette
da password tramite perl, sempre se possibile.
GRAZIE!!!!!!





Se risolvi questo problema, mi potresti far 
sapere?



Pikachu wrote:

Prova a vedere se in 
http://cgipoint.html.it/raccolta/password.htm
 trovi
qualcosa che fa al caso tuo (non garantisco nulla perņ).
Buon lavoro
Newsgroup: it.comp.lang.perl
Titolo: compilare un file pl

ancora salve ragazzi,
qualcuno può dirmi come fare per creare un eseguibile da un file .pl?
supponiamo io ho uno script   
script.pl
, quale comando mi permette di
ottenere una sua versione eseguibile?
Vi ringrazio in anticipo!!!
ciaooooo
Claudio Bellucci

 ottenere una sua versione eseguibile?
Ovviamente dipende dal sistema operativo che usi e da quale versione di perl
usi. Su unix basta fare chmod 0755 
script.pl
. Su Mac devi salvare il file
come applicazione. 
Su altri sistemi operativi meno seri non so.
bye
silvio

 ha scritto nel messaggio
news:B63AD8DA.2093%sil...@sosio.it...


 Vi ringrazio in anticipo!!!
Dipende cosa intendi per eseguibile. Se vuoi creare un eseguibile,
quindi non interpretato, allora esiste il modulo B::C che genera un
source C, completo di tutte le librerie che lo script perl richiama.
Naturalmente il sorgente C lo puoi compilare, teoricamente,
nell'ambiente che ti e' piu' congeniale.
Dico teoricamente perche' sono riuscito solo a compilare alcuni sorgenti
mentre con altri ho trovato dei problemi ancora irrisolti.
Ciao.
-- 
Pier Angelo Favarolo
-+-+-+-+-+-+-+-+-+-+
Il mio sito sulle tariffe telefoniche:
http://tariffe.surf.to
http://surf.to/tariffe
http://ascu.unian.it/~pangelo/tariffe

 qualcosa di simile, prodotto dalla activestate.
Tu sei consapevole di quello che stai postando, vero?
Quando ci troviamo il PC schiantato da un bel cavallo di troia cosa
facciamo, veniamo a cercare te che ci rifondi il danno?
ciao, marco
--
Marco Cacchiani                                
e-mail:ma...@sirius.pisa.it
Public pgp key:         
http://www.sirius.pisa.it/marco/pgp_public_key.asc
Sirius Servizi Informatici                     e-mail: 
in...@sirius.pisa.it
Parco Teatro Pasolini, 1                       Phone:  +39 (50) 865120
I-56019 - Vecchiano                            Fax:    +39 (50) 860260
(Pisa - ITALIA)                                
http://www.sirius.pisa.it/

Newsgroup: it.comp.lang.perl
Titolo: BBS-LS il mio forum in perl

Ciao a tutti.
Volevo solo informare che sto realizzando un forum server less.
Ho trovato molti sostenitori ed entro la prossima settimana dovrebbe
arrivare anche il dominio internet.
QUesto per ora è il forum temporaneo:
http://bbs-sl.morselli.com/forum/index.php?act=idx

"LordSaga640" <er...@fgfsd.sdf> ha scritto nel messaggio
news:4130...@x-privat.org...

Non capisco perchè mi ha inviato il messaggio anche se non l'ho finito di
scrivere...vabbè...
stavo dicendo:
Il progetto si basa interamente sulla programmazione PERL.
In questo messaggio sono spiegate molto velocemente le funzioni più
importanti:
http://bbs-sl.morselli.com/forum/index.php?showtopic=3
Entro breve ci sarà un beta test.
Uno speciale ringraziamento a MMORSELLI per l'interesse e l'apprezzamento
mostrato. Spero di non deludere le aspettative.
Saluti.
Daniele
Newsgroup: it.comp.lang.perl
Titolo: codice piu' compatto

Vorrei un consiglio:
quale costrutto proporreste per scrivere il seguente codice in modo piu'
compatto ?
<code>
$a =
 $colour{$box_colour}->[0].",".
 $colour{$box_colour}->[1].",".
 $colour{$box_colour}->[2]."/".
 $colour{$box_colour}->[3].",".
 $colour{$box_colour}->[4].",".
 $colour{$box_colour}->[5];
</code>
grazie
 Raffaello
P.S.: $colour{$something} e' ovviamente un array reference.

 </code>
Una cosa del genere:
    ------------------------------------------------------------
    use strict;
    use warnings;
    sub merge
    {
        my $refa = shift;
        my $refb = shift;
        return () if abs(@$refa - @$refb) > 1;
        my @merge = ();
        for my $i (0 .. $#$refa) {
            push @merge, $refa->[ $i ] if defined $refa->[ $i ];
            push @merge, $refb->[ $i ] if defined $refb->[ $i ];
        }
        return @merge;
    }
    print join "|", merge( [ qw/a b c d e f/ ]
                         , [ qw/1 2 3 4 5/ ]
                         );
    ------------------------------------------------------------
Nel tuo caso dovresti scrivere:
    print join "", merge( $colour{$box_colour} 
                        , [ qw| , , / , , | ]
                        );
In merge(), ovviamente, bisognerebbe aggiungere qualche check
sulla dimensione degli array passati per reference, e sulla 
natura effettiva dei dati passati.
Un modulo che implementa un meccanismo simile (ma piu` raffinato)
e` Algorithm::Loops, con la funzione MacCar. Ti rimando alla 
documentazione, ma ecco un esempio, del tutto analogo a quello
del codice sopra:
    ------------------------------------------------------------
    use Algorithm::Loops qw/ MapCar /;
    my @merge = MapCar { @_ } [ qw/a b c d e f/ ]
                            , [ qw/1 2 3 4 5/ ];
    print join "|", @merge; 
    ------------------------------------------------------------
Ah, tanto per farsi del male... in Perl 6 "MapCar {@_}" dovrebbe 
essere builtin, e chiamarsi zip(). Ma questi sono affari dei nostri
nipoti :))
ciao, 
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

 </code>
un altro modo:
   $a = sprintf( "%d,%d,%d/%d,%d,%d", @{$colour{$box_colour}} );
(presumendo che gli elementi di $colour{$box_colour} siano interi, 
altrimenti sostituisci %d con quello che ti fa più comodo).
è una soluzione molto, ma molto meno generica di quella che ti ha 
proposto larsen (Stefano), ma a mio avviso ha il vantaggio di rendere un 
po' più visibile la formattazione della stringa finale.
cheers,
Aldo

 po' più visibile la formattazione della stringa finale.
Ringrazio Aldo e Stefano per i suggerimenti.
Dato che non voglio introdurre nuove subroutine, penso che seguiro'
quest'ultimo consiglio.
 Raffaello
Newsgroup: it.comp.lang.perl
Titolo: Perl e mySql

Esiste un piccolo tutor o doc su come gestire i databases in perl con mysql.
Grazie in anticipo.

Grazie in anticipo.
Il manuale di mySQL offre qualche dritta in proposito, ed anche un:
perldoc DBI
puo` fornirti delle utili informazioni. Il modulo da usare e` comunque DBI,
se non ce l'hai cercalo su un sito del CPAN.
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

 Grazie in anticipo.
Le documentazioni di DBI e DBD::mysql dovrebbero essere sufficienti.
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: Problema con CGI e link esterni

Salve ragazzi, prima di tutto spero di non essere OT, se è così
scusate.
Mi sto cimentando in un poco di programmazione CGI in perl. Uso il
modulo CGI, facendo tutto in locale. Sistema operativo linux kubuntu 6,
server apache2. Ho questo problema: qualunque tipo di file "esterno"
voglio caricare nella pagina non la carica.
Facciamo un esempio pratico: un'immagine, print $q->img(...) ma
l'immagine non si vede. Un css esterno print $q->link(...) ma non si
notano gli effetti del css. Il problema non è che non funzioni lo
scipt, in effetti quando vado a vedere il sorgente html generato i tag
img e link sono a loro posto, ma l'immagine non si vede. Se io eseguo
lo script e il risultato lo copio in un file html allora è tutto a
posto. Sapete darmi una mano? Pensate sia un problema di perl o di
apache? Avete qualche link per la configurazione di apache2 per perl
sotto linux? Sto provando a cercare ma...
Grazie a tutti in anticipo.

 sotto linux? Sto provando a cercare ma...
Non è un problema di Perl.
Se la pagina viene generata correttamente (a parte il problema dei 
broken path) vuol dire che perl funziona e che Apache è configurato 
correttamente per eseguire script CGI, vai tranquillo.
Ciao, Emanuele.

Grazie Emanuele,
avevi perfettamente ragione, era un problema di path. Il punto era che
usavo dei path del compunter del tipo "/home/..." e non path del
server. Grazie 1000 della risposta!
Newsgroup: it.comp.lang.perl
Titolo: Perl su Piattaforma Microsoft

Esiste un tool (o simulatore) che permetta di far girare un file PERL su
piattaforma Microsoft?
Grazie


Hai mai cercato su un motore di ricerca prima di scrivere su un ng?
www.activestate.com

Newsgroup: it.comp.lang.perl
Titolo: Interprete script???

Ciao a tutti, sono un newbee del perl e ho il seguente problema: ho bisogno
di sapere se in ambiente windows devo avere un interprete per far girare gli
script perl sotto IIS o Personal Web Server. Se l'interprete occorre, dove
lo trovo? Come si chiama? E' una dll? Grazie a coloro che avranno la
pazienza di rispondermi, ciao!

lo trovo? Come si chiama? E' una dll? Grazie a coloro che avranno la
ActivePerl:
http://www.activestate.com
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

Newsgroup: it.comp.lang.perl
Titolo: Manuali perl in Italiano ... dove???

Grazie a chi mi saprà rispondere .....


Il testo di riferimento e' quello suoi creatori, tradotto anche in Italiano.
Il libro viene denominato "il libro del cammello".
Wall-Christiansen-Schwartz: Programmare in PERL.
JACKSON LIBRI. Lit 75000.

Newsgroup: it.comp.lang.perl
Titolo: miglior modo di fare replace di una substring

Ciao a tutti e abbiate pazienza con i principianti....
devo fare un semplice replace di una lettera con un'altra in una stringa, e
va bene:
$myvar=~s/A/B/g;
ma mettiamo di avere una espressione stringa ottenuta concatenando altre
variabili, del tipo:
$var1.$var2.$var3.$var4
come faccio a fare facilmente e rapidamente una sostituzione sulla stringa
totale senza passare per una variabile temporanea?
($var1.$var2.$var3.$var4)=~s/A/B/g;        # NON FUNGE
Devo per forza fare cosě?
$temp=$var1.$var2.$var3.$var4;
$temp=~s/A/B/g;
Grazie

$temp=~s/A/B/g;
Non so se devi per forza fare cosě, ma non capisco quali motivi tu possa
avere per desiderare di fare diversamente: se concanteni delle stringhe, le
metterai pure da qualche parte, o altrimenti che ne fai? E se al contrario
il risultato lo butti, che ti importa se c'č una A o una B?
Ciao.
P.S. E, giusto per curiositŕ, che cosa ti hanno fatto di male gli spazi?

 P.S. E, giusto per curiosità, che cosa ti hanno fatto di male gli spazi?

posizione in proposito, a volte li metto altre volte no.....
A me pare che facilitino sempre la lettura.
Altrimentisiscriverebbesempretuttoattaccatoancheinitaliano.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Non so se si può fare...

Sto sviluppando uno script in perl e vorrei sapere è possibile associare ad
un elemento di un hash, un array.
Es.
$mio_hash{mia_chiave}=@mio_array;
In questo modo $mio_hash{mia_chiave} prenderà il numero di valori di cui è
composto @mio_array, giusto?
E per associargli l'array stesso (con tutti i suoi valori)?
--------------------------------
Inviato via 
http://usenet.libero.it

 E per associargli l'array stesso (con tutti i suoi valori)?
Tutte le problematiche del caso dovrebbero essere incluse in
 perldoc perldsc
Raffaello

 perldoc perldsc
Per gli sfaticati:
In summary:
    $AoA[$i] = [ @array ];      # usually best
    $AoA[$i] = \@array;         # perilous; just how my() was that array?
    @{ $AoA[$i] } = @array;     # way too tricky for most programmers
(Vale naturalmente anche per gli hash.)
Però è davvero conveniente leggersi tutto perldsc, e magari anche perllol e
perlref.
Ciao.

Grazie mille ad entrambi per l'aiuto.
Ciao.

--------------------------------
Inviato via 
http://usenet.libero.it
Newsgroup: it.comp.lang.perl
Titolo: Perl script per generare pagine web!

Salve,
premetto che non sono un esperto di perl. Sono in grado di scrivere un 
semplice script ma il mio livello è abbastanza basso.
Ho un problema. Mi trovo a gestire una pagina web in cui differenti utenti 
devono aver la possibilità di inserire le loro informazioni ed eventualmente 
anche alcuni loro file. Dovrei gestire il tutto con script in perl.
Avevo pensato che una buona soluzione sarebbe se ogni utente avesse a 
disposione tramite una opportuna èpagina web uno script che facesse le 
seguenti cose
1) Li identificasse mediante una password
2) Successivamente chiedesse loro delle info da mettere poi in una pagina 
web (il layout sarà avviamente comune per tutti gli utenti). Ovviamente la 
password serve affinchè un utente non possa "compilare" la pagina web di un 
altro utente.
3) Evetualmente lo script dovrebbe poter dare la possibilità di uplodare dei 
file e di creare (in un opportuno spazio della pagina web dell'utente) dei 
link che consentano a tutti di scaricare questi file e ovviamente accanto ad 
ogni file creare una descrizione dello stesso (descrizione richiesta 
all'utente al momento dell'upload)
So che sono tutte cose possibili (e per alcuni anche facili). Io non sono in 
grado e mi chiedevo se c'è qualcosa di pronto anche a costo di utilizzare 
più script pronti e adattarli insieme.
Qualcuno può darmi un consiglio?
Grazie
Max

 facili).
Si, è tutto fattibilissimo ma se è la prima volta che lo fai non è proprio
una passeggiata.
Innanzitutto ti serve:
- CGI (per ottenere i campi immessi nelle form dagli utenti)
es:
    use CGI;
    my $cgi = new CGI;
    my utente = $cgi->param('user'); #user sarà il nome che avrai dato al
relativo campo della form in cui viene chiesto user-password
    my pwd = $cgi->param('pwd');
    ecc...
- HTML::Template (ottimo pacchetto che ti permette di gestire le pagine web
come template, è alla base di moltissimi siti web dinamici fatti in Perl)
es:
    use HTML::Template
    my $tmpl = HTML::Template->new(finelame => 'pagina.html');
    my $tmpl->param( utente => $usr );
    print $cgi->header();
    print $tmpl->output;
- FileUpload (pacchetto che ti semplifica la vita per l'upload delle
immagini)
es:
    sub salva {
        #Salvataggio del file immagine
        my ($self,$nomefile) = @_;
        my $fu = new FileUpload($nomefile);
        my $nfile=$fu->orig_filename;
        $fu->allow_char('\\','/');
        my $sizewritten = -1;
        if (!($fu->save_as("../html/images/news/$nfile"))){
            return -1;
        }
        #Restituisco il nome del file salvato da immettere nel database
        return $nfile;
    }
Questi sono i pacchetti base che ti servono.
Il mio consiglio è di studiarsi per bene HTML::Template perché non è
immediatissimo ma è di una utilità pazzesca se devi fare pagine web
dinamiche (o anche molte altre cose tipo email in HTML).

più script pronti e adattarli insieme.
Una cosa tipo Wiki potrebbe andar bene?
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Socket: problemi con le porte

Sto scrivendo un programmino che usa i socket per le comunicazioni
client-server tramite IO::Socket. Tutto funziona bene, tranne per una
cosa: all'uscita del programma, tramite Ctrl-c, la porta sulla quale il
programma è in ascolto mi rimane occupata per un tempo variabile (mai
sopra un minuto, comunque).
Il codice di base dello script (il suo avvio, in pratica!) è questo:
use IO::Socket;
use Net::hostent;
$port = 11111;
$server = IO::Socket::INET->new(Proto     => 'tcp',
                                LocalPort => $port,
                                Listen    => SOMAXCONN)
or die "Server can't be started on port $port: $!"; # Qui mi rileva l'errore
Ho anche provato con una soluzione apparentemente più pulita:
intercettare il segnale (SIGINT) e a lanciare un exit(), ma ancora
nisba! La cosa interessante è che con fuser dalla shell non mi dà alcun
processo che usa la mia porta!!
Dove può essere il problema?? C'è forse una qualche istruzione per
liberare la porta una volta che il programma non è più in ascolto? (non
basta ammazzarlo??!??!)
Chiedo questo essenzialmente per due motivi:
Il primo è dovuto al testing del programma: ogni volta che devo fare
delle modifiche lo devo riavviare, e dover attendere ogni volta non è il
massimo! :-)
Il secondo è l'idea che ho di comandare l'avvio e l'arresto del
programma tramite script di init: per fare questo, dovrei scrivere il
pid del processo nella dir che contiene i PID dei processi in esecuzione
in modo da poterlo terminare con il solito 
kill `cat PIDFILE`: ma se con un restart o con uno stop seguito da uno
start il programma mi si rifiuta di partire per la porta occupata??
TIA
--ev

 
Aggiungi 
    Reuse => 1
E questo dovrebbe risolvere il tuo problema (v. perldoc IO::Socket).
Poi, se vuoi approfondire, prendi un manuale o un tutorial di network
programming sotto UNIX (oppure usa direttamente Google) e cerca:
  SO_REUSEADDR 
  TIME_WAIT
Dai anche un'occhiata a questi due paragrafi delle UNIX Socket FAQ:
 
http://www.ibrado.com/sock-faq/sfaq.html#faq44
 
http://www.ibrado.com/sock-faq/sfaq.html#faq13
Ciao,
Max

Newsgroup: it.comp.lang.perl
Titolo: Inviare un'email con un form

Questo problema è un problema relativo alla mia documentazione (Possibile
che su internet non ci sià una documentazione completa di tutti i comandi
con le rispettive opzioni??).
Voglio inviare un'email con un form del genere:
<form method="post"
action=mailto:
xxxxx@xxx
 ed inserire da qui OGGETTO dell'email è corpo.
Grazie a chi mi aiuterà!

ti ho gia' risposto su
it.comp.www.cgi
Alex
sunrises24 ha scritto nel messaggio ...

Newsgroup: it.comp.lang.perl
Titolo: problema con .forward e .procmail.. HHHHEEEEEEELLLLLLLPPPPPPPPP!!!!!!

Ciao a tutti,
ho un problema abbastanza urgente con questi 2 file. Situazione
e-mail : popac...@XXXX.it
directory: /home/http/XXXX/popaccount
owner: popaccount
group: http
Etrando come utente popaccount ho caricato dei file .forward che sono
owner: popaccount
group: XXXX
mode: rw-r--r--
Ho preparato degli script che mi diano la possibilità di modificare il
.forward all'interno di /home/http/cgi-bin/XXXX (sono qui gli script perchè
XXXX non ha una cgi-bin dir.); quando scrivo un file da perl (credo) ci sia
questa situazione:
user: http
group: http e la directory deve essere drwxrwxrwx, ma i file che io devo
andare a scrivere sono rw-r--r--;
Ho visto che se la dir ha 777 (drwxrwxrwx) come diritti il .forward non
funziona, cosi io devo cambiare il mode della directory per scrivere il file
.forward e poi farlo tornare ad una situazione "normale" per farlo
funzionare ma con il comando CHMOD dallo script perl non riesco a far
cambiare i diritti a questa directory prima di andarci a scrivere.
Immagino non abbiate capito niente della mia situazione ma spero che
qualcuno mi dia un piccolo aiuto.
Q: una soluzione può essere creare una cgi-bin directory per XXXX?
Grazie e scusate,
Nicola :(

 wrote in message
TrIX5.3652$x_2.1...@twister1.tin.it...
Newsgroup: it.comp.lang.perl
Titolo: sendmail

Da neofita vorrei utilizzare uno script già pronto per spedire mail in
automatico, problema:
Lo script (e nn solo quello che vorrei usare!!) usa un metodo open
impostato su una variabile $MailProgram che chiama un programma
usr/bin/sendmail .... tutto chiaro, se nn che io ho un server
windows2000 e non Unix! che cosa devo usare per spendire la mail?
vi ringrazio per l'aiuto
Buon Lavoro
Mc Nat
'Andate a vendere pazzie altrove, qui siamo già al completo'


esiste il sendmail per windows!
tanta fortunaaaaa....
il Triste
-- 
"In absolutely nothing we
                    [trust"
           Megadeth

           Megadeth
hahahahha  !!! ))
...lo immaginavo... ma l'azienda windowz vuole!!! :-x
dove lo posso trovare?
grazie


 dove lo posso trovare?
E se invece usassi un server SMTP?
Marco Gazerro

... questo per me č un mondo nuovo... sto esplorando... ))
Va bene qualsiasi cosa mi permetta di sostituire quella
$MailProgram.....
Ho trovato un sendmail x windows nel sito:
www.indigostar.com
... e ora arriva il bello! Cercare di farlo funzionare con win2000 e
soprattutto con un capriccioso firewall su cui ho zero controllo...
grazie dell'assistenza....
Mc Nat
'Andate a vendere pazzie altrove, qui siamo gią al completo'

 'Andate a vendere pazzie altrove, qui siamo già al completo'

soprattutto con un capriccioso firewall su cui ho zero controllo...
Spedire la posta con sendmail da dentro il firewall e` possibile,
ammesso che ci sia almeno qualche porta, a partire da 1024, aperta.
Il problema vero e`  Windows. Le versioni Windows dei programmi per
Unix in genere non sono altrettante sicure. Prendi Apache. Prendi
Sendmail, appunto.
Comunque Sendmail sta su 
www.sendmail.org
 che e` il sito ufficiale.
Da li ti prendi i sorgenti e te li compili.

Ciao,
in sistemi windows devi
1: avere un server di posta;
2: usare il modulo Net::SMTP
Quindi la sintassi č:
richiama il modulo con...
use Net::SMTP;
indirizza al tuo server di posta
$smtp = Net::SMTP->new('TUOSERVER');
spedisci la mail
$smtp->mail("mailinvio\@
tuoserver.com
");
$smtp->to("mailchericeve\@
suoserver.com
");
$smtp->data();
$smtp->datasend("From: mailinvio\@
tuoserver.com
\n");     # il \n č per
andare a capo
$smtp->datasend("TO: mailchericeve\@
suoserver.com
\n");
$smtp->datasend("Subject: Oggetto della mail \n");
$smtp->datasend("\n");
# queste sono le righe dove puoi scriverci quello che vuoi
$smtp->datasend("Le iviamo i dati richiestici.");
$smtp->datasend("\n");
$smtp->datasend("\n");
$smtp->datasend("User: $user");
$smtp->datasend("Password: $pass");
$smtp->datasend();
Esci da $smtp
$smtp->quit();
Sono un pň incasinato nella spiegazione ma io uso questo sistema e funziona
benissimo.
Ciao Stefano

Se hai tra i 18 e 45 anni e sei femmina.... hai uno schiavo a
disposizione ... ehehhehe
Grazie mille!!!!
ciao


..... se qualcuno è interessato a un lavoretto in subappalto.....
visto la disponibilità di questo ng...lascio fare agli esperti.... ;)
bye
Mc Nat
'Andate a vendere pazzie altrove, qui siamo già al completo'

...naturalmente.... scherzavo!

Newsgroup: it.comp.lang.perl
Titolo: Chiamare un asp da un CGI perl

Salve, dovrei chiamare una pagina ASP al termine di un CGI perl.
Come faccio??
Grazie mille,
Matteo

lo riscrivi tutto in asp
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.perl
Titolo: Piccolo quesito su ciclo

So che la soluzione sarà banale, ma al momento proprio mi sfugge.
Ho un array di hash in cui ad ogni elemento devo associare l'ID del
successivo e l'ID del precedente.
In pratica ho:
my $news = ...select_da_database...
for (@$news){
    print "News: ".($_->{IDNEWS});
    $_->{succ} = ... IDNEWS del successivo...;
    $_->{prev} = ... IDNEWS del precedente...;
}
Qualche idea?



Provo al volo cosi' :
use strict;
for my $i (0..scalar(@$news)-1){
   if ($i>0) {
     $news->[$i-1]->{succ} = $news->[$i]->{IDNEWS};
     $news->[$i]->{prev} = $news->[$i-1]->{IDNEWS};
     }
   print "News: ".( $news->[$i]->{IDNEWS} );
   }
Raffaello

    }
Grazie per i suggerimenti :-)

Newsgroup: it.comp.lang.perl
Titolo: Sempre il tail

Grazie per il consiglio, Event::File e' quello che mi serviva, solo che 
non funziona come dovrebbe su OpenBSD.
Ovvero quando incremento il file XXX con 'echo xyz >> XXX' su OpenBSD 
(v.3.0) non mi rileva l'aggiunta di una nuova riga.
Lo stesso script su un Linux (RedHat 7.1) funziona.
#!/usr/bin/perl -w
use Event::File;
use strict;
sub __print{
        my ($dontcare,$line) = @_;
        print " $line\n";
};
Event::File->tail(
                        cb => \&main::__print,
                        file => 'XXX'
                );
my $result = Event::loop;
--
Master:"Conan, what is best in life?" 
Conan:"To crush your enemies, see them driven before you,
and to hear the lamentations of their women!

 Lo stesso script su un Linux (RedHat 7.1) funziona.
non saprei proprio cosa consigliarti...
prova a giochicchiare con $|
oppure chiedi lumi all'autore del modulo! :)

Newsgroup: it.comp.lang.perl
Titolo: piccolo aiuto con un pattern matching

Salve a tutti.
Ho un piccolo problema per far il attern matching di questa riga:
* tm_mail: 600 -> Tempo minimo tra due mail
io ho provato questo:
$line =~/\*\s(\S+)\:\s(\S+)\s\-\>\s(\S+)/;
ma cosě ottengo:
$1= tm_mail ->giusto
$2= 600 ->giusto
$3= Tempo ->Sbagliato!!!
Considerando il fatto che la frase che dovrebbe andare su $3 č piuttosto
variabile,
in termini di numero di spazi, e perchč puň contenere sia numeri che
lettere,
come posso fare?
se ad esempio racchiudessi la frase tra doppi apici -> "frase"
la cosa diventerebbe piů semplice?
Molte grazie.
bye ;-)

 * tm_mail: 600 -> Tempo minimo tra due mail
Non è ben chiaro quale sia la sintassi della riga. Se è di questo tipo:
un asterisco
uno o più spazi
un nome composto da caratteri alfanumerici e _
i due punti
uno o più spazi
un numero
uno o più spazi
la stringa ->
uno o più spazi
una stringa di testo
allora può andare bene questa:
$line =~ /^\*\s+(\w+)\:\s+(\d+)\s+\-\>\s+(.+)$/;


ho risolto tutto con (.+).
ho parecchia rugine addosso :-p
molte grazie per il prezioso aiuto.
bye ;-)
Newsgroup: it.comp.lang.perl
Titolo: Come si usa print "Location"?

Vorrei sapere se è possibile con il comando
print "Location:http://.................\n\n" reindirizzare, 
invece che a una pagina html, a uno
script cgi e se possono essere passate delle variabili
allo script di destinazione.
Grazie.
--
Posted via Talkway - 
http://www.talkway.com
Surf Usenet at home, on the road, and by email -- always at Talkway.



nico...@hotmail.com
 wrote:
 >Vorrei sapere se è possibile con il comando
 >print "Location:http://.................\n\n" reindirizzare, 
Leggi l'RFC di HTTP.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

 Leggi l'RFC di HTTP.
E piu facile di utilizzare CGI.pm:
$cgi = CGI->new;
print $cgi->redirect($location);
Cheers,
-w

Newsgroup: it.comp.lang.perl
Titolo: Cerco Aiuto

Scusate, mi sono messo ora a studiare, i cgi, perl etcc... ma avrei aiuto da
qualcuno di voi che rispondesse alle mie domande in privato.
Sarei grato qualcuno mi rispondesse.
Saluti
Marco Anichini  
an...@inwind.it

Io non sono un guru del perl, ma me la cavo.
Quindi se posso esserti d'aiuto, per quello che mi e' possibile, saro' ben
lieto di dartelo. Anche perche' un confronto può essere utile ad entrambi.
Ciao
Giorgio
--
Posted from 
adamo10.supereva.it
 [195.110.96.115] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.perl
Titolo: Inviare e-mail con contenuto HTML

qui</a></font></p>\n";
print MAIL "  <p><font size=2 face=Tahoma color=#808080>Vi ricordiamo che
questo servizio \n";
print MAIL "    consente a tutti gli iscritti di ricevere notizie sulle
attivit&agrave; del \n";
print MAIL "    sito e soprattutto le nostre offerte commerciali a prezzi
scontatissimi.</font></p>\n";
print MAIL "</div>\n";
print MAIL "</body>\n";
print MAIL "</html>\n";
close (MAIL);
print "Content-type: text/html\n\n";
print "<html><head><title>Grazie</title></head>\n";
print "<body><BR><h3><CENTER>Grazie per esserti iscritto</CENTER></h3>\n";
print "</body></html>\n";
sub parse_form {
   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
   if (length($buffer) < 5) {
         $buffer = $ENV{QUERY_STRING};
    }
  @pairs = split(/&/, $buffer);
   foreach $pair (@pairs) {
      ($name, $value) = split(/=/, $pair);
      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $FORM{$name} = $value;
   }
}

 wrote in message
e2pt6.58506$6W.48...@news.infostrada.it...

Newsgroup: it.comp.lang.perl
Titolo: AIUTO! PROBLEMA CON APACHE!

Ho installato il web server Apache, ho fatto un semplice programmino in
perl, ho cambiato l'estensione in .cgi, l'ho messo nella directory
cgi-bin, ma quando lo chiamo dal browser, al posto di visuaslizzarmi solo
la parte in html, mi visualizza l'intero listato, cosa devo fare?
Io vorrei che il browser mi visualizzasse il risultato dell'esecuzione del
programma e non il listato del programma!
Vi prego aiutatemi!

 wrote:
| Io vorrei che il browser mi visualizzasse il risultato dell'esecuzione del
| programma e non il listato del programma!
e' un problema di configurazione di apache, non del perl
Oha

 programma e non il listato del programma!
Inserisci
AddHandler cgi-script .pl .cgi
in srm.conf (o httpd.conf) di apache.
-- 
    .--.     Lorenzo Pulici - milanohockey at 
penguinpowered.com
   |o_o |    
http://milanohockey.virtualave.net
     ICQ 38627287
   |:_/ |    
http://snowdog.cjb.net
  //   \ \   
http://verdebaggio.freeweb.org
 (|     | )  PLUTO Member - 
http://www.pluto.linux.it
/'\_   _/`\       "Le insegne luminose attirano gli allocchi"
\___)=(___/                   (G. L. Ferretti)

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

Ho il seguente problema.
Ho una pagina con frame. Da una parte un text field ed un bottone per
inviare i dati di quest'ultimo. Per stampare il risultato dello script
nell'altra pagina del frame come posso fare?
Grazie
Roberto


Cosa c'entra questo con un newsgroup su Perl?
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Chiedo scusa?!
Ho risolto il problema ed effettivamente non c'entra niente con il perl.
Scusate
Alla prossima
Newsgroup: it.comp.lang.perl
Titolo: WINSHARED, mio programmino

Ho creato un programmino per condividere dei documenti in rete: 
WINSHARED 
http://www.redangel.it/click_file.asp?m=1344&l=7
 
quote:
------------------------------------------------------------------------
Permette di condividere la cartella "shared" (contenente solo files di 
testo e binari,no altre directory) nella rete. Per raggiungerla bastera 
digitare http://tuo_numero_IP:porta da te scelta o semplicemente 
http://127.0.0.1:port se sei in locale.E' possibile bloccare l'accesso 
alla tua cartella "shared" con username e password. E' possibile tenere 
traccia degli accessi alla tua cartella "shared" (history). Versione 0.3 
(Codice sorgente e eseguibile per windows) 
------------------------------------------------------------------------
Vorrei sapere come funziona su altre versioni di windows! 
Io l'ho provato su Win98SE e sembra girare bene... 
Grazie a tutti 
Ciao

 Ho creato un programmino per condividere dei documenti in rete:
Ah, a poposito: avevo preparato un piccolo programmino per illustrare l'idea
che avevo descritto nel mio messaggio nel thread "IO::Select".
 
http://cassandra.comm2000.it/~maxim/pub/share/single_thread_webserver.pl
E' un server web molto semplice, che gestisce più sessioni concorrenti (sia
in lettura che in scrittura) senza usare thread o fork.
Max


HTTP::Server::Singlethreaded
HTTP::Server::Simple
HTTP::Daemon
credo tu abbia reinventato la ruota :)

 credo tu abbia reinventato la ruota :)
Non ho proprio inventato nulla. Ho solo buttato giů qualche riga di 
codice per mostrare a Larry come poteva usare IO::Select. 
BTW... 
 
http://groups-beta.google.com/group/it.comp.lang.perl/msg/e44b124341214d0a
Max

 wrote:

ti ringrazio per lo script che sto studiando...anche se i moduli postati 
nelle altre risposte a questo topi sono molto interessanti!
vorrei farti un'altra domanda,quando prendo la "request" dal browser non 
vi è il campo IP
come faccio a sapere l'IP di chi si sta collegando alla mio script?
Grazie ancora e buone feste!

 
perldoc IO::Socket::INET
  METHODS
  [...]
  peeraddr ()
    Return the address part of the sockaddr structure 
    for the socket on the peer host
  peerport ()
    Return the port number for the socket on the peer host.
  peerhost ()
    Return the address part of the sockaddr structure for the 
    socket on the peer host in a text form xx.xx.xx.xx
M

 wrote:

il codice sorgente è direttamente visibile qui:
http://www.theartofweb.netfirms.com/cgi-bin/bbsmart/bbsmart.cgi?DO=showto
pic&FORUM_ID=3&TOPIC_ID=39
Newsgroup: it.comp.lang.perl
Titolo: perl e moduli su HPUX

ciao a tutti, ho tentato si installare il modulo MIME::Base64 su un hpux
10.20, ma il compilatore "bundle" non ne voleva sapere di compilare le
parti in c del modulo, probabilmente perche' compila solo il c K&R ed i
moduli sono in ansi. Ho poi installato il porting del gcc e le cose sono
andate bene fino al momento del linking dei .o creati. 
Insomma non ci sono riuscito. qualcuno ha esperienza di perl sotto hp?
dal lato del c le ho provate tutte ( ma spero di no... )
Ivan
-- 
.signature work in progress

# perl -MCPAN -e 'install MIME::Base64'
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message 3AC85735...@rtsystem.com...


Newsgroup: it.comp.lang.perl
Titolo: MSDN Originale Vendesi

Vendo i seguenti numeri di MSDN Library Originali:
-MSDN January 1999 (3 CDs) 30.000 lire
-MSDN April 1999 (3 CDs) 30.000 lire
-MSDN July 1999 (1 DVD) 40.000 lire
-MSDN April 2000 (3 CDs) 80.000 lire (Ultimo numero uscito)
-Component Source MSDN 10/99 Edition (1 CD) 20.000 lire
-Component Source MSDN 04/2000 Edition (1 CD) 30.000 lire
-MSDNnews (opuscolo) January/February 2000 10.000 lire
Spese di spedizione a carico del destinatario.
Scrivete a 
fran...@yahoo.it



Newsgroup: it.comp.lang.perl
Titolo: No Cache e Target

- Sto scrivendo un CGI che dovrebbe permettermi di generare una pagina che
non
venga mantenuta nella Cache del Client.
Quale stringa da inserire nello script?
- In una pagina web con due frame, il frame principale richiama un CGI che
dovrebbe contemporaneamente riaggornare entrambi i frame.
Come associare TARGET al comando PRINT?
Grazie
Roberto

robert...@usa.net
 wrote:
 >- Sto scrivendo un CGI che dovrebbe permettermi di generare una pagina che
 >non
 >venga mantenuta nella Cache del Client.
 >Quale stringa da inserire nello script?
Devi usare l'apposito header di HTTP. E` tutto spiegato nel RFC
relativo.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

 Come associare TARGET al comando PRINT?
il target lo specifichi nello header html:
print $query->header(-target=> 'FRAME1');
Ciao!
--

Newsgroup: it.comp.lang.perl
Titolo: Segnalazione sito che offre lavoro Perl

In tempi di crisi sempre meglio tenere da parte gli indirizzi
http://twitter.com/perljobs

 
http://twitter.com/perljobs
Certo, e in piu` la sua controparte 
jobs.perl.org
, che 
ha una categoria a parte per il telecommuting (interessante
per gli italiani, visto che qui di lavori perlici non ce 
ne sono molti).
s.
-- 
Stefano Rodighiero      |  
http://www.stefanorodighiero.net
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it
Newsgroup: it.comp.lang.perl
Titolo: Determinare il tipo di immagine

Esiste un modulo o un'istruzione PERL capace di determinare automaticamente
il formato di un'immagine? Grazie

 il formato di un'immagine? Grazie
Esiste *almeno* un modulo: Image::Info che trovi su CPAN:
http://search.cpan.org/author/GAAS/Image-Info-1.11/
Ad esempio:
use strict;
use Image::Info qw(image_info);
my $info = image_info("immagine_sconosciuta.ext");
if (my $error = $info->{error}) {
    die "Can't parse image info: $error\n";
}
my $type = $info->{file_media_type};
print "$type\n";
-- 
$_=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: Consiglio su modulo per stampa report...

Salve,
   avrei bisogno di un consiglio su quale sia  il  metodo  migliore  per 
stampare report di dati estratti da database.
   Vorrei avere la possibilità di formattare  decentemente  le  stringhe 
in uscita e con le classiche funzioni  non  so  come  fare  (ho  provato 
format ma per esempio non riesco a  fare  campi  giustificati  multiriga 
ne a scegliere il carattere).
Se qualcuno ha qualche consiglio sarei felice.
Grazie in anticipo.
Ciao.
***Ivan***

:

Intendi usare questo script sulla rete o su un computer?
In ambiente Windows o Unix?
In base a queste specifiche potrei darti una risposta... forse!
Ciao
Dark Wave

Newsgroup: it.comp.lang.perl
Titolo: preferences path

Salve,
         sto usando il modulo: use File::Spec; su windows. Volevo sapere se 
ci fosse un modo per accedere al path delle preferenze delle applicazioni 
cos� che possa salvare dei dati e ricaricarli al successivo run 
dell'applicazione. (senza per� creare una dir apposita per le preferenze!)
per adesso con il suddetto modulo riesco solo ad accedere alla temp dir:
File::Spec->tmpdir();
grazie 

 fosse un modo per accedere al path delle preferenze delle applicazioni
Non so se ci sia un modulo specifico, per� puoi saperlo leggendolo dal 
registry:
HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell 
Folders\Appdata
Inoltre se sono poche informazioni potresti usare proprio il registry 
per salvarle.
Ad esempio con Win32::TieRegistry .
Newsgroup: it.comp.lang.perl
Titolo: aiuto regular esp....

raga devo correggere urgentemente 120 file...
devo eliminare  le sringhe che contengono caratteri "diversi" da questi:
09/.,
 (numeri,barra, punto, virgole)
come si scrive?
GRAZIE!!



Se ti interessa sapere quale espressione regolare dei utilizzare
prova con questa:
if ($stringa !~ /[0-9\/\.\,]+?/)
	{
	blocco di istruzioni
	in caso siano presenti
	caratteri diversi da quelli specificati
	}
else
	{
	blocco di istruzioni
	in caso NON siano presenti
	i caratteri specificati
	}
spero che ti sia d'aiuto.
Ciao chamillo.

/[0-9\/\.\,]+?/
questo è quello che cercavo!
Grazie!!!
Ciao
Qxy

if ($stringa !~ /[0-9\/\.\,]+?/)
Ti propongo:
if($stringa =~ m'[^0-9/.,]'){
# blocco
}
Dove il blocco viene eseguito quando e' presente anche solo un carattere non
valido nella stringa.
"46465465.4564645,564654/546546" -> valida, non viene eseguito il blocco.
"4564654654654.54645,456465a45" -> non valida (lettera a), viene esguito il
blocco.
"alex" -> (completamente) non valido, viene eseguito il blocco.
ho usato gli apici ' invece della barra / per non dover mettere \/ nella
classe. Di norma quando si deve specificare / nel pattern o nella classe si
usa un delimitatore diverso da /.
Alex


[^0-9/.,]
GRAZIE!!!
Oxy

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

Salve,
sto cercando di gestire i segnali e non riesco a trovare una funzione che
blocchi un processo in attesa di un segnale (sarebbe l'equivalente della
pause nel C). Qualcuno sa dirmi se esiste o no ?
Salve.
Andrea Venturoli.

pause nel C). Qualcuno sa dirmi se esiste o no ?
Hmmm, non mi sembra. Potresti pero` installare un handler per il
segnale e poi usare sleep(), che invocata senza parametri ferma
lo script a tempo indeterminato.
-----
$SIG{ALRM} = sub {
  # Codice che vuoi
}
sleep;
-----
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 wrote in message
Pine.LNX.4.21.010404...@fiorello.cs.unibo.it...

Newsgroup: it.comp.lang.perl
Titolo: controllare un indirizzo e-mail

Esiste uno script che controlli la presenza di @ e di un . in un indirizzo
inserito in un form?
Grazie mille.
Gabriele

quadrato perfetto della serie di Fibonacci"



Newsgroup: it.comp.lang.perl
Titolo: Leggere file remoti

Come posso fare per leggere un file remoto: in locale utilizzo open(),
ma in remoto (non sul mio sito) come si fa?
Grazie mille in anticipo

ma in remoto (non sul mio sito) come si fa?
Che cosa intendi per "remoto"? è un po' troppo generico.
Dipende quale servizio rende disponibile il file: se è un file server
userai sempre open, se è un server web un metodo http, se è un server
ftp un metodo ftp.
Ciao.

 ftp un metodo ftp.
Per leggere una normale pagina web (es.
http://www.google.it/index.html
) penso che il metodo sia http, ma come
devo fare? (non sono molto esperto di perl :)
Grazie

Marco ha scritto:

La maniera piu' semplice è utilizzare i moduli core *LWP*, che sono ua 
serie di moduli perl che offrono API per implementare client web (per 
diverse tipologie di protocolli).
Qs è solo una delle svariate maniere in cui si può fare la get di 
contenuti web, data la "duttilità" del perl e la mole di moduli prodotti.
#!/usr/bin/perl
use LWP::Simple;
$content = get("
www.google.it/index.html
");
die "Impossibile ottenere la pagina richiesta!" unless defined $content;
# In qs maniera ti ritrovi la pagina richiesta nella var $content
# Se vuoi ridirigerla sul browser basta che defilisci il tipo di
# contenuto che contenuto tramite il MIME :
print "Content-type:text/html\n\n";
# e poi la stampi
print $content;
P.S. Ti consiglio una sbirciata alla documentazione perl allegata 
all'installazione del tuo interprete perl.
Ciao


Nel pacchetto di installazione di perl per windows, nella sottodirectory 
bin trovi un pratico batch file GET.BAT che fa quello che chiedi.

Grazie mille, ora ho trovato anche più di un modo :) ...