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

Ho un problema stupidissimo e non riesco a risolverlo: come comparare
una stringa messa come valore in un hash con un'altra stringa?
Io faccio cosi':
push @array, { prima_stringa => "p1\n", seconda_stringa => "s1\n" };
push @array, { prima_stringa => "p2\n", seconda_stringa => "s2\n" };
$stringa = "p2\n";
foreach $elemento ( @array ) {
	if ( $elemento->{prima_stringa} eq $stringa ) {
		print "uguali!";
	}
}
Peccato che "uguali!" non lo stampi mai...
Il bello e' che se metto un else dopo l'if... non stampa neppure quel
che c'e' in quel blocco! Si blocca completamente tutto!
Da che puo' dipendere? Da una cattiva gestione dell'hash? Dal '\n' in
fondo alle stringhe (che li' e' e li' deve rimanere)?
Grazie per i suggerimenti, e scusate la domanda banale ma devo ancora
prendere l'automatismo con questo linguaggio :-) !
-- 
Roberto -MadBob- Guido
mail bob4mail***@***
gmail.com
web 
http://madbob.homelinux.com
BrainTop Project maintainer - 
http://braintop.sf.net

 
Ehm... Ho appena risolto con un
if ( $elemento->{prima_stringa} =~ m/^$stringa$/ ) {
	print "uguali!\n";
}
ma ugualmente il dubbio resta: come mai con eq non funzionava?


 
Prova a scrivere
print "uguali!\n";  # <-- nota il \n
E forse qualcosa ti stampa ...
Ciao
gmax
-- 
   ____ ____  _____ _   _
  / _  |    \(____ ( \ / )
( (_| | | | / ___ |) X (
  \___ |_|_|_\_____(_/ \_)
(_____|
MySQL Certified Professional
Sapere, saper fare, fare, far sapere
http://gmax.oltrelinux.com

ma ugualmente il dubbio resta: come mai con eq non funzionava?
Non c'era nulla di sbagliato nel codice precedente con eq (di fatto, da me
funziona), a parte qualche considerazione di stile (io le chiavi degli hash
le metteri comunque tra apici, anche se, trattandosi di una sola parola, è
consentito ometterle). Il problema, come suggerisce gmax, è probabilmente
piuttosto nella bufferizzazione dell'output, per cui non esce nulla finché
non c'è un "\n".
Ciao.

 
Nulla da fare, evidentemente il problema e' dovuto a qualche elemento
nel codice precedente...
Pazienza, mi accontento di usare =~ :-)
Grazie :-)


Pazienza, mi accontento di usare =~ :-)
Non è questione di "accontentarsi": intanto, in linea di principio,
non ha senso usare un'espressione regolare dove è sufficiente
verificare un'eguaglianza (e del principio, eventualmente, uno
potrebbe anche fregarsene), ma poi, come giustamente dici, resta il
dubbio: perché con eq non funziona? e chi garantisce che usare il
match su espressione regolare non abbia solo spostato in avanti il
problema, che salterà fuori in un altro punto?
Chiaro che, nell'immediato, quello che conta è che il codice funzioni,
ma io cercherei comunque di andarci a fondo. Se no, più che un lavoro
di programmazione, rischia di diventare un gioco d'azzardo.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Risoluzione Video

Salve a tutto il News,
Avrei bisogno di sapere come trovare la risoluzione video del client in
Perl.
Grazie anticipato per l'aiuto Stefano


Non puoi, questa è una variabile del client, e non del server.
Devi usare uno javascript che manda il risultato allo script perl sotto
forma di parametro
es.:
<script>
v=navigator.appName;
 if (v != "Netscape") {
  c = screen.colorDepth;
 } else {
  c = screen.pixelDepth;
 }
window.location.href = "?res="+c;
</script>
Attento che viene mandato solo il valore della risoluzione X, cioè per
l'800x600 viene mandato solo il valore 800,
per il 1024x768 solo 1024 e cosi' via.
Ciao!

Grazie mille..

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

la programmazione di CGI.

 programmazione di cgi (italiano)?
www.html.it
ci sono dei buoni tutorial sia per il Perl che per l'uso dei CGI in
generale.
dai un'occhiata anche a
www.manuali.net
www.risorse.net
    ciao
        Roby
Newsgroup: it.comp.lang.perl
Titolo: Database in perl?

Volevo fare un programmino che memorizzava i testi delle canzoni,
magari anche con la traduzione. Lo volevo fare in perl, per metterlo
comodamente in rete... però come faccio a memorizzarle? Per
memorizzare le entry del mio guestbook usavo semplicemente un file di
testo, ma in questo caso, dato che i testi li vorrò cercare anche per
autore o per titolo, non mi sembra il caso.
L'ultima idea che mi è venuta è di fare un file di testo per ogni
canzone, in modo che la ricerca per titolo diventi una ricerca per
nome di file.
Ma non so, che dite?
MadMage

nome di file. Ma non so, che dite?
Potresti utilizziare un database server, tipo mySQL (
http://www.tcx.se
).
Naturalmente deve essere installato sul tuo server.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

Newsgroup: it.comp.lang.perl
Titolo: Consiglio da un Esperto

Questi due costrutti sono o no, la stessa cosa ????? A me interessa ottenere
il risultato 1__ con un costrutto tipo 2__
1__     @array =([1,2,3],[4,5],[6,7,8,9,0]);
2__     for ($piv_r = 1 ; $piv_r <= $row_in ; $piv_r++){
              $row_MatrixIn = $MatrixInput->row($piv_r);
              chop $row_MatrixIn;
              @In = split/$scor/,$row_MatrixIn;
              pop @In;
              shift @In;
              $lIn = @In;
              foreach $rf(@In){
                   next if (($rf eq $scor) or ($rf eq $null));
                   $grow .= $rf.$virg;
              }
              chop $grow;
              $row_In = [$grow];
              $grow = '';
              $row_MatrixOut = $MatrixOutput->row($piv_r);
              chop $row_MatrixOut;
              @Out = split/$scor/,$row_MatrixOut;
              pop @Out;
              shift @Out;
              $lOut = @Out;
              foreach $rf(@Out){
                   next if (($rf eq $scor) or ($rf eq $null));
                   $grow .= $rf.$virg;
              }
              chop $grow;
              $row_Out = [$grow];
              $grow = '';
              $row .= $row_In.$virg.$row_Out.$virg;
              push(@raw,$row_In);
              push(@raw,$row_Out);
              push(@row,\$row);
        $row = '';
 }

 il risultato 1__ con un costrutto tipo 2__
UCAS [*]
* Ufficio Complicazioni Affari Semplici
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

 ha scritto nel messaggio
