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

come si può fa a far partire in automatico ad una certa ora uno script in
perl?
ciao e tnx ;o)

perl?
Come qualsiasi altro programma. ;) Sotto Unix puoi usare uno script "cron".
	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!

 perl?
Con cron.
Ciao
M.
-- 
:wq

 :wq
e senza cron??? (metti che runna perl su winsux)

 e senza cron??? (metti che runna perl su winsux)
'operazioni pianificate' ?
bye,
Gilberto "Veleno" Ficara.
http://veleno.cjb.net


At o Winat(presente nel resource Kit)
Ciao

 wrote in message j38jp8...@127.0.0.1...


 e come si fa? :o)
Leggendo la documentazione dei vari cron, at e simili?
Ciao
M.
-- 
:wq

Newsgroup: it.comp.lang.perl
Titolo: aprire un file in scrittura

come faccio ad aprire un file in scrittura e/o in append dando come percorso
un URL, visto che con open non funziona perche apre solo con percorso
locale?
Grazie.
--
Posted from 
relay2.inwind.it
 [212.141.53.73] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 solo con percorso locale?
  Usi il PHP. Oppure i moduli LWP.
 
http://www.cpan.org
	Alla prossima,
		Marco

ho scaricato il modulo webfs::filecopy, dalla descrizione dovrebbe essere
quello giusto. Ora lo provero'.
Grazie per la dritta.
--
Posted from 
relay1.inwind.it
 [212.141.53.67] 


scusa se so' de coccio, ma quale modulo puo' fare al caso mio?





 to find a CPAN
site near you.
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

Ivan, non e' che per caso hai capito come si puo' risolvere questo c... di
problema?????????
Ciao Giorgio.
--
Posted from 
adamo9.supereva.it
 [195.110.96.114] 


Newsgroup: it.comp.lang.perl
Titolo: Leggere News da Web

Si può con Perl?
Ciao
Giuseppe Di Natale
gdin...@camomillaitalia.it
-------------------------------------------
JS Labs - FAQ di it.comp.lang.javascript
http://jslabs.webhostme.com
jsl...@yahoo.com
-------------------------------------------
Internet Pulita
http://jslabs.webhostme.com/spam.asp
 (in allestimento)
-------------------------------------------
S.E.T.I. Project supporter
http://setiathome.ssl.berkeley.edu
news:it.scienza.astronomia.seti
-------------------------------------------

 Si può con Perl?
Cosa c'entra? Certo che si puo'. Non serve a niente e bisogna scrivere un
programma completo, ma si puo' fare tutto.
Piuttosto, a che servono 14 righe di firma per un messaggio di una riga? A
tenere Internet pulita?
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: Aiuto per sendmail

Ciao a tutti
ho necessita' di inviare una serie di email ad un determinato numero di
persone iscritte al mio sito.
l'elenco delle email e' contenuto in un file txt
esempio:
mia...@xxx.it
|
tua...@tin.it
|
ecc. ecc.
Premetto che il server che mi ospita utilizza solo sendmail
siccome sono un vero neofita, ho copiato un po in giro ma credo di aver
combinato un po di errorucci.....
ecco il listato del pl. che dovrebbe inviare le email
 #!/usr/bin/perl
$sendmail = '/usr/lib/sendmail ';
open (miaMail, "$sendmail");
open(IN, "< mail.txt") || die("Errore nell'apertura del file 'dati'.\n");
 while
{          
       ($mail) = split(/\|/, $reco); 
   print miaMail "From: pippo \n";
   print miaMail 'To: "$mail\n"';
   print miaMail "Subject: oggetto oggetto \n\n";
   print miaMail "ho inviato il msg a $mail";
# print "$mail \n";
  } 
close(IN);   
close (miaMail);
E' superfluo dire che non funziona :-(((
Grazie a tutti per l'attenzione


)
Ti consiglio cmq di usare Net::SMTP (nelle libnet o già nel perl 5.8.0)
per inviare e-mail.
    - Enrico

...
Intanto, come ti hanno già detto, fatti un favore e usa Mail::Mailer, o
Net::SMTP, o qualche altro modulo già pronto per spedire email (ce n'è un
paio anche per mailing list).
Se invece proprio vuoi usare direttamente sendmail, credo che tu debba
aprirlo in modo diverso:
    perldoc -q "send mail"
    Use the sendmail program directly:
        open(SENDMAIL, "|/usr/lib/sendmail -oi -t -odq")
                            or die "Can't fork for sendmail: $!\n";
        print SENDMAIL <<"EOF";
        From: User Originating Mail <me\@host>
        To: Final Destination <you\@otherhost>
        Subject: A relevant subject line
        Body of the message goes here after the blank line
        in as many lines as you like.
        EOF
        close(SENDMAIL)     or warn "sendmail didn't close nicely";
    .....
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: From txt to MySQL

Salve a tutto il NG.
Ho un file di testo che contiene dei dati. Vorrei inserire questi ultimi in
un database Mysql.
Il problema è che i records presenti nel file hanno questa struttura...
ACCIUGA                                 75       76,5     16,8     2,6
1,5       0       0        0     96
Mentre eseguendo il programma, i dati inseriti in db sono i seguenti
 nome_alimento       | edibi_gr   | acqua_gr | protidi  | lipidi_gr| gluc
| amido_gr  | solubili  |  fibra_gr  | kcal     |
 ACCIUGA  75      |     NULL |     NULL | NULL |  NULL | NULL  | NULL     |
NULL  | NULL    | NULL |
Il secondo campo del file viene trattato come parte del primo nel db. I
restanti campi vengono trattati come fossero nulli.
Inserisco anche il programma...
#######################################
#!/usr/bin/perl -w
use strict;
use diagnostics;
use DBI;
my $dbh = DBI->connect("DBI:mysql:database=agenda;host=localhost", "dario",
"mamamia") || die "Could not connect to" .
                            "database: $DBI::errstr";
