mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: comando ls unix o dir dos

Qualcuno sa dirmi come avere l'elenco dei file contenuti in una directory in
un'array el perl ?
ovvero come si fa il dir ( o ls in unix ) dal perl.
Grazie a tutti
Claudio

 
# W: Unix pathnames...
opendir(DIR,"/my/dir") or die("Opendir: $!");
while ($file=readdir(DIR)) {
 
	next if $file eq ".";   # Salta il direttorio corrente
	next if $file eq "..";  # ... e il suo babbo
	$file="/my/dir/$file";  # costruisco il path completo
	do_somthing_with($file);
}
Cheers,	
	Alessandro
 
---
Alessandro Forghieri		Site administrator Nouvelle srl
Email: 
a...@orion.it
		Voice: 	+39 59 345767
Via Giardini 460		Fax:	+39 59 343822

Newsgroup: it.comp.lang.perl
Titolo: Estrapolazione di una sottostringa

gb|AL132432.1| cDNA mouse 5' similar .....
solo quello che e compreso tra le righe verticali.
Ho provato con questo comando
.....
$identif = $_;
$identif = ~m/'|' \w '|'/;
print OUT $identif;
.....
ma scrive sul file l'intera riga.
Non so come fare. Mi dareste dei suggerimenti ? Grazie
Antonello Romani
Dipartimento di Medicina Sperimentale
Universita' degli Studi di Parma

