mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Perl/Tk e Text widget

Ciao!
Sto lavorando in Perl/Tk e ho realizzato un'applicazione Windoze che
visualizza del
testo in un Text widget (tra parentesi, senza cambiare 1 linea di codice
va anche su linux
... potenza del perl :)).
Vorrei poter impedire che gli utenti copino tale testo con il
copia-incolla.
Ho provato con un
$testo->configure(-state=>'disable');
che perň disabilita solo il focus sul text widget: con un right-click
ottengo sempre un menů
che il Tk crea e dal quale si puň fare il copia-incolla.
Ho provato a bindare ... (!) beh ad intercettare con il bind l'evento
"3° o 2° bottone del mouse premuto" 
 (a proposito, esiste l'evento "right-button"??) ma invano: prima
dell'evento il menů compare lo stesso!
Domanda: come caspita si fa a disabilitare quel (nel mio caso)
fastidioso menů?
Grazie, ciao.
Andrea Maestrutti

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

 riguarda il Perl, ma neanche le cgi.
Come non riguarda il Perl??
Sai che esiste 
comp.lang.perl.tk
?
Il perl/tk e' perl con il modulo per il tk!!!
Non posso chiedere sul funzionamento di un modulo del perl???
Devo chiedere la creazione di un nuovo newsgroup (chessò
it.comp.lang.perl.tk
) per una domanda???

 Sai che esiste 
comp.lang.perl.tk
?
Chiedo venia, nella fretta avevo letto male e capito che parlavi di
textarea in una cgi.


Newsgroup: it.comp.lang.perl
Titolo: Inviare dati al programma in Perl

Ciao a tutti,
ho un problema con il mio programma in perl.
Ho un form scritto in html nel quale ci sono alcune domande con diverse
risposte selezionabili; cosa devo inserire nel codice HTML per fare si che
una volta che si preme il bottone "invio" a fondo pagina, i dati vengano
inviati ed elaborati dal mio programma scritto in Perl?
Grazie mille per gli eventuali consigli,
Ken

Benvenuto nella programmazione CGI !
:)
 Raffaello


...

Guarda qui, è tutto in cgi ma è lo stesso:
http://cloud.prohosting.com/pigmauk/perl/repository.cgi?dir=network&file=www.login.cgi
e cmq stessa domanda, stessa risposta, pochi msg più su :)
ciao

 e cmq stessa domanda, stessa risposta, pochi msg più su :)
Sorry, non l'avevo vista.
Ciao,
Ken

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

Ho saputo che ad agosto uscirebbe Perl 6.
Qualcuno saprebbe anticiparerne le novità?
Grazie, Giuseppe

Qualcuno saprebbe anticiparerne le novità?
Non sapevo fosse cosi` vicino, e` appena uscita la versione 5.6.
Perl6 dovrebbe comunque essere completamente riscritto, in C++,
ed avere varie novita`. Naturalmente questa e` solo una delle
possibiltia`, poi quel che sara` si vedra`. ;)
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
==> 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: @properties

ciao, sono nuovo e alle prime armi.
Devo "tradurre" uno script perl in qualcosa di comprensibile e ho trovato
questo:
 foreach $k (@properties) {
   if ($k eq $1) {
    $tmp = $search_properties{$k} || "[_undefined_]";
    $p =~ s/<%([^%]*)%>/$tmp/;
    last;
   }
  }
@properties è un array particolare? non è dichiarato da nessuna parte, e poi
$search_properties{$k} è anch'esso qualcosa di particolare? boh
ciao e grazie in anticipo

 wrote in message
9ih8e3$21u$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.perl
Titolo: due esercizi di programmazione

salve a tutti! tempo fa il mio prof di Informatica I ha proposto i seguenti
due problemi:
1. progettare un programma che conti il numero di giorni che intercorrono
tra due date qualsiasi tenendo conto anche degli anni bisestili.
2. progettare un programma che calcoli come distribuire le tracce di un CD
sui due lati di una audiocassetta minimizzando la differenza del "playing
time" tra i due lati
i programmi gią compilati li trovate nella sezione "utility" del mio sito!
http://digilander.libero.it/ric1081/
e se avete altri simpatici problemi proponeteli pure!!
ciao,
riccardo

 i programmi già compilati li trovate nella sezione "utility" del mio sito!


Newsgroup: it.comp.lang.perl
Titolo: modulo Apache::Htpasswd

Ciao a tutti.
Devo fare una cgi che riceve userid e nuova password da un modulo html e
cambi la vecchia password con la nuova per quell'userid. Perň, utilizzando
il modulo Apache::Htpasswd il comando "$foo->htpasswd($userid, $password,
1);"
non funziona. Se perň lo stesso comando č contenuto in uno script di prova
eseguito dalla linea di comando, sulla stessa macchina Linux e directory,
funziona regolarmente. Il resto della cgi funziona, confronta variabili,
aggiorna una tabella mysql etc. Ho provato anche a far seguire il comando
da "$err= $foo->error(); print $err;" ma non ottengo nessuna segnalazione
di errore che invece nello script di prova da linea di comando, mi viene
data, se questo c'č.
Qualche idea?
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 
Ciao Beast,
        sei sicuro che il demone apache abbia i diritti di scrittura sul
file .htpasswd (quello con le password e gli utenti, per intenderci), dalla
mia esperienza spesso i file hanno i diritti per l'utente ma non quelli per
il demone.
Ciao,
giovans

Ciao Giovans,
è un problema di diritti infatti. Risolvo con un accrocchio: con la cgi faccio
aggiornare una tabella mysql e poi con una certa periodicità faccio lanciare con
crontab lo script che aggiorna /etc/httpd/conf/passwd.
beast
Newsgroup: it.comp.lang.perl
Titolo: eval, system e exec...

Ciao a tutti...sono nuovo del news, ed essendo appassionato di shell scripting
 mi sono buttato da un pò di tempo sul perl.
Ora sono di fronte a un problemino:
vorrei dare due opzioni consecutive ad un comando. se io dico ad esempio 
exec `file $var ciao` o system o eval che dir si voglia
 ($var puo' essere una opzione qualsiasi), bad mi viene preso come un comando
 a se stante: 
sh: bad: command not found
$var invece funziona.
è normale?
cosa posso fare?
vi ringrazio anticipatamente!
Bye

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

 
Bad lěho messo come un'opzione qualsiasi...un pň come dire rm -f $var directory
dove $var=-r.
sono tutte e 2 opzioni ma essendo, come dci tu, in XOR mi prende solo una.
Come faccio per far sě che mi prenda 
le due opzioni?
grazie!
ciao

 le due opzioni?
Le passi in fila, e funziona.
Controlla la sintassi del comando, piuttosto: "rm -f -r nomedir" non ha
molto senso, visto che dovrebbe essere "rm -f -R nomedir".


molto senso, visto che dovrebbe essere "rm -f -R nomedir".
dipende da quale rm, su linux r o R sono equivalenti
-- 
     #@@@ missinglink on slackware 7.1 ###
     ####       member of telug        #@@

Newsgroup: it.comp.lang.perl
Titolo: perl: come si usa print?

Ciao a tutti.
Vorrei che il seguente script:
print "ciao";
sleep 1;
print " mondo\n";
stampi (sulla stessa riga) prima ciao e poi mondo.
Qualcuno mi puo' aiutare a capire perche' il print(f) di perl aspetta un
ritorno a
capo prima di scrivere a schermo? Come faccio a scrivere su una stessa
riga in
tempi diversi?
Grazie.
--
Fabrizio Zeno Cornelli / 
ze...@andromeda.it
KeyID 2048/2B7734A9
Fingerprint 9E 10 83 34 FE A4 90 71  9A 81 38 AA 03 2B 8E AD

 tempi diversi?
Ad esempio:
$oldh= select(DEV);
$|=1;
select($oldh);
Che puo' essere scritto:
select(select(DEV),$|=1)[0];
DEV e' la filehandle su cui vuoi spegnere il buffering.
Probabilmente STDOUT nel tuo caso.
Perlfaq5 ha altri esempi.
Cheers,
	Alessandro

 wrote:
: Vorrei che il seguente script:
: print "ciao";
: sleep 1;
: print " mondo\n";
: stampi (sulla stessa riga) prima ciao e poi mondo.
: Qualcuno mi puo' aiutare a capire perche' il print(f) di perl aspetta un
: ritorno a
: capo prima di scrivere a schermo? Come faccio a scrivere su una stessa
: riga in tempi diversi?
Non e` il Perl ad aspettare, ma il sistema operativo che flush-a i
buffers quando il file viene chiuso (STDOUT in questo caso).
Per forzare l'autoflush:
$| = 1;           # Autoflush
print "Ciao";
sleep 1;
print " mondo\n";
Oppure puoi usare IO::Handle e il relativo metodo autoflush():
use IO::Handle;
STDOUT->autoflush(1);
print "Ciao";
sleep 1;
print " mondo\n";
-- 
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: interprete PERL per hosting Aruba