my $sql = "INSERT INTO alimenti VALUES(?,?,?,?,?,?,?,?,?,?)";
my $prep_query = $dbh->prepare($sql) or die "Couldn't prepare statement: " .
$dbh->errstr;
open(FILE, "tab_4_mysql.txt") or die "Cannot open the file: $! \n";
while (<FILE>) {
    next unless /\w/;
    chomp;
    my ($alim,$edi,$H20,$pro,$lip,$gluc,$ami,$sol,$fib,$kcal)=split /\t+/;
$prep_query->execute($alim,$edi,$H20,$pro,$lip,$gluc,$ami,$sol,$fib,$kcal)
or die "Could not execute statement: " . $prep_query->errstr;
close (FILE);
$dbh->disconnect;
###################################################
Spero che qualcuno mi possa aiutare.
Grazie per la pazienza.
Giuseppe.

 
Credo faccia male lo script, prova con:
s/\t+/\t/g;
my ($alim,$edi,$H20,$pro,$lip,$gluc,$ami,$sol,$fib,$kcal)=split /\t/;
Ciao
-- 
Posted from 
relay.mailgate.org
 [151.38.159.199] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.perl
Titolo: Quale database ... ???

Salve, sto iniziando a sviluppare in perl e mi interesserebbe sapere qual'č
il DB meglio supportato, anche come documentazione dei moduli (magari anche in 
italiano), da questo linguaggio. 
Mi ha ben colpito Interbase 6 che gira bene, almeno dicono, sia in Linux che 
in Win.
L'alternativa potrebbe essere PostGrees o MySql (ma mi sembra che si debba 
pagare per le licenze se non č ad uso personale ...).
Ciao e grazie per i consigli.
***Ivan***


Il supporto di Database in Perl e' abbastanza uniformato, basandosi sui
moduli DBI e DBD, che e' relativamente generico ma sufficientemente potente.
Di fatto, DBI fornisce un interfaccia comune per aprire e chiudere le
connessioni, preparare ed eseguire comandi SQL e ottenere i risultati delle
query in vari formati (una riga alla volta, una tabella in un colpo solo,
ecc.)
Il problema e' scegliere il database che ti piace e verificare che abbia le
capacita' che ti servono. Io uso MySQL (che ora e' GPL), c'e' chi preferisce
cose piu' OO come Postgres.
Per quel che ti posso dire, MySQL ha un manuale molto dettagliato (per
quanto riguarda le funzionalita' SQL) e DBD::mysql permette di accedere
anche a qualcuna delle funzionalita' meno standard (campi autoincrementati e
robe del genere). Pero' non supporta ancora le transazioni (COMMIT e
ROLLBACK), per cui puo' non essere adeguato alle tue necessita'. Le
transazioni dovrebbero essere introdotte nella nuova versione (attualmente
in fase di test).
Se ti servono dettagli piu' approfonditi su quale DB scegliere,
probabilmente un newsgroup dedicato ai DB potra' aiutarti (ma temo finirai
in una guerra di religione)
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 cose piu' OO come Postgres.
Che Mysql sia sotto GPL equivale a dire che è free anche per uso commerciale,
come sono PostGres o InterBase ???. 
Grazie ancora e a risentirci.
***Ivan***

 pagare per le licenze se non è ad uso personale ...).
Assolutamente falso!
E vanno entrambi molto bene: poi dipende dall'uso che ne vuoi fare!
Ciao
M.
-- 
____________________________________________________
    Life's just a blast, it's moving realy fast    
better stay on top or life will kick you in the ass.
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

No, da quel che mi ricordo, però, mysql se usato come layer DB di un sito
può essere usato liberamente.
Newsgroup: it.comp.lang.perl
Titolo: Stampare con perl

Perl su Win32, applicazione con l'uso di Win32::GUI del grande Aldo Calpini.
Domanda forse già fatta, dopo ore di invane ricerche su Google:
"esiste un modo per aprire la finestra di dialogo della stampante e stampare
un testo, un RTF, una Bitmap?"
Guido.

 un testo, un RTF, una Bitmap?"
su questo vecchio post:
http://groups.google.com/groups?hl=it&lr=&ie=UTF-8&selm=3C989697.7CDBE34C%40friuli.com&rnum=7
il terzo script (preso da un post su una mailing list Active State)
è quello che cerchi
-- 
$_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572,,($_,$b)=
split?#?;@b=split?;?;map{$c.=$_,$d.=chr$b[$e++]+ord}split??,pack'H24',$b
;chop$d,print$c.chr(32).$d

 è quello che cerchi
Grazie :-)
Lo provo e ti faccio sapere.
Ciao!
Guido.

Direi che funziona per dei testi ASCII (funziona pure troppo!!) ma...
per stampare un'immagine?? Come posso fare?
ho provato a inviare direttamente i dati binari della bitmap direttamente
alla stampante ma.. ti lascio immaginare il risultato :-)
CIao!

 ha scritto nel messaggio
news:am099e$33l$1...@lacerta.tiscalinet.it...


 Qualche idea?
Perché non mandare il file rtf (o se lo crei da GUI o dinamicamente,
prima lo salvi su disco) direttamente alla stampante?
Così:
use File::Copy;
copy($file,'lpt1:');
o così:
copy($file,'//host/printername');
oppure con i numerosi metodi descritti qui:
http://www.perlmonks.org/index.pl?node_id=193434
Ultima possibilità che io sappia è il modulo NPRG & Wingraph che trovi
su: 
http://www.cpan.org/modules/by-category/22_Microsoft_Windows_Modules/Win32/
verso l'inizio trovi NPRG-0.31.zip ma ti serve VISUAL C++ per 
installarlo.


Qualche idea?
Win32::OLE e poi ti attacchi a qualche metodo della libreria di Word, o dei
componenti RTF di sistema.
Piu` in generale, per accedere alle stampanti, Win32::API; puo` darsi pero`
che ci sia anche qualche modulo piu` specifico che ti risparmia un po' di
fatica.
Ciao.

copy($file,'lpt1:');
Perche' probabilmente non fa quello che vuole. Immagino che lui voglia
stampare il documento con le sue formattazioni, cosi` come si otterrebbe da
Word o chi per lui, non le istruzioni RTF.
Eventualmente, si puo` farlo passando dalla shell, come in alcuni altri
metodi all'indirizzo che hai indicato. Questa poi si incarichera` di aprire
e stampare il documento con il programma associato per la stampa.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Aiuto: Utilizzo moduli

Salve a tutti,
sono alle prime armi con il perl ed il mio problema è che devo testare
il funzionamento di alcuni file perl con l'utilizzo di moduli già
scritti, ricavati da CPAN.
So che forse la mia domanda è stupida ma come posso fare?
Grazie



cioè ti servono i moduli da CPAN..?
se sei su win digita ppm dal prompt
e poi install nome_modulo
e te li installi direttamente...
--
pigmalion at home
http://www.pigmalion.info/

Newsgroup: it.comp.lang.perl
Titolo: Perl e divisioni

Per dividere ho scritto
$euro = $costo/1936.27;
print "$euro\n";
Il risultato è
0.00516528925619835
invece che
5,164568..........
Come mai!?!

