mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: gestione write multiple

Ciao a tutti.
Secondo voi, qual'e' il metodo migliore (in PERL) per effettuare un lock
in scrittura su un file di testo, in modo da evitare scritture
simultanee, e in piu' mettere in coda (ordinatamente, FIFO) i processi
che volessero scrivere sul file mentre questo e' in stato di lock?
Potrebbe andar bene l'utilizzo di semafori?
P.S.:Tutti i processi di cui parlo sono degli script in perl (molto
semplici, sono un neofita di Perl).
Grazie a tutti per l'attenzione.
Angelo

che volessero scrivere sul file mentre questo e' in stato di lock?
Quale piattaforma? Si usa NFS?
Cosa vuoi fare? Forse esistono soluzioni che non richiedono locking o
non richiedono di costruire una coda.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *
      | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

Grazie per aver risposto.
Le piattaforme sono Linux e Solaris (nel senso che ho lo stesso sistema
sull'uno e sull'altro).
La questione e' la seguente: un programma di postelaborazione di logfiles
viene lanciato una volta al giorno, tirando fuori dai log delle informazioni
che vanno a finire (sottoforma di immagini) in una interfaccia WEB.
Ci sono poi altri script in Perl che appendono delle righe ai file di log
suddetti.
Mi piacerebbe poter lockare il file di log durante la sua elaborazione (che
cmq dura pochi secondi) per evitare append durante la stessa (con dei
controlli, visto che sull'append il lock non funziona), ed allo stesso tempo
tenere traccia delle eventuali richieste di scrittura pervenute (l'ordine
delle righe nel log ha importanza). Il tutto risiede sulla stessa macchina
in entrambi i casi, quindi no NFS.
Finora ho vagliato due ipotesi: usare flock ed implementare dei test di
controllo negli scripts, ma in questo modo devo essere io a gestire la coda
delle richieste di scrittura (no?), l'altra e' quella di utilizzare dei
semafori.
Secondo voi quale mi conviene utilizzare?
Grazie.
Angelo

viene lanciato una volta al giorno, tirando fuori dai log delle informazioni
se rinominassi il log prima di elaborarlo?
Oha
-- 
"Qualcuno mi spieghi perche' 144 e' l'unico
quadrato perfetto della serie di Fibonacci"

delle richieste di scrittura (no?), l'altra e' quella di utilizzare dei
Con flock i writer sono bloccati, ma non so in che ordine vengono
sbloccati. Dovresti provare.


 wrote:
: >Finora ho vagliato due ipotesi: usare flock ed implementare dei test di
: >controllo negli scripts, ma in questo modo devo essere io a gestire la coda
: >delle richieste di scrittura (no?), l'altra e' quella di utilizzare dei
: Con flock i writer sono bloccati, ma non so in che ordine vengono
: sbloccati. 
Presumo che l'ordine di sblocco sia casuale: il primo thread che ottiene la
cpu e trova il blocco eliminato lo mette lui.
ciao, .mau.

 delle richieste di scrittura (no?), l'altra e' quella di utilizzare dei

Newsgroup: it.comp.lang.perl
Titolo: modulo CGI.

Salve.
Mi sto cimentando nella scrittura di un cgi in perl.
E' necessario caricare all'inizio dello script il modulo CGI.
Da quello che ho capito poi si possono usare due stili di programmazione.
La object oriente e la function oriented.
Immagino che sia solo una questione di gusti.
Ho la object oriented.
Il dubbio e':
ho questo frammento
use CGI;
$q = new CGI;
print	$q->header,
	$q->start_html('Siti visitati'),
	$q->start_form,
	$q->start_table({-border=>1}),
	$q->start_td.......
ecc. ecc.
Qual'e' la differenza nell'usare una notazione simile piuttosto che
print "<html>.....";
print "<form>.......";
print "<table>........";
ecc. ecc.?
Grazie.

 print "<table>........";
Nel primo caso usi il modulo CGI, nel secondo no.
Se hai necessita' di risparmiare memoria all'osso il secondo caso risulta
preferibile.
 Raffaello

 print "<table>........";
Fondamentalmente che lavori a livello piu` alto (oggetti), e non devi
ricordare le "specifiche" di html. Non e` una differenza tecnica, e` una
differenza di "metodo di lavoro".
Nel primo caso, "astrai" il tuo script a livello di oggetti/metodi. Il
codice _dovrebbe_ essere cosi` piu` mantenibile/riutilizzabile.
In merito al discorso oo-style e func-style, la questione e` diversa:
in oo-style, crei l'oggetto, ed usi i metodi di esso. Puoi quindi creare
_piu`_ oggetti.
in func-style, usi delle funzioni (i metodi) che si riferiscono al
default object che non dichiari.
per capirci:
oo-style:
use CGI;
$q = new CGI;
print $q->header,
      $q->blabla....;
func-style:
use CGI qw/:standard/;
print header(),
      start_html('blabla'),
      blabla....;
-- 
                         Maurizio - Tannoiser - Lemmo
                 Founder Member of ERLUG 
http://erlug.linux.it
-------------------------------------------------------------------------------
question = ( to ) ? be : ! be;  -- Wm. Shakespeare

 
:-) sempre molto esaustive le tue risposte, ti ringrazio molto.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: che cos'è /(...)/i

Ciao a tutti!
E' da tutto il giorno che sto cercando di finire un specie di "server
virtuale di sendmail" per fare alcune prove con i vari programmi di posta
che ho.
Ne ho trovato uno in internet che non mi soddisfava abbastanza e così ho
iniziato a modificarlo.
Ora però è sorto un problema in quanto ho trovato un'espressione che non so
a cosa serva. Riporto parte del programma:
...
while (/ACCOUNT/i) {....}
....
Da quello che ho capito confronta la stringa "ACCOUNT" con la stringa di
output data dal sever di posta che si collegato al mio programma. Se la
stringa è la stessa allora   vengono svolte le operazioni tra le parentesi
graffe.
Il mio problema è che dovrei sostituire "ACCOUNT" con "." ma questo credo
venga riconosciuto come  epressione regolare. Ho provato con "/."
"/n/r/./n/r" e altri combinazioni ma non sono riuscito a venire a Capo del
problema.
Probabilmente prima dovrei conoscere come funzina esattamente   (/.../i) .
Qualcuno può darmi una mano?
Grazie!
Stè

/stringa/i
matcha tutte le righe che contengono 'stringa' indipendentemente da 
maiuscole o minuscole.
per matchare il '.' occorre usare '\.'  cioe':  /\./
-- 
Valter Mazzola -  Software/Databases for Enterprise Web Internet Sites
PHP, Java Servlets, Applets, Jsp, ASP, PERL, Mod_Perl, Apache, IIS,SQL
* 
HTTP://SITIDINAMICI.COM/?nttp
 ----- 
http://italia.LinSwap.com/?nttp
 
Phone:(+39) 347/129-07-16.  Fax:(+39) 02/700-539-403

Grazie molte!
Newsgroup: it.comp.lang.perl
Titolo: semplice espressione regolare: come prendere tutte le parole di un file?

Dato un file contentente testo, come prendere ogni parola e inserirla (una
sotto l'altra le parole in un altro file?
in realtà non mi serve solo la parte del codice che prende la parola da
uno stream FILE ciclicamente e le inserisce in una variabile
($parola) 
tipo:
while(<FILE>)
{
if ..espressione refolare... OPPURE foreach .....
$parola=????
}
grazie in anticipo, MArio.

boh...l'unica cosa che si capisce da questa spiegazione è che ti serve
estrarre " ogni parola" e metterla da un'altra parte....
    /(\w+)/g
ad esempio dovrebbe estrarre ogni parola (uno o più caratteri alfanumerici
di seguito): se lo usi in list context ti estrae TUTTE le parole in un
colpo, se invece lo usi in scalar context te ne estrae una alla volta.
Pare capire che vorresti una cosa del genere:
while(<FILE>) # in $_ avrai una linea alla volta
{
    while (my ($parola) = /(\w+)/g) # in $parola avrai una parola alla volta
    {
        # fai quel che vuoi con $parola
        # che conterrà appunto la parola di turno :-)
    }
}
SS&C (Salvo Sviste & Cazzate)
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

Prendendo spunto dalla richiesta e dalla risposta, mi è venuto in mente di
fare un CGI per fare ricerca *proponendo* le parole effettivamente
utilizzate (dopo aver filtrato le parole inutili come articoli, ecc...) da
una serie de news scritte dagli utenti.
Pensavo di farlo inserendo in un file tutte le parole *senza ripetizioni*...
e questo creando con ogni parola un indice hash (per poter cercare eventuali
doppioni) e poi scrivere sul file solo gli indici creati.
Poi con un altro processo inserirei nella lista generale solo le parole non
ancora presenti.
Secondo voi, è fattibile questo considerando che il sito è piccolo e che
ogni pagina che farei "maccinare" allo script avrà non più di 10.000 parole?
(per tenermi largo con le previsioni).
Oppure esiste un metodo migliore?
Grazie,
Paulus
PS: questa domanda si riferisce solo alla parte *perl* del problema, non al
CGI...
--------------------------------
Inviato via 
http://usenet.libero.it

> Oppure esiste un metodo migliore?
usare qualche database SQL?


> usare qualche database SQL?
Que fai, metti il ditto nella piaga :))
Veramente, sul server non ho a disposizione uso di DB, ma si di directory
cgi-bin; e percio dopo documentarmi un po' pensavo:
1) usare split
2) oppure usare Text::Parsewords
ho cominciato a scrivere lo script perl usando split ma ancora non riesco a
capire perchè mi vengono "mangiate" certe parole (per il resto funziona
bene)... e perciò TORNO A DAR CORNATE CONTRO IL MONITOR !!!
Paulus
PS: sai di un altro metodo?

Newsgroup: it.comp.lang.perl
Titolo: modulo per conoscere il sistema operativo di un host remoto

ciao a tutti, 
esiste un modulo per conoscere il sistema operativo di un host remoto in
modo da sapere se la connessione ssh e possibile.
Grazie.
per il momento sto guardando nmap::scanner::os...


Mediante nmap puoi fare un port scanning remoto e scoprire (o meglio, 
tentare di scoprire) direttamente se la macchina target ha un server ssh 
in ascolto su qualche porta, se è questo quello che stai tentando di fare...
Ma non c'è nessuna relazione tra il sistema operativo in esecuzione 
sull'host remoto e la possibilità di connettervisi via ssh, dal momento 
che ogni SO (almeno tra quelli più diffusi) offre la possibilità di 
eseguire un server ssh.
In un certo senso la questione è più semplice, visto che nmap ti dice 
direttamente se c'è un server ssh in esecuzione sull'host remoto (sempre 
che questo non abbia le opportune contromisure per proteggersi dai port 
scanning) senza alcun bisogno di scoprire prima qual è il sistema 
operativo e poi da questo tentare di dedurre se c'è ssh (se ho 
interpretato bene quello che chiedevi...)
Ciao,
Emanuele.

Il Mon, 03 Oct 2005 16:29:28 +0000, Emanuele Zeppieri ha scritto:
siccome devo eseguire comandi diversi, la shell di linux e' diversa da
quella windows, allora in base al sistema operativo devo saper scegliere
coem eseguire il comando.
esempio per aggiungere un utente in linux uso useradd, mentre in windows
uno net user add.
Spero di essermi spiegato meglio.
in alternativa lascio specificare all'utente in so a priori.
Grazie.

 uno net user add.
Certo, ce voleva la palla de vetro pe' capi' che intendessi questo, con 
la tua precedente domanda:
 > esiste un modulo per conoscere il sistema operativo di un host remoto 
 > in modo da sapere se la connessione ssh e possibile.
:-)
(Oppure è solo la mia ottusità, non lo escludo).
Ciò posto, cercare prima di capire qual è il SO target mediante un 
port-scanning e poi connettersi via ssh, mi sembra comunque un'idea 
piuttosto balzana, se non altro perché non tutti reagiscono benissimo ad 
un port-scanning (c'è chi chiama direttamente la Polizia).
Invece puoi più semplicemente connetterti via ssh, e poi scoprire il SO 
mediante l'apposito comando "uname" (che è presente sia in *nix che in 
Windows) e, se stai automatizzando la cosa, testarne il risultato 
mediante una regex.
Se invece proprio vuoi insistere sulla strada del port-scanning, nmap e 
il suo Perl wrapper nmap::scanner (e lo specifico nmap::scanner::os da 
te menzionato) vanno benissimo.
Ciao,
Emanuele.
Newsgroup: it.comp.lang.perl
Titolo: Perl e Mysql

Devo fare in perl due righe di script per permettere all'amministratore di
mysql di creare un DB e dargli i permessi all'utente che ha chiesto di
creare il DB. Praticamente lo script prende in ingresso loginutente
passwdutente nomedbutente passwdadmin, e crea il db aggiornando mysql e
dando i permessi di amministrazione all'utente il quale poi si collegherà da
remoto e potrà gestire il suo nuovo db.
Mi date una mano? Ho installato mysql e DBI su Red Hat 6.2. Ho pochissimo
tempo e molta ma molta urgenza.
disperatamente gb003





Se vai a 
www.mysql.com
 ci 
sonon una montagna di script belli e pronti che 


fanno al caso tuo...+ veloce di cosi!


 


Ciao

Newsgroup: it.comp.lang.perl
Titolo: Net::FTP - sto impazzendo per 10 bytes!

Ciao a tutti
sto scrivendo un'applicazione Win32 in Perl che, fra l'altro, include un
piccolo client
FTP con l'utilizzo del modulo Net::FTP. Il problema è che quando scarica un
file (precisamente
un database di access .mdb) riceve il file -quasi- interamente... diciamo
che alla fine
risultano persi 10 bytes, e ovviamente il file non è valido.
Premetto che uso un ciclo anziché usare il metodo get( REMOTEFILE ) perché
ho bisogno di
tenere sotto controllo l'andamento del processo. (vedi codice)
Caso esempio: il file è 438272 bytes sul server, 438262 bytes in locale.
Incollo parte del codice (alcuni dettagli sono stati omessi per restringere
il testo):
<code>
 my $FTP = Net::FTP->new(
  $server,
  Debug => 0,
  Timeout => 15,
 );
 $FTP->binary(); # Importante!
 $FTP->login($username, $password);
 my $RemoteFileSize = $FTP->size("$RemoteDir/$RemoteFile");
 $FTP->cwd($RemoteDir);
 my $dataconn = $FTP->retr($RemoteFile);
# Da qui in poi comincia la parte critica
my $buf = ''; my $TotalBytes; my $len;
 open($LOCALDB, ">$LocalDbFile"); binmode($LOCALDB); binmode($dataconn);
 while ($len = $dataconn->read($buf, 10240)) {
  syswrite($LOCALDB, $buf, $len);
  # Queste righe servono per mostrare una barra di scorrimento e
informazioni
  # durante il download
  $TotalBytes += $len;
  Win32::GUI::DoEvents();
  my $percent = int(100*$TotalBytes/$RemoteFileSize);
  $ProgBar->SetPos($percent);
  $progressWin->{'pbLabel2'}->Text
  ("Completato: $percent% - $TotalBytes/$RemoteFileSize bytes scaricati.
($len bytes)");
 }
 close($LOCALDB);
 $FTP->quit;
</code>
Guido.

Guarda che anche io ho lo stesso identico problema, con un semplice script
di un client FTP, infatti dopo aver scaricato un file "mi perdo" 38 bytes
......  ma perchè !!!!!
incollo parte del mio codice :
use Net::FTP;
$ftp = Net::FTP->new($amsec000,Timeout => 120,Passive => 1, Port => 21);
$ftp->login($username,$password);
$ftp->type(binary);
mget($ftp, '*.zip');
 sub mget {
      my ($ftp, $pattern) = @_;
     foreach my $file ($ftp->ls($pattern)) {
            $ftp->get($file)
        or warn $ftp->message;
      }
 }
$ftp->quit;
Se sai qualcosa in merito fammi sapere ....................... The M@db@T

 ha scritto nel messaggio
news:b3g7se$fq8$1...@fata.cs.interbusiness.it...

Newsgroup: it.comp.lang.perl
Titolo: Linkare librerie personali

Salve,
	sono un novellino, ma no troppo, nel senso che scrivo codice
perl da un paio di settimane senza aver nessuna documentazione degna
di questo nome, anche se ne ho usate alcune trovate sul web molto
utili.
	Quello che non so fare e'  creare uan libreria e poi farla
richiamare da un programma principale.
Nello specifico devo personalizzare uno script per un carrello
elettronico (index.cgi tanto per dire) a cui devo aggiungere delle
funzioni che ho scritto gia' per la gestione del pagamento mediante
carta di credito con BancaSella che vorrei tenere in un file separato
(tipo 
bancasella-lib.pl
).
Problema: 
	1. che devo scrivere in index.cgi per linkare la libreria?
	2. le librerie perl finiscono con "1;" vero?
 
	3. me lo compro un libro... pero' consigliatemi...
ciao
					[Enrico]

Anch'io non ho moltissima esperienza in perl... ma per quel poco che so non
è necessario usare una libreria.
Basta inserire nel proprio script
require "
miefunzioni.pl
";
per rendere disponibili le funzioni contenute nel file required allo script.
Pe ril libro la risposta è una sola Learning Perl di Randall Schwartz (The
Lama Book).

	3. me lo compro un libro... pero' consigliatemi...
Programming Perl
Wall, Christiansen, Schawartz
O'Reilly
(e' uscita la terza edizione!!!)
-- 
Saluti,
Giancarlo

Newsgroup: it.comp.lang.perl
Titolo: Ma il Perl supporta le matrici ????

Il Perl supporta le matrici (array di array) ???
Ovviamente credo che la risposta sia si',
pero' non ho trovato nemmeno un esempio che
mi potesse aiutare.
Come devo fare ???
Grazie
zava...@hotmail.com

 wrote in message
7nfm0h$3el$1...@nslave1.tin.it...


Il Perl supporta le matrici (array di array) ???
Certo, guarda perllol(1p).
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

Il Perl supporta le matrici (array di array) ???

Newsgroup: it.comp.lang.perl
Titolo: Telnet - Unix - Cambiare password

Vogliamo far cambiare la password agli utenti di un sistema Unix (AIX) tramite
un form html.
Il cgi usa il modulo Net::Telnet
tutto bene per collegarsi ed entrare
funziona pure
@lines = $t -> cmd("ls"); # fa la lista dei files
print @lines;             # mi stampa la lista dei files
PROBLEMA
vorremmo far cambiare la password, non ci da occasione di dargli quella nuova
abbiamo tentato con
@lines = $t->cmd(String  =>"passwd ",
                 Output  => \@risposta,
                 Prompt   => '/password:/'
                  );
(ma anche con altre varianti +/- furbe)
riusciamo a dargli la password attuale (forse, non ne siamo per niente sicuri)
non riusciamo proprio a farci dare l'occasione di immettere le nuova password
(tra l'altro 2 volte)
chi ne sa qualcosa?
eccovi l'esempio (ultimo tentativo in ordine cronologico)
use Net::Telnet ();
($username, $passwd)= @ARGV;
@risposta=();
$t = new Net::Telnet (Timeout => 10,
                      Prompt  => '/\[ antonio\@risc1 ] \/u\/antonio >/'
                      );
$t->open("10.150.24.100");
$t->login($username, $passwd) or die "Hai dimenticato la passwd?\n";
@lines = $t->cmd(String  =>"passwd ",
                 Output  => \@risposta,
                 Prompt   => '/password:/'
                  );
print @lines;
print @risposta;
# tra l'altro @lines e @risposta sono uguali, mah ..
grazie , antonio
-- 
ASTAT - Istituto provinciale di statistica
viale Duca D'Aosta, 59
I - 39100 Bolzano
tel: 0471/994045  fax: 0471/994008
http://www.provinz.bz.it/astat

 chi ne sa qualcosa?
Credo che la cosa dipenda dal fatto che il programma per cambiare la
password (passwd, solitamente) e' un po' "furbo". Ad esempio sono
convinto, anche se non ho fatto la prova, che non usi stdin/stdout per il
prompt della password, ma faccia un open direttametne sul device, per
evitare, ad esempio, i programmi che fanno il check delle password in
automatico.
Credo che il problema possa essere risolto solo andando direttamente a
scrivere nel password file.
						l.f.
--------------------------------------------------------------------------
       -- )     Luca Fini                            Tel: +39 055 2752 307
 ___    |\      Osservatorio Astrofisico di Arcetri  Fax: +39 055 2752 292
/   |   | |-_   L.go E.Fermi, 5 +-----------------------------------------
(___|___//___)  50125 Firenze  /   WWW: 
http://www.arcetri.astro.it/~lfini
 (_)      (_)   Italia        / e-mail: 
lf...@arcetri.astro.it
-----------------------------+--------------------------------------------
                              In a world without fences - who needs GATES?

 automatico.
Credo che il programma expect (e il modulo Perl Expect.pm) permettano proprio
questo. Pero' non l'ho mai usato.
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: Come posso imparare il perl?

Avrei bisogno di una guida al Perl che mi insegni ad utilizzarlo da 0
a 99. Una sullo stile del tutorial del Python, avete presente?
-- 
Lawrence "Rhymes" Oluyede (
rhy...@myself.com
)
"Per cambiare, per diventare un'altra
cosa dobbiamo prima sapere cosa siamo"
(Bruce Lee)

 
Programming Perl, di Larry Wall - O'Reilly
Perl CookBook, di Tom Christiansen & Nathan Torkington - O'Reilly
Questi vanno benissimo per iniziare
--
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!

 a 99. Una sullo stile del tutorial del Python, avete presente?
Ci sono diversi corsi in italiano.
Li trovi sul post di sabato scorso dal titolo: "Re: documentazione perl"

Perl CookBook, di Tom Christiansen & Nathan Torkington - O'Reilly
volevo evitare di acquistare un libro...


Li trovi sul post di sabato scorso dal titolo: "Re: documentazione perl"
Sto dando 1 occhiata a tutti i links, grazie


Sto dando 1 occhiata a tutti i links, grazie
Non č che puoi ripostarli? O magari mandarmeli in email? (l'indirizzo
email che uso č reale)

 email che uso è reale)
http://groups.google.it/groups?q=perlportal&hl=it&selm=3C659D9B.1422E63%40friuli.com&rnum=1

Newsgroup: it.comp.lang.perl
Titolo: Prelevare informazioni da una form

Scusate la domanda stupida ma sono alle prime armi
ho creato una pagina ordina.html con all'interno una form
alla pressione del tasto invia (submit) mi apre un file 
esecuzione.pl
 volevo
sapere qual'e' il comando che devo usare (all'interno della pagina
esecuzione,pl)
per andare a prelevare i vari valori della form??
spero di essere stato chiaro
Grazie a tutti
Ciao

 per andare a prelevare i vari valori della form??
E' fatto tutto in un solo script ma il concetto è lo stesso, dai
un'occhiata qui:
http://cloud.prohosting.com/pigmauk/perl/repository.cgi?dir=network&file=www.login.cgi
Ciao
--
pigmalion network
http://cloud.prohosting.com/pigmauk/
Perl
http://cloud.prohosting.com/pigmauk/perl/
Newsgroup: it.comp.lang.perl
Titolo: includere contatore

ciao a tutti, ho provato a fare un contatore e fin qui tutto ok,
credo;vorrei sapere invece come si fa ad includere lo script in una pagina
html. (Il contatore è in formato testuale)
Il codice è questo,potete anche dare un'occhiata giusto per vedere se più o
meno va bene?grazie: :-)
 #!D:\Perl\bin\Perl.exe
open (FILE,"<contatore");
$riga=$_;
print "Content-Type: text/html\n\n";
print ++$riga;
open (FILE,">contatore");
print FILE $riga;
Andrea
--
**************************************************
" Confusion will be my epitaph
As I crawl a cracked and broken path,
if we make it we can all sit back and laugh
But I fear tomorrow I'll be crying... "
King Crimson - Epitaph
*************************************************

 $riga=$_;
questo NON fa assolutamente quello che credi! $riga rimane undef!
magari volevi dire
my $riga=<FILE>;
;-)
Magari non serve, però devi sapere che esiste anche close() e magari
dovresti pure usarlo ogni tanto :-)
leggiti:
perldoc -f open
perldoc -f close
e cerca l'operatore <FILEHANDLER> non so dove :-)
ciao
--
-.. --- -- .. --.. .. ---
-.. . -- .. -.-. .... . .-.. .. ...

 vorrei sapere invece come si fa ad includere lo script in una pagina html.
questa è una domanda che è meglio fare in it.comp.www.cgi



ho preferito postare qui perchè in it.comp.www.cgi postano poche
persone...;-) inoltre gli script cgi non riesco ad eseguirli :-(...ho
postato il problema su icwc ma non ha risposto nessuno...mentre quelli in
perl vanno alla perfezione...
Ciao,
Andrea

 perl vanno alla perfezione...
a questo prometto rispondere in it.comp.www.cgi


 come usi lo script?
Essendo un neofita gli script li uso soprattutto per processare i form, e
quindi metto il collegamento allo script nell'ACTION del tag FORM, se e'
questo che intendevi dire...:-)
Ciao
Andrea
--------------------------------
Inviato via 
http://usenet.libero.it

 questo che intendevi dire...:-)
infatti, era questo che intendevo dire. Bene, allora prova a togliere la
linea:
 #!D:\Perl\bin\Perl.exe
e in un DOS prompt scrivi:
perl 
nomefile.pl
e vedrai che ti funzionerà anche senza.
Se vuoi che ti funzioni senza, anche da FORM (e quindi come CGI script),
allora aggiungi:
ScriptInterpreterSource registry
nel file 'httpd.conf' di Apache, e vedrai che andrà anche senza linea. ;-)
Ovviamente dovrai poi aggiungerla ad esempio se uppi il cgi su sistema *nix,
però se configuri la copia locale di Apache come ti ho detto, potrai usare
indifferentemente lo stesso cgi script sia in remoto sia in locale senza
doverlo aggiornare tutte le volte, usando direttamente:
#!/usr/bin/perl
perché in locale verrà ignorato, mentre in remoto sarà ok.
ciao


 nel file 'httpd.conf' di Apache, e vedrai che andrà anche senza linea. ;-)
Adesso funziona, grazie :-)
Tornando al problema originario, come devo configurare Apache in modo che
possa utilizzare le SSI?
Ciao :-)
Andrea

> Adesso funziona, grazie :-)
Volevo dire:funziona anche senza inserire #!D:\Perl\bin\Perl.exe
:-)

 possa utilizzare le SSI?
 e questo cosa c'entra con perl?

Newsgroup: it.comp.lang.perl
Titolo: script.

Salve.
Ho uno script in perl dove vado a comporre una form.
L'action di tale form richiama un programma in perl.
Con tale programma devo solo fare determinate operazioni ma non
voglio avere come ritorno una pagina web.
Tant'e' che non inserito le classiche istruzioni per comporre
una pagina web.
Ed infatti ottengo un errore come risposta.
Il programma richiamato con l'action di una form deve per forza restituirmi
una pagina web?
Grazie. 

 una pagina web?
Il CGI che riceve il controllo dopo il click sul submit della form deve 
restituire qualcosa. HTML, un'immagine, un file, ecc. Potresti però 
restituire la medesima pagina da cui hai premuto il bottone, ma un 
coinvolgimento del server c'è sempre.
Un'alternativa sarebbe quella di usare javascript per evitare il POST 
sul server.
Sempre usando javascript, se i dati da inviare non sono molti, potresti 
fare così: con un onClick sul submit apri una nuova pagina (magari su 
una finestra molto piccola) che chiama il tuo CGI a cui passa i 
parametri tramite GET (dunque 
cgi.pl?var1=pippo
 ecc). Il cgi risponde 
con una pagina che ha in onLoad (a memoria) un evento di chiusura della 
finestra.
Ad ogni modo se dopo un click su un form non ottengo nessun segnale di 
"Operazione eseguita" io mi preoccumerei :)
IMHO.

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

Salve a tutti, qualcuno sarebbe in grado di indicarmi un manuale cartaceo
per imparare a programmare in perl oppure un testo in rete?
Grazie mille!
--
Ciao, Matteo.
- - - - - - - - - - - - - - - - - - - - - - - - - - -
Promuove istantaneamente il tuo sito, in maniera intelligente!
http://banny.net?matteo

per imparare a programmare in perl oppure un testo in rete?
Su 
http://www.perl-it.org
 trovi dei link a guide online. Per quanto
riguarda un manuale cartaceo, in inglese c'e` Programming Perl, 3rd
edition (da avere assolutamente); in italiano non saprei dirti, la
traduzione di Programming Perl e` stata sconsigliata da piu` persone.
	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!

 Su 
http://www.perl-it.org
 trovi dei link a guide online. Per quanto
Grazie mille di tutto Michele, ora vado ad acculturarmi! ;-)


 ha scritto nel messaggio
