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

Buongiorno a tutti,
           vorrei iniziare a fare qualche lavoro con wxPerl.
Ho scaricato, installato modulo nella mia distro e seguito l'esempio
nel tutorial e tutto funziona perfettamente ma avrei bisogno adesso di
qualche tutorial o manualetto un pochino più dettagliato che mi
spieghi come fare dei pulsanti, dei menù e quant'altro...
Qualche idea al riguardo?
Many thanks!

 Qualche idea al riguardo?
Lo risegnalo, anche se credo tu abbia già dato un'occhiata:
http://wxperl.sourceforge.net/documentation.html
Ciao,
-- 
.           .  | "...And I am dumb to tell the hanging man
| , ,-. ,-. |  | How of my clay is made the hangman's lime."
|<  |   ,-| |  |                            -- Dylan Thomas
' ` '   `-^ `' |<uggc://jjj.gurqvenpfrn.bet>

 Qualche idea al riguardo?
Non ho usato molto wxPerl, ma mi sono fatto l'idea che per 
usarlo si deve imparare a consultare la documentazione di 
wxWidgets, "traducendo" in Perl le chiamate, le strutture dati
passate, e cosi` via. 
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org/blog
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it

Newsgroup: it.comp.lang.perl
Titolo: numero giorni

Ciao a tutti.
Non capisco una cosa:
lanciando il seguente script
#!/usr/bin/perl
use Time::Local;
print  ((timelocal 0,0,0,9,6,107)/86400-(timelocal 0,0,0,1,0,99)/86400);
print "\n";
ottengo come risultato
3110.95833333333
ovvero, un numero con virgola.
Come mai non ottendo un intero che mi indica il numero di giorni tra le due
date indicate? 
C'è un metodo migliore per calcolare un intervallo tra date?
saluti
gualtiero

C'č un metodo migliore per calcolare un intervallo tra date?
Sě: usa Date::Calc o un altro dei numerosi moduli per i calcoli con le
date.
Ciao.

 Ciao.
grazie mille
è che ho perl su un sistema Linux embedded e volevo intallare il meno
possibile. comunque, mi sa che è l'unica (a meno di crearmi io la funzione
di calcolo).

di calcolo).
Il fatto è che non è così semplice (in particolare, non così semplice come
dividere timelocal per il numero di secondi in un giorno), per questo è
meglio ricorrere a qualcosa di già fatto e testato.
Comunque, se proprio non puoi installare nulla (ma ci sono anche moduli in
perl puro, come Date::Manip), e tutto quello che ti serve è la differenza
tra due date, puoi provare a scrivere una funzione per il calcolo del
giorno giuliano. Questo è relativamente semplice. La differenza in giorni
fra due data si calcola poi come differenza tra i due giorni giuliani.
Ciao.

 meglio ricorrere a qualcosa di già fatto e testato.
Grazie mille. Alla fine ho installato Date::Calc
Newsgroup: it.comp.lang.perl
Titolo: Vendo libro "Programmare in Perl"

Vendo libro mai usato "Programmare in Perl",
la versione (traduzione) italiana di "Programming Perl" autori Larry Wall,
Tom christiansen & Randal L. Schwartz editore originale O'Reilly &
Associates, Inc. pubblicato in Italia da Jackson Libri.
Costo del Nuovo EUR 38,00
Chiedo EUR 10,00 + spese di spedizione
Sergio Felleti
Bergamo

 Bergamo
Lo compro io, sono di Milano.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

> Lo compro io, sono di Milano.
Mi accorgo solo ora del to reply.
Sono già in parola con un'altra persona.
Ciao
Sergio

Newsgroup: it.comp.lang.perl
Titolo: Trasferimento file

Buongiorno a tutti, ho un problema di questo tipo:
Devo recuperare da Script Perl un'immagine su un server e memorizzarla su un
altro. Premetto che non ho problemi di permessi di accesso e conosco gli
indirizzi completi. Si puo' usare OPEN?? Se si come??
AIUTO!!
Maurizio Di Salle
mailto:
ma...@cyberfamily.com

 wrote:
: Buongiorno a tutti, ho un problema di questo tipo:
: Devo recuperare da Script Perl un'immagine su un server e memorizzarla su un
: altro. Premetto che non ho problemi di permessi di accesso e conosco gli
: indirizzi completi. Si puo' usare OPEN?? Se si come??
Usare open? Se devi leggere un file locale direi di si.
A meno che tu non debba prelevare l'immagine su un altro server. Via
FTP? via HTTP?
Perche` non cerchi di essere piu` preciso?
Comunque esistono moduli sia per FTP (Net::FTP) che per HTTP
(libwww, consigliato LWP::Simple).
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E

...


 wrote:
: effettivamente prelevare un file grafico (un immagine jpg) da un server e
: memorizzarla in una directory del server locale (da dove si esegue lo
: script). L'ideale sarebbe certamente via HTTP , sarebbe chiedere troppo un
: paio di righe di codice di esempio su quali funzioni o moduli devo
: richiamare per poterlo fare??
use LWP::Simple;
my $immagine = get("
http://url.del.sito/immagine.jpg
");
open FILE, ">output.file" or die "Problemi?-)";
print FILE $immagine;
close FILE;

Newsgroup: it.comp.lang.perl
Titolo: errore prova spedizione mail

ho scritto un codice per inviare una email ad un indirizzo qualsiasi
utilizzando il modulo Net::SMTP di libnet.
Ho riscontrato due problemi:
1) nella sezione del codice di individuazione di chi invia e chi riceve:
$smtp->mail('gianni');  ### errore ####
$smtp->to('
lu...@inventato.it
');
attivando l'opzione di debug (Debug => 1) ottengo l'errore "domain name
syntax error" nella riga corrispondente al metodo mail. Se sostituisco
l'identificativo con il mio indirizzo di posta elettronica la mail viene
spedita regolarmente. Perchč ?? Come argomento del metodo mail non dovrebbe
bastare semplicemete un identificativo del mittente ??
2) nella sezione di invio dati :
$smtp->data();
$smtp->datasend(" To ........\n");
$smtp->datasend("From .....\n");
  .....
$smtp->datasend("Subject: .......
$smtp->datasend("Corpo del testo");   ## problema ####
quando ricevo l'email con Outlook Express l'intestazione č corretta mentre
il corpo della mail  non mi viene visualizzato ???

il corpo della mail  non mi viene visualizzato ???
Metti un 
$smtp->datasend("\n");
tra gli headers e il body
-- 
Saluti,
Giancarlo

Newsgroup: it.comp.lang.perl
Titolo: ftp.pm e server telnet

Dove posso scaricare il modulo 
ftp.pm
Sapete in oltre dove potrei trovare un esempio di telnet server in perl.
Grazie
Luca

Dove posso scaricare il modulo 
ftp.pm
Immagino tu ti riferisca a Net::FTP. In ogni caso tutti i moduli sono
reperibili su:
http://search.cpan.org
	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!

Sapete in oltre dove potrei trovare un esempio di telnet server in perl.
Se hai Activeperl cerca nella tua distribuzione:
\perl\eg\core\client
-- 
       • 
      |Ü|
     /    \         la scusa giusta al momento giusto : l'alcool
    |      |        non ho potuto fare i compiti : stavo bevendo
J  |  &  |  D   domani non posso andare al lavoro : devo bere
    |      |        scusa non posso sposarti : la vite mi chiama
    '-----'     e-mail: lakyba(at)
tin.it
Newsgroup: it.comp.lang.perl
Titolo: Scaricare immagine

Io uso spesso UserAgent ma non risco a capire come posso fare, sapendo l'url
di un'immagine, a scaricarla sul mio sito con uno script.
Sapete aiutarmi?


ci provo. innanzitutto, immagino che tu ti riferisca al modulo 
LWP::UserAgent. e immagino che tu lo usi più o meno in questo modo (è 
l'esempio base preso dalla documentazione del modulo):
   use LWP::UserAgent;
   my $ua = LWP::UserAgent->new();
   my $response = $ua->get( $url );
   if($response->is_success) {
       print $response->content;
   } else {
       die $response->status_line;
   }
questo codice è tranquillamente in grado di scaricare anche immagini. 
l'unico piccolo accorgimento può essere quello, se vuoi salvare 
l'immagine su un file, di aprirlo con binmode:
   my $response = $ua->get( $url ); # $url contiene la url dell'immagine
   if($response->is_success) {
       open(IMG, ">output.jpg"); # scrive l'immagine nel file output.jpg
       binmode(IMG);
       print IMG $response->content;
       close(IMG);
   }
non capisco cosa intendi per "scaricarla sul mio sito", ma immagino che 
sia comunque una procedura che prevede il salvataggio dell'immagine su 
di un file :-)
cheers,
Aldo

Newsgroup: it.comp.lang.perl
Titolo: Perl dove si puo'?

Chi e' che mi sa dire quali sono i fornitori
di spazio web che danno un supporto al
server side scripting ? in particolar modo
in Perl?
Ciao! Pierpaolo!

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

Newsgroup: it.comp.lang.perl
Titolo: problemi di refresh tasto F5

Salve..
Premetto che sono un neofita del perl ed installo solo script scritti da
altri..
Il mio problema è il seguente:
Ho installato uno script su server unix dove mi permette di postare
delle news da un'area protetta..
Tutto bene o quasi, un'opzione dello script mi apre un popup dove vado a
consultare le news totali..
Per i test ne ho inserite 5 ma se premo il tasto F5 per ricaricare la
pagina, le duplica e ne trovo 10..15..20 ecc
lo script non sembra dare errori e mi è già capitato con un'altro script
di calendario..
Qualcuno ha qualche idea ?
Grazie 
Activemax
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Qualcuno ha qualche idea?
non premerlo:-)
probabilmente aggiornando la pagina riparte lo script con la stessa query.
---
Mario Rizzuti

 Mario Rizzuti


Newsgroup: it.comp.lang.perl
Titolo: EOF?

Ciao,
studiando il libro Beginning Perl (pag. 44) su 
learn.perl.org
,
mi sono imbattuto in
print<<EOF;
testo testo testo
testo testo testo
EOF
ma l'interprete che utilizzo (5.8 credo) segnala errore:
'can't find string terminator "EOF" anywhere before EOF'
Mi chiedevo come mai......
ciao e grazie
m.

 'can't find string terminator "EOF" anywhere before EOF'
Forse hai lasciato qualche spazio dopo 'EOF', oppure, se hai trasferito il
file da Windows a *nix, potrebbe essere rimasto un CR ('\r', ascii 0x0D) in
fondo.
Max

Max M. ha scritto:

il punto e virgola?
$perl
print <<Eof
fuku fukissimo fukutastico
Eof
fuku fukissimo fukutastico
$

 $
Era uno spazio dopo EOF
regards
Newsgroup: it.comp.lang.perl
Titolo: leggere una riga a caso da un file

Ciao, sto cercando di scrivere un procedura che faccia questo:
leggi riga 1 del fileA e scrivila in file1
leggi riga a caso di fileB e scrivila in file1
leggi riga 2 del fileA e scrivila in file1
leggi riga a caso di fileB e scrivila in file1
e cosě via...
Ciao
molte grazie
mattia

 e così via...
Perlfaq5: "How do I select a random line from a file?"
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: Ricerca di una stringa

Domanda: Come si fa a trovare una sottostringa all'interno di un'array a
lista?
Grazie.

nico...@prof.it
 wrote:
 >Domanda: Come si fa a trovare una sottostringa all'interno di un'array a
 >lista?
grep
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

Newsgroup: it.comp.lang.perl
Titolo: script telnet sul perl

In perl è semplice fare uno script che faccia il telnet da una macchina linux su un'altra
macchina linux ??
Grazie.

macchina linux ??
Si`.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Ordinamento delle righe di un file di testo