Volevo segnalare che su Aruba la generazione di pagine HTML attraverso
codice
Perl deve avvenire con la clausola "Content-type", altrimenti genera
HTTP ERROR 500.
Accludo esempio.
Codice che NON FUNZIONA
#!/usr/bin/perl
print "<html><body><H2>Hello World (ver. NON
FUNZIONA)</H2><br><br></body></html>";
exit;
Codice che FUNZIONA
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<html><body><H2>Hello World (ver.
FUNZIONA)</H2><br><br></body></html>";
exit;
saluti
giorgio
ps) l'assistenza di ARUBA è veramente di prim'ordine: mi hanno
risposto domenica sera a mezzanotte !

 HTTP ERROR 500.
   Immagino che errori simili accadano un po' ovunque... Usa il modulo 
CGI.pm e la sub header ivi definita, ed il codice funzionera`.
-- 
Alla prossima,
Marco

 HTTP ERROR 500.
Ma va???
ti consiglio di leggerti un po' di posts su it.comp.www.cgi ;-)
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

Grazie a tutti per l'aiuto. Mi scuso per l'ignoranza ma era il mio
primo script Perl per generare dinamicamente una pagina HTML e non
avevo idea che occorresse informare il Web server del contenuto
attraverso la clausola CONTENT-TYPE (pensavo che tutto l'output dello
script CGI fosse inviato direttamente al browser che aveva invocato
l'esecuzione dello script stesso). Per rimediare alla mia ignoranza
potete suggerirmi un testo very-easy (for dummies) su Perl + CGI ?
Saluti
giorgio

 potete suggerirmi un testo very-easy (for dummies) su Perl + CGI ?
In italiano sul Perl c'è:
http://www.autistici.org/loa/web/iniziative/corsi/perl/index.html
http://www.apache3000.net/tools/perl/
http://www.softwareplanet.net/php/mostraCorso.php?nomeCorso=Perl
http://www.html.it/perl/index.html
http://www.latoserver.it/perl/
+ altro materiale decisamente + vecchio.
http://www.hyperbook.it
 invece sembra non esserci più...
Su CGI:
http://www.html.it/cgi/
http://cgipoint.html.it/tutorial/
http://www.apache3000.net/tools/apache/
 (Apache+CGI)
http://space.tin.it/computer/gciabu/cgi/cgi.htm
http://www.shishii.com/cgi.shtml


segnalo anche:
http://www.tarozzi.net/cgi.html
che è una sola paginetta semplicissima ma molto istruttiva per "costruirsi"
un laboratorio in locale
Paulus
--------------------------------
Inviato via 
http://usenet.libero.it
Newsgroup: it.comp.lang.perl
Titolo: (Mi) Ricercasi programmatore perl

Ciao e scusate il breve O.T.
Emergente societa' milanese nel settore del web marketing ricerca
programmatore Perl freelance per collaborazioni (realizzazione siti web).
Se interessati, scrivere a 
mm_...@yahoo.com
 riportando il proprio profilo e
gli eventuali lavori online visionabili.
Grazie !
mm_...@yahoo.com

Sarebbe opportuno che anche questa "societą emergente" scrivesse un proprio 
profilo (visto che si presenta come "anonymous"...)


...


Siete proprio emergenti visto che non avete un dominio proprio...

...


Newsgroup: it.comp.lang.perl
Titolo: output html

Ciao a tutti, il problema č qs: leggo da un database una tabella e
vorrei trasportare qs tabella in una pagina html, cosě da generare una
specie di report in html. Avete qualche suggerimento?
Grazie in anticipo
Andrea
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

specie di report in html. Avete qualche suggerimento?
si può fare in 1000 modi...
che si fa? :)
scherzo, ma non del tutto...
il task è abbastanza semplice, ma magari hai esigenze/conoscenze
particolari e quindi...
Non si capisce se al databse ci accedi già da perl o no...
Ad ogni modo Perl e DBI ed i risultati li 'butti' in un semplice file
html...
--
I'm going home
http://www.pigmalion.info/

 html...
Mi spiego: faccio una select da una tabella (di postgres) ma poi non so
come mandarli nel file html, ho letto qualcosa sui cgi ma non mi
interessa niente di server side, solo una pagina html in locale.
Potrebbe essere come fare un cgi ma l'output lo reindirizzo in un file
.html?
Se mi dai un link o un micro esempio....
grazie mille!!


Se mi dai un link o un micro esempio....
be assumendo che hai i dati della select in una variabile perl
apri un file, gli dai l'estensione .html e ci scrivi sopra
un micro esempio:
open RAPPORTO_HTML, ">mio_rapporto.htm";
print RAPPORTO_HTML "Ecco cosa ho ottenuto dalla select:
$dati_Select";
close RAPPORTO_HTML;
qual'è il problema?
o non ho capito? :)


 o non ho capito? :)
faccio qualche prova e riferisco...grazie!


 Andrea
oppure puoi esportare la select in un file txt e poi:
open (sorgente, "lista.txt") or die "impossibile aprire il file \.txt\n";
open (destinazione, ">report.html") or die "impossibile aprire il file
\.html\n";
print destinazione "<html>\n";
print destinazione "<head>\n";
print destinazione "<title>Report</title>\n";
print destinazione "</head>\n";
print destinazione "<body>\n";
while ($riga = <sorgente>)
 {
     print destinazione "<p><font color=\"#000000\" size=\"3\"
face=\"Courier New, Courier, mono\">$riga</font></p>";
    }
print destinazione "</body>\n";
print destinazione "</html>\n";
close destinazione;
Newsgroup: it.comp.lang.perl
Titolo: Cerco programmatore perl

Cerco programmatore perl per modifiche
ad alcuni script.
Offro in cambio soldi o pubblicità tramite
banner.

 wrote:

www.theartofweb.f2s.com
thear...@hotmil.com
kryn...@hotmail.com
scegli l'E-mail per contattarmi......
sono di Roma.

Cerco programmatore perl per modifiche ad alcuni script
possibilmente veloce nel rispondere alle mail !
Ma esiste un programmatore serio sulla faccia della terra?

Matteo wrote:

No! ..... Finche' le le richieste sono *serie* come questa.....
-- 
Saluti,
Giancarlo

 ha scritto nel messaggio
news:9ltvlj$3qfo$1...@stargate1.inet.it...


 Avresti fatto più bella figura non rispondendo.
Con che faccia uno che invia un cosa come il tuo primo post parla di 
belle o brutte figure....
In primo luogo direi che sei OT, poi, ma spesso le cose vanno a 
braccietto, impara a quotare decentemente, terzo pensa comunque sempre 
prima alla tua serieta' e alle figure che puoi fare.... per il resto ho 
chiuso e in futuro ti ignorero' del tutto.
-- 
Saluti,
Giancarlo

 Ma esiste un programmatore serio sulla faccia della terra?
Dipende da quanto sei disposto a pagare.
Che genere di script devi modificare?
-- 
Posted from 
relay.mailgate.org
 [151.38.159.199] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.perl
Titolo: eseguibili da pag.html

Ho da poco terminato un prg in perl e finalmente funziona !!!!!
Grazie alle vs. dritte sono riuscito a renderlo eseguibile (.exe)
vorrei sapere se posso farlo girare sul web e come richiamare il file per
lanciarlo tramite una pag. HTML
Grazie e ciao a tutti

bossal wrote:

   Lo richiamera` per te il web server quando ricevera` una richiesta in 
proposito:
 
http://www.bossal.it/cgi-bin/mioprog.exe
   Prendi in considerazione, pero`, il fatto che il SO su cui gira il 
