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

Ciao!
è ovvio che numeri come e-101 oppure 1e-101 siano la stessa cosa. ma
perchè perl non lo sa? per numeri presentati nel primo modo ottengo un
messaggio d'errore che precisamente non ricordo, ma del tipo "...isn't
numeric...".
L'utilizzo del modulo MATH::BigFloat può risolvere la questione? Come si
usa?
grazie
Ps. i valori numerici d'esempio riportati nel mio script sono oggetti del
tipo $h->value.
stefano
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 grazie
Salve,
 mi spiace Stefano, ma nella notazione scientifica la parte intera non è
opzionale se è presente la parte espoteziale (uella che comincia con la
'e'). Questo è necessario per permettere all'analizzatore lessicale di
distinguere un numero ( /^[+-]\d/) da un identificatore (/^[a-zA-Z_]/)
dall'operatore concatenazione ('.') seguito da qualcosa.
Ciao
-- 
Leo "TheHobbit"
One Ring to rule them all, One Ring to find them,
One Ring to bring them all and in the darknes bind them
In the land of Mordor where the Shadow lie.

Newsgroup: it.comp.lang.perl
Titolo: Rimuovere vecchi file

Salve, devo fare uno script per eliminare tutti i file più vecchi di tot 
tempo ( ad. es. un mese ), ma ho bisogno di aiuto.
Per ora faccio così:
use POSIX qw(strftime);
$cin = "mia dir...";
$ein = "mia dir...";
@dir = ( $cin ,$ein );
foreach $dir (@dir) {
@files = <$dir*.*>;
foreach $file (@files){
$datacreazione = (stat("$file"))[10]; #Mi dovrebbe dire il giorno della 
creazione del file
$now_string = strftime "%a %b %e %H:%M:%S %Y", 
gmtime($datacreazione);#formatto la data
print "\n$file data: $now_string\n";
}
}
qundo stampo la data mi ritorna un valore diverso da quello che ottengo se 
da shell faccio: ls -l
In pratica mi sballa di un ora.
C'è un modo per ottenere la data di creazione del file, in modo corretto?
Grazie

io uso questo semplice script in shell
find . -name '[0-9]*\.[0-9]*\.master*' -mtime +120 -print -exec rm {} \;
per rimuovere tutti i file piu' vecchi di 120 giorni che matchano la regex.
Si puo' sicuramente adattare a qualsiasi cosa.
CIAO
"Raziel" <raz...@soul.reaver> wrote in message
news:10384877...@aragorn.postel.it...

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.419 / Virus Database: 235 - Release Date: 13/11/2002

Raziel wrote:

gtime calcola il tempo rispetto al meridiano di Greenwich
(un'ora indietro rispetto a noi)
localtime dovrebbe restituirti il
tempo preciso.
un saluto
Marco

 
Se usi find2perl viene fuori il corrispondente
in perl. Sara' un po' piu' lungo ma forse piu'
divertente :)
un saluto
Marco
Newsgroup: it.comp.lang.perl
Titolo: Errore script in perl

il codice dello script che eseguo nella mia cartella cgi-bin è il seguente:
#!/usr/bin/perl
&get_form_data();
&send_email;
sub get_form_data
{
 #ottiene l'input
 read(STDIN, $buffer, $ENV{ 'CONTENT_LENGTH' });
 #divide le coppie nome valore
 @pairs = split(/&/, $buffer);
 foreach $pair (@pairs);
 {
  ($nome, $value)=split(/=/,$pair);
  #trasforma segni + e codifica - %
  $value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
  $value =~ s/<!--(.|\n)*-->//g;
  $FORM{$name} = $value;
 }
}
sub send_mail
{
 $to = "tosto73\@
libero.it
";
 open(MAIL,"|
mail.9netave.it
 -t $to)||die ("can't open sendmail");
  print MAIL "From: $ FORM{'email'}\n";
  print MAIL "To: $to\n";
 print MAIL "Subject: Form submission\n\n";
 #stampa modulo dei risultati
 print MAIL "Nome: $FORM{'nome'}\n";
 print MAIL "Azienda: $FORM{'azienda'}\n";
 print MAIL "Indirizzo: $FORM{'indirizzo'}\n";
 print MAIL "Città: $FORM{'citta'}\n";
 print MAIL "Stato: $FORM{'stato'}\n";
 print MAIL "Telefono: $FORM{'telefono'}\n";
 print MAIL "Fax: $FORM{'fax'}\n";
 print MAIL "E-mail: $FORM{'email'}\n";
 print MAIL "Commenti: $FORM{'commenti'}\n";
 close(MAIL);
}
print "</body<\n</html>";
l'errore che mi viene restituito è il seguente:
CGI Error
The specified CGI application misbehaved by not returning a complete set of
HTTP headers. The headers it did return are:
Can''t exec d:/home/nti26f156/cgi-bin at D:\home\nti26f156\cgi-bin\email.cgi
line 1.
QUALCUNO DI VOI MI SA' AIUTARE A TROVARE L'ERRORE? GRAZIE A TUTTI.

 D:\home\nti26f156\cgi-bin\email.cgi line 1.
Nonostante tutto il problema e' che non puoi eseguire /usr/bin/perl 
daltronde essendo su una macchina winzoz....
Concludendo, ed essendo molto cattivo, lascia stare sei troppo lontano 
da una possibile soluzione.
Concludendo, ed essendo neutrali, cerca di capire cosa fa quando scrivi 
(o copi) del codice perl, leggiti qualche manuale e prova ad imparare
Concludendo, ed essendo buoni, non ci sono sufficienti informazioni per 
darti una risposta esauriente, che server web usi?, come e dove e' 
instalalto il perl?, e' installato il perl? che configurazione ha il 
supporto cgi del tuo server?... sono tutte domande a cui sarebbe 
necessario avere una risposta da te.
-- 
Saluti,
Giancarlo

Spietato proprio!
visto che anzichè aiutarsi nei newsgroup non ci si lascia scappare
l'occasione per insultarsi e comunque far notare la propria superiorità in
materia, smetterò di frequentare questo newsgroup e mi imparerò il perl.
complimenti!

mi imparerò il perl.
Alla luce di quanto sopra,  questo è un ottimo proposito, 
indipendentemente da usenet.
Cheers,
alf
 

 wrote in message
3B778005...@no.such.orion.it...

Ok.

 imparerò il perl.
Quindi fin'ora non ci avevi manco provato e quindi vedi tu stesso che 
sei in torto, l'NG non si chiama: 
it.comp.lang.nonsouncazzodiperlmadevofarfunzionareunoscript
-- 
Saluti,
Giancarlo

 wrote in message
9l8cc0$5mda$1...@stargate1.inet.it...