news:9dtl5h$jsjha$1...@ID-39426.news.dfncis.de...


 Ti consiglio il libro
Grazie infinite anche a te Alex!


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

Qualcuno sa dove si possa trovare in linea della manualistica che enunci la
sintassi dei vari operandi, dichiarazioni di variabili e array, funzioni
ecc. ecc. del perl per sistemi win32 ?
Sapete, è troppo bello consultare dei testi che ti dicono che :
$nome_var{'titolo'} =~ s/<([^>]|\n)*>//g;
serve per togliere tutto quello che comincia con "<" e finisce con ">" e
non sapere perchè.........

 ** ]
Newsgroup: it.comp.lang.perl
Titolo: Tk

Ciao a tutti,
è possibile lavorare nella taskbar e cambiare delle icone dinamicamente?
un po' come fare un programma che verifica ogni tot la posta e mostra un
icona diversa se viene rilevata?
Grazie a tutti

 dinamicamente?
Se per taskbar intendi le tray-icon di Windows, non credo che per il
modulo tk ci siano estensioni in questo senso.
Non bisogna dimenticare che tk è os independent, quindi penso faccia
fatica a supportare una funzione che sfrutta una caratteristica propria
di un sistema operativo.
Se invece intendi proprio la taskbar e l'icona dell'applicazione, penso
sia fattibile.
Purtroppo non uso tk, ma se intendi lavorare con finestre SOLO sotto
windows, ti consiglio Win32::Gui.
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

 ha scritto nel messaggio