Mi trovo nella necessità di dover ordinare le righe di un file composto
da una sequenza di valori separati da virgola
a1,b1,c1,d1
a2,b2,c2,d2
a3,b3,c3,d3
[...[
am,bm,cm,dm
sulla base dell'n-esimo campo (un po' come si fa col comando sort(1) con
le opzioni -t e +num, se non vado errato). Prima che mi inventi una
soluzione farragginosa e poco efficiente, qualcuno sa dirmi se in perl
c'è una soluzione elegante e veloce (visto che è un linguaggio che
conosco piuttosto male)?
Grazie in anticipo.
-- 
Ciao
Nico

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

 @rows=sort {(split(/[,\n]/,$a))[$n]<=>(split(/[,\n]/,$b))[$n]} @rows;
Per gli amanti del 'chi va piano va sano e va lontano' ?
Sei pazzo a suggerire uno split AD OGNI CONFRONTO??? :)
La mia risposta e' nell'altro messaggio (mi servono i dati di esempio)
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 conosco piuttosto male)?
 Se hai messo tutte le righe nell'array @righe, per ordinare rispetto alla
colonna $n (partendo da 1, ovvero 1 per la prima colonna, 2 per la seconda...)
 
  @ordinato = map { $_->[0] }
              sort { $a->[$n] <=> $b->[$n] }
	      map { [$_,split /,/] } @righe;