news:b13ih9$v7uqm$1...@ID-159100.news.dfncis.de...


> Esiste un sistema che non sia U' CAZ ?
per fare questo:  @array =([1,2,3],[4,5],[6,7,8,9,0]); ???
Quello che non si capisce immediatamente (e molta gente come me non ha molto
tempo per decifrare cosa fa) è cosa vorresti fare con tutto quel casino
dell'esempio 2. Se magari scrivi in un paio di frasi il problema, (invece
che tentare di scrivere una soluzione senza spiegare il problema) parecchia
gente sarebbe più invogliata a suggerirti qualcosa, invece che ignorare il
tuo posting.
ciao

Newsgroup: it.comp.lang.perl
Titolo: passaggio parametri

ho uno script perl che accetta 2 parametri (perl 
script_perl.pl
 "parametro1"
"parametro2") ... lo script funziona bene ma quando uno dei parametri è un
percorso tipo "/tmp/webserver/prova" perl si incazza e mi dice che non gli
passo correttamente i parametri.
sicuramente la colpa è del carattere "/" .
penso di avere 2 possibilità ... o passare dalla riga di comando il
parametro in modo diverso oppure intervenire direttamente sullo script ...
come posso fare? spero di essere stato chiaro ...
ciao

Beh, ma che errore ti da? Io non ho mai avuto problemi passando il path
completo di un file...
dawe

 completo di un file...
a meno che non contenga per esempio spazi non protetti... 
la cosa e` banale, ma tanto vale... ;)
-- 
Debugging is twice as hard as writing the code in the first place.
Therefore, if you write the code as cleverly as possible, you are,
by definition, not smart enough to debug it.
    - Brian W. Kernighan

Newsgroup: it.comp.lang.perl
Titolo: Aggiornamento DBI

Ho linux mandrake 7 e con questo era presente Mysql ver. 3.20. Questa
versione non supporta l'auto_increment allora ho installato la 3.23 con gli
RPM.
Adesso però quando uso PERL per interfacciarmi al DB mi esce questo
messaggio di errore:
DBI->connect failed: Protocol mismatch. Server Version = 10 Client Version =
9 at ...
cosa devo fare? cosa devo aggiornare?
Grazie
--
          - Aldo Armiento -
Web Master & Web Designer
 
www.armiento.it
 
al...@armiento.it
       Cell. 0338.2965455

cosa devo fare? cosa devo aggiornare?
Probabilmente basta aggiornare i DBD relativi a mySQL. Al limite aggiorna
anche DBI.pm.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!
Newsgroup: it.comp.lang.perl
Titolo: Espressione Regolare

Non riesco a capire cosa significhi questa espressione regolare :
if ($$ask =~ / .*? ([a-z]+?) \"\Q$test\E\".*?/)
In particolare a cosa servono \Q e \E ?
ask č una variabile scalalre passata alla funzione e test č una variabile
scalalre che contiene il valore attuale di un array che sto scorrendo.
Grazie e ciao
Alessio "Gazza" Galli

 wrote:
Grazie della risposta
ciao
Alessio "Gazza" Galli

Newsgroup: it.comp.lang.perl
Titolo: problemi col le stringhe

Ciao qualcuno sa dirmi come faccio a suddividere una string in tante
lettere?Mi spiego meglio io ad esempio ho stringa che si chiama $primo e
voglio che in $primo venga caricata una parola presa da
tastiera.Dopodiche vorrei che se la parola fosse ciao il risultato fosse
c i a o
vi inserisco il mio codice:
print "Inserisci il tuo Nome\n";
$nome = <STDIN>;
chomp $nome;
print "il carattere : m/$nome/\n";
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 print "il carattere : m/$nome/\n";
sono indiscreto se ti chiedo che cosa stavi cercando di fare con questa
riga? :-)
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

 lettere?
 my $string = "ciao";
 my @chars = split '', $string;

Newsgroup: it.comp.lang.perl
Titolo: Questo lo lascio al Garbage Collector???

Supponiamo che io abbia un record cosě definito
HASH: Scalare1
      Scalare2
      Lista hash---->lista--->scalare
                  |
                   ->scalare
Devo vare una deallocazione a manina, usando delete e unset (penso piu'
delete), oppure facendo un unset o delete della lista principale del record il
garbage collector ripulisce la memoria???
-- 
| /
| \Byte - Andrea Briganti - 
kbyt...@freemail.it
http://digilander.iol.it/kbytesystem
ICQ: 40872731

 record il garbage collector ripulisce la memoria???
il gc libera la entry quando non esistono piu' reference alla entry stessa
-- 
/federico

 il gc libera la entry quando non esistono piu' reference alla entry stessa
Quindi in traduzione....
Se ho una lista di record
@listarecord
e faccio:
delete @listarecord;
anche se i record contenevano hash o riferimenti di variabili dinamiche,
eliminando la lista a catena i restanti oggetti si trovano senza alcun
riferimento ad essi e vengono deallocati?

 riferimento ad essi e vengono deallocati?
esattamente, attenzione pero', viene solo liberato lo spazio nello heap, 
non viene rilasciata la memoria al sistema operativo...
-- 
/federico
Newsgroup: it.comp.lang.perl
Titolo: Download File?

Devo scrivere un programmino in perl che
faccia una query SQL, poi la sbatta su stdout.
Domanda (sicuramente OT), come faccio a dire
al browser che quel file se lo deve scaricare
e non lo deve far vedere a video?
Grazie in anticipo per l'attenzione.

 Penso tu debba mandare un header http in modo che browser capisca che
lo deve salvare e non visualizzare.
Alberto


...


Per esempio prova con Content-Type: binary/octet-stream
Io suggerirei:
Content-type: application/octet-stream
Volendo si puo` aggiungere:
Content-disposition: inline; filename="nomefile.ext"
Questo permette di indicare al browser il nome da proporre all'utente
quando viene salvato il file. Funziona solo con Netscape e con le
versioni di Explorer dalla 5 in su.
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

Newsgroup: it.comp.lang.perl
Titolo: AIUTATEMI consiglio su che programma fare..

Sto imparando il Perl per lavorare alla tesi, e vorrei un consiglio da
voi.
Fate conto che siete il mio professore e mi domandiate:
Realizzami questo programma: che fa questo questo e questo.
Ovvimante deve essere un programma che sfrutti le caratteristiche di
perl.
Considerate che lo sto studiando ora, quindi siate clementi, ma nemmeno
troppo.
Vi ringrazio.
fabio

 wrote:
: Sto imparando il Perl per lavorare alla tesi, e vorrei un consiglio da
: voi.
: Fate conto che siete il mio professore e mi domandiate:
Immagino che il tuo professore scarseggi di fantasia :-)
: Realizzami questo programma: che fa questo questo e questo.
: Ovvimante deve essere un programma che sfrutti le caratteristiche di
: perl.
: Considerate che lo sto studiando ora, quindi siate clementi, ma nemmeno
: troppo.
Visto che ultimamente si parla molto di processi distribuiti e di
agents, potresti provare a scrivere un programmino che vaghi sulla
tua rete e che faccia qualcosa di utile, non so, ricerche o
statistiche.
C'e` un modulo Perl, il Penguin che e` stato studiato per fare queste
cose in modo sicuro (non come le fa Java :-) usando firme PGP per
autenticare il codice che viene trasferito da una macchina all'altra
e facendolo eseguire in compartimenti in cui non si possano fare danni
(usando a sua volta il modulo Safe).
La cosa non dovrebbe essere troppo difficile ed e` sicuramente
divertente.
Sono usciti articoli sul Penguin sul The Perl Journal, mentre per
cio` che riguarda agents e processi distribuiti puoi dare un'occhiata
al N. 4 (luglio-agosto 1997) di Internet Computing della IEEE, che
immagino abbiate in Universita`.
Buon divertimento!
-- 
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: reindirizzare lo spool di stampa ad uno script perl

ho uno spool di stampa formato da caratteri di testo, che prima di stampare
vorrei analizzare con uno script perl...
il programma dovrebbe funzionare in windows se è possibile, ho già un
programma chiamato "RedMon" che mi indirizza lo spool di stampa verso
qualsiasi programma che voglio, a me servirebbe catturare lo spool ed
elaborarlo
è possibile?
grazie

è possibile?
Non riesco a capire: RedMon non ti fa già quello che chiedi? non basta che
configuri la porta perché l'output sia elaborato dal tuo script?
Ciao.

 configuri la porta perché l'output sia elaborato dal tuo script?
redmon reindirizza lo spool di stampa verso un programma che voglio io... il
programma l'ho fatto in perl, ma non riesco a catturare nessun dato dello
spool :-(
ho seguito l'esempio di configurazione di redmon ed ho messo la seguente
riga
c:\perl\bin\perl c:\
macro.pl
 %1
%1 è lo spool che passa al file 
macro.pl
, il quale legge l'argomento 1, ma è
sempre vuoto
ciao

sempre vuoto
Non mi sembra: direi che cosě 
macro.pl
 si aspetta di leggere da un file, di
cui RedMon dovrebbe fornirgli il nome. Se la porta di RedMon č impostata su
"Program handles output", non viene passato nessun nome; e negli altri casi
si tratta di un file in cui RedMon si aspetta di *leggere* l'output
prodotto dal tuo programma, non viceversa. I dati di stampa generati dal
driver vengono passati al tuo programma tramite lo standard output.
Prova ad impostare "Use Log File", ed eventualmente il debug; leggendo il
file di log dovresti essere in grado di capire meglio quello che succede.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: Per cominciare cosa mi consogliate ...

Conosco i rudimenti del C++ e vorrei imparare un po' di Perl per gli script
internet, cosa mi consigliate?

 internet, cosa mi consigliate?
Programmare in Perl (Programming Perl).
Comunque Perl non serve solo per gli script internet, qualsiasi cosa essi 
siano.
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: problema nella gestione degli URL

ciao a tutti,
il mio problema è il seguente:
tramite le funzionalità di
HTML::LinkExtor
ho fatto un programma che scarica i link di una data pagina web.
Mi è stato detto che nella libreria URI ci sono funzionalità che possono
togliere dalle URL gli ANCOR (#) e i parametri (?.......).
Se qualcuno ha la minima idea di come ciò si possa fare me lo faccia sapere.
MI salverà la vita
grazie a tutti
ale

 HTML::LinkExtor
Hai provato a dare uno sguardo a: perldoc HTML::LinkExtor ?
oppure, se non ce l'hai, a cercare la documentazione su 
www.cpan.org
 ?
Di solito la documentazione propone esempi utili.
Ciao,
-- 
+------------+ ASCII ribbon campaign ( )
|  KRaLizEc  |  - against HTML email  X 
+------------+              & vCards / \

Mi scuso, avevo letto solo la prima parte del post.
Dopo breve ricerca ho trovato:
URI::Find	Find URIs in arbitrary text.
non so se fa al caso tuo.
Cmq il consiglio rimane valido provare sempre prima su 
www.cpan.org
.
Ciao

Newsgroup: it.comp.lang.perl
Titolo: Ma quale perl? W PHP

un esmpio mitico riguardo la superiorita PHP:
http://208.55.92.240/min/punto.html
Vi ringrazio anticipatamente per la Vs. attenzione,
distinti saluti,
Dr. Nico Straita
--
Posted from 
laguna.tiscalinet.it
 [195.130.224.86]
via Mailgate.ORG Server - 
http://www.mailgate.org

 rm -r  Domenico Cammarano

 
http://208.55.92.240/min/punto.html
PHP3 va benissimo per connettersi a database, per operare su file di
testo perl e' una cannonata. Sono due cose diverse e IMHO e' un po'
sciocco confrontarle (io uso tutti e due).
-- 
Lorenzo Pulici - 
sno...@tiscalinet.it
  - Web Design
http://milanohockey.virtualave.net
 
http://snowdog.cjb.net
http://verdebaggio.freeweb.org
 
http://members.xoom.com/Ramones/
   PGP ID: 1D33 3DE6 635E D192 F648  74D9 28A7 E921 3E1A 44F2

 cerchero' un'altra donna dentro ai sogni di Tarzan...
Newsgroup: it.comp.lang.perl
Titolo: getting the content of a url...

Hi!
i want to do something like:
open(MY_ID,"<
http://myhost/myrep/myfile
");
open(MY_OTHER_ID,">myfile_local");
while(<MY_ID>)
    {print MY_OTHER_ID $_;}
close(MY_OTHER_ID);
close(MY_ID);
how is it possible ???(i haven't learn how to use sockets yet... so if you
can tell me the syntax!)
second thing:
if my perl begin with:
BEGIN {$ENV{'HOST'} = "my own value";}
and if ,after, i open my file, does the remote file have as
$ENV{'REMOTE_HOST'}, the value i entered??
 if not, how can i do that?
It's to manage to fake informations sent to a url, so i can just get the
content of the url, without having my ip or host or servername logged...
i thank everyone who will help me.
sc...@orka.fr
scalp.

  if not, how can i do that?
You can check it by getting 
http://hostname/cgi-bin/printenv
Also you MUST have printenv on server!
-- 
+--------------------------------------------------------------------
|Roman M.Ivanov, Administration of Novosibirsk Region, Russia,
|630011, Novosibirsk, Krasny prospekt, 18, 
http://www.adm.nso.ru/
| tel 
+7-3832-23-66-40
, 23-54-44, fax 
+7-3832-236972
| mailto:
po...@obladm.nso.ru
 or mailto:
roman...@netscape.net
| ICQ UIN 8160057

Newsgroup: it.comp.lang.perl
Titolo: USE net::FTP

Questo č lesempio che hpotrovato ma mi servirebbe sapere qual'č il comando
per copiare i file
$ftp->comando(...
Poi c'č un'altra cosa che non ho capito  quando dice get file cosa intende?
Grazie
Esempio
use Net::FTP;
$ftp = Net::FTP->new("
some.host.name
");
$ftp->login("anonymous","m...@here.there");
$ftp->get("that.file");
$ftp->quit;

Poi c'č un'altra cosa che non ho capito  quando dice get file cosa intende?
Get serve per downloadare "that.file" nella dierctory attuale un file
dal server ftp
Ti conviene dare anche uno sguardo al manuale di net::ftp
Ciao
Andrea Busia
No Spam, Grazie.

 wrote in message
0HhpOZZN2GvajW...@4ax.com...

Newsgroup: it.comp.lang.perl
Titolo: Installazione Tk senza internet?

Ho installato Active Perl su una macchina che non dispone
di collegamento alla rete... adesso però non riesco ad usare
i programmi in Perl/Tk perchè mi dice che...
...can't locate Tk.pm ...
Come/cosa installare questo modulo?
Dal sito CPAN sotto la directory Tk c'è un mucchio di roba
e l'elenco dei moduli Tk è anche molto lungo.
Vorrei qualcosa da lanciare con
ppm install Tk
ma "in locale" !!
Si può?
-- 
Grazie x l'attenzione!

 ma "in locale" !!
_Dovrebbe_ essere così:
- ti scarichi 
http://www.bribes.org/perl/ppm/Tk.ppd
- ti scarichi 
http://www.bribes.org/perl/ppm/Tk-804.028-PPM58.tar.gz
  se hai il 5.8.8, oppure
 
http://www.bribes.org/perl/ppm/Tk-804.028-PPM510.tar.gz
  se hai il 5.10
- scrivi: ppm install Tk.ppd

> _Dovrebbe_ essere così:
...grazie x la dritta... ho scaricato i pacchetti e
domani proverò.

Newsgroup: it.comp.lang.perl
Titolo: Cancellazione riga di un file





Vorrei sapere se esiste un comando Perl per 
cancellare una riga di un file.


Grazie 



 Vorrei sapere se esiste un comando Perl per cancellare una riga di un file.
E' una FAQ.
 perldoc -q middle
Oppure: 
 
http://www.perldoc.com/perl5.6/pod/perlfaq5.html
Max

Leggi il file e lo inserisci in un array.
Poi lo riapri in lettura e ci riscrivi il contenuto dell'array tranne la
riga che devi eliminare:
#inserisco il contenuto del file nell'array
open(FILE,"nomefile.txt");
@file=<FILE>;
close(FILE);
open(FILE,">nomefile.txt");
foreach (FILE)
{
     next if ($_ eq "#la tua riga da eliminare");    #salta all'iterazione
successiva se trova la riga
    print;
}
Questo è uno dei diversi modi che ci sono per farlo.
ciao
-- 
Posted from 
relay4.inwind.it
 [212.141.53.75] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Questo è uno dei diversi modi che ci sono per farlo.
TMTOWTDI e' una bellissima cosa, ma non contempla gli errori ? Quindi questo
NON e' un modo per farlo !!! Un consiglio, quando si e' agli inizi, e'
meglio testare i programmi se si decide di aiutare qualcuno, altrimenti gli
si fa perdere tempo !!
Ecco un esempio migliore:
####################
open(FILE,"nomefile.txt");
@file=<FILE>;
close(FILE);
open(FILE,">nomefile.txt");
foreach (@file){
       print FILE unless(/condizione/);
}
close(FILE);
#####################
La condizione: (/condizione/) puo' essere anche ($_ eq "strina_esatta")
oppure ancora (n==3). Insomma in generale si puo' mettere qualsiasi cosa!
Io ho messo, visto che e' quello che si usa nella maggio parte dei casi, un
pattern (REGEX). Nell'esempio copia tutte le stringhe, tranne quella/e che
contiene la parola "condizione".
Conisglio VIVAMENTE di controllare gli esiti delle open con l'operatore or.
open(FILE,"file") or print "1) errore di apertura";
Alex
P.S. Ad ogni modo l'idea generale c'era. Voglio anche ricordare una cosa che
hai detto: Questo e' solo un algoritmo per farlo, ce ne sono moltissimi !!!
"Mecarelli Giorgio" ha scritto nel messaggio
<006901c07cb3$bff57a60$0501a8c0@dvd>...


ehmm.... scusa...
-- 
Posted from 
smtp3.libero.it
 [193.70.192.53] 

Newsgroup: it.comp.lang.perl
Titolo: C contro Perl

Salve , vorrei avere un piccolo parere !
Io per programmare i CGi uso il Perl e sono molto soddisfatto delle 
sua versatilita' soprattutto nel trattare le stringhe con le regular
expression.
Volevo sapere se anche con il linguaggio C esistono le regular
expression o 
se ci sono delle librerie in grado di manipolare le stringhe come in 
Perl. Questo e' dovuto al fatto che alle volte sono costretto a 
trasporre il sito in un CDROM, che puo' essere consultato da piu' 
persone, ma per questo e' necessario che la persona che consulta 
il sito sul suo computer debba necessariamente possedere anche
l'interprete Perl in locale. Mentre col C e' possibile compilarlo e 
renderlo eseguibile....correggetemi se mi sbaglio 
Stesso discorso e' valido anche per Java.....qualunque suggerimento e'
ben accetto !!!
Grazie

!
Per programmazione CGI il Perl va benissimo, e non vedo nessun beneficio
dall'uso del C (a parte la possibilita`, che comunque esiste anche in
Perl), di compilare il programma e quindi rendere completamente
inaccessibile il codice sorgente.
Per quanto riguarda i CD-Rom, puoi anche creare degli eseguibili Windows
con compilatori quali Perl2Exe (commerciali), cosi` come creare
eseguibili a partire da codice Java. 
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

 inaccessibile il codice sorgente.
Sarei molto interessato a sapere come si fa a rendere gli script perl
dei puri eseguibili,ovvero non rendere disponibili i sorgenti.
Mi daresti una dritta? 
-- 
**************************************
Duke Of Hell - Lord Of Chaos
Computer Science Undergraduate Student
http://www.cs.unibo.it/~tasso
**************************************
Newsgroup: it.comp.lang.perl
Titolo: Re: Perl e Excel

 i record di prodotti non sono nemmeno tanti...

 
http://search.cpan.org/dist/Spreadsheet-ParseExcel/
doppia conversazione in che senso? (
html.it
 e i.c.l.p sono due cose 
lontane l'un dall'altra milioni di anni luce)

Non mi parte il modulo Spreadsheet::ParseExcel
Mi da questo errore: Spreadsheet/ParseExcel.pm did not return a true 
value at ../../excel.cgi line 9
Dove alla line 9 c'è la chiamata: use Spreadsheet::ParseExcel;
per chiarezza posto tutto il codice:
#!/usr/bin/perl
#
use strict;
use warnings;
use diagnostics;
use CGI::Carp "fatalsToBrowser";
use lib 'moduli';
use Spreadsheet::ParseExcel;
my $oExcel = new Spreadsheet::ParseExcel;
my $oBook = $oExcel->Parse('test.xls');
...etc...
nella dir "moduli" ho messo i seguenti moduli che so essere richiesti da 
Spreadsheet::ParseExcel;
OLE::Storage_lite
IO::Scalar (All'interno di IO ci sono anche altri moduli)
Tuttavia il modulo non parte...non posso fare nessun tipo di MakeFile!
(Domanda sciocca: ma use lib fa "vedere" @INC anche all'interno dei 
moduli? ho devo aggiungere use lib anche dentro 
parseexcel.pm
?)
AIUTO!!!!!!!!!

xml per farlo leggere poi da Perl.
Sarebbe interessante anche sapere su che sistema deve girare
l'applicazione. Spreadsheet::ParseExcel fa del suo meglio, ma se hai a
disposizione Excel può essere conveniente utilizzare direttamente
Win32::OLE.
Inoltre non è chiaro che cosa devi fare: se devi solo presentare le tabelle
Excel, tal quali, in una pagina web, potresti semplicemente usare il filtro
Office per html. Vengano come vengono, quello scrive "il capoccia" e quello
si vede.
Se invece devi avere qualche intelligenza dei dati (per consentire ordini
via rete o chessò io), vale innanzitutto il discorso sopra sull'uniformità
dell'inserimento. Eviterei invece di passare per xml, se possibile, perché
complica le cose senza ottenere particolari vantaggi: l'xml ottenuto da una
tabella Excel a priori è altrettanto illeggibile che la tabella stessa. Hai
sì strumenti generici per l'interpretazione di xml, ma devi costruirti la
trasformata specifica di quel xml. Sei cioè, in sostanza, nella stessa
situazione che di fronte ad un documento .xls. Meglio quindi, in prima
istanza, tentare di interpretare direttamente il file .xls, eliminando un
passaggio.
Ciao.

 Ciao.
Notte.

Quindi per me veramente facile da trattare...
Certo che sì, visto che l'hai, immagino, prodotto tu, ma prima hai
dovuto "trattare" il foglio Excel. Il dubbio era qui: perché mettere
un passaggio in mezzo, se comunque non ti facilita l'estrazione dei
dati?
Ciao.

 Ciao.
Notte.

conoscenza di perl.
Ma se tutto quello che ti serve è un formato di trasferimento, ci sono
tonnellate di formati immensamente più comodi di xml. Scrivi un cvs
(una riga per record, nome dei campi in prima riga, campi separati da
tabulazione, nessun delimitatore di stringa: te lo fa Excel da sé
senza nessuno script) e vivi felice.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: [OT] Editor.

Qualcuno sa, conosce, usa qualche editor particolare per digitare in perl?
ciao e grazie
! ! !
°ç° enrico

 Qualcuno sa, conosce, usa qualche editor particolare per digitare in perl?
vim :-)
-- 
Lorenzo Pulici - 
webm...@milanohockey.com
 
http://www.milanohockey.com
 
MILANOHOCKEY.COM
 - Tutto l'hockey su ghiaccio di Milano

 
http://www.poli.studenti.to.it/~s93146/
 ** Lyrics & More


Prova UltraEdit per Windows: permette di convertire i files in Unix, Dos
ecc.
Inoltre cambia automaticamente i colori delle parole chiave.
Qui Doc, passo e chiudo

 la posso scaricare?
http://www.vim.org
Poi esiste anche NTEmacs, che a dispetto del nome funziona anche su Win
9x, ma non ho l'url sottomano (forse partendo da 
http://www.gnu.org
 
lo si trova facilmente)


Newsgroup: it.comp.lang.perl
Titolo: Problemino da principiante...

Ho installato su Windiws NT 4 sp6 Apache 1.3.3 e ActivePerl 5.6 .
Accedo normalmente ad index.html, ma quando richiamo un qualsiasi cgi
ottengo questo messaggio di errore da Apache:
Premature end of script headers:
c:/programmi/apache_group/apache/cgi-bin/elab_01.cgi
Gli stessi cgi eseguiti dalla finestra prompt in ambiente Perl funzionano
correttamente.
Mi sembra che le impostazioni di Apache siano corrette, ma evidentemente un
problema c'č.
Grazie in anticipo.

 wrote in message
a3jh5.46157$wS2.4...@news.infostrada.it...


Newsgroup: it.comp.lang.perl
Titolo: (OT urgente) php mi sballa gli accenti!!!

Non sapevo dove rivolgermi...
se includo una pagina in php:
<? include("xxx.html"); ?>
 mi appaiono cartteri strani o spariscono le lettere accentate (אטלשע)
cosa si puע fare?
Grazie Grazie Grazie
F.

  mi appaiono cartteri strani o spariscono le lettere accentate (אטלשע)
Le accentate devi riportarle come &egrave;, &agrave; etc, in quanto sono
caratteri speciali; oppure devi riportare la codifica nei meta tag.
Quali altri caratteri strani ti appaiono?
Ciao,
Valerio

oppure devi riportare la codifica nei meta tag.
Ecco cosa cercavo!... Sai dirni come si codifica?
GRAZIE!
F.
Newsgroup: it.comp.lang.perl
Titolo: Timer

Come si puo' fare per visualizzare sulla finestra del terminale un
timer? Cioe', in pratica vorrei che apparisse una scritta su una linea
che venga aggiornata di secondo in secondo, sostituendo quella vecchia.
TIA.
-- 
Ciao,
Ghigo
-- Now from Zuppa X --

while (1) {
$secondi++;
print "\r$secondi";
sleep 1;
}
Comprendi?
\r è ritorno di linea e torna sempre indietro cancellando la linea vecchia e
aggiornando il valore ogni secondo.
Ciao


wa, piu` fico del mio
io avevo fatto un system("clear"); per cancellare tutto :)

 wrote:

Grazie mille! :)


 }
Ho provato la script e se lascio "sleep 1" non succede niente. Se lo
tolgo inizia giustamente a scrivere la sequela di numeri. Non ho mica
capito il motivo... :-?


 Ho provato la script e se lascio "sleep 1" non succede niente.
Aggiungi 
     $| = 1
in testa, e leggiti
 
    perldoc perlvar
Max

 }
Due piccole osservazioni per generallizare il caso:
1. con $|=1 funziona sicuramente meglio.
2. se fai un counter al contrario (es: $secondi=100; while (){ 
$secondi--; etc}) si incasina un poco, perche' con in numero di 
caratteri che diminuisce non sovrascrive quelli "in fondo", quindi 
meglio usare sprintf con una formattzione corretta o, ma e' piu' brutto 
print "\r$secondi  ".
-- 
Saluti,
Giancarlo

     perldoc perlvar
Grazie, ora va. Tuttavia non ho capito perche' in questo caso e'
necessario che il testo venga stampato subito dopo il "print".
Vi chiedo un'ultima cosa: come posso fare ad uscire dal ciclo "while"
quando premo "invio" sulla tastiera? Ho provato alcune soluzioni ma non
funzionano.
TIA.


Per uscire metti la condizione, esempio:
last if ($numero == 100);
Ciao

 last if ($numero == 100);