news:Ji%Oa.12485$
qa5.2...@news2.tin.it

Parli di traybar?
Con Tk non so, ma Win32::GUI ti può aiutare.
Tratto da NTray (un programma che monitora il nagios e cambia icona
nella traybar quando un server ha problemi):
sub create_icoTrayicon {
    my ($status_color,$status_text) = @_;
    $icoTrayicon = Win32::GUI::NotifyIcon->new($winMaster,
        -name => "icoTrayicon",
        -tip => " Status: $status_text",
        -icon => $$status_color,
        -id => $$ ); #Set the ID equal to the PID of this process
    print "Icon Create:\nColor is $status_color\nID is $$\n";
    1,
}
sub change_icon {
    my ($status_color,$status_text) = @_;
    Win32::GUI::NotifyIcon::Modify($winMaster,
    -id => $$,
    -icon => $$status_color,
    -tip => " Status: $status_text" );
    1; #Don't end the dialog() loop
}
Prog completo: 
http://www.nagios.org/download/extras.php
-- 
Valerio Granato
http://www.musicoff.com
 - Music Online For Free
La Grande Comunità Online per Musicisti
Newsgroup: it.comp.lang.perl
Titolo: Novellino, in cerca di spiegazioni

Da pochissimi giorni mi sto cimentando nell'apprendimento del Perl ( niente di professionale solo per divertimento ) e per cominciare ho voluto scrivere uno script che salvasse in file un elenco dei pacchetti rpm installati sul mio sistema, oltre ad una serie di informazioni relative al sistema stesso.
 
