mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Eliminazione righe di file

Ciao a tutti,
ho un file di testo di questo tipo:
1:aaa:bbb:ccc:ddd:eee
2:fff:ggg:hhh:iii:lll
3:mmm:nnn:ooo:ppp:qqq
4:... ecc
Ho usato nel programma il modulo Tie:File, in modo da poter usare le 
funzioni degli array sul file per scopi secondari (gli elementi dell'array 
@FILE saranno le singole righe del file).
Il problema che non riesco a risolvere č questo: scrivere una subroutine che 
elimini una riga in modo che tutte le successive scalino di un posto e che i 
numeri di inizio-riga delle righe che sono scalate cambino a seconda della 
loro posizione. Ad esempio, se si volesse eliminare la 2a riga del file cosě 
strutturato:
1:aaa:bbb:ccc:ddd:eee
2:fff:ggg:hhh:iii:lll
3:mmm:nnn:ooo:ppp:qqq
esso diventi:
1:aaa:bbb:ccc:ddd:eee
2:mmm:nnn:ooo:ppp:qqq
Grazie a tutti. 

Sinceramente non so come funziona il modulo Tie:File. Ma avendo a
disposizione un array del genere farei così:
eliminerei i numeri allinizio della riga.
eliminerei dall'array le righe che devo eliminare.
riscriverei nel file numero:riga
tipo:
@file = map { /^d+:(.+)$/; $1 } @file;
splice @file, 1, 1;
print FILE "$_:$file[$_]\n" for (0..$#file);
Non so se ti sono stato d'aiuto


Se usi Tie::File (che č un modulo portentoso, complimenti) per ottenere 
quello che hai chiesto č sufficiente:
     splice @FILE, $numero_di_riga, 1;
     s{^(\d+)}{$1-1}e for @FILE[$numero_di_riga .. $#FILE];
La prima linea di codice elimina la riga dal file, mentre la seconda 
decrementa i numeri di inizio riga interessati. Nient'altro (la 
scrittura su file avviene automaticamente).
Precisazione: la variabile scalare $numero_di_riga che ho adoperato 
contiene il numero di riga del file iniziando a contare da *zero*.
Ciao,
Emanuele.

Grazie mille a entrambi!
"Emanuele Zeppieri" <emazep@REMOVE_THIStiscali.it> ha scritto nel messaggio 
news:uioMf.10001$A83.2...@twister1.libero.it...


Newsgroup: it.comp.lang.perl
Titolo: Cerco arretrati di ioProgrammo dal primo al 9 (compreso)

Credo che il Subject sia abbastanza esplicativo. 
Mi hanno sparato 30.000(!??)lire a numero, ma siamo pazzi. Sono gia'
senza un soldo per fatti miei e il mio budget da studente liceale non mi
permette queste spese.
Anche se non li avete tutti, contattatemi lo stesso.
CONTATTATEMI VIA MAIL, PLEASE!!!
Scusate il  CROSS-POSTING, ma la programmazione non aspetta......
-- 
*******************************************
Stefano Cristiano
autodeclarated Java programmer
ovverosia --> Pagghiu
E-mail: 
spag...@tin.it
 ITALY
Wonderful JAVA
"Mos tua, vita mea" said WINDOWS 95 to DOS...
*******************************************

>Mi hanno sparato 30.000(!??)lire a numero, ma siamo pazzi. 
A me veramente non piace ioProgrammo, ma se te lo vogliono fare pagare
30.000 a numero (il doppio del prezzo!!!) puoi anche dirgli di andare
a morire !
Ciao, e buona fortuna.
Federico Galli
FedE...@tin.it
Visual Basic and Delphi
http://www.geocities.com/colosseum/loge/2151
Newsgroup: it.comp.lang.perl
Titolo: Testare script perl su Win95

Ho capito, il modo piu' facile sarebbe installarsi UNIX, o magari
Linux (di cui avrei gia' il CD). Ma Linux, in configurazione minima,
quanto spazio occupa? Puo' coesistere con Win95 sullo stesso computer?
Ho anche provato a scaricare l'interprete per UNIX e poi compilarlo
con NMAKE di Visual C++, ma alla fine ottengo solo un "impossibile
trovare windows.h", e siccome nel pacchetto questo wondows.h non
c'era, deduco che e' una sola (l'ennesima).
Dunque, mentre io vado a eseguire una fattura a morte contro Bill
Gates, qualcuno puo' indicarmi un modo per testare, o semplicemente
verificare la corretteezza, degli script perl su Win95?
Grazie
--
Bud Bundy
http://www.pegacity.it/abita/381/index.htm

 wrote:
: Ho capito, il modo piu' facile sarebbe installarsi UNIX, o magari
: Linux (di cui avrei gia' il CD). Ma Linux, in configurazione minima,
: quanto spazio occupa?
Dipende da cosa installi, in genere, qualche decina di mega per una
configurazione minima.
: Puo' coesistere con Win95 sullo stesso computer?
Certo!
: Ho anche provato a scaricare l'interprete per UNIX e poi compilarlo
: con NMAKE di Visual C++, ma alla fine ottengo solo un "impossibile
: trovare windows.h", e siccome nel pacchetto questo wondows.h non
: c'era, deduco che e' una sola (l'ennesima).
Il windows.h e` (C), quindi non puo` essere distribuito con il Perl.
Lo trovi nell'SDK di Windows.
: Dunque, mentre io vado a eseguire una fattura a morte contro Bill
: Gates, qualcuno puo' indicarmi un modo per testare, o semplicemente
: verificare la corretteezza, degli script perl su Win95?
Vada per la fattura ;-)
Per il Perl per Win32 prova su 
www.activeware.com
 .
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E

 Concludo dicendo che mi sembra funzioni benissimo.

Newsgroup: it.comp.lang.perl
Titolo: caratteri printable

Salve,
   data una stringa vorrei tramite RE prenderne solo i caratteri 
printable (128) e eliminare tutti gli altri...
Grazie


Perché proprio una RE? Dato un insieme di caratteri, si può usare tr
per eliminare tutti i caratteri non presenti in quell'insieme (opzioni
"c" e "d" di perldoc -f tr).
Rimane poi da capire quali caratteri sono da considerare "printable",
visto che normalmente nell'insieme ASCII i primi 32 caratteri *non* lo
sono, mentre in vari encoding in cui è associato un solo byte a
ciascun carattere (e.g. ISO-8859-1 e ISO-8859-15) lo sono molti
caratteri al di là del 127. Senza andare a disturbare Unicode, per il
quale non posso parlare con consapevolezza.
Saluti,
   Flavio.

 Saluti,
credi che possa andare bene questa RE?
s/[^ -~]+//g;
grazie
Newsgroup: it.comp.lang.perl
Titolo: reg exp

ciao a tutti
dovrei leggere un numero che può essere intero o con la virgola e può 
essere circondato da spazi; vorrei memorizzarlo in una variabile. 
Purtroppo non sono bravo con le reg exp...
qualcuno può aiutarmi?

 wrote:

Con Regexp::Common il bello e` che non c'e` alcun bisogno di
essere bravi con le espressioni regolari. Ad esempio:
    use strict;
    use warnings;
    use Regexp::Common;
    my $string = '  12.121        ';
    if ( $string =~ /($RE{num}{real})/ ) {
        print "Il numero e` $1\n";
    }
Se vuoi usare un carattere diverso dal punto per separare le
cifre decimali, allora l'espressione che indica il pattern si 
complica un tantino. Anziche` 
    $RE{num}{real}
dovrai usare:
    $RE{num}{real}{ -radix => ',' }
Suggerisco comunque un giro nella documentazione per vedere 
quante cose Regexp::Common puo` fare per te.
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

 ha
scritto:


Newsgroup: it.comp.lang.perl
Titolo: Cerco spazio web gratuito abilitato perl

Qualcuno sa dirmi se esiste qualche altro fornitore di spazio gratuito
abilitato perl oltre a freeprohosting? Il problema è che mette in ogni frame
un banner e questo è piuttosto noioso?
Grazie
Frigor

Io sono ospistato su 
www.virtualave.net
 ma puoi anche prova 
www.webjump.com
oppure consultare il sito 
www.cgipoint.it
 dove ti consiglia una lista di
host con perl, e relativi giudizi.
Ciao
--
Riccardo
-----------------------------------------------------------------
La tua Guida in Biologia su SuperEva
rik...@supereva.it
http://guide.supereva.it/scienze/biologia
-----------------------------------------------------------------
Newsgroup: it.comp.lang.perl
Titolo: e-mail in formato html

spedire e-mail in formato html....come fare???
io so usare il sendmail semplice preso dalle faq di perl-it... e ho visto
+o- come si usa Net::smtp spiegato in una mail precedente sempre su questo
ng....
sarei grato se non rispondeste roba tipo usa mail::mailer... o simili...
perchč uso perl sotto win e non lo conosco troppo bene come linguaggio!
inoltre su cpan, a cui perl-it si linka ad esempio per spedire attachment,
le cose non sono spiegato cosě bene...
grazie mille!
Fracesco

 perchè uso perl sotto win e non lo conosco troppo bene come linguaggio!
Devi semplicemente usare dei separatori e indicare il tipo mime di ogni
sezione.
es.
$mailprog = "/usr/lib/sendmail";
open (MAIL, "|$mailprog -f $emailfrom -F \"$nomefrom\" -t")
  or die "Can't open $mailprog!\n";
print MAIL "To: \"$nometo\" <$emailto>\n";
print MAIL "Subject: $subject\n" if $subject;
print MAIL "\n";
print MAIL <<MULTIPART;
This is a multi-part message in MIME format.
------=_____XOXOXOXO_____
Content-Type: multipart/alternative; boundary="----=_____XOXOXOXO_____"
------=_____XOXOXOXO_____
Content-Type: text/plain;
Content-Transfer-Encoding: quoted-printable
Ciao sono un messaggio di *testo*.
------=_____XOXOXOXO_____
Content-Type: text/html;
Content-Transfer-Encoding: quoted-printable
<html><body>
Ciao sono un messaggio in <b>html</b>
</body></html>
------=_____XOXOXOXO_____
MULTIPART
    close MAIL;
bye
silvio

grazie mille! ti vorrei chiedere solo un'altra cosa...
questa riga...
Content-Type: multipart/alternative; boundary="----=_____XOXOXOXO_____"
significa che sceglierà se il messaggio sarà visualizzato in solo testo e
prenderà plain/text o html e prenderà plain/html...??
...poi     "------=___xoxoxoxo_____"
è una stringa a caso??
potevo mettere  "ciao_mamma"
o ha un significato???
grazie mille!!

 o ha un significato???
yup. 
bye
silvio
Newsgroup: it.comp.lang.perl
Titolo: modulare

Salve a tutti, sto scrivendo un programmino con diverse funzioni...
Il programma gira completamente in modalità testuale ma adesso vorrei
fare una piccola interfaccia grafica per alcune di queste funzioni in Tk
e implementare altre funzioni *non* necessarie ma "simpatiche" tramite
moduli non standard e che quindi non sono sicuro che chi userà il
programma ha installato...
Dato che tutte queste funzioni non sono necessarie vorrei fare in modo
che il programma controlli l'esistenza del modulo interessato in
oggetto, eventualmente ne segnali l'assenza e quindi tutta la funzione
che fa uso di quel modulo non venga caricata...
I miei problemi, quindi, sono due:
1. Quando lancio il programma mi da un ovvio errore sul "use
Modulo::Pippo" e non so come dirgli "Se non c'e' il modulo NON usarlo!"
2. Quando lancio il programma mi da errori sulle funzioni che sono
implementate in quel modulo particolare :-(
Come ovviare a questi problemi?
-- 
Per risposte private: 
vitto....@SPAMMAREtiscali.it
sito: 
http://nathanvi.it
FAQ OpenOffice: 
http://openoffice.nathanvi.it
Inviato da 
www.mynewsgate.net

 implementate in quel modulo particolare :-(
Potresti adattare il seguente codice, che si basa su require()
(suggerisco una lettura della documentazione che riguarda 
require, e i suoi rapporti con use()):
    use strict;
    use warnings;
    eval {
        require Modulo::Che::Non::Esiste;
        Modulo::Che::Non::Esiste->import();
    };
    if ($@) {
        warn "Mi spiace ma il modulo richiesto non e` installato\n";
    }
    else {
        fantomatica_sub();
    }
L'uso di "eval BLOCCO" e` assimilabile al meccanismo 'try'
presente ad esempio in Java. Se qualcosa e` andato storto allora
$@ sara` non nullo, e conterra` il messaggio d'errore.
 
Altra nota riguarda l'uso di import(), invocato subito dopo
la require(). import() e` il metodo statico che viene usato
per importare nel namespace del chiamante i simboli messi a
disposizione del modulo. Si tratta del meccanismo che viene
usato (ad esempio) dal modulo CGI, e che permette di 
selezionare le funzionalita` del modulo che si vogliono 
adoperare. Ad esempio, scrivere:
  use CGI qw/ :standard /;
e` grosso modo equivalente a scrivere:
  require CGI;
  CGI->import( ':standard' );
ma ti rimando un'altra volta alla documentazione di require()
(e di use()) per ulteriori dettagli. Quel che e` importante e`
che devi import()-are i simboli dopo aver fatto la require()
del modulo.
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it
Newsgroup: it.comp.lang.perl
Titolo: beginner

ho cominciato da pochissimo a studiare il perl.
č solo una mia impressione o ha delle somiglianze con il turbo pascal ?
dove posso trovare un compilatore per cominciare ?
Grazie
PhUsHeR

dove posso trovare un compilatore per cominciare ?
Vai su:
http://www.perl-it.org
Trovi FAQ e link a quello che ti serve.
	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!

grazie mille!

Newsgroup: it.comp.lang.perl
Titolo: OT cos'e il Perl

    Un linguaggio di programmazione ovvio ma la mia curiosità è
un'altra.
Perche usarlo visto che sono un vizziatissimo utilizzatore di vb?
Desidererei conoscerne le caratteristiche e quant'altro se gentilmente
vorrete fornirmele.
ciao a tutti.

 gentilmente vorrete fornirmele.
  Cerca in rete un tutorial, magari in italiano, poi scaricati
l'ambiente di sviluppo da
 
http://www.activestate.com
ed inizia a fare esperimenti.
	Alla prossima,
		Marco

Newsgroup: it.comp.lang.perl
Titolo: una semplice espressione

$ciao{'atutti'};
mi arrendo...
non riesco a trovare una espressione regolare che riconosca se una parola
qualsiasi in una stringa qualsiasi è più lunga di tot caratteri...
$ENV{'HTTP_AIUTO'};

 qualsiasi in una stringa qualsiasi è più lunga di tot caratteri...
Piu` lunga di 10: print "lunga!" if $stringa =~ m/[a-z]{10}/i;
-- 
Oramai che i baci tuoi piu` non mi sazian
cerchero` un'altra donna dentro ai sogni di Tarzan

ok,
il problema è che qualche deficente scrive nel libro degli ospiti del mio
sito cose del tipo:
"ciao a
tutiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
iiiiiiiiiiiiiiiiiiiiiiii"
e la pagina htm dove il cgi scrive si "spalma" in orizzontale....
Una soluzione semplice semplice?
http://www.irsina.com

 Una soluzione semplice semplice?
perldoc -f length
Text::Wrap
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

> Piu` lunga di 10: print "lunga!" if $stringa =~ m/[a-z]{10}/i;
cosa fa la "m"  in questo comando?
e la "i"?
Grazie in anticipo, mario.
Newsgroup: it.comp.lang.perl
Titolo: Problemi con le regexp

Ciao a tutti.
Non capisco perché questo programmino non funziona:
$valore="{[img][stringa][1][2]}";
$valore=~ s/{\[img\]\[(.+?)\](\[(\d+?)\])*?(\[(\d+?)\])*?}/"Valori 
estrapolati:\n$1\n$2\n$3\n$4\n$5\n$6\n$7\n$8\n$9\n$10\n$11\n$12\n$13"/gi;
print $valore;
Mi aspetterei che mi restituisca stringa, [1], 1, [2], 2 ma si perde gli 
1 da qualche parte.
Grazie a chi risponde.
Matteo

 1 da qualche parte.
Poiché per il secondo raggruppamento (che contiene il terzo) hai
specificato "*?" (ossia un quantificatore non-greedy che si accontenta di
zero), entrambe le sequenze "[1]" e "[2]" sono catturate dal  quarto
raggruppamento. Quindi $4 contiene l'ultima sequenza catturata da quel
raggruppamento, mentre $2 è una stringa vuota. Se sostituisci "*?"
con "+?", ottieni quello che ti aspettavi. Se togli '?', sparisce $4.
Max

 Max
$valore="{[img][stringa][1][2]}";
Prima non ho detto che [1] e [2] sono opzionali, e se mancano o ne manca 
uno solo, ed uso +?, il pattern non corrisponde.
Ho risolto sostituendo *? con ?
*? l'avevo dedotto da 
http://www.troubleshooters.com/codecorn/littperl/
perlreg.htm alla sezione "Greedy and Ungreedy Matching"
Ancora grazie,
Matteo

 Matteo
Nel tuo caso, l'opzionalità riguarda la presenza o meno di uno solo
elemento '[n]'. Quando dici:
   a*?
stai dicendo "una qualsiasi sequenza di zero o più a, ma il più breve
possibile dipendentemente da quanto viene dopo". Quindi se dici:
   a*?a*?
tutte le "a" verranno prese dalla seconda parte, perché la prima parte
dà come risultato la stringa vuota. Nel tuo caso, quindi, non si
trattava di essere greedy o meno, ma di specificare solamente
l'opzionalità della presenza del dato elemento; come giustamente hai
trovato, quindi, bastava mettere semplicemente '?', che dice "se c'è
prendilo, se non c'è non te la prendere".
Ciao,
    Flavio.
PS: lo so, io giochetto di parole finale è orribile :)
Newsgroup: it.comp.lang.perl
Titolo: Perl e win

Salve
Mi sapreste dire quale programma usare come web server su windows
che supporti perl ? Sono in fase di apprendimento.
Grazie



Non sono un esperto per quanto riguarda Windows, ma penso che più o meno
tutti i webserver in circolazione garantiscono un qualche tipo di supporto
per la programamzione in Perl. Con alcuni probabilmente ciò sarà limitato
al supporto per le applicazioni CGI, mentre con altri sarà possibile un
maggior livello di integrazione, ad es:
 - Perl come ASP scripting engine (IIS/PWS + Perlscript )
 - Perl come filtro NSAPI
 - Perl integrato nel webserver (Apache/Win32 + mod_perl)
Se ben ricordo, le FAQ del Perl per Win32 (
http://www.activestate.com
)
contengono un capitolo intero dedicato alla configurazione di vari
webserver in relazione al loro impiego con il Perl.
Max

 wrote in message 3a2f825e...@news.tiscalinet.it...
| Salve
| Mi sapreste dire quale programma usare come web server su windows
| che supporti perl ? Sono in fase di apprendimento.
| Grazie

che supporti perl ? Sono in fase di apprendimento.
Sambar Server (te lo danno con un interprete Perl minimale incluso)

Sambar Server (te lo danno con un interprete Perl minimale incluso)
Sai se è possibile espandere questo interprete?

, e ti scarichi ActivePerl
Dato che Sambar Server da' la priorita' al Registro di configurazione rispetto
al path indicato dalla prima riga dello script (#!/usr/local/bin/perl, o
simili), e dato che ActivePerl associa i file .pl e .pls al uso interprete,
Sambar Server utilizzera' l'interprete superaccessoriato di Active State
piuttosto che quello standard con cui viene distribuito

Newsgroup: it.comp.lang.perl
Titolo: Importante - Chat Chat Chat

Salve a tutti,
cerco un esperto di ASP o PERL per creare una pagina dinamica a REFRESH
automatico, nella falsa riga della chat di quella di Radio Montecarlo:
http://www.radiomontecarlo.net/chat.asp
So che non è una cosa difficile, non ci vogliono tante istruzioni ASP, ma io
non sono pratico, perciò anche poche istruzioni non saprei come sistemarle.
Questa sarebbe un'ottima alternativa di avere una chat nel proprio sito,
senza dover andare ad iscriversi ad altri server che offrono il servizio a
prezzo di tanta e tanta pubblicità.
Mi raccomando aspetto notizie
o scrivete a 
rob...@freestreet.net
Roberto

Ma scaricarne una da 
www.cgi-resources.com
?
--
Umberto Meroni
[
http://www.ubi1k.com
] [
http://www.ubi1k-vb.net
]
[Come contattarmi: 
http://www.ubi1k.com/meroni
]
---
"Ma č ormai venuta l'ora di andare: io a morire, e voi, invece, a vivere.
Ma chi di noi vada verso ciň che č meglio, č oscuro a tutti, tranne che al
dio."
Socrate, Apologia
---
Newsgroup: it.comp.lang.perl
Titolo: LE CGI VANNO COMPILATE????

Scusate l'ignoranza, ma fino ad'ora ho fatto CGI in C.
Ultimamente, mi sono avvicinato al Perl e l'ho trovato più semplice, solo
che non mi è chiara una cosa:
dopo aver creato il 
file.pl
  ,  l'ho inserito nella directory   cgi-bin  del
mio server Unix-Apache.
La sintassi è sicuramente giusta, ma quando vado a passare i parametri dal
form alla CGI, non accade nulla.
In teoria la CGI dovrebbe mandare una e-mail, ma non lo fa.
Per caso devo compilare il 
file.pl
 ?!?!?
Ringrazio chiunque voglia darmi una risposta.
Emanuele C.

Ema80 wrote:

No non devi compilarle perche' il perl e' un linguaggio interpretato.
devi essere sicuro che la prima linea del tuo script contenga il path esatto
dell'interprete perl della tua macchina e devi aver fatto il chmod a+x 
file.pl
buon lavoro,
 ls
Newsgroup: it.comp.lang.perl
Titolo: MD5...

   (NeXTmail, MIME)

 Dove posso trovarlo nel caso ?
Si.
Lo trovi su un qualsiasi mirror di CPAN 
http://www.perl.com/CPAN/
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: problemi con una RE

Salve a tutti.
Ho tentato di scrivere una RE che mi serve per uno scopo specifico,
dovrebbe togliere da una linea di testo tutti i caratteri che non
siano / , spazi oppure cifre
ho provato cosě:
$line =~ s/[^0-9]|[^\/]|[^\s]//g;
Ma mi toglie tutta la riga.
Ho provato varie combinazioni per modificare lo statement ma non ci
sono ancora arrivato.
Mi potreste dare una mano?
il problema credo che sia far capire allo script che deve prendere in
considerazioneuna lettera alla volta, ma anche modificando il
"grediness" dello statement non ci sono ancora riuscito.
Vi ringrazio in anticipo.
Gerry@work
--
mailto:
ge...@gerry.it
 | 
http://www.gerry.it
U2 fans NG Site: 
http://members.tripod.com/~ifmu2/
[PERL-NightMare]
next unless s/^(.*?):\s*//;

 $line =~ s/[^0-9]|[^\/]|[^\s]//g;
prova con qualcosa del genere:
tr[0-9/ ,][]dc;
Ciao, Daniel.
--ddm

le regex non funzionano così
data /adf56/3 tu ti aspetti /56/3
con [^0-9]|[^/]|[^\s] succede questo :
dall'inizio della stringa, da sinistra verso destra, carattere per carattere, prova a trovare un match,
quando lo trovi fermati.
si parte con la prima alternativa nella regex cioè [^0-9]
il primo carattere della stringa non è una cifra? si, è un /
quindi abbiamo un match comprendente solo il primo carattere.
a questo punto l' operatore s/// sostituisce il match , quindi ottieni : adf56/3
fine.
se anche tu usassi il modificatore /g dell' operatore s///, che gli dice "continua a trovare
dei match fino alla fine della stringa", ogni carattere per non matchare (e non venire cancellato)
dovrebbe passare la prima alternativa (essere un numero) e le successive (essere un / e uno \s)
, ergo tutti i caratteri matchano e tutti vengono rimossi. 
nelle regex, conta l'ordine e il numero dei caratteri, quindi non c'è modo di dirgli
fai qualcosa ad una classe di caratteri a prescindere da dove si trovino.
perl quello c'è l'operatore tr/// o equivalente y/// ( da shell digita "perldoc perlop" per l' help )
cmq nel tuo caso :
$stringa =~ tr!0-9/ !!cd;
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

On Wed, 28 Mar 2001 15:23:48 +0000 (UTC), 
f.ga...@e-mind.it
 (fe)
wrote:
[CUT]
Ringrazio te e gli altri, mediterò su quello che mi hai detto....

Newsgroup: it.comp.lang.perl
Titolo: Conversione ASCII

Trovandoci a studiare la parte di conversione dell'input da form ad html, io
ed un mio amico, mentre abbiamo capito la lettura di <STDIN> e l'invio in
$buffer, ci troviamo spiazzati di fronte a queste tre righe di codice:
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $value =~ s/<!--(.|\n)*-->//g;
C'e' qualche anima buona che puo' spiegarci cosa significano tecnicamente e
cosa vanno a fare sulla variabile?
Grazie in anticipo,
Elena e Manu.

        $value =~ s/<!--(.|\n)*-->//g;
Sono regular expression. La prima cambia tutti i '+' in spazi. La
seconda sostituisce tutti i valori esadecimali con i caratteri
corrispondenti (gli esadecimali sono qui codificati con '%', es. %2A).
La terza taglia i commenti (quelli racchiusi nel tag <!-- ... --->).
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
 *updated!*

word1  word3
Oha
-- 
"Qualcuno mi spieghi perche' 144 e' l'unico
quadrato perfetto della serie di Fibonacci"

 Sono regular expression. [...omissis...]

$a=~s/<!--(.|\n)*-->//g;
Gia`, e` troppo "greedy". ;-) Meglio forse:
$a=~s/<!--(.|\n)*?-->//g;


$a=~s/<!--(.|\n)*?-->//g;
mi fanno notare che la sintassi <!-- XXX <!-- XXXX -->
e' tollerata
quindi
$a=~s/(?!-->.*?)<!--(.*?)-->//gs;
dovrebbe funzionare


Newsgroup: it.comp.lang.perl
Titolo: una trimmatina

Buongiorno a tutti,
esiste una funzione, senza ricorrere alle espressioni regolari, che riesce a
levare gli spazi ad inizio e fine stringa?
(come fa il caro Trim$ del Basic).
Grazie a tutti!

(come fa il caro Trim$ del Basic).
Per togliere gli spazi alla fine puoi utilizzare:
$/ = ' ';
chomp($stringa);
$/ = "\n";
Per quanto riguarda quelli all'inizio mi sa che devi ricorrere alle regular
expression. Al limite dai un'occhiata a:
http://www.borders.it/perl/faq/index.cgi?task=view&id=10022
	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!

 (come fa il caro Trim$ del Basic).
come no!
$stringatrimmata = trim($stringa);
[...]
sub trim {
    shift =~ /^\s*(.+?)\s*$/;
    return $1
}
ciao, marco
--
Marco Cacchiani                                
e-mail:ma...@sirius.pisa.it
Public pgp key:         
http://www.sirius.pisa.it/marco/pgp_public_key.asc
Sirius Servizi Informatici                     e-mail: 
in...@sirius.pisa.it
Parco Teatro Pasolini, 1                       Phone:  +39 (50) 865120
I-56019 - Vecchiano                            Fax:    +39 (50) 860260
(Pisa - ITALIA)                                
http://www.sirius.pisa.it/
Newsgroup: it.comp.lang.perl
Titolo: Perl - Apache

Ciao a tutti ed in anticipo grazie per l'aiuto.
Vorrei realizzare alcune semplici pagine web dinamiche e a tale scopo
ho copiato alcune cgi che non riesco a far funzionare:
Sulla mia macchina (xp), ho installato apache (2.2) e cambiato il file
httpd.conf inserendo le voci riguardandi perl e cgi (scriptalias
/cgi-bin/ .........).
Orbene quando lancio lo script sottoindicato (readarticle.cgi dalla
cartella c:\programmi\Apache ....\cgi-bin) non mi si apre nessuna
pagina web che mostri article1.txt;
#!C:\Perl\bin\perl.exe
print "Content-type: text/html\n\n";
print "<HTML>\n<BODY BGCOLOR=\"#FFFFFF\">\n\n";
open (ARTICLE1,"article1.txt");
while (<ARTICLE1>)
{
print;
}
close (ARTICLE1);
print "</BODY>\n";
print "</HTML>"; 
Dove sbaglio ?
Ancora grazie


Prima di tutto controlla i log di Apache (nello specifico il suo file 
error_log) per vedere cosa ti dice.
Poi non hai specificato bene che messaggio di errore mostra il tuo browser: 
pagina non trovata? errore interno del server? altro?

Icestorm ha scritto:

Ciao,
probabilmente non sono stato esaustivo; sry.
Apache gira correttamente e alla pagina 
http://localhost
 compare la
lista di tutti i files che sono nella directory di root (la mia è
c:\www).
Lo script in perl sottoindicato è stato invece inserito nella cartella
C:\Programmi\Apache Software Foundation\Apache2.2\cgi-bin.
Quando provo ad eseguirlo, purtroppo non accade nulla; Pensavo che lo
stesso riuscisse a visualizzare il file *.txt in una pagina web ma ciò
non accade.
Grazie

 non accade.
Certo che accade, e perché non dovrebbe?!
Il tuo script cgi è corretto e genera l'output corretto per il browser.
Pertanto probabilmente stai commettendo qualche errore banale, ma se ti 
rifiuti di rispondere alle domande che ti ha fatto Icestorm, peraltro 
molto semplici, diventa difficile aiutarti...
Magari cerca anche di precisare il significato delle frasi "quando provo 
ad eseguirlo" (cosa fai per l'esattezza?) e "non accade nulla" (cosa 
vuol dire?)

 non accade.
lo script funziona se lo chiami seguento il percorso
http://localhost/ecc
..
http.conf ti permette di creare gli "alias" vale a dire una directory
che viene vista come appartenente a 
http://localhost
Se hai difficoltà nella configurazione ti consiglio usare solo il
percorso a partire dalla root directory.
Controlla in http.conf se la directory cgi è definita, per esempio:
<Directory "C:/sito/cgi-bin">
    AllowOverride None
    Options Includes ExecCGI
    Order allow,deny
    Allow from all
</Directory>
controlla anche gli handler, esempio:
    AddHandler cgi-script .pl .cgi

Oreste ha scritto:

Riciao a tutti e grazie;
Credo di aver risolto facendo le seguenti operazioni:
1) ho rinominato il file da cgi in pl
2) ho creato una cartella cgi-bin all'interno della cartella c:\www (la
mia root) nella quale ho copiato i file pl e txt.
3) la prima riga del file pl inizia con la dicitura #!c:\perl\bin\perl
Ho ancora qualche problema ma penso di essere sull strada giusta.
Buon anno ed ancora grazie per l'aiuto.
Con il vostro aiuto spero di poter un giorno essere sufficientemente
bravo per aiutare altri.
Newsgroup: it.comp.lang.perl
Titolo: PROGRAMMATORE PERL BRAVO

