mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Per vedere moduli caricati

Salve a tutti
Su di una macchina Sun con Solaris 2.5 e Perl 5.xx come faccio a capire
quali moduli di Perl sono stati caricati ?
Inoltre potreste dettagliarmi un po' cosa fanno i moduli piu' comuni, ad es.
CGI.pm, DBI e DBD etc. e secondo voi quali sono i moduli veramente necessari
e quali no ?
Grazie in anticipo
Nextto

 e quali no ?
I moduli installati sono tutti necessari :) Non ti far venire in mente di
cancellarli.
Per me quelli necessari sono CGI, DB_File, Data::Dumper, LPW, HTML e Net.
CGI e DB_File arrivano con Perl, gli altri li devi integrare/aggiungere tu.
CGI.pm facilita la scrittura di programmi CGI, con funzioni per la creazione 
di testo HTML (sto megasemplificando)
DB_File serve a gestire flat-file database in formato DB Berkeley, in pratica 
per mettere hash su file.
Data::Dumper, ti permette di stampare strutture dati gerarchiche (tipo hash
di hash di array...)
LPW/HTML/Net sono funzioni di accesso alla rete, per fare programmazione
'client-side' (tipo un programma per andare a scaricare una pagina web e
vedere se e' cambiata)
DBI/DBD servono solo se vuoi fare programmi di accesso a DB relazionali
'seri', tipo server Oracle o SQL, con query SQL o simili.
Nel mio caso, ad esempio, uso CGI e DBI/DBD per accedere ad un server mySQL 
che ho installato e su cui ho creato un database di libri/articoli.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)


--------------------------------------------
Davide Migliavacca - Inferentia, Milano IT
Phone 
+39 02599281
 Fax 0259928221
-- My opinions cannot be attributed to -----
-- Inferentia without explicit permission --

Newsgroup: it.comp.lang.perl
Titolo: Ho un problema col percorso perl che causa: Internal Server Error 500

Tutti gli script Perl, anche i più semplici e banali, (e quindi
inevitabilmente corretti ) che faccio eseguire sul mio sistema Linux nella
directory cgi-bin causano l'errore
Internal Server Error 500.
La cosa curiosa è che ciò avviene solo se indico il percorso Perl come:
#!/usr/bin/perl
se invece aggiungo la condizione - w oppure -d
#!/usr/bin/perl -w
tutto funziona correttamente .
Sapete darmi qualche spiegazione?
Altre informazioni
Sistema operativo Linux Red Hat 7.0
Apache 1.3
directory remota 
http://localhost/cgi-bin
directory locale /home/www/cgi-bin
(utilizzo questa directory locale anziché la /var/www per semplicità; ho di
conseguenza configurato il file httpd.conf alle righe DocumentRoot e
ScriptAlias)

che ne dici di guardare nel file di log degli errori di apache, per vedere di cosa si lamenta il server?
pare che l'abbiano messo lě apposta...
-- 
Posted from 
mail7.galactica.it
 [212.41.208.24] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.perl
Titolo: Gestione file

Come si puo' fare per gestire un file in modo esadecimale, ovvero
leggendo e scrivendo byte in formato esadecimale?
Spero di essermi spiegato bene. :)
-- 
Ciao,
Ghigo
-- Now from Zuppa X --

 ha scritto nel messaggio
news:1fgphcy.q5zv7guatujwN%gh...@despammed.com...

Newsgroup: it.comp.lang.perl
Titolo: Programma per Win

Se volessi creare un programmino per
Windows, utilizzando il Perl, cosa debbo fare per completarlo con finestre,
menu, ecc.?
Grazie, Giuseppe

 cosa debbo fare per completarlo con finestre, menu, ecc.?
  Hai due possibilita`:
1. Scaricarti il Perl Tk (ActiveState ce l'ha), che e` un'integrazione
del Tk del Tcl. Capendo come funziona puoi inserire tutti i widget che
vuoi dentro il tuo programma Perl (rimanendo esso portabile).
2. Agire a basso livello sui moduli OLE::*. A tuo rischio e pericolo,
anche se con uno script Perl di tre righe si apre Excel... ;)
	Alla prossima,	
		Marco

...

3. se vuoi sfiziosità specifiche della piattaforma Win32 (tipo coolbars)
e non ti cruccia la portabilità:
   use Win32::GUI
(per maggiori info vedi: 
http://jenda.krynicky.cz/
 )