my $hostname = `hostname`;
my $cpu = `uname -m`;
my $date = `date +%d-%m-%Y`;
my $width = "=" x 60;
 
my %heading = (
		"raw1" => "DATABASE OF UPDATED PACKAGES TO :\t",
		"raw2" => "Pc_name :\t",
		"raw3" => "System Type :\t",
		"local_env" => [ "$date", "$hostname", "$cpu", "$width" ]
		);
 
my $destdir = $ENV{HOME};
 
open (my $FILE, ">", "$destdir/" . "rpmdb-" . $heading{"local_env"}[1] . ".log")
or die $!;
 
print $FILE "$heading{raw1}" => "$heading{local_env}[0]\n";
print $FILE "$heading{raw2}" => "$heading{local_env}[1]";
print $FILE "$heading{raw3}" => "$heading{local_env}[2]";
print $FILE "$heading{local_env}[3]\n";
 
my $rpm_query = `rpm -qa --queryformat="%{name}\n" | sort`;
 
foreach my  $package($rpm_query) {
	print $FILE "$package\n";
}
 
close $FILE;
 
Inizialmente, avevo impostato alcune variabili di ambiente per recuperare determinate informazioni sul sistema, le quali funzionano correttamente quando lo script viene avviato nell'ambiente di login ma non quando invocato da cron,
ho immaginato quindi che non tutte le variabili sono disponibili in un ambiente diverso da quello dell'utente. In rete ho trovato un bel pò di discussioni al riguardo ma sinceramente non ho ben capito il metodo per risolvere il problema.
Grazie a chiunque voglia aiutarmi