Ragzzi esiste ancora qualche programamtore perl
serio disponibile e bravo?
Ho i miei dubbi.
Sono alla ricerca di un programmatore con questi requisiti
ma appena invio la mail con la descrizione delle modifiche al mio script
o scappano perchè troppo complicate per loro o chiedono cifre troppo alte.
Ho bisogno di modifiche a uno script con un prezzo intorno ai 200 euro.
Vorrei il lavoro consegnato entro il 5 febbraio.
Se c'è qualcuno davvero bravo che non deve stare anni
a studiarsi il codice dello script per capire che modifiche
deve fare può scrivermi a :
wacky...@yahoo.com
Cordiali saluti

 
Esistono sicuramente, ma se sono davvero seri, disponibili e bravi,
molto difficilmente costeranno poco...... :-))
Se poi tu stesso dici che alcuni scappano per la difficolta' e facile
che le cifre chieste dagli altri (se hanno le credenziali ovviamente)
*sono* probabilmente eque a prescindere da quello che pensi tu ci hai
pensato?
	Buona fortuna.......:-))
		Mister Perl
(purtroppo troppo impegnato attualmente per fare altro entro
il 5 febbraio, a prescindere dal prezzo. Alla prossima)
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:d83d63cee32a77635f3...@mygate.mailgate.org...


 Ecco sei l' esempio del programmatore perl "standard".
