mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: ATTACCARE UN FILE A UN FORM

Ho un urgente bisogno di uno script in perl che dia la possibilità di
attaccare un file (remoto) ad un form.
Esempio. Un utente si collega al mio sito e vuole spedirmi un file (che si
trova sul suo harddisk) e lo fa attraverso un form.
Come si può realizzare? Ne esiste una già uno preconfezionato gratuito?
Grazie
Oliviero Massimo

Si esiste, vai a cercare in 
http://www.perl.com
 e ne troverai di tutti i
tipi!!
Alberto


...


c'e' CGI-LIB.pm che ti permette di gestire il file come ti pare...
solo che non mi ricordo piu' dove lo avevo trovato.
magari mandami una mail se ti interesssa che te lo spedisco.
ciao
Mattia


Newsgroup: it.comp.lang.perl
Titolo: net::ftp: quale sintassi???

salve,
non riesco ad uplodare i file con il metodo put() . Io ho provato con:
$ftp->put(/directory/nomefile.txt);
Per quanto riguarda il metodo get(), mi posiziono nella directory dove
risiede il mio file e scrivo
$ftp->get(nomefile.txt);
risultato: mi mette il file nella cartella cgi-bin, dove risiede il mio
script.
Sarei grato se mi si spiega la sintassi di questi due metodi, possibilmente
con degli esempi.
Grazie
-- 
Posted from 
smtp3.libero.it
 [193.70.192.53] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 script.
Ah. Ma e' un CGI, non un programma normale <g>. Lo sai vero che i server
fanno girare i CGI nella directory che gli pare e piace, come un utente che
non sei tu.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 soprattutto quando la sintassi dovrebbe essere corretta (ovviamente qui
non
Io l'ho provato e mi dice:
Can't locate object method "new" via package "Net::FTP::A" at
D:/perl/lib/IO/Soc
ket.pm
 line 162.
ho usato lo stesso esempio della pagina di help usando il put.
La cosa strana è che se voglio per ex cancellare qualche file funziona, se
invece voglio trasferire o col put o col get mi da questo errore. Lo script
è il seguente:
use Net::FTP;
$ftp = Net::FTP->new("hf2");
$ftp->login("dav","dav");
$ftp->put("autoexec.bat");
$ftp->quit;
Qualche idea?
Grazie
--
Saluti
~~~~~~~~~~~~~~~~~
Veneziano Davide (
ve...@vene.ws
)
http://www.vene.ws
  Faq e manuali, Servizi Internet
http://mail.vene.ws
 E-mail Gratuite Pop3/Smtp/Web
ICQ# 14047537

 $ftp->quit;
Con le dovute modifiche (ovvero con indirizzo e login adeguato al mio caso)
questo script mi funziona senza problema.
Sto usando
perl 5.005_03
Net::FTP 2.56
IO::Socket 1.25


 questo script mi funziona senza problema.
Sě, probabilmente č come dici te, ho messo su una versione non corretta.
Infatti, non trovandola nella versione che ho (5.6.0 per Win32) ho cercato
su internet il file 
ftp.pm
 e i suoi componenti e probabilmente ho tirato giů
quelli sbagliati :-(
Grazie cmq.

Newsgroup: it.comp.lang.perl
Titolo: [OT] L'unione fa la forza (anche dei programmatori)

Salve a tutti!
Qualcuno conosce newsgroup, siti, ecc. dove i programmatori italiani
discutono di problematiche relative al lavoro di programmatore?
Non mi riferisco a questioni tecniche, ma a quelle legate alla professione.
Quello che sto cercando è un luogo dove acquisire/scambiare idee,
informazioni, opinioni, fare confronti, su tutto ciò (di non tecnico) che
riguarda i programmatori: qualità del lavoro (ambiente, remunerazione,
ecc.), problematiche specifiche per il dipendente e per il libero
professionista (questioni pratiche, legali, ecc.), e via dicendo.
Grazie

 riguarda i programmatori: qualitą del lavoro (ambiente, remunerazione,


Newsgroup: it.comp.lang.perl
Titolo: script sempre attivo..

Si può fare uno script di perl che sia sempre "attivo" senza ricorrere ad un
ciclo infinito, senza racchiudere le mie istruzioni in un blocco che
richiamo infinitamente con "next"?
dawe
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 richiamo infinitamente con "next"?
Potresti fare del tuo script un demone con:
Net::Daemon o Proc::Daemon
oppure usando
PPerl
Li trovi tutti su CPAN.

 PPerl
Grazie, lunedě provo!
dawe
-- 
per rispondere via e-mail, togli LE_MANI_DALLA_TASTIERA
Newsgroup: it.comp.lang.perl
Titolo: trasferire un file da un server ad un altro

C'è la possibilità utilizzando un CGI /perl di trasferire un file da un
server ad un altro?
ad esempio mettiamo che io abbia un file (file.htm) situato in:
http://www.miosito.it
 (/user/www/file.htm)
e lo voglio trasferire su:
http://www.nuovosito.it
 (/utenti/www/file.htm)
Come posso fare?

 server ad un altro?
   Se il server di destinazione offre un servizio FTP, e se e` 
configurato in modo che si possa scrivere nella cartella di 
destinazione, e` possibile utilizzando il modulo Net::FTP. Altrimenti, 
si puo` tentare un upload mediante il meccanismo di trasferimento HTTP 
(il server di provenienza, come se fosse un browser, invia il file in 
POST) con i moduli LWP, ma e` piu` complicato.
-- 
Alla prossima,
Marco

server ad un altro?
Se hai accesso via telnet/ssh a tutti e due i server, si:
http://www.diludovico.it/guide/transfer.shtml
Dario

Newsgroup: it.comp.lang.perl
Titolo: Errore in run time

Ciao,
ricevo questo errore:
Unmatched ) in regex; marked by <-- HERE in m/object) <-- HERE / at
get_param.pl
 line 75.
per una particolare stringa,
sapete spiegarmi il significato ?
Grazie
Andrea
PS: La stringa e' "Reason: authorizationError (access denied to that
object)",

 object)",
Andrea, quel che serve non è la stringa, ma l'espressione regolare che 
stai cercando di applicare (ossia quel che c'è alla riga 75 del tuo script).
posso immaginare sia una cosa del tipo:
   $x =~ /object)/;
nel qual caso devi mettere una backslash prima di ")", che altrimenti 
viene interpretato come un carattere speciale nelle espressioni regolari:
   $x =~ /object\)/;
oppure, potresti star applicando una stringa come espressione regolare:
   $x =~ /$stringa/;
nel qual caso, devi specificare che la stringa va interpretata 
letteralmente, senza alcun carattere speciale, così:
   $x =~ /\Q$stringa\E/;
ma queste sono solo supposizioni...
cheers,
Aldo

    $x =~ /\Q$stringa\E/;
Perfetto era questo il caso,
grazie mille,
Andrea
Newsgroup: it.comp.lang.perl
Titolo: Aiutino su espressione regolare (!)

Ciao,
ho una stringa che ha diversi campi di cui 2 separati da 5 spazi. Il SECONDO
campo di 5 spazi deve essere sostituito da un \n in modo che vada daccapo.
La stringa è:
$pippone = "LB26   infant brain 1NIB, Soares  10     0.02     #3V4   NIH_MGC_14  6     0.04     3582   ST0166  5    16.67"
ho provato con $pippone =~s/     /$2\n/g;
ma mi ritrovo così:
LB26   infant brain 1NIB, Soares  10
0.02
#3V4   NIH_MGC_14  6
0.04
3582   ST0166  5    16.67
invece di:
LB26   infant brain 1NIB, Soares  10     0.02
#3V4   NIH_MGC_14  6    0.04
3582   ST0166  5    16.67
Strano che l'ultima riga (3582) me lo fa !
Mi date una mano ?
Grazie
Giuseppe

> ho provato con $pippone =~s/     /$2\n/g;
 
$2 sai cosa fa vero? :-)))) $1, $2 ecc... contengono (nell'ordine) quello che ha trovato la RE ed era incluso in parentesi. Es /(aaa).*(bbb)/ : $1 contiene aaa e $21 contiene bbb. Siccome non hai usato parentesi, direi proprio che $2 non ritorna nulla.
 
se vuoi identificare il secondo gruppo di 5 spazi nella stringa, hai alcune soluzioni, una delle quali è definire la ricerca per il primo gruppo e il secondo gruppo sostituendo il secondo gruppo con l'a-capo:
 
$pippone =~ s/(\s{5}.*?)\s{5}/$1\n/g;
 
Cerca di capire come questa RE lo fa e posta qui la tua spiegazione, così ci invoglierai ad aiutarti in futuro.
 
ciao
 
 
-- 
-.. --- -- .. --.. .. --- 
-.. . -- .. -.-. .... . .-.. .. ... 
 

 
Lo farò, non posso stare sempre a chiedere aiuto !
Grazie per la tua cortesia
Giuseppe

 $pippone =~ s/(\s{5}.*?)\s{5}/$1\n/g;
scusa, ma che significa .*?... so cosa significa .* e .?, ma non capisco
cosa fa .*?
vuol dire che ci puo essere una parola o nessuna?
grazie,
Paulus
http://spazioweb.inwind.it/it_informatica
--------------------------------
Inviato via 
http://usenet.libero.it

no, vuol dire che becca la PRIMA occorrenza di quello che viene dopo e non l'ultima:
 
my $str = 'a111a222a333';
my ($match) = $str =~ /a(.*)a/;
print "Senza ?: $match\n";
my ($match) = $str =~ /a(.*?)a/;
print "Con ?: $match";


 vuol dire che ci puo essere una parola o nessuna?
Vuol dire "qualsiasi cosa quante volte vuoi ma il meno possibile".
Esempio
$s='abbbbbaccccaddddd';
$s=~s/(a.*)a/$1A/;
print $s."\n";
Guarda cosa seccede.
poi sostituisci la seconda riga con con
$s=~s/(a.*?)a/$1A/;
e guarda cosa cambia.
-- 
Saluti,
Giancarlo

> no, vuol dire che becca la PRIMA occorrenza di quello che viene dopo e non
l'ultima:
ORCA !!!!!....
una delle cose belle delle regexp e' che mi trovo gia previste situazioni
che non avevo neanche immaginato potessero servire :)


> Guarda cosa seccede.
"seccede" che ho ancora mooolto da imparare sulle regexp :)))
Grazie!


> "seccede" che ho ancora mooolto da imparare sulle regexp :)))
 
perldoc perlretut

Newsgroup: it.comp.lang.perl
Titolo: Can I use perl to get a web page.

I want to use perl to get a web page. for example
http://www.hp.com/index.html
.
How can I do it.
HP-UX 11.00 Perl 5.003
--
Wang FeiYun

 HP-UX 11.00 Perl 5.003
Use the LWP::* modules 
-- 
___________________________________
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

Newsgroup: it.comp.lang.perl
Titolo: hash vuoto

ciao a tutti!
dovrei controllare se un hash è vuoto, cioè scrivere una roba del tipo
if(hash è vuoto)
come posso fare?
grazie

 come posso fare?
Contando il numero delle chiavi contenute nell'hash, ovvero 
  if (not scalar keys %hash) {  # l'hash e` vuota
    ... 
  }
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

   }
Che ha che non va
  unless (%hash) { # e` vuota
  }
?
Analogo a:
  unless (@array) { # e` vuoto
  }
-- 
  dakkar

   }