Ma che valore hai dato alla variabile costo? Se hai posto $costo = 1 (cioč
una lira) č normale e corretto che ti venga quel valore...
Marco

Nel giorno Wed, 3 Jan 2001 12:07:23 +0100  Wizard scrisse:

   Non e' che forse $costo="1.000" o  qualcosa  del  genere?
Se e'cosi', devi  fare  attenzione ai punti delle migliaia.
Ciao.
***Ivan***

Newsgroup: it.comp.lang.perl
Titolo: cerco interprete PERL

Cerco un programma con cui si puo programmare con PERL.
qc mi potrebbe aiutare!!!
Grazie
Gabriel

 Cerco un programma con cui si puo programmare con PERL.
http://www.perl.com
						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?
Newsgroup: it.comp.lang.perl
Titolo: Aiuto: contatore

Chi di voi avrebbe la gentilezza di spedirmi un contore che gira sotto
UNIX
GRAZIE.

GRAZIE.
Ne trovi alcuni nel sito
http://worldwidemart.com/scripts/
Ciao
Andrea
-----------------------------------------
Redattore di Ludus (
http://www.ludus.it
)
Recensioni, Trucchi, Soluzioni,
Patch e News per PC e PSX
-----------------------------------------

Newsgroup: it.comp.lang.perl
Titolo: Le misure di un'immagine

Ciao a tutti,
premetto che non ho mai usato yb cgi perl.
Mi servirebbe però per determinare le dimensioni di un'immagine prima di
caricarla per poterla ridimensionarla.
Petete aiutarmi a costruire un piccolo cgi che mi ritorni le dimensioni di
un'immagine(width e height)?
Molte Grazie
Paolo
P.s.
Il server è apache e il OS linux
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.370 / Virus Database: 205 - Release Date: 05/06/02

 Il server è apache e il OS linux
use Image::Size;
($x, $y) = imgsize("nomefile");

Newsgroup: it.comp.lang.perl
Titolo: Aiuto stò letteralmente impazzendo

            Encoding: x-uuencode

 può inviarmelo al mio indirizzo di posta elettronica: 
mrf...@tiscalinet.it


Ho guardato, ho riprovato a pubblicare il cgi ma il server risponde con
l'inesorabile errore 500. Non sò più davvero da che parte rifarmi,
considerando che questo è il mio primo cgi e il mio primo codice in perl.
Inizio a scoraggiarmi!
Grazie comunque dell'aiuto

Newsgroup: it.comp.lang.perl
Titolo: passaggio parametri

Dovrei fare uno script che a seconda di alcuni parametri mi passi altri
parametri a script diversi. Alcuni script funzionano solo con il metodo post
quindi non posso utilizzare un comando del tipo print: "Location:
http://www.miosito.it/script.pl?param1=1&param2=2
"; .
Qualcuno può darmi una mano?
Grazie
                                      Alessio


Guarda le istruzioni per fare i POST in tanti vecchi messaggi di questa
lista e nel cookbook di LWP ( lwpcook)
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 > Qualcuno puň darmi una mano?


 qualcosa in piů... grazie!
libwww-perl: modulo molto diffuso contenente funzioni per manipolare risorse
web.
Di solito lo hai gia' installato, oppure lo trovi su CPAN.
In ogni caso puoi consultare 
www.perl-it.org


Grazie (soprattutto per la pazienza).
                                      Alessio

 questo argomento e non so cosa sia LWP.
 perldoc LWP
 Se ti risponde 'No documentation found for "LWP"', vai qui:
 
http://search.cpan.org/search?dist=libwww-perl
Per leggere i vecchi post sull'argomento:
http://www.deja.com/dnquery.xp?QRY=lwp+it.comp.lang.perl&svcclass=dnserver
Max
Newsgroup: it.comp.lang.perl
Titolo: limit cgi

Ciao, spero di non essere OT. Sapete se c'e' un limite nel numero e
nella dimensione dei parametri CGI passati da a uno script?
Per esempio ho un parametro che e' una stringa (concatenata), quanto
puo' essere lunga?
d



Ho trovato questo a proposito della lunghezza della richiesta GET:
"
It should also be noted that the Web server will often have a length limit 
for the query string. This limit is configurable and will vary from server 
to server. This is usually the problem if you get the rare 414 Request-URI 
Too Large error. Consult your server's administrator if you feel you are 
having an issue with this. If you are using Apache 1.3.2 or later, you can 
adjust this limit with the LimitRequestFieldsize directive.
"
da 
http://users.easystreet.com/ovid/cgi_course/lessons/lesson_two.html
Spero di esseri stato d'aiuto.
  Raffaello

   Raffaello
Ho aumentato i valori, ora testero' se hanno avuto effetto.
Grazie mille
d

On Thu, 2 Feb 2006, dawe wrote:

Ricordati di fare il restart. ;)
  Raffaello

Questo tipo di limite viene di solito posto solamente per le query
HTTP/GET. Se devi mandare veramente molta roba, ti conviene utilizzare
il metodo HTTP/POST, che non utilizza l'URL encoding per il passaggio
dei parametri.
Lato client, se usi LWP::UserAgent cambiare una get in una post è solo
una questione di chiamare un metodo differente :)
Lato server dovresti essere abbastanza trasparente al problema, CGI.pm
prende le variabili indistintamente sia da GET che da POST.
Ciao,
   Flavio.
Newsgroup: it.comp.lang.perl
Titolo: Cosa vuol dire parsare?

1000 grazie a chi risponde!

Vuol dire "effettuare il parsing".
-- 
Simple: RTFM.

1000 grazie a chi risponde!
Beh, non e` che in italiano la parola "parsare" esista, ma ormaimolti la
usano (io compreso), quindi prendiamola per buona. ;-)
"Effettuare il parsing" significa analizzare una stringa o un testo. Ad
esempio se abbiamo una stringa del tipo:
Anna,0328-123456,Via dei Tigli 13
e vogliamo separare le varie parti (che prendono il nome di "token"), ne
effettuiamo un parsing: la stringa viene analizzata in cerca di virgole
ed in base a queste vengono create tre nuove stringhe.
Il Perl e` un linguaggio che permette di effettuare in maniera semplicissima
praticamente qualsiasi tipo di parsing. Ad esempio, se la stringa sopra e`
contenuta in $s, possiamo procedere cosi`:
($nome, $telefono, $indirizzo) = split (/,/, $s);
	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!

 wrote in message
kwbL5.54076$3K3.1...@news.infostrada.it...


Newsgroup: it.comp.lang.perl
Titolo: Perl debugger, pipe e stdin