__END__
# Aldo Calpini
%x=split(//, "xritajbugne fahokem csuctawer jhdtlrnpqloevkshpr");
foreach (sort keys(%x)) { print $x{$_}; };
Newsgroup: it.comp.lang.perl
Titolo: Regex

Ciao a tutti!
Ho un problema che mi irrita parecchio!
Ho un testo composto da una serie di parole tutte separate da un ritono a
capo. Io dovrei inserire all'inizio e alla fine di questo testo un tag XML.
Facendo la seguente sostituzione non ottengo il risultato voluto poichè mi
mette un tag di apertura e chiusura per ogni riga...
s/(.*)/<tag>\n\1\n<\/tag>/g;
come devo fare per dire al programma di considerare come testo unitario
tutte le righe?
Uso ActivePerl 5.8
Grazie mille per la disponibilità!!
Uso ActivePerl 5.8
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 tutte le righe?
Fermo restando che le regexp in questo caso non ti servivano, guardati 
l'opzione 's' in perlre.
Max


Con i criteri da te posti, ci sono diverse soluzioni.
Te ne enuncio alcune.
A te la scelta!
ciao
gmax
#!/usr/bin/perl -w
use strict;
my $data = "questo\nè\nil\ntesto\nche\ndevo\nsostituire";
print "\n\nsoluzione 1\n";
my $xml = sprintf "<tag>\n%s\n</tag>", $data;
print $xml;
print "\n\nsoluzione 2\n";
$xml = $data;
$xml =~ s/(.+)/<tag>\n$1\n<\/tag>/s;
print $xml;
print "\n\nsoluzione 3\n";
$xml = $data;
$xml =~ s/^/<tag>\n/;
$xml =~ s/$/\n<\/tag>/;
print $xml;
__END__
OUTPUT:
soluzione 1
<tag>
questo
è
il
testo
che
devo
sostituire
</tag>
soluzione 2
<tag>
questo
è
il
testo
che
devo
sostituire
</tag>
soluzione 3
<tag>
questo
è
il
testo
che
devo
sostituire
</tag>
-- 
   ____ ____  _____ _   _
  / _  |    \(____ ( \ / )
( (_| | | | / ___ |) X (
  \___ |_|_|_\_____(_/ \_)
(_____|
Sapere, saper fare, fare, far sapere
http://gmax.oltrelinux.com

Grazie mille per il consiglio ma forse non mi sono spiegato bene... il mio
problema č che il testo in cui ogni parola č separata da un ritorno a capo č
formato da piů di 3000 parole e quindi non le posso inserire tutte a mano.
Io sono nuovo nel campo di perl perň ho sentito che si possono fare delle
sostituzioni considerando il testo credo multiline
altra cosa cosme si usa (?s)..
grazie



Quindi il tuo primo problema e' come prendere questo testo da un file, o 
sbaglio?
Se questo e' il problema, servirebbe una descrizione del formato del file.
Devi leggerlo tutto (cioe' tutto il contenuto del file e' il testo)?
Devi leggerlo fino a un separatore?
Tu hai detto che le parole sono separate da un ritorno a capo, quindi 
presumo che il testo da considerare sia composto da piu' righe.
Dacci qualche altro dettaglio. Mi si e' rotta la sfera di cristallo e 
non riesco a vedere cosa vuoi. :)
Ciao
gmax

Newsgroup: it.comp.lang.perl
Titolo: cgi e array?

Ciao, se doveste passare tante stringhe usando perl e cgi, diciamo che
il POST lo si fa ad uno script un perl, uno in qualche modo puo' passare
un array (magari un array di un javascript... sarei a posto) cosi'
com'e'? Oppure deve passare n variabili con n valori o una mega-stringa
che poi si spezza in n stringhe?
Non credo di esseremi spiegato troppo bene...
d

 che poi si spezza in n stringhe?
n variabili con n valori. Poi fai il parsing dei nomi di tutti i
parametri passati.
Occhio che i nomi di parametri e i valori hanno lunghezza limitata (255 
caratteri AFAIK).
  Raffaello

 caratteri AFAIK).
Ottimo, grazie. Invece non c'e' limite al numero di variabili da
passare?
d



Non saprei. :-/
Puoi sempre fare delle prove ... ma e' possibile che dipenda
dal tipo di server.
  Raffaello
Newsgroup: it.comp.lang.perl
Titolo: time ?

Ho scritto il seguente script :
my $seconds = time;
my $minutes = ($seconds/60);
my $hours = ($minutes/60);
my $days = ($hours/24);
my $years = ($hours/365);
print STDOUT "$seconds\n$minutes\n$hours\n$days\n$years\n";
 l'output e' il seguente:
1055317581
17588626.35
293143.7725
12214.
3238541667
803.133623287671
Se time restituisce il numero di secondi trascorsi dal 1/1/1970,
al valore del meridiano di Greenwich, vuol dire che l'anno
corrente e' 2773 ?
E io ho 803 anni ?
Dove sbaglio ?
 Raffaello

 my $years = ($hours/365);
                =====
scusate
 Raffaello
Newsgroup: it.comp.lang.perl
Titolo: cshell e perl .aiuti !!!!

salve a tutti ,
ho un problemone da risolvere ma non so piu dove sbattere la testa ;
Vorrei sapere come faccio a passare determinati valori da uno scripts che
lavora in c-shell a un in perl e viceversa.
Potrei usare solo il perl che utilizzo per fargli fare determinati conti in
virgola mobile ; ma  essendo alle prime armi , non so come realizzare una
finestra in cui un utente puo' immettere delle dimensioni che lo scripts poi
va a lavorarsi .
Il problema sta nel fatto che non so come creare una finestra grafica per
immisione dei dati   da parte dell' utente.
Mentre in c-shell il software (un cad)mi mette a disposizione un mini
applicativo che crea finestre per immisioni dati dai vari utenti in perl non
so come fare cio' .Qualcuno mi puo' aiutare ????
La soluzione potrebbe essere anche nell'uso del c-shell  e poi nel passaggio
dei dati allo script in perl , ma anche in questo caso ...non ho idea.
grazie a tutti
ciao
leavei...@libero.it

lavora in c-shell a un in perl e viceversa.
Il primo consiglio che si da in questi casi e` "non usare la c-shell":
 
http://www-dbs.inf.ethz.ch/~fessler/csh-whynot.html
Per il resto, i valori non puoi passarli come parametri? O sono troppi? O
c'e` qualche altro problema?
Per la questione delle finestre, da perl potresti usare il modulo tk, se ti
serve proprio la grafica sotto X (pero` e` abbastanza complicato); oppure ci
sono moduli per usare le librerie semigrafiche (Curses o chi per esse) in
console.
Ciao.

 wrote in message
news:3aJm9.41797$e31.9...@twister2.libero.it...

Devi per forza avere un'interfaccia grafica? Se i dati da immettere fossero
pochi possono essere immessi direttamente da command-line facilissimamente.
Esempio:
perl 
my_script.pl
 param1 param2 param3
Nel programma '
my_script.pl
' poi li avrai disponibili nell'array @ARGV.
Potresti anche immetterli per nome, cosě non importerebbe l'ordine, come ad
esempio:
perl 
my_script.pl
 base=15.25 altezza=18.25 lunghezza=26.85 gradi=120
poi in '
my_script.pl
' puoi farti un hash cosě:
%parametri = map {split /=/,$_} @ARGV;
cosě: in $parametro{base} avrai 15.25
in $parametro{altezza} avrai 18.25
in $parametro{lunghezza} avrai 26.85
e in $parametro{gradi} avrai 120
Se invece preferisci, puoi fare un programmino in perl interattivo che chiede i
dati all'utente ad uno ad uno, e poi li elabora facendone quel che vuoi.
Per ultimo poi, avresti tk, che č l'ambiente grafico di perl, perň č robetta
piuttosto tosta e essendo alle prime armi non te la consiglio.
Facci sapere di piů sull'applicazione.
ciao
Domizio Demichelis
Newsgroup: it.comp.lang.perl
Titolo: Errore USE::FTP

Il mio server dice :
CGI Error
The specified CGI application misbehaved by not returning a complete set of
HTTP headers. The headers it did return are:
Can't locate Net/FTP.pm in @INC (@INC contains: C:/Perl/lib C:/Perl/site/lib
.) at d:\inetpub\webs\fioraniorg\cgi-bin\
se.pl
 line 1.
BEGIN failed--compilation aborted at
d:\inetpub\webs\fioraniorg\cgi-bin\
se.pl
 line
Ho sbagliato io o li manca qualche file a lui!?!
Grazie


iQA/AwUBOWqowK5mw98OphKBEQLhVQCgv3DE1kiKkqa5KBMN/vBHBrNenU0An2lP
uE1rWlFwLzljElYU6lCwthCu
=qhyK
-----END PGP SIGNATURE-----

 wrote in message
8kecgl$cnr$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.perl
Titolo: counters ed ssi

scusate tuttele volte che installo un contatore leggo nelle specifiche che
necessita  che i ssi siano, o meno abilitati.
Mi pare inoltre di avercapito che per far funzionare un contatore in un sito
con i ssi abilitati bisogna dare al file della pagina iniziale un nome
terminate per shtml, o shtm.
Poi ho notato che in alcuni script per aggirare il problema, lo stesso
script vien richiamato dalla pagina contata per mezzo di un javascript.
A questo punto, posto che quello che ho scritto sia giusto (in caso
correggetemi) non ho chiaro un particolare: se io voglio contare gli accessi
in ogni pagina di un sito con uno script che richiede ssi devo usare un
javascript in ogni pagina altrimenti lo script non è attivo se non nella
pagina iniziale, oppure no?
Fino a poco fa ero convinto ciò fosse esatto finchè non ho trovato uno
script nel cui file di installazione era indicato (che pur richiedendo ssi)
funzionava anche su pagine il cui file fosse .html.
A questo punto non ho capito più niente, qualcuno mi sà sà spiegare tutto il
discorso?
grazie per le eventuali risposte,
luca

Scusate la caoticitàdella domanda,, ho trovato un sito in cui si spiegava
cosa sono i ssi ed ho capito, ma fino ad un certo punto e quindi avrei
bisogno di sapere una cosa:
- Dato che alcuni script permettono di visualizzare un contatore in una
pagina di un server che non supporta ssi, o su una pagina (es. .html) di una
sottodirectory di un sito, la quale essendo .html non si avvale del supporto
ssi, mi domando se è possibile utilizzare lo stesso javascript anche per
script che normalmente sono predisposti solo per funzionare su pagine in cui
sia attivo il supporto ssi, in modo da farli funzionare anche nelle pagine
diverse dalla prima pagina del sito (che nel mio caso è l'unica .shtml),
oppure in alternativa cosa si può fare?
ciao e grazie,
Luca

 oppure in alternativa cosa si può fare?
Per quanto ne so, non è detto che solo le pagine .shtml abbiano il 
supporto agli SSI.
Dipende da come è configurato il server web. Ad esempio 
pair.com
 fa sì 
che anche i .html a cui è stato dato un chmod +x siano preprocessati per 
eseguire gli SSI, ovunque tali .html si trovino.
Se hai un accesso ai tuoi file via console, prova a dare loro un
chmod +x

 ha scritto nel messaggio
news:bv38m1$522$1...@news.ngi.it...


chmod +x
nel senso che gli dò un "execute" e cioè li rendo eseguibili?
complessivamente che gli devo dare un 777?
ciao
luca

Luca wrote:

dagli proprio chmod +x che ti setta il permesso giusto.
Li rendi "eseguibili" ma serve al server web per capire se deve 
preprocessarli.

 ha scritto nel messaggio
news:bv3a7m$5kl$1...@news.ngi.it...


 others?
Direi che è + appropriato un 755 se non vuoi che altri possano 
cancellarti quei file.

 others?
Direi che č + appropriato un 755 se non vuoi che altri possano
cancellarti quei file.
Newsgroup: it.comp.lang.perl
Titolo: Pulizia hash da riferimento

Salve a tutti,
ho un piccolo quesito sugli hash. Io passo un riferimento ad un hash
ad una funzione. Ogni volta che la funzione viene eseguita ho bisogno
che questo hash venga pulito. Oltre alla soluzione qui sotto, ce ne sono
di più eleganti?
sub MySub {
  my $lista = shift;
  foreach( keys %{ $lista } ) { delete $lista->{$_}; }
}
Grazie,
-- 
+--------+ | ASCII ribbon campaign ( ) | 
www.autistici.org/kral
|  kral  | |  - against HTML email  X  |
+--------+ |              & vCards / \ | my key id = 0x7C946947

 }
%$lista=();
per farlo dimenticare al Perl invece: undef %$lista;

 %$lista=();
Ecco cosa sbagliavo, facevo %$lista = {}!
I apologise,

Newsgroup: it.comp.lang.perl
Titolo: RADIOBUTTON?!?! e pur non si muove!

ho scritto un perl per fare un sondaggio, funziona!
Mi sono piantato su un problema assurdo...
      <form method=post action="/cgi-bin/
sonda.pl?sezione=regista
">
          <input type="radio" name="radiobutton" value="1">
          <input type="radio" name="radiobutton" value="2">
          <input type="radio" name="radiobutton" value="3">
          <input type="submit" name="Submit4" value="Vota">
    </form>
è un classico form che per ACTION richiama il file 
sonda.pl
,
quando premo il pulsante non me lo esegue ma mi apre la finiestra per
scaricarlo!!!
Ok, ammetto che tutti gli altri form che ho usato avevano campi di testo
espliciti che passavo, ma il menù RADIO non fa lo stesso? non passa il
valore di VALUE relativo a quello selezionato? e lo script lo riceve (in
questo caso) con il parametro RADIOBUTTON?
Ecco, ne ho fatti diversi di script, diversi form... ma non ho mai ustao i
RADIO, ma funzioneranno allo stesso modo no? allora perchè non lo esegue
quando premo il pulsante...
Grazie, TaiGeR
P.S. scusate il nervosismo, ma il risultato dello script è ineccepibile e
fermarsi a questo punto... ahrghrgr ;-)

    </form>
Prova cosě:
      <form method=post action="/cgi-bin/
sonda.pl
">
 
	  <input type="hidden" name="sezione" value="regista">
 
          <input type="radio" name="radiobutton" value="1">
          <input type="radio" name="radiobutton" value="2">
          <input type="radio" name="radiobutton" value="3">
          <input type="submit" name="Submit4" value="Vota">
    </form>
-- 
Roberto Lupi

 ha scritto nel messaggio
news:slrn98o5qi....@localhost.localdomain...


ripeto l'unica cosa che cambia è l'input type che ora è radio...
Sei sicuro che il tuo web server sia impostato bene in modo da
ESEGUIRE gli script in perl (che hanno per estensione .pl), oppure che
i cgi siano nella directory giusta ??
Prova ad esempio a lanciare il CGI da linea di comando, e a passargli
i parametri in queto modo:
[prompt]# perl -w 
sonda.pl
radiobutton=1 (oppure 2,3 quellochevuoi, ecc.)
e poi vedi quello che succede :)
[cut...]
Ciao,
Sergio.
----------------------
Per rispondermi direttamente via e-mail togli NOSPAM dall'indirizzo
e-mail.
To reply me directly via e-mail remove NOSPAM from my e-mail address.

     </form>