Si, ma il problema e' che l'input deve venire da tastiera, o comunque
dall'esterno.


dall'esterno.
Puoi provare con POSIX::getattr o Term::ReadKey. Forse anche Term::InKey.
Mai provato nessuno dei tre.
Ciao.

 Puoi provare con POSIX::getattr o Term::ReadKey. Forse anche Term::InKey.
Con Term::ReadKey funziona tutto a dovere, grazie mille! :)

Newsgroup: it.comp.lang.perl
Titolo: Arrotondamento, come fare. URGENTE

Come posso arrotondare un numero del tipo 27.76666666 a 27.77 c'è una
funzione?

già risolto in maniera CASALINGA
sub arrotonda_decimali(){
local($numero_arr,$pre_arr);
$numero_arr = "@_";
$pre_arr=$numero_arr;
$numero_arr = ($numero_arr * 100);
$numero_arr = int $numero_arr;
$numero_arr = ($numero_arr / 100);
if ( $pre_arr > ($numero_arr + (0.005))){
 $numero_arr += (0.01);
}
return $numero_arr;
}
ciao, buone feste

 wrote in message
news:a0ccnj$fhc$1...@pegasus.tiscalinet.it...

Scusi, devo chiederLe una cosa: Non e' vero che questo subroutine
non funziona se usa il funzione local per la variabile $numero_arr?
Una tale declarazione con local vuole dire che il valore della variabile
non e' dato fuori dal subroutine, vero?
Communque, su il sito Perl-it.org (va a FAQ), c'e' un'altra risoluzione alla
Sua domanda:
sia con printf sia con sprintf:
printf("%.2f", $numero_arr);
Per essempio:
print "Digiti il numero che vuole arrotondare:";
$numero_arr = <STDIN>;
printf("Il numero arrotondato e': %.2f", $numero_arr);
Buone feste
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 printf("Il numero arrotondato e': %.2f", $numero_arr);
Ti ringrazio, non sapevo neanche che esistesse 
perl-it.org
Buon anno