web server deve essere lo stesso per cui hai compilato l'eseguibile, che 
bisogna spiegare accuratamente al web server che le CGI sono eseguibili 
e che la maggior parte dei provider di spazio web si rifiutano, 
abbastanza comprensibilmente, di far girare eseguibili senza controllo 
sulle loro macchine.
-- 
Alla prossima,
Marco

ho provato a lincare direttamente il file sul sito ma ottengu 2 risultati
diversi e cioe'
se punto all'eseguibile (
www.miosito.it/miofile.exe
) mi propone di scaricare
il file dal sito
se punto al file .pl  (
www.miosito.it/miofile.pl
)  ni visualizza il listato
dove sbaglio?

 ha scritto nel messaggio
news:m5VF8.83679$US3.1...@twister1.libero.it...

Newsgroup: it.comp.lang.perl
Titolo: togliere i CR da un file

Ho un problema banale che pero' non sono ancora riuscito a risolvere
correttamente causa la mia inesperienza.
Devo leggere un file contenente piu' righe e voglio ricopiare il tutto in
una sola stringa eliminando tutti i ritorno carrello che incontro.
Pensavo di poter risolvere la cosa scrivendo qualcosa del genere:
$cr="\n";
$blank=" ";
open(FILE,"<archivio.txt");
while ($r=<FILE>){ $r=~ s/$cr/$blank/g; $s.=$r;}
close(FILE);
ma non funziona, anzi lascia le andate a capo.
Ho provato anche inserendo chop $r ma l'unico effetto e' quello di fare
sparire la prima riga del file nel nulla!!
Per favore, mi spiegate dove sbaglio correggendomi il mini-mini-script ?
Grazie in anticipo,
                            Giorgio