il problema non è in questo forma ma nel file 
sonda.pl
probabilemente restituisci un intestazione errata.
Ho ricostruito il tutto e a me funziona quindi di certo il modulo va bene.
Controlla che lo script 
sonda.pl
 restituisca intestazioni valide
lo script dovrebbe restituire un intestazione del tipo:
print "content-type:text/html\n\n";
se ad esempio per errore venisse scritto
print "content-type:text\html\n\n";
che apparentemente potrebbe anche sembrare simile, lo script invece di
andare in esecuzione viene downloadato.
Fammi sapere ok?
ciao ciao
Claudio
Newsgroup: it.comp.lang.perl
Titolo: Script perl per modifica file

Ciao a tutti. Ho necessita' di creare uno script in perl che aggiunga 
alcune righe in coda ad un file. Inoltre devo effettuare un controllo 
che ricerca una stringa nel mezzo del file e inserire un'ulteriore riga 
dopo la stringa che ho ricercato.
I valori che devo accodare/inserire li passo allo script mediante un 
file "elenco.txt".
Qualcuno mi puo' aiutare?
Ciao.
A.


Ciao, il mio consiglio è usare Tie::File che dovresti avere nella tua 
distribuzione Perl:
perldoc Tie::File
Fonte di informazioni è anche la perlfaq5:
perldoc perlfaq5
oppure 
http://www.perldoc.com/perl5.8.0/pod/perlfaq5.html