Ok dai ho capito che siete rompicoglioni ma simpatici. a presto.
Newsgroup: it.comp.lang.perl
Titolo: Leggere su un altro server, come si fa?

Immaginiamo che durante l'esecuzione di uno script perl ci sia la
necessità di leggere il contenuto di un file html che sta su un altro
server... si puo' seplicemente fare riferimento al file inserendone
l'URL completo? E come faccio a leggerne il contenuto? Non posso certo
usare il solito open(file)...
Idee?
Grazie

 
use LWP;
...
Il modulo LWP probabilmente e' quello che cerchi. Lo trovi su CPAN
(
www.perl.com/CPAN
)
e contiene uno script che si chiama GET, da cui puoi dedurre come fare
quello che vuoi.
Cheers,
	Alessandro

 wrote:
: Immaginiamo che durante l'esecuzione di uno script perl ci sia la
: necessità di leggere il contenuto di un file html che sta su un altro
: server... si puo' seplicemente fare riferimento al file inserendone
: l'URL completo? E come faccio a leggerne il contenuto? Non posso certo
: usare il solito open(file)...
use LWP::Simple;
$pagina = get("
http://url.del.sito/
");
piu` facile di cosi`...
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E

s...@iol.it
 wrote:
 >l'URL completo? E come faccio a leggerne il contenuto? Non posso certo
 >usare il solito open(file)...
Se non puoi montare via NFS i dati che ti servono allora devi
necessariamente usare qualche altro protocollo (http, ftp), magari
attraverso uno dei moduli appositi, e poi gestire i dati nel modo
appropriato.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

Newsgroup: it.comp.lang.perl
Titolo: nuovo sito

programmazione.
e' un po lento
(ma non c'e' perl)
il resto sembra interessante
~~~~~~~~~~~~~~~~~~~~~~
r.ciap...@cline.it

 ciao,
Riprova... il server potrebbe aver avuto una crisi momentanea... :))
--


 il resto sembra interessante
"piano piano si fece Roma"! :)
purtroppo non conosco personalmente Perl ed ancora non sono riuscito a
trovare persone interessate ad aiutarmi... potresti farlo tu! :)
Se conosci qualcuno interessato...





 programmazione" (voluto o....?)....
EHM... sai com'č... il copia/incolla... ehm... me so' sbagliato, lo ammetto!
;)))
--
Massimiliano Etere
www.programmando.org
massimili...@programmando.org
Newsgroup: it.comp.lang.perl
Titolo: [Aiuto] CGI.pm

Ciao a tutti sono Amadeus,
Ho dei problemi con l'upload dei file. Ho già postato una richiesta di aiuto
e mi è stato risposto molto gentilmente di usare CGI.pm. Ebbene l'ho fatto,
ma non so perche' non mi funge.
Se avete la pazienza di leggere, questo e' il form da cui parto:
<FORM ACTION="
upload.pl
" METHOD=GET enctype="multipart/form-data">
<INPUT type=FILE name="FILE1"><INPUT type=SUBMIT>
 </FORM>
Questo è invece il listato del file 
upload.pl
:
use CGI;
$q = new CGI;
$filehandle = $q->upload('FILE1');
open (OUTFILE,">>filecopiato");
while ($bytesread=read($filehandle,$buffer,1024))
{
print OUTFILE $buffer;
}
C'e' qualcuno che mi puo' dare qualche aiuto in merito ?
Ciao a tutti
Amadeus






Non funge e' un concetto vago.
Comunque controlla il successo di tutte le funzioni che chiami. Ad esempio
non sai se e' l'upload() che non funziona o l'open() di filecopiato.
Inoltre filecopiato potrebbe trovarsi in una directory in cui non puoi
scrivere.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

...


 ?
Il sistema e' piu' o meno quello che hai usato. Perche' invece di fidarti
dell'apparente creazione del file non testi esplicitamente il risultato
della open e il risultato della upload() con cgi_error()?
Magari c'e' qualche informazione utile.


Newsgroup: it.comp.lang.perl
Titolo: sum o supercompressione

ciao a tutti, avrei bisogno di ridurre una stringa alla somma di tutti i
caratteri in essa contenuti. non volevo fare una cosa del tipo scandire
tutta la stringa con substr e sommare i caratteri uno per uno, quindi mi
chiedevo se non si poteva fare in automatico o con map o con pack, ma
non sono arrivato da nessuna parte.
grazie
Ivan


Posto che $str contenga la stringa da sommare:
# trasforma $str in array usando la stringa nulla come separatore
@a = split('',$str);
# somma i pesi decimali dei caratteri
$sum = 0;
$sum += ord($_) foreach (@a);
print "$sum\n";
HTH gfb

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

Non riesco a far funzionare uno script perl sul server Hypermart. Ottengo
l'errore "File Not Found".
Qualcuno può dirmi dove fare l'upload dello script  (nella mia dir, insieme
alle pagine html?) e dove richiamarlo (viene per casio spostato dal server
in qualche altra dir?)
Qualcuno ha uno script+html semplicissimo e già collaudato su hypermart da
inviarmi per fare una prova?(indicandomi dove lui l'ha copiato e come lo
richiama)
Grazie.
--
Ciao, Alessandro
-----------------------------------------
Revel Team
[Software] [Lotto]
beta: Contascatti TAT
new: Il Ricevitore 2.3 (Senalotto, totogol, totocalcio, totosei, totip+)
http://santorsola.8m.com
-----------------------------------------

Grazie.
Io ho fatto una cartella CGI-BIN nella mia directory sy hypermarte dopo aver
dato i permessi d'esecuzione tutto funzia.....
Lo script è un semplice programmino che manda e-mail ad una mailing list...
Ciao
Newsgroup: it.comp.lang.perl
Titolo: Come assegnare l'utput di un comando ad una variabile non "contaminabile" via web??

Salve, sto scrivendo una cgi che ha bisogno di eseguire il comando
groups
ma non sono capace di catturare l'output, in maniera "sicura".
per ora genero a schermo l'output cosi':
	system "/usr/bin/groups","$login";
 e la cosa funziona senza problemi di sicurezza.