visti i tuoi post, sinceramente non mi sembra che tu abbia la facolta' di 
valutare la professionalita' di un programmatore, ne tantomento di 
"categorizzare" le persone...
non e' che sei uno di quelli che crede che i professionisti debbano usare 
prodotti col marchietto "professional"? :)
-- 
/federico

 ha scritto nel messaggio
news:beio2a....@federico.milano.yahoo.com...


difficile trovare quello serio e bravo ......
... mi sembra che piu che serio e bravo, te ne serva uno veloce ed
economico ;-)
La competenza, quando non se ne ha, e' sempre difficile da valutare,
pero' le "urgenze" solitamente si pagano, in tutti i settori :-)
Inoltre trovare un programmatore serio e bravo sara' difficile, ma mai
quanto un datore di lavoro altrettanto serio e bravo.
Quando si tratta di chiedere, i clienti sono sempre li' dietro al
angolo a soffiarti sul collo, invece quando si tratta di mettere mano
al portafogli, si fanno di nebbia ... (IMHO)
A presto
--
|Stefano Orsi
|Email: s punto orsi chiocciola ogcs punto com
| Gli spammer mi hanno proprio rotto !!

 ha scritto nel messaggio
news:3c4ffa37...@News.cis.dfn.de...


Ciao!
Comunque, potresti tentare di postare su it.lavoro.informatica, o comunque 
in newsgroup/siti letti dalla gente in cerca di lavoro (in ambito 
informatico).
        A presto, Michele.

