mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Come usare un DB?

Ciao a tutti,
ho cominciato da poco a programmare in Perl. Finora ho usato solo
files sequenziali e non ho avuto problemi.
Ora, dovrei gestire dei dati usando un DB, ma non so che tipo di DB
usare.
Cosa mi consigliate tenendo conto che:
- il server e' linux con perl5, CGI.pm ecc. (insomma una
configurazione standard...)
- non posso (e non vorrei chiederlo) mettere mani alla configurazione
del server (es. per definire un ODBC)
- conosco abbastanza bene il linguaggio SQL standard.
Grazie e ciao
Dudu

usare.
Ti consiglio mysql oppure postgreSQL. Per il primo dovresti utilizzare i
moduli:
DBI
Data-ShowTable
Msql-Mysql-modules
Per il secondo (che tra l'altro č un ORDBMS) dovretsi utlizzare
PG.pm
Ciao

 PG.pm
A parte questi consigli, sarebbe interessante sapere anche per cosa bisogna
usare il DB.
Ad esempio, se i dati non sono troppo strutturati, e quello che serve e'
solo l'accesso indicizzato, un DBM tipo DB_File puo' andare bene ed e'
integrato discretamente nel linguaggio (tramite 'tied' hash).
Ovviamente se c'e' bisogno di cose piu' complesse o di accessi contemporanei
ai dati, e' opportuno rivolgersi direttamente agli RDBM.
Personalmente, mi sono trovato bene con MySQL.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

> integrato discretamente nel linguaggio (tramite 'tied' hash).
Ciao Maurizio,
cosa intendi esattamente per tied hash??
Ciao e Grazie,
Salva

 cosa intendi esattamente per tied hash??
Cosa dovrei intendere? Esattamente quello che sono i 'tied' hash in Perl,
ovvero delle variabili dove ogni volta che si legge o si scrive, in realta'
si sta leggendo o scrivendo qualcos'altro (in questo caso un file, ma
potrebbe essere anche della memoria organizzata in maniera particolare, o
chissa' cosa...)
E' il modo naturale per usare i DBM in Perl (parlo di DBM, non di RDBM,
chiaro...).
Dettagli in 'perltie' ('man perltie', ovvero 'perldoc perltie' ovvero la
corrispondente pagina HTML dell'help ActivePerl).


Newsgroup: it.comp.lang.perl
Titolo: scrivere su FILE...HELP!!!

Ciao a Tutti,
inanzi tutto sono un newbie assoluto, premesso cio' ho scritto il
seguente script cgi in Perl:
#!/usr/bin/perl
$fileout = "/web/html/out.html"; 
open (FILE, ">>$fileout")or die "Qualcosa non va\n";
print FILE "<html><head><body bgcoclor>";
close (FILE);
posto sotto la directory cgi-bin, settato i permessi  e lanciato via
browser NON NE VUOLE SAPERE DI PARTIRE 
nota che ho gia fatto ed eseguito lo stupidissimo "Ciao mondo" (quindi
in teoria il server funziona correttamente).
Un ultima cosa: il file di output e' stato creato da me prima delle
secuzione, messo nella directory giusta e settato chmod 777 inquando
deve essere scritto!!!!!
MA IN CHE CAZZAROLA SBAGLIOOOO?!?!?!?!?!?!?!?!?
PLZ. Help Me!!
Grazie.

 ha scritto nel messaggio
news:38c545ff...@news.tin.it...


 wrote in message
news:8a5oef$o3p$1...@pegasus.tiscalinet.it...

Newsgroup: it.comp.lang.perl
Titolo: costringere una cgi a scrivere su file

forse qualcuno mi puo' aiutare, sto sbattendo la testa su questo
problema da giorni senza riuscire a venirne a capo.
Sto scrivendo una cgi che prende dei parametri passati da un programma,
compone una mail, la spedisce e dovrebbe registrare su un file di testo
un identificativo dell'operazione appena compiuta.
Il mio problema e' che mentre la mail viene spedita senza problemi (si
tratta di un testo inviato tramite pipe a sendmail), non c'e' verso di
far scrivere l'identificativo sul file di registro.
Ho provato di tutto:
1. il semplice open ..., print ..., close ...
2. chiamare con system un programma esterno che faccia la stessa cosa
3. settare la variabile $| =1
4. usare eval oppure do con il solito programma esterno
premetto che sviluppo su un sistema linux e il webserver e' apache
se qualcuno puo' darmi qualche dritta ...
Ciao
jc

 un identificativo dell'operazione appena compiuta.
Come sei messo a permessi nella directory in cui il file dovrebbe essere
creato?
Io ho avuto un sacco di problemi del genere su un sys Fedora C3 con SELinux
attivato sulle dir di Apache.
stefano

 
Ti sei sincerato che 'open' e 'print' restituiscano non-zero? Se una delle 
due non ha successo (vedrai che sarà la 'open'), stampa "$!". 
Max

grazie ad entrambi,
il problema era dovuto ai permessi sulla directory contenente il file
su cui scrivere: il processo che governa il webserver non aveva diritto
di scrittura sulla directory (anche se io avevo impostato su directory
e file "chmod 777" ). Il sistema sul quale sviluppo e' un AFS e il
comando che su consiglio del sistemista ho usato e'
fs sa  /path_to_directory/data/  webserver:afs  write
ciao 
jc
Newsgroup: it.comp.lang.perl
Titolo: Isogest new release!

Salve a tutti,
potrete trovare su 
isogest.sourceforge.net
 l'ultima release.
Isogest e' una suite di pogrammi per ufficio scritta completamente in
Perl.
Ogni commento e' gradito.
Saluti
Luca Dante Ortolani

...

Newsgroup: it.comp.lang.perl
Titolo: eseguire perl su windows: come?