Ciao a tutti,
	é possibile fare in modo che se lancio qualcosa di simile a 
cat pincopallino.txt | perl -d 
script.pl
con 
script.pl
  che ha al suo interno un
while(<STDIN>)
{
 ...
}
il debugger non si incasini trattando le righe di pincopallino.txt
come se fossero righe di codice da debuggare? 
Per motivi vari mi torna comodo che il programma non legga
direttamente pincopallino.txt, ma lo riceva con un pipe, quindi
preferirei non cambiare il codice in 
script.pl
.
Ciao,
	Giuliano

 Giuliano
Ciao,
Nids
[*] "rinominato" lo stdin in modo che legga da un altro stream chiamando, in
*nix, la funz dup()


Mi sapresti indicare con piú precisione come far funzionare il
debugger? Questo problema mi sta facendo letteralmente impazzire....
Grazie mille, ciao 
Giuliano
Newsgroup: it.comp.lang.perl
Titolo: Fare un controllo su quello che è passato ad EVAL.

Ciao,
Ho un piccolo problema per quanto riguarda una strigna passata ad EVAL.
C'è infatti un modo per evitare il richiami di alcune funzioni come open,
unlink, system ecc....oppure fare un overload di tali funzioni e almeno
controllare i parametri che si passano a tali funzioni.
Grazie in anticipo.

 controllare i parametri che si passano a tali funzioni.
si, c'č. utilizzare il modulo Safe, installato di default con il Perl.
   use Safe;
   my $safe = new Safe;
   $safe->deny( "open", "unlink", "system", @etc );
   $safe->reval( $codice );
occhio che l'elenco di cose da negare non č banale come sembra. ad 
esempio, se ci metti "system" ci devi mettere anche "backtick" e "glob".
inoltre, devi rendere disponibili le variabili che vuoi far vedere al 
tuo codice con $safe->share('$foo', '$bar', @etc.), altrimenti non vedi 
nessuna variabile del programma principale.
insomma, se proprio devi farlo, questo č il modo. ma se puoi, io 
eviterei del tutto di fare eval di stringhe, soprattutto se possono 
venire da fonti esterne al tuo programma (eg. inserite dall'utente).
cheers,
Aldo

 Aldo
Ciao, scusa sono ls640, non mi va mynewsgate.
Ho salvato il messaggio che dovevo scrivere prima:
ciao, grazie mille, però ho dei problemi nel condividere le varibili
che usando eval non avevo.
$DB è un reference ad un hash anonimo.
Questo hash contiene alcuni oggetti connessi a vari database DBM
usando il package DBM::DEEP. Quando richiedo un valore nel file DBM mi
ritorna il seguente errore .
Can't locate object method "read" via package "FileHandle" (perhaps
you forgot to load "FileHandle"?) at E:/Perl/site/lib/DBM/Deep.pm line
305.
Se uso Eval con il codice, funziona tutto, ma se uso Safe mi ritorna
questo errore.
A questo punto non c'è una via di mezzo? del tipo che se il codice non
contiene comandi pericolosi allora faccio un eval.
Azz, ho iniziato a lavorarci alle 11 e ora sono le 2.24...che sono.
Notte e grazie per il messaggio di prima.
Aggiunta alle 3.32:
Penso che mi potrebbero essere utili i moduli opcode e ops, ma non lo
so perchè la documentazione è poca e difficile da capire.
:°°°(
Ci ho fatto le 3.33, un aiutino, grazie.

Chi cerca trova.
Mi sono guardato le librerie e penso di aver capito come funziona gli opcode
e safe.
Non penso ci siano problemi a questo punto.
Ciao e grazie
Newsgroup: it.comp.lang.perl
Titolo: Script CGI counter

Ciao a tutti,
premetto che non sono un programmatore e non capisco un'acca di Perl...
Avrei bisogno di un grande favore: avrei urgente bisogno di un contatore di
accessi scritto in Perl che sia invisibile sulla pagina in cui agisce ma
leggibile da un'altra pagina...
E' tutto il giorno che cerco ma non ho trovato niente... qualcuno può
aiutarmi?????
Grazie e CIAO
// Marco 
--
Posted from 
HA-server-a.cs.interbusiness.it
 [151.99.250.31] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:B5E551E9.4070%strang...@tin.it...
Ciao a tutti,


Grazie e CIAO
// Marco

Ciao prova grafical-counter che trovi su 
www.cgi-factory.com
consente di usarlo in modalità invisibile settando la variabile $invisible =
1.
Se poi vuoi vedere quanti accessi hai avuto dai come indirizzo nel browser
quello del file
count.txt
Se invece vuoi che compaia proprio su un'altra pagina html, mi dispiace non
ne conosco,
ma certamente si può adattare qualcuno esistente.
Ciao.
--
Marco Allegretti
shi...@kataweb.it
http://www.shishii.com

 ha scritto nel messaggio
news:8po3i1$jmm$1...@pegasus.tiscalinet.it...


Grazie mille AMICO!!!!
Ora vado subito a provarlo...
Spero non sia troppo complicato...
Cmq grazie molte per il momento!!!!
CIAO 


Newsgroup: it.comp.lang.perl
Titolo: [ot] controllare il pid

Salve,
  avrei bisogno di controllare se uno script è in esecuzione in caso 
contrario di eseguirlo... 
prima mi basavo controllando se il nome dello script era presente nella 
lista processi: 
#!/bin/bash 
id=$(ps -waux | grep 'mioscript' | grep -v grep | awk -F" " '{print 
$2}') 
if [ "$id" = "" ] 
then 
 exec /users/$USER/desktop/mioscript & 
fi 
exit 0; 
...ora per vorrei il controllo tramite il pid dello script. Lo script 
stesso quando è in esecuzione scrive il proprio pid in 
/tmp/mioscript.pid 
quindi vorrei fare in modo che se in "ps" non risulta quel pid oppure il 
file /tmp/mioscript.pid non esiste allora bisogna eseguire lo script... 
come faccio ad intercettare il pid in ps?? 
Grazie mille!

 come faccio ad intercettare il pid in ps??
leggendo l'help?
$ ps --no-heading --pid "${NUMEROPID}"
restituisce una riga vuota, se non lo trova.
-- 
Under construction
Newsgroup: it.comp.lang.perl
Titolo: Help!

Perl mi fa:
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
        LC_ALL = (unset),
        LANG = "IT"
    are supported and installed on your system.
perl: warning: Falling back to the standard locale ("C").
Funziona ugualmente ma genera un casino di messaggi di warning che
guastano tutto l'output!
Perche'? E come faccio a metterlo a posto?
Ho letto le man pages ma non ci ho capito niente!
Ho Linux rh5.1
-- 
Ciao,         | Flames? 
              | What flames?
Marco Ciampa  | We can rather commiserate over your hard fate. :-)