Con che utente esegui lo script con cron?
E' lo stesso che usi quando invochi il comando tramite shell?
Come e dove le hai impostate ste variabili d'ambiente?
Tutto dipende anche da che sistema operativo/ distribuzione linux usi.
 
Alberto
 


È lo stesso utente sia nel caso venga avviato da cron che nel caso venga avviato dalla shell.   
Il problema è proprio questo. Ho usato il comandi di sistema "hostname" e "uname -m" per recuperare quei valori che avrei voluto ottenere invece con $ENV{'HOSTNAME'} e $ENV{'HOSTTYPE'}, queste funzionano correttamente qualora lo script venga avviato dalla shell ma non da cron.
Quanto al sistema uso openSUSE.


L' utente è lo stesso ma non mi risulta che cron esegua anche .bashrc
, il quale viene eseguito se esegui un login classico
Newsgroup: it.comp.lang.perl
Titolo: Ancora mail con attach

Ciao a tutti,
vi disturbo ancora ma proprio non riesco a mandare un file di testo per
mail.
Ho sul sistema la libreria sendmail ma non trovo la documentazione
(perldoc non da' risultati) percio' non so che procedure poter usare.
Qualcuno puo' mandarmela magari in casella per non tediare il newsgroup??
Grazie ancora
bol0...@bo.nettuno.it
Silvia.

',
	From => '
dbo...@theseventies.org
',
	Subject => 'Is there life on Mars?',
	Message => 'Just wondering, here in my tin cab.'
	);
