mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Problema con il sort.

Un saluto a tutti quanti, ho un problema nell' ordinare un file per campi.
Dopo aver letto un file composto da 3 campi (nome, cognome, indirizzo) vorrei poter fare l'ordinamento o per nome o per cognome oppure per indirizzo tramite una semplice scelta.
Mi sono letto la documentazione fornita con perl ma non sono riuscito a concludere nulla.
Leggo il file e lo metto dentro @righe che e' composto cosi':
@righe = ("pippo|baudo|via1","paolino|paperino|altravia","pinco|pallino|nuovavia","mario|rossi|viavai");
...ma non mi riesce di scegliere il criterio di ordinamento per campo.
Ho anche cercato tra i vecchi messaggi del newsgroup ma senza trovare nulla! :-(
Sono sicuro che e' una cavolata ma proprio non ne vengo fuori.
HELPPP !!!
Michelangelo
--
Posted from 
alpha.interactiva.it
 [195.31.200.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

 ...ma non mi riesce di scegliere il criterio di ordinamento per campo.
vediamo se ti piace questa soluzione
@righe = (
"pippo;baudo;via1",
"paolino;paperino;altravia",
"pinco;pallino;nuovavia",
"mario;rossi;viavai");
# ho sostituito il 'pipe' con il 'punto e virgola' perché mi creavano confusione
$scelta=1; # NB: 1 = SECONDO campo !
foreach $riga (@righe) {
       @campi = split (';', $riga);
       @campi[0,$scelta] = @campi[$scelta,0];
           # inverte il contenuto delle posizioni 0 (zero) e $scelta
           # se $scelta == 0 potevi farne a meno :-)
           # se la $scelta > 2 succede un casino !
           # vedi di fare il controllo di range
       $nuovariga = join(';', @campi);
       push(@nuoverighe, $nuovariga );
       }
print (sort @nuoverighe);
# PS ho provato da me e funziona (almeno il piccolo esempio che ci hai passato)
attento, se l'ordinamento si dovesse riferire a numeri, potresti avere delle
strane sorprese come ad esempio
1
10
100
11
2
3
4


 HELPPP !!!
Sono abbastanza sicuro che un problema del genere e' gia' apparso :)
In particolare, in un messaggio datato 1 Ottobre. Dove eravate l'1 ottobre?
Perche' eravate distratti? Il programmatore Perl, per quanto pigro, e'
sempre vigile! 
  @righe = ("pippo|baudo|via1",
            "paolino|paperino|altravia",
	    "pinco|pallino|nuovavia",
	    "mario|rossi|viavai");
  $n = 1; # colonna di ordinamento, a partire da 1
  @ordinato = map { $_->[0] }
              sort { $a->[$n] cmp $b->[$n] }
	      map { [$_,split '\|'] } @righe;
 
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Perche' eravate distratti? Il programmatore Perl, per quanto pigro, e' sempre vigile! 
Sacrosanta verita' . :-)
Grazie ancora dell' aiuto.
Ciao.


attento, se l'ordinamento si dovesse riferire a numeri, potresti avere delle strane sorprese
Si l'ho notato comunque mi sta bene che funzioni cosi'.
Grazie ancora.

Newsgroup: it.comp.lang.perl
Titolo: invio email con Net::SMTP


Received: from telecash-server (151.26.158.144) by 
smtp1.libero.it
 (6.5.028)
        id 3DA3107F0040CA2F for 
indi...@server.it
; Thu, 17 Oct 2002
15:25:38 +0200
To: 
indi...@server.it
From: 
mitt...@tin.it
Subject: statistiche
PER MOTIVI DI PRIVACY HO CAMBIATO GLI INDIRIZZI EMAIL.
PER QUALE MOTIVO MI RESPINGE LE EMAIL?
HO PROVATO A CONNETTERMI CON TIN ED UTILIZZARE IL SUO SERVER SMTP E TUTTO
RITORNA A FUNZIONARE....
Grazie
Daniele.

PER QUALE MOTIVO MI RESPINGE LE EMAIL?
Il codice 5.7.0 è, se capisco bene: "Site policy. The message appears to
violate site policy in some way".
Quale in dettaglio sia la "politica" violata è difficile dirlo. Con quel
messaggio di accompagnamento, si potrebbe pensare che un server smtp di
arrivo richieda una connessione sicura, e questa per qualche motivo non va
a buon fine.
(Considera che nell'ultimo capoverso non so più di che cosa sto parlando
già dall'inizio della seconda riga.)
Ciao.

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

Terminato uno script vorrei presentare una pagina html. Come si fa?
bbuio

bbuio
Alla fine dell'esecuzione dello script prima di mandare qualsiasi
header al browser:
print "Location: $URL\n\n";
dove $URL è un indirizzo web.
--
www.pigmalion.info
www.pigmalion.info/perl/
Newsgroup: it.comp.lang.perl
Titolo: $perldoc

Ciao a tutti,
scusate ma cosa intendete quando consigliate per trovare la soluzione di un
problema di perl di vedere ad esempio:
$perldoc -f localtime    e simili?
Si tratta di qualche manuale in linea o che?
Se è un documento in linea come vi si accede?
Grazie.
--
Marco Allegretti
shi...@kataweb.it
http://www.shishii.com

 $perldoc -f localtime    e simili?
e' un comando... prova ad eseguirlo in un qualsiasi terminale (console o xterm)
unix (o linux che sia).
$ e' il simbolo della shell ... quello che segue e' il comando :)
bye,
Gilberto "Veleno" Ficara
http://veleno.cjb.net

 ha scritto nel messaggio
news:20000912.0...@phobos.mars.system...

Grazie per la risposta, ma io ho un PC con win98.
Ho già istallato l'interprete di perl ma non un web server.
In tale situazione posso ottenere lo stesso le informazioni con qualche
comando o procedura particolare o no?
Grazie ancora.
Ciao


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

 per functions) e cerca "localtime" (sono in ordine alfabetico).
Spero di non dire una porcheria, visto che ActivePerl l'ho utilizzato
pochissimo.
Ma Activeperl non viene fornito con un po' di eseguibili fra cui, anche
perldoc? Dovrebbe risiedere in c:\perl\bin, percorso che fra l'altro
viene inserito nel PATH tramite una modifica dell'autoexec.bat.
Quindi, sempre se non sono sbagliate le premesse, dal prompt dos si
dovrebbe poter digitare "perldoc" con le conseguenze (utili!) che tutti
conosciamo!
Oppure no? :-)
Ciao
M.
-- 
:wq

 viene inserito nel PATH tramite una modifica dell'autoexec.bat.
L'ho usato meno di te... Windows mi serve solo per andare in telnet.


 > viene inserito nel PATH tramite una modifica dell'autoexec.bat.