Se il confronto deve essere alfabetico invece che numerico, usa cmp al posto
di <=>
Eventualmente, e' meglio se rimuovi il carriage return dal fondo delle
righe, per evitare problemi in caso di confronto sull'ultima colonna.
Se hai un file grosso, con tante righe da confrontare, questo puo' non
essere l'approccio ottimale in termini di occupazione di memoria.
Al limite, puo' convenirti usare esplicitamente il programma 'sort' esterno.


 Sei pazzo a suggerire uno split AD OGNI CONFRONTO??? :)
Per chiarire. Le operazioni eseguite dalla funzione passata al sort, vengono
eseguite un numero di volte esagerato (N log N, o piu', credo)
Pertanto, e' sempre sconsigliato che tale funzione debbe eseguire operazioni
complesse, come chiamate a funzione e robe simili.
Quello che si fa e' cercare di chiamare tali funzioni una sola volta per
elemento, PRIMA di fare l'ordinamento, ed ordinare queste sole chiavi.


 	      map { [$_,split /,/] } @righe;
Continuo a rispondermi :)
Naturalmente, se devi ordinare su piu' campi, ti basta aggiungere le
condizioni opportune nel sort
   @ordinato = map { $_->[0] }
               sort { $a->[3] <=> $b->[3] ||
	              $b->[1] <=> $a->[1] }
             map { [$_,split /,/] } @righe;
ad esempio, ordina in modo ascendente secondo la terza colonna e, in secondo
luogo, in ordine discentente secondo la prima.


elemento, PRIMA di fare l'ordinamento, ed ordinare queste sole chiavi.
Hai ragione, ma si parlava di poca roba.
BTW nella prova che mi ero fatto lo split era esterno ;-)))

Newsgroup: it.comp.lang.perl
Titolo: Come leggere i dati inviati da un form?

Salve a tutti,
ho bisogno di assegnare a delle variabili (all'interno di un CGI) il valore
inviato da un form con il metodo 'post' o 'get' e stamparli a video, per
esempio il form manda a=3&b=5&c=12 e il cgi prende i valori e li attribuisce
alle varibili.
Se qualcuno gentilmente può aiutarmi indicandomi vicino alle sezioni del cgi
più importanti un commento indicativo di cosa stà facendo il cgi.
Grazie tanto a tutti.
Ciao.
Roberto

il problema posto da "revel" "form html e script perl" (e risolto, mi pare)
forse ti può essere d'aiuto
basta guardare nei messaggi di ieri. Anzi, mi correggo, guardati quello di oggi
(ore 8:32)


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

ciao a tutti,volevo sapere se questo programma crea problemi eseguendo
l'eseguibile su altri computer,con stesso sistema operativo ma con
versioni diverse(es. compilarlo su win 2000 ed eseguirlo su 98).in
piu' vorrei sapere se l'eseguibile creato "segue" tutte le regole dei
comuni exe e quindi e' possibile modificarlo con hex editor,usare
joiner,ecc...e come ultima cosa,se uso qualche modulo nn comune e
possibile avere errori?
grazie e ciacciao
dave

 possibile avere errori?
non credo! Se sono pure Perl allora è tutto ok, se hanno anche xs, 
ok ancora perché sono stati precedentemente compilati e dunque hanno
le proprie DLL ...

 la massima portabilità (W9X e NT/2000, XP non so)
Confermo che gli eseguibili funzionano anche sotto Windoz XP.
        Michele.

A me hanno detto che da problemi sopratutto se il lo script si interfaccia
con dei DB?
Mi limito a riportare ciň che mi hanno detto poichč io sono del tutto nuovo
a tale linguaggio.
Ciao

 con dei DB?
A me non risulta.
Ho usato perl2exe su W98, con il Perl AcvtiveState build 629,
DBI + DBD-mysql e ovviamente MySQL (3.23.47)
A me fuziona.
Nulla esclude però che con altre configurazioni ci siano problemi.

Ciao a tutti
c'è qualcosa del genere sotto linux? Ho provato perlcc ma non mi ha mai
funzionato? altre possibilità?
Ciao
Irene


perl2exe c'è anche per linux. Ma è un prodotto commerciale.
Newsgroup: it.comp.lang.perl
Titolo: Variabile per data del client

Salve a tutti, vorrei farvi una domanda.
Ho bisogno di richiamare la data locale in un CGI senza usare i comadi
shell (date) esiste un variabile di sistema che contiene questo dato io
ho provato con $prova = $ENV{'LOCAL_DATE'}; ma non funziona.
Grazie in anticipo la mia mail diretta è 
ugop...@tin.it

 shell (date) esiste un variabile di sistema che contiene questo dato io
$now=scalar(localtime());
Cheers,
	Alessandro

Alessandro Forghieri ha scritto:

Sono ancora io, ti ringrazio per la risposta, ma vorrei porre un altra
domanda.è possibile avere un formato gg-mm-aa, scartando l'ora e formattando
il giorno e il mese in numeri decimali in un unica funzione?
ciao Ugo

 ciao Ugo
Ti rimando al thread intitolato 'Statistiche su date'.
Se hai accesso a Posix.pm, guardati strftime:
use Posix;
print strftime("%d-%m-%C", localtime());
dovrebbe fare quello che vuoi (ma prima:
perldoc Posix
man strftime
)
Cheers,
	Alessandro

Alessandro Forghieri (
a...@orion.it
) wrote:
: Saluti.




: Cheers,
: 	Alessandro
Secondo me il modo piu' naturale e':
  $data = join '-', (localtime(time))[3,4,5];
G.R.

 
Giusto. Avevo ancora Posix in cache.
$|=1; # ;->
Comunque, con strfdate si ha una immensa quantita' di possibilita'
di formattazione (forse troppo immensa).
Cheers,
	Alessandro.

Newsgroup: it.comp.lang.perl
Titolo: tempi d'esecuzione

Ciao. Come č possibile calcolare i tempi d'esecuzione degli script? Cioč,
che codice si deve inserire nello script affinche venga restituito il
tempo d'esecuzione? mi servirebbe per verificare le diverse per(l)formance
:-) in script compilati in modo diverso ma che fanno la medesima cosa.
grazie
stefano
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

perldoc Benchmark
--
-.. --- -- .. --.. .. ---
-.. . -- .. -.-. .... . .-.. .. ...