quello che vorrei fare è reindirizzare l'output verso una variabile, in
maniera che la variabile non sia "contaminabile".
Ogni tipo di aiuto è ben accetto.
Grazie 
gigi.

 maniera che la variabile non sia "contaminabile".
  Beh. Puoi usare i backtick (`) o qx{}.
$var = `/usr/bin/groups $login`;
 
 
  Comunque, se ti serve sapere il gruppo dell'utente e' forse piu' pulito
  usare (se $login e' lo username) le funzioni interne di Perl:
 
  $gid = (getpwnam($login))[3];
  $groupname = getgrgid $gid;
 
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@tuttocitta.it
 
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 wrote:
: Salve, sto scrivendo una cgi che ha bisogno di eseguire il comando
: groups
: ma non sono capace di catturare l'output, in maniera "sicura".
: per ora genero a schermo l'output cosi':
: 	system "/usr/bin/groups","$login";
:  e la cosa funziona senza problemi di sicurezza.
Per catturare l'output di un comando non devi usare system:
#!/usr/bin/perl -Tw
$ENV{PATH} = '';
$utente = 'root';
$a = `/usr/bin/groups $utente`;
print "$a\n";
-- 
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: post arretrati

Ciao a tutti,
vi disturbo un attimo per chiedevi qual'è il sito
dove sono archiviati tutti i post precedenti.
Grazie.
Lorenzo

 dove sono archiviati tutti i post precedenti.
http://groups.google.com/advanced_group_search
Bye,
 Emmanuele.
-- 
I ... Owe ... You ... Pain! -- Willow, "Tough Love"
Italian Buffy Resource Site (Beta) - 
http://www.ibrs.f2s.com
GnuPG Key ID: 0xA4320FF4
GnuPG Key FP: 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4


puoi cercare su 
http://www.dejanews.com
 (Google)
Ciao
rik
Newsgroup: it.comp.lang.perl
Titolo: da file ad hash

ho provato in tutti i modi, ma non mi funziona !!! Dato un file che
contiene gli hash, come faccio per passarli a una variabile hash ?
Mi spiego
Il file contiene
campo_a => 1
campo_b => 10
lo leggo passandolo a una variabile %dati_letti
come faccio a passare i valori di %dati_letti a una variabile hash ?
thanks in advance
-- 
-------------------------------------------------------------------------
Hosting professionale a prezzi USA? 
http://www.servitelit.com/prezzi.htm
-------------------------------------------------------------------------

mica capito il problema. come è fatto realmente il file?
in pratica, come è fatto il "tracciato record"?
se fosse cosí:
campo_a
1
campo_b
15
e lo leggi dentro un @array: @array=<FILE>;
potrai passarlo al tuo %hash: %hash=@array;
credo che ti puoi risparmiare un passaggio: %hash=<FILE>;
il risultato equivale ad
$hash{campo_a}=1;
$hash{campo_b}=15;
se inverti nel file la sequenza:
1
campo_a
10
campo_b
ti ritroverai una piccola sorpresa
$hash{1}="campo_a";
$hash{10}="campo_b";
oppure il problema no era questo ma avevi un hash con riferimenti ad una
struttura?
ciao, antonio

-- 
ASTAT - Istituto provinciale di statistica
viale Duca D'Aosta, 59
I - 39100 Bolzano
tel: 0471/994045  fax: 0471/994008
http://www.provinz.bz.it/astat

 lo leggo passandolo a una variabile %dati_letti
passando cosa?
%dati_letti = <FILE>  ?????? 
-- 
It's now the GNU Emacs of all terminal emulators.
        -- Linus Torvalds, regarding the fact that Linux started off as a
	terminal emulator  


#!perl
my %hash=();
open(FILE,"pollo.dat") || die "Errore $!\n";
map(s/^\s*(\w+)\s*=>\s*(.+).*$/$hash{$1}=$2/e, @lines=<FILE>);
close(FILE);
#
# Da qui in poi puoi usare tranquillamente $hash{campo_a} ecc.
#
--
Fernando

Newsgroup: it.comp.lang.perl
Titolo: perplessità 3 ....


Hey magari se metti /bin/echo "Content Type txt/html" (controlla la
riga di codice...non me la ricordo troppo bene :-) e poi i vari
print...vedrai che puo' funzionare, una volta ho avuto un problema
simile, prova un po'.
Ciao
-
Logan.
wolv...@NOSPAM.officine.it
 (To mail me, take away NOSPAM.)

 >Ecco cmq il codice del mio piccolo CGI
Perche' non sostituire tutto questo 'query parsing' con
il modulo perl CGI.pm, che fa per te tutto questo lavoro
e ti permette di concentrarti sul succo del problema? ;-)
Bye.
-am
Newsgroup: it.comp.lang.perl
Titolo: Cerco esperto funzione localtime() per CGI

Premetto che sono ai primi studi di perl e cgi
Utilizzando la localtime per estrarre la data odierna và tutto bene.Ad
esempio localtime->mday ecc...
Purtroppo devo stabilire la data odierna e poi andare a ritroso, ad
esmpio oggi è il 24/12/2000 devo eseguire una for a ritroso
fino al 10/12/2000.Utilizzando la localtime tipo
localtime(time()-$giorni*86400), non riesco ad estrarne i dati.
Sò che la localtime ritorna un'array di 9 valori, io ho utilizzato una
linea di codice così 
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime(time()-$giorni*86400);
Se vado a vedere la variabile $mday è vuota, così come le altre.Come
mai?
Grazie e ciao Gianluca

,

--
 Massimo Balestra
 System Engineer
 Torino Italy
Sent via Deja.com 
http://www.deja.com/
Before you buy.

Io opero su win95 con server apache per windows e perl activestate x
windows.Siccome lo script è un cgi e ritorna un pagina html ti invio
tutto il codice (putroppo da me ancora non funziona anzi nella linea 
print "($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)\n";
il browser mi visualizza:
(Time::tm=ARRAY(0xba5de8),,,,,,,,) 
Ecco lo script completo:
#!c:/Perl/bin/perl.exe
print "Content-type: text/html\n\n";
use Time::localtime;
$giorni = 3;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time
()-$giorni*86400);
print "<html>\n";
print "<head>\n";
print "<title></title>\n";
print "</head>\n";
print "<body>\n";
print "<p>\n";
print "($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)\n";
print "</body>\n";
print "</html>\n";




 use Time::localtime;
Prova a togliere questo. Tu stai cercando di usare la funzione
localtime() del Perl, non quella del modulo Time::localtime.
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: Lo script non trova un file che invece c'e'

Salve,
Il mio server e' 
aruba.it
.
Ho regolarmente uploadato degli script .pl nella cartella cgi-bin.
Quando vado ad eseguirli, al comando:
require "
psetup.pl
"
il browser mi da il seguente errore:
The specified CGI application misbehaved by not returning a complete set of
HTTP headers. The headers it did return are:
Can't locate 
psetup.pl
 in @INC (@INC contains: C:/Perl/lib C:/Perl/site/lib
.) at d:\inetpub\webs\e-salernoit\cgi-bin\tgpost\
padmin.pl
 line 21.
E invece il file c'e' in quella cartella. Come risolvere questo problema ?
Ciao e grazie,
Jesty

 ha scritto nel messaggio
news:Lmdg6.8092$GM6.3...@news.infostrada.it...

Newsgroup: it.comp.lang.perl
Titolo: Uso di PerlGTK

Stavo facendo alcuni esperimenti con PerlGTK, in modo da creare una
interfaccia ad un database per scopi personali. Da quanto ho capito
per fare in modo che un pulsante sia posizionato in un determinato
punto della finestra, bisogna creare prima una sorta di tabella e poi
inserire il pulsante in uno dei campi di essa. E` giusto cosi` oppure
ci sono altri metodi?
Henryx
-- 
GnuPG fingerprint = 42F9 521B 63C7 89FE 354C  89FA 4E49 3E2D 2EB6 B014

 sono altri metodi?
Non ho mai usato PerlGTK, pero` ne ho letta la documentazione
ripromettendomi di farlo. Cmq, la risposta e` "si", nel senso che la
finestra dovra` contenere un layout manager (la "tabella" in questione)
per disporre i componenti (widgets) nella stessa. Siccome da quello che so
il mapping delle funzionalita` C a Perl e` quasi 1:1 in PerlGTK ti
suggerisco di leggere qualche tutorial sul sito del GTK (
http://www.gtk.org/
 ).
Ciao,
Marco
-- 
//\/\ Marco (LM) Lamberto
      e-mail:            
marcol...@despammed.com
      SIForge.org     -  
http://www.siforge.org/
Newsgroup: it.comp.lang.perl
Titolo: Installare Perl su winXP

Ciao a tutti, potete dirmi dove poter scaricare una versione di Perl per
windowsXP ?
Grazie anticipatamente

scusatemi per questo post ripetuto, mi sono sbagliato...
Newsgroup: it.comp.lang.perl
Titolo: chmod

salve,
sono alle prime armi col perl, sto modificando alcuni script che ho trovato
in rete, vorrei fare una cosa del genere: cambiare i permessi ad alcuni file
in seguito alla validazione di un form. mi spiego meglio: un utente
inserisce alcuni dati in un form. all'invio del modulo si attiva uno script
in perl, se i dati che ha inserito soddisfano certe condizioni vengono
abilitati i permessi su alcuni file se no su altri.
la mia domanda: per usare chmod (xxxx, "$nomefile") c'è bisogno di
specificare l'utilizzo di qualche libreria o modulo particolari o posso
scrivere semplicemente questa istruzione?
grazie

 scrivere semplicemente questa istruzione?
perldoc -f chmod
fai attenzione che l'utente con cui gira lo script (tipicamente
www-data), possa effettivamente fare l'operazione che desideri.
-- 
                         Maurizio - Tannoiser - Lemmo
                 Founder Member of ERLUG 