print OUT $identif;
$identif =~ /\|([\w\.]+?)\|/;
print OUT $1;
Ti consiglio di leggerti qualche documento sulle regula expression
per capirne meglio il funzionamento, cosi` puoi fare eventuali
modifiche e sarai sicuramente agevolato se devi scirvere altre
espressioni simili.
	A presto, 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!

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

Newsgroup: it.comp.lang.perl
Titolo: upload di fila

Salve,
riporto qui sotto il codice di un piccolo script che "dovrebbe" fare
l'upload di un file (gif o jpg).
Ovviamente non funziona, dandomi l'errore "C:\documenti\fileimg.gif No such
file or directory".
Il file lo seleziono con un campo di file tipo
<input type="file" name="upload_file" enctype="multipart/form/data">
ed anche il form lo apro con il tag enctype="multipart/form/data"
#!/usr/bin/perl
print "Content-type: text/html\n\n";
use CGI param;
use Net::FTP;
$file=param("upload_file");
$ftp = Net::FTP->new("
ftp.server.it
");
$ftp->login("user","password");
$ftp->put("$file");
$ftp->quit;
Grazie a chi potrą aiutarmi.
-- 
Posted from 
relay4.inwind.it
 [212.141.53.75] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie a chi potrà aiutarmi.

Newsgroup: it.comp.lang.perl
Titolo: AIUTOOOOOOO!!!!!

Ho appena scaricato un server http fantastico pesa solo 32Kbyte e funsiona
alla grande, l'unico problema che ho e che per fare giarare il Perl ho
bisogno dell'interprete e non so proprio dove diavolo si scarica. Per favore
non mi indicate pagine indicative 
www.perl.com
 o altre perchè non so quale
tra i milioni di file che si possono scaricare io devo scaricare perciò
perfavore indicatemi un link già tutto pronto per scaricare questo diavolo
di interprete. P.S. il mio S.O. è Windows98 il server scaricato sethttp.
Grazie anticipatamente

Grazie anticipatamente
Non so se è corretta l'informazione che ti do ( ciò se ti è utile ) ma
se cerci perl per win98 cerca su 
www.activestate.com
.

Newsgroup: it.comp.lang.perl
Titolo: (",) Do You Want To Know For Sure You Are Going To Heaven?

http://www.want-to-be-sure.blogspot.com
 << Click On Link

http://www.want-to-be-sure.blogspot.com
 << Click On Link

http://www.want-to-be-sure.blogspot.com
 << Click On Link

http://www.want-to-be-sure.blogspot.com
 << Click On Link

Newsgroup: it.comp.lang.perl
Titolo: Cerco manuale perl

 .:|Powered by Linux 2.0.32|:.|
  | § To get my PGP KEY mail me a message with subject: get pgp key |
  | § Finger @
artemide.dyn.ml.org
 to see if I am online.            |
  -------------------------------------------------------------------
That was ZEN -- this is TAO
 -- tagline 1.00 by xopy

GO0 (
g...@ouverture.it
) wrote:
: Cerco manuale perl "base".. Niente tipo "Usare perl per applicazioni CGI".
: Qualcosa che mi insegni le regole basilari insomma.
: Se avete qcosa del genere e non vi serve + fate un fischio a 
g...@ouverture.it
prova a vedere qui:
http://www.isinet.it/~marco/perl/
Pierre
--
                         ^
                       ^^^^^ 
                       (o o)
___________________oOO__(_)__OOo________________________________________
 
  Nasini Daniele                WebMaster al DSI Via Comelico 39 Milano
  Milano (Italy)                E-Mail: 
w...@dsi.unimi.it
  [Suzuki DR650 Djebel]                 
pie...@psycho.usr.dsi.unimi.it
 
           -=> 
http://psycho.usr.dsi.unimi.it/~pierre
 <=-
Newsgroup: it.comp.lang.perl
Titolo: Copia STDIN...

   (NeXTmail, MIME)

mi...@next.digicolor.lognet.it
 wrote:
 >Ho uno script perl che processa i msg di sendmail... un robot...
 >Dovrei copiare l'STDIN, cioe' il msg
my @message=<STDIN>;
 >e archiviarlo in un file... come posso fare ?
open(FILE, $file) or die "Can't open $file: $!";
print FILE @message;
close FILE;
 >Ovviamente il msg deve rimanere in STDIN per poterlo processare...
print @message;
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *




 in quanto lo standard input è un file come gli altri.
Il problema, credo, e' che cosi' lo STDIN viene consumato.
La soluzione, forse, e' usare qualcosa tipo 'tee' per duplicare lo STDIN 
verso due programmi diversi, oppure far duplicare sullo STDOUT tutto quello
che c'e' su STDIN, in maniera tale che il secondo processo se lo ritrovi in
ingresso (se riceveva l'ingresso da una pipe).
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@tuttocitta.it
 
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 @DATI = <STDIN>;
Ma se faccio cosi' l'STDIN si svuota, no ?


Ma se faccio cosi' l'STDIN si svuota, no ?
Si, però puoi ristamparlo con print se il programma successivo legge l'input
da una pipe. Altrimenti, come consiglia Maurizio, puoi utilizzare tee per
duplicare lo STDIN e passarlo ai due processi.
Per salvarlo in un file basta aprire il file, stamparci la variabile e
chiuderlo.
Se mi dici con precisione cosa vuoi fare forse posso aiutarti meglio.
Ciao,
Valerio

Newsgroup: it.comp.lang.perl
Titolo: come si usa .htaccess

Salve a tutti,
scusate ma sono nuovo all'argomento.
Vorrei sapere dove trovare info su come settare il controllo d'accesso alle
pagine; ho sentito di questo file .htaccess, ma non so altro....
Grazie gente.
Bye, Dav

pagine; ho sentito di questo file .htaccess, ma non so altro....
Ci sono parecchie direttive disponibili. Prova a dare un'occhiata alla
documentazione di Apache (se usi quello) su:
http://www.apache.org
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/
Newsgroup: it.comp.lang.perl
Titolo: APACHE

Ho installato il server di Apache su Win98. Ho configurato il file
httpd.conf come scritto sulla guida di html cambiando le seguenti cose:
DocumentRoot "d:/web"
UserDir "D:/web/users/"
ScriptAlias /cgi-bin/ "D:/web/cgi-bin/"
Nell'eseguire lo script app.cgi ottengo il seguente errore:
d:/web/cgi-bin/app.cgi is not executable; ensure interpreted scripts have
"#!" first line
Poi ho provato ad entrare nella directory cgi-bin ma mi ha dato il seguente
errore:
You don't have permission to access /cgi-bin/ on this server
Come mai ho questi errori?
Come posso far eseguire i miei cgi?
Grazie a chi mi risponde

 wrote in message
8dkob5$rvt$1...@pegasus.tiscalinet.it...

Ciao a tutti!
Hai installato l'interprete perl sulla tua macchina? Senza quello Apache non
può interpretare gli script! Probabilmente il problema consiste proprio in
quello ....
ti rimando a un file italiano che spiega brevemente i procedimenti per
configurare Apache e ActivePerl (il suddetto interprete) su Win9x:
http://myweb.3q.to/docs/cgi_win9x.html
ciao, spero che ti possa risolvere il problema ....
blavoro, Ezio BOnsi

Newsgroup: it.comp.lang.perl
Titolo: [non OT] output su nuova finestra

Un saluto a tutti,
da una pagina HTML clickando su un pulsante SUBMIT
invio in GET alcuni dati allo script cgi che ho creato.
Dirigere i risultati di un cgi verso una pagina HTML mediante print "...".
Il problema č che non voglio che sia una pagina "normale",
ma il browser deve creare una finestra piů piccola,
lasciando inalterata la pagina di partenza.
Ringrazio da ora coloro che mi daranno una mano!
Tobas -il Locandiere-
www.locandadatobas.it

 lasciando inalterata la pagina di partenza.
Questo e' e rimane un problema di HTML. Non ha niente a che fare con Perl.
Niente! Nada! Zero!
AL limite lo si potrebbe pensare, sbagliando, come un problema CGI. Ma anche
quello e' OT qui, dal momento che c'e' un gruppo apposito. 
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: chiamata shell da perl

Qualcuno puo' spiegarmi come e' possibile eseguire un comando della shell da
perl ?
Se poi c'e' una soluzione perl migliore per il mio problema accetto
consigli.
Quello che devo fare e' creare un file e settargli i permessi per uno
specifico user.
grazie

 uno specifico user.
  Naturalmente, il tuo script deve essere eseguito da un utente avente i
necessari privilegi.
	Alla prossima,
		Marco

 cerchero' un'altra donna dentro ai sogni di Tarzan...
Newsgroup: it.comp.lang.perl
Titolo: Aiuto su replace e quoting

Caso:
$var = ":)";
$mess =~ s/$var/<img src=smile.gif>/g;
Dà errore.
Ora, potrei tranquillamente scrivere:
$mess =~ s/\:\)/<img src=smile.gif>/g;
e funziona, ma siccome devo usare un hash e un ciclo:
%smiles = (":)" => "smile.gif", ":(" => "sad.gif"..........);
foreach $smile (keys $smiles) {
       $mess =~ s/$smile/<img src=$smiles{$smile}>/g;
}
come faccio a quotare (o come altro si dice) tutto ciò che capita in $smile
nel ciclo for?
In effetti l'errore è che gli smiles contengono caratteri come le parentesi
oppure il pipe,
usati nelle regexp per altri motivi, quindi vanno quotati.
Guido.

 altri motivi, quindi vanno quotati.
 perldoc -f quotemeta
 perldoc perlre  (cercare "\Q')
Max


Giusto.. mi ricordavo che c'era qualcosa ma sono uscito pazzo a cercare fra
i doc!
Grazie maX.

Newsgroup: it.comp.lang.perl
Titolo: PERl & HTML

E' possibile in un file perl richiamare una certa pagina html?
se si come?
grazie.

 E' possibile in un file perl richiamare una certa pagina html?
Se intendi una URL (che si riferisca ad HTML, o ad altro),
il modo piu` semplice e` offerto dal modulo standard
LWP::Simple...:
    use LWP::Simple qw(get);
    my $lapagina = get("
http://www.pippo.com/index.html
");
lascera` in $lapagina, o una stringa contenente l'intera
pagina HTML, oppure undefined in caso di errori.  (Naturalmente,
ci sono approcci molto piu` sofisticati che ti permettono di
fare le cose in dettaglio molto maggiore; non e` per caso
che "LWP::Simple" si chiama, appunto, "Simple"!-).
Se intendi, invece, _analizzare_ un documento HTML (piuttosto
che non "richiamarlo"), esamina i moduli standard chiamati
HTML::qualcosa.  Ad esempio, HTML::HeadParser ti permette
di parsare gli header contenuti nella <HEAD> del documento,
per cui, continuando l'esempio precedente...:
    die "Niente pagina...?\n" unless $lapagina;
    use HTML::HeadParser ();
    my $parser = new HTML::HeadParser;
    $parser->parse($lapagina);
    print "Il titolo e` (", $parser->header('Title'), ")\n"
Alex
Newsgroup: it.comp.lang.perl
Titolo: socket

Qualcuno sa dirmi, data una connessione, come si fa a ricavarsi l' indirizzo
ip del client (ovviamente dalla parte server) ?
Ciao e grazie
Glauco

 ip del client (ovviamente dalla parte server) ?
 
Nel senso che vuoi sapere l'ip di chi ha richiesto il tuo cgi? Se e' questo
quello che intendi, e' uno dei dei CGI environments (%ENV) e in particolare e'
il REMOTE_ADDR.
Lo puoi (mi sembra) recuperare con 
	$ENV{'REMOTE_ADDR'};