Newsgroup: it.comp.lang.perl
Titolo: Eseguire uno script PERL ?

Sono un esordiente totale in PERL ....
Ho un server WinNT ed ho accesso solo tramite FTP, qualcuno saprebbe dirmi
come posso fare per eseguire uno script PERL on-line ?
Se ora ci provo mi apre il file in modalità testo.
Grazie in anticipo.
______________________________________
Ciao da Riccardo Tempesta
ICQ UIN : 3503158
E-Mail : 
te...@edisons.it
 
ts...@altavista.net
 (consigliato)
HP : 
http://www.edisons.it/homepages/tempo/
______________________________________

come posso fare per eseguire uno script PERL on-line ?
Arghh... bel problema!
Devi contattare il system manager del server e farti dare accesso ad una
subdirectory di quella principale in esecuzione. Se la voglia è quella di
fare script CGI o è una subdirectory di quella del sito o il system manager
deve specificare un alias con cui tu puoi raggiungerla.
Saluti
Diego
Newsgroup: it.comp.lang.perl
Titolo: dada - permission denied

Ciao,
ho scaricato una applicazione che si chiama Dada, per le mailing list. 
Sono riuscito a far partire il file, ma non riesce a scrivere un file in 
una cartella. Eppure ho dato, per prova, 777 a tutto (cartelle e files).
Come si danno i permessi, di solito, ai cgi? ...
grazie!
m.



chmod 755 ai CGI, e poi affinche' il www possa scrivere su una directory,
i permessi "possono" essere settati a 777. Ma assicurati che nessuno possa
eseguire niente da quella directory.
Esempio:
chmod 755 /home/www/root/mywebserver/cgi-bin/
mioscript.pl
chmod 777 /home/www/root/mywebserver/temp
Controlla che il server abiliti l'esecuzione di script nella
cartella dei CGI.
  Raffaello

Newsgroup: it.comp.lang.perl
Titolo: Limite Array

Esiste un limite di campi per gli array?
Io avrei bisogno di un array con almeno 100 campi, si puň fare?
Grazie,
Ken

 Ken
provaci, che vi vuole?
un for e push

Io avrei bisogno di un array con almeno 100 campi, si puņ fare?
Che cosa intendi per "campi"? Gli array non hanno "campi", solo elementi.
Per avere qualcosa di piu` simile a dei campi, devi usare gli hash.
Comunque no, praticamente l'unico limite e` la memoria del sistema. Non so
se sia rigorosamente cosi`, ma puoi tranquillamente lavorare come se lo
fosse (su un sistema a 32 bit, dire, eventualmente, che sei limitato da un
indice a 32 bit, non e` che aggiunga granche'). In particolare, 100 elementi
gli fanno un baffo. L'array nel suo complesso potrebbe pero` naturalmente
eccedere la memoria del computer, se gli elementi sono grandi.
Ciao.

 Comunque no, praticamente l'unico limite e` la memoria del sistema.
Esatto, ho provato a buttare un file gigantesco in un array e ho avuto il
messaggio di errore "OVERFLOW" (e dispongo di un server niente male).
saluti
 Raffaello

 Comunque no, praticamente l'unico limite e` la memoria del sistema.
Grazie a tutti, ora vedo di fare qualche prova.
Ciao,
Ken

 Io avrei bisogno di un array con almeno 100 campi, si può fare?
L'unico limite e' la memoria fisica del computer.
---
Mario Rizzuti

Newsgroup: it.comp.lang.perl
Titolo: console seriale

Buongiorno a tutti i frequentanti!
Dovrei interfacciarmi con un programma perl ad una console seriale.
che modulo/i dovrei prendere in considerazione?
c'è qualche script in rete da cui posso prendere spunto?
grazie!
ar

Premesso che non l'ho mai fatto, forse
 
http://search.cpan.org/~rgiersig/Expect-1.20/Expect.pod
può essere d'aiuto. Un giretto su CPAN rivela anche la presenza di
Device::SerialPort ed un suo antenato su win32.
Saluti,
   Flavio.
Newsgroup: it.comp.lang.perl
Titolo: @INC site/lib/ e lib/

nulla di essenziale, riguarda lo "stile" di lavoro
@INC site/lib/ e lib/
dov'è la differenza?
NB ho activestate
cerco di capire (ditemi se sbaglio, ma anche se ci ho azzeccato)
lib/ contiene tutti i moduli che appartengono direttamente a perl
mentre
site/lib/ contiene i moduli che uno trova ingiro e si installa quando
vuole
domanda ulteriore:
se facessi dei miei moduli mi conviene creare un'altra directory del
tipo
mieimoduli/lib/  ?
mentre in site/lib/ metto i moduli che trova nel CPAN?
e lib/ la lascio in pace?
come vedete non è nulla di essenziale, ma chissà che capendo un po di
più ...
grazie, antonio

 e lib/ la lascio in pace?
No. Direi che i tuoi moduli li metti in site/lib, insieme agli altri,
altrimenti devi andare a cambiare la definizione di @INC di default.
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: eventi del mouse e coordinate su una immagine

ciao, il mio problema è questo:
vorrei poter mostrare su browser una immagine, e quando ci clicco
sopra vorrei apparisse una piccola linea nel punto dove ho cliccato.
Pensavo di usare il modulo GD per gestire l'immagine e farci scrivere
sopra la linea, ma come faccio a gestire le coordinate del mouse
rispetto alla immagine visibile sul browser?
che moduli potrei usare?
grazie a tutti

http://www.w3.org/TR/html4/interact/forms.html#h-17.4.1
 (v. parte su
image)
Le coordinate sono in pixel, quindi non dovresti avere bisogno di
altro.

Newsgroup: it.comp.lang.perl
Titolo: xml & perl

c'è qualcuno che smanetta con xml e perl?
vorrei dei scambi di idee, esperienze e (perche no) scripts

 vorrei dei scambi di idee, esperienze e (perche no) scripts
Hai provato l'AxKit ?
Max

parlami dell'AxKit (cos'è, dove lo trovo, cosa fa, ecc.)


 
Acc... speravo ne parlassi tu. ;-)
Io non ho ancora avuto modo di impiegarlo. Probabilmente lo adotterò in un
progetto che inizierò in agosto, se decido di sviluppare la cosa in Perl.
L'AxKit è un kit di strumenti per la generazione e trasformazione di
documenti XML destinato ad essere impiegato in ambiente mod_perl. E' in
sostanza un application server XML per Apache. E' sviluppato dal famoso
Matt Sergeant e supporta varie tecnologie standard come XSP e XSLT e altre
soluzioni ideate da Sergeant, come XPathScript.
 