correttamente causa la mia inesperienza.
Prova cosi`:
$s = '';
open(FILE,"<archivio.txt");
while ($r=<FILE>){
  chomp($r);
  $s .= $r." ";	
}
close(FILE);
	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!





Esageri con le interpolazioni, credo. Senza $cr e $blank, ovvero con
s/\n/ /g , a me funziona.
Un altra via puo' essere quella di leggere tutto il file in una singola
stringa, splittarla poi sui \n ed infine fare un join dei pezzi con " ";
{ local $/=undef;
  $r = <FILE>;
  $s = join " ", split "\n",$r;
}
Infine, in effetti, potresti unire le due cose: leggere il file in una
singola stringa e poi sostituire gli \n (risparmiandoti split e join) :)
Se sei su un PC, forse devi cercare \r oltre che \n.
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: Totale proggressivo

In una query ho implementato la funzione di tot proggressivo del sitocomune.
nella query il valore proggressivo collima con i valori da sommare, ma
quando la stessa query la pongo in un report, il proggressivo sballa !!!!
Perche ?
Grazie

 ha scritto nel messaggio
news:oztRa.82154$qa5.1...@news2.tin.it...

Newsgroup: it.comp.lang.perl
Titolo: SQLite e perl con errore

Questa è la prima parte dello script in perl che collegarmi sul database
SQLite, ma ho un errore. Ottengo subito un errore alla 4° riga:
Global symbol "$dbh" requires explicit package name at 
aa.pl
 line 4.
Execution of 
aa.pl
 aborted due to compilation errors.
Se tolgo strict ottengo come errore:
install_driver(SQLite) failed: DBD::SQLite object version 0.31 does not
match bootstrap parameter 0.28 at C:/Perl/lib/DynaLoader.pm line 249.
Compilation failed in require at (eval 1) line 3.
Eppure l'installazione del modulo da ppm è andata a buon fine, uso il
modulo  con versione:
1. DBD-SQLite   [0.31] Self Contained RDBMS in a DBI Driver
Ho un pc con Windows2000, perl 5.8.0.
Sotto lo script completo.
#!c:\perl\bin\perl
use DBI;
use strict;
$dbh=DBI->connect ("dbi:SQLite:dbname=c:\sqlite\prova.db");
$sht = $dbh->prepare("select * from prova.db;");
$sht -> execute();
while ( @row=$sht -> fetchrow_array() ){print "one: $row[0], two
$row[1]\n";}
$dbh -> disconnect();
exit;
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Ho un pc con Windows2000, perl 5.8.0.
il mio ActivePerl mi dice (facendo perl -v):
This is perl, v5.8.0 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)
Copyright 1987-2002, Larry Wall
Binary build 806 provided by ActiveState Corp.
Inoltre anche io ho installato la versione 0.31 tramite PPM e me il 
seguente script funziona perfettamente:
#!c:\perl\bin\perl.exe
use DBI;
use strict;
my $dbh=DBI->connect ("dbi:SQLite:dbname=c:\prova.db") or die "$!";
my $sth = $dbh->do("CREATE TABLE pippo (indice int, dato char(10))");
$sth = $dbh->prepare("INSERT INTO pippo VALUES (?,?)");
$sth->execute(1,'ciao');
$sth = $dbh->prepare("select * from pippo");
$sth->execute();
while ( my @row=$sth -> fetchrow_array() ) {
	print "one: $row[0], two: $row[1]\n";
}
$dbh -> disconnect();
exit;
Se quanto sopra non ti funziona, allora prova a rimuovere completamente 
il modulo e riprova con una nuova installazione.

 
Solo una nota: poiché sono state usate le virgolette doppie, quel 
'c:\prova.db' diventa 'c:prova.db'. Meglio usare le virgolette semplici.
Max
Newsgroup: it.comp.lang.perl
Titolo: come si connette il prel al MYSQL?

Vorrei utilizzare il perl con il MYSQL:
come si connette il perl al MySql?
dove trovare un pò di documentazione a riguardo?
Grazie in anticipo, Mario.

hai bisogno dei moduli DBI e DBD::Mysql
poi leggi le documentazioni inerenti
-- 
Posted from 
relay2.inwind.it
 [212.141.53.73] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto:


io li ho installati con ppm. vai sul prompt Dos e digiti ppm: quindi con ?
vedi tutte le istruzioni disponibili: cmq usi search per la ricerca dei
moduli disponibili e install per l'installazione.
Ovviamente devo fare il tutto collegato alla rete!
Ciao


 ha scritto:


Allora lo scarichi dal sito
http://www.perl.com/CPAN-local/modules/by-category/07_Database_Interfaces/
,
nella sezione moduli e poi lo devi installare (almeno credo  :) ). leggi il
readme allegato per l'istruzioni: se ci riesci magari fammi sapere, visto
che io sono agli albori con linux.
Ciao
-- 
Posted from 
relay3.inwind.it
 [212.141.53.74] 


Newsgroup: it.comp.lang.perl
Titolo: Semplice domanda...

...non per me!
Come scrivo un ciclo fino alla fine dell'array:
$trovati[x][]
non sapendo quanti elementi contenga la prima dimensione (quello con la "x")
Grazie 1000
F.

non sapendo quanti elementi contenga la prima dimensione (quello con la "x")
for $i(0..(@trovati-1)) {
  # ...
}
In ogni caso:
$numelementi = @trovati;
Questo supposto che tu abbia un array, e non una reference ad esso. ;)
	Ciao, 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!

Grazie..  "luce" :-)
F.

Newsgroup: it.comp.lang.perl
Titolo: leggere da stdin non bufferizzato

Salve,
     ho uno script CGI che gira su un web server e legge il flusso in 
entrata di STDIN con questo codice:
use IO::Handle
# use IO::Handle '_IONBF'; dovrei usare questo?
if ( $io->fdopen(fileno(STDIN),"r") )
{
   while($io->read($buf, 1024))
   {
      # ...
   {
}
__END__;
ora vorrei che il flusso che leggo fosse non bufferizzato, quindi appena 
è disponibile qualcosa leggo...ho letto che PerlIO potrebbe fare al caso 
mio con il pragma :unix
Ma come inserisco questo prafma nel codice sopra?
grazie

Larry ha scritto:

Nel codice penso che sia sufficiente leggere un carattere solo nella 
read() solo che non funziona lo stesso perche' lo stdin e' bufferizzato 
dal sistema operativo e finche' non viene dato un invio, il sistema 
operativo non manda niente all'applicazione.
Occorre prima modificare lo stdin e trasformarlo in raw mode.
In C si fa con ioctl().
In perl non ho idea che non ho mai avuto necessita' di leggere la 
tastiera un tasto per volta.
Newsgroup: it.comp.lang.perl
Titolo: DBD-Oracle-1.14

>>	Remember to actually *READ* the README file!
   	Especially if you have any problems.
Using Oracle in C:/oracle/ora92
Found header files in rdbms/demo.
*********************************************************
I can't find the header files I need in your Oracle installation. You
probably need to install some more Oracle components. I'll keep going, but
the compile will probably fail. See README.clients for more information.
*********************************************************
Found oci directory
Using OCI directory 'oci'
Found oci/lib/MSVC/oramts.lib library
*** Warning: Colons in the current directory path (C:/perl/DBDOracle114)
may cause problems
	Unable to find required Oracle OCI files for the build. Please check 
	That you have your OCI installed in your oracle home (C:/oracle/ora9)
	Directory and that it has the following files (and probably more):
		C:/oracle/ora92\oci\include\oratypes.h
		C:/oracle/ora92\oci\lib\MSVC\.lib
 
	Please install OCI or send comments back to 
dbi-...@perl.org
	If you have an OCI directory other than oci.
	At Makefile.pl line 263
THANK YOU IN ADVANCE FOR THE HELP. PLEASE DON'T LET ME ALONE!!!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Oracle Home is c:\oracle\ora92. Perl is in c:\Perl. 
Ti consiglio vivamente di installare il pacchetto ppm poiché la compilazione
richiede l'ambiente di sviluppo (es Visual C) oltre che il client (ovviamente) e
le librerie di sviluppo Oracle. Ora, fino alla 8.x erano due pacchetti separati,
mi pare però che la 9.x dovrebbe installarli tutti
by
	- Enrico
PS: Rispondo solo qui e non su clpm :-)
--- have fun with 
www.perl.it
 ---

 --- have fun with 
www.perl.it
 ---
Il pacchetto ppm DBD::Oracle non esiste per ActivePerl 5.8 ma esiste solo
per ActivePerl 5.6. Io perņ purtroppo devo sviluppare per ActivePerl 5.8 


 per ActivePerl 5.6. Io però purtroppo devo sviluppare per ActivePerl 5.8 
Cercando 'ppm DBD Oracle' su Google, al primo posto:
ftp://ftp.esoftmatic.com/outgoing/DBI
:-)
by
	- Enrico

Newsgroup: it.comp.lang.perl
Titolo: Sicurezza delle regex

Devo usare delle regex fornite dagli utenti e quindi prima devo
verificare che non siano tossiche o insicure.
Manca qualcosa?
    if ($string !~ /^([-_@}{\Q.+*?[]()|\E\/\\\w\d]+)$/ or
        $string =~ /\\E/) {
        push @$msg, ("Caratteri non validi nel parametro $string.", '');
        return;
    }
    $string = $1;                   # untaint
        eval { '' =~ /$string/ };   # check the regexp for correctness
        if ($@) {
            $@ =~ s#/.+: (.*) at /.+\n#$1#;
            push @$msg, ('Espressione regolare non valida: ' . $@, '');
            return;
        }
-- 
ciao, | * The Internet is full. Go away.  -- Joel Furr *
Marco | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

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

Probabilmente dipende dall'uso che devi fare di queste regex.
Le usa il robomoderatore per formare le liste di buoni e cattivi, in
pratica fa il matching di una lista di regex sull'indirizzo di email
(e altri header).
Il nuovo tentativo e`:
    if ($string !~ /^([-_@^$}{\Q"'`.+*?[]()|\E\/\\ \w\d]+)$/ or
        $string =~ /\\E/) {
-- 


     if ($string !~ /^([-_@^$}{\Q"'`.+*?[]()|\E\/\\ \w\d]+)$/ or
A me non compila. Non riesco proprio ad usare \Q e \E dentro le [ ],
specialmente ora che ci sono " ' e `. L'ho trasformato in
       /^((?:\w|\d|\s|[\-\_\@\^\$\}\{\"\'\\.\+\*\?\[\]\(\)\|\/\\])+)$/ or
mettendo uno slash davanti a tutti i caratteri in [].
Ma alla fine, sono molti meno i caratteri che non permetti che quelli che
cerchi di permettere! Cosa manca? %#&:;,<>=~ 
Ho verificato comunque che si non riesce a mettere istruzioni di tipo
(?{codice}) a runtime, fortunatamente, essendo disabilitate di sistema.
A questo punto, se (?{}) non funziona e tu intercetti tutto, potrebbe anche
andare. L'unico rischio sono i pattern che di complessita' infinita (che
potrebbero impallarti il sistema).


Newsgroup: it.comp.lang.perl
Titolo: VOGLIO IMPARARE AIUTATEMI!

Dove posso frequentare un corso che mi permetta di imparare il perl

Dove posso frequentare un corso che mi permetta di imparare il perl
Non so dove puoi imparare il perl con un corso, comunque ho una guida in
italiano per i novizi e nel sito 
language.perl.com
 trovi la guida completa
(in inglese)
Ciao
Andrea Busia
-------------------------------------------------------
Redattore di Ludus - 
http://www.ludus.it
la prima rivista italiana dedicata ai videogiochi,
con recensioni, anteprime, trucchi, soluzioni, ecc.
-------------------------------------------------------
Newsgroup: it.comp.lang.perl
Titolo: Aiuto !! su .pl che riceve argomenti da form Html

Il Form html passa allo script la variabile $nameformvalue, come da qui
script d'esempio:
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
   ($nameformvalue, $value) = split(/=/, $pair);
   $FORM{$nameformvalue} = $value;
   last if $value =~ m/\d/;
use LWP::Simple;
...
open (TMP, ">>info.csv");
while($nameformvalue == 1){
    ......
   $ riga = get( ' 
http://www.
......' );
    print TMP "$riga\n";
......
sleep 180;      # PER TEMPORIZZARE LO SCARICAMENTO DELLE INFO
 }
Quindi :
 1.  Se esiste un sisitema più pratico e meno pesante (ma counque portabile)
di ottenere le informazioni in $riga, sono aperto a suggerimenti .
2. Come mi è stato suggerito, (ossia creare un file scrivendovi l'ora
aggiornata ) il file lo avevo già preddisposto proprio per necessità di back
up(dal primo post nessuno lo poteva sapere), ed andandoci a vedere il
contenuto, dopo minuti dal lancio dello script, vedo che sia la dimensione
che il contenuto, sono nulli. Questo mi dice che lo script non viene
lanciato (od è qualche cos'altro ?). Allego il file html in stato usato per
il test di attivazione script:
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<title>Inserisci 1 per iniziare 2 per interrompere</title>
</head>
<body bgcolor="#FFFFFF">
<p>Inserisci 1 per iniziare 2 per interrompere</p>
<p>&nbsp;</p>
<form method="GET" name="../cgi-bin/
get.pl
">
    <p><input type="text" size="4" name="InserisciValore"
    value="1"> <input type="submit" name="Invia" value="Invia"></p>
</form>
<p>&nbsp;</p>
<p>&nbsp;</p>
</body>
</html>
Grazie in anti
Simon

    last if $value =~ m/\d/;
è robaccia che dovresti eliminare e usare CGI. C'è un casino di letteratura
che puoi cercare in giro per internet che ti spiega il perché un hack del
genere non è conveniente!
per il resto poi vediamo
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

Newsgroup: it.comp.lang.perl
Titolo: Rilevazione del modulo Image::Magick da un server

Salve,
avrei bisogno di rilevare se nel mio spazio hosting sia presente il modulo
Image::Magick.
E possibile farlo con qualche istruzione in PERL?
Grazie

 wrote in message
Q7ZY7.9578$SE3.3...@twister1.libero.it...

Ad esempio, dalla riga di comando
perl -MImage::Magick -e 42
Sempre dalla riga di comando:
perldoc perllocal
per sapere una lista (quasi) completa dei moduli installati
ciao
Stefano



Ciao,
basta usare un CGI, perldiver.cgi
http://www.scriptsolutions.com/
comunque quei moduli sono rarissimi sui server.
Ciao
-- 
-- Marco Allegretti --
http://www.shishii.com
Newsgroup: it.comp.lang.perl
Titolo: Usare ICQ da PERL

Ciao a tutti!
Avrei la necessita' di inviare alcuni comandi ad un programma e di
riceverne conseguentemente delle risposte, il tutto via rete.
Visto che vorrei evitare di scrivermi dei programmi apposta che poi dovrei
installare sui vari clients (che non sono sempre gli stessi!), pensavo di
usare un protocollo piuttosto standard e conosciuto da tutti i sistemi,
ossia ICQ.
Ora il problema: qualcuno sa se esistono dei Moduli PERL per loggarsi,
lanciare una funzione quando arriva un messaggio, mandare messaggi e fare
logout?
Ho gia' provato Net::ICQ, ma non vuole saperne di funzionare (ho poi visto
che l'autore, nella sua pagina, ha detto che il modulo, da quando ICQ ha
cambiato alcune cose nel protocollo, non funzionera' manco a spingerlo).
Qualcuno ha qualche idea?
Grazie
Luca Bertoncello
(
luca...@lucabert.de
)
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Qualcuno ha qualche idea?
Afair ICQ è closed-source, quindi non è propriamente standard. Però
potresti usare dei protoccoli realmente open, come irc o Jabber.
Tra l'altro esiste anche un componente di POE per accedere ad un server
Jabber come client (ed anche un componente irc, of course).
Vedere Jabber e IRC su CPAN.
HTH,
-- 
.           .  | 
| , ,-. ,-. |  | "In girum imus nocte et consumimur igni."
|<  |   ,-| |  |                               -- Virgilio
' ` '   `-^ `' |

 ossia ICQ.
Che significa per te "piuttosto standard"? ICQ è un protocollo proprietario,
le cui specifiche, a quanto mi risulta, non sono di dominio pubblico. 
Forse è meglio se spieghi bene che cosa vuoi ottenere e che tipo di vincoli
hai. Probabilmente qualcuno saprà suggerirti lo strumento più adatto.
Tenderei ad escludere che questo sia ICQ. 
Max

 ossia ICQ.
Ho visto che su CPAN c'è Net::OSCAR , potrebbe andare.

 Ho visto che su CPAN c'è Net::OSCAR , potrebbe andare.
Vero, molto interessante, mi era sfuggito.
Anche se non sono l'OP, l'argomento mi interessa molto. :^D
Grazie,


Newsgroup: it.comp.lang.perl
Titolo: Programmazione ad oggetti

Qualcuno ha gia programmato ad oggetti usando il perl?
Ha qualche esempio o fonte d'informazione?
Simone

 
perldoc perltoot 

Ha qualche esempio o fonte d'informazione?
La documentazione del perl.
-- 
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
Newsgroup: it.comp.lang.perl
Titolo: passaggio parametri a uno script perl

Salve a tutti,
io ho un oggetto (tac_plus) che mi genera delle righe di log in
corrispondenza a determinati eventi, ho uno script perl che ricevendo una di
queste righe, la splitta, la inserisce in un db etc.
Il mio problema e' :
come faccio a dare in pasto allo script questa riga?
mi piacerebbe tanto, anche da linea di comando, potere fare una cosa del
genere:
script.pl
 "questa e' la mia riga di log con spazi, punti etc."
e all'interno dello script potermi gestire questa $riga="questa e' la mia
riga di log con spazi, apici etc."
E' possibile fare cio'?
Dimenticavo: SO = Linux, perl = 5.005_03 built for i586-linux-thread
MArio


E' da un po' che non lavoro (purtroppo) con shell unix, ma su WinNT con perl
activestate. Da quel che ricordo avevo dei problemi a fare cose del genere
perche' alcuni caratteri erano meta-caratteri per la shell, anche se tra
"virgolette".
In ogni caso io troverei molto piu' comodo ricevere l'input non dai
parametri della linea comando, ma (come si fa' di solito) dallo STDIN. In
questa maniera potresti fare cose del tipo:
$> programma | 
script.pl
l'outout del programma (quello che genera le linee di log) diventa l'input
per il tuo script perl.  Puoi leggere l'output del programma (linea per
linea) come:
while($linea = <STDIN>){
  #parserizza la linea ed inserisci i dati nel DB
}
Una prova non fa mai male, ma se ti devi fidare aspetta la conferma di gente
che lavora abitualmente nel tuo stesso ambiente.
Saluti
Maurizio

 mia riga di log con spazi, apici etc."
  Posto che nello stile UNIX e` molto piu` elegante utilizzare il tuo
script come "filtro", e quindi leggendo le varie righe direttamente
dallo standard input, puoi utilizzare la variabile @ARGV. Prova a fare
qualche esperimento con
	#!/usr/bin/perl
	foreach $arg (@ARGV) {
		print "$arg\n";
	}
  Su Linux (ed NT) i doppi apici funzionano egregiamente. Ma, essendo
una caratteristica della shell, non ne e` assicurata la portabilita`.
	Alla prossima,
		Marco

 
[...]
echo "una riga" | 
myprg.pl
myprg.pl
:
while(<>) {
	chomp;
	foobar($_);
}
-------------
myprg.pl
 "una riga"
myprg.pl
:
while($line=shift) {
	foobar($line);
}
La prima funziona anche leggendo da file: 
myprg.pl
 file1 file2 file3 ...
Cheers,
	Alessandro

Newsgroup: it.comp.lang.perl
Titolo: da html a xhtml - reg exp

Ciao a tutti,
sto scrivendo uno script in perl che trasforma l'html in xhtml.
Per cui cose del tipo valign=top diventano valign="top", e i tag si
devono chiudere correttamente.
Ho un problema però con una regular expression, es:
<img src="immagine.gif"> deve diventare <img src="immagine.gif" />
cosa che io ottengo con:
$line="<img src=\"immagine.gif\">";
$line =~ s#<img(.*)">#<img$1"/>#gi;
questo però fa disastri quando
$line="<td><img src=\"immagine.gif\"></td><td width=\"200\"></td>";
che mi mette il "/" prima del td e non dell'img perchè cerco .*
ottenendo:
<td><img src="immagine.gif"></td><td width="200"/></td>
invece di
<td><img src="immagine.gif"/></td><td width="200"></td>
Come dovrei modificare la mia reg exp?
PS:Se qualcuno ha qualcosa di pronto per convertire da html a xhtml
tanto meglio, ringrazio,
Newsgroup: it.comp.lang.perl
Titolo: files tra server...

secondo voi come posso fare a trasportare un file da un server all'altro 
un file [o più files] in PERL?? 
ad esempio 
in 
http://www.1.it
 c'è il file che tramite uno script in PERL deve 
finire nella directory di 
http://www.2.it/directory/
 
[naturalmente lo script che fa questo lavoro risiede in 
http://www.2.it
 
quindi scarica il file da 
http://www.1.it
] 
secondo voi è fattibile??

se usi Linux, guarda Rsync.... ma mi sa che sono andato oltre...
Max

 wrote in message
kryno2001-70069...@nreada.inwind.it...


 
Installa LWP (libwww-perl), poi:
use LWP::Simple;
use strict;
my $retcode;
my $fname='/path/to/file')
$retcode=getstore("
http://www.1.it/index.html
",$fname);
warn("Download fallito: $retcode) if ($retcode != RC_OK);
...
Cheers,
alf

Newsgroup: it.comp.lang.perl
Titolo: Eseguire uno script Perl da HTML, help

Salve, sto sperimentando alcuni semplici script perl su un server
Linux Apache.
Il problema e' che non riesco ad eseguire uno script da una pagina
HTML al caricamento di quest'ultima tramite comando "exec cgi". 
La sintassi che ho adottato e': exec cgi="/cgi-bin/miadir/filecgi.cgi"
che ho trovato in diversi siti e che pertanto suppongo corretta.
Penso proprio che il server non riconosca l'istruzione, infatti modificando
il path con uno sbagliato, non cambia nulla e non viene segnalato nessun
errore: 
semplicemente non succede nulla.
Grazie per l'aiuto, 
Paolo 
paol...@tin.it

che ho trovato in diversi siti e che pertanto suppongo corretta.
La tecnica che stai provando si chiama SSI (Server Side Includes).
Devi abilitarla sul file srm.conf di Apache aggiungendo la riga:
AddType text/x-server-parsed-html .shtm .shtml
Le pagine che conterranno del codice dovranno avere l'estensione .shtm
o .shtml, altrimenti non ne verra' considerata l'esecuziione.
ciao!
					f.patamia
---------------------------------------------------------
              Francesco Patamia
         Email  
pat...@biponline.com
 
http://www.biponline.com/fpnet
        Tel.:0961-961486 /0338-8165310
---------------------------------------------------------

Ciao
prova con
<!--#include virtual="/cgi-bin/..........."-->
sempre che il server sia settato nei file conf per eseguire
nell'ambito delle SSI le cgi.
Massimo
(togliere NOSPAM per risposte via email)


 wrote:
: Salve, sto sperimentando alcuni semplici script perl su un server
: Linux Apache.
: Il problema e' che non riesco ad eseguire uno script da una pagina
: HTML al caricamento di quest'ultima tramite comando "exec cgi". 
: La sintassi che ho adottato e': exec cgi="/cgi-bin/miadir/filecgi.cgi"
: che ho trovato in diversi siti e che pertanto suppongo corretta.
: Penso proprio che il server non riconosca l'istruzione, infatti modificando
: il path con uno sbagliato, non cambia nulla e non viene segnalato nessun
: errore: 
: semplicemente non succede nulla.
Il server sta usando il mod_include?
Quello che vuoi fare e` usare gli SSI (Server Side Include), quindi il 
modulo deve essere caricato e la directory in cui si trova il tuo file
HTML deve essere abilitata agli SSI.
Infine, piuttosto che "exec cgi" usa "include virtual": e` piu`
flessibile.
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) ns (dot) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nandos


Newsgroup: it.comp.lang.perl
Titolo: problemi con ppm

Ciao a tutti.
Ho installato ActivePerl 5.6 e volevo provare ad installare qualche altro
package oltre a quelli normalmente distribuiti.
Ho lanciato ppm (versione 2.1) e ogni volta (cambiando anche repository) che
accedevo al server (con il comando search o install) beccavo un bel:
HTTP POST failed: 500 (Unknown error, <> line 3.
), in SOAP method call. Content of response:
 at C:/Perl/site/lib/PPM/SOAPClient.pm line 222
Siccome ActivePerl 5.6 l'ho scaricata lo scorso anno (e non vorrei
riscaricarmela) non vorrei che intanto sia cambiato qualcosa nella procedura
di installazione dei package.
Qualcuno potrebbe aiutarmi? Grazie.

>...non vorrei che intanto sia cambiato qualcosa nella procedura di installazione dei package.
non credo proprio, o è un problema temporaneo o riinstallerei quella versione di perl
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.perl
Titolo: Leggere l'ip

Premetto che sono all'inizio e quindi conosco MOLTO POCO il perl, quindi non
ridete se la domanda č stupida...
esiste una funzione che restituisce l'ip di colui che ha fatto eseguire il
programma? In pratica quando un utente preme un pulsante che mi fą partire
il programma, voglio registrare l'ip di colui che ha premuto il pulsante.
grazie 1000 per le risposte.
Roberto



Non c'entra nulla con Perl.
Quello che chiedi sta nella variabile di environment 
REMOTE_ADDR definita al momento dell'esecuzione del programma. 
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: Mbyte all' ora con RRD

Ciao a tutti!
Ho la necessità di creare uno script per un DB RRD che mi fornisca
praticamente quanti mb son transistati su una interfaccia di rete in un
ora per esempio...
Devo credo leggere il contatore del traffico "ifconfig" e poi inserendo
nel db il valore RRd mi deve dare la differenza che c'è con la lettura
precedente..
Es:
10256   0 Mb
10260   4 Mb
10280   20 Mb
e via dicendo...
Qualcuno mi da una mano?
Grazie in anticipo!
Ale.

Nobody ;-( ?


 Ale.
open IFCONFIG, "/sbin/ifconfig|";
my $interface = undef();
my $str = "";
my $txbytes = undef(); my $rxbytes = undef();
while ($str = <IFCONFIG>)
{
  if($str =~ /^(\S+)/) { $interface = $1; }
  if($str =~ /TX\s+bytes:(\d+)/) { $txbytes = $1; }
  if($str =~ /RX\s+bytes:(\d+)/) { $rxbytes = $1; }
  if(defined($interface) && defined($txbytes) && defined($rxbytes))
    {
      print "interface: $interface, TX: $txbytes, RX: $rxbytes\n";
      $interface = undef(); $txbytes = undef(); $rxbytes = undef();
    }
}
cosi' ad esempio?
comunque se possibile e' meglio non usare una utility in pipe, ma:
1) trovare su CPAN il modulo adatto se esistente
2) In Linux vedere se il FS /proc/ ha da dire qualcosa. (non ora pero')
3) usare direttamente ioctl() includendo il modulo con use POSIX;
   per avere le info sulle interfacce. Come? prova sotto Linux
   strace ifconfig
   e tutto sara' chiaro.
ciao
Roberto.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

    e tutto sara' chiaro.
Appunto! Anche per me ora :)

Newsgroup: it.comp.lang.perl
Titolo: Come mai non va??

Non capisco come mai questo script non funzioni, qualcuno puņ aiutarmi??
La mia paura č che sia sbagliato il path perņ non ne sono certo....
#!/usr/local/bin/perl5
use Mail::POP3Client;
print "Content-type: text/html\n\n";
open account, "/www/htdocs/nicola/accounts.txt" or die "errore su
accounts.txt";
$counter=0;
while (<account>){
  if ($r == 3){
    $app=$_;
    chomp $app;
    @acc = (@acc, $app);
    $r=2;
    $counter++;
    }
    elsif ($r == 2){
      $app=$_;
      chomp $app;
      @user = (@user, $app);
      $r=1;
      }
      elsif ($r == 1){
        $app=$_;
        chomp $app;
        @pas = (@pas, $app);
        $r=0;
        }
  if (/^#/){$r=3;}
  }
close account;
$counter--;
while ($counter>=0){
 my ($pop, $num_mesg, $j);
 $pop = Mail::POP3Client->new(@acc[$counter], @user[$counter],
@pass[$counter]);
 $pop->Connect();
 $num_mesg = $pop->Count;
 print "Numero messaggi account ", $num_mesg,"<BR>";
 for ($j = 1; $j<=$num_mesg; $j++)
   {
   foreach ($pop->Head($j))
     {
     if (/^(From|Subject)/) { print $_, "<BR>";}
     }
   }
 $pop->Close();
 $counter--;
 }
print "<a href='../aggiungiacc.html'>aggiungi account</a><br>";
exit;

 La mia paura è che sia sbagliato il path però non ne sono certo....
Se lo esegui in interattivo che succede? "Non funziona" e' un concetto vago
ed inutile: se non funziona, vuol dire che c'e' da qualche parte un
messaggio di errore. Vogliamo vederlo.
Fornire poi anche un esempio del file di input puo' aiutare chi vorrebbe
aiutare ma ha la sfera di cristallo a fare la revisione.
Non devono necessariamente essere i dati veri (non vogliamo le tue password)
ma almeno il formato senza dover mettersi a fare deduzioni!
Una cosa e' certa: lo stile di programmazione puo' essere migliorato :)
Ma finche' funziona, possiamo anche fregarcene dello stile.
Ah. Se veramente hai il file accounts.txt nella tua directory Web, TOGLILO
IMMEDIATAMENTE. Non si tengono file importanti tra i documenti accessibili
via web, soprattutto file di password.
Metti quei dati in una directory che non sia sotto /www/htdocs/, oppure
impedisci al server di fornire quel file qualora venisse richiesto (in
apache si fa con delle direttive tipo "Deny from all" associate al file in
questione, vedi dettagli nel manuale). E' lo stesso motivo per cui va
impedito l'accesso ai file .htaccess e .htpasswd (o meglio, .htpasswd va
messo altrove).
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 use Mail::POP3Client;
e questo esiste sul server? Sicuro?


 e questo esiste sul server? Sicuro?
si

Newsgroup: it.comp.lang.perl
Titolo: Sempre per Shishii

Ho scaricato il tuo form mail in italiano, ma i messaggi di ricezione e
conferma restano sempre in inglese, cosa devo fare?
Inoltre hai idea di come potrei fare perchè i dati inseriti nel form
compaiano poi come parti preimpostate di un modulo?
grazie
Francesco

 
-- 
-- Marco Allegretti --
http://www.shishii.com
Newsgroup: it.comp.lang.perl
Titolo: click-counter perl, o php?

Ho installato sul mio sito uno script inperl gratuito che conta gli
accessi ai link, ma non segna gli IP e così ogni tanto qualche goliardico
si diverte a clickarmi i link 10-15 volte (devo dire che mi và ancora
bene, potrebbe andare peggio), ma per questo devo poi prendere il file dei
log e cercare tra centinaia di link per apportare le correzioni,
rischiando di far perdere la faccia al mio sito!
allora avevo pensato di installare uno script php che ho visto molto
belloe  comune (forse è free!!??), ma utilizza gli ID per i link ed i link
sono molto complessi e quindi dovrei cancellare il file dei log dei link
clckati e ricominciare da zero, oltre che fare una fatica immane per dare
un ID a centinaia di link. D'altra parte non ho trovato un buon script
perl e quindi non sò che fare.
tra l'altro uso un javascript per fare in modo che i motori di ricerca
leggano ugualmente i link pur essendo il percorso del link alterato dallo
script perl e quindi non saprei come fare se usassi uno script php.
Insomma spero sappiate consigliarmi qualcosa per risolvere questa
situazione, ad esempio un nuovo script perl, magari free (se c'è) che
conti anche gli IP, oppure al limite uno che valga la pena di pagarlo, a
costo di non avere più problemi.
grazie
luca
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

ok, ho visto che questo newsgroup è morto... posto altrove!!!


ok, ho visto che questo newsgroup è morto... posto altrove!!!
Se posti fuori orario di ufficio....
Il gruppo è aperto dalle 10:00 alle 18:30 (festivi esclusi); le ore di
punta sono in prossimità della pausa pranzo e verso l'ora di chiusura.
Ciao.