Newsgroup: it.comp.lang.perl
Titolo: variabile array

scusate sono alle prime armi
come posso inserire piu' numeri con <STDIN> in una variabile arrary (@pippo)
"@pippo = ()" se lascio il campo vuoto forse???

p.es
 con un ciclo (dovrai prevedere la possibilità di uscirne)
oppure, usando gli spazi vuoti e un enter finale
$immisione = <STDIN>; 
chomp($immissione); per togliere il \n finale
@array = split(' ', $immissione);


@pippo=<STIND>
ovviamente prevedendo la possibilità di uscita magari riconoscendo un
qualche tasto

Newsgroup: it.comp.lang.perl
Titolo: testare perl e cgi su windows 95

Premetto che sono un neofita (leggi ignorante) di perl, ma dovendo
realizzare alcuni siti per conto di aziende mi potrebbe capitare di
implementare cgi perl nelle pagine html.
Vorrei quindi prima testarli per poterli personalizzare ed assicurarmi del
loro funzionamento.
premetto che :
- ho installato personal web server 4 di microsoft su windows 95  (testo le
pagine .asp perfettamente)
- ho dcom 95
- ho scaricato e installato activeperl 5
Vengo al punto :
- come posso fare a testare programmi .pl e . cgi su windows 95 ?
- perchè quando il server virtuale accede ad un file .pl si apre la finestra
per downloadare lo stesso ? invece di mandarlo in esecuzione ?
- perchè quando il server virtuale accede ad un file .cgi mi ritorna una
pagina con errore http 500 ?
Dove sbaglio ?
naturalmente le mie domande potranno sembrare banali e forse ridicole , ma
capite che stò muovendo ora i primi passi in questo campo.
Ringrazio anticipatamente chiunque vorrà darmi una risposta, anche
privatamente
gae...@tiscalinet.it

 ICQ# 1980563

 Dove sbaglio ?
Un po' qui un po' la!!
Cmq it consiglio di muoverti su it.comp.www.cgi, risulti più in-topic!
Ciao
Edo
Newsgroup: it.comp.lang.perl
Titolo: pocket pc

ho il pocket pc nuovo (imate pda2) e voglio installarci il perl. le mie
googlate mi hanno portato qui:
http://www.rainer-keuchel.de/wince/perlce.html
siccome sono niubbo, la lettura di quel documento mi ha fatto sorgere
alcuni dubbi:
1) "The binary archives do not contain any perl library files. You have to
copy them from a regular perl distribution. There are only a few xs dlls
in the archives."
questo mi fa pensare che, dopo aver installato il pacchetto, mi dovro'
copiare altri file a mano. quali? immagino di doverli prendere da una
distro di perl su win, o andrebbero bene anche quelli di una linux?
2) "New mods Win32::API and Win32::OLE."
siccome gli script che usero' necessitano di alcuni moduli, tipo
Date::Simple e Tk, sara' possibile installarli? prendendoli da cpan come
al solito e seguendo la procedura per installarli su win? non ho mai usato
perl fuori da linux e non so bene come funzioni tutto su windows (men che
meno su win ce).
altri dubbi per ora no, anche se sono sicuro che salteranno fuori :)
buon anno
alek
-- 
per farmi fuori, miei cari, ci vogliono sicari sicuri, 
loschi figuri, temerari miei pari, se sono così rari 
fatemi il favore, chiudetevi in casa che è ritornato l'untore!
"l'untore" - caparezza

 meno su win ce).