Tutto vero, perldoc c'e' anche in ActivePerl, su windows basta aprire
una finestra dos e scrivere perldoc .
Per la precisione non e' un eseguile ma un .bat 
Alex
Newsgroup: it.comp.lang.perl
Titolo: Gestione degli errori

Ciao a tutti,
e' da poco che mi sono avvicinato al mondo PERL percui forse la mia
domanda potrebbe sembrare stupida ai piu esperti.
Ho un istruzione.. in particolare:
 
  $Document->Bookmarks("miobokmark")->Select; 
 
che individua all' interno di un documento word un bookmark di nome
"mioboomark".
Se il bookmark in questione non esiste l' istruzione genera un errore!
"Can't call method ....."
Vi chiedo... E' POSSIBILE INTERCETTARE L'ERRORE E COMPIERE QUINDI UN
AZIONE SE QUESTO SI VERIFICA ?
In sostanza come si gestiscono gli errori in PERL.
(In programmazione ASP esiste ad esempio "On Error Resume Next" .. in
PERL ?
Grazie 1000!

On 2 Mar 2004 06:13:55 -0800
wwfpa...@libero.it
 (Achille) wrote:

Ciao,
puoi utilizzare il costrutto eval {BLOCK} e verificare la variabile speciale $@
nel caso che il blocco di istruzioni BLOCK generi un errore di run time. Ad es:
eval {
   $Document->Bookmarks("miobokmark")->Select; 
};
if ($@) {
   # errore
   ...
}
Una soluzione più elegante invece la puoi fare con il modulo Perl 'Error'
(disponibile su CPAN) per la gestione delle eccezioni con la possibilità di
utilizzare blocchi di istruzioni try/catch/except/finally.
by
	- Enrico
--- have fun with 
www.perl.it
 ---

PERL ?
Gli errori in perl si possono gestire con il costrutto: eval {...}
(Eventualmente č anche disponibile un modulo che implementa una struttura
try ... catch ...)
Nel caso particolare, perň, mi sembra piů ragionevole verificare se ti č
stato restituito un bookmark definito, prima di chiamare il metodo Select:
 
   my $bookmark = $Document->Bookmarks("miobokmark");
   if (defined($bookmark)) {
      $bookmark->Select...;
      ...
   }
Ciao.

 writes:
...
Achille> In sostanza come si gestiscono gli errori in PERL.  (In
Achille> programmazione ASP esiste ad esempio "On Error Resume Next"
Achille> .. in PERL ?
Che simpatica domanda :-)
"evitandoli" e` la risposta!
precisamente:
  operazionepericolosa(@parametri) if dominio(@parametri,@ancheimpliciti);
ma SE l'operazione pericolosa e` totalmente e irrimediabilmente al di
fuori del proprio spazio di controllo (non si puo` essere a conoscenza
preventiva dei parametri per prevenirla), ALLORA si puo` scomodare eval
per questo sfortunato caso vedi  perldoc -f eval
Saluti,
MARco
-- 
x(t),y(t) = th(3t-34.5)*e^[-(3t-34.5)^2]/2-4.3+e^(-1.8/t^2)/(.8*atg(t-
3)+2)(t-1.8)-.3th(5t-42.5),(1.4e^[-(3t-34.5)^2]+1-sgn[|t-8.5|-.5]*1.5*
|sin(pi*t)|^[2e^(-(t-11.5)^2)+.5+e^(-(.6t-3.3)^2)])/(.5+t)+1  ; 0<t<14

Newsgroup: it.comp.lang.perl
Titolo: CGI::Pretty

Salve,
vorrei sapere come mai gli script che presentano la seguente riga non
funzionano :
    use CGI::Pretty;
Ho cercato senza successo nel mio sistema (Suse Linux 6.3) il file
pretty.pm
.
C'e' bisogno di installarlo a parte?
Grazie.

 wrote in message
96ljr0$nl7$1...@pegasus.tiscalinet.it...

Newsgroup: it.comp.lang.perl
Titolo: Parsing delle opzioni da linea di comando

Ciao a tutti,
ho un problemino con le opzioni da linea di comando... Utilizzo questo
sorgente come esempio:
--
#!/usr/bin/perl
print "ARGV: `" . "@ARGV" . "`\n";
for my $i (0..$#ARGV) {
        print "Argument[${i}]: `" . $ARGV[$i] . "`\n";
}
1;
--
Se lo eseguo in questo modo:
ff0000@tsi00588pc:tmp$ ./
test.pl
 "a b c"
ARGV: `a b c`
Argument[0]: `a b c`
Mi viene mangiato il "quoting", mentre se lo proteggo:
ff0000@tsi00588pc:tmp$ ./
test.pl
 \"a b c\"
ARGV: `"a b c"`
Argument[0]: `"a`
Argument[1]: `b`
Argument[2]: `c"`
La shell usata e` "bash"... Sapete aiutarmi su come posso preservare
il "quoting"?
Grazie mille.
Ciao.
ff0000

 ff0000
Come hai anticipato, il problema e' in bash e non in Perl.
Devi quotare ulteriormente:
es:
' A    '\''   B '
e' un argomento unico con uno spazio iniziale e uno finale,
alcuni spazi tra le lettere e un singolo '
equivalente a:
\ A\ \ \ '\ \ \ B\ 
terminando con uno spazio:
quello che porti ad esempio tu:
'"a b c"'
o anche:
"\"a b c\""
all' interno di "" si possono usare \ per quotature,
all' interno di '' no quindi se vuoi '' devi fare:
\'a b v\'
o anche:
\''a b c'\'
Anticipo che 
newsland.it
 mi manomentte i messaggi con \ quindi
mi riservo di ripudiare questo messaggio se apparira' non conforme.
Ciao
Roberto.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Roberto.
dai, ne ho sbagliato solo uno, il secondo. ci riprovo:
\ A\ \ \ \'\ \ \ B\ 


 \ A\ \ \ \'\ \ \ B\
:-/ sembra proprio che non si possa fare niente per rendere le cose
piu`
semplici... Speravo non fosse un problema da shell, ma fosse una mia
idiozia con Perl.
Vabbe`, grazie mille!
Ciao.
ff0000

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

Saluti a tutti,
guardando su CPAN, ho visto che ci sono parecchi moduli sulla coppia 
Perl/SSL; il mio dubbio č questo: per instaurare una connessione SSL con 
uno script Perl che processa una form, č sufficiente mettere la form 
HTML in una pagina raggiungibile su https e poi invocare il CGI Perl 
sempre su https (ad esempio: 
https://www.sito.com/cgi-bin/lavora.pl)?
??
Grazie a tutti
Stefano


No. Devi avere installato le librerie SSL (tipo OpenSSL) e compilato uno dei
moduli SSL (tipo Net::SSL, ma posso sbagliarmi).
Se il modulo SSL e' installato, LWP funziona nelle connessioni HTTPS,
altrimenti ciccia.
M.
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

> uno script Perl che processa una form, è sufficiente mettere la form 


 per gli script CGI.
Se hai un server con SSL, tutto quello che ci trasmetti sopra e' criptato, a
prescindere che siano pagine statiche o CGI.

Newsgroup: it.comp.lang.perl
Titolo: Sapere la dimensione fisica di un immagine

Ho un programma in perl/cgi che permette all'utente di caricare sul server
un suo banner.
Come devo fare perchè lo script veda la dimensione fisica dell'immagine e ne
segnali la non validità, nel caso questa non corrisponda alle dimensioni
468*60 ?



 GD
 
http://search.cpan.org/search?dist=GD

Ci sono soluzioni senza l'uso di moduli?


Volevo sapere se ci sono alternative al modulo GD.pm per conoscere la
dimensione fisica di un'immagine caricata tramite un cgi da un utente.
Mi è stato suggerito anche caricare l'immagine sul browser e quindi
impartitre il seguente comando
document.images.IMAGE1.width
document.images.IMAGE1.height
Si tartta di un JS ? Come lo inserisco in Perl?
Ciao!
Newsgroup: it.comp.lang.perl
Titolo: Perl per effettuare POST ad un Form

	Ciao a tutti.
Vorrei fare uno script che mi consenta in modalita' non interattiva di
completare un form su una pagina web di un altro sito e di premere il
relativo tasto di conferma (o piu' propriamente che mi faccia il
POST).
Non saprei pero' come fare. QUalcuno ha un esempio da mostrarmi?
Grazie.




Ne e' passato uno dal newsgroup due settimane fa.
Rieccolo.
Si puo usare una combinazione di moduli HTTP::Request e LWP::UserAgent per
simulare uno user agent.
Qualcosa del tipo
 
 use HTTP::Request::Common qw(POST);
 use LWP::UserAgent;
 
 $ua = LWP::UserAgent->new();
 my $req = POST '
http://www.pippo.xxx/cgi-bin/mycgi
' ,
               [ param1 => 1 , param2 => "pluto" ];
 $content = $ua->request($req)->as_string;
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@tuttocitta.it
 
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Newsgroup: it.comp.lang.perl
Titolo: condividere con i propri thread (fork)

ho eseguito uno script che si collega in remoto tramite ssh a piu macchine.
ogni thread preleva stdout, stderr e exit del comando che  esegue e poi
termina. come posso "restituire" questi valori al padre? non esiste un
modo per condividere un hash tra padre e figli?(immagino di no...)
una soluzione potrebbe essere di creare una pipe per ogni thread e poi,man
mano che i thread terminano stampare i risultati?
Grazie,
   Alberto.

 modo per condividere un hash tra padre e figli?(immagino di no...)
Una possibilita` e` usare IPC::Shareable.
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: problema lettura da QUERY_STRING o STDIN

ho questo problema:non riesco a passare stringhe al mio script;
questo č lo script:
#!c:/perl/bin/perl.exe
$forminfo=$ENV{'QUERY_STRING'};
print "Content-type: text/html","\n\n";
print $forminfo,"\n";
open (TOFILE,">info.txt");
print TOFILE "prova","\n";
print TOFILE $forminfo,"\n";
close (TOFILE);
Lo script si chiama 
prova.pl
 e sta nella directory c:\cgi.
Dalla riga di comando di Explorer lo eseguo cosě:
c:/cgi/
prova.pl?andrea
dopo l'esecuzione nel file info.txt trovo la stringa prova e poi una riga
vuota, mentre dovrei trovare prova e poi, nella riga sotto, andrea!
Ho questo problema con tutti gli script che sto realizzando: ad esempio ho
realizzato un script per raccogliere dei consigli circa il mio sito; se lo
provo inviandogli i dati da un modulo html (con il POST e quindi prelevando
nello script da STDIN) non va, mentre se lo provo dentro il Perl Builder
funziona! Inoltre, quando lo eseguo da un HTML, perchč mi presenta la
maschera come se dovessi fare un download (per capirci quella con apri file
o salva sul disco)?
Ho fatto molte prove prima E NON SO PIU' CHE PESCI PIGLIARE
Questi sono i software che uso:
Windows 95
ActivePerl (versione scaricata 10 gg fa, mi sembra sia la 5.6.0)
Perl Builder 1.0e (versione di prova)
IE5.0
ringrazio TUTTI  in anticipo.        Andrea De Magistris 
dema...@iol.it

c:/cgi/
prova.pl?andrea
Devi installarti un web server (ad esempio Apache per Windows)
ed utilizzare una URL tipo questa per eseguire il CGI:
http://localhost/prova.pl?andrea
	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!

 IE5.0
  Ti manca il web server, il quale provvede alla inizializzazione delle
variabili d'ambiente utilizzate dagli script CGI.
	Alla prossima,
		Marco
Newsgroup: it.comp.lang.perl
Titolo: cgi con sito protetto

Salve,
stò realizzando un cgi in Perl che rimanda l'utente, previo digitazione di
una password, verso un area protetta di un sito.
Nello script, per fare accedere l'utente nella suddetta area (directory)
protetta, utilizzo l'istruzione:
print "Location:
http://username:pass...@www.sito.com/areaprotetta/index.htm
 \n\n";
sebbene il redirect funzioni, appare comunque la Windows-Box che richiede
nuovamente USERNAME E PASSWORD già passati nella stringa dell'indirizzo.
Come mai?
esiste un metodo alternativo ???
Grazie a tutti.
Daniele.

 nuovamente USERNAME E PASSWORD gią passati nella stringa dell'indirizzo.
strano che il redirect funzioni!
ci sone le " e un @ !
o 'Location: http://username:pass...@www.sito...'
oppure 
"Location: http://username:password\@www.sito..."
Io ho provato e funziona...
Controlla:
1) il discorso @
2) che user e password siano giusti! ;)
3) FORSE dopo il Location ci va uno spazio (la sparo!)

 ha scritto nel messaggio
news:3C7AAE7F...@friuli.com...


 ??? che devo fare???
prova cosě:
#!/usr/local/bin/perl
use CGI;
$query=new CGI;
print $query->redirect(-location=>'
http://pippo:pl...@www.miosito.com
');

 prova così:


 forse c'è qualcosa da settare qui???
io nei miei uso
<Limit GET POST>
require valid-user
</Limit>
senza PUT

 senza PUT
ehm ... PUT in effetti è un metodo (assieme a GET e POST) CGI
non penso c'entri... (?!?)
prova comunque
<Limit GET POST>
order allow,deny
allow from all
require valid-user
</Limit>
Al limite ancora, prova a fare cose del tipo:
###########
print q[Status: 302 Found
Location: 
http://pippo:pl...@www.miosisto.it
Content-type: text/plain
aspetta il redirect];
###########
al posto del 302 Found puoi tentare gli altri 3xx, o togliere il
Content-type ed il messaggio.
Oppure usare il modulo "Apache" (sparo)

Newsgroup: it.comp.lang.perl
Titolo: Numeri in formato 0001

Ciao a tutti,
scusate l'estrema ignoranza, ma e' solo da qualche giorno che ho 
iniziato a vedere il Perl. Inutile dire che e' veramente interessante ;)
Ho pero' un problema, volevo giocare con stringhe e numeri e mi 
piacerebbe mettere gli interi in formato da 4 cifre. Ad esempio 17 
diventa 0017, 2 diventa 0002 etc...
qualcuno puo' aiutarmi?
Grazie infinitamente,
Forrest

diventa 0017, 2 diventa 0002 etc...
  perldoc -f sprintf
  perldoc -f printf
Si può fare, ovviamente, anche in altri modi, ma questi sono i più
immediati.
Ciao.

 qualcuno puo' aiutarmi?
my $n = 5;
my $n4 = sprintf("%04d", $n);  # $n4 contiene 0005
Puoi divertirti con altri giochini di questo tipo consultando
perldoc -f sprintf

Newsgroup: it.comp.lang.perl
Titolo: Problemino unlink

Ho uno script perl che genera un file via openssl,
(chmod 644 per capirci)
alla fine dello script tento di eliminarlo con
unlink("certificato.pem");
ma il file rimane li dove ï¿œ stato creato.
Idee?

 ma il file rimane li dove ï¿œ stato creato.
fai
unlink("certificato.pem") or die "$!";
cosï¿œ vedi l'errore. A naso penso che tu debba usare il path assoluto 
oppure usare FindBin:
use FindBin qw($Bin);
unlink("$Bin/certificato.pem") or die "$!";
se il certificato ï¿œ nella dir dello script.
Newsgroup: it.comp.lang.perl
Titolo: Perl e comando spazio disco

Ho necessità di creare un cgi 
che controlli lo spazio disco disponibile prima di 
effettuare la copia di un file.
Volevo evitare qualcosa tipo 
exec('df -kh .');
per questioni di sicurezza.
Esiste qualche libreria nel core o nello sterminato cpan (nel quale ho
cercato un po' e poi abbandonato..)
che mi implementi un comando del genere ?
grazie, saluti

 cercato un po' e poi abbandonato..)
 
http://search.cpan.org/author/IGUTHRIE/Filesys-Statvfs_Df-0.68/
 
http://search.cpan.org/author/FTASSIN/Filesys-DiskSpace-0.05/

  
http://search.cpan.org/author/FTASSIN/Filesys-DiskSpace-0.05/
c'era... grazie !!!!

Newsgroup: it.comp.lang.perl
Titolo: Cancellare un cookie!

Qual'è il codice perl  per cancellare il cookie rilevato??
Thank!

Qual'è il codice perl  per cancellare il cookie rilevato??
Mandi un cookie con lo stesso nome e con scadenza immediata.
	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: Commento di un blocco in PERL

In PERL per commentare si usa #
ma se devo commentare molte righe come mi fa?
Come ad esempio in Javascript /*...*/
oppure in HTML <!-- .... -->

 Come ad esempio in Javascript /*...*/
Come in C vorrai dire ;-)
-- 
Saluti,
Giancarlo

 Purtroppo non c'e' altro modo.
Se si vuole escludere dalla compilazione un blocco di righe e non si vuole
usare i commenti, ci sono due trucchetti che si possono usare:
Racchiudere il codice tra due tag POD:
  =head1
      # codice perl
  =cut
Usare la sintassi here-doc per trasfomare un blocco di codice in una
stringa:
 <<'COMMENTED';
  # codice perl
 COMMENTED
Max

 Come in C vorrai dire ;-)
Si, anche in JS si fa cosi' :-)
Ciao,
Guido.


Io a volte faccio cosě:
if (0) {
... blocco da escludere...
}
l'if non esegue il contenuto del blocco. Mi risulta piů semplice che mettere
un # su ogni riga :)
--
"Ho preso un lettore mp3 stupendo, l'imp-250!
--> 
www.soluzionimp3.com
"
Newsgroup: it.comp.lang.perl
Titolo: Tiler

Ciao a tutti,
Ho da poco intrapreso, ad utilizzare Tk  e subito mi sono scontrato con
tiler.
ho un prg che, dopo aver letto dati da un database mysql, li mostra a video
e fin qui tutto ok
il problema nasce quando le righe da visualizzare superano lo schermo e
spulciando un po di esempi, ho scoperto l'amato e odiato TILER.
il risultato l'ho ottenuto (mi apre una finestra in cui mostra sia la barra
di scorrimento che il campo contenete i dati, ma purtroppo li sovrappone
percui la barra di scorrimento e coperta dal campo dei dati.
questo e' il listato della sub()
Grazie in anticipo
p.s. ho provato a togliere "-width =>" 92 nella riga 17  e la cosa
funzionerebbe ma purtroppo, il campo dei dati si riduce a 20
      caratteri e io invece ne abbisogno di circa 90 (una curiosita' perche'
poi mette un campo di 20 caratteri e non 10 o 5 ?)
# *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
1   sub visualizza {
2   my $mw = MainWindow->new();
3   $mw->minsize( qw(650 450));
4   $mw->title("visualizza   ");
5   use DBI;
6   # Apertura connessione
7   my $dbh = DBI->connect($ddb, $utente, $password)or die "NON MI RIESCO A
CONNETTERE";
8
9   # query
10 my $query = $dbh->prepare("SELECT * FROM anagrafe");
11 $query->execute();
12
13 # Visualizza  risultati
14
15 my $tl = $mw->Scrolled('Tiler', -columns => 2, -rows =>20);
16 while (my $ref = $query->fetchrow_hashref()){
17 my $ent0 = $mw->Entry (-width => 92,-background => 'green');
18 $ent0->insert('end',"$ref->{'conome'},$ref->{'nome'}, $ref->{'ind'},
$ref->{'citta'}, $ref->{'tel'}, $ref->{'codfis'}");
19 $tl->Manage( $tl->Label => $ent0 );
20 $tl->pack(qw/-expand yes -fill both/)
21
22  } # end while
23 $query->finish();
24 # Chiusura connessione
25 $dbh->disconnect;
26 } #end visualizza
# *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

Scusate, ripostato per errore
Newsgroup: it.comp.lang.perl
Titolo: presentazioni

Diemnticavo, sono un newbie del perl e di questo gruppo, quindi gli
utenti piů giovani non devono farsi ingannare e prendere molto con le
pinze quello che dico (sono autodidatta del perl da circa un mese).
Agli oldbie invece porgo i miei piů sentiti ringraziamenti in anticipo
per ogni eventuale risposta, cosě evitiamo post inutili con oggetto
solo *THX* :)
-- 
       Ą 
      |†|
     /    \         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
    '-----'

!
Benventuo tra noi!
	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!

Benventuo tra noi!
THX ! (ahem... :)
In realtà ho già una domanda. Sto realizzando un piccolo client
command-line per protocolli testuali (stile telnet). L'ovvio
funzionamento è printare sul socket l'<STDIN> choppato a cui aggiungo
/x0D/x0A (CRLF), poi scrivere la risposta del server.
Il problema è che la risposta del server può essere più di una linea.
Infatti non sapendo di quante linee sarà, ne trovando un segno di
default che segni la fine dell'output, quando il client prova a
leggere il server che non risponde più si mette in attesa.
Ora la mia domanda è: c'è un modo per sapere se il socket da cui leggo
è ancora pieno prima di fare il mio print "#server: ".$socket."\n" ?
ps. sto testando con server locali. Hamster su Win98 e una versione di
Pipesock modificata da me su linux 2.2.17.
-- 
       ¥ 


Newsgroup: it.comp.lang.perl
Titolo: messaggio sul connect del DBI

Come posso evitare che su piattaforma Win32 alla connessione a db appaia
il messaggio "ORACLE_HOME not set!".
Grazie
--
Posted from 
relay.insiel.it
 [194.184.99.2]
via Mailgate.ORG Server - 
http://www.mailgate.org

 appaia il messaggio "ORACLE_HOME not set!".
Beh, spero che per "evitare" tu intenda "risolvere"... Devi impostare
la variabile d'ambiente. Prova a settare
$ENV{'ORACLE_HOME'} = 'X:\path\to\oracle\home';
$dbh = DBI->connect ...
-- 
Alessio F. Bragadini		
ale...@dsnet.it
Newsgroup: it.comp.lang.perl
Titolo: Parametri negli script cgi

Voglio passare la stringa "dati" allo script 
counter.pl
 che invoco da una
pagina index.shtml con il comando:
<!--#exec cgi = /cgi-bin/
counter.pl
"-->
Come faccio a passare il parametro "dati" in modo che sia utilizzato dallo
script?
Inoltre da quello che ho capito, per assegnare il valore "dati" ad una
stringa all'interno dello script, devo eseguire l'istruzione:
$nomefile = $ARGV[0]
E' corretto? Vi ringrazio se vorrete darmi una risposta.
Massimo

 E' corretto? Vi ringrazio se vorrete darmi una risposta.
Non credo. Io uso
 $nomefile = $ENV{dati};
 
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: perl

Hi. Could someone here please tell me more about perl?
I'd appreciate it if you responded via my personal email and this group.
Thanks!

 I'd appreciate it if you responded via my personal email and this group.
I'd say the best definition is PRACTICAL Extracting and Reporting Language;
I can't say much more, I am new at it...
Andrea

Newsgroup: it.comp.lang.perl
Titolo: Problema di ordinamento

Salve!
Ho cominciato da poco a programmare in Perl da autodidatta, e mi sono
trovato davanti ad un problema che non riesco a risolvere, e che vi illustro
di seguito. C'è qualcosa che mi sfugge, e conto sul vostro aiuto.
All'interno di un file data.txt, ho una struttura di dati di questo tipo:
dato1|link1|URL1
dato2|link2|URL2
...
devo prelevare da questo file i dati che nel primo campo hanno la stringa,
per esempio, Home.
Fin qui è semplice:
#!/usr/local/bin/perl
$data="d:\\index.dat";
$data1="d:\\index1.dat";
open (DIR, "<$data");
@list = <DIR>;
close(DIR);
foreach $line(@list) {
             @input = split(/\|/,$line);
             if($input[0]=~/Home/g){
             push(@toorder,$line);
             }
}
A questo punto devo ordinare lessicalmente - secondo il secondo campo link -
i dati che ho prelevato e posto in toorder, ed infine porli in un secondo
file con la stessa struttura di quello originario.
Come devo scrivere il codice?
Ringrazio anticipatamente.
Marcello





Come devo scrivere il codice?
Hai provato a leggere la perlfaq4 "How do I sort an array by
(anything)?" ?
Ciao
Andrea Busia
No Spam, Grazie.
Newsgroup: it.comp.lang.perl
Titolo: espandere una variabile in un file

Ciao,
se leggo da un file una riga del genere:
define $host
come faccio ad espandere quel $host con la variabile che ho nello script ?
Se stampo direttamente la riga la variabile non viene interpolata,
come se fosse stampata tra apici singoli.
Grazie
Andrea 

 Andrea
use strict;
my $varreferenziatapernome = "ciao\n";
my $var = '$varreferenziatapernome';
eval 'print '.$var.';';
ti consiglio eval perche' puoi lasciare attivo
use strict;
altrimenti;
no strict;
$varreferenziatapernome = "ciao\n";
$var = 'varreferenziatapernome';
print $$var;
use strict;
nota che $var in questo caso NON contiene $varreferenziatapernome
ma semplicemente il nome 'varreferenziatapernome'.
quindi dovrai eliminare $ da $host
Ciao
Roberto
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 use strict;
Qui ci sarebbe altro da dire: credo che eval riesegua il parser perl
a runtime e questo se usato intensamente potrebbe creare problemi di
performance.
forse potresti cambiare approccio e includere direttamente un sorgente
perl con
do './
fileconfig.pl
'
che quindi dovra' essere scritto con sintassi perl.


 ha scritto nel messaggio 
news:d1ee1h$23e$1...@news.newsland.it...


 >> eval 'print '.$var.';';
OK funziona, però ci sono problemi di sicurezza da tenere di
conto. Chi scrive quel file? Tieni conto che potrei pure scrivere:
------------
Pippo @{[system "rm -rf ~"]}
------------
e quando lo passi ad 'eval' la tua home viene spazzata via...
Se il file che valuti lo scrivi tu, e sei sicuro che non ci finirà mai
cadice del genere, vai con eval o do. Altrimenti (es. file di
configurazione, o template), usa uno dei vari moduli di templating in
giro, anche senza andare a prendere l'ottimo (ma enorme) Template
Toolkit.
-- 
  dakkar

 ha scritto nel messaggio 
news:d1ee1h$23e$1...@news.newsland.it...


 >
A me funziona, ma non e' una semplice inclusione. Viene fatto il
parsing del codice e eseguito come fosse in un blocco { 
codicefile.pl
 }
quindi le var dichiarate con my non vengono alterate. inoltre se
usi use strict; le variabili che non dichiari con my le devi citare
con il nome del package:
# nel file incluso per modificare la var $contatore nel file chiamante
$main::contatore++;
o generalizzando:
$nomepackagedovedefinitavar::contatore++;
ciao.


Newsgroup: it.comp.lang.perl
Titolo: Esiste una distro linux con già buona parte dei moduli perl disponibili(tipo FreeBSD)

Esiste una distro linux con già buona parte dei moduli perl disponibili(tipo
FreeBSD) ???

 disponibili(tipo FreeBSD) ???
Slackware?
-- 
MuRdOcK :: User Outside

 FreeBSD) ???
Sì
Newsgroup: it.comp.lang.perl
Titolo: Eliminare un file partendo dal filehandle

Salve a tutti,
stò utilizzando il modulo CGI.pm, in particolare devo gestire i file
uploadati attraverso il campo file di un modulo html.
Il file passato dal modulo allo script, viene uploadato nella cartella temp
del server e fin qui tutto ok.
il parametro che vado a leggere  $img=$query->param('nomecampo file');
rappresenta un filehandle aperto sul file uploadato, lo leggo e lo inserisco
in un DB e anche qui ok! Come ultima fase, vorrei eliminare il file dalla
cartella temp, è possibile farlo dal filehandle? o devo escogitare qualche
altro sistema? non posso utilizzare unlink sulla cartella temp perchè il
nome del file viene generato pseudo-casualmente.
grazie a tutti
non credo, ma se fossi OT scusatemi

Claudio Bellucci wrote:

Se non sbaglio :
unlink FILEHANDLE;
Ciao

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

So poco quasi niente di Perl ma mi trovo nella necessità di dover modificare
uno script.
Ho la seguente istruzione:
$var = "pippo.txt"
Io vorrei invece che la variabile $var contenesse le righe di pippo.txt
nell'ordine inverso cioè dall'ultima alla prima.
Come fare?
Ringrazio in anticipo

nell'ordine inverso cioè dall'ultima alla prima.
$var non contiene le righe del file pippo.txt ma bensi solo la stringa
pippo.txt !!!
In seguito userai open(FILE,$var); per aprire tale file.....
Per invertire si usa reverse :
$var = "pippo.txt"
open(FILE,$var);
@a=reverse <FILE>;
close(FILE);
print @a;
Quinidi, con open apri, con l'array leggi il file al contrario (reverse),
poi chiudi il file ed in fine lo stampi (al contrario). Tuttavia
(soprattutto se il file e' grosso) ti conviene eviatre di mettere tutto in
memori:
$var = "pippo.txt"
open(FILE,$var);
print reverse <FILE>;
close(FILE);
In questo modo non usi l'array e non metti tutto il file in memoria!  (a
volte pero' fa comodo averlo in memoria, vedi tu ...)
Alex

# leggi il file e lo "metti in un array:
open(FILE,"pippo.txt");
@file=<FILE>;
close (FILE);
#poi leggi l'array all'incontrario
for ($i=$#file;$i>=0;$i--)
{
    $var.="$file[$i]";
}
Ciao
-- 
Posted from 
relay4.inwind.it
 [212.141.53.75] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.perl
Titolo: Perl e OpenGL

Ciao a tutti e buon anno.
Ho appena installato il modulo perl OpenGL. Durante l'installazione
visualizzavo senza problemi il test (un cubo colorato che ruotava).
Però se eseguo un semplice programma come questo
use OpenGL;
glpOpenWindow;
glClearColor(0,0,1,1);
glClear(GL_COLOR_BUFFER_BIT);
glpFlush();
print "OpenGL window open, perl interpretor ready!\n";
print "Try entering some GL commands to draw stuff:\n";
while(<STDIN>){
	$e=eval;
	print "EVAL:  $e\n";
	print "ERROR: $@" if $@;
}
Ottengo il seguente messaggio d'errore.
_____________________________________________________________________
C:\strawberry\cpan\build\OpenGL-0.64-9MmiUk\examples>perl try
Can't locate auto/OpenGL/glpcOpenWin.al in @INC (@INC contains: C:/
strawberry/pe
rl/site/lib C:/strawberry/perl/vendor/lib C:/strawberry/perl/lib .) at
try line
3
C:\strawberry\cpan\build\OpenGL-0.64-9MmiUk\examples>
_____________________________________________________________________
In C:\WINDOWS\system32 ci sono:
opengl32.dll
glut32.lib
glut32.dll
glut.h
glut.def
Quale può essere il problema?
Grazie mille.
Ciao.
G.

 Quale può essere il problema?
Probabilmente questo:
http://www.perlmonks.org/?node_id=699378
Newsgroup: it.comp.lang.perl
Titolo: Tk - Dove trovo una guida

Dove trovo una guida (o un tutorial) sull'uso del tk via perl? Ho
provato "perldoc tk" ma non trova nlla e tk è composto da parecchi
moduli, non so da dove iniziare
Grazie
Andrea Busia

 moduli, non so da dove iniziare
esiste un libro edito dalla O'Reilly, non ricordo altro (forse non è
neanche stato tradotto in italiano :-(

 moduli, non so da dove iniziare
Le FAQ le hai  già viste? Tipicamente sono un buon punto da cui iniziare.
http://w4.lns.cornell.edu/~pvhp/ptk/ptkFAQ.html
Prova questo... :-)
http://www.altavista.com/cgi-bin/
   query?pg=q&kl=XX&stype=stext&q=%2Bperl+%2Btk+%2Btutorial
--
Max M.
perl -e 'print grep{$i=!$i}split//,"mrahxtiymu@.cwormbmr2t0y0u0#.iiyt"'

neanche stato tradotto in italiano :-(
Ci sono due libri, non tradotti. Dal sito O'Reilly (
http://www.ora.com
):
Learning Perl/Tk
By Nancy Walsh
1st Edition January 1999
1-56592-314-6, Order Number: 3146
376 pages, $32.95
Perl/Tk Pocket Reference
By Stephen Lidie
1st Edition November 1998
1-56592-517-3, Order Number: 5173
104 pages, $9.95
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

 > moduli, non so da dove iniziare
E' disponibile la documentazione ih HTML. Vedi:
http://www.arcetri.astro.it/CC/perlTkDoc/
--------------------------------------------------------------------------
       -- )     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?

 perl -e 'print grep{$i=!$i}split//,"mrahxtiymu@.cwormbmr2t0y0u0#.iiyt"'
mitico! è l'antispam più figo che abbia mai visto (peccato che lo capiscono
in 3 :-))
-- 
- Claudio Della Ciana <pynhqvbq...@rznvy.pbz>
- apply a rot13 to get real address
It's now the GNU Emacs of all terminal emulators.
        -- Linus Torvalds, regarding the fact that Linux started off as a
	terminal emulator
Newsgroup: it.comp.lang.perl
Titolo: input binario

C'e` un sistema non mostruosamente lento (copie e regexp :-) ) per fare
il parsing di un file formato da stringhe null terminated accodate?
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

 il parsing di un file formato da stringhe null terminated accodate?
Ovvero? Sequenze di caratteri separati da null?
Puoi provare a leggere il file usando il 'null' come terminatore di stringa.
$/ = "\000";
dovrebbe essere il comando corretto.
Dalla riga di comando, dovrebbe bastare il flag -0 (meno zero)
In questa maniera, un semplice 
 $/ = "\000";
 while (<>)
  {
     .....
  }
ti dovrebbe permettere di parsificare il file, ottentendo ad ogni giro del
while un record (con il null ancora in fondo)
Per togliere il null, dovrebbe essere ancora adeguato chomp (che rimuove
proprio $/ )
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: Corso Vulcan .NET

Stiamo organizzando un corso di istruzione (di 2 giorni) completamente 
gratuito con lo scopo principale di divulgare il nuovo linguaggio di 
programmazione .NET della Grafx (Vulcan) .
Questo strumento permette oltre alla programmazione .NET come C#, anche uno 
strumento per l'importazione delle applicazioni scritte in Visual Object ed 
in parte Clipper .
Vulcan proviene da un linguaggio xBase , affidabile e molto facile da 
utilizzare  .
Perequisito minimo è la conoscenza della programmazione ad oggetti, non 
essenzialmente di Visual Object o Clipper.
Le date orientativamente saranno fine Aprile, primi di Maggio 2008.
Creo sia una occasione unica, importante, se si vuole crescere e rimanere al 
passo con le nuove tecnologie e se si vuole affrontare con delle basi solide 
la programmazione .NET (anche per la programmazione di siti web !!!).
Buon lavoro, attendiamo numerose adesioni, non lasciatevi scappare questa 
occasione !!!
Per contatti :
aless...@computerscenter.com
 oppure 
soft...@tiscali.it
 

 
alessan...@computerscenter.com
 oppure 
softd...@tiscali.it

Le date saranno i giorni 9 e 10 Maggio a Peschiera del Garda oppure a
Livorno, per maggiori info contattatemi al mio email.
aless...@computerscenter.com
Mi scuso con Nicola, ho postato nei vari news perchè è di interesse
comune la programmazione .NET .

 comune la programmazione .NET .
Certo, ma chi si occupa di .NET sicuramente leggerà il ng adatto, ergo 
sei fortemente OT.
Ciao Zelo.
P.S. A me di .NET non mi frega una beneamata fava.

 comune la programmazione .NET .
io me ne sbatto un po' i coglioni di .Net. Ma roba che se tipo MS domani si
svegliasse e uccidesse .Net, la mia vita (lavorativa) non cambierebbe di
mezza virgola.
Non a caso non troverai post miei su it.comp.programmare.win32 etc
Newsgroup: it.comp.lang.perl
Titolo: perlpod

Salve,
devo scrivere la documentazione di un "package".
Mi consigliate l'uso di "perlpod" ?
 Raffaello

 Mi consigliate l'uso di "perlpod" ?
Personalmente si`. Per i seguenti motivi:
   i. E` la cosa che viene usata di solito per questo scopo
  ii. Il formato POD e` semplice
iii. E` facilmente convertibile in altri formati (text, html,
      latex)
  iv. Se hai esigenze ulteriori, puoi pensare di aggiungere
      un nuovo tag e di scrivere un adattamento del parser.
Motivi per non usarlo:
   i. Potrebbe risultare troppo semplice se devi impaginare
      in maniera particolare (ma il layout del documento non e`
      affare del formato POD)
  ii. ... non mi viene in mente altro.
Se il POD non dovesse soddisfare le tue esigenze (ma in questo
caso son curioso di sapere quali sono), allora suggerisco LaTeX.
ciao
Stefano

 caso son curioso di sapere quali sono), allora suggerisco LaTeX.
... LaTeX e' troppo pesante per la documentazione che devo scrivere,
POD e' piu' che sufficiente.
A tal proposito mi ricordo che qualcune scrisse :
 "documentation is like sex: when it is good, it is very, very good;
  and when it is bad, it is still better than nothing."
;)
 Raffaello

Newsgroup: it.comp.lang.perl
Titolo: perl regexp e gruppi $1,$2,$3

Nota: non è un crosspot (inizialmente avevo messo questo messaggio anche 
sotto linux iniziare, ma giustamente mi è stato fatto notare che esiste 
anche questo gruppo)
-
Ho una funzione a cui passo una generica regex che non mi è nota a priori.
vorrei conoscere quante variabili $1...$[n] mi valorizza.
solo che non trovo come riferirmi all'indice di $ (immagino sia un 
grosso buco nelle mie conoscenze di perl, ma non so che chiavi usare
per domandare la risposta a google)
Per spiegarmi ecco un prog di test
$rigadatestare e $regexpesempio devono considerarsi variabili
e a seconda della regexp caricata il numero di $1,2,3 può variare
-INIZIO SCRIPT PERL
#!/usr/bin/perl -w
my $rigadatestare='   @bookmark nomebookmark=[sezione] pippo pluto 
paperino';
my $regexpesempio='^\s*\@bookmark\s+(\w*)\s*=\s*(.*)';
if ($rigadatestare =~ m/$regexpesempio/) {
     print "prima di uguale :>>>$1<<<\n";
     print "dopo uguale :>>>$2<<<\n";
# l'esempio sopra visto che conosco la regexp so che mi valorizza
# $1 e S2, ma per farlo pià generico volevo gestirlo con un ciclo.
# Ho trovato questo workaround che funziona. Il ciclo lo faccio
# attraverso $- che in risposta ad una regexp contiene la lista
# delle posizioni iniziali dei gruppi che verificano la regexp
# (AMMESSO CHE IO ABBIA CAPITO BENE). Sembra funzionare, in teoria
# anche se è riferito ad un altra cosa dovrebbe contenere il valore
#che mi serve
     foreach $expr (1..$#-) {
         print "Trovato $expr: >>>${$expr}<<<\n";
     }
#Apparentemente il ciclo sotto funziona bene, ma preferirei ciclare
#sull'indice di $, non di $- (anche se magari sono uguali)
}
die "FINE";
-FINE SCRIPT PERL
PS.. Viene da un copia-incolla quindi dovrebbe girare.

 -FINE SCRIPT PERL
Questo non lo fare mai più ;-)
Ciao!

 Nota che l'ultima cattura del mio esempio, (d)?
(c)?


Very, Very Grazie.
Newsgroup: it.comp.lang.perl
Titolo: Hash Array e mal di testa

Gli hash già rappresentano un mal di testa, ma quando sono combinati
con gli array è peggio.
Sto cercando di stampare i valori di 'rate' e 'currency', ci riuscirò
un giorno, ma con il vostro aiuto magari ci metto meno tempo:
$VAR1 = {
'xmlns' => '
http://www.ecb.int/vocabulary/2002-08-01/eurofxref
',
'Cube' => {
'Cube' => {
'time' => '2009-03-20',
'Cube' => [
{ 'rate' => '1.3549', 'currency' => 'USD' },
{ 'rate' => '129.87', 'currency' => 'JPY' },
{ 'rate' => '1.9558', 'currency' => 'BGN' },
{ 'rate' => '26.628', 'currency' => 'CZK' },
{ 'rate' => '7.4515', 'currency' => 'DKK' },
{ 'rate' => '15.6466', 'currency' => 'EEK' },
{ 'rate' => '0.93950', 'currency' => 'GBP' },
{ 'rate' => '298.36', 'currency' => 'HUF' },
{ 'rate' => '3.4528', 'currency' => 'LTL' },
{ 'rate' => '0.7083', 'currency' => 'LVL' },
{ 'rate' => '4.5662', 'currency' => 'PLN' },
{ 'rate' => '4.2972', 'currency' => 'RON' },
{ 'rate' => '11.0560', 'currency' => 'SEK' },
{ 'rate' => '1.5291', 'currency' => 'CHF' },
{ 'rate' => '8.6500', 'currency' => 'NOK' },
{ 'rate' => '7.4511', 'currency' => 'HRK' },
{ 'rate' => '45.4920', 'currency' => 'RUB' },
{ 'rate' => '2.2872', 'currency' => 'TRY' },
{ 'rate' => '1.9685', 'currency' => 'AUD' },
{ 'rate' => '3.0519', 'currency' => 'BRL' },
{ 'rate' => '1.6770', 'currency' => 'CAD' },
{ 'rate' => '9.2509', 'currency' => 'CNY' },
{ 'rate' => '10.5008', 'currency' => 'HKD' },
{ 'rate' => '15974.27', 'currency' => 'IDR' },
{ 'rate' => '68.5170', 'currency' => 'INR' },
{ 'rate' => '1901.81', 'currency' => 'KRW' },
{ 'rate' => '19.1995', 'currency' => 'MXN' },
{ 'rate' => '4.9352', 'currency' => 'MYR' },
{ 'rate' => '2.4240', 'currency' => 'NZD' },
{ 'rate' => '65.360', 'currency' => 'PHP' },
{ 'rate' => '2.0535', 'currency' => 'SGD' },
{ 'rate' => '47.848', 'currency' => 'THB' },
{ 'rate' => '13.0680', 'currency' => 'ZAR' }
]
}
},
'gesmes:Sender' => { 'gesmes:name' => 'European Central Bank' },
'gesmes:subject' => 'Reference rates',
'xmlns:gesmes' => '
http://www.gesmes.org/xml/2002-08-01
'
};

Oreste wrote:

print 'rate: ', $_->{rate}, "\t", 'currency: ', $_->{currency}, "\n"
     foreach @{ $VAR1->{Cube}{Cube}{Cube} };
(Altrimenti non ho capito cosa vuoi estrarre.)

 (Altrimenti non ho capito cosa vuoi estrarre.)
Temo che stavo facendo io fatica a capire. Ti ringrazio infinitamente,
posto il codice completo:
use strict;
use CGI;
use XML::Simple;
use Data::Dumper;
use LWP::Simple;
my $q = CGI->new();
my $url = '
http://www.ecb.int/stats/eurofxref/eurofxref-daily.xml
';
my $xml = get $url;
my $cambi = XMLin($xml);
print $q->header(-charset=>'utf8');
print Dumper($cambi);
print '<br /><hr /><br />';
print 'cambio del giorno '.$cambi->{Cube}->{Cube}->{time};
print '<br /><br />';
print '1 &euro; = ', $_->{rate}, ' ', $_->{currency}, "<br />"
     foreach @{ $cambi->{Cube}{Cube}{Cube} };
Newsgroup: it.comp.lang.perl
Titolo: Formattazione stringhe.

Salve.
Ho una stringa di questo tipo "07:34:00". E' un'orario.
Se volessi fare in modo tale da visualizzare solo ora e minuti
e' lecito utilizzare questa istruzione:
$ora = sprintf("%5s", $stringa)?
Dove $stringa contiene l'ora.
Grazie.
-- 
per rispondere togli <toglimi> dall'indirizzo di posta. 



 Dove $stringa contiene l'ora.
Non credo.
 ($ora) = $stringa =~ /^(\d\d:\d\d):\d\d$/;
 
potrebbe funzionare se $string e' ben formata.
Anche 
 $ora = substr($stringa,0,5);
potrebbe non fare schifo.
M^3
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)


Forse č meglio fare cosě:
    ($a,$b,$c) = split(/\:/,$stringa);
    in $a e $b hai rispettivamente l'ora e i minuti.
                Ciao Marco



Pero' funziona.
--
Posted from 
mta01-acc.tin.it
 [212.216.176.32]
via Mailgate.ORG Server - 
http://www.mailgate.org

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

Premetto che sono un principiante di perl
devo creare una subroutine che mi salvi su di un file un dato numerico
Poi ogni volta che richiamo la sub devo estrarre il dato numerico
incrementato e restituirlo ad un output html.
Mi potete aiutare ?
Grazie in anticipo -

 Mi potete aiutare ?
C'e' ESATTAMENTE un esempio di questo genere nell'FAQ riguardante il locking
dei file.
Buona lettura di perlfaq
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

, 
http://zap.to/balestra
" Ora mai che i baci tuoi piu' non mi sazian
  cerchero' un'altra donna dentro ai sogni di Tarzan... "

On Thu, 27 May 1999 11:33:54 GMT, 
bale...@antispam.dada.it
 (Marco
Balestra) wrote:
| Ok, anche se credo che di esempi ne troverai tonnellate..
| Comunque, assumendo che il file vadachiamato "conto.txt" e messo nella
| dir corrente dell'istanza della cgi...
| 
| print "HTTP 1.0\nContent-type: text/html\n\n";
| if (open(ORIG,'<conto.txt')) {
|   $conto=<ORIG>; close(ORIG);
|   $conto =~ s/[^\d]//mg; }
| else { $conto=0 }
| open(ORIG,'>conto.txt'); print ORIG ++$conto; close(ORIG);
| print "<HTML><BODY>$conto</BODY></HTML>";
usai uno script simile. su siti trafficati comporta pero' che se
avviene la simultaneita' di una scrittura con una lettura il contatore
viene resettato.
consiglio di lockare il file quando viene scritto.
in perlfaq c'e' un ottimo script.
oha