Spesso mi sono trovato a voler scrivere dei script in perl ma non poterlo 
fare perchè
stavo utilizzando windows.
Come posso utilizzare perl sotto windows?
cosa mi serve? cosa è? dove si scarica?
Grazie in anticipo,
Mario. 

 
Oh no, hanno chiuso Google! :-(
 
http://www.perl.com/download.csp#win32
 
http://www.activestate.com/ActivePerl/
Max


E pensare che bastava andare su Google e scrivere "perl windows".
Il PRIMISSIMO risultato che ne viene fuori è proprio quello 
dell'activestate.
Strano che uno che afferma di aver scritto spesso script in perl non sappia 
scrivere "perl windows" in una casellina di testo.

 ha scritto nel messaggio 
news:32t4tiF...@individual.net...


ricerche mirate anche utilizzando la vostra esperienza.
Le ricerche mirate si possono fare quando si mira a qualcosa, tu dai
l'impressione di sparare a casaccio nel mucchio: è assai difficile che
qualcuno, macchina o uomo che sia, possa darti una risposta sensata.
Così come è difficile trovare una "soluzione ottimale", se neppure si
ha chiaro quale sia il problema. Intanto, di Perl sostanzialmente ce
n'è uno e uno solo, sicché, da questo punto di vista, "una soluzione"
è anche "la" soluzione" e, di conseguenza, "la soluzione ottimale".
Ciao.

Non voglio trasformare questo thread in polemiche soprattutto
verso persone che hanno dedicato il loro tempo prezioso per rispondere alle
richieste di aiuto. Verso le quali sono debitore e grazie alle quali io e 
molte altre persone crescono ogni volta.
Anzi colgo l'occasione di ringraziearle ancora.
Ho risposto solamente perchè mi sembrava corretto, nei loro confronti, 
sottolineare che la mia richiesta non
aveva il fine di ottenere una risposta perchè non la volessi cercare su 
google ma
aveva il fine di chiedere un consiglio a chi avesse esperienza su quali 
soluzioni esistono
e quale era la migliore per far girare il perl sotto windows (ad esempio, se 
non sbaglio, esiste anche cygn...?).
Spero di aver chiarito il malinteso e penso che sia meglio non intasare il 
ng con discussioni OT.
Mario.

perl sotto windows (ad esempio, se non sbaglio, esiste anche cygn...?).
Che infatti ci siamo guardati bene dal consigliarti.
A parte questa, che è la peggiore, tutte le altre soluzioni si
equivalgono. Ci sono bensì altre implementazioni, oltre ad
Activestate, ma le differenze sono più politiche che tecniche.
A meno che non ti interessino soluzioni dedicate, come il modulo
perl di Apache, o ambienti IDE, o altro, ma sono tutti discorsi
che riguardano la "mira" che hai accuratamente mancato di prendere.
L'interprete, in ogni caso, è sempre quello, per potersi chiamare
Perl.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: DOM to String (e viceversa )

Su javascript ho trovato una funzione
parseFromString( str )
che data in input una stringa contentente un documento XML restituisce la
struttura dati relativa a quel DOM.
Inoltre ho trovato la funzione inversa che dal DOM crea una stringa
contenente il corrispettivo XML.
serializeToString ( node )
Mi chiedevo se in perl esistono librerie che fanno la stessa cosa.
Grazie.
--Gabriele

C'e' un parser in perl XML::PARSER mi sembra..
Vai su google e fai una ricerca con PARSING PERL XML
e troverai sicuramente questo parser, penso sia interfacciato con SAX.
Scusa la brevità del mex.
Ciao. Davide.


Newsgroup: it.comp.lang.perl
Titolo: parsing di documenti microsoft Word

C'è qualcuno che ha mai affrontato il parsing di documenti Word con perl ?
E' possibile farlo ?
Vincenzo


Se vai su
http://www.greenstone.org
trovi un sistema open source per gestire collezioni di documenti PDF, WORD,
HTML e testo. Il sistema permette la creazione di indici full-text (e quindi
parsa i documenti word)
Per ogni formato, il sistema carica un plugin al quale e' delegato il
compito del parsing di quel formato.
E i plugin sono scritti in PERL!
Quindi greenstone contiene uno script perl che apre e parsa un documento
word.
Ho verificato che e' vero, ma non ho capito come funzionano :-(
Ciao
Mauro

 wrote in message
news:ac0fvs$1d2o2$1...@news02.it.net...


Newsgroup: it.comp.lang.perl
Titolo: Procedura di trascodifica caratteri

Ciao a tutti gi esperti di Perl!
Devo fare una funzione che (data una stringa come input):
1) trasformi le minuscole in maiuscole
2) sostituisca la punteggiatura (punto, trattino etc...) con uno spazio
3) converta i doppi spazi in uno spazio solo
4) i numeri vengano formattati a 6 cifre (GEN.B06.53 diventa GEN B000006
000053)
Potete per favore aiutarmi, anche in uno solo di questi punti?
Grazie infinite!
--
: Maurizio I     (21Y,50HP,700MHz,TO)
: ICQ #
4182145900
 (togli 00)
: Oo=(w)=oO POLO 1.4 TDI Trendline (next week)

 000053)
s/(\d+)/sprintf("%06d", $1)/eg;
-- 
/federico

 ha scritto nel messaggio
news:5dej2a....@federico.milano.yahoo.com...
Ti ringrazio molto per l'aiuto :-))
Potresti perň spiegarmi meglio come applicare queste 3 funzioni?
 s{[.-!;,]}{ }g;
 s{\s+}{ }g; # converte spazi multipli in uno solo
 s/(\d+)/sprintf("%06d", $1)/eg;
Grazie ancora.


  s/(\d+)/sprintf("%06d", $1)/eg;
sono regular expression e vengono applicate implicitamente alla stringa $_;
s{[.-!;,]}{ }g;
equivale a scrivere
$_ =~ s{[.-!;,]}{ }g;
o se preferisci
$_ =~ s/[.-!;,]/ /g;
per avere maggiori info:
perldoc perlre
perldoc perlop
-- 
/federico

 perldoc perlop
Grazie infinite, in 10 secondi ho fatto tutto e funziona a meraviglia!!!
:-)))
--
: Maurizio I     (21Y,50HP,700MHz,TO)
: ICQ #
4182145900
 (togli 00)
: Oo=(w)=oO POLO 1.4 TDI Trendline (prossima settimana, ma dubito)

Newsgroup: it.comp.lang.perl
Titolo: Cerco un sito che offra gratis cgi in c++ e non solo in perl


zava...@hotmail.com
mmm sono sempre io forse mi sono spiegato maluccio
Cerco un sito che offra spazio web gratuito, non importa quanto, e accesso 
alle cgi-bin, non solo in perl.
Grazie 
zava...@hotmail.com


Newsgroup: it.comp.lang.perl
Titolo: chiamare direttamente una pagina html

Come si fa chiamare direttamente
 una pagina html da un cgi in perl???
grazie

menego wrote:

Scusa, puoi dirci esattamente cosa devi fare?

 ha scritto nel messaggio
news:3B55FC7D...@cult.ru...

Una pagina html chiama il cgi in base a una variabile
rimandare il tutto a una pagina o ad un'altra senza incorporare
il codice html.

print "Location: 
http://www.nomedominio.it/directori/file.html\n\n
";
Ciao
-- 
Posted from [212.141.54.103] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

menego wrote:

Aha!
Viene spiegato in questo stesso newsgroup alla voce "apertura di una
pagina web dal browser corrente" dello scorso 2 luglio (ma leggetele
quelle vecchie!) ;-)
Comunque basta fare:
print "Location: 
http://url.che.vuoi
\n\n";
ma perché funzioni deve essere la PRIMISSIMA cosa ad andare in stampa
(non devi stampare il "Content-type" o altro).
Ciao

Newsgroup: it.comp.lang.perl
Titolo: SOS!!!