Niente :) Il tuo metodo e` migliore. 


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

Salve al NG,
che voi sappiate, esiste un programma in grado di convertire gli script in
perl in sorgenti C?
Grazie
Giuseppe Di Natale
gdin...@tin.it

 
perldoc  -q "into byte code or C"
MM

perl in sorgenti C?
"perlcc" non ti va bene?
CIao
Andrea

Dove lo trovo?

Dove lo trovo?
E' incluso in tutte le distribuzioni del perl
Ciao
Andrea

Newsgroup: it.comp.lang.perl
Titolo: newbie che muove i primi passi..

ciao ragazzi,
allora io metto subito in chiaro che in questo momento sto usando perl
non come scelta ma come obbligo.. anche se a dire il vero il linguaggio
spacca e piano piano mi sta conquistando sempre di +.
Venendo al dunque.. io volevo sapere se potevo far eseguire uno script
perl via web e se si come..
Per questo ho a disposizione un interprete perl su server linux e php.
(non chiedetemi perche non uso php perche' la storia e' molto lunga).
inoltre sarebbe carino se qualcuno mi consigliasse un bel sitino con
diversi tutorial...
GRAZIE 1000
SHE
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 (non chiedetemi perche non uso php perche' la storia e' molto lunga).
Io le mie buone ragioni le ho per usare il Perl al posto del PHP :-)

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

Ciao a tutti, vi volevo chiedere una cosa che riguarda i socket:
ho un programma che 'funge' da 'server' e si mette in ascolto su una porta 
in attesa di connessioni, un volta che riceve la connessione l'accette.
fino qui tutto bene
il fatto è che volevo sapere l'host remoto che si è connesso a me, mi potete 
aiutare?
2) come posso dire al socket: quando ti disconnetti allora fai qualcosa, si 
può?
3)(non centra nulla) come cancellare tutti gli spazi(" ") da una stringa: es 
da "ciao come va"->"ciaocomeva"
scusate x la quantità delle domande =)
grazie x l'attenzione

 da "ciao come va"->"ciaocomeva"
$x='ciao come va';
$x=s/\s//g;
Ciao Stefano
Newsgroup: it.comp.lang.perl
Titolo: Visualizzare un semplice PDF

Come posso visualizzare un semplice Pdf nel medesimo browser da cui lo
script è stato lanciato?
Io ho provato a fare un redirect, ed il pdf viene aperto correttamente, con
l'unica pecca che il back del browser se premuto ti refresha la stessa
pagina anzichè tornare indietro di una.
Buona mattinata!
luca

script è stato lanciato?
Il mio personalissimo (e, ovviamente, discutibilissimo) consiglio e': non
farlo.
Io preferisco di gran lunga avere una sessione separata di Acrobat Reader,
con tutti i pulsantini e comandi dove devono essere, in cui visualizzare il
documento PDF. Quelle cose mescolate non mi piacciono per nulla.
Ciao.

con una semplice redirect alla fine del cgi/perl il pdf viene aperto dentro
al browser con tutti i relativi pulsanti, il problema consiste nel pulsante
back, che mi refresha la pagina pdf!
Fosse per me farei come dici tu, ma la decisione purtroppo non dipende da
me, almeno per il momento ;-) vedrň di fagli cambiare parere, anche perchč
sarebbe davvero molto piů comodo.
Mi consiglieresti di utilizzare sempre un comando dos tramite il system?
Ciao

Mi consiglieresti di utilizzare sempre un comando dos tramite il system?
Se appena appena si puo' evitare, no. Su sistemi Windows, lanciare i
programmi con system non e' proprio il massimo. La maggior parte dei
compiti generici si possono fare meglio direttamente da perl, con l'aiuto
di qualche modulo.
Se, d'altra parte, quello che devi fare e' proprio eseguire un programma
esterno, l'alternativa (usare Win32::Process) e' piuttosto complicata da
usare.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: Coda di stampa!!

Ciao!
Ho ancora dei problemi con la coda di stampa relativa ad una stampante di rete
Lanier. La mia amchcian Linux gestice la coda di stampa per questa e per
altre stampanti, tutte collegate alla LAN tramite un print server D-Link.
Tutte le stampanti funzionano bene, ad eccezione appunto della Lanier che,
quando ad esempio finisce la carta, causa la rimozione dalla coda di
stampa della macchina Linux di tutti i job(!!!). Se non finisce la
carta non ci sono problemi, pero` prima o poi capita e sarebbe bello
che i job rimanessero in coda.
Alla sparizione di ciascun job corrisponde un idnriizzo e-mail inviato
a chi ha inviato la stampa che indica appunto la rimozione.
Il daemon che uso e` LPR. Consigli?
   Grazie, Michele. 
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

Ehm... e ale'! Ho inviato il messaggio nel newsgroup sbagliato. Chiedo
scusa a tutti.

Newsgroup: it.comp.lang.perl
Titolo: HELP: Eseguire file sul server da una pagina HTML





Ciao a tutti,


mi sono imbattuto in un problema che sembra facile 
da superare... ma dato che non conosco i comandi e se la cosa in effetti e' 
possibile mi rivolgo al nwg.


Devo eseguire un file, che normalmente lancio da 
rigo di comando, da una pagina HTML (insomma php o perl che sia).


Come si fa?


Ho provato a farlo in php ma il server mi risponde 
con messaggi di errore, nonstante gli avessi dato i permessi di esecuzione al 
file.


Insomma help me, please... :-(


thanx a lot.


Pierpaolo


 


p.s.: Il sistema sul quale sto lavorando e' Linux 
Red Hat 6.1, Server Web Apache.







Bhe' grazie per l'interessamento!


Comunque per chi dovesse trovarsi in difficoltà 
come me su questo problema si puo' risolvere cosi':


 


Si crea un file con estensione ".shtml" sfruttando 
cosi' i comandi SSI.


All'interno del file, un comune file html, si 
inserisce questa stringa:


 




<!-- #exec cmd="(comando 
linux)"-->


 




dove per comando linux si intendono tutti i comandi 
che normalmente si richiamano via command shell.




Ad esempio puo' essere la data, del tipo 



 




<!-- #exec cmd="date"-->


 


e ritorna la data del server.


Oppure puo' essere uno script da voi creato!


 


Insomma c'e' da divertirsi.


Ricordarsi di chiamare il file con estensione ".shtml", e non ".shtm" o 
quale altra diavoleria vi inventate altrimenti non funziona! (a meno che non vi 
personalizzate le estensioni).


Buon divertimento,


Pierpaolo



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





Sicuramente mi saro' espresso male, ma se una 
persona posta in un newsgroup di sicuro e' per chiedere aiuto su un qualcosa che 
non sa e che non da per scontato!!


Poco felice come uscita Marco, mi 
dispiace.


Comunque non siamo certo qui per disquisire su 
queste cose ma per aiutarci su problematiche che per molti saranno facili ma che 
per molte altre persone, come me, sono difficili e cercano di imparare con 
l'aiuto dei piu' aitanti come te!


Saluti,


Pierpaolo



dei piu' aitanti come te!
PLONK
Oha
-- 
A: Is FOR an acronym or a TLA?
B: the second.

 PLONK
Forse 
$*=q^06$02{05}04;01^;
$z="";@%=split/\W/,$*;@_=map{hex}@%;
for(@_){$_=chr($_+74);s%[zgf]%$z%g;my$t=$_;push@#,sub{$t};}
for(@#){print&$_}0xf00f&print$/;
era piu' adatto a icl.perl.
:-))
Bye
Andrea Capriotti

Newsgroup: it.comp.lang.perl
Titolo: colore testo

salve
vorrei inserire in un mio codice perl delle scritte colorate
ho provato con il modulo Term::ANSIColor ma non sembra sortire alcun
effetto.
al posto di presentarmi dele scritte colorate, ottengo l'output
preceduto (o seguito) da codici tipo [34 ecc.ecc.
come devo fare?
programmo su windows , ed uso activeperl come distribuzione perl
vi ringrazio anticipatamente
Francesco

 programmo su windows , ed uso activeperl come distribuzione perl
Se installi Win32::Console::ANSI (devi scaricare il ppm), basta mettere 
all'inizio del tuo codice:
use Win32::Console::ANSI;
use Term::ANSIColor;
e funzionerà tutto senza ulteriori modifiche ;-)
Ciao,
Emanuele.
Newsgroup: it.comp.lang.perl
Titolo: Solito novellino ...

... con problemi banali.
Ho cominciato da qualche settimana ad utilizzare Perl, dopo essere rimasto
colpito favorevolmente da questo linguaggio gia' da qualche anno.
Mi sono procurato il *Programming Perl* di Wall-Schwartz, ho scritto il
solito *Hello, World*, ho scoperto da qualche settimana questo ng, ho qui
recepito alcuni  link, scaricato del materiale ed eccomi entusiasta a
cercare di programmare qualcosa di piu' ambizioso del saluto al mondo.
Dopo aver letto un articolo dall'  Oreilly (Tom's Object-oriented Tutorial
for Perl.htm), ecco che mi metto alla prova  e, per afferrare i meccanismi
dell' O-O in Perl,  cut&pasto il codice che mi interessa dall' articolo (la
parte all'interno del *Data Members as Variables*) e lancio la compilazione
(Win95, ActivePerl 5.1.3). Sorvolo sulle solite ingenuita' del principiante
superficiale, che mi portano ad approfondire via via alcune cose, fino a
capire che se voglio utilizzare il modulo ALIAS ("use Alias") devo prima
procurarmelo: scarico Alias-2.32, lo copio in c:\Perl\lib e lancio il
codice:
solito errore di *can't locate loadable object for module Alias in @INC* ;
@INC e' correttamente impostato a c:\perl\lib.
Rileggo il readme allegato e trovo l'avviso di lanciare le righe
      perl Makefile.PL
      make
      make test
Lancio la prima riga ed ottengo un file *makefile*  lungo 22.153;  per le
altre righe mi arresto, perche' mi sorge il dubbio che forse il tutto e' per
Unix, non per win95.
Devo abbandonare (malvolentieri) la linea suggerita nell'articolo o, come
ritengo molto piu' probabile, c'e' una soluzione che non vedo per ignoranza
?
Ringrazio per l'attenzione
Greg
------------------------------------------------------------
C. Gregorio

 ?
Verifica se sul sito dell'Active State c'e' il PPM relativo al modulo in
questione. Se non c'e' e il modulo non richiede XS, te la dovresti cavare
con un buon programma di make per Win32 (credo 'nmake', ma non so dove lo si
trovi)
Per inciso, ho verificato sul sito di ActiveState e c'e' anche il PPM di
Alias, in 
http://www.ActiveState.com/packages/zips/
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)


Bentrovato, Maurizio..
Ho prelevato ed installato il PPM!
Grazie per l'informazione (sicuramente, stante il mio bassissimo livello
Perl, ripostero' per altri problemetti..)
Greg
Newsgroup: it.comp.lang.perl
Titolo: Grafica col Perl :-)

salve a tutti,
lavoro con perl da poco tempo e con l'interprete ActivePerl sotto
windows. finora l'ho sempre usato per 'applicazioni' da console...
mi chiedevo come fosse possibile con Perl inmplementare qualcosa di
grafico, tipo le finestre (magari usando le Api, mi servirebbe
sopratutto per win32...). avete qualche suggerimento ?
saluti,
korleon
-- 
cp win3.1 winxp
rm -r doors_,_windows_&_gates
mv gates out_of_windows
mv $$$ antitrust_judge

 sopratutto per win32...). avete qualche suggerimento ?
wxPerl e` una delle alternative.
http://www.perl.com/pub/a/2001/09/12/wxtutorial1.html
Jouke Visser (autore dell'articolo), tra l'altro, sta scrivendo un libro
sulla realizzazione di interfacce grafiche in Perl.
Oppure puoi usare Tk.
ciao
Stefano

 Oppure puoi usare Tk.
Tutto ok! In più per win32 c'è Win32::GUI (
http://dada.perl.it
)
Win32::GUI è solo per Win32 ma utilizzando le sue API ha il look&feel
di Win32. 
Tk ha il suo aspetto predefinito ma è portabilissimo da Win a Unix
(non cambi nessuna riga di codice...)
Anche Wx è come Tk ma è meno maturo di quest'ultimo anche se il suo
aspetto è davvero buono!
Tutti e 3 li installi facilmente sotto Win32 con ppm
Ci sarebbe anche Gtk+ sotto Win32... chi è riuscito ad installarlo
faccia un fischio!