http://erlug.linux.it
-------------------------------------------------------------------------------
Lottery: a tax on people who are bad at math.
Newsgroup: it.comp.lang.perl
Titolo: Problema compilazione file Perl

Avrei i seguente problema ho generato un sempicissimo
#!/usr/bin/perl
print "ciao mondo\n";
ho dato chmod +x  
mondo.pl
e appena provo ad avviare  perl -w 
mondo.pl
il risultato e il seguente
perl: warning : Setting locale failed.
perl: warning : Please check that your locale settings :
LANGUAGE = "it_IT:it",
LC_ALL = (unset),
LC_MESSAGES = "it_IT@euro",
.............
are supported and installed on your system .
perl : warning : Falling back to the standard locale ("C").
Ciao mondo

 
It's so easy, you only have to set this variables into the
/etc/environment or /etc/profile. I come from Spain and I have this:
	LC_CTYPE=ISO_8859_15
	LC_ALL=es_ES
	LANG=es_ES.ISO-8859-15
-- 
$_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572,,($_,$b)=split?#?;@b=split?;?;
map{$c.=$_,$d.=chr($b[$e++]+ord)}(split??,pack'H24',$b);chop$d,print$c.chr(32).$d

Newsgroup: it.comp.lang.perl
Titolo: perl -> eseguibile

Ciao,
č possibile compilare uno script perl trasformandolo in eseguibile, libreria
o .dll? Esistono tools che permettano di tradurlo il un altro linguaggio, ad
es. C?
Grazie per le eventuali risposte
Claves do Amaral
claves.d...@netbusiness.it

es. C?
Ci sono vari compilatori, come perl2exe per Windoze. La stessa
distribuzione del perl include "perlcc", che permette sia di ottenere
codice binario che bytecode che sorgente C.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 codice binario che bytecode che sorgente C.
Fantastico!
grazie
Claves do Amaral
claves.d...@netbusiness.it
Newsgroup: it.comp.lang.perl
Titolo: Routine da Host

Gentili....,
ho uno spazio host gratuito che consente l'utilizzo di perl. Come posso, da 
una pagina html x es., lanciare la routine ?
Thanks 


ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

Newsgroup: it.comp.lang.perl
Titolo: Cambiara data/ora ai file/directory

Vorrei realizzare in perl un piccolo script che mi permetta di cambiare 
la data/ora (di creazione/ultimo accesso/ultima modifica) di files e 
directory. Questo mi servirebbe in ambiente Windows (Win2000) usando 
l'ActivePerl 5.8.0.
Da dove posso cominciare ? Non mi sembra di aver trovato nell'ActivePerl 
dei moduli adatti allo scopo.
Grazie.

 Grazie.
Prego
Ciao,
Nids
P.s.: penso l'opzione "non pulita" sia veramente molto difficile in quanto
prevenire cambi di data "all' indietro" o a orari non attuali sia usato come
prevenzione all'istaurazione di cavalli di troia.

prevenzione all'istaurazione di cavalli di troia.
Può anche darsi che "sia usato", ma bisognerebbe vedere da chi e quando. Di
certo, non dal Windows NT che ho sotto mano in questo momento. Lunedì provo
con Windows 2000, ma ho il sospetto che tutte queste difficoltà non ci
siano. Sarà al più una questione di permessi, ma mi sembrerebbe strano che
l'operazione sia, in assoluto, impossibile comunque e sempre. Tra l'altro,
come prevenzione, mi pare che lasci abbastanza a desiderare.
Ciao.

Andrea wrote:

Grazie a chi mi ha risposto. Ho risolto la cosa con questo semplice 
script in perl:
# File 
chtd.pl
  Change time/date on file/directories
use Time::Local;
use strict;
if (@ARGV < 7)
{
   print "Usage: chtd <hour> <minute> <second> <day> <month> <year> 
FILENAMES...\n";
   exit 1;
}
my ($hour, $minute, $second, $day, $month, $year) = @ARGV;
shift @ARGV for (1..6);
my $time = timelocal ($second, $minute, $hour, $day, $month-1, $year-1900);
foreach my $arg (@ARGV)
{
   my @files = glob $arg;
   foreach my $file (@files)
   {
     print $file . " ... ";
     print ((utime $time, $time, $file) ? "OK\n" : "ERROR !\n");
   }
}
exit 0

 certo, non dal Windows NT che ho sotto mano in questo momento. Lunedě provo
