mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: PARSER di un file XML con perl

Ciao,
ho un file XML simile a quello qui sotto decritto:
<?xml version="1.0" encoding="ISO-8859-1" ?> 
<CMSUITE>
 <RESULT>
   <DOCDB SCN="scn0" DOCTYP="doctyp3465" TITLE="xml parse di prova"
</DOCDB>
   <DOCDB SCN="scn1" DOCTYP="doctyp2345" TITLE="xml parse di prova
2"</DOCDB>
  </RESULT>
</CMSUITE>
devo effettuare un parse, estrapolare quindi i valori SCN,DOCTYP,TITLE
e creare con essi una stringa del tipo:
 $prova = SCN + DOCTYP + TITLE
Il tutto deve essere effettuaro su un sistema Unix Solaris.
Avete idea di come possa essere il sorgente del mio script perl ?
Grazie in anticipo.



No, ma puoi servirti di questo modulo :
 XML::Simple
 
http://search.cpan.org/~grantm/XML-Simple-2.12/
Raffaello

 
http://search.cpan.org/~grantm/XML-Simple-2.12/
mi permetto di aggiungere che per poterci giocare meglio bisogna anche
avere una certa infarinatura dei reference e delle strutture di
refence...
--
pigmalion at home
http://www.pigmalion.info/

...


Forza smanettoni d'italia.....  dateci dentro... AIUTOOOOOOO!!!!  :-)
Scusa, ma quale sarebbe esattamente il problema?
Ti è stato indicato un modulo che risponde esaurientemente al quesito che
hai posto. Che cosa vuol dire "sono ancora al punto di partenza", che non
hai letto la documentazione del modulo?
Perché altrimenti non saresti al punto di partenza, e ci chiederesti
eventualmente qualcosa di specifico sull'uso del modulo che non hai capito.
Qindi... forza, dacci dentro, facci vedere quello che hai fatto finora.
Ciao.

 Grazie ;)
1) impara a quotare
2) non scrivere in maiuscolo (equivale a urlare)
3) non e' detto che i tuoi interlocutori siano "smanettoni"
4) non e' ammissibile che ti si risolva il problema in toto:
   ti abbiamo fornito i mezzi necessari, mettici un po' di buona
   volonta'.
Buona fortuna.
 Raffaello
Newsgroup: it.comp.lang.perl
Titolo: Equivalente del Replace del JS.Quale?

Qual è l'equivalente in PERL del metodo javascript:
str=str.replace (/\*/g, '%');
che sostituisce ogni "*" della stringa STR con il "%".
Grazie

Wallace wrote:

   In Perl si fa il "bind" con una RE di sostituzione:
	$my_string=~s/\*/%/g;
	$ perldoc perlop
	$ perldoc perlre
-- 
Alla prossima,
Marco