Salve,
io dovrei fare un programmino perl che compilata una form HTML spedisca in
automatico una mail... fino qui tutto ok... solo che non riesco a spedire
pure un attachment!!
Come potrei fare dato che l'immagine da attaccare non è sempre la stessa??
Grazie,
  Veronica

v.mont...@tdnet.it
 wrote:
 >io dovrei fare un programmino perl che compilata una form HTML spedisca in
 >automatico una mail... fino qui tutto ok... solo che non riesco a spedire
 >pure un attachment!!
Usa il modulo MIME:Lite.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

 Come potrei fare dato che l'immagine da attaccare non è sempre la stessa??
Potresti utilizzare il CGI Upload (MIME type: multipart/form-data, se
non sbaglio). Netscape lo supporta almeno dalla  versione 3: inserisci
un campo <INPUT TYPE=FILE> e puoi includere qualsiasi file presente sul
tuo sistema. Se devi fare prove con /etc/passwd non postarlo qui ;)
Ciao, divertiti!
Marco
-- 
                            _  _  _
            MARCO MARONGIU |  |_||_ |_| email: 
bro...@tex.unica.it
Computers & Networks Group |_ | \ _|  | WWW  : 
gulch.unica.it/~bronto
       3rd Floor, Room 316 ------------ Tel. : +39 70 2796 259
_____________________________________________________________________
If this mail is in English, please forget errors and mispellings, tnx

 
Uhm la tua soluzione ha 1 piccolo difetto
Non gira con i browser microsoft (non so nemmeno se internet explorer
4.0 supporti il file upload)
Quindi verrebbero tagliati fuori molti utenti (anche se l'idea di usare
internet explorer come browser gia' di per se' e' pessima...), comunque
a voi la scelta.. 
Ciao
		Davide

Newsgroup: it.comp.lang.perl
Titolo: Activeperl... errore??

Usando Activeperl 5.6 su win 2000,
succede che, usando il modulo CGI, il comando
print br;
che dovrebbe dare in output "<BR>" fornisce invece "<BR />".
Qualcuno me la spiega, per favore?
Max

 
Versione XML-compliant del tag HTML. I browser dovrebbero accettarla senza
lamentarsi.
Max

Grazie!
Infatti non si lamentano!!!
Max (anche io)
Newsgroup: it.comp.lang.perl
Titolo: Installazione modulo Oracle.pm (win e linux)

Please help!
Dovendo accedere a un DB Oracle per acquisire dei dati e travasarli in un
altro DB MySQL, sto cercando di installare il modulo aggiuntivo
DBI::Oracle su due macchine (win2k e linux RH).
Sulla macchina win2k, lancio "PPM", effettuo la ricerca con "search
Oracle" e ottengo:
ppm> search oracle
Searching in Active Repositories
  1. Class-DBI-Oracle [0.51] Extensions to Class::DBI for Oracle
  2. DBD-Oracle       [1.16] Oracle database driver for the DBI module
  3. DBIx-OracleLogin [0.02] takes a string and splits out individual
login in~
  4. DBIx-OracleLogin [0.02] takes a string and splits out individual
login in~
  5. DDL-Oracle       [1.11] a DDL generator for Oracle databases
  6. Oracle-Trace     [1.06] Perl Module for parsing Oracle Trace files
ppm>
eseguo il comando "install 2", il package viene scaricato e scompattato,
mi viene visualizzata la pappardella relativa al "license agreement" e la
relativa richiesta di accettarlo o meno, rispondo "Y" e... BOOOM succede
il finimondo:
mi appare la finestra/segnalazione che "Perl.exe ha provocato errori e
verrà chiuso" e, nella finestra DOS, la seguente sbrodolata:
===============================================================
Bizarre SvTYPE [128] at install_script line 82.
unlink D:\Perl\bin\ora_explain
unlink D:\Perl\bin\ora_explain.bat
unlink D:\Perl\site\lib\DBD\Oracle.pm
unlink D:\Perl\site\lib\DBD\Oracle\GetInfo.pm
unlink D:\Perl\site\lib\DBD\
mkta.pl
unlink D:\Perl\site\lib\Oraperl.pm
unlink D:\Perl\site\lib\auto\DBD\Oracle\Oracle.bs
unlink D:\Perl\site\lib\auto\DBD\Oracle\Oracle.dll
unlink D:\Perl\site\lib\auto\DBD\Oracle\Oracle.exp
unlink D:\Perl\site\lib\auto\DBD\Oracle\Oracle.h
unlink D:\Perl\site\lib\auto\DBD\Oracle\Oracle.lib
unlink D:\Perl\site\lib\auto\DBD\Oracle\Oracle.pdb
unlink D:\Perl\site\lib\auto\DBD\Oracle\dbdimp.h
unlink D:\Perl\site\lib\auto\DBD\Oracle\
mk.pm
unlink D:\Perl\site\lib\auto\DBD\Oracle\ocitrace.h
unlink D:\Perl\site\lib\
oraperl.ph
unlink D:\Perl\site\lib\auto\DBD\Oracle\.packlist
Can't remove directory C:\DOCUME~1\MARIO\IMPOST~1\Temp/DBD-Oracle-1-1840-
1131973100: Permission denied at D:/PERL/site/lib/PPM/Repository.pm line
247
Error: (un)install script failed: 'D:\Perl\bin\perl.exe install_script'
ppm>
==================================================
Questo per quanto riguarda win2k... per Linux rimando alla prossima
puntata...
Che cosa mi consigliate di fare per risolvere il problema?
grazie in anticipo per l'aiuto
m.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 DBI::Oracle su due macchine (win2k e linux RH).
Per quanto riguarda Win2k questo thread potrebbe esserti d'aiuto:
 
http://www.perlmonks.org/?node_id=509678
Per Linux, una volta che hai installato il client Oracle, non dovrebbero esserci
problemi a compilare ed installare il driver DBD::Oracle.
by
	- Enrico
--- have fun with 
www.perl.it
 ---
Newsgroup: it.comp.lang.perl
Titolo: variabile da un comando esterno

se io faccio per esempio date +%H (che prendere il numero delle ore al
momento) come faccio ad associarlo ad una variabile?? 
bau

 al momento) come faccio ad associarlo ad una variabile??
	$a=`date +%H`;
  In alternativa:
	$ perldoc -f localtime
	Alla prossima,
		Marco
Newsgroup: it.comp.lang.perl
Titolo: posizione finestra