http://axkit.org
 
http://xml.sergeant.org
Max


mo te spiego il mio problema (o idea):
vorrei creare un sito (ma guarda che idea originale!), ma invece di
creare subito pagine html, vorrei partire da pagine xml, dalle quali
creare da un lato direttamente pagine html e dall'altro estrarre
informazioni per generare in automatico alcune pagine particolari (e qui
credo che serva proprio xml)
il risultato finale vorrei che fosse "statico"
dunque: esistono moduli perl che supportano xsl (p.es.)? o che hanno un
approccio del tipo getparent, getbrother, getlevel
tanto per intenderci che sanno in che nodo sono, come si chiamano gli
avi (padre, nonno, bisnonno), come si chiama il fratello, in che
generazione si trova, ecc.
ti chiedo questo prima di vedere i siti da te indicati, perche mastico
proprio male l'inglese (oltre ad non esser proprio un genio di
informatica :-(
ciao, antonio


 
Sanz'altro gli strumenti per fare in Perl quello che hai illustrato ci
sono.
Ora si tratta di mettersi sotto e studiarsi un po' di documentazione.
Questi i moduli (o bundle) che dovresti, secondo me, cominciare a
guardarti:
 
http://search.cpan.org/search?dist=Bundle-XML
 A bundle to install all XML-related modules 
 
http://search.cpan.org/search?dist=XML-EP
 XML::EP - A framework for publishing XML documents
 in the style of Cocoon	
 
http://search.cpan.org/search?dist=XML-XSLT
 A perl module for processing XSLT 
 
http://xmlxslt.sourceforge.net/
Max
Newsgroup: it.comp.lang.perl
Titolo: dbi

Ciao,
vorrei portare in un array il nome dei campi di una tabella,
come posso fare ?
Grazie
Andrea 

 come posso fare ?
Dipende dal database (ognuno avra' la sua sintassi per vedere i campi), cmq
con MySql puoi agire come con una normale SELECT, con una cosa del tipo:
use strict;
use DBI;
my $dbh = DBI -> connect ('DBI:mysql:mia_tabella;host=mio_host', 'utente',
'password')
		or "Impossibile connettersi al database: $DBI::errstr";
my $sql = $dbh -> prepare ("show tables");
$sql -> execute ();
while (my @row = $sql->fetchrow_array) {
	print "$row[0]\n";
}
Ciao
Eoerin
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 
"show tables" fa vedere l'elenco delle tabelle non i nomi dei campi.
Per vedere i nomi dei campi, puoi usare (fra molti possibili) questo metodo:
my $query = "select * from tabella where 1=0";
# questa query viene eseguita, e restituisce 0 record
my $sth = $dbh->prepare($query);
$sth->execute();
my @nomi_campi = @{ $sth->{NAME} };  # <-- eccolo!
$sth->finish();
Ciao
gmax
-- 
   ____ ____  _____ _   _
  / _  |    \(____ ( \ / )
( (_| | | | / ___ |) X (
  \___ |_|_|_\_____(_/ \_)
(_____|
MySQL Certified Professional
Sapere, saper fare, fare, far sapere
http://gmax.oltrelinux.com
Newsgroup: it.comp.lang.perl
Titolo: forse OT: che tipo di permesso è 755?

ke tipo di permesso è 755?

 il proprietario.
E' piu' corretto dire che i permessi sono gestiti da tre (quattro in 
realta', ma vabbe'...) gruppi (User, Group, Others) di tre bits uno per 
l'eseguibilita' uno per la scrivibilita' e uno per la leggibilita', cosi' 
abbiamo:
7=111, ovvero Rea: ok, Wri: ok, Exe: ok
5=011, Rea: no, Wri: ok, Exe: ok
etc, etc...
-- 
Saluti,
Giancarlo

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

Vorrei fare un guestbook per il mio sito, mi hanno detto che devo usare perl
o cgi...io sono un neofita....c'è qualcuno che mi può aiutare?
Grazie.

 o cgi...io sono un neofita....c'č qualcuno che mi puň aiutare?
www.cgipoint.it
www.perl.com
 (in inglese)
www.cgi-resources.com
 (pure questo)
Ciao
M.
--
____________________________________________________
    Life's just a blast, it's moving realy fast    
better stay on top or life will kick you in the ass.
ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ
Newsgroup: it.comp.lang.perl
Titolo: CGI o JAVA per modificare un DATABASE?

Ciao a tutti
devo modificare un database access che si trova su un server NT
ogni volta che qualcuno apre un'immagine dal mio sito.
E' meglio fare un cgi (che quindi caricherebbe il server)? In tal caso quale
sarebbe il linguaggio migliore? VB è veloce?
Si potrebbe invece usare un'applett java? java e' sicuro? (secondo me uno
decompila l'applett e legge la password del database).
Mi piacerebbe molto di piu' farlo in java, perche' potrei aggiungere qualche
"effetto speciale" all'immagine che viene aperta, solo che non saprei come
modificare un database con essa.
Sono un po' coinfuso...
my site: 
http://www.sky-net.com

ogni volta che qualcuno apre un'immagine dal mio sito.
Io lavoro sotto Unix, ed uso il Perl per accedere ai database
server. Immagino lo possa fare anche tu sotto Windows, grazie
al supporto ODBC del modulo DBI del Perl.
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.italpro.com/mb/

Newsgroup: it.comp.lang.perl
Titolo: Link utile (?)

http://www.hyperbook.it/
("perl e internet" sul web)

Davvero utile, sembra veramente ben fatto grazie!!!

Newsgroup: it.comp.lang.perl
Titolo: SERVER NT

Mi sto appoggiando ad un server Nt che permette anche l'esecuzione degli
script in perl e Cgi (euroweb nt200 
www.euroweb97.com
). Premesso che vengo
da server Unix, ho riscontrato il seguente problema: quando lancio lo script
(per esempio 
prova.pl
 o prova.cgi) visualizzo il codice dello script (non lo
esegue). L'helpdesk mi ha detto  che non serve specificare dove si trova
l'interprete perl (cosa che si faceva in Unix) e che bisogna rendere gli
script eseguibili su Nt.
Sapete spiegarmi meglio questa situazione?
Grazie
Andrea Monaco

(per esempio 
prova.pl
 o prova.cgi) visualizzo il codice dello script (non lo esegue).
intendi ...
lanci lo script direttamente da shell o invochi lo script come cgi da browser ?
immagino la seconda, e probabilmente è sbagliata la configurazione del webserver
( su apache bisogna aggiungere uno ScriptAlias)
nel caso sia la prima , ti dovrebbe dare errore , e non capisco come possa restituire
il sorgente comunque prova da shell >
C:\> ftype perl=c:\percorso\a\perl.exe -w "%1" %*
C:\> assoc .pl=perl
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.perl
Titolo: the perl jornal

dove è reperibile il perl jornal a Roma?

 dove č reperibile il perl jornal a Roma?
nelle edicole in allegato a SysAdmin, che č una rivista americana.
Qua da me solo le edicole + grosse ne hanno visto che č importata.
Per anni č stata una rivista a sč, ottenibile su abbonamento.
Poi č diventata parte di Syadmin.

Newsgroup: it.comp.lang.perl
Titolo: Larry Wall dice stop alllo sviluppo del Perl

Ho letto che ha deciso di lasciare lo sviluppo del perl, dopo l'uscita
dell'ultima release del perl, vi risulta anche a voi ?
Logan
--
logan@voi_vitsi.pulp-fiction.com
 (To mail me, take away voi_vitsi.)

 wrote:
: Ho letto che ha deciso di lasciare lo sviluppo del perl, dopo l'uscita
: dell'ultima release del perl, vi risulta anche a voi ?
Puoi leggere tutto a 
http://segfault.org/story.phtml?id=3905b40e-05c0a760
 .
ciao, .mau.

Newsgroup: it.comp.lang.perl
Titolo: problem with html pop mail cheker

Hi.
The problem goes here:
I have looked the html based perl pop mail checkers and senders.
But the problem is that when i check mail and read it, then it deletes from
server it too.
Is it any possible to force the script to leave a copy of msg to server.
If anybody can help me i would be wery thankful.
Also a little example is welcome.
Thanks
All Best
Tarmo

 help me i would be wery thankful.
  Get a look at:
 
http://www.snowball.connect-2.co.uk/tech/articles/q1.htm
and point your attention on the /RSET/ command.  Then, let us know. ;)
	Best regards,
		Marco
PS Why post a message in english language in an italian newsgroup when
there is an international, english-based, newsgroup at
news:comp.lang.perl?

Newsgroup: it.comp.lang.perl
Titolo: $ENV{'HTTP_REFERER'} - tragica scoperta

Metto un <FORM> sul mio sito che punta a un cgi....
Nel cgi faccio una cosa del genere:
se in $ENV{'HTTP_REFERER'} non c'e' il mio sito bloccati
perche' vuole dire che il form lo hai creato sul tuo pc e mi stai chiamando
da la'...
Diciamo che la cosa funziona, in effetti la variabile $ENV{'HTTP_REFERER'}
viene riempita solo quando clicko sul submit del form online....
Pero' oggi... tragica scoperta... un mio amico ha fatto un form in flash e
$ENV{'HTTP_REFERER'} viene popolato anche se lancia il suo filmato
direttamente dal PC
In parole povere il mio server e' convinto che la chiamata provenga dal
dominio invece il form in flash e' stato creato e lanciato da un pc
remoto...
Potete aiutarmi a trovare una soluzione al problema?
GraziE!
BM

 
Per trovare una soluzione bisogna prima capire il problema. Che cosa vuoi 
impedire, per la precisione? E perché?
Ogni browser nel header "Referer:" ci mette un po' quello che vuole. Alcuni 
possono essere configurati per non metterci mai niente. Quindi eviterei di 
fare affidamente su quell'informazione.
Se vuoi evitare, che qualcuno possa salvarsi il form e riutizzarlo da una 
pagina locale oppure metterlo su un altro sito, puoi aggiungere un campo 
hidden al form che sia rigenerato ogni volta che il form viene inviato a un 
browser e che ti consenta successivamente di sapere quando il form è 
stato inviato e agire di conseguenza. (Puoi, ad esempio, aggiungere un 
campo composto dalla data corrente seguita da un digest calcolato sulla 
stessa data concatentata a una secret. In questo modo il campo non è 
falsificabile.)
Max
Newsgroup: it.comp.lang.perl
Titolo: arrottondamenti

Qualcuno vede errori nel codice sotto?
 
Perchè se metto l'e-mail 
sdfasdg 
passa per buona ?!?
if ( !( $FORM{'email'}=~/(.+)\@(.+)/ ) ) 
{ 
&paginetta("Errore di inserimento","<br>
Avete inserito un valore nonvalido, controllare 
che si siano riempiti correttamente 
tutti i campi<br>","<hr>"); 
}
Qualcuno suggerisce un match migliore ?
Riguardi, P.
---
http://utenti.tripod.it/aiportne/index.htm
 
Obviously welcome removing Anti-spam filters to contact me in email :-)

 }
L'espressione regolare corretta e`: /(.+)@(.+)/.
La chiocciola non e` un carattere speciale.
In ogni caso, se ti serve un metodo robusto
per validare indirizzi email, puoi usare Mail::Verify.
http://search.cpan.org/search?dist=Mail-Verify
 .
ciao
Stefano
Newsgroup: it.comp.lang.perl
Titolo: Millisecondi in PERL

Forse non ha neanche senso, mi servirebbe di poter avere informazioni
similiari a quelle che restituisce time(), ma con la precisione del
millesimo di secondo (o giu' di li).
C'e' qualche modulo che mi permette di farlo?
	cercatamente,
	   Cthulhu
-- 
       Ph'nglui mglw'nafh Cthulhu 
http://www.rlyeh.it
 wgah'nagl fhtgan!

 C'e' qualche modulo che mi permette di farlo?
(da perlfaq8)
Time::HiRes
ma solo su alcuni sistemi.
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: Ricerca modulo

Sto cercando un modulo CGI che mi consenta la gestione di un server
e-mail: per intenderci che consenta agli utenti l'accesso ad un server di
posta elettronica tramite web browser, come fa, ad esempio hotmail o
yahoo.
Ho provato a cercarlo su CPAN, ma mi sono perso.  C'e' qualcuno che da
darmi suggerimenti?
Grazie,
						l.f.
--------------------------------------------------------------------------
       -- )     Luca Fini                            Tel: +39 055 2752 307
 ___    |\      Osservatorio Astrofisico di Arcetri  Fax: +39 055 2752 292
/   |   | |-_   L.go E.Fermi, 5 +-----------------------------------------
(___|___//___)  50125 Firenze  /   WWW: 
http://www.arcetri.astro.it/~lfini
 (_)      (_)   Italia        / e-mail: 
lf...@arcetri.astro.it
-----------------------------+--------------------------------------------
                              In a world without fences - who needs GATES?

 darmi suggerimenti?
Un modulo solo non basterebbe. Ti serve un programma completo.
Non e' strettamente un CGI, non e' in perl, e richiede un po' di esperienza 
per installarlo correttamente, ma io mi sono trovato abbastanza bene con IMP.
IMP e' una serie di moduli PHP3 per fornire accesso Web alla posta
elettronica, tramite IMAP.
In pratica ti serve PHP3+Apache+IMAP+Perl, ed opzionalmente SSL,MySQL o
PostgreSql e LDAP.
Dettagli in 
http://horde.org/imp/
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)




sul tuo server, completamente configurabile e' DMailWeb.
C'e` anche Endymion Mailman:
http://www.endymion.com
che e` lungi dall'essere gratis, oppure AtDot:
http://www.atdot.org
Entrambi usano il sistema di posta della tua macchina.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!
Newsgroup: it.comp.lang.perl
Titolo: piccolo probl con espressione regolare

Ciao.
vorrei chiedervi una mano su una roba che non riesco a fare:
/(?<=passwd\=")[a-z]*/ ;
Con questa trovo una parola compresa tra ' passwd=" ' e ' " ' ;
Il mio problema č che la ricerca viene fatta sullo STDIN che molto
probabilmente contiene piů righe;
Ed ecco che la mia espress. non funziona piů;
Secondo voi come dovrei fare?
Sono all'inizio col perl e non son riuscito a farcela... :(
... help!
Grazie mille!
Sent via Deja.com 
http://www.deja.com/
Before you buy.

 ha scritto nel messaggio
news:90fb9n$8ou$1...@nnrp1.deja.com...


 Ed ecco che la mia espress. non funziona più;


Newsgroup: it.comp.lang.perl
Titolo: $$$Come guadagnare soldi in modo facile ed onesto$$$

 Ricordate: SIATE ONESTI!
ONESTA', eh? E gli ultimi della catena, che non riusciranno a recuperare i
soldi spesi
e che avranno finanziato le BBS e le nuove automobili di quelli che sono
arrivati prima,
perché non ci sarà più nessuno che non ha partecipato o che vorrà
partecipare alla
catena? Certo, avranno buttato via al massimo 15.000 (meno di una pizza con
birra),
però ugualmente non mi pare molto onesto...
A proposito, scusate per l'O.T.! Non lo faccio più...    :-(
Mario
Newsgroup: it.comp.lang.perl
Titolo: script consol con output a colori

Ciao a tutti,
in uno script piuttosto 'critico' vorrei visualizzare in rosso i messaggi 
di errore.
Il programma verra' montato su una macchina Linux su shell bash.
E' anche possibile scrivere in grassetto?
Posso fare il tutto senza installare librerie aggiuntive (aka Curses)?
Grazie & ciao, Alex.




Esiste un modulo Term::ANSIColor
M.
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 Posso fare il tutto senza installare librerie aggiuntive (aka Curses)?
C'e` l'apposito modulo da includere: `Curses.pm'
man page: Curses(3pm)
Bye,
 Emmanuele.
-- 
Emmanuele Bassi         |             [ 
http://digilander.iol.it/ebassi/
 ]
emmanue...@iol.it
  |
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4


Se l' output e' su xterm con colori abilitati non ti basta anteporre una
sequenza ANSI ESCAPE?
Ad esempio:
echo " [0;1;31m testo di prova  [0m"
non ti da il testo in grassetto colore rosso?
Dammi conferma: a me funziona perfettamente negli script bash.
Ciao
-- 
     Vallini Daniele
dval...@tiscalinet.it
vallini...@interfree.it
vallini...@bilug.linux.it

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

Cerco indicazioni o documentazione, possibilmente in italiano, del comando awk.
Grazie
Beppe 
-- 
Questo articolo e` stato inviato dal sito web 
http://www.nonsolonews.it

 awk.
E perché lo chiedi nel newsgroup dedicato al Perl?
 
http://www.google.it/search?as_q=awk&num=10&lr=lang_it&as_ft=i
Max

Per ragioni di lavoro ho dovuto mettere mano ad uno script che pensavo contenesse comandi perl e, nella breve ricerca che avevo fatto, ho creduto che awk fosse un comando, funzione, perl. Non è molto che lavoro con questo linguaggio ed ho appreso, quel poco che so, da autodidatta.
Ho risolto l'urgenza, e cercando con più calma awk è un altro linguaggio di programmazione.
Mi scuso e ringrazio per l'attenzione.


Newsgroup: it.comp.lang.perl
Titolo: a che serve l'operatore =~

ciao a tutti,
scusate l'ignoranza ma non ho trovato documentazione sul significato di
=~
grazie ciao....

 grazie ciao....
LO SO, LO SO!! :-). L'ho appena imparato! E' l'operatore che permette di
testare una variabile stringa sulla base di una particolare espressione
regolare. Cioe':
$a = "Hello World";
$a =~ /^He/; # Vero perchč inizia con "He"   (Llama book: pag. 92)
L'operatore puo' essere utilizzato anche per modificare le stringhe con
le espressioni regolari di sostituzione e translitterazione. Cioe':
$a = "Hello World";
$a =~ s/World/Dolly/; # $a vale "Hello Dolly"
Sono stato bravo (e soprattuto c'e' dell'altro)?
-- 
Ciao
Nico

 wrote:
: scusate l'ignoranza ma non ho trovato documentazione sul significato di
: =~
man perlop :
       Binding Operators
       Binary "=~" binds a scalar expression to a pattern match.
eccetera...
-- 
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: Codice piu' compatto # 2

Ciao
vorrei scrivere in una sola linea di codice il seguente :
# code #
@atts_output = map { $DESCRIPTION{ foo($_) }; } @atts_output;
sub foo {
	my $v = pop;
	$v =~ s/\./__/;
	return $v;
	}
# end of code #
%DESCRIPTION mappa stringhe in stringhe.
Idee ?
 Raffaello

 vorrei scrivere in una sola linea di codice il seguente :
 
Basta che lo scrivi tutto sulla stessa riga. Facile.
Max

 	}
Così, credo... (il codice non è testato):
sub foo { $_[0] =~ s/\./__/; return $_[0]; }
Ciao,
-- 
+--------+ | ASCII ribbon campaign ( ) | 
www.autistici.org/kral
|  kral  | |  - against HTML email  X  |
+--------+ |              & vCards / \ | my gpg id = 0x7C946947

 vorrei scrivere in una sola linea di codice il seguente :
puoi fare così:
   @atts_output = map { s/\./__/; $DESCRIPTION{$_}; } @atts_output;
(ma io personalmente trovo più leggibile la versione meno compatta).
cheers,
Aldo

 (ma io personalmente trovo piů leggibile la versione meno compatta).
Anch'io, ma a volte mi sfuggono quelle sintassi eleganti che rendono
il codice meno ridondante.
Per esempio la soluzione che mi e' stata suggerita in precedenza mi
sfuggiva (thread:"codice piu' compatto") perche' non so ancora usare
decentemente la funzione sprintf. :-/
 Raffaello

 sub foo { $_[0] =~ s/\./__/; return $_[0]; }
mmmmh... io eviterei:
   # cat 
foo.pl
   sub foo { $_[0] =~ s/\./__/; return $_[0]; }
   print foo('bar.baz');
   # perl 
foo.pl
   Modification of a read-only value attempted at 
foo.pl
 line 1.
cheers,
Aldo

    Modification of a read-only value attempted at 
foo.pl
 line 1.
Quello lo avevo notato! :)
Ma visto che nel suo caso passava una variabile, mi sembrava cmq
adatto...

Newsgroup: it.comp.lang.perl
Titolo: PHP o Perl

Qualcuno mi saprebbe consigliare se il PHP o perl sono come l'ASP? In cosa?
Beh mi
interesserebbe sapere se i sorgenti creati non possono essere compilati e
quindi andranno nelle mani del cliente. Se è così mi sapreste consigliare un
linguaggio di programmazione(ambiente di sviluppo) multipiattaforma per
creare siti web ma con la possibilità di ottenere i compilati dai sorgenti
del progetti? Se altrimenti non esiste il problema descritto mi sapreste
consigliare un tool che mi faciliti lo sviluppo di siti con PHP, cioè un
ambiente di sviluppo che mi metta a disposizioni i componenti o oggetti da
poter disegnare su Form o altro simile a Visual Basic ecc, e dei siti da cui
scaricare manuali?

 quindi andranno nelle mani del cliente. 
   La tua e` una mono-mania: hai inviato lo stesso messaggio in almeno 
tre gruppi di discussione diversi! La risposta e`: si`/no. Cioe`, con il 
Perl e` possibile compilare in diversi modi i sorgenti, con il PHP no, o 
quasi. Tuttavia, ti faccio presente che il 99,9% dei provider si 
rifiutera` categoricamente, ed a volte anche con una certa violenza 
verbale, di mettere in linea sui suoi server programmi dei quali non 
puo` esaminare i sorgenti, per ovvii motivi di sicurezza, quindi le tue 
preoccupazioni sono infondate: se vuoi proteggere il prodotto del tuo 
intelletto, usa una qualche forma di copyright.
-- 
Alla prossima,
Marco

 intelletto, usa una qualche forma di copyright.
oppure fai girare gli script da un tuo server e vendi il servizio
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

Newsgroup: it.comp.lang.perl
Titolo: *UN-DUMP* di una struct complessa dumpata con Data::Dumper

Ciao ragazzi, qualconu mi fornirebbe indizi su come *UN-DUMPARE* l'ouput 
di una struttura dati compless dumpata con Data::Dumper ??
La struttura dumpata è su file, e vorrei ricaricarla in memoria ad un 
run successivo ricreando la struttura dell'hash salvato al run precedente.
Grazie in anticipo..


E' spiegato nella documentazione di Data::Dumper:
 
  The return value can be "eval"ed to get back an identical copy of 
  the original reference structure.
M

Max M. ha scritto:

Gasp.. Grazie mille.. Forse l'avevo letta un po' troppo di fretta *:-)* !!!
Newsgroup: it.comp.lang.perl
Titolo: Passare argomenti da prompt dos a perl (FAQ?)

Ciao a tutti.
Devo realizzare abbastanza in fretta uno script che sostituisca una
stringa presente in svariate centinaia di files html, suddivisi in una
ventina di cartelle. L'unico modo quasi a mia portata che conosco
consiste nell' usare un ciclo FOR da MS-DOS, il quale passi il nome
dei files ad uno script perl.  Però non so come gestire il passaggio
di parametri allo script.
Il ciclo sarebbe questo:
FOR /R %i IN (*.htm) DO perl 
script.pl
 %i
Come faccio a leggere il contenuto di %i, nello script? 
Nel libro 'perl guida di riferimento', di cui dispongo, sono spiegati
parecchi switch, ci sono le variabili di ambiente CGI, ma non ho
trovato la soluzione per questo apparentemente semplice problema.
Spero che qualcuno mi dia una mano...
P.S.: uso questa soluzione ibrida dos-perl perché non so come parsare
col perl un albero di directory, e avrei una certa fretta di
completare questo lavoro.

 completare questo lavoro.
Anziche` usare un ciclo FOR da prompt di DOS, puoi usare il modulo
File::Find. Di seguito, uno stralcio del codice che ti serve:
-------------------------------------
use File::Find;
use strict;
find( \&process, '.' );
sub process
{
    if ($File::Find::name =~ /.html^/ ) {
        # Cosa vuoi fare con il file?...
    }
}
-------------------------------------
Un paio di note.
File::Find lo trovi incluso nella tua distribuzione Perl.
La funzione find scorre tutti i file in tutte le directory: per
ogni file richiama la funzione il cui riferimento le e` stato passato
come primo argomento. La variabile $File::Find::name contiene
di volta in volta il nome del file corrente. Quindi non devi fare altro
che aprirlo (occhio al nome del file!) e maneggiarlo secondo le tue
esigenze.
Spero che queste indicazioni possano esserti utili.
ciao
Stefano

Spero che queste indicazioni possano esserti utili.
Diciamo che sto cominciando a capire qualcosa in più, grazie. :-)

 dovevo ottenere, per ognuna la stringa "pagina.wav", "2pagina.wav",
Il solo nome del file, senza path, lo trovi direttamente in:
$_
        A presto, Michele.

$_
Azz, e io che avevo splittato il path intero... buono a sapersi.
P.S.: grazie per le spiegazioni :-)

 motivi didattici e/o di eleganza di codice?
E` necessario un riferimento, ma volendo puoi anche utilizzare una funzione 
inline, ad esempio:
find ( sub { print "Nomefile: $_\n"; }, "." );
Solitamente questa e` una soluzione piu` pratica se la funzione e` breve e 
deve essere utilizzata in una sola circostanza.
        A presto, Michele.