sendmail(%die) or die("Bad orbit:",$Mail::Sendmail::error);
print "Ground control to Major Tom: roger, logs are:\n",
$Mail::Sendmail::log;
Ma, non risolve il tuo problema dell'attach (message deve avere il suo
encoding, 
etc.). La documentazione ha un accenno all'header MIME, ma non mi sembra
che 
i messaggi multipart vengano gestiti.
Secondo me, quello che fa al caso tuo č MIME-tools, che puoi prelevare
cosě:
perl -MCPAN -e shell
cpan> install MIME::Decoder
Questo credo richieda diversi altri pacchetti, ma se hai una versione
recente 
di CPAN, dovrebbe essere in grado di recuperarli recursivamente.
Dopo di che:
           use MIME::Entity;
           # Create the top-level, and set up the mail headers:
           $top = build MIME::Entity Type    =>"multipart/mixed",
                                     From    => "me\@
myhost.com
",
                                     To      => "you\@
yourhost.com
",
                                     Subject => "Hello, nurse!";
           # Part #1: a simple text document:
           attach $top  Path=>"./testin/short.txt";
           # Part #2: a GIF file:
           attach $top  Path        => "./docs/mime-sm.gif",
                        Type        => "image/gif",
                        Encoding    => "base64";
           # Part #3: some literal text:
           attach $top  Data=>$message;
           # Send it:
           open MAIL, "| /usr/lib/sendmail -t -i" or die "open: $!";
           $top->print(\*MAIL);
           close MAIL;
Facile, eh?
Cheers,
	alf

 vi disturbo ancora ma proprio non riesco a mandare un file di testo per
-- 
-------------------------------------------------------------------------
Hosting professionale a prezzi USA? 
http://www.servitelit.com/prezzi.htm
-------------------------------------------------------------------------

fischio che te ne mando uno "preconfezionato"
Puoi dirmi dove scaricarlo?? E anche mandarmi un esempio??
Grazie, Silvia
In privato se vuoi:
s.b...@bo.nettuno.it
Newsgroup: it.comp.lang.perl
Titolo: meta-espressioni-regolari

Salve
Tutti conosciamo le espressioni regolari (regexp) e le loro numerose
trappole, e tutti (credo) ci siamo resi conto della loro devastante potenza.
Sto quindi implementando un'interfaccina HTML per testarle una volta per
tutte prima di metterle nel codice.
Scendendo nel dettaglio...
Io leggo il contenuto di un campo testuale in una pagina HTML e ne eseguo
l'espressione regolare relativa mostrando il risultato finale e mettendo in
risalto le variabili che vengono definite dopo l'esecuzione: i vari $1...$n,
$&, $', $` ecc.
Il problema nasce quando voglio utilizzare le variabili $n ENTRO la stessa
regexp.
Esempio:     s/T(\d)_(\d{2})(j?)/$3/
se incontro una cosa tipo 'T0_01j', otterrň che $1 = 0, $2 = 01 e $3 = j ed
a 'T0_01j' viene sostituita 'j'.
invece, usando un codice (abbastanza grezzo), di questo tipo:
      ($s,$first, $second, $mods) = split /\//, $cgi_data{'regexptxt'};
       ...
      $cgi_data{'testo'} =~ s/$first/$second/g;
la 'T0_01j' diventa solo '$3', perchč $second non č stato interpolato
correttamente.
Qualcuno ha la soluzione o un suggerimento ?
Grazie della Pazienza (virtů del programmatore)
Marco

 correttamente.
E' stato interpolato: il contenuto di $second era '$3' ed è stato
correttamente inserito nella stringa di sostituzione.  Tu ti aspettavi una
seconda passata che espandesse $3, ma non è prevista. Per otterere
l'effetto che desideri puoi ricorrere a un eval:
 my $code = " \$cgi_data{'testo'} =~ s/\$first/$second/g; ";
 eval( $code );
Nota gli slash davanti a $cgi_data e $first.  Attento: ora $second deve
essere attentamente controllato in quanto potrebbe contenere esso stesso
codice Perl non desiderato.
Max
Newsgroup: it.comp.lang.perl
Titolo: sysread