Newsgroup: it.comp.lang.perl
Titolo: La funzione seek

Come si fa a posizionarsi all'inizio di un file con la funzione seek?
Grazie.

nico...@prof.it
 wrote:
 >Come si fa a posizionarsi all'inizio di un file con la funzione seek?
Scusa, ma la documentazione non l'hai installata? :-)
seek(HANDLE, 0, 0);
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

Newsgroup: it.comp.lang.perl
Titolo: ordinamenti di array

premetto che mi sono letto attentissimissimamente le perlfaq sul sito
perl.com
, but non so come risolvere questo problema.
ho un file che contiene i seguenti dati in ogni record:
|nome|data|prezzo|
Il problema è che devo ordinare i records in base al prezzo.
Come faccio per non perdere i puntatori a nome,data
Confesso che non ho mai gradito il sort e cerco sempre di evitare le
funzioni di sort per idiosincrasia intrinseca !!!
thanks
r.
-- 
-------------------------------------------------------------------------
Hosting professionale a prezzi USA? 
http://www.servitelit.com/prezzi.htm
-------------------------------------------------------------------------

 funzioni di sort per idiosincrasia intrinseca !!!
Allora presenta i risultati disordinati.
M.
-- 
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: Licenza per vendere script

Salve,
     volevo sapere che licenza usate quando "vendete" i vostri script in 
Perl. (spero che vi sia capitato!) Quando io rilascio i miei script 
freeware spesso metto in testa questo prologo:
[prologo]
..:: MacTuccio 1.6.5 (development) 09-10-2005 ::..
Contact: theartofweb[at]hotmail[dot]com
# MacTuccio is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# MacTuccio is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with MacTuccio; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  
USA
#
# You may contact the author of MacTuccio by e-mail at:
# theartofweb[at]hotmail[dot]com
#
# The latest version of MacTuccio can be obtained from:
# 
http://www.theartofweb.net/
#
You use this software at your own risk. The author CANNOT be hold 
responsible for ANYTHING! 
[/prologo]
accompagnando poi lo script con il file gpl.txt che tutti conosciamo.
Ma se dovessi vendere lo script che prologo dovrei scrivere? e che 
licenza usare?
credete he basti modifigare il prologo con qualche NOT ??
... is NOT free software; you can NOT redistribute it ...
qualche suggerimento?
Grazie
-- 
Alla batteria dai retta, ballA!

 Grazie
Non mi e' mai capitato, ma dipende da che rapporti hai con il committente
e anche dal genere di script. Io ti suggerisco una strategia:
Quando fai un prodotto informatico per conto di qualcuno capita che questi
sia fortemente specializzato per le sue esigenze e quindi di scarso valore
come free-software. Quindi puoi organizzare il codice in moduli che
affrontano i problemi piu' generici (es amministrazione di classiche
strutture dati, ricerche ecc..) e rilasciare questi come GPL, e' un
vantaggio anche per te, cosi' puoi riutilizzarli in altre consulense
senza esserti venduto le royalty. La parte piu' specializzata per quanto
possibile la puoi mettere sempre come free software e farti pagare la
consulenza informatica, ma se il committente vuole per se le royalty e
pensa di continuare lo sviluppo, ha delle strategie di mercato sue e non
discutibili, allora il problema non si pone piu'. Sara lui a decidere.
Credo che' l' unica cosa che ti spetti e' esserne riconosciuto l' autore,
nel caso decida il committente di pubblicarlo, ma lo fara' con la licenza
che preferisce.
Ciao
Roberto.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.lang.perl
Titolo: qualche hacvker di cgi.... ???