Ciao
Marcello

 ip del client (ovviamente dalla parte server) ?
Che vuol dire "data una connessione"?  Spero tu non sta parlando di
qualche script CGI, perchè nel qual caso il termine "connessione" sarebbe 
abbastanza fuori luogo e la domanda sarebbe una FAQ.
Se stai parlando di "socket" (come per altro il subject suggerirebbe),
la risposta dipende dal tipo di interfaccia stai usando.
Se usi le funzioni che il Perl ha ereditato direttamente dalle classiche
API C BSD e che sono documentate (ed esemplificate) in perlfunc e perlipc,
l'indirizzo del peer ti viene restituito proprio dalla funzione accept().
Se invece usi IO::Socket::INET (cosa che ritengo in generale preferibile),
l'indirizzo lo ottieni tramite i metodi peeraddr() o peerhost() applicati
all'oggetto restituito dal metodo accept() dell'oggetto IO::Socket::INET
con cui hai fatto il bind.
Per ulteriori informazioni:
 perldoc perlipc
 perldoc IO::Socket
Se invece stavi parlando di CGI, l'indirizzo del client lo trovi nella
variabila d'ambiente REMOTE_ADDR.
 
 Per ulteriori informazioni:
 
http://hoohoo.ncsa.uiuc.edu/cgi/env.html
MM

 Glauco
Newsgroup: it.comp.lang.perl
Titolo: Curiosità (Forse OT?)

Perché il simbolo di Perl è un cammello ??

> Perché il simbolo di Perl è un cammello ??
Non è un "simbolo"... è solo che la casa editrice O'Reilly ha l'abitudine di
utilizzare un animale nelle sue copertine, e per "Programming Perl" è stato
usato un cammello. "Learning Perl" se ben ricordo dovrebbe avere un lama...
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

 usato un cammello. "Learning Perl" se ben ricordo dovrebbe avere un
lama...
il mio Cookbook ha una capra megacornuta (bighorn sheep) e il modesto Cgi
programming w/Perl un topetto - dal Colophon di quest'ultimo:
`[...] distinctive covers complement our distinctive approach to technical
topics,breathing personality and life into potentially dry subjects`
bye
Charlie

 Non è un "simbolo"...
E sopratutto non e' un cammello, ma un dromedario
-- 
Saluti,
Giancarlo

 E sopratutto non e' un cammello, ma un dromedario
Mammamia!!!
La prossima volta se dimentico un punto e virgola nel post mi restituite un
sintax error ??
:-)

 ha scritto nel messaggio
news:b7keuf$m41$1...@lacerta.tiscalinet.it...

      /\
       |
       |
ehem...... volevo dire "syntax"
Newsgroup: it.comp.lang.perl
Titolo: Dubbio su installazione modulo sotto win 2000

Su una macchina win 2000 su cui è già installato ActivePerl, devo
installare il modulo DBD-ODBC. Tale modulo è già installato su altre
macchine cui ho accesso via PPM e con cui ho connessione a Internet.
La macchina target per la nuova installazione non è connessa a
Internet e quindi non posso usare PPM; d' altronde l' installazione
sulle altre macchine, a quanto capisco, non ha prodotto, un file
intermedio che posso copiare sulla macchina target per generare una
ulteriore installazione in assenza di conenssione
Come vedete, c' è qualcosa che mi sfugge sui meccanismi di
installazione dei moduli sotto Windows... 
Avete un suggerimento da darmi?
Grazie 1_000

 Internet e quindi non posso usare PPM;
Certo che puoi! :)
Se hai almeno la build 623:
1) vai su 
http://www.activestate.com/PPMPackages/zips/6xx-builds-only/
2) ti scarichi lo zip in questione (DBD-ODBC.zip)
3) lo sposti sulla macchina senza connessione ad internet
4) lo scomprimi in una directory
5) entri nella directory così creata
6) da prompt di dos scrivi:
ppm install --location=. dbd-odbc
e dovrebbe installarti il modulo.
-- 
$_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572,,($_,$b)=
split?#?;@b=split?;?;map{$c.=$_,$d.=chr$b[$e++]+ord}split??,pack'H24',$b
;chop$d,print$c.chr(32).$d

Se hai almeno la build 623:
Il tuo post è stato una cura istantanea contro il mal di testa
Sei in credito di un bottiglia di Cardhu o altro genere di conforto a
tua scelta :-))
Un sincero grazie
Daniele

>ppm install --location=. dbd-odbc
Come follow up: a me ha funzionato con (esempio):
ppm install <nome modulo>  --location=. 
Ho un dubbio. Convinto di essere diventato scemo, mi sono riguardato
la documentazione di PPM e trovo traccia della direttiva location solo
sul modulo PPM, non sullo script PPM.  C' è da dire che con la nuova
versione della documentazione non si riesce + a fare una ricerca
decente, ma vorrei sapere: sono io che non ho visto documentata questa
direttiva oppure nella documentazione della utility PPM di questa non
c' è traccia?
In particolare la documentazione della direttiva install dice:
install
  Installs default package
 
install <number>
  Installs packages by a specific number
 
install <range>
  Installs packages in the given numeric range <range>.
 
install <name>
  Installs named package
 
ma di location nessuna traccia
Ciao

Scusate se dico la mia.
io di solito per installare i pakage faccio così:
1. scarico il pakage
2. lo scompatto nella directory "lib" di perl
3.in
 dos vado nella directory lib es-> cd \perl\lib
4.lancio da li il ppm con "c:\perl\bin\ppm.bat"
5. da riga di comando ppm digito install pakage.ppd
così funziona sicuramente ed in qualsiasi sistema windows
Newsgroup: it.comp.lang.perl
Titolo: problemi di date

Salve a tutti, ho un grosso problema.
Stò preparando un programmino che mi gestisca i movimenti del mio conto
corrente. In pratica ho un database mysql con i campi:
Data, Descrizione Entrate ed uscite
adesso vorrei poter fare una ricerca fra date ovvero fare visualizzare solo
le righe (movimenti) nell'intevallo di date esempio,
12/12/2004 bonifico 0 1000
14/12/2004 paghe 100 0
la prima riga del database mostra un bonifico in entrata di 1000 euro il
giorno 12
la seconda riga mostra un uscita di 100 euro
Come posso dire di mostrarmi solo i movimenti dal 10/12 al 13/12 escludendo
dalla visualizzazione quindi la seconda riga data 14 ?
Stò uscendo davvero pazzo e non sò come risolvere il problema, perchè non
posso fare maggiore di e minore di perchè alcune date esempio il 07/12/2004
è cronologicamente precedente al 20/01/2005 ma il numero è minore.
Saperte come fare ?
Grazie.
Come posso visualizzare

 [...]