ma...@mc.ismaa.it
 wrote:
 >Perche'? E come faccio a metterlo a posto?
export LANG=it_IT
e niente altro.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

 wrote:
: perl: warning: Setting locale failed.
: perl: warning: Please check that your locale settings:
:         LC_ALL = (unset),
:         LANG = "IT"
:     are supported and installed on your system.
: perl: warning: Falling back to the standard locale ("C").
Succedeva anche a me con la Debian e una particolare versione della
libc v.5 in cui si erano dimenticati (!) di mettere il supporto per
l'I18N.
Cambia versione della libc.
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) ipers (dot) net   for my PGP public key
Newsgroup: it.comp.lang.perl
Titolo: Commercio in rete

Ciao
Sto cercando programmi scritti in perl per automatizzare la vendita di
prodotti attraverso la rete. Niente di complicato ovviamente...
Avete qualche suggerimento da darmi? 
grazie
mauro

Avete qualche suggerimento da darmi? 
C'e` qualcosa per la gestione di shopping bag e simili, ad esempio
Selena Sol's Shopping ... se non erro. Questo e` gratuito, ci sono poi
soluzioni commerciali piu` complete.
Alla fine io ho deciso di scrivermi il mio software per la gestione del
tutto in Perl, in quanto la personalizzazione che riesci a raggiungere
con i software gia` pronti e` limitata.
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

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

ciao, vorrei scaricare il programma che mi permette di provare applicazioni
perl direttamente sul mio computer, se non sbaglio si chiama apache ... ma
dove posso trovarlo? ho visitato il sito 
www.apache.com
 ma non sono riuscito
ad individuarlo (ok .. sarò cecato ... mi indichereste dove trovarlo di
preciso??) esistono dei siti, dove in possibilmente in italiano, aiutano ad
usare e configurare questo programma? come avrete capito sono un novellino,
ma mi sta prendendo molto la realizzazione di siti web, e mi piacerebbe
imparare qualcosina di più per conoscenza personale (non sono un informatico
... sono solo un neo appassionato!!) grazie per tutti gli utili consigli che
saprete darmi!!
Massy
p.s. Ho comperato il libro Giuda pratica Perl dell'Apogeo, ma mi sembra
molto datato ... esiste un sito dove sono presenti delle spiegazione più
aggiornate o un ottimo libro in italiano da acquistare?

 wrote in message
87bkdg$fbc$1...@pegasus.tiscalinet.it...


 aggiornate o un ottimo libro in italiano da acquistare?
Una nota: Apache è un server WEB, che ha poco a che vedere con l'esecuzione con
programmi Perl (sarebbe come dire che per eseguire Java devo usare Internet
Explorer o Netscape). L'interprete Perl esiste ed è un programma distinto da
browser e server. Oltretutto esiste per diverse piattaforme (compreso Windows,
BeOS, Amiga, Atari....).
Ciao!!
--
Alberto Vincenzo Paderno
ICQ# 45540027
SMS  
a.pa...@wappi.com

Ho istallato Apache sul mio computer, un P2 433 con su Win98 e 128 di ram
ma come faccio a configurarlo per far si che quando vado alla url:
http://hostname/
 mi trovi la pagina index di apache nella directory htdocs?
grazie infinite per tutti i suggerimenti x la configurazione che potete
darmi .. esistono siti in italiano dove č speigata la configurazione x
win98?
Massy



Newsgroup: it.comp.lang.perl
Titolo: CERCO DISPERATAMENTE NUMERI ioProgrammo

Sarei intenzionato a comprare a prezzo non eccessivamante elevato annate e/o
numeri complete/i dei rispettivi cd-rom della suddetta rivista. Sperando di
ricevere numerose risposte vi porgo un grazie in anticipo.




Newsgroup: it.comp.lang.perl
Titolo: Trovare la chiave di un hash

CIAO 0:-)
come posso trovare la chiave di un hash con
un'espressione regolare
Grazie
tico1...@yahoo.it
______________________________________________________________________
Do You Yahoo!?
Il tuo indirizzo gratis e per sempre @
yahoo.it
 su 
http://mail.yahoo.it
-- 
Posted from 
web10308.mail.yahoo.com
 [216.136.130.86] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 un'espressione regolare
Ovvero? Fai un esempio di quello che vorresti fare e che risultato vorresti
ottenere, perche' ora come ora la tua domanda e' scarsamente comprensibile
(almeno per me povero mortale) :)
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

un'espressione regolare
Non si puo`.
-- 
ciao, | * The Internet is full. Go away.  -- Joel Furr *
Marco | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

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

 deve farsi un ciclo sul vettore (keys %HASH).
o anche:
  @trovate = grep /$cosacerco/,keys %HASH;
--
Marco Cacchiani                                
e-mail:ma...@sirius.pisa.it
Public pgp key:         
http://www.sirius.pisa.it/marco/pgp_public_key.asc
Sirius Servizi Informatici                     e-mail: 
in...@sirius.pisa.it
Parco Teatro Pasolini, 1                       Phone:  +39 (50) 865120
I-56019 - Vecchiano                            Fax:    +39 (50) 860260
(Pisa - ITALIA)                                
http://www.sirius.pisa.it/