Dove potrei trovare documentazione su Tk?
Grazie 
  Daniele
-- 
Posted from  [62.98.90.5] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie
http://www.perltk.org/
oppure scaricati da cpan il pacchetto (trovi doc al suo interno)
oppure cerca con google.
Newsgroup: it.comp.lang.perl
Titolo: GUADAGNA 250.000 Lire ALL'ORA!

Subject: GUADAGNA 250.000 Lire ALL'ORA!
Ciao,
Mi sono appena registrato in un nuovo sito che sta
riscuotendo un enorme successo.
Il sito si chiama IntelliAd e permette di guadagnare
da un minimo di 42.000 fino a 250.000 (!) Lire all'ora
semplicemente guardando pubblicità su internet. Non
sto scerzando e non c'è nessun trucco.
Sono solo una persona come te che ha semplicemente
scoperto questo incredibile servizio.
Visita la pagina di intelliad cliccanodo direttamente
questo link: 
http://www.intelliad.com/?249AF22F
Entra subito, vedrai che tutti gli amici ai quali
proporrai l'opportunità ti diranno di sì.
A presto!
Lucio Neri
________________________________
P.S. Ho mandato questo comunicato su questo newsgroup perchè lo sto
attualmente leggendo
in quanto sto studiando il Perl. Il volume che sto leggendo, molto ben fatto
è: PERL guida di riferimento con elementi CGI edizioni Apogeo - Open Press
pag 646 lire 69.000.
Ciao a tutti e scusate per l'intrusione ;-)
________________________________
Siti da visitare di interesse culturale:
http://utenti.tripod.it/poetidazione/
http://utenti.tripod.it/poetidazione/Borderland
_________________________________

 ha scritto nel messaggio