Non si tratta propriamente di una domanda che riguarda il Perl...
Puoi fare il tutto dentro a MySQL. Gli operatori di confronto, 
infatti, sono "intelligenti", e gestiscono correttamente anche
il confronto tra campi di tipo data. Ad esempio:
mysql> create table diario ( quando date );
Query OK, 0 rows affected (0.36 sec)
mysql> insert into diario values                  
    -> ('2004-04-20'),
    -> ('2004-03-09'),
    -> ('2004-01-31'),
    -> ('2005-01-31'),
    -> ('2004-02-29'),
    -> ('2004-12-25');
Query OK, 6 rows affected (0.00 sec)
Records: 6  Duplicates: 0  Warnings: 0
mysql> select * from diario where quando > now();
+------------+
| quando     |
+------------+
| 2004-04-20 |
| 2005-01-31 |
| 2004-12-25 |
+------------+
3 rows in set (0.00 sec)
Se invece, per qualche ragione, vuoi fare il confronto in Perl (ma 
sarei curioso di saperne la ragione), allora la prima cosa che mi 
viene in mente [1] e` usare Date::Calc, per la precisione la funzione
Delta_Days():
 
http://search.cpan.org/~stbey/Date-Calc-5.3/Calc.pod
ciao,
S.
[1] Non e` detto che sia il modo migliore. Anzi, essendo il primo 
    che mi viene in mente ci sono concrete possibilita` che sia il
    peggiore :)

mi sfugge esattamente l'esempio in quanto non conosco bene mysql, la domanda
è questa:
mysql> select * from diario where quando > now();
+------------+
| quando     |
+------------+
| 2004-04-20 |
| 2005-01-31 |
| 2004-12-25 |
+------------+
la funzione now() cosa sarebbe ?
e questo :
+------------+
| quando     |
+------------+
cosa è ?
Cioè io posso dire a mysql di darmi già i risultati del confronto
dell'intervallo delle date senza farci lavorare perl ?
se si come?

 se si come?
Era l'esempio del mio post precedente. Ti consiglio di studiarlo
bene e di fare qualche esperimento, magari cercando quello che non
capisci sul manuale di MySQL.
 
http://www.mysql.com/doc/en/index.html
ciao :)
S.

Mmmm, credo di avere capito.
paraticamente invertendo l'ordine della data in AAAA-MM-GG risolvo il
problema ?
Newsgroup: it.comp.lang.perl
Titolo: Recensione o libro...

Salve a tutti,
Volevo sapere se ci sono delle pubblicazioni che trattano perl in
italiano.
Sono principiante per cui preferirei che fossero di semplice
consultazione.
C'è qualcuno che mi può dare qualche indicazione utile?
Grazie
Alberto C.
saluti dalla Liguria
Alberto Calabrò 
Moneglia (Ge)
--------------------------------------
***Togliere NOSPAM per rispondermi***
           *personalmente*
--------------------------------------

Alessandro Bellini - Andrea Guidi
"Perl e Internet"
McGraw-Hill
(L. 39.000)
Ciao, Giuseppe
--
Alberto Calabrò ha scritto:


Newsgroup: it.comp.lang.perl
Titolo: Creare un database mysql nuovo con Perl

Uso DBI->connect con successo da tempo. Ora però ho bisogno di
collegarmi solo al server mysql non ad un database in particolare,
perchè devo creare un nuovo database e le sue tabelle. Naturalmente il
tutto strettamente in Perl.
Non riesco a trovare nessuna documentazione che mi dia un'idea.
Naturalmente opero i miei esperimenti, ma se trovo una strada più
rapida è meglio.
Grazie in anticipo a chi voglia rispondere

 rapida č meglio.
Puoi tentare subito di collegarti al database "mysql" (che č per forza 
presente in qualsiasi server MySQL) e poi da lě lanciare i comandi "CREATE 
DATABASE ...".
Poi una volta creato ti colleghi al database per la creazione delle tabelle.

 tutto strettamente in Perl.
Ciao Oreste! :)
Oltre all'ottimo suggerimento di Icestorm, potresti provare ad usare le 
funzioni proprie di MySQL (ok, il codice poi non sarà portabile).
Ad esempio per avere la lista dei db:
my $drh=DBI->install_driver('mysql');
my @databases= $drh->func($host,'_ListDBs');
magari ti può essere utile.

Grazie a tutti voi. Non avevo pensato al database "mysql" in effetti
lo avrò visto decine di volte senza dargli alcuna importanza.
Procederò nel modo seguente:
- mi collego al database "mysql"
- creo un nuovo database
- scollego mysql (non si sa mai)
- collego il nuovo database
- creo le varie tabelle
Buone ferie a chi le può fare
Oreste


Prova anche a non specificare nessun database in fase di connessione -
se  non ricordo male dovrebbe collegarsi comunque, un po' come se
chiamassi il comando mysql da linea di comando senza specificare alcun
database. A quel punto crei il database e vai avanti.

Newsgroup: it.comp.lang.perl
Titolo: Interrogare il server

Ho inserito il seguente script nella directory CGI-BIN:
#!/usr/bin/perl
............;
print "$ENV{'HTTP_ACCEPT'}\n";
............;
Richiamandolo, dovrei avere il risultato dei tipi di MIME accettati.
Ho ottenuto questo risultato :
*/*
COSA VUOL DIRE?

COSA VUOL DIRE?
L'asterisco e` una wildcard: significa che sono accettati tutti i tipi.
	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: logaritmo in base "b" arbitraria

Ciao
in quale libreria/modulo perl posso trovare
una funzione che mi restituisce il logaritmo
in base "b" arbitraria di un dato valore ?
 thanks
 Raffaello

 in base "b" arbitraria di un dato valore ?
   Il logaritmo in base b di un numero N, avendo la possibilita` di 
calcolarne quello in base c, si ottiene facilmente con la relazione:
	log_b(N) = log_c(N) / log_c(b)
-- 
Alla prossima,
Marco

perldoc -f log
--------------------
  log EXPR
  log     Returns the natural logarithm (base e) of EXPR.  If EXPR is
          omitted, returns log of `$_'.  To get the log of another base,
	  use basic algebra: The base-N log of a number is equal to the
	  natural log of that number divided by the natural log of N.  For
   example:
              sub log10 {
                  my $n = shift;
                  return log($n)/log(10);
              }

               }
heheh..qui mancano le basi culturali matematiche :-)))) 
(scherzo spero che nessuno si offenda)
-- 
Saluti,
Giancarlo

 (scherzo spero che nessuno si offenda)