E` da notare che, comunque, cambiando le date dei file viene lasciata
traccia di quando cio` e` stato effettivamente fatto, e dunque di quando
il file e` stato in realta` modificato l'ultima. Dalla documentazione di
utime() si estrae infatti:
"The inode change time of each file is set to the current time."
Non so se in Perl sia possibile aggirare questo ostacolo per un eprfetto
"stralth hacking". ;-) In ogni caso, qui c'e` un programmino in C che fa
il lavoro:
http://www.securiteam.com/tools/5JP0H2K7FE.html
Michele.

"The inode change time of each file is set to the current time."
Vabbe', mi riesce difficile pensare ad un uso legittimo in cui la data
dell'inode abbia qualche rilevanza. E, per contro, immagino che chi ne ha
davvero bisogno sappia fin troppo bene come fare.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Settaggio di FormMail 1.92

Ciao a tutti,
Ho settato il programma FormMail 1.92 per avere una form-mail sul mio sitto
internet, ma non riesco ad applicare uno specifico settagggio: praticamente
il messaggio che voglio possa essere inviato è costitui to dalla sola e-mail
che spedisce unmessaggio in partenza e ciò lo ottengo agevolmente con i
seguenti tag html nella form postasul sito:
<INPUT  type=hidden  name=email  value=
mitt...@hotmail.com
  >
e la e-mail che riceve il messaggio voglio invece che sia
newsletter...@dominio.com
 , ma purtroppo non riesco ad ottenere
l'effetto sperato (di determinare l'iscrizio ad una newsletter) quando
inserisco tale casella all'interno dello script perl "FormMail.pl" nella
seguente  forma:
@recipients =
(&fill_recipients(@referers),'^newsletter-subscribe@dominio\.com').
a questo punto avrei bisogno di sapre da qualcuno che conosce i settaggi di
FormMail 1.92 se devo insere qualche specifica opzione per ottenere
l'effetto voluto di rendere attiva nella form la casella recettrice:
newsletter...@dominio.com
 .
Preciso ancora che nei settaggi proposti dal file readme viene indicato, per
quel che ho capito, in caso si abbiano caratteri particolari come il
trattino "-" di porre
tutto tra parentesi quadre nel seguente modo :
@recipients =
(&fill_recipients(@referers),'^[newsletter-subscribe\.]+@dominio\.com')
@recipients =
(&fill_recipients(@referers),'^[newsletter-subscribe]+@dominio\.com')
(impostazioni da me dedotte da un esempio)
(ma anche inserendo questi settaggi nel file Formmail.pl,  lo script non mi
funziona, cioè non riesce ad attivate un'iscrizione alla newsletter).
Quindi avrei bisogno di capire quale settaggio devo inserire nel file
formMail.pl per ottenre l'effetto voluto.
Preciso che lo script mi funziona bene se inserisco una qualsiasi casella di
e-mail come recettrice del messaggio.
Saluti e ringraziamenti anticipati a chi riesce a trovare una soluzione per
questo piccolo rompicapo.
ciao a tutti,
Luca



 Ho settato il programma FormMail 1.92
Ti consiglio intanto di passare ad uno script più sicuro, visto che 
FormMail non è il massimo da questo punto di vista, in particolare ti 
segnalo 
http://nms-cgi.sourceforge.net/
 che sono un insieme di script 
che vanno a sostituire quelli scritti dall'autore di FormMail.
Prova comunque a mettere:
@recipients =
(&fill_recipients(@referers),'
newsletter...@dominio.com
')
non mi sembra che tu abbia bisogno di una espressione regolare, in 
questo caso.

questo caso.
io la ho provata in:
@recipients =
(&fill_recipients(@referers),'newsletter/-
subs...@dominio.com
')
ma non funziona.
Grazie in ogni caso della tua
precedente risposta (se anche non dovessi riuscire a trovare risposte per
questo problema).
ciao
luca
Newsgroup: it.comp.lang.perl
Titolo: Ringraziamenti e alcune altre domande - Date

Innanzitutto vorrei ringraziare tutte le persone che hanno risposto
alle mie domande risolvendo il problema. Avrei ancora alcune
questioni:
- come posso formattare una data (presa da un certificato a chiave
pubblica oppure dall'orologio del PC) e metterla nel formato ZULU che
consiste in YYYYMMDDHHMMSS relativamente all'ora di Greenwich.
Grazie

 consiste in YYYYMMDDHHMMSS relativamente all'ora di Greenwich.
*credo* che questo posso andare:
my ($sec, $min, $hours, $mday, $mon, $year)=localtime(time);
$sec='0'.$sec if ($sec < 10);
$min='0'.$min if ($min < 10);
$hours='0'.$hours if ($hours < 10);
$mday='0'.$mday if ($mday < 10);
$mon++; #i mesi iniziano da 0
$mon='0'.$mon if ($mon < 10);
$year+=1900; #gli anni partono dal 1900
print "$year$mon$mday$hours$min$sec";
ma ci sono molti moduli su CPAN (
http://search.cpan.org
) che
manipolano la data. E penso che alcuni di questi siano anche nei moduli 
base (Date::Manip?).
Cerca con le stringhe date e time.
C'è anche il link:
http://pleac.sourceforge.net/pleac_perl/datesandtimes.html
-- 
$_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572,,($_,$b)=
split?#?;@b=split?;?;map{$c.=$_,$d.=chr$b[$e++]+ord}split??,pack'H24',$b
;chop$d,print$c.chr(32).$d
Newsgroup: it.comp.lang.perl
Titolo: HTML e perl

Ciao a tutti
Ho questo "problemone" da risolvere:
Devo creare uno script che si connetta ad un URL legga l'html ed
estragga dei tag nell specifico i meta name tipo questo:
<meta name="keywords" content="Rs1007888,Snp,Type-2
diabetes,Rs1007888(C;C),Watson" />
		<link rel="shortcut icon" href="/favicon.ico" />
Chi mi suggerisce lo strumento perl migliore da usare?
Grazie Guido

guido...@gmail.com
 ha scritto:

Puoi utilizzare il modulo LWP::UserAgent, che č gią incluso nel tuo core 
perl per fare la get di una pagina http.
require LWP::UserAgent;
  my $ua = LWP::UserAgent->new;
  $ua->timeout(10);
  $ua->env_proxy;
  my $response = $ua->get('
http://search.cpan.org/'
);
  if ($response->is_success) {
      print $response->content;  # or whatever
  }
  else {
      die $response->status_line;
  }
Invece, per estrarre i meta puoi utilizzare HTML::Parser (anch'esso 
incluso nel core perl) oppure fare una regexp.
Modulo LWP::UserAgent : 
http://search.cpan.org/~gaas/libwww-perl-5.808/lib/LWP/UserAgent.pm
Modulo HTML::Parser :
http://search.cpan.org/~gaas/HTML-Parser-3.56/Parser.pm
Ciao


Per questo genere di cose è IMO ottimo
HTML::TokeParser(::Simple). HTML::Parser è estremamente
versatile (H::TokeParser è una classe derivata, se ricordo
bene) ma è un po' più macchinoso da usare.
S.

Newsgroup: it.comp.lang.perl
Titolo: Merge Files

Colgo l'occasione di ringraziare moltissimo Taiger.
Chiedo:
devo fare un'operazione di merge, cioč devo attaccare il contenuto di un
file in coda ad un altro file.
Come si fa?
GRAZIE.

 Come si fa?
Si apre il primo file in lettura, il secondo in append, e si leggono le
righe del primo scrivendole sul secondo.
Oppure si scrive
system('cat primo >>secondo');
ma questo significa barare.
Se poi in coda non significa 'appiccicato in fondo' ma 'da qualche parte
verso la fine', devi fare un lavoro a tre file (ovvero usare un file
temporaneo).
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 
 local $/  =   undef;
 open  SOURCE, "source.dat";
 open  DEST,   ">>dest.dat";
 print DEST    <SOURCE>;
 close DEST;
 close SOURCE;
La gestione degli errori e l'addattamento al caso in cui il file sia tanto
grande da rendere inappropriata la tecnica usata nella 1a e nella 4a riga
del codice sono lasciati come esercizio al lettore.
Max

 ma questo significa barare.
In che senso "barare"? L'unica (per me che sono un principiante sia di Perl che
di sistemi *x) controindicazione che mi viene in mente e' che questa soluzione
non funzionerebbe su sistemi Win. Pero' mi sembra una soluzione molto piu'
elegante rispetto alla prima.
Ciao
Marcello




E' barare perche' non e' una soluzione Perl. :)


 Marcello
Newsgroup: it.comp.lang.perl
Titolo: Domanda sui formmail

Ciao a tutti,
i consueti programmi in Perl che gestiscono l'invio di una
mail tramite un form sono strutturati in modo che, dopo
l'invio della mail, eseguano una di queste due funzioni:
1) reindirizzamento del browser verso una pagina html con
   una bella scritta di ringraziamento.
2) scrittura diretta sul browser con dei "print" del
   messaggio di ringraziamento.
