mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: timeout in perl

Ciao, ho un problema con uno script che deve scaricare file da internet e
compiere varie operazioni in rete: nel caso in cui il computer remoto non
risponda, le operazioni successive non vengono eseguite, per cui vorrei
capire  come posso impstare un timeout, in modo che dopo un certo tempo lo
script passi all'operazione successiva.
Molte grazie.
Matteo

Matteo,

	perldoc -q timeout
	Alla prossima,
		Marco

 Matteo
perldoc -f alarm
ci trovi:
<quote>
If you want to use alarm() to time out a system call you need to use an
eval/die pair.  You can't rely on the alarm causing the system call to
fail with $! set to EINTR because Perl sets up signal handlers to
restart system calls on some systems.  Using eval/die always works.
    eval {
        local $SIG{ALRM} = sub { die "alarm\n" };       # NB \n required
        alarm $timeout;
        $nread = sysread SOCKET, $buffer, $size;
        alarm 0;
    };
    die if $@ && $@ ne "alarm\n";       # propagate errors
    if ($@) {
        # timed out
    }
    else {
        # didn't
    }
</quote>
Pero' per un timeout socket-specifico prova una cosa del tipo:
<code>
    use IO:Socket;
    [...]
    $handle = IO::Socket::INET->new(Proto     => "tcp",
                                   PeerAddr  => $host,
                                   PeerPort  => $port,
                                   Timeout   => $timeout);
    if ($handle) {
        print "Si e' connesso in $timeout secondi\n";
    }
    else {
        print "Nun Gnaafa'\n";
    }
</code>
ulteriori info ovviamente: perldoc IO:Socket
ciao, marco
--
Marco Cacchiani                                
e-mail:ma...@sirius.pisa.it
Public pgp key:         
http://www.sirius.pisa.it/marco/pgp_public_key.asc
Sirius Servizi Informatici                     e-mail: 
in...@sirius.pisa.it
Parco Teatro Pasolini, 1                       Phone:  +39 (50) 865120
I-56019 - Vecchiano                            Fax:    +39 (50) 860260
(Pisa - ITALIA)                                
http://www.sirius.pisa.it/

Newsgroup: it.comp.lang.perl
Titolo: Connessione a Mysql

Ciao a tutti,
Lo so ... lo so che è stato trattato diverse volte .... ma allora a me 
perchè non funzia??
<code>
#!/usr/bin/perl
use DBI;
use DBD::mysql;
$db_name="DBI:mysql:database:localhost:3306";
$db_user="root";
$db_password="password";
$db_conn=DBI->connect("'$db_name','$db_user','$db_password'") || die 
"Connect failed: $DBI::errstr\n";
# faccio la query
 $sth=$db_conn->prepare("SELECT * FROM mail");
 $sth->execute();
print "$sth";
# Disconnetto il DB
$db_conn->disconnect;
</code>
Qualcuno può dirmi dove sbaglio??
Grazie!
-- 
Gioachino
http://www.rockitalia.com
--------------------------
Is an overactive immagination 
that enslaves you in an empty shell
--------------------------

Gioachino wrote:
Risolto .... fa lo stesso!
Grazie lo stesso!
Ciao!

Newsgroup: it.comp.lang.perl
Titolo: dimensione di un array

Ciao a tutti,
sono sicuro che si tratti di una banalita', ma come faccio a leggere la
dimensione di un array?
grazie molto.
-------
Giorgio Belli
Milano

 dimensione di un array?
Devi valutare l'array in contesto scalare.
"If you evaluate a named array in a scalar context, it returns the length 
of the array." (da 'perldata')
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: Timeout

Ciao a tutti!!!
Esiste una funzione che dopo un tot di secondi (es 30000ms) fa si che viene 
eseguita un subroutine?
Qualcosa del genere:  timeout(30000, "mia_sub"); 
Per essere più preciso tipo la funzione javascript:
setTimeout(expression, msec)
Grazie a tutti!!!

 eseguita un subroutine?
	$ perldoc -f alarm
	$ perldoc perlipc
--
Alla prossima,
Marco

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

quando in un file html faccio riferimento a un file php3 non mi da il
risultato dell'operazione ma mi da l'edit
es.
$a = 10+20;
print " risultato $a\n";
dove sbaglio?
Grazie

 wrote in message
news:TmjL5.56674$3K3.1...@news.infostrada.it...


Newsgroup: it.comp.lang.perl
Titolo: Ancora aiuto per uno script