Tk non credo riuscirai a mettercelo. Di piu`: non credo riuscirai a
metterci alcun modulo che richieda un compilatore, in quanto dubito
esista un ambiente di compilazione che si monti facilmente su un
pocketpc. Se lo trovi, fai prima a compilarti tutto
perl. Un'alternativa potrebbe essere quella di costruire un ambiente
di cross-compilazione su un PC normale, in modo che produca binari per
il tuo pocketpc. Non facile.
-- 
  dakkar
  sono su PerlMonks.org, 
use.perl.org
, PAUSE/CPAN

 normale, in modo che produca binari per il tuo pocketpc. Non facile.
so che cos'e' la cross compilazione e le mie conoscenze si limitano a
quello. non e' proprio il caso di mettermi in un simile casino :)


il tuo pocketpc. Non facile.
Non credo che sia particolarmente difficile (in che modo vengono prodotti
gli applicativi per pocketpc? dubito che li scrivano direttamente sul
pocket). Più che altro, ci sarà da pagare.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: principiante nel casino...help

ciao a tutti , da 3 giorni sto' battendo la testa perche' non
riesco a far funzionare una chat che richiede una cgi .
mi sono accorto che probabilmente mi serve un server
che accetti le cgi .
c'e' qualcuno che conosce chi offre spazio gratuito  con una directory
cgi-bin nella quale inserire uno script?
Vi ringrazio moltissimo ! Sandro

,

Prova con:
www.webprovider.com
www.webjump.com
www.hypermart.com
www.3q.to
 (Italiano)
Ciao Armando.
Sent via Deja.com 
http://www.deja.com/
Before you buy.

 
www.3q.to
 (Italiano)
A proposito di 3q: a voi funziona?


A proposito di 3q...io ho installato lo stesso script .cgi che ho
installato sul 
www.webprovider.com
.
Bene, su webprovider funziona (anche se lo script contiene qualche bugs)
su 3q mi da Internal Server Error(?????).
A te le conclusioni
Ciao. Armando.



Ciao!
su 
3q.to
 io non riesco più ad eseguire CGI perl che sicuramente prima
andavano .... e che su altri server (
www.virtualave.net
, 
www.netfirms.com
)
funzionano.
Penso che il server abbia dei problemi .... e spero che si risolvano presto.
BLavoro a tutti,
Ezio BOnsi

A proposito di 3q: a voi funziona?
Per non intasare il ng con messaggi OT le chiedo di contattarmi nella
casella di posta fornendomi tutte le indicazioni dei problemi da lei
rilevati in modo da poterle offrire un servizio adeguato.
Distinti Saluti
Andrea Busia
Responsabile Tecnico 3Quick (
http://www.3q.to
)

su 3q mi da Internal Server Error(?????).
Per non intasare il ng con messaggi OT le chiedo di contattarmi nella
casella di posta fornendomi tutte le indicazioni dei problemi da lei
rilevati in modo da poterle offrire un servizio adeguato.
Distinti Saluti
Andrea Busia
Responsabile Tecnico 3Quick (
http://www.3q.to
)
Ciao
Andrea Busia
No Spam, Grazie.

Penso che il server abbia dei problemi .... e spero che si risolvano presto.
Per non intasare il ng con messaggi OT le chiedo di contattarmi nella

Newsgroup: it.comp.lang.perl
Titolo: stranezze sui file....

Voglio proporvi un quesito, seguitemi bene:
ho scritto il seguente codice, premettendo che inizialmente ho creato un
file di testo "file.txt" con un editor e lo scaricato nella directory PROVA
del mio sito,
open (F,"./PROVA/file.txt");
$a=<A>;
close (F);
eseguo questo script tutto bene, funziona perfettamente.
Successivamente ho scritto questo codice:
open (F, ">./PROVA/file.txt");
$a="PROVA";
print F $a;
close (F);
eseguendolo mi da un errore "cannot open file Permission denied", come mai?
Il fatto veramente strano è che, se uso FronPage in modalità on-line con il
mio sito e creo automaticamente un form che si va a salvare dei dati un file
di testo esempio "form.txt", e uso il codice precedente con questo file di
testo funziona perfettamente:
open (F, ">./PROVA/form.txt"); #creato dal form di FrontPage
$a="PROVA";
print F $a;
close (F);
Perchè con il mio file "file.txt" non funziona che razza di differenza c'è
tra i due?
Chi mi può rispondere ed aiutarmi?
Grazie.

tra i due?
Assicurati che si legibile e scrivibile da tutti ("chmod 666" sotto Unix).
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> FAQ di it.comp.lang.perl: 
http://www.borders.it/perl/faq/
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

Newsgroup: it.comp.lang.perl
Titolo: Quale è il miglior linguaggio per...

Volevo un consiglio su quale linguaggio di programmazione usare per
fare una applicazione cgi che faccia le seguenti cose:
-lettura e scrittura di file di testo
-ricerca di file in una directory
-visualizzazione pagine web con dati presi da file
-calcoli matematici semplici ma comunque numerosi
io conosco un po' il perl e mi chiedevo se altri linguaggi erano più
adeguati per quanto riguarda la potenza e la velocità di sviluppo
dell'applicazione.
grazie in anticipo per i consigli

Per la velocità... il C++ è imbattibile!
per la velocità della stesura di un programma che deve combattere con
il testo il perl è il migliore (risparmierai molto tempo).
Per i calcoli è mejo il C/C++ sia per il tempo di stesura (che è uguale
al tempo che impiegheresti con il perl ) sia per la velocità di
esecuzione (molto più veloce il C del perl).
Comunque potresti usare un misto dei due linguaggi...
Spero di esserti stato utile.
Mario.
Newsgroup: it.comp.lang.perl
Titolo: recupero dati da una form

Salve a tutti!
Qualcuno saprebbe dirmi come faccio a recuperare con perl tutte le opzioni
di una select all'interno di un form anche se non sono selezionate?
Grazie! :-)
Laura
--------------------------------
Inviato via 
http://usenet.libero.it

 di una select all'interno di un form anche se non sono selezionate?
Io penso che l'unica sia un parse del sorgente html ... ma a che pro ?
 Raffaello

 Io penso che l'unica sia un parse del sorgente html
Infatti.
Se intendi recuperarle via CGI da un submit del FORM, questo non
è possibile né col Perl né con altre tecnologie... terrene a meno di non
ricorrere a trucchetti JavaScript (con una semplice funzione che al momento
del submit ti imposta una o più variabili del FORM con tutti i valori
della SELECT).
Se invece la FORM non la controlli tu, l'unica possibilità è appunto quella
di fare un bel parsing (usando ad esempio HTML::Tree)
    - Enrico

Newsgroup: it.comp.lang.perl
Titolo: Sono proprio un duro!!!!!

Salve ragazzi,
premetto che sono un bel duro eh eh eh quindi tenetevi forte perchè
quello che stò per chiedere sarà una domanda che fanno solo gli
idioti(boh forse no!)...
Allora:
Premetto che ho l'interprete perl in c:\perl\bin
ho questo script nel file cgi  prova.cgi
#!/perl/bin
print "Content-type: text/html\n\n";
print "<HTML>\n<BODY>\n\n";
@tempo=localtime;
if($tempo[2]==0)
{$file="prova.htm";}
open(FILE,$file);
while(<FILE>)
{print "$_";}
close(FILE);
print "</Body>\n</HTML>\n";
se io volessi richiamare questo benedetto prova.cgi attraverso un
browser ho possibilità che funzioni?
allo stato attuale delle cose il browser mi visualizza l'intero
script!!!!!!!
Mi rispondete per favore? 
cosa dite che è meglio se ripongo il PERL e magari mi dedico al
JavaScript????? eh eh eh eh eh
CIAO CIAO

 script!!!!!!!
E' un problema di configurazione del web server. Quindi abbastanza
off-topic qui. Consultare (non necessariamente in quest'ordine):
 - Manuale del tuo web server
 - Documentazione del Perl per Win32 (c'è una sezione dedicata alla
  configuarazione del web server):
 
http://www.activestate.com/Products/ActivePerl/docs/index.html
  - Qualche FAQ su CGI e Perl, ad es:
 
http://www.perl.com/pub/doc/FAQs/cgi/perl-cgi-faq.html
'notte,
Max

Newsgroup: it.comp.lang.perl
Titolo: DIrectory del programma

Come faccio a far apparire in una variabile la directory in cui si
trova il programma in esecuzione?
Non ditemi di usare "system('pwd')" perchč il programma deve essere
portabile anche su macchine win e lě wd non funge.
Grazie
Andrea

 wrote in message
news:380756d5...@news.tiscalinet.it...


 portabile anche su macchine win e lě wd non funge.
C'e' il modulo standard Cwd. Dovrebbe essere portabile. E' distribuito con
Perl, quindi ce l'hai gia'
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: Script che prende immagine e testo

Ho una directory con delle immagini, ed un altra con dei file di testo.
Vrrei prendere (basandomi sul nome del file, identico tranne che per le
estensioni, logicamente) un file da ciascuna delle due directory e creare
dinamicamente la pagina.
Lo so che forse con un database sarebbe molto piu' semplice, ma al momento
non ho tempo per farlo.
Per l'immagine ho risolto e non e' un problema. Ma per il file di testo?
Se non sbaglio non posso usare un SSI (tipo <!--include virtual ecc. ecc.)...
come lo risolvo?
Spero di essermi spiegato bene... :-)
--
Lorenzo Pulici - 
sno...@tiscalinet.it
  - Web Design
 
http://ellepi.hypermart.net
http://milanohockey.virtualave.net
 
http://snowdog.cjb.net
http://verdebaggio.freeweb.org
 
http://members.xoom.com/Ramones/
 
 
--
Posted from 
mta23-acc.tin.it
 [212.216.176.76]
via Mailgate.ORG Server - 
http://www.mailgate.org

 Ho una directory con delle immagini, ed un altra con dei file di testo.
Mi rispondo da solo... e' bastato leggermi il file in un array e
mandarlo in output con un print :-)
-- 
Lorenzo Pulici - 
sno...@tiscalinet.it
  - Web Design
http://milanohockey.virtualave.net
 
http://snowdog.cjb.net
http://verdebaggio.freeweb.org
 
http://members.xoom.com/Ramones/
   PGP ID: 1D33 3DE6 635E D192 F648  74D9 28A7 E921 3E1A 44F2

Newsgroup: it.comp.lang.perl
Titolo: Allegare FILE

Domandina semplice semplice.
Tramite un form di richiesta informazioni devo far allegare un documento che
avrà sul PC locale. In che modo faccio? Sono arrivato a creare il tasto
Sfoglia... dove ti selezioni un file, ma da li non so andare avanti.
Credo sia abbastanza semplice :)
Marco



E' semplice. La documentazione del modulo CGI lo spiega dettagliatamente.
Se non hai tempo o voglia di leggertela, puoi cercare in giro un tutorial
o degli esempi di codice, come questi che ho trovato con Google:
 
http://www.wiley.com/legacy/compbooks/stein/text/upload.txt
 
http://www-genome.wi.mit.edu/WWW/examples/Ch9/countwords.txt
Max
 

 tasto Sfoglia... dove ti selezioni un file, ma da li non so andare avanti.
Per otennere il file "lato sever" puoi utilizzare ad esempio CGI.pm. Se nel 
form hai un:
<input type="file" name="immagine">
Allora puoi scrivere ad esempio:
use CGI;
$q = new CGI;
$immagine = $q->param('immagine');
while (<$immagine>) {
   print;
}
     A presto, Michele.

Newsgroup: it.comp.lang.perl
Titolo: s/([^\n])</\1\n</g cosa significa?

cosa significa questa riga?
s/([^\n])</\1\n</g
Cosa fa?
Grazie in anticipo, Mario.

 
Cerca tutti i blocchi costituiti da un carattere singolo diverso da LF
seguito dal carattere '<' e sostituisce ciascuno di essi con il primo
carattere seguito da LF e '<'. In sostanza aggiunge un LF prima di ogni
'<' ad eccezione di quelli che sono già preceduti da un LF e di quello che
eventualmente si trova all'inizio della stringa.
Max


Grazie in anticipo, Mario.
scrive il testo in verticale, un carattere per riga


spezza su due linee tutti i caratteri seguiti da <
Newsgroup: it.comp.lang.perl
Titolo: Aiuto!

In uno script scaricato dalla rete ho trovato questo:
"The next thing to do is to determine how the server determines that the
scripts
are perl programs. Some servers require a line such as '#! \perl\bin' to be
placed at the start of the script file, while others can be set to run files
with a '.pl' extension with the perl interpreter. If you have any other perl
CGI programs running on your server, you may want to copy the first line of
one
of these files into '
search_index.pl
' and '
search_query.pl
', if this line is
similar to the example above."
Come posso fare?
E' possibile scaricare i file che siano in grado di fare questo
riconoscimento degli script??
Grazie

Devi solamente mettere come prima riga dei tuoi CGI il percorso dell'interprete
PERL; ad esempio:
#!/usr/local/bin/perl
Umberto Meroni
[
http://www.ubi1k.com
] [
http://www.ubi1k-vb.net
]
[
webm...@ubi1k.com
] [ICQ: 14660006]
[MSN Messenger: 
ub...@hotmail.com
]
[per contattarmi: 
http://www.ubi1k.com/meroni
]

 wrote in message
81olea$7fg$1...@nslave2.tin.it...


http://www.perl.com
Guarda un po' lě se non trovi tutti i PERL che vuoi... ;O))
--


 wrote in message
81qqqf$h2v$1...@nslave1.tin.it...


 wrote in message
81rcpn$o1l$1...@aquila.tiscalinet.it...


 wrote in message
81rju8$ki1$1...@nslave2.tin.it...


 Potrei provare a mandare l'interprete al mio server, e farglielo installare.
Newsgroup: it.comp.lang.perl
Titolo: AIUTOOOO!! "RCPT TO:"

Ciao a tutto il NG.
Io ho un problema: voglio sapere se esiste un indirizzo e-mail magari
valutando degli errori del server SMTP, premettendo che non conosco il Perl,
volevo chiedere se qualcuno mi sa indicare uno script già fatto. Mi è stato
consigliato di utilizzare il comando RCPT TO:<email destinazione>, ma non ho
idea di come fare.
Vi ringrazio anticipatamente, ciao
Nicola.

 TO:<email destinazione>, ma non ho idea di come fare.
  Questo consiglio te l'ha dato il mail server, scommetto. Per motivi di
preservazione della segretezza dei dati personali, ormai e` difficile
che un mail server ti dica quali mailbox gestisce. Ai bei tempi, quando
/spamming/ e /mail bombing/ erano parole sconosciute, i mail server, ed
altri servizi correlati come il directory service o il finder, ti
dicevano vita, morte e miracoli di tutti gli utenti ma ora...
	Alla prossima,
		Marco

 wrote in message 39B8ABC9...@bar.va...


 idea di come fare.