Mi chiedo: e' possibile fare in modo che, invece, NON
facciano assolutamente nulla? E' possibile, cioe', che
il browser rimanga fermo li', con ancora il form in bella
vista con tutti i campi compilati?
Grazie per le eventuali risposte.
Ciao,
Maurizio

 vista con tutti i campi compilati?
l'header della pagina deve riportare:
Status: 204 No response
Ciao
Charlie
:wq

Status: 204 No response
Funziona perfettamente. Grazie mille!
Ciao,
Maurizio

 vista con tutti i campi compilati?
Direi di no, a meno di non richiamare la pagina con la form 
ripassandogli i valori da menttere come VALUE nei campi degli INPUT.
Comunque renditi conto che una form che si comportasse in questo modo 
avrebbe come naturale conseguenza l'arrivo di decine di mail uguali da 
parte di chi non si rendesse conto che l'invio e' avvenuto.
-- 
Saluti,
Giancarlo
Newsgroup: it.comp.lang.perl
Titolo: SOS

Salve,
ho scritto questo programmino in perl:
#!/usr/bin/perl
# apre il file delle password
open(FILE, "passwd") or die "non posso aprire passwd: $!";
# divide il file in record
while  (<FILE>)
{
@passwd=split(/:/,$_);
$a=@passwd[4];
#print $a;
# scrive in un file tutti gli utenti esterni
if (substr ($a,0,3) ne "int")
        {
#      print @passwd[4];
        open (FILE2, "utenti.txt");
        print FILE2 "$a";
        }
close (FILE2);
}
ma non mi scrive nel file utenti.txt.
Cosa posso fare????
Grazie in anticipo.

 }
In questa maniera pero' tu apri e chiudi il file per ogni riga, e con il mio
suggerimento ">utenti.txt" ti ritrovi nel file solo il nome dell'ultimo utente
esterno. Ti conviene aprire il file prima del while e chiuderlo dopo, forse.
Infine, se 
   substr ($a,0,3) ne "int"
ti deve servire a selezionare i campi che non iniziano per "int", invece di
estrarre i tre caratteri dalla stringa e' forse meglio se usi una regexp
  if ($a !~ /^int/)
 
oppure
  unless ($a =~ /^int/)