Ehm ma perchè non riesco a farlo andare :(
mi dice cannot open file per tutti i file :(
che devo fare?
potete aiutarmi?
#e:\perl\bin
open CONTATORE, '<e:/dragons/dragonsweb/cgi-bin/counter.txt' or print
'Cannot open counter.txt';
$k=<CONTATORE>;
open BANNER, '<e:/dragons/dragonweb/cgi-bin/banner.txt' or print 'Cannot
open data file ';
@indirizzi=<BANNER>;
($path,$pathimg)=split /;/, @indirizzi[$k], 2;
$k++;
$k=2;
open CONTATORE, '+>e:/dragons/dragonweb/cgi-bin/count.txt' or print 'Cannot
open counter.txt';
$j=<CONTATORE>;
$j=~s/^(\d+)/$k/;
print "(<A HREF=\"$path\"><IMG src=\"$pathimg\"></A>)";

'Cannot open counter.txt';
Fatti stampare $! invece di "Cannot open counter.txt" dove e' scritto il motivo
per cui non riesce ad aprire il file.
Inoltre direi, non sono espertissimo di perl sotto win32, che i path vanno
scritto con \ e non con /.
-- 
Saluti,
Giancarlo

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

win32 quanto per MacOS. E` poi il perl a convertirli.
Benissimo non lo sapevo, tutto cio' mi conferma sempre piu' che  il perl e'
davvero "in gamba" :)))
-- 
Saluti,
Giancarlo

 ha scritto nel messaggio
news:971866242....@news.inet.it...


cosa puo essere sbagliato?
Ma il file "e:\dragons\dragonweb\cgi-bin\banner.txt" esiste o no?
Evidentemente no, e quindi risulta moooltooo difficile aprirlo in sola
lettura.....
-- 
Saluti,
Giancarlo
Newsgroup: it.comp.lang.perl
Titolo: Aiuto ! sostituire Un activeX semplice con un Perl

Ciao a tutti
Alla pagina : 
http://web.tiscalinet.it/valpochess/test/matti.htm
ho inserito un activeX che riceve il nome del solutore del test
scacchistico, legge dal javascript i punti percentuali di successo e lo
schiaffa su c:
Ora in maniera molto rozza sto tentando di fare questo :
Ho messo un timer che conta i secondi ( ora sta nel frame test/crono.htm ed
anche quello ha problemi ) e volevo che anche i secondi impiegati mi
venissero inseriti in questo file.
Scopro con orrore che NN se ne infischia degli activeX e mi è stato detto
che lo devo fare in Perl.
Io già ho problemi a fare una pagina decente che si possa vedere con tutti i
Browser e questa cosa di fare in Perl la funzione di salvataggio risultati è
per me inavvicinabile.
Chiedo un qualunque tipo di aiuto ....se è troppo complicato da fare, se ce
la posso fare con qualche esempio, se esiste un sito dove si possa seguire
un tutorial.........fino a sognare ( ma mi rendo conto che quelli come me
non ne hanno il diritto ) che qc avendo già affrontato il problema mi passi
almeno una base di lavoro da cui partire .
Scusate e grazie comunque.
Marco

Dimenticavo ( e questo vi da l'idea di ciň che sono )
lo script dell'activeX che ho usato si trova invece a:
http://www.tiscalinet.it/valpochess/test/matti_dia.htm
scusate.
Marco

Newsgroup: it.comp.lang.perl
Titolo: installazione su win2k

non ho ben capito come installare php4 su win2k, qualcuno mi da
qualche suggerimento ?
thx

qualche suggerimento ?
it.comp.www.php
-- 
http://www.pigmalion.youngwind.com
 pigmalion network
http://www.pigmalion.youngwind.com/perl/
 appunti Perl
-- 
Posted from 
relay4.inwind.it
 [212.141.53.75] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.perl
Titolo: intercettare dispositivo

Ciao a tutti,
Vorrei sapere come potrei fare secondo voi ad intercettare e ottenere 
l'ouput di un dispositivo esterno collegato al PC.
Tutto ciň con Perl naturalmente.
In questo caso mi piacerebbe ottenere e gestire l'audio prodotto da un 
microfono esterno collegato al computer.
E magari convertire l'audio in altro formato audio in diretta...
Grazie a tutti
Ciao

Ecco cosa mi piacerebbe davvero,davvero,davvero fare:
le funzioni "sysread_from_device" e "mp3_encode" sono fitizie, ma si 
intuisce il loro scopo:
while ( 1 )
{
   $client = $socket->accept;
   if ($client)
   {
      while ( sysread_from_device("microfono",$buffer,$bytes) )
      {
         $mp3 = mp3_encode($buffer,$parameters);
         syswrite $client, $mp3;
      }
 
      close $client;
   }
}
Ovvero,il programma si mette in attesa di un client (quicktime? 
Real-player?) e quando instaurata
una connessione gli passa in streaming la codifica MP3 delll'ouput del 
microfono collegato al PC.
Troppo facile a dirsi...e a farlo?
Grazie lo stesso,
Ciao

 Ciao
Win32::Sound
Win32::SoundRec
Sono funzioni di basso livello per gestire formati wav non compressi nei
quali devi riempire e leggere costantemente i buffer @_@ a livelli di
sinusoidi O.o
Per l'mp3 provai a cercare un po' di tempo fa molto velocemente e trovai
poche cose. Però se c'è la libreria per comprimere i film in DIVX penso che
ci sia anche quella per comprimere l'audio da wav e mpeg.
ciao

Newsgroup: it.comp.lang.perl
Titolo: cerco programmatore perl

Cerco programmatore perl bravo per risoluzione di alcuni bug di uno script.
Possibilmente uno che abbia un pň di tempo a disposizione.


e paghi? quanto?

Newsgroup: it.comp.lang.perl
Titolo: confronto tra stringhe

Salve a tutti
so che è una domanda stupida ma proprio non mi riesce di farlo:
Devo fare il confronto tra due stringhe: una passata allo script da un form
HTML, l'altra letta su un file .txt che uso come database. L'intenzione è
quella di far eseguire (tramite un if - else, una determinata operazione se
le due stringhe risultano perfettamente uguali (es: 
em...@libero.it
 =
em...@libero.it
  --> OK). Qual'è la sintassi corretta? Devo prima trattare
le stringhe in qualche modo.
Devo essere proprio scemo perchè le sto provando tutte ma proprio non mi
riesce!!
    ciao e grazie per l'attenzione
                Roby
--
Italian DivX  & Covers Database
http://templebar.virtualave.net

                 Roby
man perlop. Comunque, gli operatori per il confronto tra stringhe sono
eq, ne, etc...
-- 
Leo "TheHobbit"
remove nospamme from mail address to reply
Newsgroup: it.comp.lang.perl
Titolo: mandare mail via perl

Beh, come si intuisce dall'oggetto, qualcuno può indicarmi un modulo per
poter inviare e-mail tramite script di perl? 
Grazie 
dawe

 poter inviare e-mail tramite script di perl? 
Ecco alcune risposte:
http://www.perl.it/documenti/faq/faqsearch.pl?q=mail
Personalmente uso MIME::Lite con codice del tipo:
use MIME::Lite;
my $msg = MIME::Lite->new(
                      From    =>"$from",
                      To      =>"$to",
                      Cc      =>"$cc",
                      Subject =>"$subject",
                      Type    =>'TEXT',
                      Data    =>"$text"
           );
$msg->send;

 ha scritto nel messaggio
news:pan.2004.04.16....@libero.it...


Newsgroup: it.comp.lang.perl
Titolo: perl e moduli

ma per usare i moduli del perl (qwuelli descritti nella documentazione di
active perl) bisogna installare qualcosa?
ciao e tnx

 active perl) bisogna installare qualcosa?
No!
Basta richiamarli:
use net::SMTP, ad esempio o un più classico
use strict
Ciao
M.
-- 
____________________________________________________
    Life's just a blast, it's moving realy fast    
better stay on top or life will kick you in the ass.
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Newsgroup: it.comp.lang.perl
Titolo: La domanda piu' stupida dell'universo

Mi spiegate a cosa puo' essere utile il perl e come viene utilizzato.. Pregi
e difetti anche brevemente.
Grazie,
Daniele

 e difetti anche brevemente.
Ma no, non e` una domanda stupida.
Ti passo un po' di link che possono aiutarti a trovare una risposta:
http://archive.develooper.com/advocacy%40perl.org/
L'archivio della mailing-list 
advo...@perl.org
.
http://www.pair.com/pair/current/insider/1201/damianconway.html
Un'intervista a Damian Conway. Tra le altre cose elenca alcune delle
ragioni per cui *lui* usa il Perl. Incidentalmente, sono opinioni
condivise da molte persone.
http://slashdot.org/article.pl?sid=01/12/12/0518201&mode=nested
Commenti all'intervista di cui sopra. Con opinioni contrastanti a
proposito del Perl.
http://www.wall.org/~larry/perl.html
Ti consiglio di leggere le ragioni "filosofiche" che hanno guidato
il designer principale del linguaggio. Secondo me il suo approccio
"eretico" al progetto del linguaggio e` molto interessante.
ciao
Stefano

e difetti anche brevemente.
CGI a tutto spiano e parsing di files di testo.
Per convincerti delle virtu', prova a scrivere un prog. in C
(ad esempio) ed uno in Perl che cerchino tutte le occorrenze di
una parola in un file di testo e le sostituiscano con un'altra..
P.
-- 
   	 ___      ___  __       ___       ___ ___  ___
	/__/ /	 /__/ /   //_/ /__  /__/ /__ /__  /__/
       /__/ /__ /  / /__ // / ___/ /  / /__ /__  /
 
 
http://theunixplace.com/~entropia/index.html
 
Obviously welcome removing Anti-spam filters to contact me in email :-)
Newsgroup: it.comp.lang.perl
Titolo: Conversione Het to date

Ciao a tutti,
da un socket udp ricevo una stringa binaria che converto con 
$mystr = unpack "H*", $sockrcv;
In una parte della stringa ci sono valori di tempo convertiti,
per esempio "0c52052f".
Probabilmente sono i secondi passati dal 01/Gen/1970
Come faccio a convertire questa stringa Hex in una stringa del
tipo YYYY:MM:GG HH:MM:SS ?
grazie a tutti 
Carlo

Carlo wrote:

Spero sia
my $hex="0c52052f";
my $data=localtime(hex($hex));
print $data;

...

Ho provato con:
my $strdate = "0c52052f";
$hexdata = localtime (hex($strdate));
print "Hex  -->:", hex($strdate), ".\n";
print "Date -->:", $hexdata, ".\n";
e questa è la risposta:
Hex  -->:206701871.
Date -->:Time::tm=ARRAY(0x18351f8).
Non va bene!!!!
Ciao Carlo

 Non va bene!!!!
Scusa, hai dato un'occhiata a perldoc -f localtime? Cmq il codice
riportato mi funziona tranquillamente. Che versione di perl usi?
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

 Cmq il codice riportato mi funziona tranquillamente
O meglio, mi stampa una data anche se è alquanto strana. Sicuro che
siano i secondi? 
Mi restituisce:
	Tue Jul 20 11:11:11 1976


 Ciao,
La versione č la ActivePerl 5.6.1 in ambiente Windows.
L'errore era causato che avevo lasciato in testa la use Time::localtime
La data mi viene anche a me questo valore che per il momento non so inter-
pretare. Cerchero di capire il significato del valore che mi viene passato.
La dicitura č: "Number of seconds since 0000 UTC 1970"
Piů avanti ho anche un campo "SysUptime at start". Boh ???
grazie 
Carlo

Newsgroup: it.comp.lang.perl
Titolo: perl & mysql

Salve qualcuno mi potrebbe spedire o postare un esempio
in perl per una connessione con un database mysql .
(Sotto Linux)

  $sth->finish();
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 wrote:
: Salve qualcuno mi potrebbe spedire o postare un esempio
: in perl per una connessione con un database mysql .
: (Sotto Linux)
my $dbh = DBI->connect("DBI:mysql:mydb:localhost","user","password") or
    die "Errore in fase di connessione al DB";
my $sth = $dbh->prepare(q{ select * from table}) or
    die $dbh->errstr;
$sth->execute or die $dbh->errstr;
my @res;            # Usato per fetch delle righe
for(my $i = 0; $i < $sth->rows; $i++){
    @res = $sth->fetchrow_array;
    ...ecc. ecc.
}
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nando

 }
SCusa, anch'io seguo esattamente questi stessi passi solo che non mi
funziona "die". E' come se non esistesse e non ne capisco il motivo.
--
Posted from 
mta02-acc.tin.it
 [212.216.176.33]
via Mailgate.ORG Server - 
http://www.mailgate.org

 funziona "die". E' come se non esistesse e non ne capisco il motivo.
Ma non ne abbiamo gia' parlato?

Newsgroup: it.comp.lang.perl
Titolo: aiuto problema file binario !!

in un libro che sto studiando su Perl nella sezione riguardo alla gestione
dei file viene precisato che in ambiente Windows si fa distinzione tra file
di testo e file binari e viene presentato un semplice esempio di copia di un
file binario in un altro, di cui riporto a seguire il semplice listato:
open(DA, 'file_binario1.gif') or die ......
open(A, '>file_binario2.gif') or die ......
binary(DA);  # !!! nel libro viene spiegato cha la funzione binary()
occorre per fare presente al sistema
binary(A);     # operativo che i rispettivi descrittori si riferiscono a
file binari
while (read(DA, $buf, 1))
{
....
}
quando eseguo lo script mi appare il seguente messaggio d'errore:
Undefined subroutine &main::binary called at .......
Perchè l'interprete Perl (ver. 5.004._02) non trova la funzione binary ??
Non fa parte dell'installazione standard dell'interprete ma è contenuta in
qualche libreria specifica (es. una libreria di Windows ??) che devo
installare ???
Ovvaimente, se elimino le righe di codice binary.... la copia del file non
avviene in maniera corretta, quindi dovranno servire a qualche cosa .... ...
grazie.

 binary ?? Non fa parte dell'installazione standard dell'interprete 
  Non nelle versioni fino alla 5.6, che e` l'ultima uscita. Invece
esiste binmode, che fa quello che tu chiedi. Butta il tuo libro (chi
l'ha scritto, Schildt?) ed usane uno decente.
	Alla prossima,
		Marco


sostituendo binary con binmode e completando lo script, con Perl 5.6 ha
funzionato tutto a meraviglia :-)
Ciao, Ezio Bonsi
---------------------- file: 
copia_file_binari.pl
open(DA, 'file_binario1.gif') or die "Impossibile aprire il file di input";
open(A, '>file_binario2.gif') or die "Impossibile aprire il file di output";
binmode DA;
binmode A;
while (read(DA, $buf,
{ 
   print A $buf;
}
close;

Newsgroup: it.comp.lang.perl
Titolo: CGI per WIN32

error.
ciao e grazie, Omar.

Omar Di Marzio wrote:

  uhm hai provato a eseguire il prog da linea di comando?
funziona?
fammi sapere ciao
    Davide
Newsgroup: it.comp.lang.perl
Titolo: vettori di strutture dati

esiste un modo per fare un vettore di strutture dati?
ad esempio in
pascal:
type bla = record of
    a: integer;
    b: string;
end;
var z: array[0..100] of bla;
in perl come si fa?
grassie!
--------------------------------
Inviato via 
http://usenet.iol.it

 
Direi che il problema, piu' che fare l'array, e fare la struttura dati 
:-)
e soprattutto capire che in per un integer e un string sono la stessa 
cosa.
comunque, a seconda delle tue esigenze puoi fare array o hash di array 
o hash.
Se ti piace di piu' la visione OO puoi costruire degli oggetti e poi 
degli array di oggetti...
-- 
Saluti,
Giancarlo

Giancarlo
--------------------------------
Inviato via 
http://usenet.iol.it
 

Giancarlo
--------------------------------
Inviato via 
http://usenet.iol.it
 

 beh mi dai un esempio? non OO :)
@array=(\%hash1,\%hash2);
ma la struttura di %hash1 e %hash2 non e' prefissbile, li devi 
costruire e riempire al volo.
Il perl non e' tipizzato ne tipizzabile.
-- 
Saluti,
Giancarlo

li puoi creare anche con
push(@array_di_hash, {%hash1};
push(@array_di_hash, {%hash2};
per leggere un valore di %hash1 puoi usare la sintassi
$pippo=$array_di_hash[0]{chiave_di_hash_1};
per leggere tutto l'array:
foreach (@array_di_hash)
{
 foreach $chiave(keys(%$_))
 {
  print $$_{$chiave}." ";
 }
 print"\n";
}
Ciao Stefano
Newsgroup: it.comp.lang.perl
Titolo: Modificare valori in in file .dat

Ho un file di configurazione, relativamente ad uno script: con quale 
istruzione (set di istruzioni) è possibile sostituire uno dei parametri, 
senza perdere/modificare gli altri ? ... pensavo di ri-salvare tutto il 
contenuto di configuarazione, aggiornato con le modifiche, in un file 
temporaneo, chiudelo e rinominarlo al vecchio nome,.... pero mi sembra un 
sistema un po' troppo grezzo.
es GenConf.conf:
1 20 10 1;2;30;4.8;200;0.0001;3000;9974610.60231343;20051223
---
[  9.784851074219E-001  9.239807128906E-001  7.471923828125E-001 
2.080078125000E-001  8.052673339844E-001  2.615051269531E-001 
8.758544921875E-002  7.080078125000E-001  1.281738281250E-003 
8.057861328125E-001  3.954772949219E-001  9.484863281250E-001 
8.286743164063E-001  5.542297363281E-001  8.276367187500E-001 
5.121154785156E-001  8.796386718750E-001  2.090454101563E-001 
3.404235839844E-001  8.410339355469E-001 ]
[  0.000000000000E+000  0.000000000000E+000  0.000000000000E+000 
0.000000000000E+000  0.000000000000E+000  0.000000000000E+000 
0.000000000000E+000  0.000000000000E+000  0.000000000000E+000 
0.000000000000E+000  0.000000000000E+000  0.000000000000E+000 
0.000000000000E+000  0.000000000000E+000  0.000000000000E+000 
0.000000000000E+000  0.000000000000E+000  0.000000000000E+000 
0.000000000000E+000  0.000000000000E+000 ]
---
etc...

 sistema un po' troppo grezzo.
E` l'unico modo possibile.
Tieni conto di questo:
- il file e` un file di testo
- quindi i valori che ci sono dentro sono a lunghezza variabile
- sul disco non puoi fare degli 'insert' nel mezzo a un file
- quindi se non vuoi creare un file temporaneo puoi solo cambiare
  valori con altri di pari lunghezza
-- 
  dakkar
  sono su PerlMonks.org, 
use.perl.org
, PAUSE/CPAN

thks, ...ahime!!
<dak...@nautilus.blackbit.lan> ha scritto nel messaggio 
news:87fyo7i...@nautilus.blackbit.lan...

Newsgroup: it.comp.lang.perl
Titolo: Espressioni regolari in sintassi perl

Scusate,
da un po' di tempo mi sto cimentando con l'utilizzo di espressioni regolari
(anche se in realtà le sto utilizzando programmando in PHP e non in PERL).
Banale dire quanto queste siano potenti e quante cose interessanti 
permettono
di realizzare senza dover scrivere enormi blocchi di codice che 
inevitabilmente
porterebbero a dei possibili bug (che non sempre si manifestano in modo 
evidente).
Ho attualmente delle forti carenze in proposito alla sintassi delle 
espressioni
regolari ed al loro utilizzo, e per questo vorrei perfezionarmi più 
possibile.
Ho provato a cercare un po' con google ma i documenti che ho trovato in 
merito
all'utilizzo ed alla sintassi delle espressioni regolari non mi hanno 
soddisfatto a pieno.
In realtà forse avrei bisogno di esercitarmi per comprendere bene alcuni 
aspetti
della sintassi e per rendere più elastico il mio approccio mentale 
nell'individuare,
per ogni singolo problema da risolvere, la migliore espressione regolare
(sia in termini di chiarezza sia in termini di efficienza).
Avete qualche riferimento da darmi ? Qualche sito, qualche manuale online ?
Mi farebbero molto comodo una serie di esempi dettagliati e documentati che
afrrontano le situazioni più comuni, sia semplici (livello base) sia 
complesse.
Grazie a tutti anticipatamente per l'attenzione, e scusate per il post forse 
un po' OT.
-- 
Riccardo

 complesse.
Parti da "perlre" (
www.perldoc.com/perl5.6.1/pod/perlre.html
), se non
ti soddisfa penso proprio tu debba comprare il libro
"Mastering Regular Expressions"
(
http://www.oreilly.com/catalog/regex/
).
In alternativa puoi cercare esempi con google...
  Raffaello

Volevo segnalarvi questo link penso molto utile:
http://regex.osherove.com/
---
The Regulator is an advanced, free regular expressions testing and learning 
tool.
It allows you to build and verify a regular expression against any text 
input, file or web, and displays matching, splitting or replacement results 
within an easy to understand, hierarchical tree.
---
Saluti
-- 
Riccardo

Newsgroup: it.comp.lang.perl
Titolo: Di cosa ho bisogno per...

 Con il Perl per Windows. Cerca su 
www.perl.com
.
Io consiglierei l'uso di un sistema operativi piu` adatto al perl,
cioe`, lo unix, che in alcune forme e` disponibile gratis.  A me piace
molto il linux (
www.linux.org
), particolarmente la Debian
(
www.debian.org
), ma anche il FreeBSD e` bello (
www.freebsd.org
).
Ciao,
-- 
David Welton                          
http://www.efn.org/~davidw
 
	Debian GNU/Linux - 
www.debian.org

(
www.debian.org
), ma anche il FreeBSD e` bello (
www.freebsd.org
).
Anch'io uso Linux, pero` se lui deve fare solo alcune prove penso gli basti
il Perl per Windows, che tra l'altro funziona anche bene.
	Miky.
-- 
Michele Beltrame
Italpro - Power Web Services
mi...@io.com
http://www.italpro.com/mb
Newsgroup: it.comp.lang.perl
Titolo: Riutilizzo Librerie c++

E' possibile riutilizzare classi C++ già linkate in libreria, in PERL.
Grazie Luca.

 wrote:
: E' possibile riutilizzare classi C++ già linkate in libreria, in PERL.
Non si capisce se sia una domanda o un'affermazione...
Comunque dalla versione 5.005 c'e` il supporto per estensioni in C++.
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) ipers (dot) net   for my PGP public key

Comunque dalla versione 5.005 c'e` il supporto per estensioni in C++.
Scusa la mia era una domanda, grazie mille per la risposta.
Luca

Newsgroup: it.comp.lang.perl
Titolo: Tutti gli header

Come si fa ad aver in un unica variabile tutte gli header?
Grazie in anticipo.

Grazie in anticipo.
Li azzecchi uno dietro l'altro e li assegni ad una variabile:
$riga = "Ciao" . "bello" . "come stai?";
Spero sia questo quello che cercavi.
Se non ho capito, puoi spiegarti meglio?
-- 
ЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,И
http://www.pigmalion.youngwind.com
 pigmalion network
http://www.pigmalion.youngwind.com/perl/
 appunti Perl - FAQ
ЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,И
-- 
Posted from 
relay2.inwind.it
 [212.141.53.73] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Grazie in anticipo.
Se intendi leggendo da un pop-newsserver fai
$head[$count++] = $_ while (<$socket> ne "\015\12");
-- 
Luky aka jack_daniels

Newsgroup: it.comp.lang.perl
Titolo: Caricare il risultato di un ls in un array

Come posso caricare il risultato di un ls in un array in modo diretto senza passare da un file di appoggio ???
------------------------------------------------------------------------
Questo messaggio e` stato inviato da 
http://www.inwind.it

 diretto senza passare da un file di appoggio ???
non ci metterei la mano sul fuoco, ma si dovrebbe fare cosě:
@array = `ls`;

 array in modo diretto senza passare da un file di appoggio ???
Secondo me se ci provavi ci riuscivi! :-)
@files = `ls`;
(non sono apostrofi!!)
Ma è sempre meglio usare le funzioni perl:
perldoc -f opendir 
perldoc -f readdir 
perldoc -f closedir 
Ciao
--ev
Newsgroup: it.comp.lang.perl
Titolo: Formattare stringhe per stampa

Scusate, deveo fare un report e va benissimo Format, ma vorrei anche usare 
i font per formattare le stringhe delle variabili. Mi sapete dare una 
dritta ?? 
Grazie mille anticipatamente
Angelo Lyskam

dritta ?? 
"Format"? Immagino tu intenda "format"; o "Text::Format"?
In ogni caso, se cominci a parlare di "font", inevitabilmente prima o poi ti
troverai a discutere di rendering (stampante o schermo che sia), page
description languages, formati grafici e una moltitudine di altre cose
imbarazzanti.
La mia personale "dritta" e` di fermarti ad una gradevole formattazione
testuale, finche' sei in tempo. Non ho pero` ancora incontrato nessuno cosi`
saggio da seguire questo consiglio, sicche' l'ulteriore "dritta" che mi
sento di darti e` di lasciar fare il lavoro ad altri: scrivi, per esempio,
un documento html, o un documento RTF, o un documento LaTeX, e lasci al
browser, o al word processor, o a LaTeX, il compito di generare l'input per
il renderer (stampante o schermo che sia). Ci sono anche moduli specifici
(RTF, HTML, ecc.), ma comunque sono documenti abbastanza faciile da produrre
anche a botte di print.
Ciao.

 
Di fatto devo generare delle fatture, solo che la gradevole formattazione 
testuale, che io adoro per la sua chiarezza e semplicita', non è 
altrettamto amata dal committente, l'Rtf e L'Html sono due idee splendide e 
che lavori poi il browser od il wp.
Ecco cosa faro':  per i miei personali report vado avanti a testuale, per 
il commiettente faro' esattamente come consigli tu.
Grazie mille Giovanni ed a buon rendering.. scherzo ovviamente a buon 
rendere.
ciao angelo
Newsgroup: it.comp.lang.perl
Titolo: Confronto tra stringhe

ciao a tutti e scusate outlook
come posso verificare in perl l'uguaglianza tra due stringhe a prescindere
da maiuscole e minuscole?
esiste una sorta di funzione equalsIgnoreCase (come quella di java) o c'e'
un modo per simularla?
grazie per le risposte e ciao
Riccardo

 un modo per simularla?
	if ((lc $string_1) eq (lc $string_2)) { }
--
Alla prossima,
Marco

 ha scritto nel messaggio
news:3B8BA13C...@bar.va...


 cosa indica "lc" ???
restituisce una la stringa in minuscolo

 cosa indica "lc" ???
"Lower Case" ovvero "minuscolo".

Newsgroup: it.comp.lang.perl
Titolo: warnings che non capisco

So che magari dovrei postare questo su un ng di linux... in ogni modo
qualcuno sa perchè quando faccio interpretare un codice da perl mi fa una
sfilza di warning a riguardo dei settaggi di "locale" inteso come lingua
della tastiera, come moneta, come un sacco di altre cose... che gliene frega
a perl? C'è un modo di togliere tutte queste evitando di non scrivere "-w"
nella #! /usr/bin/perl ?
grazie
dawe
www.daweonline.tk

usa "use wanrings; ", invece di -w, che ho letto da qualche parte che è
meglio. Poi leggiti un po' di
   perldoc warnings
perché è un pragma molto configurabile, e credo proprio potresti
disabilitare i warnings che non ti interessano.
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

Come ho scritto qui:
http://groups.google.com/groups?q=locale+problems+group:it.comp.lang.perl&hl=it&lr=&ie=UTF-8&selm=3E00E395.3D437B7E%40friuli.com&rnum=3
prova ad applicare questi consigli:
<<
Dovrebbe essere un problema di shell, puoi vedere su
perldoc perllocale
e cerca LOCALE PROBLEMS.
Nel .bash_profile dovresti mettere cose del tipo:
export LANGUAGE="it_IT"
export LANG="it_IT"
export LC_ALL="it_IT"
Gironzolando su google, ho trovato anche un'altra soluzione:
mettere in /etc/sysconfig/i18n:
LC_CTYPE=it_IT@euro
LC_MONETARY=it_IT@euro
LANGUAGE=it_IT@euro
LC_TIME=it_IT@euro
LC_NUMERIC=it_IT@euro
LC_COLLATE=it_IT@euro
LC_MESSAGES=it_IT@euro
LANG=it_IT@euro
 >>
Newsgroup: it.comp.lang.perl
Titolo: cambiare formato csv

salve
ho un file csv contenente delle risposte
le colonne, oltra all'id, sono il nome/numero delle domande
il formato del file è standard
id, campo1, campo2, campo3
1, si, no, forse
2, si, si, no
...
e dovrei farlo diventare così:
id domanda risposta
1  campo1   si
1  campo2   no
1  campo3   forse
2  campo1   si
2  campo2   si
2  campo3   no
etc
come potrei fare?
esiste un qualcosa di già fatto?
magari è un formato noto, particolare, che io non conosco
grazie

 magari è un formato noto, particolare, che io non conosco
Non lo conosco nemmeno io, ma te la cavi con
use strict;
use warnings;
open (FILE, '<', "file.csv") or die "$!\n";
my %hash;
while (my $riga=<FILE>) {
	chomp $riga;
	my ($id,$campo1,$campo2,$campo3)=split /,/,$riga;
	$id=~s/^\s*(.*?)\s*$/$1/;
	$campo1=~s/^\s*(.*?)\s*$/$1/;
	$campo2=~s/^\s*(.*?)\s*$/$1/;
	$campo3=~s/^\s*(.*?)\s*$/$1/;
	$hash{$id}{'campo1'}=$campo1;
	$hash{$id}{'campo2'}=$campo2;
	$hash{$id}{'campo3'}=$campo3;
}
foreach my $id (sort numerically keys %hash) {
	print "$id campo1 $hash{$id}{'campo1'}\n";
	print "$id campo2 $hash{$id}{'campo2'}\n";
	print "$id campo3 $hash{$id}{'campo3'}\n";
}
sub numerically { $a <=> $b }
naturalmente può essere fatto 1000 volte meglio, ad esempio se hai 20
campi puoi fare un ciclo 1..20 per scrivere meno codice.

 come potrei fare?
Per testarlo esegui lo script inalterato.
Per utilizzarlo in produzione, cambia <DATA> con <> (e, se vuoi, rimuovi 
la sezione __DATA__) ed esegui lo script dandogli in input il tuo file 
originale da linea di comando, in questo modo:
cat file_originale.txt | perl 
trasforma.pl
Nel modo predetto ottieni l'output a video. Se invece vuoi l'output in 
un nuovo file:
cat file_originale.txt | perl 
trasforma.pl
 > nuovo_file.txt
(Se necessario cambia la valorizzazione dell'array @nome_campi)
Ciao,
Emanuele.
================================
# salvare nel file: 
trasforma.pl
use strict;
use warnings;
my @nome_campi = qw(campo1 campo2 campo3);
while ( <DATA> ) {
     chomp;
     my @valori = split /,/;
     my $i = shift @valori;
     print "$i\t$nome_campi[$_]\t$valori[$_]\n"
         for 0..$#valori;
}
__DATA__


magari è un formato noto, particolare, che io non conosco
Be', il processo sembra una normalizzazione molto comune (o, viceversa, il
file originale sembra il risultato di un pivot). Alcune implementazioni di
SQL prevedono degli operatori appositi, o comunque metodi generali per
queste operazioni. Una cosa semplice come quella che hai descritto si
risolve comunque con un paio di print.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: [OT?] PCRE e negare parte di un pattern

io ho del testo del tipo
qualunque cosa;qualunque cosa;qualunque cosa;
qualunque cosa;ELEMENTO NON VOLUTO;qualunque cosa;
qualunque cosa;ELEMENTO NON VOLUTO;qualunque cosa;
qualunque cosa;qualunque cosa;qualunque cosa;
ma vorrei poter estrarre da questo testo solo le righe che non contengono
gli "elementi non voluti"
cioe', al momento utilizzo una regexp del tipo
[^;]+;[^;]+;[^;]+;
che pero', ovviamente, accetta qualunque riga, mentre avrei bisogno di
potern dire che, tutte le righe che, in seconda posizione, contengono la
stringa "elemento non voluto", non passino.
Da quanto vedo nelle varie documentazioni che ho trovato sottomano, e'
possibile solo negare un singolo carattere (o comunque un insieme non
ordinato di caratteri). E' giusto, o e' possibile intervenire usando
direttamente le espressioni stesse?
PS: non so se sia del tutto in-topic, in quanto piu' che perl riguarda le
re, ma visto che queste sono una built-in del linguaggio...
-- 
28/2/2005 | -1 all' alba!

 stringa "elemento non voluto", non passino.
  /^[^;]+;(?!ELEMENTO NON VOLUTO)[^;]+;[^;]+;/
"(?!pattern)" è una "zero-width look-ahead assertion" (v. perldoc perlre).
Max

Newsgroup: it.comp.lang.perl
Titolo: Resize di immagini

 age/
magick.pm
 line 52
Sembra che tu non abbia installato correttamente le librerie. PerlMagik e'
solo la parte Perl che ti permette di accedere alle librerie, che devi
comunque installare. Se vuoi maggiori informazioni sul tutto, vai a
http://www.wizards.dupont.com/cristy/ImageMagick.html
, e li potrai trovare
tutto quello che ti serve (e' da dove sono partito io per installare tutto).
    Best regards,
        Kazuma
--
Alex Garbagnati, 
al...@remove.this.messagemedia.com
Manager, Database Development
MessageMedia
Mountain View, CA  94043

mio album fotografico.
Permettono solo il resize o anche il resample?
Sono solo per linux o esistono anche per win?
Ciao
Andrea Busia
No Spam, Grazie.

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

premette di avere iniziato da pochissimo(qualche giorno) e nella stringa
exec 'c:\windows\notepad.exe c:\perl\prove\$
nome.pl
' if ($scelta==1);
il programma legge $nome cosě com'č e non il valore che gli faccio leggere
io...come posso fare?
E poi chiedevo il nome e la sintassi di una funziona per la ricerca dei
file.
grazie
--
___________________________
Mah, we wish in a better tomorrow

 file.
 io utilizzo sempre, per costruirmi una routine di ricerca,
 l'utility find2perl
 distribuita con Perl: la sintassi e' uguale all'equivalente find
 su unix (man find)
(es. find2perl ./ -name *.txt > 
find.pl
 )
Ciao
Charlie

 exec("C:\\windows\\notepad.exe c:\\perl\\prove\\$
nome.pl
Già - e in + scommetterei che quello che il poster vuole è system, non exec...
Cheers,
alf
Newsgroup: it.comp.lang.perl
Titolo: Socket :)

Ciao a tutti,
come si può fare per rendere i socket non bloccanti ???
Ad esempio io dovrei fare una cosa del genere:
while (1){
   $buf = <$socket>; #$socket è il socket
   last if ($buf eq $stop);
}
però la chiamta $buf = <$socket> blocca l'eseguazione...
Aiutatemi !!!!!!!
Grazie :-)
--
Posted from 
king.madnet.it
 [195.223.65.2]
via Mailgate.ORG Server - 
http://www.mailgate.org

 Aiutatemi !!!!!!!
Io ho fatto cose simili con 
ioctl.ph
 che e' molto OS-specifico.
Scommetterei che nelle (relativamente) nuove librerie di IO (perlIO?)
c'e' quello che ti serve. perldoc perlfaq...
Cheers,
	Alessandro

 Aiutatemi !!!!!!!
Usare le socket e' discretamente complicato.
Un occhiata alla documentazione in mio possesso sembra suggerire che
il modo per avere le socket (o i file) non bloccanti sia quello
di aprire il file in modalita' 'non-blocking'
con gli appositi flag all'apertura o cambiarne lo stato usando fcntl
(flag O_NONBLOCK).
Credo quindi sia necessario andare poi di sysopen, select e sysread, 
evitando  l'IO bufferizzato di <>.
Non ho ulteriori esperienze.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@tuttocitta.it
 
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

l...@madnet.it
 wrote:
: come si può fare per rendere i socket non bloccanti ???
use Fcntl qw(F_GETFL F_SETFL O_NONBLCK);
$flags = fcntl($socket, F_GETFL, 0) or die "$!\n";
$flags = fcntl($socket, F_SETFL, $flags | O_NONBLOCK) or die "$!\n";
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) ipers (dot) net   for my PGP public key
Newsgroup: it.comp.lang.perl
Titolo: standard input

 Io non ho trovato niente in <STDIN>, e' lui lo standardinput?
STDIN e' lo standard input, ma non c'e' niente perche' non gli stai passando
niente.
Spero che tu non stia pensando di scrivere CGI andandoti a leggere lo STDIN
e magari parsificandoti tu tutti i parametri e ripulendoti tutti gli escape!
Se devi fare CGI, usa CGI.pm. Se e quando poi ti funziona tutto, allora
pensa pure a farti la tua interfaccina personale per leggere i parametri.
Fino ad allora, fai fare il lavoro a chi lo dovrebbe saper fare bene e 
preoccupati solo della parte interessante del tuo programma.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Ho deciso di svolgere la mia tesi in perl.
E subito  mi e' nato un problema, mandando in esecuzione un mio
cgi.pl
 con in seguente url  
mioserver:8080/cgi-bin/
visualizza.pl
$text.txt
ed utilizzando il metodo POST,
il parametro diretto text.txt andra' nello standardinput del perl?




In realta' l'URI "mioserver:8080/cgi-bin/
visualizza.pl
$text.txt" utilizza
il metodo "GET" e per cio' l'accesso al testo "$text.txt" (non "text.txt")
si ritrova nel parametro $ENV{'QUERY_STRING'}.
In oltre, ci sono altri problemi con l'URI
"mioserver:8080/cgi-bin/
visualizza.pl
$text.txt":
La maggioranza die HTTP server non riconoscono il "$" come cosi' detto
"delimitor" e per cio' cercherebbero di respedire al user la pagina
"
visualizza.pl
$text.txt", che non esiste.
Usando invece "mioserver:8080/cgi-bin/
visualizza.pl?text.txt
",
$ENV{'QUERY_STRING'} contiene "text.txt".
Per esempio:
http://fariello-0.dsl.speakeasy.net/admin/env.cgi?text.txt
Mostra questo.
Piu' difficile e' la situazione con il metodo "POST", ed e' di solito
preferevole usare CGI.pm per manipolare questa informazione, ma e'
sufficiente usare
sub Get_POST_params
  {
  my (%VAR,$buffer,@pairs,$pair,$name,$value) = ();
  read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  @pairs = split(/&/, $buffer);
  foreach $pair (@pairs)
    {
    ($name,$value) = split(/=/, $pair);
    # Un-Webify plus signs and %-encoding
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    # Stop people from using subshells to execute commands
    $value =~ s/~!/ ~!/g;
    $name =~ tr/+/ /;
    $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $VAR{$name} = $value;
    }
  return %VAR;
  }
Se vioi solamente leggere il contenuto del "query", si trova in modo di
solito illegibile nel STDIN.
Purtroppo, l'italiano non e' la mia lingua madre anche se sono discendente
di genitori italiani (ma perl lo e') per cio' chiedo scusa per
l'ortografia e la grammatica.
-Gabriele
Newsgroup: it.comp.lang.perl
Titolo: Dal browser

Avrei un dubbio riguardo l'utilizzo di perl.exe dal mio browser. Ho
lasciato sul server che ospita il mio sito il file perl.exe in modo da
poter passare dei parametri che mi permettano di leggere dei file di
testo che altrimenti dovrei downloadare ogni volta. 
Mi servirebbe insomma conoscere questi parametri.
Es.:
www.miosito.com/perl.exe%20param%20nomefile
...si puň fare?
Grazie.



Hai messo l'esguibile in una directory accessibile da web? fortuna che
non hai scritto il nome del sito, avrestirischiato di non trovarlo
piů. Leggiti qualche documento sul funzionamento dei cgi e togli da lě
quell'interprete
Ciao
Andrea Busia
No Spam, Grazie.

Newsgroup: it.comp.lang.perl
Titolo: Aprire un pdf in perl

E rieccomi con al solito per chiedervi l'ennesima dritta :-P
Devo poter aprire un file pdf con il perl, ma a quianto pare ciò che
visualizza non corrisponde esattamente con il contenuto del file pdf.
Il mio script è il seguente:
#!/usr/bin/perl
#!/usr/bin/perl
############################################################################
##
use CGI qw/:standard/;
use lib "lib";
use CGI::Carp qw(fatalsToBrowser);
#use TAPORlib 8.70;
use TAPORlib 8.70;
#$CURRENTDIR = (param('CURRENTDIR'));
#$FILETOUNZIP=(param('FILETOUNZIP');
#$FILEZIP=(param('FILEZIP'))
$CURRENTDIR="";
$FILETOUNZIP="1003.pdf";
$FILEZIP="1003.zip";
system ("
extract.pl
 -j $CURRENTDIR$FILEZIP $FILETOUNZIP");
#print header,
"Content-type: application/pdf\n\n",
#"<html><head></head><body>";
#print "extention:-".$extention."-";
open (FILE, "< $FILETOUNZIP");
$i=0;
while($riga = <FILE>)
{
 print $riga."\n";
}
close FILE;
#print "</body></html>";
unlink ("$FILETOUNZIP");
ma mi stampa solo caratteri strani.
Se tiro via il # e utilizzo un file html lo script invece funziona alla
grande.
Che sia il while che manda tutto a quel paese??
Mercì!!

grande.
Questo deve avere a che fare con le cose di cui non ne so mezza.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: debuggare un demone

Non sono molto esperto di perl, quindi chiedo delucidazioni.
Ho un demone, che ogni tanto va al 100% di cpu. Lo stoppo, lo restarto e
continua a rifunzionare. Secondo voi un demone in perl come lo si debugga?



Con un log?
 Raffaello

 Con un log?
Si con quello si. Mi stavo chiedendo se esisteva un qualcosa di piu'
evoluto per riuscire a debuggare un demone :) Magari era solo una
mia pippa mentale.
-- 
Posted via a free Usenet account from 
http://www.teranews.com
Newsgroup: it.comp.lang.perl
Titolo: applicazioni web con perl

Sto sviluppando applicazioni basate sul principio di un web server
apache con mod perl. Ad es gestioni ordini, bolle, fatture etc.
Mi interessava sapere se ci sono persone che stanno facendo le medesime
cose (o analoghe )e quindi avere un contatto anche solo per lo scambio
di informazioni che non sempre sono di facile reperimento e
applicazione.
Ad es. nel passaggio dalla versione 1.3 alla 2.0 di apache anche modperl
è cambiato molto. Con Apache::compat si risolvono molto problemi, ma non
tutti e cmq con fatica.
Mi interesserebbe capire chi usa perl fra di voi, per quali scopi lo usa
generalmente. Se per il web o no.
grazie
Paolo
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 generalmente. Se per il web o no.
E che domande? Tu non ci hai mai fatto anche il caffè? ;-))
by
	- Enrico

 generalmente. Se per il web o no.
Io uso per quasi x tutto. Per la maggiore uso Perl per Windows (ActivePerl
5.6)
sia x applicazioni web che applicazioni Win32 con l'uso dell'ottimo
Win32::GUI scritto da Aldo Calpini.
Qualche esempio ?
X web: 
www.soundfonts.it
, 
www.artepreziosa.it
, 
www.2piu2.it
, 
www.gmlab.it
 (+
che altro quello che c'è dietro), ecc..
X win32 ho fatto qualcosa che ancora non sta on line, tipo un sistema
completo client-server di gestione del telemarketing,
un programma di supporto per dei siti di commercio elettronico (scritti in
asp), e tanti programmini vari...
Soprattutto uso Perl per fare procedure batch per l'inserimento di dati nei
database, tipo leggere files di testo e ficcarne il contenuto
in database mysql, access, mssql ecc.. Inoltre, lo uso x interfacciare i
daemon dei servizi di rete con il web.
Piu' uso perl e piu' mi rendo conto che questo linguaggio è versatilissimo!
Si potrebbe fare di tutto... Ma anche perl, come tanti altri linguaggi, ha i
suoi limiti... x esempio non posso creare gli strumenti VST x Cubase :-) Ci
vuole c++ !
In effetti anche io sono sempre stato curioso di sapere cosa fanno con perl
tutti quelli che scrivono su questo NG, vedere qualche creazione, creare
qualche progetto comune... :-)
::guido::

Newsgroup: it.comp.lang.perl
Titolo: Files Binari ed MySql

Buongiorno...
sto cercando di inserire files binari dentro un Db Mysql...
uil prob. è che creando la stringa SQL vengono fuori degli errori...
di sicuro esiste qualcosa di meglio, e soprattuttodi funzionante..
qualcuno può darmi una dritta???
thx
Scafuz

 qualcuno può darmi una dritta???
BLOB! 
http://www.mysql.com/doc/B/L/BLOB.html
Quindi consulta la documentazione di DBI alla voce:
  "Handling BLOB / LONG / Memo Fields"
Max

Ma io sto già usando dei Blob, è che non ho travato nessun riferimento al
come caricarci dentro i dati...
verifico sulla documentazione DBI...
grazie!!
[snip]

Newsgroup: it.comp.lang.perl
Titolo: AIUTO!!!!!! perl e Mysql

Ciao,
Uso la versione del perl 5.003, con sopra installato mysql 3.22.20a, su una
maccchina AIX (Unix-like)
Nessun problma con mysql, tutto a post, neanche con www-sql (uso la versione
0.5.7), tutto funziona bene. Ma quando vado a installare i moduli per il
perl, Mysqlperl-1.17 si blocca durante la compilazione.
dandomi prima dei warning
"
Mysql.c: In function `XS_Mysql__Statement_mysql_fetchrow':
Mysql.c:335: warning: initialization from incompatible pointer type
Mysql.c: In function `XS_Mysql__Statement_mysql_fetchhash':
Mysql.c:383: warning: initialization from incompatible pointer type
"
e poi arrestarsi con questa videata:
"
Running Mkbootstrap for Mysql ()
        chmod 644 Mysql.bs
LD_RUN_PATH="/usr2/mysql-src/Mysqlperl-1.17/lib:/usr/local/lib/gcc-lib/p
owerpc-ibm-aix4.1.4.0/
2.7.2.1/common
" ld -o
./blib/arch/auto/Mysql/Mysql.so -bha
lt:4 -bM:SRE -bI:/usr/local/lib/perl5/aix/5.003/CORE/perl.exp -bE:Mysql.exp 
-b n
oentry -lc -L/usr/local/lib
Mysql.o    -L/usr2/mysql-src/Mysqlperl-1.17/lib -lmy
sqlclient -L/usr/local/lib/gcc-lib/powerpc-ibm-aix4.1.4.0/
2.7.2.1/common
 -lg
cc
ld: 0711-317 ERRORE: Simbolo non definito : .floor
ld: 0711-345 Usare l'opzione -bloadmap o -bnoquiet per avere ulteriori
informazi
oni.
make: 1254-004 Il codice errore per l'ultimo comando è 8.
Arrestare
".
Sinceramente non so piu' che fare ... non c'e' un modo per poter usare i
moduli senza "problemi" di compilazione?
Ho provato a usare mysqlperl, versione 3.20.32a, ma era per linux.
Recuperati  i sorgenti dal pacchetto RPM, li ho compilati e installati senza
problemi. Piccolo inconveniente ... non si comportano come dovrebbero ...
ovvero quando interrogo il database, le sue risposte non sono molto ....
esatte ... nel senso che i risultati delle risposte non sono praticamente
utilizzabili (mi restituisce un indirizzo di memoria!!!).
Qualcuno sa aiutarmi?
Ci sono delle soluzioni valide? Ho provato ad installare DBI, ma mi richiede
il perl 5.004 come minimo, e non posso aggiornare il perl sulla macchina,
almeno non in tempi brevi ... Se installo quei moduli, che cosa devo avere
installato sul mio sistema? Ci sono dei moduli e/o librerie necessarie?
Grazie
    Tonio Polia
P.S. Se possibile, rispondetemi in provato, il mio server delle news
funziona molto, ma molto a singhiozzi .... ovvero un giorno si' e 10 no!!!!!
email: 
po...@aixopenet6.ope.net
Se si', spero

...