vettore (keys %HASH).
Certo che si puo` fare provandoli tutti, peccato che abbia complessita`
O(n)...


 Non si puo`.
	map { print if /<something>/ } keys %HASH
	Alla prossima,
		Marco

O(n)...
anche cercano su uno solo si ha complessita' O(N) :)
Oha
Newsgroup: it.comp.lang.perl
Titolo: Web Server in Perl

Forse la mia richiesta puo' interessare anche a Pietro che mi ha preceduto.
Esiste, o c'e' modo di farsi, un web server scritto in Perl con qualche 
modulo?
Non e' il core della mia applicazione, lo userei solo per affiancargli 
un'interfaccia piu' "amichevole"... non vorrei insomma mi costasse 
troppe risorse (il tempo scarseggia!).
Non mi interessa che supporti database, mi basta che possa lanciare dei 
comandi dalla shell (principalmente la mia app) e supporti i <form>.
Grazie!
Daniele

 comandi dalla shell (principalmente la mia app) e supporti i <form>.
Assumo che questa richiesta stia a significare che il web server deve 
offrire il supporto al protocollo CGI (e la risposta è affermativa anche 
in questo caso).
Web server stand-alone puro Perl al 100%:
http://www.floodgap.com/httpi/
http://perlwebserver.sourceforge.net/
http://openangel.sourceforge.net/
http://dnhttpd.sourceforge.net/
http://ranquel.sourceforge.net/
http://www.blinkenlights.ch/cgi-bin/fm.pl?get=pabachee
http://www.pault.com/phttpd.html
http://utopia.knoware.nl/~hlub/uck/software/p5httpd.pod.html
Questo è proprio quanto richiesto da Pietro bell'e pronto, ma è un 
prodotto commerciale:
http://www.stunnix.com/prod/ws/overview.shtml
(con un po' di lavoro ci si può costruire una cosa simile anche da soli, 
magari con l'aiuto dei moduli appresso elencati).
Moduli CPAN:
http://search.cpan.org/~jesse/HTTP-Server-Simple-0.16/
http://search.cpan.org/~rclamp/POE-Component-Server-HTTP-0.08/
http://search.cpan.org/~gaas/libwww-perl-5.805/lib/HTTP/Daemon.pm
...
Bell'articolo di Robert Spier su come costruirsi un web server da zero 
(o quasi), passo per passo:
http://www.perl.com/pub/a/2002/09/17/ewispp.html
Ciao,
Emanuele.

 Emanuele.
Impagabile, come sempre!
Vado a navigare un po'... grazie!
Daniele
Newsgroup: it.comp.lang.perl
Titolo: Domanda Varie

Ciao a tutti ragazzi,
sono sempre io...
Prima di tutto lasciatemi dire che questo newsgroup è, a mio avviso, l'unica
vera fonte di scambio culturale riguardante il PERL senza eguali: ho avuto
un sacco di problemi su mIRC !!!
Ora passiamo alle cose serie:
siete pronti per una nuova vacanza di Natale ? siete pronti ad un nuovo e
felice anno ? se si allora dimenticavi tutto ché vi darò un sacco di filo da
torcere.
Domanda 1
Ho provato ma non ci sono riuscito:
con l'istruzione s~/<>//gi; non riesco a cancellare qualsiasi tag di un file
html: sapete benissimo che per fare una ricerca all'interno del sito, la
parola chiave deve essere confrontata con il testo e non con tutto il file.
Un conto è dire <a href="Accessori.html"> un conto Vendiamo accessori, ma
per un semplice e banalissimo motore di ricerca il risultato non cambia.
Siccome ho uno strumento potente, ho pensato di complicarmi la vita alzando
la mira. Ho letto the camel ma non ho trovato quel che cercavo (sempre se
alle 3 di notte il cervello umano continua a funzionare normalmente). Sono
in grado di cancellare una sola parola contenuta tra due caratteri che gli
indico, tipo:
s~/W\w+D//gi;
ma quando ne ho più d'una, non funziona.
Come mai ?
Domanda 2
Il comando next funziona solo con cicli while e non foreach ?
Domanda 3
In un motore di ricerca di tipo medio, non interessa quante volte ricorre
una parola all'interno di un documento. Come faccio ad uscire da un ciclo
quando è stata incontrata la prima ricorrenza della parola chiave ?
Ho provato ?chiave?i ma sembra dare risultati imprevedibili.
Vi saluto e vi auguro sin da ora i più perlosi auguri di Natale e di un
felice anno nuovo.
A chiunque, invece, mi aiuterà che possiate diventare ricchi, belli e famosi
senza bisogno di alzarvi alle 6 del mattino per finire il lavoro interrotto
alle 5 e 30.
P.S. Ultima ma non meno importante: il Perl come tratta un database: servono
moduli aggiuntivi ? serve una programmazione particolare ? dove posso
trovare informazioni ?
Ciao,
Mkè

 trovare informazioni ?
il modulo da guardare si chiama DBI
Saluti
-- 
øĪš°`°šĪø,ļļ,øĪš°`°šĪø,ļļ,øĪš°`°šĪø,ļļ,øĪš°`°šĪø,ļļ,øĪš°`°šĪø,ļ
Enrica Iaffei                     Aggregated Technologies ltd
7, Aristotelous Str.              3, Demetriou Vikella Str.           
1056 Nicosia       CYPRUS         1061 Nicosia       CYPRUS
phone +357 2 346261               +357 2 755750
"Da molti anni non mi chiedo pių quale posto č la mia casa
 ho scoperto che la mia casa č insieme a me ovunque vada"