Salve,
      stavo leggendo la guida su sysread e ho trovato questa definizione 
che mi sorprede un p:
"*Attempts* to read LENGTH characters of data into variable SCALAR from 
the specified FILEHANDLE, using the system call read(2)."
Il fatto che *provi* a leggere dal filehando mi fa pensare.
Ho uno script che gira su web server e riceve un flusso dati da una 
sorgente esterna al web server tramite metodo post del protocollo http:
sysread(\*STDIN);
Ora in pratica appena arriva il flusso ci sono varie sysread prima di 
quella infinita con while(sysread(\*STDIN)) perchè ho bisogno di leggere 
dei metadati (header) in formato binario prima di leggere il binary raw 
del flusso.
Quindi all'inizio ho la prima lettura che mi dice la dimensione 
dell'header:
sysread(\*STDIN, $buf, 4); # Primi 4 bytes (int32) del flusso contengono 
l'header size.
sysread(\*STDIN, $header, unpack("N", $buf) ); # Ora legge tutto l'header
while( sysread(\*STDIN, $raw, 2048) )
{
   ...raw data...
}
close(STDIN);
__END__;
La mia domanda era come si comporta sysread quando deve leggere una gran 
quantit di dati in un colpo solo? ad esempio potrebbe leggere anche 
65000 bytes di header...sono sicuro che arriveranno tutti a destinazione?
Credete che anche alla sorgente dovrei spedire i dati in modo spezzetato?
grazie

 65000 bytes di header...sono sicuro che arriveranno tutti a destinazione?
Come è scritto nella documentazione, una signola chiamata a sysread (che si
comporta come la chiamata di sistema 'read' ) non garantisce che venga
letta la quantità di byte richiesta. Il valore di ritorno ti dice quanti
byte sono stati letti. Se vale zero significa che il file è finito o -nel
tuo caso- che la connessione è stata chiusa. In base a valore restituito
stabilisci se sono necessarie altre chiamate alla funzione. Ignorare il
valore restituito (come fa il tuo codice) è un errore.
Max

 byte sono stati letti.
Il quale, se non erro, è il comportamento in tutti i linguaggi che lo
permettono (c/c++, assembly, ecc.).
Enrico

 letta la quantitŕ di byte richiesta.
Spero che di riuscire senza problemi con il codice seguente:
#!/usr/bin/perl
use strict;
use warnings;
use IO::Handle '_IONBF';
my $io = new IO::Handle;
my $buf;
my $len;
my $header;
open my $fh1, ">", "rawdata.txt" or die "$!\n";
binmode $fh1;
if ( $io->fdopen(fileno(STDIN),"r") )
{
   $io->read($len, 4);
   $io->read($header, unpack("N", $len));
 
   {open my $fh2, ">", "header.txt" or die "$!\n";
   binmode $fh2;
   print $fh2 $header;
   close $fh2;}
   while( $io->read($buf, 1024) )
   {
      print $fh1 $buf;
   }
 
   $io->close;
}
close $fh1;

 
Anche per "read" vale lo stesso discorso. Devi tenere in considerazione il
valore restituito.
Max
Newsgroup: it.comp.lang.perl
Titolo: FTP binary come ??

Succede una cosa strana, se invio un file tramite ftp, il file che invio
arriva di dimensioni poco più piccole, es se il file che invio è di 554924
byte arriva di dimensioni 554911 byte. Il casino è che una volta arrivato
è inutilizzabile. Facendolo a manella tutto ok. Come faccio a dire allo
script invialo in binario od in hash. Ho fatto lo script ma se inserisco
binary non funziona proprio, se non lo metto il file inviato è di
dimensione di poco inferiore.
Questo è il mio script:
use Net::FTP;
$a='192.168.1.50';
$ftp = Net::FTP->new("$a", Debug => 0)
#or die "Cannot connect to $a : $@";
        or die "$@\n$@\n";
$ftp->login("riso",'freddo')
        or die "Cannot login\n", $ftp->message;
$ftp->cwd("/root");
$ftp->binary('xawtv_3.88.tar.gz');
$ftp->put("xawtv_3.88.tar.gz", "xawtv_3.88.tar.gz");
$ftp->quit;

Ok ho risolto !!!
Bastava fare questo:
$ftp->binary();


Newsgroup: it.comp.lang.perl
Titolo: home dir utente da script ...

Qualcuno mi puo' ricordare come faccio a restituire la home dir dell'utente
che ha lanciato lo script, ovviamente in un so Linux, in una variabile scalare?
pensavo a qualcosa del tipo:
$nome=getlogin;
@informazioni_utente=getpwname($nome);
$dir=$informazioni_utente[7];
ma non mi funziona. 
-- 
Ciao e grazie.
***Ivan***

 ma non mi funziona. 
Pregasi definizione di 'non mi funziona' diversa da 'non compila neanche'.
getpwdname e' in realta' getpwdnam, mentre per getlogin aiuta l'esempio
sulla manpage.
Questo funziona:
$nome=getlogin || getpwuid($<) ;
@informazioni_utente=getpwnam($nome);
$dir=$informazioni_utente[7];
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 che ha lanciato lo script, ovviamente in un so Linux, in una variabile scalare?
my $home_user = $ENV{'HOME'};
Bye,
 Emmanuele.
-- 
Emmanuele Bassi         |             [ 
http://digilander.iol.it/ebassi/
 ]
emmanue...@iol.it
  |
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

 $dir=$informazioni_utente[7];
print $home = `echo \$HOME`;
Ciao
M.
-- 
rm -rf 
and be happy

Nel giorno Thu, 05 Apr 2001 14:32:56 GMT  Mimmo scrisse:

Molto pulito, mi pice prorpio ;-).


 Pregasi definizione di 'non mi funziona' diversa da 'non compila neanche'.
Pienamente ragione, sono stato un po' pigro e frettoloso, tanto da non
accorgermi dell'errore banalissimo.
Chiedo scusa ...


 wrote in message
slrn9coc6b.1c...@casa.ivan.org...

Newsgroup: it.comp.lang.perl
Titolo: regular

Ciao.
Come faccio a sostituire <a href="url">link</a>
con <qualunque cosa>link?
Grazie!

con <qualunque cosa>link?
In prima approssimazione:
  s/<\s*a\s+href\s*=\s*"[^"]+"\s*>([^<]+)<\/a>/<qualunque cosa>$1/ig;
Per avere qualcosa che funzioni sempre, però, conviene usare uno dei tanti
moduli per HTML. Può sembrare il solito cannone per colpire la formichina,
ma in realtà la formichina (se il codice che vuoi modificare è dentro un
documento html) può essere molto più grande di quello che si pensa.
Ciao.

 formichina,
  Penso che in generale possa essere utile anche perl::SGMLS
  P.