Ohe'! L'esame di Analisi l'ho dato 10 anni fa (e ho preso uno scaaaarso
21). :P
 Raffaello

 scaaaarso 21). :P
Vabbe' io 12 anni fa (analisi 1.. mannaggia come passa il tempo....) e 
certe cose me le ricordo, sara' che io avevo preso 26 ;-)
-- 
Saluti,
Giancarlo

On Thu, 7 Nov 2002, Giancarlo Bisso wrote:

Io mi son rifatto a Analisi 2 l'anno dopo : 28.
:D
 Raffaello

Raffaello Galli wrote:

Io 24 di analisi 2... comunque 26 e 24 media 25, 21 e 28 media 24.5... 
vinco io :-)
-- 
Saluti,
Giancarlo



Acc.. di poco.
Newsgroup: it.comp.lang.perl
Titolo: windows / linux

Ho da circa un mese ottenuto hosting su un server linux,  ma non riesco a
far girare i files in Perl che in locale (windows - apache) girano
normalmente.
A detta del supp. tecnico dipende da come ho scritto il file (funzionerebbe
in locale solo perche' windows).
Siccome  non conosco il SO Linux, vorrei sapere dove sbaglio.
In effetti il file di test e' semplicissimo, deve solo stampare una riga,
ecco il listato:
 #!usr/bin/perl;
print "Content-type: text/html\r\n\r\n";
print "La farfalla\n";
sleep(10);
print "V O L A \n";
Grazie in anticipo



Io sviluppo il mio sito su windiws e lo hosto su linux, sono spesso
alle prese con questioni di porting.
Se dicessi che errore ottieni sarebbe meglio.
Cmq uno degli errori più comuni è 'sendare' file che sono in formato
pc su server unix e viceversa.
In pratica la gestione di fine riga è diversa 
--
www.pigmalion.info
www.pigmalion.info/perl/

 Grazie in anticipo
prego,
Nids

 (funzionerebbe in locale solo perche' windows).
Sei sicuro che il file abbia i permessi giusti? (chmod)
-- 
//\/\ Marco (LM) Lamberto
      e-mail:            
marcol...@despammed.com
      SIForge.org     -  
http://www.siforge.org/


Ecco che errore ottengo:
Internal Server Error
The server encountered an internal error or misconfiguration and was unable
to complete your request.
Please contact the server administrator, root@localhost and inform them of
the time the error occurred, and anything you might have done that may have
caused the error.
More information about this error may be available in the server error log.
ciao

Ho provato a mettere in pratica tutti i vs. consigli
la / iniziale o la riga di comando come sugg da pigmalion nel suo (bello e
interessante) sito (perl -i.bak -pe "s/\r//" nomefile )
ma la risposta e' sempre la stessa:
Internal Server Error
The server encountered an internal error or misconfiguration and was unable
to complete your request.
Please contact the server administrator, root@localhost and inform them of
the time the error occurred, and anything you might have done that may have
caused the error.
More information about this error may be available in the server error log.
Non so piu' cosa fare
Altri sugg?
grazie

 ha scritto nel messaggio
news:vc57evoenmulu1grv...@4ax.com...


 ha scritto nel messaggio
news:BX7Fa.75232$lK4.2...@twister1.libero.it...

Mi vengono in mente due cose:
1) intanto devi determinare il path dell' interprete perl sull' host in
questione,
    questa informazione deve fornirtela l' amministratore del sistema o se
hai
    una shell puoi lanciare il comando: which perl (quindi la prima riga del
tuo
    script sara': #!/path_del_perl,
2) lo script deve avere i permessi di esecuzione per l' utente che lo
lancia,
    ovvero in questo caso l' utente con cui gira il server web, anche questa
    informazione deve fornirtela il system adminstrator (che puo' leggere la
conf di apache),
spero di esserti stato utile...
Andrea

Purtroppo non funziona ancora eppure ho settato  chmod su 755 e il percorso
e' quello indicato nel forum.
Il sito in questione e' 
host17.org
  se avete altre dritte....
Grazie e ciao
Newsgroup: it.comp.lang.perl
Titolo: Paul Graham

Non so se conosci gia` questo signore: hai scritto dei libri 
sul Lisp, che e` il suo linguaggio preferito. Sul suo sito ci
sono articoli interessanti:
 
http://www.paulgraham.com/articles.html
Sostiene posizioni abbastanza controcorrente rispetto a quello
che si sente dire usualmente. Immagino che questo sia dovuto in
parte alla sua formazione di programmatore e hacker.
ciao
Stefano

   
http://www.paulgraham.com/articles.html
Sono mortificato. Ovviamente *anche* questo post era in realta`
una mail. A mia parziale discolpa posso provare a sostenere che
con Sylpheed e` facile confondersi. Ma ripetere e` diabolico :(
Spero che il link almeno possa suscitare il vostro interesse 
(questa volta c'entra almeno con la programmazione :)).
Saluti
Stefano

 (questa volta c'entra almeno con la programmazione :)).
http://search.cpan.org/src/FIREDRAKE/Mail-SpamTest-Bayesian-0.02/README
   Mail/SpamTest/Bayesian version 0.02
   ===================================
   This module implements the naive Bayesian spam-testing algorithm
   described by Paul Graham at:
 
http://www.paulgraham.com/spam.html
   In short: the system is trained by exposure to mailboxes of
   known spam and non-spam messages. These are (1) MIME-decoded, and
   non-text parts deleted; (2) tokenised. The database files spam.db and
   nonspam.db contain lists of tokens and the number of messages in which
   they have occurred; general.db holds a message count.

Newsgroup: it.comp.lang.perl
Titolo: compilazione mi costi troppo!

Se compilo uno script
$ perlcc -o outfile 
infile.pl
ottengo un eseguibile che ha delle dimensioni mostruosamente superiori allo
script stesso (diciamo 800K contro i 17K)... da cosa dipende questo? Se
avessi scritto lo script in maniera più efficiente avrei avuto un eseguibile
più piccolo? E come posso compilare in meno spazio?
dawe
--------------------------------
Inviato via 
http://usenet.libero.it

 più piccolo? E come posso compilare in meno spazio?
http://www.perldoc.com/perl5.8.0/pod/perlfaq3.html#How-can-I-compile-my-Perl-program-into-byte-code-or-C-

grazie mille, č stato terribilmente chiaro e... deprimente!


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

Ciao a tutti,
Mi sono iscritto adesso: qualcuno mi può dire dove sono le FAQ?
Grazie
Lucabond

Mi sono iscritto adesso: qualcuno mi può dire dove sono le FAQ?
http://www.perl-it.org
...ma ancora in preparazione. Anzi, qualcuno vuole collaborare?
	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: [OT]:perl?

Salve e scusate l' OT.
vorrei programmare in perl. Dove lo scarico gratis?
grazie.

 grazie.
non mi sembra che tu sia affatto off topic. Comunque, la risposta alla tua
domanda e' "dipende da che sistema operativo usi", ovvero:
. se l'interprete perl dovra' girare su MsWindows, troverai quello che ti
serve su 
www.Activestate.com
 ;
. se invece hai un Linux (e se posso permettermi, sarebbe meglio ;-)), hai
gia' l'interprete perl nel tuo computer e piu' precisamente, quasi di
sicuro, all'interno della directory /usr/bin.
ciao,
asast

 asast
Ciao ciao
Elena

 Ah, ok, va bene Mandrake?
va benissimo, ce l'hai gia' installato. ciao,
asast

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

Salve a tutti. 
Alla fine sono riuscita a capire che mi serviva ssl e non ssh. 
Mi sono andata a vedere il bel modulo $Net::SSLeay. 
Po ho letto il mio bel manuale che mi dice che quando 
voglio utilizzare un modulo devo importare solo le stringhe delle
entita´ che non vengono esportate automaticamente.
Bene, ma come faccio a sapere quali lo sono e quali no ?
E poi che intende per "entita´"? 
Sono variabili, oggetti o che altro ?
Io sto cercando di usare il modulo 
sl-inetd-serv.pl
. 
Ed in questo modulo le chiamate a SSLeay sono:
use Net::SSLeay qw(die_now die_if_ssl_error);
Net::SSLeay::load_error_strings();
Net::SSLeay::SSLeay_add_ssl_algorithms();
Io pero´avrei bisogno che ricevesse un user ed una password criptata
da un client (nel caso specifico da eudora).
Qualcuno di voi sa aiutarmi in qualche modo ?
Grazie in anticipo. 
Giovanna

 Net::SSLeay::SSLeay_add_ssl_algorithms();
Sorry. Sull'uso del modulo non so aiutarti.
ciao
Stefano

 e criteri a riguardo, utili per scrivere i propri moduli.
ok, ho capito. 
MIlle grazie
Giovanna

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

I am beginner of Perl
Please help me
-------------------------------
$B=(10,9,8,7,6,5,4,3,2,1,'BOOM');
@A=$B;
   for $c (@A){
        print $c, "\n"; sleep(1);
}
-------------------------------
the result is BOOM
but I need the result it like that:
10
9
8
7
6
5
4
3
2
1
BOOM
-----
the $B , @A must need
Please email the answer to me.
dick...@hkstar.com
thanks for help

 the result is BOOM
  Try with:
	1.
	for($i=10;$i>0;$i--) {
		print "$i\n";
		sleep(1);
	}
	print "BOOM!\n";
	2.
	@A=(10,9,8,7,6,5,4,3,2,1,'BOOM');
	foreach $B (@A) {
		print "$B\n";
		sleep(1);
	}
...and many other ones will come. ;)
	Alla prossima,
		Marco

 the result is BOOM
The problem is that $B is a scalar and if you assign a list to a scalar, you
obtain the last element of the list ('BOOM').
If you want $B to be a reference to the list, you need:
-------------------------------
$B= [ 10,9,8,7,6,5,4,3,2,1,'BOOM' ];
@A=@$B;
  for $c (@A){
         print $c, "\n"; sleep(1);
 }
-------------------------------
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: [Promo] - sito perl

Dopo mesi di offline ho rimesso online il sito,
http://cloud.prohosting.com/pigmauk/perl/
per appunti, faq ed un piccolo repository sul perl
ciao da Londra

 per appunti, faq ed un piccolo repository sul perl
Carino, semplice e utile. Complimenti!
Prova ad arricchirlo con qualcosa di piu' "tosto" !!
Per esempio ultimamente sto scervellandomi con il modulo Net::NNTP
e in rete ancora non ho trovato nulla di veramente _esemplicativo_
Ciao,
Guido.

e in rete ancora non ho trovato nulla di veramente _esemplicativo_
Ciao Zio Killer, ti devo un hint :-)
Su NNTP trovi documentazione in:
-Perl module reference del perl Resource Kit
-Capitolo 8 del mitico "Network programming with perl"
-Ti sono utili gli RFC 850 e 977  
-Un esempio al paragrafo 18.4 di Perl Cookbook
Io ho pacioccato un pochino con il modulo e mi pare che la chiave stia
nel rispettare le RFC utilizzando il modulo.
Omaggi!
Ciao
Daniele

Newsgroup: it.comp.lang.perl
Titolo: catturare i messaggi di un newsgroup

Vorrei adattare il mio forum in modo da creare una sezione che visualizzie e
permetta di scrivere dei messaggi su un newsgroup.
Vorrei sapere quali sono le linee di codice che permettono di leggere e
inserire nuovi messaggi su un newsgroup.

 wrote in message
9que7j$tb8$1...@nreada.inwind.it...

Una buona idea quando si comincia a progettare qualcosa
e' usare CPAN: 
search.cpan.org
. Cercando "news" si trovano
parecchi moduli, come ad esempio News::NTTPClient oppure
la gerarchia News::Scan.
ciao
Stefano
Newsgroup: it.comp.lang.perl
Titolo: progetto Naiocast - web radio

Salve,
     dato che sono bloccato nella realizazzione di questo progetto ho 
creduto che sarebbe stato meglio coinvolgere chi ne fosse interessato...
Il progetto si chiama Naiocast.
Sono un utente Macintosh e uso il programma Nicecast per fare WebRadio 
col proprio computer:
http://www.rogueamoeba.com/nicecast/
purtroppo sto dietro ad un Router e non posso fare Port-Forwarding 
quindi non posso usare icecast (il server di nicecast) per far accedere 
i client alla mia radio sulla porta 8000 ... in più non ho un 
collegamento che mi permetta alta velocità in upload...quindi non posso 
prmettermi troppo cienti unici simultanei.
Avevo pensato di fare un client che girando sul mio mac emulasse una 
richiesta RealPlayer al server icecast e che poi rigirasse tutto verso 
il mio sito web tramite una richiesta http POST. I vari clients poi si 
sarebbero collegati al mio sito web e da li avrebbero poi ascoltato la 
Radio usufruendo quindi della maggior banda che il mio host mi mette a 
disposizione.
Il progetto è così suddiviso:
# 
naiocast.pl
fa la richiesta localo fingendo di essere RealPlayer e redirige tutto 
"
source.pl
" che risiede sul mio sito web tramite http POST
# 
source.pl
riceve il flusso di dati da "
naiocast.pl
" e li redirige tramite udp a 
varie istanze di "
reader.pl
" che sono ascolto in udp. ogni istanza di 
"
reader.pl
" salva su file il numero di porta assegnata 
(
127.0.0.1
:<port>) così che "
source.pl
" sa a quali porte in locale 
mandare i pacchetti di dati
# 
reader.pl
ogni client che vuole ascoltare la webradio fa la richiesta di questo 
file (una semplice richiesta http GET) che si mette in ascolto in locale 
ad una certa porta assegnata automaticamente...e manmano che i dati 
arrivano da "
source.pl
" li stampa su STDOUT
il codice di questi file si trova quì:
http://www.theartofweb.net/source_naiocast/
purtroppo non riesco a far girare bene questi scripts e ho torvato vari 
problemi...ad esempio non riesco a far collegare 2 e più clients 
contemporaneamente...ma forse e colpa del mio sito...non saprei...
credo anche che la realizazzione di questo progetto aiuterebbe molti 
macuser che per vari motivi non sanno/vogliono/possono fare 
port-forwarding ne settare il proprio firewall...
vi ringrazio tutti

Funziona!!!!!!
Naiocast - Yet Another Web Radio
http://www.theartofweb.net/download/naiocast.zip

Newsgroup: it.comp.lang.perl
Titolo: Editor Perl per Linux

Salve stņ cercando un buon editor Perl per Linux,
qualcuno mi puņ consigliare qualcosa ?

 qualcuno mi può consigliare qualcosa ?
Nedit.
Ha una funzione di "syntax highlighting" con cui si evidenzia (con
colori/grassetto/inclinato, a piacimento) la sintassi del linguaggio
(non solo per il  perl, ma per  tutti i linguaggi più comuni).
Inoltre è possibile trovare dove si apre/chiude una parentesi,
indentare il testo a blocchi, ecc.
Io mi ci trovo molto bene.

 qualcuno mi puņ consigliare qualcosa ?
Vim
Bye,
 Emmanuele.
-- 
Emmanuele Bassi         |             [ 
http://digilander.iol.it/ebassi/
 ]
emmanue...@iol.it
  |
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4
Newsgroup: it.comp.lang.perl
Titolo: New Entry !!!

Salve a tutti,
Sono Marco ho fatto il mio primo CGI in Perl. Mi scrive in un file out.txt
alcuni campi di un form. Eccolo:
________________________________________
#!/usr/local/bin/perl
read(STDIN,$temp,$ENV{'CONTENT_LENGTH'});
@pairs=split(/&/,$temp);
foreach $item(@pairs)
{
($key,$content)=split(/=/,$item,2);
$content=~tr/+/ /;
$content=~s/%(..)/pack("c",hex($1))/ge;
$fields{$key}=$content;
}
$file = 'out.txt';             # Nome del file
open(INFO, ">>$file");  # Apre il file
print INFO "$fields{fname} $fields{lname}.\n";
close(INFO);                # Chiude il file
___________________________________________
Ora il problema e questo: quando eseguo questo script in locale con il
Personal Web Server di Win98 tutto funziona regolarmente; quando invece lo
provo in rete nella mia pagina su 
hypermart.net
 le variabili vengono scritte
si sul file di output, pero' contemporaneramente mi da':  [500] INTERNAL
SERVER ERROR  e cioe' :
"premature end of script headers".
Spero di non essermi spiegato tanto male !!
Qualcuno sa dirmi dove sta l'errore ?
Grazie a tutti

 of script headers".
  Probabilmente, si aspettava anche una risposta (/response/) da
rispedire al client che aveva formulato la domanda (/request/). Prova a
mettere in un punto qualsiasi dello script le linee:
<CODE>
	print "Content-type: text/html;\n\n";
	print"<HTML><BODY><H1>Fatto!</H1></BODY></HTML>";
</CODE>
	Alla prossima,
		Marco

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

Eccomi con un nuovo rutilante quesito :-)
 
Esiste un sistema semplice per poter determinare da quanto tempo uno script 
è in funzione?
 
Se faccio così:
 
my $adesso = time();
sleep(20);
my $tempo_trascorso = time() - $adesso;
print "trascorsi $tempo_trascorso secondi \r\n";
 
ottengo ovviamente
 
liftman@prove:~$ perl -w 
test.pl
 
trascorsi 20 secondi
 
ed è già qualcosa, fino a che la cosa dura poco... ma supponendo che passino 
ore, giorni, settimane o mesi...  non è il massimo vedere una cosa tipo:
trascorsi 2592000 secondi. Prima di imbarcarmi in un'improbabile sequenza di 
calcoli per cercare di ottenere un "trascorsi 0 anni, 3 mesi, 14 ore, 22 
secondi" esiste un modo semplice e pratico?
 
-- 
Fri(END), Boyfri(END), Girlfri(END), Bestfri(END). Everything has an END 
except...Fam(ILY)! It Has 3 Letters that say I LOVE YOU 
 


 
 
http://www.perlmonks.org/?node_id=17057
 
 
Dovresti avere ciò che cerchi
 

 Dovresti avere ciò che cerchi
 
grazie!


Newsgroup: it.comp.lang.perl
Titolo: Editor per Win '98

Salve a tutti,
qualcuno conosce (e utilizza senza problemi) editor freeware per il PERL
sotto Windows ?
Grazie a chiunque legga e, in particolare, a chi risponderą.
Buon Perl,
Mkč

 sotto Windows ?
gvim
http://www.vim.org
Bye,
 Emmanuele.
-- 
I ... Owe ... You ... Pain! -- Willow, "Tough Love"
Italian Buffy Resource Site (Beta) - 
http://www.ibrs.f2s.com
GnuPG Key ID: 0x788E3A3A
GnuPG Key FP: 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4
Newsgroup: it.comp.lang.perl
Titolo: Info su ottimizazzione codice

Sto finendo di scrivere un piccolo forum CGI codificato in perl.
Secondo voi, dal punto di vista di velocita/efficienza del server mi
conviene dividere tutto lo script in vari moduli da caricare solo quando
servono oppure avere un solo file con tutte le funzioni?
grazie KioneZ



se fai più moduli la cosa si fa 'professionale'!!

Newsgroup: it.comp.lang.perl
Titolo: ma oltre $9 si può andare?

salve ragazzi, sapete come faccio ad "andare oltre" a $9? so che ci sono
da $1 a $9 per "cogliere" dei parametri, ho la necessità di prendere ben
11 parametri... sapete come fare? grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 11 parametri... sapete come fare? grazie
   Hai un'idiosincrasia particolare nei confronti della manualistica, 
vero? :)
<code>
	$pattern='(\d+) ' x 42;
	for $i (0..42) { $string.="$i " };
	@matches=$string=~/$pattern/;
	print "@matches\n"
</code>
	perldoc perlop
-- 
Alla prossima,
Marco

 vero? :)
scusami, il manuale di perl è un pò particolare e diverso da quello php
e altri. comunque avevo risolto :) avevo messo meno parametri di quello
che richiedevo. scusami ancora :P


Newsgroup: it.comp.lang.perl
Titolo: Fork e segnali di kill

Ciao a tutti,
ho il seguente problema:
ho un processo padre perl che ne lancia un secondo come figlio con fork.
Il processo padre è in grado di intercettare il segnale SIGTERM in modo
tale che all'arrivo del segnale possa eseguire delle procedure di
shutdown.
Se lancio un segnale SIGTERM da shell al processo padre tutto funziona
correttamente ed esegue la procedura di shutdown.
Se lancio il segnale SIGTERM al processo figlio non ne vuole sapere di
morire (con SIGUSR1 muore ma rimane appeso come defunct). Quello che mi
interessa è comunicare al processo figlio, attraverso il processo padre
che intercetta il KILL, di terminare tutte le operazioni prima di morire
(istruzioni contenute in una while).
La mia domanda è: esiste un modo per intercettare nel processo figlio
questo segnale senza dover utilizzare un socket? Ne faccio già uso e non
lo vorrei sporcare con comunicazioni di questo tipo.
Sarebbe corretto inviare un segnale di kill SIGTERM al processo figlio
dal processo padre quando quest'ultimo ne riceve uno?
Ho provato a settare una variabile nel processo padre che viene
modificata nel momento in cui riceve il KILL ma OVVIAMENTE nel processo
figlio la variabile non viene modificata in virtù del fork che passa al
processo figlio tutte le variabili del padre ma non ne permette la
modifica anche se si tratta di puntatori (e mi sembra strano).
Spero di essere stato abbastanza chiaro nella spiegazione del problema.
Sono gradite soluzioni alternative al socket ammesso che esistano.
Grazie in anticipo per le risposte
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
news:07d9f8617796fcce68f...@mygate.mailgate.org...
Possibile che nessuno si è mai trovato a risolvere un problema del
genere?
Ciao
-- 
Caronte

Newsgroup: it.comp.lang.perl
Titolo: neofita

Ciao a tutti!
premettondo che ho appena appena cominciato con il perl
vorrei farvi una domanda un po stupida: come faccio a far partire uno script
partendo da 1 semplice txt con blocco note?
ho bisogno d un compilatore? se si quale?
grazie a tutti x l'attenzione
bye
{K}

Hai bisogno dell'interprete Perl che puoi trovare su 
www.perl.com
 oppure per
windows su 
www.activestate.com
dopo di che su Unix digiti: perl 
miofile.pl
oppure ./
miofile.pl
 se hai messo !#/usr/bin/perl (o altro path) nella prima
riga.
Su windows invece, visto che l'interprete viene associato con l'estensione
ti basta cliccare due volte il file.
visto che la finestra si chiudera' subito, in fondo al codice metti sempre :
<STDIN>;
in questo modo aspettera' un invio prima di chiudere la finestra!
Alex

Grazie Alex mi 6 stato d aiuto ma  leggendo nei siti ho notato che per il
mio OS cioč WinME nn ho bisogno d nessun compilatore aggiuntivo xkč ne
risiede gia uno!
ma a questo punto perckč nn riesco a farlo partire? l'estensione pl va bene?
abbiate pazienza!
bye
{K}
"Alex" <Nom...@wow.boh> ha scritto nel messaggio
news:SBdh6.33739$GM6.1...@news.infostrada.it...


Ammetto di non conoscere WinME, ma mi pare molto strano che di default ti
installi un interprete Perl !!!
vai su 
www.activestate.com
 ed installa l'ultima versione dll'interprete
perl.
Alex
P.S. dove hai letto che ME contiene un interprete perl ??? Mi piacerebbe
saperlo !!!
kirky ha scritto nel messaggio ...


 saperlo !!!
Scusa x la perdita d tempo hai ragione, avevo letto male
era MSI installer che è gia contenuto! (devo migliorare con l'inglese :-))
il traduttore lo sto scaricando ora speriamo bene!!
scusate ancora
bye
Newsgroup: it.comp.lang.perl
Titolo: La base degli ARRAY

Questo è uno stralcio del contenuto del file che voglio manipolare :
0,"BB.MI",91.3,28/05/01,13:42,-0.22,91.9,91.9,90.7,719
1,"PCU.MI",10.98,28/05/01,13:42,0.018,11.13,11.13,10.9,2576
2,"STM.MI",47.15,28/05/01,13:53,0.04,47.05,47.4,47,243040
3,"CTO.MI",17.75,28/05/01,13:49,-0.273,0,18.13,17.7,7005
4,"DAS.MI",53.35,28/05/01,13:46,0.49,52.8,53.8,52,6300
5,"ENEL.MI",3.65,28/05/01,13:51,0.015,3.64,3.66,3.62,5754750
.....
Vorrei manipolare il campo della data di ciascuna riga , frapponendola tra
le virgolette (" ").
Utilizzando il pattern matching (via estremaente più semplice) non sono
riuscito a trovare la giusta combinazione ( ???); pensavo anche ad un array,
dal quale attraverso @riga[$i] si potrbbero maneggiare le posizioni della
stringa puntate da [$i].  Meglio: come è possibile convertire una "stringa"
in un vettore ?
Grazie
Simon

 in un vettore ?
Se la virgola e` usata *solo* come separatore di campo, questo dovrebbe 
fare al tuo caso.
<code>
	while (<STDIN>) {
	  my @fields=split /,/;
	  $fields[3]="\"$fields[3]\"";
	  print join ',',@fields;
	}
</code>
	$ perldoc -f split
	$ perldoc -f join
-- 
Baci,
Mony

0,"BB.MI",91.3,28/05/01,13:42,-0.22,91.9,91.9,90.7,719
Ciao,
visto lo specifico argomento, perche' non utilizzare QuoteMonster o
questa versione ridotta?
http://xmlworks.com/reorder/
Poi una volta avuti gli spunti tutto si puo' rielaborare ...
Happy Trading :-)
A presto
--
|Stefano Orsi
|Email: s punto orsi chiocciola ogcs punto com

Simon wrote:

prova qualcosa tipo
s/(.+?,.+?,.+?,)(.+?),/$1\"$2\",/;
-- 
Saluti,
Giancarlo

 stringa puntate da [$i].  Meglio: come č possibile convertire una