news:8ikq55$lng$1...@serv1.albacom.net...


 wrote in message 8ipo9o$guj$2...@sirmdpsin16.inwind.it...


Newsgroup: it.comp.lang.perl
Titolo: DIRECTORY CGI-BIN

Salve a tutti sono alla ricerca di 1 directory cgi-bin gratuita.
Vi prego aiutatemi
Sgarbi Ruggero

 Salve a tutti sono alla ricerca di 1 directory cgi-bin gratuita.
????
Ne ho una sul mio HD, se vuoi facciamo a metà! :-)
Ciao
M.
-- 
:wq

 ha
scritto:

ROTFL :D
(crosspost su iccl?)
Velenux.




 (crosspost su iccl?)
It.comp. ..... Che è iccl??
Ciao
M.
-- 
:wq

 wrote:

it.cultura.cibersocieta.lamer
te lo consiglio vivamente se ti vuoi fare qualche risata ogni tanto :)
by,
Veleno.

 te lo consiglio vivamente se ti vuoi fare qualche risata ogni tanto :)
Fatto, letto e ROTFLATO! Non sarà semplice toglierlo dalla lista dei
preferiti! ;-)
(ma chiudiamo che siamo OT e poi la gente, giustamente, si incazza!)
Ciao
M.
-- 
:wq
Newsgroup: it.comp.lang.perl
Titolo: Perl Editor