In conclusione il tuo esempio diventerebbe:
----------------------------------------------------------
#!/usr/bin/perl
# apre il file delle password
open(FILE, "passwd") or die "non posso aprire passwd: $!";
open (FILE2, ">utenti.txt") or die $!;
# divide il file in record
while  (<FILE>)
{
  @passwd=split(/:/,$_);
  $a=$passwd[4];
 # scrive in un file tutti gli utenti esterni
  if ( $a !~ /^int/)
   {
    print FILE2 "$a","\n";
   }
}
close (FILE2);
------------------------------------------------------------
Maurizio
-- 
Maurizio M. Munafo' |                            
E-mail:mmmu...@tuttocitta.it
--------------------+---------------------------------------------------------
             (o_    |                              - Gentile or Jew,
   (o_  (o_  //\    | O you who turn the wheel and look to windward,
   (/)_ (/)_ V_/_   | Consider Phlebas, who was once handsome and tall as you.

 ma non mi scrive nel file utenti.txt.
man perlfunc
       open FILEHANDLE,EXPR
       open FILEHANDLE
               ....
               If the filename begins with '<' or nothing, the
               file is opened for input.  If the filename begins
               with '>', the file is truncated and opened for
               output.  If the filename begins with '>>', the
               file is opened for appending. 
               ....
Cheers,
-debe
.................................................................
No kings, no presidents, just a rough consensus and running code.
Newsgroup: it.comp.lang.perl
Titolo: Come ottenere l'errore

Devo fare uno script in perl che entri in telnet su diversi pc (con
diversi sistemi operativi), Vorrei ricavare l'errore e metterlo in una
variabile per poi lavorarci. Lo scopo è che se ottengo questo errore, lo
script passa al prossimo pc e cerca di entrarci in telnet, ecc.... 
Questo è lo script e non so come ottenere
l'errore e metterlo in una variabile. Volutamente l'utente è sbagliato ma
la lan è corretta. Bene come ottengo l'errore "login failed: bad name or
password at 
te.pl
 line 6".
Script:
use Net::Telnet();
$t = new Net::Telnet (Timeout => 3);
$t->open("192.168.1.2");
$username=tizio;
$passwd=caio;
$t->login($username, $passwd);
Errore:
login failed: bad name or password at 
te.pl
 line 6

 l'errore e metterlo in una variabile.
Appena ieri è stato trattato lo stesso problema sul ng... :-)
http://usenet.libero.it/cgi-bin/ViewArticle.epl?MESSAGE_ID=%3C20030610143706%2E11945856%2Eenrico%40sorcinelli%2Eit%3E&TABLES=RECENT_MSG&GRUPPO=it%2Ecomp%2Elang%2Eperl&CATEG_PARAM=Computer%20e%20Internet&SOTTOCATEG_PARAM=Linguaggi%20di%20programmazione
by
	- Enrico

Newsgroup: it.comp.lang.perl
Titolo: pdf - fdf

ciao a tutti
il mio problema è creare pdf utilizzando dei template già esistenti.
Ho visto che questo si dovrebbe riuscire a fare con Adobe FDF Toolkit, 
che mette a disposizione anche i moduli per il perl, sia unix che 
windows.
l'ho scaricato e insatllato in windows, ma appena tento di usarlo, anche 
con un seplice:
use Acrobat::FDF;
print "ciao\n";
ottengo questo errore:
Can't locate loadable object for module Acrobat::FDF in @INC (@INC 
contains: C:/Perl/lib C:/Perl/site/lib .) at 
C:/Perl/site/lib/Acrobat/FDF.pm line 739
(la linea 739 è la fine del modulo FDF.pm)
è come se non trovasse le .dll che nella guida dice di mettere sotto 
winnt\system32 e di registrarne una con
regsvr32 FDFACX.DLL, 
cosa che ho fatto.
qualcuno ha idee ho mi sa indicare un'altra strada per fare la stessa 
cosa?
grazie
ciao

cosa?
Ci sono diversi altri moduli per la produzione di documenti PDF (PDF::API2,
Text::PDF, ecc.), non so però se possano fare quello che ti serve.
Ciao.

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

Ciao  a tutti!
Finalmente sono riuscito ad installare Postgres sulla mia macchina Unix.
Mi servirebbe un po' di documentazione su come accedere ai db postgres via
perl... qualcuno sa dove cercare? Esiste qualche modulo già fatto che
semplifichi la vita? A presto!
Salva



 
http://search.cpan.org/search?mode=module&query=postgres
 
http://www.symbolstone.org/technology/perl/DBI/
Max


Correzione: ignora il primo link, usa uno di questi due
 
http://search.cpan.org/search?dist=DBD-Pg
 
http://forteviot.symbolstone.org/cgi/dbi/moduledump?module=DBD::Pg
Max

 Esiste qualche modulo già fatto che semplifichi la vita? A presto!
  Puoi usare la coppia di moduli DBI-DBD::Pg. Il primo lo trovi sul
CPAN, il secondo su:
 
http://www.postgresql.com
 
	Alla prossima,
		Marco
Newsgroup: it.comp.lang.perl
Titolo: delucidazioni su formmail.cgi

come mai se scarico dei cgi da internet e li attivo nel mio server non mi
funzionano?
per generare un formmail devo per forza compilarlo direttamente con il perl
del mio server o c'è un altro modo?
saluti
giampiero

!

Gli script Perl non vanno compilati (o meglio, non serve farlo). Non e`
pero` detto che uno script che scarichi funzioni subito sul tuo
server, potrebbe essere necessaria qualche modifica. Hai provato
a leggere l'eventuale documentazione acclusa?
	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!

 wrote in message
slrn8h14...@karma.italpro.to...


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

Salve.
Volevo sapere dove è possibile trovare il programma che sia in grado di
leggere gli script Perl.
Mi spiego meglio.
Ho scaricato uno script in PERL dalla rete, e nella configurazione, mi
chiede di indicare l'URL del programma che dovrebbe leggere lo script. Nel
caso il mio server non avesse tale programma, ma mi permettesse di inserirlo
nelle mie pagine, dove posso trovarlo?? E soprattutto, è possibile?
Un'altra piccola cosa. Quando mi chiede di indicare percorsi, la tecnica è
la stessa dell'HTML?? (I due puntini [../] per farlo "tornare" indietro di
una directory, etc..)
Grazie,
Sergio
P.S: possibilmente rispondetemi a 
ser...@snpp.com

una directory, etc..)
Si.
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/
Newsgroup: it.comp.lang.perl
Titolo: Formattazione

Ciao a tutti,
vorei sapere se conoscete un comando che mi consenta di stampare su un file
delle stringhe di lunghezza variabile in campi di dimensione fissa,
completando il campo, dove necessario  con degli spazi e il test allineatpo
a destra.
Se per esempio devo stampare:
    Minnie  Topolino          Pippo
oppure
    Minnie     Pippo       Topolino
dove il primo campo e il secondo sono di 10 caratteri e il terzo di 15, ma
non posso sapere a priori la lunghezza della stringa che andra' ad
occuparli.
Vi ringrazio per l'aiuto.
Ciao,
Giuseppina.

 allineatpo a destra.
 perldoc -f format
 
http://www.perldoc.com/perl5.6/pod/func/format.html
 perldoc -f write
 
http://www.perldoc.com/perl5.6/pod/func/write.html
 perldoc perlform
 
http://www.perldoc.com/perl5.6/pod/perlform.html