Salve a tutti.
Ho fatto un contatore di accessi in Perl.. e vorrei che quando clikko sul
contatore mi si apra o una finestra o una pagina html nella quale mi viene
rikiesta la password.
Io ho provato e vi riporto una parte dello script:
print ("<A HREF=\"#\"
onClick=\"open('
http://www.sopeco.it/pass.htm
','$left','height=50,width=200,
left=$left,top=0')\">$vediamo_ste_immagini</A>");
Il punto č, vorrei che la finestra popup ke appare, si aprisse al centro
della finestra del browser.
Ho provato a settare la variabile $left come:
$left = (screen.height-200)/2;
Ma non funziona, come posso fare? C'č una funziona particolare in perl, tipo
get.qualcosa che mi da lo stesso valore ke otterrei con screen.height in
javascrip?
Ringrazio per l'attenzione.
Ciao!
Manuel

 javascrip?
Non c'e` modo, lato server, di conoscere aspetti del client quali la
dimensione della finestra, e tantomeno di impostarli. Devi operare in
JavaScript, e che io sappia e` possibilissimo fare il lavoro che stai
cercando di fare. Tuttavia, questo e` il newsgroup sbagliato. ;-)
Michele.

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

Date un occhiata a questo nuovo mio gioco iniziato 1 giorno e mezzo fa...
sono le 3:00 vado a nannaaa
http://www.kobrass.it/spacebrick.html
Saluti
Paolo Fusco Kobrass
Paolo...@kobrass.it
www.kobrass.it
PFK

Date un occhiata a questo nuovo mio gioco iniziato 1 giorno e mezzo fa...
http://www.kobrass.it/spacebrick.html


 
http://www.kobrass.it/spacebrick.html

ma è spam!!! ??? o cosa ? :PPP
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************

Newsgroup: it.comp.lang.perl
Titolo: puntatori a subroutines

Ciao
qualcuno mi riassume i vantaggi (altrimenti perche' esistono?)
ed i trabocchetti (questi sicuramente ci sono) dell'utilizzo dei puntatori
a subroutines ?
PECCHE'?
grazie
 Raffaello

 a subroutines ?
   Mah... Basta stare attenti. ;)
-- 
Alla prossima,
Marco

 puntatori a subroutines ?
  Al momento non me ne viene in mente nessuno...
Ciao
Mattia

Newsgroup: it.comp.lang.perl
Titolo: Pattern Matching

Ciao a tutti, vi posto la breve routine che mi serve per riconvertire uno
stupido file.
Al termine del processo, il nuovo file contiene, la virgola ( , ) , al posto
dell' iniziale ' ; ' , solo al primo termine. Ossia, dal secondo termine in
poi del record, rimangono il ' ; ' , perche ?????
#!/usr/bin/perl
open(DB,"<ClientiPotenziali.csv");
open(DBO,">>ClientiPotenziali__.csv");
while ($riga = <DB>){
   chop $riga;
   $riga =~ s/\;/\,/m;
   print DBO "$riga\n";
}
clode DB;
close DBO;
Grazie
Simon

    $riga =~ s/\;/\,/m;
    $riga =~ s/\;/\,/g;
 perldoc perlre
MM

 ha scritto nel messaggio
news:Pine.LNX.4.21.0302141533020.30383-100000@blomma...

Newsgroup: it.comp.lang.perl
Titolo: postgres e metadata

Ciao a tutti,
	prima di tutto mi scuso se la domanda che segue potrà sembrarvi stupida
ma sono alcuni giorni che sto studiando codice di altri e cercando in rete. 
	Vorrei dato il nome di una tabella di postgresql ricavarne i nomi delle
colonne, il loro tipo, se accettano null e la primary key della stessa
tabella. Studiando il sorgente di postgres_autodoc ho costruito delle
query che potrebbero soddisfare alcune mie esigenze ma ... esiste un modo
più furbo? Non riesco a capire come usare column_info di Pg.pm, avete
link a esempi di uso di questo modulo che includano le funzioni di
raccolta di metadati?
Grazie in anticipo a tutti
Ciao
/sc che se scrive qui ha già cercato, cercato, cercato senza successo



Dopo aver cercato, cercato e cercato, aver scritto qui non mi sono arreso
e alla fine ho trovato. La risposta è semplice sta su CPAN e si chiama
column_info delle DBI.
Ciao
sc

Newsgroup: it.comp.lang.perl
Titolo: manuale in rete

Salve ragazzi,
               cerco un manuale Perl disponibile gratuitamente in rete.
Grazie
----------------------------------------------
Virgilio Mail - Il tuo indirizzo E-mail gratis
http://mail.virgilio.it
-- 
Posted from [212.216.176.198] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
20010405145855.NTUK21412.fep45-svc.tin.it@[212.48.4.56]...


Newsgroup: it.comp.lang.perl
Titolo: DELETE FILES!!!

Cia a tutti,
ho un problema con i files. Vorrei fare uno script che cancelli tutti i
files in una cartella che siano piu vecchi di una certa data. Come fare?
grazie
Andrea


1)Con readdir scorri la directory e recuperi i nomi dei file.
2)Con stat puoi recuperare l'array che contiene i valori relativi
all'ultimo istante di modifica, di accesso e creazione (a cui applocare
la funzione localtime per ottenere una data).
( In alteranativa  a stat ,se ti basta conoscere i gioni trascorsi
dalla'ultima  modifica, puoi usare l'operatore -M  
(Es. if(-M $nome file>10){canella})
3)Con unlink cancelli i file  che hanno verificato la condizione
Newsgroup: it.comp.lang.perl
Titolo: struttura complessa

Salve,
     ho questo tipo si struttura:
[
   [ 'daap.databasesongs' => [
 
            [ 'dmap.status' => 200 ],
            [ 'dmap.updatetype' => 0 ],
            [ 'dmap.specifiedtotalcount' => 1 ],
            [ 'dmap.returnedcount' => 1 ],
            [ 'dmap.listing' => [
            [ 'dmap.listingitem' => [
 
               [ 'dmap.itemkind' => 0],
               [ 'dmap.itemid' => 0],
               [ 'dmap.itemname' => 0],
 
               ]
 
            ]
 
         ]
 
]]]];
 
in qui questa è la parte che andra ripetuta pi volte:
[ 'dmap.listingitem' => [
[ 'dmap.itemkind' => 0],
[ 'dmap.itemid' => 0],
[ 'dmap.itemname' => 0],
]]
come faccio a creare questa ripetizione ad esempio 5 volte, e come 
faccio poi ad inserirla nella struttura??
Grazie

 faccio poi ad inserirla nella struttura??
#!/usr/bin/perl -w
use strict;
use warnings;
use Data::Dumper;
my $tracks = &_add();
my $var = [
   [ 'daap.databasesongs' => [
 
            [ 'dmap.status' => 200 ],
            [ 'dmap.updatetype' => 0 ],
            [ 'dmap.specifiedtotalcount' => scalar @$tracks ],
            [ 'dmap.returnedcount' => scalar @$tracks ],
            [ 'dmap.listing' => $tracks ]
]]];
print Dumper($var);
sub _add() {
   my @data;
   for my $num (1..2)
   {
      push (@data, [ 'dmap.listingitem' => [
 
      [ 'dmap.itemkind' => $num],
      [ 'dmap.itemid' => $num],
      [ 'dmap.itemname' => $num],
 
      ]]);
 
   }
 
   return \@data;
}