So che è quasi impossibile e illegale ma vorrei sapere se cè un modo per
riuscire a fregare un cgi da un sito.
Per esempio invece di intepretare il cgi lasciarlo comè e dare la
possibilità di scaricarlo..
Ce un modo??
Grazie

mi sa che hai preso troppo sole al mare.....
-- 
-------------------------------------------------------------------------------
  Hosting professionale a prezzi USA ?
http://www.servitelit.com/prezzi.htm
Registrazione domini a Lire 50.000 ?
http://domini.servitelit.com/prenota.html
-------------------------------------------------------------------------------

 wrote in message
N1Nl5.63756$dF5.1...@news.infostrada.it...


Newsgroup: it.comp.lang.perl
Titolo: ricerca materiale in rete

Salve,
Sono uno studente di informatica e mi piacerebbe molto approfondire la mia
conoscenza dei linguaggi e dei vari paradigmi di programmazione esistenti.
Mi chiedevo se in rete esistano siti dai quali sia possibile scaricare corsi
( gratuiti ), articoli o qualsiasi altro tipo di materiale utile a farsi una
cultura pių "concreta" rispetto alle ( seppur  fondamentali ) conoscenze di
base che appprendo seguendo i vari corsi all'universitā.
Convinto che la  preziosa collaborazione della Grande Rete non si farā
attendere vi saluto e vi ringrazio.
C I A O !!
Michele Aprile

base che appprendo seguendo i vari corsi all'università.
[...]
TUTTO QUELLO CHE VUOI ! :-)
Devi solo scegliere il link dal mio sito.
Ciao e buon lavoro.
---
--
-
MIX (VB5SP3)
170 links a siti VB
http://space.tin.it/computer/gaais/
http://www.tempolibero.com/user/mix/
-
--
---

Newsgroup: it.comp.lang.perl
Titolo: Scrivere in un file ..

Devo scrivere su un file ma questo file non si trova su il mio server.
Come posso fare!?!
Grazie

...


 wrote in message 8jcr8b$666$1...@nslave1.tin.it...


...


Newsgroup: it.comp.lang.perl
Titolo: c'e un modo di usare un periferica

Vorrei sapere se c'e un modulo per usare una periferica qualunque (dallo 
scanner alla stampante, dal modem al joystick)?
Grazie 
-- 
Posted from 
community5.interfree.it
 [213.158.72.35] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

scanner alla stampante, dal modem al joystick)?
Non ce n'è bisogno, il perl tratta già le seriali come fossero
filehandle, basta premettere un *+* quando fai la open.
-- 
       ¥ 
      |†|
     /    \         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
    '-----'
Newsgroup: it.comp.lang.perl
Titolo: come disegnare un grafo?

Vorrei disegnare un grafo usando per ogni nodo un immagine.
Come fare? esiste una libreria?
oppure... quale e' l'algoritmo migliore da utilizzare?
Grazie in anticipo,
Andrea. 


Spiegati meglio: vuoi automatizzare il processo di generazione di grafi 
in forma visuale, oppure vuoi disegnare un singolo grafo, una tantum?
Scusa la banalità della domanda, ma è sempre meglio verificare... ;-)
Per quanto riguarda gli algoritmi di layout di grafi, dipendentemente 
dai cosiddetti "requisiti estetici" del grafo (ad es. planarità o 
minimizzazione degli incroci, magari assieme a vincoli di minimalità 
della lunghezza totale degli archi, oppure minimalità della lunghezza 
dell'arco più lungo etc.) possono rivelarsi di una complessità 
spaventosa (anche dal punto di vista computazionale: alcuni sono 
NP-completi).
Ricordo che (parecchio) tempo fa al Dip. di Informatica e Sistemistica 
della facoltà di Ing. della Sapienza girava un progetto al riguardo che 
si chiamava ALF (Automatic Layout Facility): ci lavorarono sopra, per 
diversi anni, almeno una decina di tesisti e svariati ricercatori e 
docenti, e il progetto era ancora ben lontano dall'essere completato...
Comunque se non hai vincoli estetici particolari, se po fa' (e CPAN 
offre le necessarie librerie, ovviamente ;-)
Ciao,
Emanuele.

Newsgroup: it.comp.lang.perl
Titolo: Net::ftp upload

Salve, stavo utilizzando il modulo ftp per caricare/scaricare file tra 2
server.
Il problema è durante la fase di upload ( e download ) i file devono
comparire sul server di destinazione, con una estensione .tmp finchè il
trasferimento non sarà completato, dopodichè il .tmp dovrà essere
rinominato con la sua estensione originale. Tutto questo utilizzando il
mod Ftp.
Qualche suggerimento?
Grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Qualche suggerimento?
put($file,"$file.tmp");
rename("$file.tmp",$file);
Ma leggere uno straccio di doc sui metodi implementati in un modulo fa 
schifo?
-- 
Saluti,
Giancarlo

:-))))
viviamo in un mondo di allergici, dove i vari .pod, perldoc, CPAN, FAQ e
google_group_search sono considerati nocivi alla salute :-)
--
-.. --- -- .. --.. .. ---
-.. . -- .. -.-. .... . .-.. .. ...

Newsgroup: it.comp.lang.perl
Titolo: Uso di una variabile in un patter di ricerca

if (/$mask/) {}
Facendo:
	$mask = "([\w]*.jpg)\(";