Quale editor (free) potrei utilizzare, che abbia un debuger, ed uno step by 
step ?
Grazie
§Simon 

 step ?
C'è Eclipse [1] con e-p-i-c [2]
Come debugger visuali ci sono ptkdb [3] e tcltkdb [4]
[1] 
http://www.eclipse.org/
[2] 
http://e-p-i-c.sourceforge.net/
[3] 
http://search.cpan.org/~aepage/Devel-ptkdb-1.1091/
[4] 
http://search.cpan.org/src/VKON/Tcl-Tk-0.87/demos/

 step ?
Che piattaforma? Windows? *nix? Mac? ...
Tieni conto che il debugger non ti aiuta con i CGI...
Io uso EMACS e tante print (e scrivo i test prima del programma, ma
questa è un'astra storia), quindi non so darti dritte...
-- 
  dakkar

 Tieni conto che il debugger non ti aiuta con i CGI...
falso :)
Se il CGI testato è in locale al tuo ptkdb, se nella shebang aggiungi
-d:ptkdb
automagicamente ti si aprirà il debugger e il browser attenderà i tuoi 
comandi. Testato su linux.

 writes:

Geniale! Non ci avevo mai pensato..
In effetti ci sono un paio di dettagli di cui tenere conto: perl (e il
debugger) eseguono a nome dell'utente del server web (nobody o simili)
e in un ambiente particolare... per cui potrebbe non trovare il server
X11, o potrebbe non avere il permesso di connettercisi
Credo che il sistema più semplice sia di tenere su un Apache "di
sviluppo" a nome tuo, su una porta non privilegiata, e testare i CGI
lì dentro.
Molto carina l'idea. Domanda più difficile: e per un handler mod_perl? ;-)
-- 
  dakkar

 ha scritto nel messaggio 
news:424016bc$0$6301$5fc...@news.tiscali.it...


Newsgroup: it.comp.lang.perl
Titolo: Passare variabili

Salve di nuovo :)
Stavolta vorrei sapere se qualcuno di voi conosce un modo per passare delle
variabili o delle string da un file script ad un altro.
Mi spiego meglio.
Nel file 1 eseguo delle operazioni di copia...
Il file 1 poi passa dei nomi al file 2 che li cancella.
grazie
:)
--
Giovanni Sasso

 Il file 1 poi passa dei nomi al file 2 che li cancella.
Domanda: il file 1 e il file 2 sono indipendenti? Posso usare il file 2 da
solo? O il file 1 da solo?
Se la risposta alle domande precedenti e' NO, non credo che tu stia cercando
di usare script separati, ma un'unico script. Allora file2 dovrebbe essere 
una subroutine di file1 e quindi ricevere i dati come normale subroutine.
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: script che crea link ai file,come?

Mi servirebbe uno script (su server NT) che legga il contenuto di una
directory del sito e crei una pagina riportante link ai file ivi
presenti...chi mi aiuta?
Grazie mille!

 wrote:
prova il comando:
opendir(CURDIR,"/home/tuofolder/".$gfolder)||die("Impossibile aprire
la cartella!");
@names=readdir(CURDIR);
for $name(@names){
....
}
closedir(CURDIR);
----------
Togli THEBEST per scrivermi.

On Mon, 28 Aug 2000 15:28:02 GMT, padi...@usaTHEBEST.net (Nicola)
wrote:

scusa ma ho messo un .$gfolder di troppo, la riga corretta č:
opendir(CURDIR,"/home/tuofolder")||die("Impossibile aprire la
cartella!");
----------
Togli THEBEST per scrivermi.
Newsgroup: it.comp.lang.perl
Titolo: Esistono delle FAQ?

Salve a tutti,
vorrei sapere se esistono delle FAQ per questo NG o almeno una serie di
links.
Questo perche´ ho bisogno di un po' di informazioni basilari, ma non
proprio di tutto...
Grazie.
--
DGP85               | May the Force be with you!
http://thedaps.net/
 | No Binaries or HTML at this address.
nos...@thedaps.net
  | Don't change the address.
Sent via Deja.com 
http://www.deja.com/
Before you buy.

links.
http://www.perl-it.org
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

Newsgroup: it.comp.lang.perl
Titolo: Corso Perl offline

Salve a tutti.
Vorrei rintracciare in rete un corso per imparare la programmazione
cgi/perl, che sia però scaricabile e soprattutto stampabile su supporto
cartaceo (vorrei studiarmelo mentre viaggio in treno x recarmi sul posto di
lavoro).
Ho trovato un po' di cosette, ma nulla di particolarmente adatto...
ovviamente qualcosa che sia accessibile ad un perfetto newbie :)
Potete aiutarmi?
Grazie anticipate!
-- 
Henry The Mole.
_________________________________
The Mole Zone: 
www.themolezone.cjb.net
Remove EHILABEPPE to e-mail me

 lavoro).
Visto che non dici cosa hai trovato, e visto che vuoi stamparli, ti 
segnalo dei pdf:
In inglese ce ne sono moltissimi, ma prova con l'ottimo libro:
http://learn.perl.org/library/beginning_perl/
In italiano:
http://www.programmiliberi.it/manuali/web/perl.html
http://www.polarnet.cnr.it/CORSI/APACHE/apache.pdf
http://www.dei.unipd.it/~ieeesb/pages/download/down/Perl_Tutorial.pdf
http://www.isinet.it/~marco/perl/perl.pdf
Lucidi di corsi universitari:
http://www.statistica.unimib.it/utenti/dellavedova/didattica/elementi_programmazione/corso.html
http://www.rcost.unisannio.it/antoniol/bd/html/disbd/lucidi.html
http://sgimida.mi.infn.it/~menasce/CorsoIVAnno/index.htm
 (PostScript)

 ti  segnalo dei pdf:
Grazie mille per la cortese e dettagliata risposta.
Un saluto.


Newsgroup: it.comp.lang.perl
Titolo: PERL su beppegrillo.it

Ciao, da qualche settimana sul blog di grillo compaiono post con nomi casuali (mi sembra presi da qualche elenco on line di cognomi italiani) che ricalcano vecchi post. Da quel che ho capito è una cosa che con PERL è abbastanza facile da realizzare ma essendo un profano completo mi chiedevo quale fosse la procedura da seguire: mi spiego, cosa si fa? si entra nel form e si scrive in PERL??
Scusate se la domanda sembra stupida ma è una curiosità.
Saluti


perl è un linguaggio di script..
Forse intendevi "è facile se si conosce il PERL"
Newsgroup: it.comp.lang.perl
Titolo: far partire in automatico uno script perl

ciao a tutti,
avrei bisogno di far partire tutti i giorni ad un'ora precisa uno script in
perl e/o php. come posso fare?
purtroppo non ho accesso telnet al mio server, solo ftp, per cui mi è molto
difficile intervenire su configurazioni del server (e d'altronde non saprei
come fare).
il mio sito gira su macchine linux e server apache.
qualcuno saprebbe aiutarmi?
gradite risposte anche in e-mail (
mar...@dino.it
)
grazie a tutti
--
Posted from 
mta24-acc.tin.it
 [212.216.176.77] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


puoi metterlo nel crontab, pero' adesso mi sfugge come si fa :))))

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

www.kobrass.it/target.html
fatemi sapere cosa ne pensate da 2 giorni l'ho realizzato
Saluti a tutti
Paolo Fusco Kobrass
www.kobrass.it

Carino.
Pero' credo che alcuni persagli spariscano troppo presto... e' vero
che sono un po' lento ma forse su qualcuno e' impossibile fare
centro...
comunque figo!
ciao,
dark wave


 wrote in message
news:ePyI8.19958$
8x3.4...@twister1.libero.it

-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Ma che cazzata č?

 
Non metto mie cazzate in flash nel NG di Perl.

 wrote in message
ePyI8.19958$8x3.4...@twister1.libero.it...


Newsgroup: it.comp.lang.perl
Titolo: TiscaliNet e i CGI

Ho attivato lo spazio web dell'abbonamento TiscaliNet che mi spettava.
Sapete se sul server si possono far girare degli script cgi (in Perl)
?
Ciao
  © 1999 - Pirozzo
http://www.listen.to/RadioSegugio
  Il motore di ricerca delle
frequenze FM
http://www.welcome.to/DuraLex
      Leggi fondamentali sul magico mondo
femminile
# Icq 39050880
Non servono più voti per it.fan.radio.radio105 , grazie di averlo
votato, cmq :-(

 ?
E chiedere a chi ti ha venduto l'account, piuttosto che a noi? 
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

|E chiedere a chi ti ha venduto l'account, piuttosto che a noi?
Ho fatto qualcosa di male ? Ho chiesto solo se qualcuno lo sapeva...
sarebbe stato sicuramente più rapido nelle risposte rispetto al
servizio di assistenza di TiscaliNet che, devo dire, si nasconde molto
bene...
;-)


 Ho fatto qualcosa di male ..........?
-- 
-------------------------------------------------------------------------
Hosting professionale a prezzi USA? 
http://www.servitelit.com/prezzi.htm
-------------------------------------------------------------------------

| bastava leggere quello che c'è scritto sul sito ! NON PUOI METTERE
TUOI
| CGI. Puoi usare solo il formmail, ma senza metterci le mani.
L'ho trovato, ma dopo un bel po'. Grazie cmq !
Ciao
   Pirozzo
~~~~~~~~~~~~~~~~~~~~~~~~~~~
http://www.listen.to/RadioSegugio
Il Motore di ricerca delle frequenze FM
~~~~~~~~~~~~~~~~~~~~~~~~~~~
Newsgroup: it.comp.lang.perl
Titolo: Tempo in millisecondi

per ottimizzare mi servirebbero i tempi in millisecondi, si puo'?
Grazie.

per ottimizzare mi servirebbero i tempi in millisecondi, si puo'?
time::hires
--
http://www.pigmalion.info/
Internet è uno dei veicoli più validi per la difesa della libertà,
poiché offre la verità a chi vuole vederla e intenderla...
Vinton G. Cerf

 time::hires
da istallare vero!?.. Non posso farlo installare, mi serve standard.
Grazie cmq.
Oxy.



mhh
adesso non mi vorrei sbagliare... ma su win mi sono riuscito ad usarlo
senza installarlo, mi sembra affiancandogli alcuni file che voleva(e
che sono nel modulo) e mettendo tutto in @INC
L'idea era, dato che il mio hosting linux ritardava nell'installazione
del modulo, provai a fare così.
Ci riuscii su win non su linux...poi lo hanno messo e ho abbandonato
l'impresa


 l'impresa
Vabbe', pazienza, ora i test li faccio offline... almeno per avere un'idea
anche se
immagino ci siano delle grosse differenze di esecuzione tra Linux e Win.
Grazie


 Win.
Non vorrei fare un paragone del ca**o, però in effetti penso sia come
cronometrare i tempi della stessa auto su due circuiti diversi. ;)
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

cronometrare i tempi della stessa auto su due circuiti diversi. ;)
Forse è meglio dire 2 auto sullo stesso circuito :)


 Forse è meglio dire 2 auto sullo stesso circuito :)
Bè, lo script è lo stesso, ma i sistemi operativi diversi. Stessa
auto (script) diversi circuiti (OS). :)


Newsgroup: it.comp.lang.perl
Titolo: m/^.+\/(.+)\.(\d+)\.(\d+)\.port$/;

Salve,
    potete dirmo cosa fa questa RE?
$afile =~m/^.+\/(.+)\.(\d+)\.(\d+)\.port$/;
grazie

 $afile =~m/^.+\/(.+)\.(\d+)\.(\d+)\.port$/;