L'unica strategia praticabile per tentare di determinare se un indirizzo
email esiste e funziona è inviare un messaggio ed attendere eventuali
notifiche d'errore. Molti mail server (Exchange e Postifix, per citarne
due) accettano i messaggi anche se destinati a indirizzi non esistenti,
quindi la risposta del server a un "RCPT TO" non è in generale da
considerarsi indicativa.
Max

 idea di come fare.
E leggere i messaggi del newsgroup?
Hai fatto la stessa domanda, con lo stesso messaggio il 31 Agosto.
L' 1 Settembre e' apparso un messaggio dal titolo 
"[FAQ] Verifica indirizzi di E-mail" in cui suggerivo una soluzione ad un
problema simile al tuo.
Ci sono stati problemi di distribuzione? Non e' arrivato? Devo rispedirlo?
O leggere i messaggi non correlati al tuo e' ritenuto superfluo? 
Eppure il subject mi sembrava sufficientemente esplicativo da invogliare
chiunque interessato al problema alla lettura.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 wrote in message
8pajvj$alj$2...@menelao.polito.it...


Newsgroup: it.comp.lang.perl
Titolo: Chiamando a un'applicazione console

Vi illustro brevemente lo scenario. Ho un sistema in cui il browser chiama
(attraverso un proxy
server locale e dedicato) un applicazione perl (eseguibile). Questo
programma perl richiama
un'applicazione console esterna passandole dei parametri e ne processa lo
standard output.
Solo per essere più precisi l'applicazione è il motore di ricerca Swish.
Il problema è che la chiamata a Swish fa flashare la finestra nera di
console sullo schermo.
Qualcuno sa come posso evitarlo?
Grazie.
--
Gian Luca Fracasso
CSP - Innovazione nelle ICT
_________________________________________________
via Livorno, 60 - 10144 Torino [Italy]
gianluca...@csp.it
 - phone 