øĪš°`°šĪø,ļļ,øĪš°`°šĪø,ļļ,øĪš°`°šĪø,ļļ,øĪš°`°šĪø,ļļ,øĪš°`°šĪø,ļ

 Ho provato ?chiave?i ma sembra dare risultati imprevedibili.
last if /chiave/; non basta?
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: Stranezza del /r

Ciao,
ho un loop while in cui c'è una istruzione
print del tipo print "\rApro file n. $count"
La cosa strana è che il codice di inizio riga \r non mi fa stampare
la print ogni volta ma casualmente. In pratica vorrei che mi venisse
stampato l'avanzamento di $count su una sola riga.
Suggerimenti ?
Giuseppe Torelli



Normale buffering dell'output. Prova con:
local $| = 1;
prima del ciclo.
by
	- Enrico

 local $| = 1

 Potresti darmi più info sul buffering dell'output ??
Un articolo comunemente citato sull'argomento:
 
http://perl.plover.com/FAQs/Buffering.html
ciao
Stefano



Stefano (chi altri?) ti ha già postato un ottima risorsa!
Io ti posso solo meglio illustrare spiegare quell'istruzione.
$| è una delle speciali variabili Perl con cui possiamo
impostare l'autoflush del buffer dopo una 'print' o 'write'.
'local' fa sì che il tutto abbia effetto solo nello scope corrente.
by 
	- Enrico
Newsgroup: it.comp.lang.perl
Titolo: compilare perl

Ho installato Active perl su windows xp, ma non riesco a compilare (cioč a
trosformare in binario il sorgente), ma solo a interpretare, c'č un modo?
esiste un compilatore che lo faccia?
Grazie anticipatamente.
Roli
rol...@libero.it

 esiste un compilatore che lo faccia?
Almeno 6: 2 commerciali e 4 open source.
Commerciali:
perl2exe: 
http://www.indigostar.com/perl2exe.htm
che fa anche un minimo di protezione del codice
perlapp: 
http://www.activestate.com/Products/Perl_Dev_Kit/
fa parte del Perl Development Kit e il codice è un minimo protetto ma 
non impossibile da recuperare
Free as in freedom:
tinyperl: 
http://tinyperl.sourceforge.net/
PAR: 
http://search.cpan.org/author/AUTRIJUS/PAR-0.65/
App::Packer: 
http://search.cpan.org/author/MBARBON/App-Packer-0.12/
perlbin: 
http://perlbin.sourceforge.net/
In tutti e 4 credo che sia relativamente semplice risalire al codice 
visto che non fanno nulla per "offuscarlo".
Se non hai VisualC++ sul tuo sistema la maniera più semplice per 
iniziare è usare PAR:
da prompt di dos scrivi (devi anche essere connesso ad internet)
ppm install PAR
e poi
perldoc PAR
per le informazioni (io uso c:\>pp 
nomefile.pl
 per creare l'exe)
Oh, c'è anche perlcc, che hai già nella tua installazione (scrivi perlcc 
al prompt) ma non ho mai provato ad usarlo :)

 esiste un compilatore che lo faccia?
Almeno 6: 2 commerciali e 4 open source.
Commerciali:
perl2exe: 
http://www.indigostar.com/perl2exe.htm
che fa anche un minimo di protezione del codice
perlapp: 
http://www.activestate.com/Products/Perl_Dev_Kit/
fa parte del Perl Development Kit e il codice č un minimo protetto ma
non impossibile da recuperare
Free as in freedom:
tinyperl: 
http://tinyperl.sourceforge.net/
PAR: 
http://search.cpan.org/author/AUTRIJUS/PAR-0.65/
App::Packer: 
http://search.cpan.org/author/MBARBON/App-Packer-0.12/
perlbin: 
http://perlbin.sourceforge.net/
In tutti e 4 credo che sia relativamente semplice risalire al codice
visto che non fanno nulla per "offuscarlo".
Se non hai VisualC++ sul tuo sistema la maniera piů semplice per
iniziare č usare PAR:
da prompt di dos scrivi (devi anche essere connesso ad internet)
ppm install PAR
e poi
perldoc PAR
per le informazioni (io uso c:\>pp 
nomefile.pl
 per creare l'exe)
Oh, c'č anche perlcc, che hai giŕ nella tua installazione (scrivi perlcc

Newsgroup: it.comp.lang.perl
Titolo: Strani Cookies...

Ho il seguente problema:
Voglio cancellare in una sola passata tutti i cookies scritti da un mio
script.
Ho provato cosi':
    my $old_expire_date = "Mon, 03-Jun-96 00:00:00 GMT";
    @cookies = split (/;/,$ENV{'HTTP_COOKIE'}); #get the cookies
    foreach $cookie_element (@cookies)
        {
            @field = split (/\|/,$cookie_element);
            print "Set-Cookie: $field[0]=; expires=$old_expire_date;\n\n";
        }
Il guaio e' che mi viene cancellato solo l'ultimo cookie, come se
l'istruzione print "Set-cookie.." valida e "sentita" dal Client fosse solo
l'ultima.
Qual'e la soluzione?
Grazie mille!!!!
ciao daniele

 wrote:
: Ho il seguente problema:

Forse il problema e` il doppio "\n\n" dopo ogni riga. Dovrebbe esserci
un solo "\n\n" alla fine dell'header, mentre le altre righe
dovrebbero essere separate da un solo "\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: download di file ASCII... corrotto

Ciao,
mi succede una cosa strana in uno script Perl che utilizzo su server
Apache 2.x
Lo script permette di effettuare il classico download di un file presente
in una pagina creata dinamicamente.
Il problema sorge nel momento in cui tento di scaricare dei file con
contenuto ASCII: succede che dopo aver effettuato il download mi ritrovo
che al fondo del file trasferito viene fatto un "append" di tutto il
codice html della pagina da cui è stato scaricato.
La cosa non si presenta se scarico altri tipi di file (zip, gif, etc.).
Questo è il codice utilizzato per effettuare il download:
-----
sub Download {
  my $file_location;
  my $ID;
  my @fileholder;
 
  $file_location = $keys{dirpath};
  $ID = $keys{filename};
 
  open(DLFILE, "<$file_location/$ID") || Error ('open', 'file for
download');
  @fileholder = <DLFILE>;
  close (DLFILE);
 
  print "Content-Type:application/x-download\n";
  print "Content-Disposition:attachment;filename=$ID\n\n";
  print @fileholder
}
-----
Credo che la parte incriminata sia nell'indicazione del "Content-Type" o
del "Content-Disposition" ma non saprei come modificarlo in modo che possa
funzionare bene sia con file ASCII che binari...
Qualche suggerimento?
grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 -----
ebbene sě...
nonostante la latitanza del popolo di i.c.l.p. sono riuscito a trovare
l'errore e a risolvere la cosa "by myself".
Meglio cosě! ;)
La soluzione la lascio ai posteri....
bye


 >   print "Content-Disposition:attachment;filename=$IDnn";
print "Content-Type:application/x-download\n";


 print "Content-Disposition:attachment;filename=$IDnn";
forse il tuo Browser (o NewsReader) ha eliminato il Backslash da ciņ che
ho scritto io e che esattamente la stessa cosa che hai scritto tu...
;-)))
(e come vedi, quotando la tua risposta č sparito nuovamente il backslash
dal testo incluso nel quoting...)

Newsgroup: it.comp.lang.perl
Titolo: Debugger insterno perl: problema

Ciao,
ho uno script in perl. Lo voglio debuggare.
Prima linea:
#!/bin/perl -w -d
....
etc.
Lo lancio.
Entro nel debugger.
Con 'n' passo da una istruzione all'altra.
Con 'b' introduco un breakpoint su una linea al verificarsi di una condizione
(un contatore che raggiunge il numero 6000)
DOMANDA:
come faccio a far andare avanti il programma in automatico fino al
verificarsi della condizione?
Non capisco come fare.
Ho letto perldebug ma tuttora uso 'n' e 's' passo.-passo, ma per arrivare a 6000 ce ne
vuole....
Grazie del suggerimento.  
-- 
Paolo Pedaletti, Como, ITALYa < paolo . pedaletti @ flashnet . it >

 wrote:
: ho uno script in perl. Lo voglio debuggare.
[...]
: come faccio a far andare avanti il programma in automatico fino al
: verificarsi della condizione?
Da perldebug:
       c [line|sub]
                   Continue, optionally inserting a one-time-only
                   breakpoint at the specified line or
                   subroutine.
-- 
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) mail (dot) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nandos

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