Strano, di solito vengono fatte le domande inverse, cioe': "come faccio a 
fare una regexp per fare questa certa mia cosa"?
Nel tuo caso (o nel caso della persona che ha scritto il codice che hai 
postato), la stringa puo' iniziare (^) con uno o piu' caratteri di 
qualsiasi tipo (.+), seguiti da una barra (\/), seguita da uno o piu' 
caratteri di qualsiasi tipo (.+), seguiti da un punto (\.), seguito da 
uno o piu' numeri (\d+), seguiti da un punto (\.), seguito da uno o piu' 
numeri (\d+), seguiti da un punto (\.), seguito dalla stringa "port".
E la stringa deve finire dopo "port".
Se il match del contenuto della variabile $afile ha successo, nelle 
stringhe $1,$2,$3 verranno salvati rispettivamente i contenuti delle 
sottostringhe che matchano all'interno delle parentesi tonde della regexp:
(.+)
(\d+)
(\d+)
 Raffaello

 $afile =~m/^.+\/(.+)\.(\d+)\.(\d+)\.port$/;
  YAPE::Regex::Explain
per il resto, tiro una riga sotto al suggerimento iniziale
di Raffaello.
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it
Newsgroup: it.comp.lang.perl
Titolo: Il contrario di hex()

come posso trasformare un numero decimale in esadecimale??

 come posso trasformare un numero decimale in esadecimale??
  Eh?
  I termini "decimale" ed "esadecimale" si riferiscono al formato di
visualizzazione di un numero, formato che non e` intrinseco al numero
stesso. Se vuoi *stampare* un numero con un formato diverso da quello
predefinito, che e` quello decimale, devi usare la funzione /sprintf/:
	$ perldoc -f sprintf
	Alla prossima,
		Marco

Newsgroup: it.comp.lang.perl
Titolo: Il GCN ha bisogno di te!