o scappano perchè troppo complicate per loro o chiedono cifre troppo alte.
vediamo un po'....
 lulliz at tin dot it
-- 
_____
http://theunixplace.com/~entropia/index.html_____
 
  Mutationem motus proportionalem esse vi impressae 
et fieri secundum lineam rectam qua vis illa imprimitur
	I. N.

 ha scritto nel messaggio
news:s7y38.16635$Rv3.6...@news2.tin.it...

Newsgroup: it.comp.lang.perl
Titolo: regular expression

Mi serve un'ultimo aiuto prima di partire per le tanto sospirate vacanze!
come faccio tramite "ls" di Unix o "opendir" di Perl a listare tutte le 
directory che iniziano con FORUM. e continuano con un numero?
FORUM.1
FORUM.2
FORUM.2345
etc...
e mettiamo che in $dir ho il valore FORUM.2345 ho bisogno di prendere il 
numero...
grazie mille a tutti!!!!!!!!!!!!!!!!!!!!!!!!!!!

 FORUM.2345
  my $dir_path = "/path";
  opendir( DIR, $dir_path ) or die "$dir_path: $!\n";
 
  for my $e ( readdir DIR )
  {
      next unless -d $dir_path . "/" . $e;
      next unless $e =~ /^FORUM\.(\d+)/;  
      my $numero = $1;
  }