+39011316.5145
_________________________________________________

 cerchero` un'altra donna dentro ai sogni di Tarzan
Newsgroup: it.comp.lang.perl
Titolo: tagliare stringa dopo slash

Ciao a tutti,
ho una stringa che contiene il valore 80/07 oppure 100/07 come faccio
per eliminare tutto quello che sta dopo lo slash (compreso), in poche
parole mi serve l'intero + a sinistra.
Ho provato a vedere il modello di sostituzione e sono sicuro che con
questo si possa fare ma non riesco a capire come.
Grazie a tutti

 ha scritto:

use strict;
my $stringa = "80/07";
$stringa =~ /(.*)\/(.*)/; #Non pensate male ^_^
$stringa = $1;
print "Risultato: ".$stringa;
In pratica fai il pattern matching, prendi la prima parte prima dello slash 
e glielo riassegni.
Occhio, lui prende la parte a sinistra dell'ultimo slash, se hai qualcosa 
del tipo 333/444/555 ti prende 333/444.

 ha scritto:

Scusa icestorm ho visto anche la funzione split, poichè mi
risolverebbe anche il problema che mi ponevi tu alla fine, ho scritto
$rs_pp=80/07/09 #mi serve 80;
@rs_pp_spl= split ( /\//, $rs_pp );
ma sembra non andare. mi poresti spiegare perchè?


prova @rs_pp_spl= split ('/', $rs_pp );

 $rs_pp=80/07/09 #mi serve 80;
E' un errore di copiatura, o l'hai proprio scritto cosě, senza virgolette?
Max

 Max
Quel valore mi vene restituito da una query  ho scritto quella riga
per rendere comprensibile la situazione.

 ma sembra non andare. mi poresti spiegare perchè?
"ma sembra non andare" - che vuol dire? Perché non essere più chiari
dall'inizio, e dire "l'array risulta vuoto", oppure "l'array contiene
un solo elemento XXXXX, il cui valore è palesemente errato per i miei
scopi" oppure... quello che ti sembra non andare? Tanto più che chiedi
una spiegazione!?!
In ogni caso, ripeto la domanda di Max M.: sei sicuro di come
inizializzi $rs_pp? Così come hai scritto, contiene il valore "
0.126984126984127" corrispondente al valore numerico 80 diviso il
valore numerico 7 (07 in ottale) diviso il valore numerico 90.

Newsgroup: it.comp.lang.perl
Titolo: proteggere una directory con .htaccess

Se proteggo una directory con .htaccess entrando nella directory appare la
maschera di autenticazione. Se uno script .cgi collocato altrove richiama un
file intale directory, vi ha libero accesso o appare lo stesso la maschera
di autenticazione?

 [2001-06-03 21:22]:

Mi dici che attinenza ha con il Perl, questa domanda?
Bye,
 Emmanuele.
-- 
Emmanuele Bassi         |             [ 
http://digilander.iol.it/ebassi/
 ]
emmanue...@iol.it
  |
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

Primo Lagazzo wrote:

No. In quanto .htaccess regola l'accesso TRAMITE WEB e quendo un cgi apre 
un file lo fa attraverso il sistema operativo.
--
 Mattia
Newsgroup: it.comp.lang.perl
Titolo: perl, fork, daemon e database. dove sbaglio ?

Salve,
ho scritto un po' di codice in Perl per connettermi ad un databasema ed 
eseguire delle operazioni in contemporanea su di esso ma ho dei problemi.
Ho scritto un package
# PACKAGE PER LA GESTIONE DELLA BASE DATI SU DB
package Database ;
use DBI ;
my $conn ;
sub createConnection {
        my($data_source,$username,$password) = @_ ;
        # connessione al DB
        $conn = DBI->connect( $data_source, $username, $password) or return 
1 ;
        return 0 ;
}
sub destroyConnection {
        $conn->disconnect ;
        return 0 ;
}
sub getParametro {
        .....
}
.....
Da un'altro script perl
# SCRIPT PERL
use Database ;
Database::createConnection( ... ) ;
my $result = Database::getParametro( ... ) ;
Il problema e' che se faccio diventare un daemon lo script perl non riesco 
piu' a connettermi al db ed eseguire gli statement ricevendo questo errore
DBD::Pg::st execute failed: pqReadData() -- backend closed the channel 
unexpectedly.
        This probably means the backend terminated abnormally
        before or while processing the request.
Statement has no result columns to bind (perhaps you need to successfully 
call execute first) at Database.pm line 270.
DBD::Pg::st execute failed: pqReadData() -- backend closed the channel 
unexpectedly.
        This probably means the backend terminated abnormally
        before or while processing the request.
Lo stesso se uso il fork per mandare un po' di richieste in parallelo
al database.
Dove sbaglio ????

 questo errore
Se il tuo programma chiama fork() *dopo* aver effettuato la connessione al
DB ti ritrovi con due processi che condividono la stessa connessione.
A questo punto, se uno dei due *non* deve effettuare operazioni sul
database, devi comunque impedire che alla distruzione dell'handle venga
effettuata la disconnessione dal database. A questo scopo devi impostare
un apposito flag:
   $h->{InactiveDestroy} = 1;
Se imvece entrambi cercano di interagire con il database i risultati
saranno imprevedibili.
Soluzione: ogni processo apre una propria connessione al database dopo
aver chiamato fork().
Max


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

Sto provando a realizzare un archivio SDBM.
Che differenza c'è tra questo tipo di archivi e quelli
creati col modulo DB_File?
Come posso gestire "decentemente" il lock del mio db?
(per ora sto usando un flock su un file di appoggio prima
di usare tie: fa troppo ridere come metodo?)
Grazie e ciao a tutti.

 di usare tie: fa troppo ridere come metodo?)
Non e' male. La manpage di DB_File suggerisce un metodo per lockare il
database (tramite il file descriptor prelevato dalla variabile tied),
ma non so quanto sia efficace (ed e' anche abbastanza macchinoso).
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: aprire un file in modalita aggiuntiva..

Voglio creare uno script che mi apri un file che contiente istruzioni html
ma non deve cancellarne il contenuto ma aggiungere il testo aggiuntivo come
devo fare??
Grazie
open (FILE,"???")
Grazie

 open (FILE,"???")
open (FILE, ">> $file");
Ciao
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

 wrote in message news:n09ck8...@127.0.0.1...


 open (FILE, ">>../html/rubrica") or print "NON VA";
Invece di scrivere "Non Va", fagli stampare il messaggio di errore vero
contenuto in $!.
Inoltre ti ricordo che l'utente che esegue i programmi non sei tu ma
tipicamente nobody, quindi deve avere i diritti di scrittura sulla directory
(cosa che di solito non ha)
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: *****SICUREZZA DEGLI SCRIPT*******

Salve,
Vorrei sapere se è possibile che qualcuno legga uno script da una directory
cgi-bin, o se tale directory essendo percorso di esecuzione non dia la
possibilità di leggere gli scripts contenuti in essa
Ringrazio anticipatamente quell'ammirevole persona che colmerà questa mia
ignioranza :-)
Ruggero 

 wrote in message
01c01a87$885123e0$fd171497@sgarbiru...


Newsgroup: it.comp.lang.perl
Titolo: Visualizzazione Moduli

Esiste un'istruzione magari digitabile anche dalla linea di comando per
visualizzare tutti i moduli
perl installati nel sistema ??
Grazie

perldoc perllocal
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"
Newsgroup: it.comp.lang.perl
Titolo: formattare gli output

sono finlmente riuscito a creare un interfaccia in perl con modulo Pg per
l'interazione client-server su un db postgres. Il piu' e' fatto, per quanto
possa sembrare poco;-).
Ho pero' un piccolo problema di formattazione: trattandosi di articoli,
l'ultimo campo del db che viene in output sulla pagina web "risultati della
ricerca" e' un varchar(1000), scritto di continuo (vi potete immaginare il
risultato...).
_ premesso che la formula che uso per l'output e' questa:
print "<table>\n";
print "<tr>\n";
    for ($i=0; $i<=$#tabella; $i++) {
        for ($j=0; $j<=$#{tabella[$i]}; $j++) {
            print "<td>$tabella[$i][$j]</td>\t";
print "</tr>\n";
            }
        print "\n";
    };
print "</table>\n";
    #dove @tabella e' l'array che viene riempito con i dati dellla query
Come posso formattare l'output del campo che contiene il testo dell'
articolo facendo si che vada a capo ogni 7/8 parole????
come al solito ringrazio anticipatamente chiunque volesse darmi una mano.
fabio.

 articolo facendo si che vada a capo ogni 7/8 parole????
Usa Text::Wrap per far stampare del testo entro un numero prefissato di
colonne.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 }
Vedo che invece tu la sfera di cristallo l'hai già ritirata! :-)
Ciao,
Valerio




Perche' mai? Non e' forse la riscrittura perl del codice immediatamente
precedente? Per quello non serviva la sfera di cristallo.


 precedente? Per quello non serviva la sfera di cristallo.
Era un complimento... ti ho immaginato che guardavi il codice con una
sola
occhiata e sim-sala-bim! scrivevi il corrispondente in perl chiaro e
leggibile.
:-)
Ciao,
Valerio




Ah. Ma la sfera di cristallo non serve a quello... per quello ho il
perl-o-matic, che ho appena fatto revisionare e funziona che e' un bijoux.
:-)


Newsgroup: it.comp.lang.perl
Titolo: creare caselle e-mail

Ciao a tutti,
sul mio sito dovrei dare agli utenti registrati la possibilità di crearsi
una e-mail attraverso un semplice form in cui scelgono una userid e magari
una password.
il server e Linux, web server apache c'è installato php e perl...
qualcuno sa darmi una mano?
grazie
gm



prima di essere un problema perl è un problema linux...
sapresti fare tutto l'andaraban a mano?
se si, si tratta solo di automatizzarlo col perl...
--
pigmalion at home
http://www.pigmalion.info/
Newsgroup: it.comp.lang.perl
Titolo: Mancato sorting

come da stralcio di codice ,  voglio inserire in %in,  dei valori dove il
Keys numerico è  già ordinato crescente: 20051210, 20051211, 20051212, etc..
, mentre la Values, sono numeri float, ma indifferentemente ordinati.
Il caso strano che mi succede dopo aver assegnato tutto  %in, secondo la
$inKey, che definisce volta volta la key, il suo ordine NON è più ordinato
crescente, ma sparso, nonostante la sort keys %in finale.
che se 'po 'fa pe raddriza'  'sta chiavica de codice ??
'mbe grazie ;-)
......
for($i=0;$i < @tit ;$i++){
shift @tit if $tit[$i] =~ m/Date/;
@titc = split/;/,$tit[$i];
$loc = $locc = 1;
for($j=0;$j < @titc ;$j++){
if($is[$j] eq i){
$Layer[0]->assign($i+1,$loc,&norm($titc[$j])) ;
$inKey = $titc[$j];
# $in{$inKey};
push( @in,$titc[$j]);
$loc++;
}
if($is[$j] eq o){
$LayerOut[$n_strati_nascosti+1]->assign($i+1,$locc,&norm($titc[$j])) ;
$in{$inKey} =$titc[$j];
$locc++;
}
}
}
sort keys %in;
........

sort keys %in;
Non ho capito nulla del resto, ma questa riga, isolata, č
assolutamente inutile.
sort non riordina le chiavi nell'hash (e non potrebbe neppur farlo,
per definizione di hash), ma restituisce invece un array ordinato
delle chiavi; array che tu butti via, senza farci nulla.
Un modo per lavorare in ordine le chiavi č:
   for my $chiave (sort keys %in) {
       print $chiave, "\n";
   }
Ciao.