-- 
<!--_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
                      The Hacking Pages
 
www.lulli.net
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-->

Newsgroup: it.comp.lang.perl
Titolo: myslq e perl

In uno script perl ho un'istruzione sql del tipo:
update tabella1 set campo1 = 'valore1' where campo2 = 'valore2';
quando la esegue mi da questo errore: Lost connection to MySQL server during
query.
e il server mysql si chiude.
Altre istruzioni funzionano tranqullamente.
Ah, in ambiente unix questo script funziona perfettamente
Grazie dell'attenzione
ciao

 ciao
mai sentito nulla del genere. 
reinstalla mysql.
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************
Newsgroup: it.comp.lang.perl
Titolo: File di configurazione quale modulo usare?

Qual'e' il modulo migliore per leggere e scrivere un file di configurazione
considerando che i dati da salvare sono sia semplici variabili che hash
molto complicati?
Grazie anticipate!
-- 
Saluti, Antonio Gallo - AGX per gli amici di Usenet
(o_         
http://www.antoniogallo.it
   Sito personale
//\         
http://www.badpenguin.org
    Progetto "Bad Penguin" (d)
V_/_        
http://www.linux.it/ILS
      Italian Linux Society 

use Storable;
--
-.. --- -- .. --.. .. ---
-.. . -- .. -.-. .... . .-.. .. ...

molto complicati?
Io darei un'occhiata a quello che perl stesso usa per la propria
configurazione: PPM, XML, Config...
Poi ci sono diversi moduli specifici: AppConfig, CONFIG, Config::IniFiles,
XML::Config, ecc.
Il migliore, no, non lo so.
Ciao.

Adesso che leggo la tua risposta mi è venuto il dubbio che per "leggere e
scrivere files di configurazione" si sia inteso dire anche "manualmente" o
leggibile da poveri mortali. :-/
Antonio, se hai bisogno di files di configurazione che si possano modificare
manualmente e che il programma possa leggere e interpretare correttamente,
allora la mia precedente risposta non ti serve un gran che :-). Come dice
Giovanni ci sono dei moduli che fanno al caso tuo... cerca "config" in CPAN
e ne troverai parecchi.... a me piace il Config::IniFile che adotta una
sintassi molto familiare agli utenti Win, e implementa anche comodità tipo
<<, oltre ad essere usabile con tie.
Io avevo interpretato la tua richiesta come lettura e scrittura su file
direttamente da programma senza necessità di editare il file manualmente.
Storable ti offre la possibilità di riavere in memoria rapidissimamente
anche oggetti complicatissimi, senza necessità di reinizializzare tutto, e
per questo è molto comodo, solo che se devi andare a scrivere dentro un suo
file manualmente... dubito che sia un buon metodo :-)))
ciao


ah... e se ti piace la sintassi stile Apache c'č Config::General che č fra i
piů versatili e semplici da usare.


> use Storable;
C'e' già un qualcosa che usi i cookie per creare una sorta di "sessioni"
basate su Storable?

 Poi ci sono diversi moduli specifici: AppConfig, CONFIG, Config::IniFiles,
                                        ^^^^^^^^^
Questo mi era sfuggito! Pare fare al caso mio! Grazie ;-) !!

 stile Apache c'è Config::General che è fra i
THX
Newsgroup: it.comp.lang.perl
Titolo: pubblicare un programma in perl

Ciao a tutti,
Considerate innanzitutto che sono un neofita e che ancora non ci capisco un
gran che di perl.
Ho scritto il mio programmino e ce l'ho salvato sul file script.txt
All'interno del programma (essendo questo un form da compilare) ho inserito
anche il codice html
Ora per mi sono bloccato.
Come faccio a mettere online la pagina (ho un server cgi-bin)?
Ho provato a rinominare il file script.txt in script.htm ma l'unico
risultato è stato quello di vedere i vari campi con le domande e in fondo
tutto il codice in perl.
Come devo fare?
Devo creare un file singolo con solo l'html ed un altro con il linguaggio
perl?
Aiutooooo!!!
So che per voi sarà una cavolata (immagino anche che a leggere questo post
vi sarete fatti quattro risate) ma per me è difficle!
Grazie a tutti,
Ken

Qualcosa sono riuscito a combinare; quando però invio i dati i server mi
restituisce questo messaggio d'errore:
500 internal server error
The server encountered an internal error or misconfiguration and was unable
to complete your request.
Please contact the server administrator, 
sup...@netfirms.com
 and inform
them of the time the error occurred, and anything you might have done that
may have caused the error.
More information about this error may be available in the server error log.
Sono io che ho sbagliato qualcosa nel mio file in perl o è qualcos'altro?
Grazie,
Ken

Newsgroup: it.comp.lang.perl
Titolo: cerco programmatore perl

C'è qualche programmatore perl disponibile per modifiche
a degli script?
Pagamenti tramite bonifico e fatturazione.

 ha scritto nel messaggio
news:QlG08.1769$Gy1....@news1.tin.it...


 ha scritto nel messaggio
news:QlG08.1769$Gy1....@news1.tin.it...




Io sarei interessato. 
Se ti interessa contattami via mail ad 
af...@inwind.it
.
Saluti.
____________________________
Alessandro Antonucci
af...@NOSPAMinwind.it
www.ilfarorosso.com

 wrote in message
news:g1_08.1721$WS2....@news1.tin.it...
Qual'e' l'indirizzo per rispondere privatamente?
wacky...@tin.it
 da' sempre errori.....
		auxweb
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

L' indirizzo č 
wacky...@yahoo.com

 L' indirizzo č 
wacky...@yahoo.com
E come mai sul "From" hai 
wacky...@tin.it
? Tu magari dirai: per evitare 
lo spam. Ma:
1) Se ti attendi una risposta privata dovresti inserire un indirizzo valido 
da qualche parte.
2) Potrebbe esistere (non e` questo il caso, ma potrebbe) un 
wacky...@tin.it
 che si becca tutto lo spam per i messaggi che tu hai 
mandato.
A presto, Michele.

 > L' indirizzo è 
wacky...@yahoo.com


 aver inserito l' indirizzo per i contatti.
Di solito, per evitare lo spam, si usa un indirizzo che non
generi traffico indesiderato nemmeno sul server.
Nel tuo caso, una cosa tipo wackyt...@SPAMyahoo.com.
E` ragionevole sospettare che SPAMyahoo.com non esista.
Siamo tremendamente off-topic :)
ciao
Stefano