Ti e` stato suggerito l'uso di una espressione regolare, ma *se* si
tratta di sostituire soltanto semplici caratteri, e` piu` pertinente
(e piu` veloce) l'uso di tr.
Nel tuo caso:
	$str =~ tr/*/%/;
A differenza della soluzione proposta da Marco, nota che non c'e`
bisogno di quotare i caratteri speciali come '*': tr/// "non sa" che
esistono le espressioni regolari (e` il motivo per cui e` piu`
veloce).
ciao
Stefano

Newsgroup: it.comp.lang.perl
Titolo: Riordinare un file di testo

Salve a tutti ;-)
avendo un file di testo composto da un certo numero di righe vorrei
riordinarlo per righe in ordine alfabetico...es:
Casa                                Alba
Alba        diventerebbe    Casa
Pane                                Pane
avendo una scarsa conoscenza del Perl sono riuscito a farlo ma in un modo
molto intricato che non mi soddisfa (in pratica una lunga serie di for e
if).
Qualcuno ha da consigliarmi un metodo più sbrigativo?
    grazie in anticipo
    Roberto

 del Perl sono riuscito a farlo ma in un modo molto intricato che non mi
Salve,
  come quasi sempre la risposta è su CPAN... Usa il modulo Fille::Sort,
fa esattamente ciò che ti serve.
Ciao
-- 
Leo TheHobbit |     Perl Geek Code Version: 0.01     |
IRCnet #roma2 | P++>++++c--P6-R+++M++O++MA++E+++PU+BD|
ICQ 56656060  | C*D >++S++X WP MO PP++n+CO-->+PO-o G |
              |A+OLC+OLCC+OLJ-OLCO---OLS+OLL++OLA--Ee|
              |           Ev-uL++(+++)w!m!           |a.d. VIII Kal. Mai. MMDCCLV AUC

   come quasi sempre la risposta è su CPAN... Usa il modulo Fille::Sort,
                                                      groan!^^^^^^^
File::Sort ovviamente! :(
-- 
Leo TheHobbit |  One Ring to rule them all.   |
IRCnet #roma2 |      One Ring to find them,   |
ICQ 56656060  |  One Ring to bring them all   |
              |  and in the darkness bind them|
              |     In the Land of Mordor     |
              |      where the Shadows lie.   |a.d. VIII Kal. Mai. MMDCCLV AUC



Se non e' problema leggere tutto il file ... leggilo tutto
e carica i record in un array e poi esegui semplicemente
@recordsortati = sort(@records);
poi riscrivi il nuovo array nel file.
Ciao!
Maurizio Mascheroni
-------------------------
Idealmente
http://www.idealmente.com
in...@idealmente.com
-------------------------

 ha scritto nel messaggio
news:u6Cx8.6051$W9.1...@twister2.libero.it...

Newsgroup: it.comp.lang.perl
Titolo: [REQ] Come importare un file via HTTP?

Premetto che con il perl sono proprio alle prime armi e quindi non so
fare un gran che, specialmente per cio' che riguarda procedure
complesse, pero' ho una certa urgenza di finire un lavoro e dopo avere
gia' scartabellato un paio di tonnellate di documentazione su Perl (da
man perl a vari siti sull'argomento) una mia domanda e' rimasta senza
una soluzione a me comprensibile e, per tanto, da me applicabile.
La situazione e' questa: ho fatto un semplice CGI perl che apre alcune
pagine HTML residenti sulla mia macchina (con il canonico open(FILE,
$filename) ), esegue automaticamente alcune operazioni di routine su
di essi e ne salva il risultato in una nuova pagina HTML, aperta con
lo stesso sistema, che rimane visualizzabile da browser.
Fin qui nessun problema.
Ora vorrei fare in modo che le stesse operazioni il CGI potesse
effettuarle anche su alcune pagine HTML che ho su una macchina
differente da quella su cui risiede materialmente il CGI, ma comunque
raggiungibili via http. Il problema e' che non sono riuscito a trovare
un documento che mi spieghi come aprire un file via http e usarlo come
soggetto per le istruzioni del CGI 
In alternativa avevo anche pensato che il CGI avrebbe potuto fare una
copia locale di un file alla volta (buffer.htm) e poi su di essa fare
tutte le operazioni (magari risulterebbe più veloce...), ma il
problema e' lo stesso: come fare in modo che il CGI richieda il
contenuto della pagina al server http.
Qualcuno puo' indirizzarmi alle informazioni che mi servono o darmi
una manina dicendomi qual'e' l'istruzione che mi serve e che non
trovo? Graaaaaazie :)
-- 
Maurizio "Hayabusa" Daniele ----------------------- 
haya...@libero.it

 trovo? Graaaaaazie :)
1) Leggere TUTTE le news vecchie che ci sono nel gruppo. Anche se poi non ci
si trova nulla, e' sempre una lettura divertente e disimpegnata. E non
ditemi che non avete tempo per robe del genere :)
2) Leggere la voce "How do I fetch an HTML file?" di perlfaq8
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

2) Leggere la voce "How do I fetch an HTML file?" di perlfaq8
Fatto anche quello, ma non era assolutamente di facile comprensione
per uno alle prime armi.
In ogni caso ho rimediato alla grande alla maniera degli antichi,
cioe' ravanando nel codice di script fatti da altri (e che facevano
tutt'altro) per vedere come veniva fatta li' una chiamata e, alla
fine, ho trovato il modo.
Non sono sicuro di avere capito al 100% quel che fa, ma ne ho capito
quanto basta per le mie esigenze :D


 
Hai dato un'occhiata alle librerie CGI.pm? Potrebbero fare al caso tuo. Ci
sono funzioni per l'upload di files e quindi il loro uso per altre
operazioni.
http://stein.cshl.org/WWW/software/CGI/
--------------------------------      /\
Enrico Morelli                       /\|||||||
----                                /__ __ ::;
CE.R.M.                            |  O O   _
CEntro Risonanze Magnetiche          /     | | 
---                                 |_/     _|
Newsgroup: it.comp.lang.perl
Titolo: urgentissimo: rilascio di perl 5.8

Aiuto! quando č stato rilasciato perl 5.8?
ho un bisogno urgente dell'informazione (se non si era capito...;-))
ciao a tutti
stefano



 
http://dev.perl.org/perl5/news/2002/07/18/580ann/
La risposta e` quindi 18 Luglio 2002, credo.
Altre cosuccie di questo tipo: 
 
http://history.perl.org/PerlTimeline.html
  [non aggiornato, ahime`]
ciao
Stefano

 ha scritto nel messaggio
news:20030206161207....@libero.it...


Newsgroup: it.comp.lang.perl
Titolo: cerco uno script che..

controlli la lunghezza delle colonne in output su perl e cioe' avendo un
form su una pagina http voglio che il testo scritto su una casella di testo
mi venga inviato in modo corretto cioe' bnon come una stringa unica e lunga
bensi' spezzetata quando supera le 80 colonne.
Sono stato abbastanza chiaro ?
grazie.
mailto:
pac...@netics.net

 Sono stato abbastanza chiaro ?
Dovrebbe bastare il modulo standard Text::Wrap
M.
-- 
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: estrarre orario e data dal sistema

Ciao a tutti devo prendere la data e l'orario da un server
il codice è questo il problema è che la console del perl mi da un errore in
questa riga my $min = $min[0]-2; cosa puo' essere ciao e grazie
my $t = &openTelnet($date_server, $username_date_server,
$password_date_server);
    my @year=$t->cmd("date +20%y");
    my @mon=$t->cmd("date +%m");
    my @mday=$t->cmd("date +%d");
    my @hour=$t->cmd("date +%H");
    my @min=$t->cmd("date +%M");
    $t->close;
    my $year = $year[0];
    my $mon = $mon[0];
    my $mday = $mday[0];
    my $hour = $hour[0];
    my $min = $min[0]-2;
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


print scalar localtime

 [...] 
Se sai per certo che l'ora del server e` la stessa del server
su cui gira il tuo script, allora usa il suggerimento di seva.
Altrimenti, invia anche il messaggio d'errore che ricevi 
dallo script.
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

lo script gira sul mio pc e non sul server il messaggio di errore
Use of uninitialized value in substitution (s///) at 
monitor.pm
 line 33.
                    Il 21 Mar 2005, 11:44, 
stefano.r...@tiscali.it
 (Stefano Rodighiero) ha
scritto:



 Use of uninitialized value in substitution (s///) at 
monitor.pm
 line 33.
Ehm... in nessuna delle righe che hai mostrato c'è alcuna sostituzione
(operatore s///)...
Il codice che hai mostrato mi sembra corretto (ma perché sottrai due
minuti?), anche se scomodo. Io farei: (uso qx{} invece che telnet per
semplicità e poterlo testare qui)
  my $ret=qx{date '+%Y-%m-%d-%H-%M-%S'};
  my ($year,$month,$day,$hour,$minute,$second)=split '-',$ret;
  print "$year/$month/$day $hour:$minute:$second\n";
così fai una sola chiamata a 'date'.
-- 
  dakkar


Io ho la tua stessa esigenza, ma utilizzo ssh in questo modo (se ti può 
essere utile):
my $f0 = "date";
my $result;
my $ssh = Net::SSH::Perl->new("myserver");
$ssh->login("user", "pass");
my($stdout0, $stderr0, $exit0) = $ssh->cmd($f0);
$result.="-->$stdout0";
print $result;
Ciao, ciao
Newsgroup: it.comp.lang.perl
Titolo: Come cambiare i diritti dinamicamente?

Normalmente, quando dal mio Web Server invoco uno script perl, questo mi
gira con i diritti minimi (wwwrun nel mio Apache). Io avrei bisogno ad un
certo punto che lo script cambiasse i suoi diritti in quelli dell'utente che
lo ha invocato (fornendo ovviamente user e pwd). Come posso fare? Avevo
pensato ad invocare la login come system call, ma sinceramente non ne cavo
le gambe.
Il tutto mi serve per far leggere ad un utente la sua posta...
Grazie.
--
Bye Bye by
/MetalmaN\

Il tutto mi serve per far leggere ad un utente la sua posta...
Usa Net::Pop3, che in piu` ti permette di separare web e pop server.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

Usa Net::Pop3, che in piu` ti permette di separare web e pop server.
Alternativamente, se il tuo web serve rlo offre, puoi far girare uno script
con il tuo userid utilizzando un wrapper (es. cgiwrap).
	Michele. 
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

Newsgroup: it.comp.lang.perl
Titolo: novellinissimo! help=)

come fo a richiamare uno script perl da una pag. html??
grazie e scusate per la banalità della domanda!
Francesco

come fo a richiamare uno script perl da una pag. html??
Ad esempio con:
<a href="myscript.cgi">Clicca qui</a>
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

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

veramente un bel sito 
perl-it.org
complimenti!


..però avevo alcuni problemi...: è la stringa che è sbagliata oppure ci sono
La stringa va bene. Tieni pero` conto che non e` detto che il tuo
server sia configurato in modo che tutti i file .html siano
processati alla ricerca di SSI (=server side include, come il tag
da te sopra riportato).
Al limite prova a cambiare l'estensione del file HTML da .html a
.shtml e vedi cosa succede. Se puoi accedere alla configurazione
del server, assicurati di avere abilitato gli SSI.
	A presto, Michele.


complimenti!
Grazie. In realta` e` ancora... under construction. ;-) Stiamo
facendo del nostro meglio, compatibilmente al tempo a disposizione.


grazie ancora per l'aiuto... però c'è ancora qualcosa che non va...
allora ho provato a cambiare estensione alla mia pag. (.htm, .html, .shtml)
ma continua a non eseguire il perl...
come posso fare?
l'unico rimedio pè attivare il SSI oppure ci sono altri metodi?
grazie ancora!
Francesco

ma continua a non eseguire il perl...
A quanto pare il tuo web server non ha attivati gli SSI. Le scelte
sono due: o li attivi oppure crei un CGI (magari index.cgi) che stampi
la pagina intera.


 >grazie ancora per l'aiuto... perņ c'č ancora qualcosa che non va...




...io so fare il .pl ... x arrivare da quello a un cgi???
mv 
nomefile.pl
 nomefile.cgi ;-)
	A presto, Michele.

Newsgroup: it.comp.lang.perl
Titolo: Array  "Impropri"

Ciao atutti,
Prelevo juna stringa da un file, e la spezzetto in @array, con con splice.
come posso passare gli argomenti di @array all'interno di un array : 
"[[......][...]....]" ?
Ovvero, una funzione, mi accetta parametri dei puntatori ad array, č 
corretto dire cosě  ?
grazie
Simon 

 corretto dire così  ?
Non ti sei spiegato benissimo ...
Vuoi fare una cosa del genere?
my @array = ( [1,2] , [3,4,5] ); # il risultato del tuo (dei tuoi) splice?
my $result = miafunzione(\@array);
sub miafunzione {
 	my $aoa_ref = shift;
 	# $aoa_ref e' adesso uguale a [ [1,2] , [3,4,5] ]
 	...........
 	}
Spero di esserti stato d'aiuto in qualche modo ...
  Raffaello

Newsgroup: it.comp.lang.perl
Titolo: cosa è un hash?

qualcuno sa dirmi che cosa è un hash e come si usa in perl?
è vero che è simile al vettore?
quali sono le differenze tra hash e vettore?

quali sono le differenze tra hash e vettore?
Credo di aver gia' risposto.
Alex
P.S. rehashing, dehashing, quadratic probing, numeri primi, etc.. sono tutti
concetti indispensabili per fare delle semplici tabelle hash.
Dal testo sopra capisci ad esempio che keys() potrebbe essere implementata
semplicemente leggendo tutti gli indici (in modo sequenziale) non vuoti
dell'array su cui e' costruita la hash. (si dice che la hash non e' ordinata
in quando le chiavi non verranno mai stampate nell'ordine in cui le hai
inserite, ma solo nell'ordine in cui sono messe nell'array secondo la
funzione hash() utilizzata.
N.B. fare una classe template in C++ es. CMyHash e' una cosa molto
divertente ed istruttiva.
Tuttavia non ho ancora avuto tempo e CORAGGIO per guardare i codici sorgenti
di Perl e non so dirti se in Perl usano un array c, un vector c++, l'array
Perl oppure una dl-lista, o ancora qualcosa d'altro.
Howard il piccolo ha scritto nel messaggio ...


che il vettore ha come indice solo un valore numerico, mentre l'hash può
avere una parola (detta chiave)
il simbolo di un hash è %
$elementohash{'chiave'}=valore;  #in questo modo avrei assegnato
all'elemento "chiave" dell'hash "elementohash" il valore "valore".
Ti rimando comunque alle varie guide in linea...
http://www.perl.com/pub/v/documentation
-- 
Posted from 
relay2.inwind.it
 [212.141.53.73] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.perl
Titolo: "&" nell' Xml::Parser

A qualcuno è già capitato che l'XML::Parser dia questo errore
not well-formed (invalid token) at line 12, column 64, byte 415 at
/usr/lib/perl5/site_perl/5.005/i386-linux/XML/Parser.pm line 185
quando incontra il carattere "&" in un url?


Il carattere '&' ha un significato speciale in un documento XML. Può
comparire come carattere indipendente soltanto nei commenti, nelle PI e
nelle sezioni CDATA, engli altri casi serve a introdurre un "entity
reference" o un un "character reference", ad es:
  &gt; &lt; &#234;
Per rappresentare il carattere '&' occorre servirsi di 
  &amp;
Max

...

Newsgroup: it.comp.lang.perl
Titolo: pattern matching

ho un problema semplice, ma al quale non ne riesco a venire a capo:
ho la frase (es):
il grano è tagliato
devo verificare se la parola grano è contenuta nella frase.
come scrivere il pattern?
Grazie
-- 
Posted from 
relay2.inwind.it
 [212.141.53.73] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

/grano/
-- 
Posted from qmailr@[195.223.140.135] 


 come scrivere il pattern?
/grano/
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

 scrivere il pattern?
  /\bgrano\b/

grazie a tutti
-- 
Posted from 
relay3.inwind.it
 [212.141.53.74] 

Newsgroup: it.comp.lang.perl
Titolo: net smtp

Posso usare il modulo net smtp anche se nel mio server la posta elettronica
č solo POP3?
Grazie

ш solo POP3?
Adesso non ho provato, ma credo di si, basta cambiare il nome del smtp
server ed utilizzarne uno esterno.
-- 
ЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,И
http://www.pigmalion.youngwind.com
 pigmalion network
http://www.pigmalion.youngwind.com/perl/
 appunti Perl - FAQ
ЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,И
-- 
Posted from 
relay4.inwind.it
 [212.141.53.75] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.perl
Titolo: Documentazione di Perl in HTML

Salve a tutti,
Per lo sviluppo orientato al web in generale (Perl e PHP) utilizzo
Quanta sotto Linux.
Mi piacerebbe trovare un archivio contenente la documentazione di
Perl, quella disponibile con "perldoc" per intenderci, in formato
HTML magari ben strutturato, un po' come (e possibilmente meglio)
quella disponibile on-line su 
perl.com
.
Questo perche' sono un po' pigro e mi piacerebbe poter accedere
alla documentazione dallo stesso editor (come faccio con quella
relativa ad HTML e PHP) senza dover quindi spostarmi su di una
finestra di terminale.
Ogni suggerimento (o link!) e' gradito!
Grazie,
--
Dave

 
 
www.perldoc.com
 
Max

  
www.perldoc.com
 
Oppure un po' di colpetti di pod2html!
Ciao
--ev 

  
www.perldoc.com
 
Eh gia'...
Ma devo sfoderare tutta la potenza di wget o c'è già un archivio (tar.gz
o quant'altro) disponibile da qualche parte?
Purtroppo ho solo una connessione dial-up PSTN e raramente resto collegato
quando sviluppo...
-- 
Dave

 ha scritto nel messaggio
news:13ac9dc9.01111...@posting.google.com...

Newsgroup: it.comp.lang.perl
Titolo: Perl,Cgi ed Internet

Chiedo scusa per la palese ignoranza di questo messaggio: lavoro ad un sito
internet e devo aggiungere dei cgi che permettano varie cose, ossia
counters,form mail, guest book e cosí via. Ho i cgi con i relativi files
*.pl.
Quello che mi sfugge è
1)Come si configurano?
2)Ho cercato qualche info sui vari siti e l'unica cosa che mi sembra di aver
capito è che ho bisogno di Linux.Non è cosí vero?
grazie
Francesco

 wrote in message
dyd78.23803$3J1.7...@news2.tin.it...

Non so dove tu abbia preso i CGI di cui parli, ma forse dovresti
considerare la possibilita` di usare l'archivio
http://nms-cgi.sourceforge.net/
.
Per chiarimenti 
http://www.perl.com/pub/a/2002/01/23/cgi.html
Per quanto riguarda il tuo problema, potresti partire da qui:
http://www.perl.org/CGI_MetaFAQ.html
ciao
Stefano

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

Ciao a tutti.
Ho un problema.  Come faccio a pulire $testodapulire da questo html ,
pensavo ad es, rimuovendo tutti i "<>".
Come si fa?
Grazie a tutti
<!--inizio-->
             </b></font><font color="black"
size="6">$testodapulire</font><font color="#595959"><b><br>
             </b><!--fine-->

Grazie lo stesso ci sono riuscito
$testo da pulire =~ s/<(.*?)>//gm;


$testo da pulire =~ s/<(.*?)>//gm;
E' piů sicuro usare
$testo da pulire =~ s/<([^>]*)>//g;
Ciao
Andrea Busia
No Spam, Grazie.

$testo da pulire =~ s/<([^>]*)>//g;
Mi sembra non cambi nulla. Il '?' comunque ti garantisce
che verra` considerata la prima parentesi angolare (>).
	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!

 cerchero` un'altra donna dentro ai sogni di Tarzan...
Newsgroup: it.comp.lang.perl
Titolo: array come campo di un hash

Ciao a tutti,
vi porgo l'ennesima domanda..avrei l'esigenza di memorizzare
diversi valori all'interno di un unico campo di una variabile hash...
es: %lassification{'categoria'} = @array;
č possibile?
come si gestisce sintatticamente....come memorizzare e come leggerli?
Ciao e grazie,
    Ivan

 č possibile?
Sě.
 perldoc perldsc
 perldoc perllol
Esempio:
 my @array;
 my %hash; 
 $array[30] = "pippo";
 $hash{"pipponi"} = \@array; # nota il backslash
 print $hash{"pipponi"}->[30];
 # oppure...
 print $hash{"pipponi"}[30];
Max

 wrote in message
news:Pine.LNX.4.21.02091...@localhost.localdomain...

ma i "pipponi" sono solo dei "pippo" grandi o sono un'altra cosa che uno si
fa quando non riesce a fare altro? :-)
dd

 $hash{"pipponi"} = \@array; # nota il backslash
Si', ma anche:
  @{$hash{"pipponi"}} = @array;
oppure:
  $hash{"pipponi"} = [@array];
Che sono, naturalmente, tre cose piu' o meno sottilmente differenti. 
L'ultima e' un po' la versione "per tutte le stagioni", nel senso che e'
piu' probabile che faccia quello che vuoi nella maggior parte dei casi,
magari a scapito di una possibile maggiore efficienza (ogni volta viene
generata una nuova copia dei dati contenuti in @array). Le altre forme sono
da usare con un po' piu' di accortezza, perche' hanno effetti collaterali
non particolarmente evidenti.
Comunque, nei citati perldsc e perllol e' spiegato in dettaglio tutto e di
piu'.
Ciao.

 collaterali non particolarmente evidenti.
Ma particolarmente negativi una volta evidenziatisi :-) 
-- 
Saluti,
Giancarlo

Newsgroup: it.comp.lang.perl
Titolo: Hash reference e memoria allocata.

Ho un Hash reference
cosě inizializzato.
$HREF = {};
Poi riempito...
$HREF->{pippo}    = "Ciao";
$HREF->{pluto}    = 15;
$HREF->{paperino} = "Mamma ti voglio bene"; # ;P
Per liberare la memoria allocata basta fare di nuovo...
$HREF = {};
...o in questo modo genero dei memory leaks?
Grazie per il contributo.

 $HREF = {};

Basta quello.
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: Trasferire file

Salve ;-)
come posso far trasferire un file da una directory all'altra in perl?
Se sono ad esempio nella directory A e voglio trasferire il file prova.txt
(contenuto in A) nella directory B che contiene la directory A, che comandi
devo usare?
    grazie per l'attenzione
    Roberto

 come posso far trasferire un file da una directory all'altra in perl?
ciao,
puoi usare la funzione move() esportata dal package File::Copy
http://www.perldoc.com/perl5.6.1/lib/File/Copy.html
-- 
/federico
[ 
http://www.pixzone.com/
 ]

 
http://www.perldoc.com/perl5.6.1/lib/File/Copy.html
Non basta usare rename, funzione nativa del perl senza stare a caricare 
dei moduli?
Nota: sotto Unix rename funziona solo all'interno di un file system, 
fallisce invece provando a muovere file tra file systems diversi.
Sotto winzoz non so'. 
-- 
Saluti,
Giancarlo

 Sotto winzoz non so'.
la differenza e' appunto quella, File::Copy::move utilizza rename() in caso 
i due file risiedano sullo stesso filesystem, altrimenti ripiega su 
copy/delete
se sei sicuro che il file verra' mosso sullo stesso filesystem, allora puoi 
usare direttamente rename
-- 
/federico
[ 
http://www.pixzone.com/dev/
 ]
Newsgroup: it.comp.lang.perl
Titolo: assegnamento a variabile

non riesco a fare una cosa molto semplice e non capisco perche'!
devo fare il match di un paragrafo e assegnare a una variabile una certa
parte di questo paragrafo.
es: paragrafo:
nome: Pippo
cognome : Pluto
anno: 1999
io voglio assegnare ad una variabile $var il valore Pluto, come devo fare?
GRAZIE

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

 $var = $valore if lc($tipo) eq 'cognome';
 ho provato ma non funziona, se provo a stampare $val non visualizza
 nulla.
facciamo le cose un po piu' semplici:
mettiamo in una variabile il contenuto di tutta la riga prescelta.
cioe' se devo fare il match con Pippo, nella variabile metto:
nome: Pippo
anche cosi' mi puo' andare bene ma non riesco a farlo!
GRAZIE

anche cosi' mi puo' andare bene ma non riesco a farlo!
Forse e' il caso che tu ci dica _dove_ sono queste righe che devi
analizzare... Vettore? File? O cosa?


ricominciamo dall'inizio perche' in effetti mi sono spiegato molto male,
scusate:
io devo cercare all'interno di un file (che e' suddiviso in paragrafi, tra
un paragrafo e l'altro ho una linea vuota) un codice.
una volta che ho trovato il paragrafo a cui corrisponde quel codice devo
estrapolare alcuni valori:
esempio di paragrafo:
<!-- Code Publication: nic1 -->
<!-- Authors: N.&nbsp;Olivetti -->
<!-- Number of Authors: 1 -->
<!-- Number of Authors of the Department: 1 -->
<!-- Title: Circumscription and Closed World Assumption -->
<!-- Year: 1989 -->
<!-- Nationality: nazionale -->
<!-- Type publication: rivista -->
<LI><A NAME="nic1"></A><B>N.&nbsp;Olivetti</B>.
Circumscription and Closed World Assumption.
<CITE>Atti della Accademia delle Scienze di Torino</CITE>, 123(Fasc.
  5-6):207-217, 1989.<P>
io trovo questo paragrafo facendo il match del codice nic1,
poi vorrei mettere in una variabile il nome dell'autore e il tipo di
pubblicazione: authors e type pubblication (linee 2 e 8)
GRAZIE

pubblicazione: authors e type pubblication (linee 2 e 8)
Le linee sono sempre la 2 e la 8? Io assumo di no, cosi' come assumo
che tu abbia letto fin qui il file con l'handle MYFILE, e che l'ultima
riga letta sia quella del Code Publication. Leggo ora fino alla prima
riga non di commento:
$riga = <MYFILE>;
while ( $riga =~ s/^\<\!-- //;) {
  $riga =~ s/ --\>[\r\n]+$//;
  if ($riga =~ s/Authors\: //) { $auth = $riga }
  elseif ($riga =~ s/Type publication\: //) { $tipo = $riga }
  $riga = <MYFILE>;


On Tue, 14 Dec 1999 15:12:31 GMT, 
bale...@dada.antispam.it
 (Marco
Balestra) wrote:
:)$riga = <MYFILE>;
visto che e' diviso in paragrafi, posso suggerire di risparmiare
memoria con:
$p="";
while(<FILE>)
  {
  if($_ eq "\n")
    {
    $p="";
    }
  else
    {
    $p.=$_;
    }
  }
Oha
"Ci sono tre tipi di persone al mondo: quelle che sanno contare, 
e quelle che non ne sono capaci."
Newsgroup: it.comp.lang.perl
Titolo: perl e web

ciao a tutti..premetto ke sono a 0 in perl..ma prima o poi si deve iniziare :-)
volevo sapere se era possibile crearsi uno script in perl ke interagisse con
delle pagine web senza entrare direttamentte sul sito(es fare un login o
compilare un form) (su un sistema linux) e se si dove posso documentarmi a
riguardo. grazie x l'aiuto.
ciao a tutti!

 wrote:

<
http://search.cpan.org/~petdance/WWW-Mechanize-1.12/
lib/WWW/Mechanize.pm>
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

grazie ;-)
Stefano Rodighiero ha scritto:

Newsgroup: it.comp.lang.perl
Titolo: GD::Graph::lines grafico linea spezzata

Dato il sottostante codice che mi produce un grafico di una linea continua
costruita con dati valori, come posso fare per disegnare una linea spezzata
dovuta al fatto che in alcuni punti non ho valori e il valore 0 non è
corretto visualizzare?
#!/usr/bin/perl -w
use GD::Graph::lines;
my $graph = GD::Graph::lines->new(650,400);
@data = (
	["1st","2nd","3rd","4th","5th","6th","7th","8th","9th"],
	[1,2,5,6,3,1.5,1,3,4]);
 
$graph->set(
	x_label => 'hour (h)',
	y_label => 'column height m.s.l. (m)',
	title => "simulation ",
	x_label_skip => 2,
	y_min_value => 0
	) or die $graph->error;
 
#my $gd = $graph->plot(\@data) or die $graph ->error;
my $format = $graph -> export_format;
open(PICTURE,">/root/creafilemafalda/redoubt/prova.$format") or
die("impossibile creare immagine");
binmode PICTURE;
#print PICTURE $gd ->png;
print PICTURE $graph->plot(\@data) ->$format();
close PICTURE;
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Luca wrote:

Setta ad un valore TRUE la proprietà skip_undef del tuo oggetto $graph:
$graph->set(
     x_label      => 'hour (h)',
     y_label      => 'column height m.s.l. (m)',
     title        => 'simulation ',
     x_label_skip => 2,
     y_min_value  => 0,
     skip_undef   => 1
) or die $graph->error;
e poi usa il valore undef laddove vuoi che non venga plottato nulla, ad es.:
my @data = (
     [ '1st', '2nd', '3rd', '4th', '5th', '6th', '7th', '8th', '9th' ],
     [     1,     2, undef,     6,     3,   1.5, undef,     3,     4 ]
);
E non dimenticare di usare "strict" e "my" *sempre* ;-)

 );
Per trasformare in undef gli "0" presenti nei tuoi valori originali, fai 
cosě:
my @orig_values = (1, 2, 0, 6, 3, 1.5, 0, 3, 4);
my @data = (
     [ '1st', '2nd', '3rd', '4th', '5th', '6th', '7th', '8th', '9th' ],
     [  map { $_ || undef } @orig_values ]
);

Funziona, grazie per l'ennesimo prezioso consiglio!!!
Il 22 Apr 2009, 15:04, Emanuele Zeppieri
<ema...@tiscali.itsnip_here.invalid> ha scritto:

--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.lang.perl
Titolo: Variabili globali

Ho degli script cgi-perl.
Vorrei memorizzare il valore di una variabile alla chiamata di un
determinato script. e che tale valore venga mantenuto nelle successive
chiamate ad altri script. La visibilità della variabile l'ho ottenuta
chiaramente utilizzando 'package'; il valore ovviamente non viene
mantenuto tra l'esecuzione di uno script e l'altro.
Es:
pippo.pl
  package pluto;
  $plutone;
--
mioscript.cgi
  require "
pippo.pl
";
  $pluto::plutone = un valore;
--
mioscript2.cgi
  require "
pippo.pl
";
  $pluto::plutone 
  #vorrei mantenesse il valore assegnato da 
mioscript.pl
--
Esiste una soluzione elegante, senza dover ricorrere a soluzioni troppo
elaborate?
Grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 mantenuto tra l'esecuzione di uno script e l'altro.
A meno di non usare soluzioni tipo mod_perl, non puoi mantenere varibaili
"persistenti" tra un'esecuzione e l'altra. L'unica soluzione e`
memorizzare in un file o in un database cio` che ti interessa mantenere.
	A presto, Michele.
-- 
Michele Beltrame
http://www.italpro.net/mb/
ICQ# 76660101 - e-mail: 
m...@italpro.net

 
No. Neanche mod_perl lo può fare. E questo per una semplice ragione. Il
web server si 'clona' in varie copie di se stesso, e ognuna	 di queste
usa un diverso interprete perl e una diversa 'copia' del tuo script.
Quindi le variabili sono globali ma legate al processo. Ora, non è detto
(anzi è improbabile) che due richieste successive da un medesimo client
vengano trattate dallo stesso server. Le soluzioni che mi vengono in
mente sono (in ordine di complessità):
  - usare un file per tenere le variabili (attenzione a usare flock e 
    simili per evitare problemi di accesso concorrente)
  - usare un database via DBI (è più complesso della soluzione
    precedente, ma ci pensa lui a gestire gli accessi concorrenti)
  - usare la memoria condivisa (è sicuramente il più complesso, ma 
    anche il più 'efficace' in termini di tempi di accesso ai valori)
Ovviamente se come sospetto lo script e uno che genera una 'cascata' di
form e se i dati non sono ne' 'riservati' ne' troppo grandi pupoi usare i
campi hidden di CGI per mandarli avanti e indietro.
Ciao 
-- 
Leo TheHobbit 
IRCnet #roma2
ICQ 56656060
e-mail: remove 
dont.spam.me
 from above address
Newsgroup: it.comp.lang.perl
Titolo: Conteggio caratteri di una stringa

Come si contano i caratteri all'interno di una variabile che contiene
una stringa?



length $s
se vuoi contare le "lettere", $count = ($s =~
/[a-zA-Z]/)
Oha
-- 
#include <disclaimer.h>

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

Ho un meccanismo che mi indicizza il contenuto di alcune tabelle di un 
database.
Mi hanno chiesto di estendere questa indicizzazione anche a file che carica 
l'utente in un sito (sono di tipo txt, rtf, doc, pdf, xls e pps).
Per quanto riguarda file txt, rtf e xls non dovrei avere problemi 
particolari. Avete qualche suggerimento su moduli (Perl ovviamente ^_^) da 
utilizzare per leggere file doc (Word ovviamente) e PDF? Per quanto riguarda 
i file PPS credo siano poco importanti quindi li lascio per ultimi.
Grazie.

 utilizzare per leggere file doc (Word ovviamente) e PDF?
Per Word ho paura tu debba utilizzare Win32::OLE, per PDF ci sono
diversi moduli ma non ho una diretta esperienza.
Magari potresti evitare di reinventare la ruota, usando magari tool già
pronti (non necessariamente Perl ma, ehi!, già pronti ;) )
http://www.w3.org/Tools/Filters.html
http://www.kryltech.com/freestf.htm#util

 
http://www.kryltech.com/freestf.htm#util
Eh lo so, ma il sito poi andrà su un server non mio (è un caso rarissimo, 
solitamente sono tutti sui miei server, ma questo dovrà andare in un server 
a Ginevra) e dubito fortemente che potremo installare applicazioni (ma ci 
consentono di installare qualsiasi modulo Perl di CPAN).
Comunque grazie, magari trovo qualche eseguibile semplice lanciabile da riga 
di comando.
Newsgroup: it.comp.lang.perl
Titolo: Passare variabili tra le pagine (o sessioni)

Salve a tutti.
Mi sto avvicinando al Perl (sono un mega-neofita).
Vorrei gentilmente sapere se e' possibile, ed eventualmente come, passare 
il contenuto di variabili processate da un cgi in perl tra varie 
pagine senza l'ausilio dei cookie.
In php mettevo variabili e loro contenuto direttamente nell'url della 
pagina (nome.php) da richiamare.
In perl come funzia la cosa (sempre che si possa fare).
Ciao e grazie per le eventuali risposte.
marco

Uguale.
quando crei l'url, usi sempre il metodo get, esempio:
pagina.cgi?variabile=valore&variabile=valore ecc...
Creare poi le variabili usa il modulo 
cgi.pm

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

Qualcuno sa se si possono realizzare scritte a colori in un programma perl?
e se si come?
Grazie e ciao...
                                                                    Davide

Ciao, prova a guardare in 
http://simi.polito.it/perl/index.html
Paolo
--
Posted from 
tlvsdy.alcatel.it
 [194.243.74.244]
via Mailgate.ORG Server - 
http://www.mailgate.org
Newsgroup: it.comp.lang.perl
Titolo: array in ordine alfabetico o numerico?

Ciao a tutti,
ho un piccolo problemino che per molti sicuramente č un'inezia, ho un
piccolo scrip che apre un file di testo e mi restituisce una pagina con i
dati letti.
tipo:
campo1:campo2:campo3:campo4
campo1:campo2:campo3:campo4
campo1:campo2:campo3:campo4
Ora vorrei che fosse possibile visualizzare l'output per esempio in ordine
alfabetico del campo3 oppure in ordine alfabetico contrario del campo2.
Una specie di sort by ... qualcuno mi puň spieghare come realizzare uno
script di questo tipo?
Grazie mille
Questo č lo script:
--------------------------------
open(LOGFILE, "<prova.log");
@entries = <LOGFILE>;
close LOGFILE;
print "<BODY>\n";
print "<TABLE>\n";
foreach $line (@entries) {
        @fields = split(/:/,$line);
        print "<TR><TD>$fields[1] <TD>$fields[2] </TR>\n";
        print "<TR><TD><TD>$fields[3] </TR>\n";
};
print "</TABLE>\n";
--------------------------------
Devil

script di questo tipo?
Per caso hai provato a leggere nella faq n°4 del perl (che trovi nella
documentazione stessa) alla domanda "How do I sort an array by
(anything)?"
Guarda caso è proprio la tua domanda.
Comunque la risposta è:
$n = 1; # colonna di ordinamento, a partire da 1
@NOVITA = map { $_->[0] }
sort { $b->[$n] <=> $a->[$n] || $a->[2] <=> $b->[2] || lc($a->[6]) cmp
lc($b->[6])}
map { [$_,split '\|'] } @NOVITA;   # \| carattere separatore delle
colonne
P.S. La prossima volta guarda le faq prima di chiedere.
Ciao
Andrea Busia
No Spam, Grazie.

 Alfio

 ordinamento uguali. 
Non capisco la tua perplessita`. Se inseirisci le righe in un hash, non
puoi avere piu` di un valore associato alla stessa chiave: il secondo
inserimento sovrascrive il precedente.
Io ti suggeirei di fare qualcosa del genere:
 open(LOGFILE, "<test.log") || die "Non posso aprire il file delle news\n";
 my @entries = <LOGFILE>;
 close LOGFILE;
 my @lines = ();
 foreach $line (@entries) {
   my @fields = split(/``x/, $line);
   push @lines, [ @fields ];  # duplico @fields e metto in @lines
                              # un reference anonimo
 }
 for $entry( sort { $a->[3] cmp $b->[3] } @lines ) { 
               # ordiniamo in base al
               # valore del campo 3
   #stampiamo...
   print join '<td>', @$entry;  # ricorda che $entry e`
                                # un refence a un  array
 }
Max

Grazie mille
Non sapevo che un hash, non puo avere piu` di un valore associato alla
stessa chiave e il secondo inserimento sovrascrive il precedente.
Ora ho risolto il problema!!!
Grazie ancora!!!
Devil
Newsgroup: it.comp.lang.perl
Titolo: Posizionamento all'interno di un file

Come si fa, leggendo un file, una volta trovata una stringa, a
posizionarsi sulla riga successiva?
Grazie,
Nicola

 wrote:
: Come si fa, leggendo un file, una volta trovata una stringa, a
: posizionarsi sulla riga successiva?
while(<>){ last if /stringa/; }
$_ = <>;
print;
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
Newsgroup: it.comp.lang.perl
Titolo: pack and hex

Salve,
     ho cambiato schema su come vorrei che l'hash fosse packato in un 
unica stringa binaria. Credo che adotter uno schema tipo questo:
KEY (3 bytes) $xx $xx $xx
value size (1 byte) $xx
(value text)
Naturalmente il value non potr essere pi lungo di 255 caratteri. 
All'inizio di tutta questa sequenza vorrei mettere una parola chiave 
tipo HASH e poi 4 bytes per descrivere la lunghezza di tutte le coppie 
chiave valore che stanno seguendo.
Quest schema sarebbe una scopiazzata dello schema binario che usa per i 
tags IDE versione 2 (
http://www.id3.org/id3v2-00
).
A tal proposito ho trovato e provato ad utilizzare la loro notazione a 4 
bytes per codificare la lunghezza di tutta la serie di stringhe:
"The ID3 tag size is encoded with four bytes where the first bit (bit 7) 
is set to zero in every byte, making a total of 28 bits. The zeroed bits 
are ignored, so a 257 bytes long tag is represented as $00 00 02 01."
"The reason to use 28 bits (representing up to 256MB) for size 
description is that we don't want to run out of space here."
Non essendo molto portato in matematica esadecimale ho fatto la cosa pi 
semplice che potevo e nella mi calcolatrice ho convertito: 00 00 02 01 
in decimale e mi � venuto: 513 e non 257 come loro dichiarano al 
contrario per fare 257 in esadecimale sembra che dovrei fare: 00 00 01 
01 allora cosa sbaglio??
c'� un modo di usare "pack" per ritornare un numero integer in una forma 
esadecimale come quella di 4 bytes?? E poi:
"The three character frame identifier is followed by a three byte size 
descriptor, making a total header size of six bytes in every frame."
anche in questo caso codificano la lunghezza del frame in 3 bytes...come 
si fa con pack??
grazie mille!!!

 (value text)
ho provato con:
printf "%06X", 1024
e mi ritorna una stringa riempita con degli 0
000400
devo cmq trovare ancora un modo per poi dividere questa stringa in 3 
bytes "00 04 00"

 bytes "00 04 00"
volevo sapere come posso fare un reverse di questo codice:
my $length =
        oct "0b" .
        join "",
        map {
            scalar reverse unpack "b7", $_
        }
        map chr, 
        0xFF, 0xFF, 0xFF, 0xFF;
si puň fare?
grazie

 01 allora cosa sbaglio??
Non stai seguendo le regole indicate, ossia che il bit più
significativo di ogni ottetto deve essere buttato via ("The zeroed
bits are ignored").
00 - 00 - 02 - 01 in binario si scrive:
0000 0000 - 0000 0000 - 0000 0010 - 0000 0001
buttando via il bit più significativo di ogni ottetto (ossia il primo
bit di ogni sequenza da 8):
000 0000 - 000 0000 - 000 0010 - 000 0001
che, riarrangiato in gruppi da 8 bit (ove disponibili), dà:
0000 - 0000 0000 - 0000 0001 - 0000 0001
che corrisponde a 257.
Newsgroup: it.comp.lang.perl
Titolo: Stampe

Ciao a tutti
Premetto che uso Windows.
Ho un prg che estrae da un database Mysql una serie di dati e li stampa a
video
Come posso indirizzare la stampa su stampante? E come impostare la stampa
(righe, colonne ecc.)?
Grazie

 (righe, colonne ecc.)?
Devi formattare l'output:
perldoc perlform
http://www.cs.mcgill.ca/~abatko/computers/programming/perl/howto/format/
-- 
$_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572,,($_,$b)=
split?#?;@b=split?;?;map{$c.=$_,$d.=chr$b[$e++]+ord}split??,pack'H24',$b
;chop$d,print$c.chr(32).$d

(righe, colonne ecc.)?
Non so se ci siano moduli specifici. Potresti comunque arrivarci attraverso
Win32::API; per cose molto semplici, forse anche con una scrittura diretta
sulla porta, una chiamata a PRINT o qualche altro accrocchio.
Il consiglio che ti posso dare č: evita. Soprattutto se vuoi una stampa
formattata. Crea piuttosto un documento intermedio in qualche linguaggio di
descrizione di pagina, o grafico, o di markup, e lascia stampare
all'interprete relativo. Alcune scelte potrebbero essere: TeX, Lout, PDF
(Acrobat Reader, Ghostscript), RTF (Word, OpenOffice e altri), Postscript
(Ghostscript), HTML (un browser qualunque). Per alcuni di questi č
disponibile un modulo perl.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: frazioni e percentuali

ciao,
ho un prg che dopo un po di istruzioni, restituisce 2 variabili che formano 
una frazione.
come posso ottenere una percentuale?
ad esempio:
 $a vale 1
 $b  vale2
printa 1/2  invece vorrei che risultasse 50%
ciao



$perc = (($a/$b)*100).'%';
 Raffaello

 ha scritto nel 
messaggio news:er2rqf$mrn$1...@tdi.cu.mi.it...


 Ciao
Ci sono 2 funzioni che includono metodi per l'arrotondamento.
sprintf e printf
Sono un po' complesse, ma basta studiarsele bene.
 Raffaello
P.S.: non top-postare

Newsgroup: it.comp.lang.perl
Titolo: Adattare emacs al perl

   Qualcuno sa dirmi come fare per poter editare i miei  programmi  perl 
con emacs  e  vedere  evidenziata  la  struttura  del  codice  magari  a 
colori???
Ed è possibile fare il debug di un programma?
Grazie a tutti.
Ciao
***Ivan***

Ed è possibile fare il debug di un programma?
Certo, con:
perl -d
	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!

che tu non usi Xemacs.
O se lo vuoi da console senza eccesivo carico usi vim che nelle nuove
versioni supporta l'highlighting per il perl.
-- 
       • 
      |Ü|
     /    \         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
    '-----'

 versioni supporta l'highlighting per il perl.
    Grazie, io continuavo ad usare il buon  vecchio  vi  ma  mi  sa  che 
cambio ;-)))
Ciao.
***Ivan***
Newsgroup: it.comp.lang.perl
Titolo: lettura da un file

Ciao,
volevo sapere come potevo far si ke uno script in perl leggesse 2 righe da
un file .txt e assocciasse ad ognuna di queste righe una variabile
diversa...
io ho provato cosě
$prova1="prova.txt"
dove prova.txt contiene 2 righe... il problema č ke non riesco dare a
$prova2 il valore della 2 riga contenuta nel file prova.txt..
Come posso fare?
Ciao e grazie
Manuel

 Come posso fare?
open (FILEHANDLE, "< $nome_file") or die "Non lo leggo.\n";
$var1 = <FILEHANDLE>;
$var2 = <FILEHANDLE>;
close (FILEHANDLE);
 Raffaello

Newsgroup: it.comp.lang.perl
Titolo: Sub routine in "parallelo"

Come posso, all'interno di una main, lanciare la stessa subroutine, per 
esempio 5 volte, le quali routinino in parallelo (CONTEMPORANEAMENTE) , e 
che ciascuna riceva  parametri differenti (questo è meno probblematico, 
credo).
&main{
    ....
    &sub a0($alfa)    &sub a1($beta)   &sub a2($gamma)    &sub a3($delta) 
.....
    ....
}
sub a0 = sub a1 =sub a2 =sub a3 {$_= shift;......}
grazie 

GhanaWay ha scritto:

Forse con i Thread?
Dai uno sguardo al maunale in linea.
perldoc Thread
Saluti.

Forse anche i moduli Parallel::* possono esserti di aiuto:
http://search.cpan.org/search?query=parallel&mode=all
Fra i tanti, forse quelli che possono interessarti di più sono:
http://search.cpan.org/~odigity/Parallel-Simple-0.01/lib/Parallel/Simple.pm
http://search.cpan.org/~dlux/Parallel-ForkManager-0.7.5/ForkManager.pm
Non li ho mai utilizzati personalmente, caveat emptor.
Ciao,
   Flavio.

Newsgroup: it.comp.lang.perl
Titolo: more then one way to do it

salve,
   vorrei sapere se vi viene in mente una routine alternativo per 
evitare di usare questa riga:
[code]
$path =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
[/code]
ad esempio con una RE cambiare gli [b]%20[/b] con lo spazio etc...
ovvero riscrivere una funziona per fare l'escape di un indirizzo url...
grazie
-- 
Alla batteria dai retta, ballA!

Potresti provare con il modulo URI::Escape (v.
http://search.cpan.org/~gaas/URI-1.35/URI/Escape.pm
)

 grazie
devo essere sincero, non sto usando il Perl ma un linguaggio che ha un 
minimo di regex...


 minimo di regex...
Se non usi il Perl, non puoi usare un'espressione Perl per generare il testo
da sostituire. Questo è probabilmente il motivo per cui stai cercando una
soluzione alternativa. Ma qualsiasi linguaggio tu stia usando, se comprendi
il significato di 'pack("c",hex($1)' e (ovviamente) della regexp, ci metti
meno a fare l'implementazione che a chiedere sul newsgroup. In sostanza
devi cercare tutte le occorrenze di %XX e sostituirle con il carattere il
cui codice esadecimale vale XX. Mi sembra un esercizio facile.
Max
Newsgroup: it.comp.lang.perl
Titolo: Appendere codice a tutte le pagine web di un server

Vorrei tirar su un servizio di spazio web gratuito ma mi chiedevo come poter
appendere dell'html a tutte le pagine sparate fuori dal mio server Apache
 ( tipo i banner di Geocities ). Qualcuno potrebbe darmi qualche buona idea
in proposito.
Grazie
Mauro


con il modulo php lo puoi fare.. basta settarlo nel file php.ini
Ciao,
   Enrico.
#############################
Associazione ALU:
http://alu.sphera-group.com
#############################

Newsgroup: it.comp.lang.perl
Titolo: aiuto: Rinominare un file con la data

Dovrei creare una procedura che mi permetta di rinominare un file
un file con la data attuale, esempio: prova.txt  in  071098.txt   o qualcosa
di simile...
grazie mille
Andrea







 di simile...
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) =
localtime (time);
$year += 1900 if ($year < 1900);
$mon++;
$todayfile = sprintf ("%2d%2d%4d.txt", $mday, $mon, $year); 
$todayfile =~ s/ /0/g; # "07101998.txt"
rename $oldfile $todayfile;
io comunque consiglierei di mettere in sequenza anno-mese-giorno, cosi'
puoi avere un ordinamento alfabetico corrispondente all'ordinamento per data:
$todayfile = sprintf ("%4d%2d%2d.txt", $year, $mon, $mday);
# -> "19981007.txt"

$.......