,

Io generalizzerei il codice per la creazione di un singolo elemento,
magari dando la possibilità
di specificare anche "kind" e "name":
sub new_item {
   my ($id, $kind, $name) = @_;
   $kind = $id unless defined $kind;
   $name = $id unless defined $name;
   return [
       [ 'dmap.itemkind' => $kind],
       [ 'dmap.itemid' => $id],
       [ 'dmap.itemname' => $name],
   ];
}
Puoi usarlo tipo per:
   my @tracks;
   push @tracks, new_item($_) for 1 .. 2;
   # ... da qui usi @tracks invece di @$tracks
Successivamente, generalizzerei la gestione della struttura più ad
alto livello. Per poi accorgermi che tutta 'sta roba starebbe
probabilmente meglio dentro ad un oggetto, in modo da automatizzare la
gestione di specifiedtotalcount e returnedcount...
Newsgroup: it.comp.lang.perl
Titolo: Search Engines

I am searching a tool for Linux for website submission. If anybody has
an idea or a place where find documentation to create one in Perl or PHP
it would be really useful for me.
Thank you everybody.
-- 
Sebastian Konstanty Zdrojewski
Development Director SKZ Services - Italy
http://www.skzservices.com
zdroj...@skzservices.com
Tel. (+39) 03483543477



I own a firm that does only web site promotion. I am a Linux/perl/C
programer. I have created many scripts for submission of my clients.
My firm  
http://www.traffic-power.com
Ma...@traffic-power.com
Matt Marlon


Newsgroup: it.comp.lang.perl
Titolo: Calcolare il tempo di esecuzione

Ciao a tutti,
avrei la necessita' di calcolare il tempo di esecuzione
impiegato da una certa procedura perl.
Vorrei avere una precisione migliore dei secondi,(almeno al
decimo).
Per ora sto usando una chiamata a `date +%S`,ma non mi soddisfa! :(
Qualcuno puo' aiutarmi, per favore ?
Ciao e grazie.
Alessandro

 decimo).
Time::HiRes
 Finer granularity time, sleep, and alarm: implements
  usleep(), ularam(), and gettimeofday() in Perl. 
 
http://www.perl.com/CPAN-local/modules/by-module/Time
Ciao,
MM



  Probabilmente puoi usare il modulo di libreria Benchmark (distribuito di
  default) che permette di valutare il tempo di esecuzione di pezzi di codice.
 
  Maurizio
 
-- 
Maurizio M. Munafo' |                          
E-mail:mun...@hp0tlc.polito.it
 