Ciao a tutti...
due domandine...
1-dove sono le faq ?
2- consigli su libri/manuali in italiano/inglese per iniziare a programmare
in perl?
Grazie
G.

Buono per cominciare:
Alessandro Bellini  Andrea Guidi
'Perl e Internet'
McGraw-Hill
Ciao, Giuseppe

Newsgroup: it.comp.lang.perl
Titolo: Leggere in una directory ...

Salve a tutti,
avrei bisogno di leggere il contenuto di una directory e inserire i nomi dei
files (per esempio delle ultime 24 ore) in una variabile tipo:
$miavariabile=file1.html,file2.html,file3html,ecc,ecc...
Qualcuno mi potrebbe dare una mano?
Grazie mille
Devil

 $miavariabile=file1.html,file2.html,file3html,ecc,ecc...
--
 Massimo Balestra
 System Engineer
 Torino Italy
Sent via Deja.com 
http://www.deja.com/
Before you buy.

 Qualcuno mi potrebbe dare una mano?
Dici che $miavariabile=`find $directory/. -ctime -1 -print` e' troppo banale?
-- 
Francesco P. Lovergine  
f.lov...@iesi.ba.cnr.it

Dici che $miavariabile=`find $directory/. -ctime -1 -print` e' troppo banale?
File::Find(3pm)
Oha
-- 
"Qualcuno mi spieghi perche' 144 e' l'unico
quadrato perfetto della serie di Fibonacci"

 nomi dei files (per esempio delle ultime 24 ore) in una variabile
----------------------------------------------------------------
use File::Find;
@miavar = ();
sub wanted {
        push @miavar, $_ if (-f $_) && (-M $_ < 1);
}
find(\&wanted, "directory_di_partenza");
----------------------------------------------------------------
O anche
----------------------------------------------------------------
$dir = "directory_di_partenza";
opendir(D, $dir) or die "Non posso aprire $dir: $!";
@miavar = grep { -f "$dir/$_" && (-M "$dir/$_" < 1) } readdir D;
closedir D;
----------------------------------------------------------------
Nota che hanno due comportamenti diversi. Per maggiori info:
$ perldoc File::Find
$ perldoc perlfunc
Ciao ciao,
Andrea
-- 
"...Unix, MS-DOS, and Windows NT (also known as the Good, the Bad, and 
 the Ugly)."
(by Matt Welsh)

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

Salve a tutti,
avrei due domande:
- e' possibile fare partire uno script perl da una imagemap?
- e' possibile passare dei parametri ad uno script perl da una imagemap
(come fosse un form)?
Grazie per le risposte.
Paolo
--
Posted from 
tlvsdy.vim.tlt.alcatel.it
 [194.243.74.244]
via Mailgate.ORG Server - 
http://www.mailgate.org

(come fosse un form)?
Si (utilizzango il metodo GET, non POST). Ad esempio:
<AREA HREF="/cgi-bin/mioprg.cgi?nome=Michele&cognome=Beltrame">
Come vedi, un "?" separa il path e nome dello script dai parametri.
Questi ultimi sono nella forma "nomevariabile=contenuto" (ogni spazio
va sostituito con un "+" ed alcuni caratteri vanno sostituiti con il
loro codice esadecimale), e sono separati da una "&".
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

 una imagemap (come fosse un form)?
  La risposta ad entrambe le domande e` si`: basta inserire il nome
dello script nell'URL relativo al punto dell'immagine che preferisci,
per esempio:
 
http://miosito.it/path_delle_cgi/mioscript.cgi?A=1&B=2
  L'unica limitazione e` che i parametri vengono passati via GET e non
via POST, come per certi form.
	Alla prossima,
		Marco
Newsgroup: it.comp.lang.perl
Titolo: SSI

Ciao a tutti, ho un piccolo quesito
Sul mio sito ho un contatore di accessi ai link che non controlla l'IP e
avendone trovato uno che effettua questa operazione e che conta anche
l'accesso alle singole pagine, ma che utilizza l'SSI, mi domandavo se,
rinominando tutte le pagine da .html in .shtml, potevo creare dei problemi
al server (non mi intendo molto di queste cose); attualmente ho solo la
prima pagina del sito che è .shtml .
Il precedente contatore era comunque già un programmino perl ma riportava
i risultati delle conte dei link attraverso un javascript
(in questo modo potrei eliminare quasi tutti i javascript dal mio sito).
Qualcuno tempo addietro mi aveva detto che i programmini in perl
effettuando delle chiamate al server rallentavano il sito e in effettidevo
dire che le sottopagine del mio sito si aprono abbastanza piano nonostante
pesino 20, max 30 kb, ma comunque il numero dei link che effettuerebbero
delle chiamate sarebbero gli stessi con la sola aggiunta di un link a
pagina per il contatore di pagina. 
ciao
luca
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 writes:
luca> Ciao a tutti, ho un piccolo quesito
luca> Sul mio sito ho un contatore di accessi ai link che non
luca> controlla l'IP e avendone trovato uno che effettua questa
luca> operazione e che conta anche l'accesso alle singole pagine, ma
luca> che utilizza l'SSI, mi domandavo se, rinominando tutte le pagine
luca> da .html in .shtml,
dipende da come hai fatto i link (ad esempio se hai directory con
il solo file index.html per ogni pagina, puoi non aver bisogno di
cambiare il contenuto),
e` possibile anche fare link tipo /dir/file (senza specificare
l'estensione) e far si che l'estensione .shtml sia la prima open()
provata dal server.
luca> potevo creare dei problemi al server (non mi
luca> intendo molto di queste cose); attualmente ho solo la prima
luca> pagina del sito che è .shtml .
...
C'e` un'altra alternativa (per unix) che non obbliga a cambiare
i nomi dei file per SSI, si basa sull'eseguibilita` dei file
(quelli eseguibili possono passare per SSI, quelli non eseguibili
saltano la valutazione da SSI), i dettagli son ben scritti nei manuali.
Saluti,
MARco
-- 
xref: 
http://mar.i.am/~u16603.22766/it.comp.lang.perl/shtmlohtml,it
x(t),y(t) = th(3t-34.5)*e^[-(3t-34.5)^2]/2-4.3+e^(-1.8/t^2)/(.8*atg(t-
3)+2)(t-1.8)-.3th(5t-42.5),(1.4e^[-(3t-34.5)^2]+1-sgn[|t-8.5|-.5]*1.5*
|sin(pi*t)|^[2e^(-(t-11.5)^2)+.5+e^(-(.6t-3.3)^2)])/(.5+t)+1  ; 0<t<14