Tempo fa ho scritto un modulo PGP::GPG per interfacciarsi decentemente a
gnupg, il clone libero di PGP. E` piuttosto complicato perche` usa SHM e
molte pipe (sono 15 KB di codice).
E` anche piuttosto non funzionante, perche` se scrivo troppi dati nella
pipe attaccata allo stdin del figlio il padre si blocca (e non capisco
dove, ho messo printf da tutte le parti, arrivo alla fine di un metodo
ma dopo il return non ritorno piu` al chiamate!). Se ne scrivo meno
(suppongo meno della dimensione del buffer dell'OS) funziona tutto.
Il GCN c'entra perche` e` lo stesso modulo che uso per firmare RFD e
CFV.
Per favore, c'e` qualcuno con un po' di tempo a disposizione per
debuggarlo?
Se non fosse chiaro, questa e` una richiesta di aiuto disperata.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *
      | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

 per debuggarlo?
  No.
	Alla prossima,
		Marco

ciao a tutti voi amanti del Perl.
Io mi sto appassionando sempre piu' a questo tipo di programmazione.
Chi mi sa consigliare dei testi, o dove  posso andare a reperire
informazioni per entrare in questo mondo?
Grazie a tutti
mIRCO

Newsgroup: it.comp.lang.perl
Titolo: ppm errore

Ciao a tutti!! Sono uno nuovo, da poco ho installato il perl per win build
616, dopo aver lanciato ppm cerco di installare libnet come insegna un libro
ma dopo un pò mi dà errore e cioè:"not well-formed at line 1, column 17,
byte 17 at C:/Perl/site/lib/SOAP/Parser.pm
 line 73". Cosa significa? Come posso fare per risolvere il problema?


Ho risolto!!! Se qualcuno ha lo stesso problema puň trovare la soluzione a
http://aspn.activestate.com/ASPN/Mail/Message/777146
Ciao da Francescsco

Newsgroup: it.comp.lang.perl
Titolo: Conversione indirizzo ip in nome

Salve a tutti,
stavo cercando il modo di convertire l'indirizzo ip degli utenti che si
collegano ad uno sciprt che ho fatto nel corrispondente nome, ho cercato un
po' ovunque e non ho trovato nulla, qualc'uno ha qualcosa di funzionante?
Grazie,
Roberto

po' ovunque e non ho trovato nulla, qualc'uno ha qualcosa di funzionante?
Puoi usare gethostbyaddr().
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> FAQ di it.comp.lang.perl: 
http://www.borders.it/perl/faq/
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!
Newsgroup: it.comp.lang.perl
Titolo: Deadlock

   open2(*README, *WRITEME, 'cmd.exe');
   @ingresso = ("dir\n","ipconfig\n");
   print WRITEME "@ingresso\n";
 >>@ingresso = <README>;
   echo ($client, "@ingresso");
Ovviamente README e' bufferizzato, e il programma va in deadlock dove 
segnato. Lo scopo ultimo e' creare una sorta di netcat per far girare un 
antico programma dos su una porta telnet (e non mi viene in mente nulla 
di meglio, non voglio offrire accesso telnet alla macchina).
Ho cercato su perl cookbook, programming per seconda edizione e su web. 
Inoltre ho provato a usare Comm.pl da CPAN ma da' parecchi errori 
(sospetto fortemente per questioni di portabilita'). L'ambiente e' win2k 
e uso activestateperl.
-- 
Paolo "Razor" Greco
IPL MUD - 
http://razor.tera.it/

   echo ($client, "@ingresso");
Allora nessun consiglio? =((
Ma almeno lo avete letto il post? =)
-- 
Paolo "Razor" Greco - Hail Discordia! - Aspettate, magari non e' ostile!
------------------------------------------------------------------------
Any technology sufficiently       |Any technology not indistinguishable
advanced is indistinguishable from|from magic is insufficiently
magic                   -Clarke   |advanced               -Pratchett
------------------------------------------------------------------------
IPL MUD @ 
http://razor.tera.it/
 - There's no place like /home - Fnord!

 wrote in message
news:3D6B52FB...@tiscalinet.it...

Tutto ciň per me č afro-kurdo-vietnamita... cosě... solo una domanda:
ma in che linguaggio č scritto:
   open2(*README, *WRITEME, 'cmd.exe');
   @ingresso = ("dir\n","ipconfig\n");
   print WRITEME "@ingresso\n";
 >>@ingresso = <README>;
   echo ($client, "@ingresso");
Sembra uno strano dialetto 'perlesco'... cosa mi sono perso?
ciao
dd

 Sembra uno strano dialetto 'perlesco'... cosa mi sono perso?
Non c'č niente in quel codice che non sia un'espressione Perl ben formata.
Ovviamente alcuni identificatori non sono nomi predefiniti. "echo" sarŕ
una sub introdotta altrove. "open2" č presumibilmente IPC::open2.
L'uso di typeglob (*README), invece di hard references (\*README) o
File::Handle, fa pensare che il codice sia stato ricavato da qualche
vecchio esempio.
Max   

 wrote in message
news:Pine.LNX.4.21.02091...@localhost.localdomain...

Detto cosě č vero! Č che ingenuamente ho creduto che fosse un programma
completo :-S
e non ho intuito le possibili definizioni o importazioni di sub "snipped".
Mi hanno abituato troppo bene quelli che scrivono:
[SNIPPET]
open2(*README, *WRITEME, 'cmd.exe');
@ingresso = ("dir\n","ipconfig\n");
print WRITEME "@ingresso\n";
@ingresso = <README>;
echo ($client, "@ingresso");
[END SNIPPET]
dd
Newsgroup: it.comp.lang.perl
Titolo: Operazioni in Perl



Ciao a tutti.

Sto scrivendo una cgi in Perl che deve fare dei calcoli, ma i calcoli
mi danno risultati assurdi.

L'istruzione

$a = (145.22 * 0.1);


mi da come risultato: 14.522000000000000242

L'istruzione

$totaleordine = ($totale - $importosconto);


dove $totale = 145.22, e $importosconto = 0

quindi (145.22 - 0)

mi da: 145.21999999999999886

Dov'è che sbaglio? A me sembra di far giusto.

Forse che l'unica versione Perl bacata su FreeBSD ce l'ho io?

Potrei ovviare arrotondando i valori al secondo decimale, ma come si
fa? Devo proprio fare una routine che arrotonda o c'è qualche comando
Perl che lo fa già?

Vi ringrazio,

Mauro

 


 
Ho provato con varie versioni di perl e di piattaforme ma non ho gli
stessi tuoi risultati. Ad ogni modo, puoi usare printf() o sprintf() con
oppurtuno pattern per arrotondare il risultato nel modo voluto. Ad es:
 printf( "%.4f", 12.348353934 );
Prova invece queste due e dimmi cosa ottieni:
 print int( 1.2/0.1 );
 print  (1.2/0.1);
Sulle macchine dove le ho provate la prima stampa 11 e la seconda stampa
12. 
Max

 
Perlfaq4 - Domanda numero 1
"Why am I getting long decimals (eg, 19.9499999999999) instead of
the numbers I should be getting (eg, 19.95)?"
Maurizio



 

Max M. ha scritto:

Prova invece queste due e dimmi cosa ottieni:

 print int( 1.2/0.1 );

questa operazione mi da: 
11


 print  (1.2/0.1);

questa operazione mi da: 
11.999999999999998224


Sulle macchine dove le ho provate la prima stampa
11 e la seconda stampa

12.

Mauro


 12.
Non vale, io avevo chiesto a te di darmi una risposta, non al
newsgroup :)
-- 
MaX F
Newsgroup: it.comp.lang.perl
Titolo: Cookie

ciao a tutti!!
Utilizzando il modulo CGI posso fare dei cookie che però, quando l'utente
chiude il browser spariscono. Come posso fare in PERL dei cookies che
restano sempre?
Grazie,
'duccio

 restano sempre?
Probabilmente non hai specificato il "tempo di scadenza". I cookies hanno
un parametro (expire) che determina la scadenza.
Ecco un esempio che usa una normale print per inviare dati al cliente (se
usi CGI.pm deve esserci una funzione per specificare la stessa cosa, ma
non ho la documentazione a portata di mano):
Il tempo viene specificato "a la Unix" ovvero in numero di secondi da
1/1/1970. Nell'esempio il cookie "vivra'" per 100000 secondi (un po' piu'
di un giorno).
$t=time;
$t = $t + 100000;
print "Content-type: text/html\n";
print "Set-Cookie: NAME=Cookiename; expires=$t\n\n";
--------------------------------------------------------------------------
       -- )     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?

di un giorno).
A dire il vero io sapevo che l'ora va specificata in una stringa
per esteso, ma magari funziona anche con la Unix timestamp...
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/

 per esteso, ma magari funziona anche con la Unix timestamp...
Se si usa CGI.pm, e' possibile indicare i cookie in maniera relativa (+1d
+30m e cosi' via) ma il formato ufficiale e definito come "a special GMT
format".
Credo che per i dettagli sul formato esatto sia necessario consultare RFC 
corrispondente.
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: Acquisizione da file

Ciao a tutti,
        sto cercando di parsificare e di acquisire i dati di un file in
alcune variabili per poi elaborarli. Il file è un file di log di un
web-server nel formato canonico (di seguito ne riporto una):
-------------- riga di esempio -----------------------
213.3.64.240 - - [19/Sep/2001:20:31:58 +0200]  "GET
/~neri/icml/map_bari.html HTTP/1.1" 200 543
------------------------------------------------------
Il programma non funziona come deve, o meglio, la variabile $client prende
tutta la riga e non solo il primo parametro, l'indirizzo IP nel caso in
oggetto.
Qualunque idea è bene accetta. Vi aspetto numerosi.
Se può interessare, sto sviluppando con Perl v. 5.005_02 built for
sun4-solaris su piattaforma Solaris.
Grazie in anticipo.
Vitaliano Russo
<LISTATO - INIZIO>
#!/usr/local/bin/perl -w
my $file_in = $ARGV[0];
my $file_out = $ARGV[1];
my $LOGFILE;
my $REQLOGFILE;
my $req_time;
my $time_epoch;
my
($client,$identuser,$authuser,$date,$time,$fuso,$method,$url,$protocol,$stat
us,$bytes);
open(LOGFILE, "$file_in") or die "Error: Can't open file $file_in \n";
open(REQLOGFILE, "> $file_out") or die "Error: Can't open $file_out \n";
while(<LOGFILE>) {
my ($client, $identuser, $authuser, $date, $time, $fuso, $method, $url,
$protocol, $status, $bytes) =  /^(\S+) (\S+) (\S+) \[([^:]+):(\d+:\d+:\d)
([^\]]+) "(\S+) (.*?) (\S+)" (\S+) (\S+)$/;
$REQLOGFILE = $client;
print REQLOGFILE;
}
close LOGFILE;
close REQLOGFILE;
<LISTATO - FINE>

 ([^\]]+) "(\S+) (.*?) (\S+)" (\S+) (\S+)$/;
Cambia qualcosa se fai:
my ($client, $identuser, $authuser, $date, $time, $fuso, $method, $url,
$protocol, $status, $bytes) = $_ =~ /^(\S+) (\S+) (\S+) \[([^:]+):(\d+:\d+:\d)
([^\]]+) "(\S+) (.*?) (\S+)" (\S+) (\S+)$/;
Ciao
--ev