--------------------+---------------------------------------------------------
   	     (o_    |				   - Gentile or Jew,
   (o_  (o_  //\    | O you who turn the wheel and look to windward,
   (/)_ (/)_ V_/_   | Consider Phlebas, who was once handsome and tall as you.

bogg...@ariadne.it
 wrote:
 >avrei la necessita' di calcolare il tempo di esecuzione
 >impiegato da una certa procedura perl.
Usa il modulo Benchmark.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *
Newsgroup: it.comp.lang.perl
Titolo: cercare un elemento di un hash per valore.

Salve a tutti,
piccolo problema da risolvere:
ho una struttura hash cosi' costituita:
chiavi univoche, mentre i valori possono anche essere ripetuti.
Es:
ITALIA => PASTA
FRANCIA => FORMAGGIO
CINA => PASTA.
Come posso cercare un elemento per VALORE in maniera da visualizzare tutte
le coppie che soddisfano il parametro di ricerca.Ho provato creando un
hash invertito %rev_newh = reverse %oldh ma senza risultati.


Temo che devi fare qualcosa "a mano" del tipo:
my $chiavi_trovate;
foreach $k (keys $hash) {
    if ($hash->{$k} eq "valore") { push $chiavi_trovate, $k; }
}

hash invertito %rev_newh = reverse %oldh ma senza risultati.
perldoc -q "how do I look up a hash element by value"
Found in C:\Programmi\Perl\lib\pod\perlfaq4.pod
  How do I look up a hash element by value?
    Create a reverse hash:
        %by_value = reverse %by_key;
        $key = $by_value{$value};
    That's not particularly efficient. It would be more
    space-efficient to use:
        while (($key, $value) = each %by_key) {
            $by_value{$value} = $key;
        }
    If your hash could have repeated values, the methods above will
    only find one of the associated keys. This may or may not worry
    you. If it does worry you, you can always reverse the hash into
    a hash of arrays instead:
         while (($key, $value) = each %by_key) {
             push @{$key_list_by_value{$value}}, $key;
         }
Questo per costruire una volta per tutte un hash che ti consente di
effettuare future ricerche per valore (anche, nell'ultimo caso, per
valori ripetuti). Per un'unica ricerca di un unico valore, va
benissimo il metodo proposto da Icestrom.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: goto!

salve,
io ho unprogrammino in perl... semplificato deve fare:
1 leggere una variabile
2 controllare... se č uguale a zero... se sě andare al punto 4... altrimenti
eseguire il 3 e riandare all'1
3 stampa variabile
4 continuazione del programma...
in pratica mi seriverebbe qualcosa tipo il goto del basic...
consigli??
grazie!
Francesco

 wrote:
: 1 leggere una variabile
: 2 controllare... se č uguale a zero... se sě andare al punto 4... altrimenti
: eseguire il 3 e riandare all'1
: 3 stampa variabile
: 4 continuazione del programma...
: 
: in pratica mi seriverebbe qualcosa tipo il goto del basic...
: 
: consigli??
studiare un po` di programmazione generica :-)
ad esempio,
while ($var != 0) {
   print "$var\n" ;
} 
(ovviamente immagino che $var sia modificata asincronamente)
.mau.

 wrote in message
8esbq5$aud$1...@beatles.cselt.it...




 wrote:
: ...e per fare un proprio un goto?
: mettiamo che a un certo punto del programma mi venga voglia di andare da
: un'altra parte... senza usare while e robacce varie...
A dire il vero la "robaccia" e` il GOTO.
Poi se scrivi 
PIPPO: while (1) {
  statement1;
  statement2;
  statement3;
  [...]
  if ($var == 0) {last PIPPO};
  statement4;
  statement5;
}
statement6;
hai fatto il perfetto equivalente di un GOTO statement6.
Se non ti piace, puoi sempre tornare al Fortran (l'unico vero linguaggio di
programmazione :-) )
ciao, .mau.

 varie... esiste un veo e proprio goto?
  Consigliatissimo il passaggio al COBOL.
	Alla prossima,
		Marco

 A dire il vero la "robaccia" e` il GOTO.
Appunto!
E comunque se uno proprio non ci dovesse dormire la notte:
perldoc -f goto
cioe': RTFM
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 db mysql

aiuto, mi sto perdendo!
premetto di aver gia' letto un po' di roba a riguardo ma nonostante 
questo non sono riuscito a risolvere da solo...
sto provando a collegarmi con il db in locale (sempre su win ho mysql)
ho scaricato DBD e DBI ma quando lancio il makefile non riesce a 
trovare le librerie giuste per mysql
qual'e' la giusta sequenza delle azioni e dove devo installare 
esattamente i file di DBD e DBI? io li ho messi entrambi sotto lib ma 
non mi compila
grazie
-- 
Umin
n. p.: Led Zeppelin - Nobody's Fault But Mine

 aiuto, mi sto perdendo!
[...]
prima che mi infamiate, ho trovato una pagina che forse fa al caso mio
procedo poi semmai richiedo aiuto
-- 
Umin
n. p.: Led Zeppelin - All My Love

 procedo poi semmai richiedo aiuto
ok, infatti sono riuscito


 ok, infatti sono riuscito
Urca, sei stato velocissimo :-)
Newsgroup: it.comp.lang.perl
Titolo: problemissimo con __END__

salve, mi spiegate perchè degli script che utilizzo sul mio sito internet
hanno problemi con __END__?
in pratica se alla fine del file metto __END__ e poi sotto scrivo altri dati
che in teoria non vengono letti dal programma ottengo un errore
cosa posso usare invece di __END__?
inutile dire che ho perso una mezzora a capire perchè i file non giravano
sul server
grazie

cosa posso usare invece di __END__?
die;
Phones

Newsgroup: it.comp.lang.perl
Titolo: modulo GD problema

ho installato il modulo GD per perl:
tar zxvf gd-2.0.33.tar.gz
cd cg-2.0.33
./configure
make
make install
... nessun errore , nessun warning ... ma il file GD.pm non esiste da
nessuna parte.
ho omesso di fare qualcosa?
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ho omesso di fare qualcosa?
Di leggere il README? ;-)
Quello che hai installato è la libreria binaria GD, su cui il modulo
Perl si appoggia. Non hai installato il modulo Perl.
Usa CPAN! Puntatori utili:
- 
http://search.cpan.org/
 per trovare i pacchetti
- perldoc CPAN            per imparare a usare il programma di installazione
-- 
  dakkar
  sono su PerlMonks.org, 
use.perl.org
, PAUSE/CPAN

Newsgroup: it.comp.lang.perl
Titolo: Ciao a tutti mi presento...

Ciao a tutti,
mi chiamo Claudio ho 30 anni ed abito a Salò. Al momento lavoro come 
interinale in una multinazionale.
Programmo da 10 anni e dopo 8 anni di Delphi (fino alla 7), un occasionale 
progetto in Delphi 2006, un anno di Visual Basic 6, lavorato con SQL Server, 
Oracle e Access, ASP etc etc.. sono giunto per diletto personale a scaricare 
Perl e provare qualcosa di nuovo.
Si sa mai, un domani penso di aprire una attività e vorrei proporre qualcosa 
di innovativo e soprattutto multipiattaforma, web oriented. Ho molte idee in 
testa e dopo essermi un po' documentato sul PERL voglio vedere cosa si può 
fare e con quali difficoltà.
Un saluto a tutti e penso tornerò presto con qualche domanda da newbbie... 
:-( spero di essere d'aiuto nella comunità e di fornire quanto prima una mia 
impressione dopo tanti anni di lavoro in ambienti chiusi e proprietari.
Claudio 

 ha scritto nel messaggio 
news:45db59d8$0$37207$4faf...@reader3.news.tin.it...


 Programmo da 10 anni e dopo 8 anni di Delphi (fino alla 7), [...]
Che combinazione, io ho iniziato la "carriera" con Delphi e Perl.
Poi quest'ultimo ha preso il sopravvento. :p
Benvenuto!
 Raffaello

Newsgroup: it.comp.lang.perl
Titolo: HELP Cerco guida

Salve a tutti, volevo sapere se qualcuno poteva gentilmente indicarmi una
guida o manuale scaricabile con cui è possibile imparare il Perl pertendo
(quasi) da zero..
Grazie mille a tutti!

Shine wrote:

http://www.linux.org.il/shlomif/perl-begin/
Perl Beginner's Site (inglese)
questa Site e buona (mi piacere, parlo solo un poco
l'italiano )
markus

 ha scritto nel messaggio
news:Rl24a.3$nq2....@news.ecrc.de...

Newsgroup: it.comp.lang.perl
Titolo: RE (SOSTITUZIONE)

Quale è la migliore RE per sostituire delle sottostringhe dalla seguente
stringa:
F1 \t F2 \t "AA" \t F4 \t "BB" \t F6 \t F7 \n
F1, F2 ecc. sono campi con stringhe variabili.
Vorrei sostituire 
1) in F4 ma non in F6 delle sottostringhe es. "abc" con
"abcd";
oppure
2)sostituire "abc" con "abcd in F4 ma con "abcg" in F6.
Grazie dell'aiuto.
Rossano

2)sostituire "abc" con "abcd in F4 ma con "abcg" in F6.
Sarà l'età, ma io più che spaccarmi la testa per costruire un espressione
di sostituzione sicura sull'intero record, preferirei fare uno split di
tutti i campi in un array, sostituire in ognuno quello che mi va, e
ricostruire poi il record con i campi modificati. Chi va piano...
Altrimenti, potresti cominciare con qualcosa come:
  s/^([^\t]*)\t([^\t]*)\t([^\t]*)\t([^\t]*)abc([^\t]*)/#1#2#3#4abcd#5/g;
che non penso neppure di provare a verificare.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Qualcuno può aiutarmi con un guestbook?

Mi sto avvicinando da poco alla programmazione Perl ma dato che ancora
non sono in grado di crearmene uno mio ho cercato qualche script
disponibile per un guestbook. Il mio problema principale è che
nonostante avessi vivamente chiesto che il mio sito fosse ospitato su un
server Unix/Linux è stato piazzato su un server NT (e ho pagato!!). Non
ho molta esperienza con questi server, cmq gli script che ho trovato non
girano, nonostante siano indicati come funzionanti anche su NT. Il
problema di alcuni di questi script è che sembrano funzionare
regolarmente, ma non salvano i dati sul data-file. Credeno si trattasse
di un problema di permessi mi sono rivolto all'amministratore che mi ha
risposto che la directory cgi-bin in cui risiedonmo questi file è già
settata con i giusti permessi. 
Vi prego di aiutarmi, non posso lasciare a lungo la scritta "in fase di
implementazione" sul sito web...  Un cosiglio, un link da dove scaricare
qualche script funzionante...
Grazie!!
Massimo

 ha scritto nel messaggio
news:39778FFE...@infinito.it...

www.cgipopint.it
, c'e' il guestbook, poi, Massimo, io non vorrei fare il
profano, ma mi piace dire le cose come le penso: e cioe' se un sito sta su
server NT, anche partendo dal presupposto che ci sia ActivePerl che gira,
perche' non usi altri sistemi di DBMS piu' appropriati a win??? Io adoro il
perl come linguaggio di programmazione, ma quando uno svolge un lavoro deve
scrivere il codice, se non portabile, piu' adatto alla piattaforma su cui
dovra' funzionare, questo fa la differenza tra chi lavora in questo campo, o
almeno questa e' la mia idea. Quindi, magari prova anche ad usare, se sei su
win, ColdFusion (versione gratuita per sviluppare) o asp. E scusate la
franchezza.
spero di averti aiutato.
Ciao fabio

 regolarmente, ma non salvano i dati sul data-file.
Se devono salvare dati su un file, da qualche parte di sarà una chiamata
alla funzione open(). Verifica che venga controllato il valore restituito
ed fai stampare $! in caso di errore.
Max

 idea. 
Ci sono ragioni reali per credere che il Perl non sia una scelta
appropriata per sviluppare sotto NT? A giudicare dall'impegno di
Activestate (finanziata da MS) non direi proprio. (Ma NT non è la mia
piattaforma di lavoro, e il mio giudizio quindi lascia il tempo che
trova.)
Quello che è superato e spesso ormai inappropriato, in generale, è semmai
il CGI. Ma questo vale per qualsiasi piattaforma. Per inciso, ASP (che non
è un linguaggio di programmazione) non è un'alternativa al Perl, ma una
tecnologia in cui il Perl può essere tranquillamente impiegato. Esistono
altre soluzioni più interessanti, comunque.
Max
Newsgroup: it.comp.lang.perl
Titolo: webmail in perl e set di caratteri

salve,
utilizzo una webmail scritta in perl (openwebmail)
quando invio mail e/o le ricevo, ho problemi di visualizzazione dei
caratteri accentati e degli apostrofi.
il s.o. č linux RH7.3 ed  in "locale" ho settato it_IT@euro
qualche idea?
marco

 marco
hai già chiesto al support del programma che stai usando?
ciao
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************

Newsgroup: it.comp.lang.perl
Titolo: timeout su socket

Ciao a tutti.
Qualcuno di voi sa, per favore, come si puo' impostare un timeout a
piacere su un socket in modo che trascorso questo tempo possa decidere
se la connessione ha avuto esito positivo oppure negativo?
Grazie.
Ciao a tutti.

 se la connessione ha avuto esito positivo oppure negativo?
In perlipc ci sono un po' di crudi dettagli, ma il metodo generale e'
quello di definire un handler per il segnale SIGALRM e poi settare un
allarme prima dell'operazione che vuoi controllare.
Copio brutalmente dal cookbook (ricetta 16.21)
$SIG{ALRM} = sub { die "timeout"};
eval {
  alarm(60);  # non piu' di 1 minuto
  # operazione da controllare
  alarm(0);
  }
if ($@)
 {
   if ($@ =~ /timeout/)
    {
       # sono andato in timeout
    }
   else
    {
      die; # se e' successo qualcos'altro, propago l'errore.
    }
 }
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: Come "accorciare" un file?

Mi servirebbe qualche riga di esempio per questo problema:
Apro un file di testo,
leggo la prima stringa,
la cancello dal file
chiudo il file.
Non vorrei leggere tutto il file per poi riscriverlo, nè vorrei sostituire
la stringa con del blank.
Grazie per l'aiuto.
Albo.

fos...@remove.idea.it
 wrote:
 >Mi servirebbe qualche riga di esempio per questo problema:
 >Apro un file di testo,
 >leggo la prima stringa,
 >la cancello dal file
 >chiudo il file.
Devi necessariamente riscriverlo. Se e` troppo grosso l'unica soluzione
e` usare campi di lunghezza fissa e sovrascriverli.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

 >chiudo il file.
Se il file non e' molto grosso puoi utilizzare:
#leggo il file
open FILE, $path_del_file
     or die "Non posso aprire $path_del_file: $!";
@file = <FILE>;
close FILE;
#riscrivo il file
$count = 0;
open FILE, ">$path_del_file";
foreach $line (@file)
{
 chomp $line;
 if ($count == 0)
 {
#prendo la prima riga
  $prima_riga = $line;
 }
 else
 {
#riscrivo le altre
  print FILE "$line\n";
 }
 $count += 1;
}
ciao
Mario






Solo un commento superfluo... se le altre linee non servono, mi sembra inutile
'chomp'are tutte le righe per rimetterci le andate a capo in uscita.
Se non erro, inoltre, lo shift e' ottimizzato, per cui postresti
'semplificare' il tutto con:
#leggo il file
open FILE, $path_del_file
     or die "Non posso aprire $path_del_file: $!";
@file = <FILE>;
close FILE;
#riscrivo il file
open FILE, ">$path_del_file" or 
      die "Non posso scrivere il file $path_del_file: $!";
$prima_riga = shift @file;
chomp $prima_riga; # da fare solo se serve
print FILE @file;
close FILE;
In realta' tutta l'operazione di leggere il file in memoria e' superflua 
ed un semplice for sarebbe perfetto
# da standard input o da ARGV a STDOUT... non ho voglia di aprire i file.
$first = 1;
while (<>)
 {
   if ($first)
    {
      $prima_riga = chomp;
      $first = 0;
      next;
    }
   print $_;
 }
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

...
Il file, invece, è molto grosso...
mi sa che non mi rimane che andare in C così posso ottimizzare pesantemente.
Alberto
[
fos...@singular.spamDie.it
]
Newsgroup: it.comp.lang.perl
Titolo: array e hash.. alcuni chiarimenti

Array
----
nel caso di un array è lecito un codice di tipo
if(@mioarray!="$qualcosa"){}
per dire in pratica "se nell'array è contenuto un valore
diverso da $qualcosa" o è "obbligatorio" usare for each ?
Hash
----
so che è una specie di array associativo, ma non ho capito:
1) puoi gestire un hash in modo simile ad una tabella?
(avere cioè, per esempio, tre "colonne" di valori dove sia possibile
chiedere il secondo valore della prima colonna a che secondo valore
della terza o della seconda sia associato)
2) in un hash molto semplice [%miohash=("uno","1")] qual'è la
sintassi esatta per fare un push?
2b) prendendo come esempio l'hash sopra e ipotizzando di avere una serie
di numeri, come faccio a dire qualcosa tipo "stampa i valori corrispondenti
ai numeri 1 e 2".. dovrebbe stamparmi "uno" e "due".
se non potete rispondermi punto per punto potreste indicarmi la pagina
esatta del perldoc? non riesco a trovare quello che cerco: ho
trovato solo quella sugli array di array o hash di array ecc..
grazie infinite.
--
The Bos
the-bos#
axelweb.com
http://the-bos.axelweb.com

 trovato solo quella sugli array di array o hash di array ecc..
perldata
M.
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 if ( "\n".(join "\n",@array)."\n" =~ m/\n$qualcosa\n/s ) {...}
Io ho recentemente risolto cosi'
	if (grep($qualcosa,@array)) {...}
e *sembrerebbe* funzionare, ma sarebbe meglio avere la conferma di 
qualcuno piu' esperto di me, non vorrei che ci fossero casi particolari 
in cui il giochino si "inchioda".
Ciao
MjdP

 diverso da $qualcosa" o è "obbligatorio" usare for each ?
   Nell'espressione valutata dalla /if/ l'array decade in uno scalare e, 
dunque, nel numero di elementi che lo compongono. Non e` obbligatorio 
usare il costrutto /foreach/, come altri articoli mostrano, tuttavia 
esso e` il metodo piu` intuitivo.
	Alla prossima,
		Marco

grazie a tutti

Newsgroup: it.comp.lang.perl
Titolo: Database access

Ciao a tutti,
sono una novizia...vorrei sapere che moduli usare e che istruzioni
per potersi connettere ad un database access.
Ringrazio anticipatamente chi mi risponde .
Ciao,
    Adozinda

 ha scritto nel messaggio
news:3A9FBF91...@zeropiu.it...


GAZIE 1000.


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

forse una domanda stupida, ma come faccio a sapere quali moduli sono
installati (perl 5.8.0) senza aspettare che l'interprete mi restituisca
l'errore
grazie

l'errore
Visto che citi CPAN, direi attraverso la shell di cpan: chiedendo
informazioni su un modulo, ti dice i file installati.
Con ppm, puoi usare il comando query.
Se no, puoi sempre scorrerti la directory di perl.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Creare grafici con colonne e torte

Attraverso alcuni dati dovrei creare dei grafici (torte, colonne) da
inserire in pagine cgi.
Che modulo si utilizza in perl ???
Qualc'uno ha già fatto cose simili ?? Avete anche degli esempi???
Grazie

Qualc'uno ha già fatto cose simili ?? Avete anche degli esempi???
Solo provato se funzionava... funziona :)
Esempi ?!? Solo quello istituzionale:
http://www.pigmalion.info/perl/?screen=repository&dir=graphic&file=gd.pl
Facce sapè...
--
http://www.pigmalion.info/
Internet è uno dei veicoli più validi per la difesa della libertà,
poiché offre la verità a chi vuole vederla e intenderla...
Vinton G. Cerf

GD::Graph -> 
http://www.cpan.org/modules/by-module/GD/
Ciao
Alberto


Alberto ha scritto:

io ho trovato queste che sono ECCEZIONALI.
http://www.advsofteng.com/
Non sono opensource, ma sono gratuite.
Sono librerie scritte in C++ interfacciabili ai maggiori linguaggi di
programmazione, semplicissime da usare, con una documentazione eccellente,
creano delle immagini leggerissime.
-- 
-- Marco Allegretti --
http://www.shishii.com
Newsgroup: it.comp.lang.perl
Titolo: lettura file che non funziona...

ho un tracciato record di questo tipo:
1|a|A|alfa|uno
2|b|B|beta|due
3|c|C|gamma|tre
sto cercando di leggerlo, ma non mi riesce
le istruzioni che ho utilizzato sono:
$filename = "books.txt";
open(FILE1, "<$filename");
while (<FILE1>) {
            chop;
            ($titolo, $autore, $counter, $linkwords, $link) = split(/|/, $_,
5);
                    }
     close(FILE1);
cosa c'è di sbagliato?
VI PREGO AIUTATEMI!!!!!!!!!!
Saluti e ringraziamenti anticipati

    ($titolo, $autore, $counter, $linkwords, $link) = split(/|/, $_, 5);
Manca un backslash.
 ... =  split( /\|/, $_, 5 );
Max

      close(FILE1);
while (<FILE1>) {
	chomp; # meglio di chop!
	($titolo, $autore, $counter, $linkwords, $link) = split (/\|/, $_);
}
Ciao
M.
-- 
:wq

 wrote in message hnupr8...@127.0.0.1...





Newsgroup: it.comp.lang.perl
Titolo: Perl su Windows..

Salve a tutti ho usato Perl su Ubuntu usando terminale e gedit,adesso ho la
necessitą di passare su Windows,ho provato ActivePerl ma non mi  soddisfa
piu di tanto...ne cerco qualcuno con un interfaccia grafica (tipo Delphi)
con almeno il debug.
Sapete consigliarmi ?

Alberto wrote:

http://faq.perl.org/perlfaq3.html#Is_there_an_IDE_or_W
-- 
What does VISTA mean?
Viruses, Infections, Spyware, Trojan horses & Adware.


Eclipse ha un modulo x il perl molto interessante
http://e-p-i-c.sourceforge.net/
sul sito ci sono anke ottime guide IBM all'utilizzo di questo modulo

Newsgroup: it.comp.lang.perl
Titolo: un aiutino per operazioni sui file..

Ciao a tutti,
devo creare uno script per Hylafax che mi crei un unico fax da più
documenti mandati in stampa su una stampante virtuale...
Ogni volta che stampo qualcosa sulla stampante chiamata "FAX", viene
eseguito uno script in PERL che apre un socket e comunica su una porta
specifica con l'host che ha mandato in stampa il documento.
L'utente che è davanti a quel pc, inserisce il numero di fax del
destinatario e se vuole spunta la casella "MULTIFAX" che da la
possibilità di stampare altri documenti che verranno poi fusi insieme e
spediti ad un unico numero di telefono.. (lo so sono contorto!)
Ora, il mio problema è questo:
1) ho in una variabile il nome del file di spool che contiene il fax
2) dovrei controllare se il file /tmp/NUMERO_DI_TELEFONO esiste già, se
sì accodo a quel file, una stringa e il file di spool ed esco, se non
esiste copio il file di spool in /tmp/NUMERO_DI_TELEFONO
3) per concludere il fax e spedirlo, basta che l'utente stampi l'ultimo
documento verso quel numero di telefono senza spuntare la casella
"MULTIFAX"
Ora, io non conosco PERL e per questo chiedo aiuto! Mi servirebbero
nozioni sul test dei file, concatenamento dei file (pensavo di usare un
system(cat...) ) ecc...
Avete qualche esempio di codice sulla soluzione del mio problema?
vi ringrazio infinitamente.
Mauro
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

>, cioè:
open (FILE, ">>/path_file/nome.file");
-- 
-- Marco Allegretti --
http://www.shishii.com