Buone vacanze.
Max

Newsgroup: it.comp.lang.perl
Titolo: Perl/TK per ActiveState

Ciao!
Mi sto dilettando con Perl/TK sotto Linux, fantastico. ;-) Sono tuttavia
alla ricerca di una versione per Windows del modulo che funzioni con
ActiveState Perl. E` disponibile qualcosa?
	    Grazie, Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

ActiveState Perl. E` disponibile qualcosa?
yes, scrivi quanto segue al prompt:
ppm
install Tk
__END__
# Aldo Calpini
%x=split(//, "xritajbugne fahokem csuctawer jhdtlrnpqloevkshpr");
foreach (sort keys(%x)) { print $x{$_}; };

ActiveState Perl. E` disponibile qualcosa?
sì, come altri moduli, all'indirizzo:
www.ActiveState.com/packages/zips
scarichi il modulo, lo decomprimi e lo installi con ppm (vedi documentazione
di ActiveState Perl); nel pacchetto zip c'è anche la documentazione
Newsgroup: it.comp.lang.perl
Titolo: HELP! variabili di ambiente

Ciao!
    sapete dirmi come interpretare la varibile di ambiente
$ENV{HTTP_USER_AGENT}?
Quando la leggo con IE, contiene questo:Mozilla/4.0 (compatible; MSIE 5.0;
Windows 98)
Quando la leggo con NN, contiene questo: Mozilla/4.5 [en] (Win98; I)
Questa varibile dovrebbe indicarmi il browser in uso, ma non riesco a
capirlo dai valori ritornati.
Nel primo caso più o meno capisco che ho IE5.0 (ed è cosi), mentre nella
seconda come faccio a capire che ho NN4.5 ?
Vorrei inoltre chiedervi se qualcuno sa come recuperare la risoluzione del
client e magare anche l'indirizzo eMail (HTTP_FROM mi ritorna sempre NULL).
Grazie e ciao,
Tommaso.
--
----------------
Tommaso Trani
    Edinf s.a.s. - Sviluppo Software Personalizzato
        eMail: 
ed...@softwareplanet.net
            Web: 
www.softwareplanet.net
Sul Web: corsi di programmazione di Visual C++, JavaScript, Perl, HTML,
Linux...
----------------
Vuoi guadagnare sfruttando il tempo impiegato a navigare in Internet?
    Clicca qui: 
www.softwareplanet.net/Guadagnare/Guadagnare.htm

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

>> Mozilla/4.0 (compatible; MSIE 5.0; Windows 98)
Non intendevo la parte iniziale della stringa, ma quello che c'č fra
parentesi:
Mozilla/4.0 (compatible; MSIE 5.0; Windows 98)
Mozilla/4.5 [en] (Win98; I)
Il primo č IE, il secondo č un Netscape "liscio" (ma rileggendo il mio
posto in effetti non mi ero spiegato troppo bene!!)
Ciao
M.
-- 
:wq

Perchè non mi è dato sapere l'ind. eMail? alcuni siti ci riescono, come
fanno?
E per la risoluzione video dici che serve JS, ma allora come fanno quei
tanti counter free a rilevare tale informazione? vengono richiamati dal tag
IMG!
Ciao e grazie

 IMG!
Boh, per quanto ne so potrebbero anche inventarselo
:-))))))))))))))))))))))))
Ciao
M.
-- 
:wq

 Forse non è dato saperlo neanche a me! Sinceramente, non ne ho mai visto


 fanno?
Se sai per certo che alcuni siti ci riescono, sarai senz'altro in grado di
citarne almeno uno. 

 > Perchè non mi è dato sapere l'ind. eMail? alcuni siti ci riescono, come


Newsgroup: it.comp.lang.perl
Titolo: Ricerca e sostituisci con espressioni regolari?

salve, posso fare una cosa tipo
$a =~ s/\S+ (\S+) \S+/\S+ ciao \S+/;
ossia vanno sostituite le parentesi con la parola ciao.
eppure $a diventa uguale alla pattern di sostituzione (\S+ ciao \S+).
Perchč?
per la cronaca
$a = "aaaa bbbb cccc";
dovrebbe diventare
$a = "aaaa ciao cccc";
--------------------------------
Inviato via 
http://usenet.libero.it

 diventa uguale alla pattern di sostituzione (\S+ ciao \S+). Perchè?
Perché è esattamente quello che gli hai detto di fare...
l'espressione corretta è
s/(\S+ )\S+( \S+)/$\ciao$2/;
Ciao
Leo TheHobbit

 $a = "aaaa ciao cccc";
Direi che se vuoi sostituire la parola centrale di una stringa in cui ci
sono 3 parole, puoi scriverla molto piů elegantemente cosě:
$str = "aaaa bbbb cccc";
$str =~s/ (\S+) / ciao /;
bye
dd
Newsgroup: it.comp.lang.perl
Titolo: SMTP e password

Domandone::::
Attraverso il modulo SMTP per perl ci si può collegare a un server SMTP per
inviare e-mail...
sapete se c'è un modo per collegarsi a un server SMTP e inviare e-mail con
autentificazione di password (tipo fare il lavoro che fa un client di posta
elettronica come outlook express tramite script in perl) ????
Ciaoz

elettronica come outlook express tramite script in perl) ????
Sě. Con lo stesso modulo SMTP (metodo auth) e/o il modulo Athen::SASL.
Ciao.

 Sì. Con lo stesso modulo SMTP (metodo auth) e/o il modulo Athen::SASL.
OK figur di merd
vado a legger meglio la doc di SMTP
ciao ciao


http://groups.google.com/groups?hl=it&lr=&ie=UTF-8&threadm=tf2piu4f9h0dmn3o7logmtngoic178uo3b%404ax.com
Se non funziona, cerca (in "Ricerca avanzata sui gruppi", sempre in google)
"autenticazione smtp", nel gruppo it.comp.lang.perl, autore
zezz...@tin.it
.
Ciao.

 >> Sì. Con lo stesso modulo SMTP (metodo auth) e/o il modulo Athen::SASL.


5.6 del perl della activestate: la versione per windows!!!)
Sì, il metodo auth è stato introdotto solo successivamente alla versione
1.09. Non poi così di recente, comunque (change 667 del 2001/11/20).
Dovresti, credo, trovarlo anche nella versione ActiveState (appunto, 1.09),
ma ti conviene comunque aggiornare alla 1.12, perché la prima realizzazione
è più limitata.
Purtroppo (e chissà perché), l'ultima versione la trovi solo su CPAN e non
nei moduli PPM ActiveState. Puoi comunque sostituire con buona confidenza
almeno il solo modulo Net::SMTP, che è perl puro, lasciando il resto della
1.09 (mi pare, per la verità, che l'intera libnet non sia particolarmente
dipendente dalla piattaforma, ma non sono in grado di garantire nulla).
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: confrontare due stringhe

Come mai se confronto queste stringhe mi da sempre vera la condizione?
$s1="paolo";
$s2="z"; #più corto
print stdout "1° IF!" if ($s1==$s2);
$s1="paolo";
$s2="zzzzzzz"; #più lungo
print stdout "1° IF!" if ($s1==$s2);
$s1="paolo";
$s2="zzzzz"; #uguale ma diverso
print stdout "1° IF!" if ($s1==$s2);
Grazie mille a tutti!

 [...]
$ perldoc perlop
   [...]
   Equality Operators
     Binary "==" returns true if the left argument is numerically
     equal to the right argument.
Ora presumibilmente ti starai chiedendo qual e` il valore di una
stringa valutata in un contesto numerico. Se la stringa puo`
essere convertita con qualcosa tipo atof() (e` una funzione C),
allora il valore dell'espressione e` il numero rappresentato
dalla stringa. Il Perl e` di bocca abbastanza buona per quanto
riguarda le conversioni, se proprio non ce la fa (come in tutti
i casi da te elencati) allora il valore e` 0. Quindi tutti i
confronti da te fatti si riducono a:
   0 == 0