se $s1,$s2,$s3 sono le stringhe da stampare:
open(OUT, "> out.txt" || die("non posso aprire out.txt\n");
printf OUT "%10s %10s %15s\n", $s1,$s2,$s3;
per allineare le stringhe a destra oppure
printf OUT "%-10s %-10s %-15s\n", $s1,$s2,$s3;
per allinearle a sinistra.
HTH

Newsgroup: it.comp.lang.perl
Titolo: Aiuto !!! Conversione di MsDoc in formato .ps

Come posso convertire un file .doc di MS Word in formato .ps ?

cerchero` un'altra donna dentro ai sogni di Tarzan

Newsgroup: it.comp.lang.perl
Titolo: Regexp nelle variabili

Salve.
Non so se č stato gia posto il problema, in tal caso vado a fare una
ricerca su dejanews.
Volevo sapere se č possibile inserire un regexp in una variabile per
poi effettuare il matching.
Es.
sub prova {
	$rg = $_[0];
	$str = "pippo";
	if ($str =~ $rg) {
		print "trovato\n";	
	} else {
		print "non trovato\n";
	}
}
&prova (/pippo/,"pippo");
Scritto cosě non va, ma non so se č una limitazione del linguaggio o
una mia castroneria.
Potete darmi chiarimenti?
Sono un newbie del perl :-)
Grazie.

 	if ($str =~ $rg) {
Cosě non va bene. Hai due alternative:
1. 
      $rg = qr/$_[0]/;   
      $str =~ $rg;   
 
2.
      $rg = $_[0];
      $str =~ /$rg/;       
Per ulteriori dettagli sull'operatore qr// 
  perldoc perlre
  perldoc perlop
Max

Newsgroup: it.comp.lang.perl
Titolo: Lo script non riceve la QUERY_STRING, come mai?

Eppure dovrebbe essere facile...
Lo script viene attivato da un link ipertestuale che punta a
http://host.com/cgi-bin/c.pl?26
la query string e' sempre e solo un numero.
Poi, lo script 
c.pl
 dovrebbe avere QUERY_STRING == 26, invece
QUERY_STRING non contiene niente!
Cosa sto sbagliando?
Grazie
--
Automatic posted from 
giglio.iol.it
 [195.210.91.87]
via Mailgate Server - 
http://www.mailgate.org

Stefano wrote:

Uhm mi sembra 1 po una cavolata ma sai e' appena passata l'una di
notte...
hai provato a passare un nome alla paramento della query string cioe':
http://host.com/cgi-bin/c.pl?pippo=26
?
ciao
            Davide
--
Davide Giansoldati
- 
http://labpf.usr.dsi.unimi.it/
- 
http://www.zona-lambrate.com/
- email: 
gians...@pn.itnet.it
Newsgroup: it.comp.lang.perl
Titolo: Funziona a metà


                                  pointed out that the ExpDate Year should
be
                                  represented as YYYY instead of YY.
   Version 1.1   - 07/14/96     - Added secure option and routines.
   Version 1.0   - 07/14/96     - First Version Released
############################################################################
##
Have fun with this script, but if you can, please, please let me know the
URL
of where it is implemented so I can see my work in action (and add you to
the
list of sites using this script.)
############################################################################
##
Matt Wright - 
ma...@worldwidemart.com
 
http://www.worldwidemart.com/scripts/

 Mi potete aiutare.
Certo. Il prossimo post di 1700 linee ti aiuto inviando un followup
dello stesso all'abuse. Poi ti aiuta lui, vedrai ...
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

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

Salve,
qualcuno di voi ha mai avuto a che fare con il
modulo BioPerl ?
Impressioni a riguardo ?
 Raffaello
/-\_/-\_/-\_/-\_/-\_/-\_/-\_/-\_/-\_/-\_/-\_/-\
Raffaello Galli
Database Administrator (Lehrach department DB)
Max-Planck-Institut fuer Molekulare Genetik
Abteilung Lehrach
Ihnestrasse 73		D-14195 Berlin-Dahlem
/-\_/-\_/-\_/-\_/-\_/-\_/-\_/-\_/-\_/-\_/-\_/-\

Non ancora ma mi auguro di averci presto a che fare. Tu per cosa lo dovresti
usare?
-- 
---
dawe
www.daweonline.tk

 usare?
Io gestisco un DB per un istituto di genetica molecolare, e ho
visto che un mio collega lavora in Perl e lo usa ampiamente.
Volevo informarmi in anticipo, nel caso volessero aggiungere
qualche "feature" all'interfaccia del DB (che ho scritto
in PERL).
Per ora l'interfaccia disponde di un BLAST e funziona benone,
ma per questo non ho avuto bisogno di BioPerl.
 Raffaello

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

Ciao a tutti
sono un neofita e quindi non meravigliatevi delle mie domande (presenti e
future)   :-))
ho visto su alcuni esempi il require della libreria 
cgilib.pl
dove posso trovarla?  e + in generale, esiste un elenco di librerie
disponibili con la descrizione delle funzioni?
grazie.

 disponibili con la descrizione delle funzioni?
Ciao,
per Perl esiste il CPAN, ci puoi trovare quasi tutto quello che ti può
servire. Lo trovi a 
www.cpan.org
 o più comodamente a 
search.cpan.org
.
La libreria 
cgilib.pl
 è oramai da alcuni anni superata in favore di
CGI.pm.
Per alcuni ottimi script da utilizzare e da studiare per imparare ti
consiglio di vedere quelli del progetto nms: 
nms-cgi.sourceforge.net
Marco.
Newsgroup: it.comp.lang.perl
Titolo: cerco server gratuito

Come da oggetto cerco un server gratuito per mettere il mio sito con le cgi.
Mi potreste consigliare qualche indirizzo? Possibilmente non italiano in
quanto spesso bisogna avere un indirizzo email italiano e quindi io abitando
in svizzera sono escluso automaticamente.
Grazie Bob
200...@ticino.com

 wrote in message
7t7d6c$3pm$1...@pollux.ip-plus.net...


Beh, ce ne sono tanti.
Il migliore è 
www.hypermart.net
poi c'è 
www.virtualave.net
comunque vai su 
www.freewebspace.net
 e fai una ricerca avanzata selezionando
CGI.




 wrote in message 7t7k3a$o8l$1...@nslave1.tin.it...


Vabbč, puoi metterlo lo stesso e avrai la qualitą di un servizio commerciale
GRATIS

Newsgroup: it.comp.lang.perl
Titolo: inserire contatore in formmail





Salve a tutti,


 


avrei necessita' di inserire un numero progressivo nelle mail 
mandate via web tramite il formmail di Matt Wright. Ho provato ad adattare ed 
inserire il codice di un textcounter:


[...]


# Contatore
&mail_count;


[...]


sub mail_count {


  
open(COUNT,"/usr/www/htdocs/taxidelmare/mailcounter/mailcounter.txt");
  
$Hits = <COUNT>;
  close(COUNT);
  $Hits++;
  
open(COUNT,">/usr/www/htdocs/taxidelmare/mailcounter/mailcounter.txt");
  
print COUNT $Hits;
  close(COUNT);


  $mailcounter = $Hits;


}
[...] 


print MAIL "Richiesta numero: 
$mailcounter\n\n"
[...]


 


La directory mailcounter e il file mailcountertxt (una unica 
riga con scritto il numero 1) sono world writable, ma il file rimane sempre al 
numero 1, senza incrementare, cioe' non scrive o non effettua l'incremento. 

Il risultato e' semre 500 Internal Server Error (non ho 
purtroppo accesso all'error log)


 


Qualcuno puo' darmi qualche indicazione in 
proposito?


Grazie.


Roberto Trama


 


 



in...@taxidelmare.it
 ("Taxi del Mare") wrote:
1. Non postare in html
2. Non puoi provare ad eseguire il tuo script sul tuo pc senza passare dal
server web? 
-- 
Saluti,
Giancarlo

Salve a tutti,

Prova a inserire qualche "die" dopo gli "open", prova a mettere
qualche
print $Hits."\n";
dopo "$Hits = <COUNT>;", "$Hits++;" ,  "print COUNT $Hits;"
e vedi cosa ti restituisce.
Inoltre ti conviene attivare un sistema di locking per evitare accessi
contemporanei al file.
Ciao
Andrea Busia
No Spam, Grazie.