la stringa che ottieni e` in realta`:
	([w]*.jpg)(
in quanto i backslash vengono interpretati. Per ottenere la stringa che
desideri devi fare:
	$mask = "([\\w]*.jpg)\\(";
oppure:
	$mask = '([\w]*.jpg)\(';
A dire il vero e` strano che la seconda sintassi che hai usato ti funzioni.
	Miky.
-- 
Michele Beltrame
Italpro - Power Web Services
mi...@io.com
http://www.italpro.com/mb

A dire il vero e` strano che la seconda sintassi che hai usato ti funzioni.
In effetti non avevo usato [\w] ma qualcosa del tipo [x|yz]. L'idea in
effettio era di fare un 
rename.pl
 che chiede 2 variabili
($cambia_questo e $in_questo) da tastiera o come parametri dalla linea
di comando. 
Grazie mille del suggerimento, ovvio quando te lo fanno notare!
Germano
Newsgroup: it.comp.lang.perl
Titolo: array => hash

Credo sia una domanda banale per questo ng....
ho un array che contiene questi valori:
@myarray = ('Nome Mario','Cognome Rossi')
vorrei creare un array come segue
@splitted = ('Nome','Mario','Cognome',' Rossi')
quale č il modo piů breve per farlo?
maxo



mi sa che ti sei spiegato male...
se vuoi un hash devi fare cosě
%hash = ('key1', 'value1', ..., 'keyn', 'valuen');
e accedere al valore con $hash('keyi');

 e accedere al valore con $hash('keyi');
In effetti quello che voglio ottenere alla fine č un hash.
Il problema č che prima devo dividere i dati contenuti in @myarray:
infatti
@myarray[0] = "Nome Mario"
@myarray[1] = "Cognome Rossi"
cioč @myarray = ('Nome Mario','Cognome Rossi')
ho provato con:
%splitted = split (/ /,@myarray)
ma non funziona...
come posso fare per ottenere
%splitted = ('Nome','Mario','Cognome',' Rossi')
partendo da @myarray
ciao
maxo

 %splitted = split (/ /,@myarray)
Sei sulla strada giusta. Se leggi il manuale di split (perldoc -f split)
trovi tra le altre cose:
  split /PATTERN/,EXPR
  Splits a string into a list of strings [...]
Il secondo parametro deve essere essere una espressione il cui valore 
corrisponda alla stringa che vuoi dividere in sottostringhe. Quindi devi
scrivere un po' di codice in piu` per spiegare che vuoi iterare su tutti
gli elementi di @myarray. Una cosa del genere:
 
  foreach ( @myarray ) {
      my ($chiave, $valore) = split / /, $_;
      $h{ $chiave } = $valore;
  }
Ma visto che chiedevi il metodo piu` breve, ecco qualcosa di piu` stringato
(non e` detto che sia IL piu` breve):
  %h = map { split } @myarray;
(funziona se @myarray contiene stringhe nelle quali e` presente uno e un solo
spazio).
ciao
Stefano

   }
Perfetto, ti chiedo qualche chiarimento...
con il codice che ho riportato sopra, ho definito l'hash %h?
max

 con il codice che ho riportato sopra, ho definito l'hash %h?
La risposta breve e` "Si`".
La risposta un po' meno breve e`:
 
  Si`, ma non hai *dichiarato* di voler usare la variabile %h.
  Per farlo, e` sufficiente aggiungere 
    my %h;
  appena prima dell'inizio del ciclo.
Non son sicuro che questo sia quello che volevi sapere, pero`.
ciao
Stefano

Newsgroup: it.comp.lang.perl
Titolo: moduli per la grafica

Ciao ragazzi
Vorrei capire come poter gestire la grafica con Perl... Qualcuno mi sa dare 
una dritta ?



Il modulo GD dovrebbe fare al caso tuo:
http://search.cpan.org/dist/GD/
  Raffaello

 ha scritto nel messaggio 
news:Pine.OSF.4.63.05...@harry.molgen.mpg.de...

Newsgroup: it.comp.lang.perl
Titolo: La Teaching OnLine organizza Corsi on line di programmazione Delphi, Access, SQL,Visual Basic, ASP

La Teaching OnLine organizza Corsi on line di programmazione Delphi, Access,
SQL,Visual Basic, ASP
Impara a Programmare in VBA per Microsoft Access con i corsi on line
di programmazione Access. Impara secondo i tuoi tempi ed i tuoi ritmi.
Inoltre, corsi di ASP, Visual Basic ed SQL.
Inizio nuovi corsi il 22 Novembre.
Per informazioni, contattare
Teaching On Line
in...@teachingonline.it
http://www.teachingonline.it/Access/Lezione.asp

non so se il tuo post č spam, visto che sono nuovo di queste parti, comunque
questo ng tratta perl!

Newsgroup: it.comp.lang.perl
Titolo: manuale perl on-line

anche in inglese (ma meglio in italiano).
Dove lo posso trovare?
grazie


quindi per te FAQ equivale a manuale?!?!?!
read my lips...M-A-N-U-A-L-E
venticiello

 Dove lo posso trovare?
(FAQ!)
www.perl-it.org
www.cgipoint.it
www.perl.com
 (in inglese)
Ciao
M.
-- 
:wq

 read my lips...M-A-N-U-A-L-E
Intendevo che quella che hai postato è una FAQ, e che trovi tutti i
manuali che vuoi negli indirizzi che ti ho suggerito.
Read _my_ lips, now: S-V-E-G-L-I-A-A-A
Ciao
M.
-- 
:wq

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

Newsgroup: it.comp.lang.perl
Titolo: LWP::Simple...

per usarlo su un server il programma perl deve avere qualcosa di specifico??
perchè quando provo lo script in locale con Apache funzia tutto mentre
appena lo carico sul server di virtualave.net...non funzia più.


Perchè virtualave l'ha tolto o l'ha nascosto agli utenti esterni.
Per varie ragioni non funzia nemmeno se carichi il modulo nella tua
cgi-bin personale.
Ho cercato su Deja-News, e finora nessuno ha trovato il modo di
bypassare la limitazione
Sorry

 appena lo carico sul server di virtualave.net...non funzia piů.
Abbiamo avuto lo stesso problema.
Sul PC con ActivePerl funzionava, su Unix con sistema Irix funzionava, su Linux
No!
Abbiamo controllato e verificato che su alcuni sistemi mancano completamente le
librerie richiamate con questi comandi.
Ciao,
Daniele
--
==========================
Controllate la vostra posizione
su 7 motori di ricerca
contemporaneamente in pochi secondi
WebPosition!!!
http://www.ikaro.net/webpro/
==========================
Inserisci il tuo sito in
"Risorse per webmasters!!!"
http://www.ikaro.net/links2/pages/
==========================

Newsgroup: it.comp.lang.perl
Titolo: funzione pack

salve,
     volevo sapere se esistesse una funzione per serializzare un hash in 
una strainga binaria ad esempio:
my $pack = pack([
   [ key1 = value1],
   [ key2 = value2],
   [ key3 = value3],
   [ key4 = value4],
   [ key5 = value5]
]);
grazie

 una strainga binaria ad esempio:
perldoc Storable.
Max

Newsgroup: it.comp.lang.perl
Titolo: HELP - Ho bisogno di un gestoremoduli.pl. - HELP

Se non chiedo troppo.
Grazie



 Grazie
Puoi specificare meglio?