Nota che attivando gli warnings saresti stato informato
del problema.
ciao
Stefano

 ha scritto nel messaggio
news:BrHya.125944$3M4.2...@news1.tin.it...


 Come mai se confronto queste stringhe mi da sempre vera la condizione?
[CUT]
Per il confronto fra stringhe si deve usare "eq". Se poi tu volevi
confrontare la dimensione delle stringhe in questione: 
	perldoc -f length
ti può aiutare.
Ciao
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \
Newsgroup: it.comp.lang.perl
Titolo: Lettura file

Ho un file che č strutturato cosě:
::1::
bla
bla
bla
::end::
::2::
bla
bla
bla
::end::
ecc. ecc.
Vorrei fare in modo che il mio programma memorizzi in un array o in un file
temporaneo (forse č meglio) i dati da fra un ::numero:: e un ::end::. Come
posso fare?
--
bye
Erix    UIN: 72432400
http://erix.cjb.net
--
bye
Erix    UIN: 72432400
http://erix.cjb.net

posso fare?
  if (/^::numero::$/ .. /^::end::$/) {
    faccio cose;
  }
Ciao.

E per aprire un file temporaneo? Ovvero che sia sicuramente in Temp sotto
windows e in .../tmp sotto Linux? Esiste qualcosa di automatico o devo
specificare la path della directory temp?


specificare la path della directory temp?
Puoi dare un'occhiata a File::Temp e File::MkTmp. Per la verita', non ho
presente, in dettaglio, se rispondano alla tua richiesta.
Per quanto riguarda Windows, attraverso Win32:API, dovrebbe essere anche
possibile chiamare GetTempPath.
Ciao.

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

come faccio ad avviare un cgi con delle variabile...
mi spiego meglio:
es. su altavista quando cerchi something e ti arrivano quegli indirizzi...
www.sdfsdf.com
\busdfgjk\ciao.cgi?nome=ciao;cognome=bubu
o something del genere...
posso usarli per avviare il mio cgi e poi usarli all'interno di questo??
...in pratica quando poi mi trovo a scrivere
print $nome
lui mi scrive il nome con cui l'ho chiamato...
c'è qualche modo????????
grazie!
francesco







Newsgroup: it.comp.lang.perl
Titolo: PERL Vs ASP

Come faccio a fare in modo che le pagine asp non restino nella cache del
browser?
Ho una pagina asp che deve fare un redirect su un'immagine scelta a caso fra
10 immagini
tramite la funzione random, solo che il browser esegue lo script asp solo
una volta e le altre
volte legge l'immagine dalla cache.
Come mai i CGI vengono eseguiti OGNI volta e gli script ASP no?
Grazie

...

Basta "forzare" la scadenza della pagina ASP in questo modo:
<%Response.Expires = 0 %>
ponendo l'istruzione prima di qualunque altra, in testa alla pagina.
Bye!
Newsgroup: it.comp.lang.perl
Titolo: Creare un Blog CGI - Perl

Ciao a tutti,
ho intenzione di costruirmi un piccolo Blog in CGI con Perl.
Purtroppo sono un pò neofita di Perl e database (vorrei utilizzare
MySql).
Qualcuno saprebbe indicarmi un tutorial o qualche risorse (anche in
inglese) da cui partire.
Grazie!

Marco wrote:

Tutorial specifici sui blog non ne conosco (se è questo che stai cercando).
Tutorial sullo sviluppo di web application in Perl sì, quanti ne vuoi, 
basta cercare su Google (ma qui poi si apre il discorso senza fine sulla 
scelta del framework...)
In ogni caso, eccoti un po' di Blog engine scritti in Perl, che puoi 
utilizzare come esempi (ispezionandone il codice) o come applicazioni 
per il blogging bell'e pronte.
Movable Type, quello che è forse il blog più potente e completo, è 
scritto in Perl:
http://www.sixapart.com/movabletype/
Blosxom è un altro blog scritto in Perl, molto ricco e free:
http://www.blosxom.com/
Altrimenti:
http://search.cpan.org/~simon/Bryar-2.6/
Oppure questa, che è un'applicazione CGI per un blog molto semplice:
http://search.cpan.org/~lgoddard/Blog-Simple-HTMLOnly-0.04/
Ciao,
Emanuele.

Grazie mille per l'accurata risposta!
Ciao.
Marco

Newsgroup: it.comp.lang.perl
Titolo: urgente: problema con gli hash

Non riesco a capire come
1) scorrere i valori di un hash (tipo foreach...)
2) come fare a visualizzare l'n-esimo valore di un hash (tipo come si fa con
gli array $array[n])... $hash{n} non funziona...
3) visualizzare la n-esia chiave o l'n-esimo valore di un hash.
grazie
dawe
--------------------------------
Inviato via 
http://usenet.libero.it

 grazie
L'n-esimo valore? potresti spiegarti meglio?
L'hash lavora con l'accoppiata chiave (che di solito è alfanumerica) e
valore. Si accede al valore solo attraveso la chiave (anche perchè
l'hash non ha un ordine preciso).
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

 }
Grazie mille.

Newsgroup: it.comp.lang.perl
Titolo: script che legga un file excel e cerchi la corrisondenza su..

Ciao a tutti, mi servirebbe qualche dritta un la creazione di uno script,
questo script deve leggere un file excel (che contiene nomi di file) e
cercare la corrispondenza su una directory che contiene dei files, poi
copiare i files in una altra directory.
mi potete dare una mano
ciao ciao a tutti!!

 questo script deve leggere un file excel 
prova i moduli Spreadsheet::ParseExcel e Win32::OLE che trovi
su 
http://search.cpan.org
per Win32::OLE, uno script di lettura lo trovi su 
www.perlmonks.org
(dove trovi molto altro materiale sull'argomento):
http://www.perlmonks.org/index.pl?node_id=10915

Newsgroup: it.comp.lang.perl
Titolo: cosa dimentico? (script OK - cgi NO)

Ho un brevissimo pezzo di codice (
script.pl
) in perl, che semplicemente
apre un file in scritttura
tipo :-----------------------------
#!/usr/bin/perl
open (FILEOUT, "> ./dcd/prova");
print FILEOUT "ciao\n";
close FILEOUT;
-----------------------------------
ora il problema consiste nel fatto che se lo eseguo con il perl
tipo
./
script.pl
tutto funziona regolarmente il file viene creato e all'interno trovo il
testo.
MA se lo metto nello spazio cgi-bin del server web Apache (dove tra
l'altro i vari script in perl funzionano regolarmente (vedi printenv e
test-cgi)) il file viene si creato ma non viene scritto nulla al suo
interno !!!!!
NOTA: per script simili ma per la lettura tutto funziona regolarmente.!
Cosa STO DIMENTICANDO ???
grazie
                    GENrs

 wrote in message
39DD0B01...@flashnet.it...

Newsgroup: it.comp.lang.perl
Titolo: Perl ama Interbase

Ciao a tutti,
mi sono da poco (leggi quasi un anno) affacciato al grande mondo del Perl e
della sua filosofia che ho già necessità di creare programmi sempre più
complessi e che trattino più dati: un database per l'appunto !
Poichè la filosofia del Perl è quella dell'open, ho cercato in giro qualcosa
che avesse lo stesso spirito e mi sono imbattuto nell'Interbase.
Per chi non sappia cosa sia, vi rimando al suo sito:
http://www.ibphoenix.com/index.html
E' gratuito. E per di più, leggendo le note tecniche e grazie anche a
qualche consiglio di chi lo utilizza con il Delphi, vi dico che solo quando
si supera il Giga di dimensione si avvertono dei leggeri rallentamenti nella
gestione... non so se mi sono spiegato :)
Ora qual'è la mia domanda:
chi di voi, cari i miei perlacei, utilizza questo database ? Ma soprattutto
in che modo l'ha installato e si che strumenti si ha bisogno ?
Io utilizzo il Perl v. 5.00 della ActiveState: ho letto che ci possono
essere dei problemi...
Questa mia lettera racchiude anche un disperato bisogno d'aiuto circa i
moduli: ma si può sapere come si installano ??!?!?!
Ho sempre problemi, mi appaiono errori, etc. etc. C'è qualche tutorial
perchè la guida online non tanto l'ho capita. Ebbene si ! :)
Sperando di essere contattato anche solo per essere consolato (sto
scherzando),
gradirei conoscere gente con cui avere uno scambio di opinioni tecniche e
non sull'iterazione tra Perl e database (insomma non mi accontento di un
semplice link, ma di storie di vita vissuta passata a programmare Perl etc
etc)
RingraziandoVi per la gentile pazienza,
Vi saluto e Vi dico: non state troppo tempo attacati ai monitor perchè fuori
è sempre una bella giornata !
O la vostra ragazza potrebbe impazziere dalla gelosia.
Mkè

io l'ho usato in produzione in un paio di applicazioni e te lo sconsiglio
vivamente.
Interbase e' lento, poco performante, stressa con problemi di versione e
sottodialetti,
non indicizza i varchar oltre certe dimensioni, tratta i blob come entita'
aliene,
diciamo comunque che per tabelle non troppo grandi ( decine di migliaia di
record)
e non troppo complesse se la gioca con mysql.
In linea di principio, DB2 ed Oracle regnano sovrani, ma per realizzare
qualcosa al
di sotto dei 100 Milioni tocca usare mysql e se piace il rischio Interbase.
Non parliamo poi dei drivers nativi java di Interbase. Ah!, mi fanno ridere.
In generale, a mio avviso, la rivoluzione Open Source non tange il mondo
dei Db server per ambienti di produzione medio grandi.

E postgres???
Che ne pensi?
Max

postgres e' in giro da ben cinque anni, si dice sia maturo (leggasi stabile)
ma non viene innovato un gran che.
Non l'ho mai usato in ambienti di produzione ma credo valga la pena di
essere considerato in sede di analisi come valida alternativa a mysql e
Interbase (tra parentesi la versione Opensource di Interbase ha meno di un
anno). Non molto diffuso in ambiente web che io sappia.

 dei Db server per ambienti di produzione medio grandi.
 
Postgres?
Ciao
--ev
Newsgroup: it.comp.lang.perl
Titolo: framesets e Perl

Ragazzi aiuto! come posso lavorare con i frames generando tutto col Perl?
Quindi il frameset e anche i contenuti? C'é un modo?
Ho provato cosi' ma non va naturalmente :-)
print <<"FRAME";
Content-Type: text/html
<head>
<title>TITOLO FRAME</title>
</head>
<frameset framespacing="0" border="false" rows="100,*" frameborder="0">
  <frame name="banner" scrolling="no" noresize>
  <frame name="centro" scrolling="auto">
  <noframes>
  <body>
  <p>This page uses frames, but your browser doesn't support them.</p>
  </body>
  </noframes>
</frameset>
</html>
FRAME
print <<"BANNER";
Location: _banner
Content-Type: text/html
<center>Banner</center>
BANNER
print <<"CENTRO";
Location: _centro
Content-Type: text/html

 wrote in message
news:3a0d...@news.swissonline.ch...


Newsgroup: it.comp.lang.perl
Titolo: trasferire un file su host

Buongiorno a tutti.
Vorrei sapere come e' possibile trasferire un file
(generato localmente) su un host remoto, facendo 
uso soltanto di librerie Perl.
Grazie in anticipo,
Paolo
PS:
una eventuale risposta e' gradita anche a:
paolo...@rcm.inet.it

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