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

Salve a tutti,
ho bisogno di un modulo getopt per un semplice programma perl che sto
scrivendo. Ho provato a cercare su CPAN e sono stato investito da una
miriade di moduli diversi. Ho provato Getopt::Declare, ma mi sembra
davvero eccessivamente complesso. Mi servirebbe una cosa piu' semplice.
Qualcuno ha esperienza in merito e si sente di consigliarmi qualcosa?
grazie
Luca


Getopt::Long e' ottimo ed e' nella distribuzione standard.
puoi dichiarare facilmente le opzioni che vuoi e assignarle
a variabili, specificando se devono avere un valore, e se e'
numerico o alfabetico. Vedi l'esempio dalla documentazione ufficiale:
use Getopt::Long;
my $data   = "file.dat";
my $length = 24;
my $verbose;
$result = GetOptions ("length=i" => \$length,    # numeric
                       "file=s"   => \$data,      # string
                       "verbose"  => \$verbose);  # flag
Con questo, puoi chiamare il tuo programma con le opzioni
nomeprog --length=2 --file=pippo.txt --verbose
Ma puoi anche definire un'opzione in formato duplice:
$result = GetOptions ("length|l=i" => \$length,    # numeric
                       "file|f=s"   => \$data,      # string
                       "verbose|v"  => \$verbose);  # flag
ora puoi anche dire:
nomeprog -l 2 -f pippo.txt -v
Il risultato di GetOptions deve essere 0, cioe' tutto bene. Se e' non 
zero, significa che e' stata passata un'opzione errata.
La documentazione contiene molto, ma molto di piu'.
Per un uso elementare, quel che ti ho detto e' sufficiente.
Ciao
G
-- 
   ____ ____  _____ _   _
  / _  |    \(____ ( \ / )
( (_| | | | / ___ |) X (
  \___ |_|_|_\_____(_/ \_)
(_____|
Sapere, saper fare, fare, far sapere
http://gmax.oltrelinux.com

Qualcuno ha esperienza in merito e si sente di consigliarmi qualcosa?
Confronti comparativi francamente non sono in grado di farne, Getopt::Std e
Getopt::Long, comunque, mi pare siano moduli "standard" installati di
default nella maggior parte delle distribuzioni, e dovrebbero avere tutto
quello che serve, a meno di esigenze particolarmente sofisticate. Li ho
usati un paio di volte senza incontrare particolari difficoltà.
C'è anche un Getopt::Simple, che si può immaginare sia stato chiamato così
per qualche motivo.
Ciao.

Grazie a entrambi,
ala fine ho optato per Getopt::Mixed, trovato in post recenti del gruppo.
Luca
Newsgroup: it.comp.lang.perl
Titolo: Connessione a Pg da Win98...(II)

Ciao,
innanzi tutto ti ringrazio per avermi risposto.
Visto che nel precedente posting non sono stato molto preciso ti spiego
subito quello che avevo intenzione di fare.
Dunque, nella mia rete domestica ho un server linux RH6.2 su cui ho
installato pg e perl e per "omogeneità" ma anche per curiosità ho voluto
installare il perl anche sotto win98. La mia idea era quella di fare un
programmetto che legge dei dati in formato testo dal client, li formatta
e li memorizza sul db remoto. Lo so che avrei potuto farlo in vb+odbc,
per esempio, però mi piaceva imparare anche un po' di perl (non si sa mai
:-)).
Quello che hai detto sullo script e la locazione del db(locale o remoto)
è vera, non ci avevo pensato: come parametro la connessione ammette solo
il nome del db. Quindi mi sa che la conclusione è quella di utilizzare
odbc. I drivere odbc per Pg li ho già installati, adesso però mi chiedo
come faccio a usarli in uno script, quale modulo devo richiedere etc.
Mi chiedo se potresti accennarmi qualcosa su come usare perl+odbc, già
che sei stato così paziente da seguirmi fino a qui.
TIA,
    Manrico
P.S.
sfogliando qua e la ho trovato questo testo interessante...
-------------------------------> CUT <-----------------------------------
    parameter  environment variable  hard coded default
    --------------------------------------------------
    host       PGHOST                localhost
    port       PGPORT                5432
    options    PGOPTIONS             ""
    tty        PGTTY                 ""
    dbname     PGDATABASE            current userid
    user       PGUSER                current userid
    password   PGPASSWORD            ""
Using appropriate methods you can access almost all fields of the returned
PGconn structure.
    $conn = Pg::setdbLogin($pghost, $pgport, $pgoptions, $pgtty, $dbname,
$login, $pwd)
Opens a new connection to the backend. The connection identifier $conn ( a
pointer to the PGconn structure ) must be used in subsequent commands for
unique identification. Before using $conn you should call $conn->status to
ensure, that the connection was properly made.
    $conn = Pg::setdb($pghost, $pgport, $pgoptions, $pgtty, $dbname)
The method setdb should be used when username/password authentication is not
needed.
    $conn = Pg::connectdb("option1=value option2=value ...")
-------------------------------> CUT <-----------------------------------
Questo indica che è comunque possibile specificare parametri di
connessione personalizzati (il nome del database era solo uno dei
parametri).
Quindi la connessione su db remoto è fattibili a meno di non essere sotto
windows. Infatti mentre Pg.pm sotto linux si basa sulla libreria psql.so
sotto win98 non ho trovato nessun supporto, eccetto che i driver ODBC.
--
Posted from 
ns.omnitel.it
 [194.20.65.11] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote:
Quella e' roba per UNIX, che utilizza le opportune librerie di Pg.
per l'accesso. Devi utilizzare i moduli ODBC.
-- 
Ciao, Maurizio.
Newsgroup: it.comp.lang.perl
Titolo: Perl e problema ....stateless

PREMESSA: chiedo solo soluzioni al problema funzionanti su IIS o PWS
win32/nt
Poniamo il caso che io ho una pagina HTML
<A HREF = "ciccio.cgi?....">
in questo script (in perl) vi e' il seguente codice
use dboracle;
my $dbh;
$dbh = dboracle->connect()
dove il metodo connect permette di connettersi al DB nell'esempio ORACLE.
Com'e' possibile preservare il valore della variabile $dbh TRA UNA chiamata
HTTP e l'altra evitando quindi che si perda ogni volta la connessione ad
Oracle ottimizzando e velocizzando l'applicativo ?
Mio obiettivo e' quello di fare in modo che una volta connesso non mi debba
piu' connettere. Questo putroppo per via che il protocollo HTTP e'
stateless....
ECCO ....una soluzione tipo GLOBAL.ASA c'e' l'ha pure il PERL.....?
Grazie, Roberto

 
La questione non riguarda tanto il Perl, quanto l'ambiente in cui viene
eseguito i codice. Se la possibilità di mantenere di una connessione
persistente al database è un dettaglio importante (e lo normlmente lo è),
gli script CGI non sono l'opzione migliore. Ecco alcune soluzioni che
potresti invece valutare:
 apache+mod_perl  
http://perl.apache.org
 VelociGen(TM)	  
http://www.binaryevolution.com
 ASP+Perlscript   http:://
www.activestate.com
Max
Newsgroup: it.comp.lang.perl
Titolo: ftp e perl

Ciao a tutti,
non frequento molto i newsgroup e spero che il mio linguaggio sia corretto.
Ho un problemino:
dovrei fare una procedura in perl per accedere ad un server ftp per
manipolare dei file.
Qualcuno sa come posso fare? mi basterebbe anche una dritta su un sito che
parla di questo.
grazie mille in anticipo!!
ciao ciao Salvatore Petrozza

 una dritta su un sito che parla di questo.
 Net::FTP
 
http://search.cpan.org/search?dist=libnet
 
http://www.gbarr.demon.co.uk/libnet/

Newsgroup: it.comp.lang.perl
Titolo: PATH in windows nt?????

Ciao, ho la necessità di aprire un files nel mio programma, il files si
trova una directory sotto quella del programma,
se metto il file nella stessa directory tutto funziona, se lo metto in altri
posto non riesco a ragiungerlo con il path, qualcuno
sa come fare, è un problema di \ ?
open(TERZO,"< ..\footer-8volante.inc"); #questo ad esempio non funziona!
while (<TERZO>)
{
print;
}
Grazie
--
Luca Vertua
te...@8volante.com
8volante srl soluzioni_internet
Via Cernaia 7
25034 - Orzinuovi - Bs
Tel.: 030/9444003
Fax: 02/700430453
www.8volante.com

 come fare, è un problema di \ ?
  Esattamente: prova ad eseguire il seguente script:
<code>
	print "..\footer-8volante.inc","\n";
	print "..\\footer-8volante.inc","\n";
</code>
e tieni presente che il Perl e` in grado di interpretare correttamente i
/path/ in Unix-style anche sulle altre piattaforme, per cui, senza
arrovellarsi troppo,
	open TERZO,"<../footer-8volante.inc";
funziona sicuramente.
	Alla prossima,
		Marco

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

Ciao a tutti,
ho la necessità di chiamare uno script CGI da un altro...
Sto utilizzando il CGI ("use CGI qw(:standard)") e mi interessava
conoscere la sintassi per riuscire a passare dei parametri al CGI
chiamato. Inoltre la sintassi per riuscire a recuperare i valori dei
parametri passati nel CGI chiamato dal CGI chiamante.
Ringraziamenti anticipati.
Ciao,
    Ivan..
--
 Ivan  De Marco
 ZEROPIU SpA
 via Melzi d'Eril,  26   -   20154 Milano
 ITALY
 Tel: 
+39-02-34530018
 -  Fax: 
+39-02-34532148
 e-mail:   
ivan.d...@zeropiu.it
 homepage: 
http://www.zeropiu.com

prova con:
print "Location:
http://www.server.com/cgi-bin/nomescript.cgi?var1=parametro1&var2=parametro2
...\n\n";
-- 
Posted from 
smtp4.libero.it
 [193.70.192.54] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.perl
Titolo: Perl e Sql

Salve a tutti,
Ho da poco incominciato a dedicarmi ai database e dopo alcune
incertezze sul linguaggio da utilizzare ho scelto perl piuttosto che
php.
Ora vorrei un aiuto da qualcuno che sfrutta perl con i database e
domandare se mi conviene studiare Mysql oppure un manuale di Sql
generico.
Quali sarebbero i vantaggi dell'una o dell'altra scelta? grazie
anticipatamente

 anticipatamente
Non proprio una domanda di Perl, ma prova a vedere questo articoletto:
http://www.perlmonks.org/index.pl?node_id=298213
Il succo e': comincia dalle basi generiche, e poi buttati sullo 
strumento specifico.
Ciao
gmax
-- 
   ____ ____  _____ _   _
  / _  |    \(____ ( \ / )
( (_| | | | / ___ |) X (
  \___ |_|_|_\_____(_/ \_)
(_____|
Sapere, saper fare, fare, far sapere
http://gmax.oltrelinux.com

 ha scritto nel messaggio
news:FQJBc.507108$rM4.21...@news4.tin.it...

secondo me, per risparmiare, compra un manuale di mysql e inizia da li.
Tanto č uguale.
E' inutile che ti compri 200 manuali


Penso che l'apprendimento dello standard SQL sia la prima cosa, poi uno
sceglie cosa usare, es. Postgresql, Mysql, Oracle; con Perl dovrai prendere
padronanza con i DBD-DBI, il sistema che Perl usa per interfacciarsi con i
database.
Ciao
--
Zeta Persei Florence Italy

 E' inutile che ti compri 200 manuali
E' vero. Ma ci sono anche tanti tutorial in rete che ti fanno imparare
senza che ti sveni.
http://www.google.com/search?q=sql+tutorial


 "colonna" nella lista dei campi se vuoi usarla con GROUP BY
Non con la versione di Oracle che uso io (8.1.7.4.0).
 SQL> desc xml_eireg;
 Name                   Null?    Type
 ---------------------- -------- ------------------------------------
 ID                     NOT NULL VARCHAR2(129)
 DATA                            LONG
 SQL> SELECT COUNT(*) FROM xml_eireg GROUP BY id;
   COUNT(*)
 ----------
         1
         1
         1
         1
         1
         1
 6 rows selected. 
Max

Newsgroup: it.comp.lang.perl
Titolo: Cerco uno script per UPLOAD

Qualcuno ha o può consigliarmi
uno script perl che mi permetta
di fare un UPLOAD di file
dal client al server?
Grazie

Su 
http://www.cgi-resources.com/
ne trovi quanti ne vuoi, sotto Programs and Scripts, Perl, File Upload.
Ciao,
Ubi1k
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
]
Newsgroup: it.comp.lang.perl
Titolo: Mime-lite....

Come faccio a verificare se una email è stata correttamente inviata
tramite l'uso
del Mime::Lite ???
Io ho provato così, ma non funziona. Cioè indicando un email errato
non ricevo il messaggio di ERRORE ...
Perchè ???
$msg->send() or print "ERRORE !!!";

 $msg->send() or print "ERRORE !!!";
Perchč il messaggi oviene spedito, e non vengono rilevati errori NELLA
SPEDIZIONE. Che poi il destinatario non esista č un altro discorso, ma
la spedizione č avvenuta in ogni caso.
Per risolvere: o usi un programmino (che non so piů dove si trovi!) di
nome addrcheck di Tom Christinansen (prova su 
perl.com
 alla sezione
autori), che controlla il destinatario prima di inviare, oppure
(soluzione un po' piů sporca!) usi un campo
Errors-To: tua_email
cosě che ti tornino indietro le email con destinatario inesistente.
Ciao
M.
-- 
rm -rf 
and be happy



Effettivamente anche a me da sempre errore percorso non trovato....o
giù di li, anche se poi il messaggio viene di fatto spedito e letto
dal destinatario....non so che dirti ma se ti va mi piacerebbe
rimanere in contatto e provare a risolvere il problema perchè in
effetti dovrà pur esserci una soluzione no?!?
ciao ciao a presto e fammi sapere
Claudio Bellucci

ok! no problem
Il mio problema è quello della verifica dell'invio della email.
quello che tu dici a me capita esclusivamente su server IIS, su Apache
no.
Non mi capacito del perchè.
Tu che server usi ???
ciao


 Non mi capacito del perchč.

Newsgroup: it.comp.lang.perl
Titolo: Estrarre email da html

Esiste gia' uno script per estrarre email da pagine web?
Per esempio usando wget -m  e far parsare lo stardard output ad uno script 
che estrae solo le email?
O se qualcuno è in grado di scrivere con "due righe" di perl un simile 
programmino...
Graziez 

 programmino...
Praticamente vuoi uno script perl per riempire un db a cui inviare
spam? :D

 spam? :D
Puo' essere utilizzato anche per questo... cmq è anche una curiosità 
intellettuale...
Per lo spam c'e' "advanced email extractor" che funziona in modo egregio. 


Bhe, direi che si può facilmente fare una cosa del genere:
(con le pagine salvate in un singolo file con l'opzione -O di wget,
lanciarci sopra questo script):
#!/usr/bin/perl
open(FILE,$ARGV[0]);
while ($line=<FILE>) {
  ($mail)=$line=~/([\w\.]+@[\w\.]+\.[a-z]{2,3})[^\w\.@]+/;
  print $mail,"\n" if ($mail);
}
close(FILE);

Bhe, direi che si puň facilmente fare una cosa del genere:
(con le pagine salvate in un singolo file con l'opzione -O di wget,
lanciarci sopra questo script):
#!/usr/bin/perl
open(FILE,$ARGV[0]);
while ($line=<FILE>) {
  ($mail)=$line=~/([\w\.]+@[\w\.]+\.[a-z]{2,3})[^\w\.@]+/;
  print $mail,"\n" if ($mail);
}
close(FILE);
Notevole!
Lo provo e lo studio! Cosě imparo anche qualcosa.

Ho trovato anche questo... anche se lavora un po' diversamente, cioe' a line 
di comando e non va in ricorsione sulle pagine.
Lo metto a disposizione per eventuali commenti.
wget -m -q -O - '
http://il_sito_web_target/
' | perl -lne 
's///g;s/&#(\d+);/chr($1)/eg;@x=/([\w+.-]+)(?:\s*_)?\s*(?:\s+ats+|@)(?:\s*_)?\s*([a-z\d-]+\s*(?:.|dot)\s*)+([a-z]{2,8})/i; 
if (@x) { $x[0].="@"; print @x }' | sort -u >> maillist.txt
Newsgroup: it.comp.lang.perl
Titolo: Problema con PKUNZIP

chiede dove voglio salvare il file, in questo caso il file pl?
Perche' il browser non riconosce il file pl come qualcosa che lui
sappia trattare, cosi` che ricade nell'operazione di default, cioe`
appunto salvarlo da qualche parte. Qualche "Content-type" o simili
sbagliato da parte del server e/o del tuo script, immagino.
Ma a parte questo, e a parte che in it.* non sono concessi i messaggi
con allegati, cosicche' dubito che questo tuo messaggio comparira` mai
su un server italiano, fammi capire: tu scrivi il contenuto del file
pdf (aggiungendoci a caso dei newline, cosi`, piu` ce n'e` e piu` ci
divertiamo) in un documento html, lo dai in pasto al browser e, dici,
"funziona egregiamente"? Se questo e` il cgi, sono contento di saperne
cosi` poco.
Quanto al perl, invece, l'istruzione:
     print $riga."\n";
e` un obbrobrio che grida vendetta. Sostituiscila (posto che
l'operazione sia corretta, del che dubito), con:
     print $riga, "\n";
 
Ciao.

Dunque, questo è il codice a cui sono giunto:
#!/perl/bin
use CGI qw/:standard/;
#ACQUISIZIONE PARAMENTRI
$FILETOUNZIP=(param('FILETOUNZIP'));
$FILEZIP=(param('FILEZIP'));
#ASSEGNAZIONE A 'drive[0]' LA LETTERA INERENTE AL DRIVE DA CUI VIENE
ESEGUITO DATAONODISK
(@drive) = split(/:/,$ENV{PATH_TRANSLATED});
$FILEZIP = $drive[0].":".$FILEZIP;
#DECOMPRESSIONE FILE ZIP
system ("$drive[0]:/Tools/pkunzip -o $FILEZIP c:/temp $FILETOUNZIP >
c:/temp/log.txt");
$FILETOUNZIP = "/C:/Temp/".$FILETOUNZIP;
#REDIRECT FILE PDF
print header;
print "<html><head></head><body>";
print "<meta http-equiv=refresh content=\"0 url=$FILETOUNZIP\">";
print "</body></html>";
Mi apparavia la pagina di download *.pl perchè il pkunzip aveva bisogno di
restituire dell'output, quindi non sapendo dove stamparlo...
Non sono una cima, anzi, sono proprio alle prime armi con il perl, quindi
ogni critica e consiglio sarà utilissima per me :-)
Ora ho un'altro problema, con il redirect il back del browser non funziona,
devo trovare un modo per aprire i pdf in perl.
Sto cercando sulla rete, ma ne caso tu sapessi come fare, fammi pure un
fischio!!!
Luca
P.S: non sapevo non si potessero uplodare attachment...grazie a te ora lo
so;-)
Newsgroup: it.comp.lang.perl
Titolo: manuale

Ciao a tutti,
qualcuno mi saprebbe consigliare qualche buon manuale su cui imparare il 
perl?
Grazie
Jay

 ha scritto nel messaggio 
news:420CD6E6...@email.it...

Io son venuto su con "Programmare in Perl" della O'really
(si scriverà così? :-p )
Su internet trovi lo trovi facilmente in inglese: "Programming Perl".
poi fatti un giro su google groups all'interno di questo newsgroup:
troverai sicuramente molti consigli.
ciau 

Jay ha scritto:

ciao, ti consiglio queste due risorse:
http://www.dei.unipd.it/~tigre/b/PerlTutorial/
per imparare l'abc, e come passo successivo
http://www.hyperbook.it/
dove trovi un manuale di perl in italiano da consultare online, semplice 
ma fatto molto bene

 perl?
A questo indirizzo 
http://freeweb.supereva.com/programmarein/perl/liv.htm?p
puoi trovare un manuale per iniziare.

 perl?
http://learn.perl.org/library/beginning_perl/
ciao
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.perl
Titolo: Utilizzo di gethostbyaddr

Ho qualche problema ad utilizzare la funzione gethostbyaddr.
Ho segito gli esempi della documentazione però provando il
codice:
use Socket;
$addr = '123.123.123.123';
$name  = gethostbyaddr($addr, AF_INET);
print "$name";
Non mi viene restituito nessun nome di dominio benchè
all'ip corrisponde effettivamente un dominio (non quello
di questo esempio).
Dove sbaglio?
Grazie.
--
Saluti
~~~~~~~~~~~~~~~~~
Veneziano Davide (
ve...@vene.ws
)
http://www.vene.ws
  Faq e manuali, Servizi Internet
http://mail.vene.ws
 E-mail Gratuite Pop3/Smtp/Web
ICQ# 14047537

print "$name";
Il problema e` nel parametro passato, deve essere un indirizzo
binario compresso, quindi la seconda riga va cambiata in:
$addr = aton("123.123.123.123");
	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!

 $addr = aton("123.123.123.123");
Ok, grazie mille.

Newsgroup: it.comp.lang.perl
Titolo: Sendmail


Date: Tue, 07 Aug 2001 06:25:00 -0400
e sotto c'è il messaggio che deve inviare il sendmail.
Da che cosa può dipendere questo strano modo di inviare la mail?

 Da che cosa può dipendere questo strano modo di inviare la mail?
Probabilmente dalla configurazione di sendmail; se nel codice dove
prepari la mail non specifichi un mittente (Sender, campo From:), può
succedere che la mail risulti inviata da "Nobody", visto che sendmail
non sa da chi falra inviare, oppure la invia dall'utente che ha lanciato
sendmail (ed in questo caso sarebbe strano perchè è arcinoto che
sendmail gira con i privilegi di root, e non di Nobody!).
Probabilmente, il vecchio sendmail era configurato in modo da andarsi a
pescare in qualche modo un indirizzo; ad esempio, in linea del tutto
teorica, tu utente pippo del dominio 
pluto.com
 inviavi tramite sendmail
una mail; lui sapeva che lo script era lanciato dall'utente pippo del
dominio 
pluto.com
 e lo inseriva come sender, nel caso questo non fosse
presente....
E' tutto "in linea teorica", comunque!
La prova del 9 la ottieni inserendo qualcosa tipo:
print MAIL "From: 
i...@miodominio.com
\n";
nello script perl che genera la mail.
Se invece il campo From: lo settavi già, butta pure via questo
messaggio! :-)
(a meno che sendmail ti riscriva l'indirizzo del mittente, che sarebbe
una bella cavolata!!)
Per il subject, invece, non saprei che dire ...
Ciao
--ev

 ha scritto nel messaggio
news:i0Qb7.141016$Pb6.7...@news1.tin.it...


Newsgroup: it.comp.lang.perl
Titolo: scusate 1 domanda

Vorrei leggere da un file txt dei dati cosě composti:
userid=valoreuseriduserid&password=valorepassword&link=valorelink
per far corrispondere ad una corretta digitazione di uid e password da parte
dell'utente, l'apertura di un link corrispondente.
Allora prima faccio lo split dei dati in ingresso rispetto al carattere "&"
quindi rispetto al carattere "=".
Il problema che devo risolvere č il seguente:
come faccio a far corrispondere il link univocamente alla coppia uid
password, come invece č possibile usando il tipo di dato hash?
Grazie
Lgbz

antimosh003 wrote:

Puoi usare un array di hash:
$dati[$i]{$chiave}=$valore;   # ciclo ripetuto per ogni coppia "chiave=valore" e
per ogni riga letta dal txt
incrementando $i ad ogni nuova terna di valori.
Alla fine, ogni elemento di @dati č un diverso hash che contiene i tre dati
abbinati.
Se ho capito bene, era questo che ti serviva.

 ha scritto nel messaggio
news:3B4C2B95...@unifi.it...

Newsgroup: it.comp.lang.perl
Titolo: YAPC::Europe::Munich - Last call for participation

Last call For Participation YAPC::Europe::2002 - September 18-20
 
http://www.yapc.org/Europe/2002/registration.html
Conference fee is set at 89 Euros.
YAPC is an inexpensive 3-day grassroots perl conference, where users,
and developers, can mingle, listen, talk, and exchange ideas about the
perl programming language.  This year's conference will be held in
Munich, capital city of Bavaria, (as near to the continental centre of
Europe  as you can get, without spotting the sea), Germany.
There will be a mixture of short and long tutorials and talks, covering
a wide variety of subjects.  This year's theme is 'The Science of Perl',
which means that we talk about science as well as everything else :-)
A huge variety of speakers and subjects on our favourite language is
gathering in Munich in 2002:  The author of perl, Larry Wall, is slated
to attend his first European YAPC, Damian Conway, perl evangelist and
speaker par-excellence, will also be participating, among many other
leading perl personalities and contributors.
We look forward to seeing you there too!
-- 
Ciao
Richard Foley
Ciao - shorter than AufWiederSehen! 
YAPC::Europe::2002  
http://www.yapc.org/Europe/
  18-20 Sept.

We look forward to seeing you there too!
Dannaz!
E io non riesco ad andarci!
In extremis, non c'e` nessuno che cerca un compagno di stanza?

Newsgroup: it.comp.lang.perl
Titolo: web server

Da pivellino chiedo soccorso!!
 Sono andato su 
apache.org
 per scaricare il web server.
NON RIESCO A CAPIRE COME SCARICARLO, CI SONO DECINE DI CARTELLE.
Avrete capito che sono un principiante. ........ determinato ad imparare!
Se mi aiutate vi sarņ devoto. Grazie.

 Avrete capito che sono un principiante. ........ determinato ad imparare!
Già. Allora impara a non postare in gurppi a casaccio. Questo è dedicato
al linguaggio di programmazione perl, non al webserver apache.
Comunque...
su http:://
httpd.apache.org/dist/httpd
c'è l'archivio dei rilasci di apache (in archivi chiamati apache-xx-xx 
per le pre 2.0 httpd-yy-yy da 2.0 in poi).
Questi sono gli archivi dei sorgenti - se questa parola non ti dice 
nulla, probabilmente devi guardare nella cartella binaries, dove gli 
archivi sono suddivisi per sistema operativo.
Cheers,
alf

D-link all'ultima stable binaria per win32:
http://httpd.apache.org/dist/httpd/binaries/win32/apache_1.3.20-win32-no_src
-r2.msi
Newsgroup: it.comp.lang.perl
Titolo: BEGIN, fork, sub

Perche` questo funziona:
BEGIN {
	fork and exit;
	# codice...
	$ret = <$socket>;
	# codice...
}
e quest'altro...
BEGIN {
	fork and exit;
	# codice...
	&get_data
	# codice...
	sub get_data {
		$ret = <$socket>;
		# codice della sub...
	}
}
...invece no ? Per la precisione funziona tutto tranne la lettura
della socket.
C'e` qualche modo per condividere gli handle con la sub ?
Grazie in anticipo.
-- 
       Ą 
      |†|
     /    \         la scusa giusta al momento giusto : l'alcool
    |      |        non ho potuto fare i compiti : stavo bevendo
J  |  &  |  D   domani non posso andare al lavoro : devo bere
    |      |        scusa non posso sposarti : la vite mi chiama
    '-----'     e-mail: lakyba(at)
tin.it

 C'e` qualche modo per condividere gli handle con la sub ?
Certo, glieli passi oppure te li fai restituire
prova con 
 BEGIN {
         fork and exit;
         # codice...
         $ret = get_data
         # codice...
 
         sub get_data {
                 $ret = <$socket>;
                 # codice della sub...
	 return $ret;
         }
 }
Sempre ammesso che abbia capito il tuo problema :)
Saluti
-- 
齯滌`偕爻,虜,齯滌`偕爻,虜,齯滌`偕爻,虜,齯滌`偕爻,虜,齯滌`偕爻,�Enrica Iaffei                     Aggregated Technologies ltd
7, Aristotelous Str.              3, Demetriou Vikella Str.           
1056 Nicosia       CYPRUS         1061 Nicosia       CYPRUS
phone +357 2 346261               +357 2 755750
"Da molti anni non mi chiedo pi�quale posto �la mia casa
 ho scoperto che la mia casa �insieme a me ovunque vada"
齯滌`偕爻,虜,齯滌`偕爻,虜,齯滌`偕爻,虜,齯滌`偕爻,虜,齯滌`偕爻,�

Sempre ammesso che abbia capito il tuo problema :)
Ti ringrazio, l'errore era un po' diverso ma mi hai aiutato lo stesso
a capire... piuttosto banale invero: la variabile era locale ! Roba da
gnubbi, ne` ? ;)
-- 
       • 
      |Ü|

Newsgroup: it.comp.lang.perl
Titolo: Perl su Win, ma standalone?

E` possibile scrivere un programma Perl e compilarlo su un PC?
(e` ammesso allegare all'eseguibile una e una sola DLL, mi pare necessario)
ciao, .mau.

(e` ammesso allegare all'eseguibile una e una sola DLL, mi pare necessario)
NElla distribuzione del perl (5.005) c'è il programma perlcc che
dovrebbe fare al caso tuo.
Ciao
Andrea

m...@beatles.cselt.it
 wrote:
 >E` possibile scrivere un programma Perl e compilarlo su un PC?
Mi sembra che il compilatore perl per ora abbia gia` abbastanza problemi
a funzionare con unix, non mi risultano porting per win32.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *


		attenzione: rispondere solo a questo indirizzo!
 
	An NT server can be run by an idiot, and usually _is_.

di certo non č un compilatore.
Ha alcune limitazioni:
I file creati partono da 500 kb, anche solo per un programma che
scriva "pippo" sullo schermo.
I programmi non diventano piů veloci rispetto alla normale esecuzione
con interprete esterno
Il codice rimane leggibile all'interno del file
Inoltre per la versione non registrata:
Alla fine dell'output del programma viene aggiunta una frase che
invita a registrare
Dopo un paio di mesi i programmi "compilati" con p2exe smettono di
funzionare.
Ciao
Andrea
Newsgroup: it.comp.lang.perl
Titolo: socket e router

Salve,
      la domanda non è strettamente legata a perl e ai socket, ma volevo 
trovare un modo per agiirare il mio router che mi blocca mi impedisce 
che i miei socket in perl possano ricevere richieste dall'esterno ... 
per fare questo dovrei fare del port forwarding, ma non posso dato che 
non sono l'amministratore del mio router.
quindi, le connessioni ingoing sono bloccate quelle outgoing no.
allora mi chiedo: ma come fanno a funzionare Skype, Msn, AOL e Yahoo per 
non parlare dei programmi p2p sulla mia piattaforma? questo programmi 
non sfruttano dei socket in ascolto su delle date porte?? com'è 
possibile??
Grazie

 possibile??
in pratica vorrei fare un programmino in perl che mi permetta di 
condividere un file anche se sto dietro ad un firewall router etc...

 possibile??
Non solo la tua domanda non riguarda il Perl, ma non riguarda -a dire il
vero- nemmeno i socket, che sono solo un'astrazione su cui si basano delle
API.
Per capire come funzionano i protocolli che hai menzionato dovresti:
 - conoscere le basi del TCP/IP
 - analizzare il traffico con tcpdump o ngrep (o robe analoghe se usi Win)
 - studiarti il sorgente di qualche implementazione
Alcuni di quei protocolli, poi, sono documentati; perciò basterebbe che ti
leggessi la documentazione.
In generale, se il router non fa port-forwarding in ingresso, a meno che
l'host interno non abbia un IP pubblico routato, non sarà possibile
stabilire una connessione dall'esterno. Ma questo non è un requisito per il
funzionamento dei protocolli citati, per quanto alcuni di quelli possano
prevedere e sfruttare in modo particolare la situazione in cui l'host è
direttamente raggiungibile.
Si tratta, però, di questioni che sono sostanzialmente OT in questa sede, ma
su cui è comunque facile trovare molto materiale in rete. Cerca, ad
esempio, "NAT p2p".
Max
Newsgroup: it.comp.lang.perl
Titolo: open file in scrittura

Ciao a tutti. Spero riusciate ad aiutarmi perché non so più che fare.
Lo script che segue se eseguito il locale (tramite rica di comando) funziona
correttamente e scripve "stringa2" nel file linkbase.xml.
Se eseguito tramite apache non scrive sul file ./linkbase.xml.
Da che puo' dipendere?
#!D:/Perl/bin/perl.exe
$output_file = "./linkbase.xml";
open (OUTPUT,">$output_file");
print "Content-type:text/xml\n\n";
$buffer ="stringa2";
print "$buffer\n";
print OUTPUT "$buffer";
close OUTPUT;

 close OUTPUT;
Hai provato con "linkbase.xml" senza "./" ?
 Raffaello

Gabriele wrote:

Permessi di scrittura nelle diverse directory per diversi utenti?
-- 
Saluti,
Giancarlo

Ho risolto da solo.. che bravo :-) ma voglio capirci di piů....
Lo script fisicamente č posizionato in D:\Apache2\cgi-bin\
myscript.pl
Utilizzato "./linkbase.xml"  (anche togliendo il ./ č lo stesso) mi
aspettavo che il file fosse creato nella directory cgi.bin (ovvero la stessa
nella quale č posizionato lo script).
Per qualche ragione che perň non ho capito (e chiedo il vs. aiuto anche se
magari č lievemente OT) il file veniva creato un livello piů in basso,
ovvero al percorso:
            D:\Apache2\linkbase.xml
invece che al path
            D:\Apache2\cgi-bin\linkbase.xml
In pratica nella cartella padre a quella del mio script.
Quindi per il problema nell'immediato ho risolto con
$output_file = "./cgi-bin/linkbase.xml";
e cosě funziona.
Ma mi piacerebbe sapare da cosa dipende il tutto.
Forse dal valore da qualche impostazione particolare di Apache?
Ciao,
--Gabriele



Newsgroup: it.comp.lang.perl
Titolo: Manipolazione della data

Ciao a tutti,
Premettendo che sono praticamente a digiuno di Perl, sto modificando uno
script che utilizziamo da tempo ed č nata questa esigenza:
Ho una lista di directory il cui nome rappresenta una data nel formato
"aaaammgg" quello di cui ho bisogno č verificare se il nome della directory
ha superato o meno un certo "delta" espresso in numero di giorni a partire
dalla data attuale, ho fatto un po di ricerche sembra si debba usare la
libreria date::manip ma non mi č molto chiara la procedura da adottare,
qualcuno sa darmi delle indicazioni?
Grazie a tutti

 qualcuno sa darmi delle indicazioni?
Tiro a indovinare, vedi un po'.
Usiamo Date::Manip (attento alle maiuscole!), e prendiamo la data di oggi:
  use Date::Manip;
  my $today=ParseDate('today');
Dentro a qualche ciclo, abbiamo il nome della directory in $dir_name:
lo trasformiamo in un oggetto data (ParseDate capisce già quel
formato):
  my $dir_date=ParseDate($dir_name);
Facciamo la differenza (DateCalc fa il conto ovvio a seconda di cosa
gli viene passato):
  my $dir_delta=DateCalc($today,$dir_date);
Ci facciamo dare il numero di giorni, con 1 cifra decimale (questo non
è affatto ovvio):
  my $dir_age_in_days=DeltaFormat($dir_delta,1,'%dh');
A questo punto puoi confrontare il valore:
  if ($dir_age_in_days >= $age_threshold) { ... }
-- 
  dakkar
  sono su PerlMonks.org, 
use.perl.org
, PAUSE/CPAN

>   dakkar
Grazie sei stato chiarissimo!
Newsgroup: it.comp.lang.perl
Titolo: passare la condizione di if tramite variabile si puo ?

ho necessità di costruirmi la condizione da verificare in base a una
serie di criteri. E poi vorrei passarla all' if. E' possibile ?
Ci ho provato in tutti i modi che conosco ma non ci riesco !
Questo è un pezzo del codice:
#$search è la variabile che contiene i criteri da passare a if
if ( $form{'Nome'} ) {
 $search= "(\$nome=~ m/\$xnome) &&";
}
if ( $form{'Citta'} ) {
 $search=$search." (\$citta=~ m/\$xcitta) &&";
}
if ( $form{'Provincia'} ) {
 $search=$search."(\$provincia=~ m/\$xprov/)&&";
}
if ( $form{'Regione'} ) {
 $search=$search."(\$regione=~ m/\$xreg/) &&";
}
#qui devo passargli la condizione da verificare generata tramite la
serie di if sopra
if ({'search'}) {
 fai quello che devi fare....
}
mi trova sempre e comunque tutti i dati.
Il problema è dato dal fatto che devo leggere un archivio in formato
testo e poi estrapolare i dati in base al criterio di ricerca
selezionato dall'utente tramite un form.
Le variabili $form{} sono quelle passate tramite form html
Le variabili che iniziano con x sono i dati presi dal file di testo
Capisco che risolverei il mio problema molto semplicemente con una query
SQL, ma il file non è gestibile via sql perchè per scelta aziendale del
cliente deve essere in formato testo.
Le ho provate tutte, mettendo \ davanti al simbolo di $ delle variabili,
togliendolo, eccetera.
Se è possibile farlo, chi mi può dare una dritta ?
grazie
rp
-- 
--------------------------------------------------------------------------
Hosting professionale a prezzi USA ?
http://www.servitelit.com/prezzi.htm
Registrazione domini a Lire 50.000 ? 
http://domini.servitelit.com
--------------------------------------------------------------------------


Prova con la funzione 'eval', che interpreta le stringhe come se fossero
comandi:
if(eval 'search') {...}
Stai attento però che 'search' non contenga mai del codice perl indesiderato
(per es. testo inserito dagli utenti), perché eval esegue proprio tutto.
Buon lavoro.

Newsgroup: it.comp.lang.perl
Titolo: FTP.mp

Ciao ragazzi
sto cercando questo modulo  FTP.mp
sapete dove posso trovarlo ?
ho cercato in
ftp.uniroma2.it/CPAN
ma niente...
idee ?
grazie
Rob


si 
http://www.cpan.org
 poi il file dovrebbe essere FTP.pm visto che è un
modulo.
Ciao Marco
Newsgroup: it.comp.lang.perl
Titolo: Aiuto per capire script!

Grazie per avermi letto,
cosa significa  !$ENV{'REMOTE_HOST'}?
e !$ENV{'REMOTE_ADDR'}?
Cosa fa la funzione flock? come si utilizza?
Grazie

Cosa fa la funzione flock? come si utilizza?
Serve a gestire la condivisione. Per maggiori informazioni dai il comando:
perldoc perlfunc
e cercare appunto flock.
	A presto, Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!


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: Moduli per HTML?

Ciao a tutti. Mi sono da pochissimo avvicinato alla programmazione in
perl per realizzare alcuni cgi (che meraviglia, la facilità con cui si
manipolano le stringhe!). Non ho grosse pretese ne' necessità
particolari, ma mi piacerebbe sapere se esiste qualche modulo, oltre al
classico CGI (che però mi pare sia piu' che altro orientato alla
creazione di form) che dia un supporto per la creazione di elementi in
html come tabelle, frame eccetera. Il mio obiettivo sarebbe quello di
non dover mai avere a che fare con le singole primitive HTML.
Grazie anticipatamente.
-- 
Ciao
Nico

 wrote:
: particolari, ma mi piacerebbe sapere se esiste qualche modulo, oltre al
: classico CGI (che perņ mi pare sia piu' che altro orientato alla
: creazione di form) che dia un supporto per la creazione di elementi in
: html come tabelle, frame eccetera. Il mio obiettivo sarebbe quello di
: non dover mai avere a che fare con le singole primitive HTML.
Regola generale: se esiste e` sul CPAN.
Il CPAN e` il Comprehensive Perl Archive Network, il cui sito
italiano e` 
cis.utovrm.it/CPAN/
 .
In particolare la risposta e` si`, esistono moduli per la
manipolazione dell'HTML. Li trovi nel sito citato, sotto:
modules/by-module/HTML/
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
Newsgroup: it.comp.lang.perl
Titolo: PDF e accentate

Salve a tutti!
Mi sto cimentando con la creazione di pdf da query ad un DB. Dopo aver fatto
alcuni tentativi, mi sono accorto che il testo su pdf, viene scritto su una
sola linea (!). Allora ho pensato di creare un file postscript, per poi
generare un pdf con ghostscript. E funziona. Sto usando il modulo
Postscript::Textblock. Il problema che mi si presenta è sulle lettere
accentate, che non riesco a riprodurre in pdf. Avete qualche dritta da
darmi?
Grazie
Mario

 Ciao,
Avevo usato la prima volta, PDF::Create. Questo ti mette il testo su una
linea. Per quanto riguarda il macchinoso è vero, ma da quanto ho capito, il
pdf non capisce gli "a capo". Utilizzando invece questa
Postscript::Textblock, viene davvero bene, solo che non riesco a
visualizzare gli accenti. Comunque ora mi guarderò questi moduli (mi erano
sfuggiti ;)) )

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

una realizzazione non esattamente da manuale, ma funziona egregiamente... con 
qualche problema... a volte il programma si inchioda senza motivo apparente e 
senza messaggi di errore... e senza dare la minima apparenza di stare 
realmente compiendo un'operazione... inchiodato e basta. Altre volte (molto 
spesso) lo schermo è pieno di righe vuote, come se non riuscisse a riordinare 
il valore zero... ditemi se c'è qualcosa che non va:
program testQuick;
uses
    Crt;
const
    lines=25;
    cols=80;
type
    myArr=Array[1..lines] of Integer;
var
    arr:myArr;
    i:Integer;
function yes(ct:Integer;str:String):String;
var
    i:Integer;
    tmp:String;
begin
    tmp:='';
    for i:=1 to ct do tmp:=tmp+str;
    yes:=tmp;
end;
procedure watch;
var
    i:Integer;
begin
    ClrScr;
    for i:=1 to lines do write(yes(arr[i],'*'), #13#10);
end;
procedure mySwap(var x,y:Integer);
begin
    x:=x xor y;
    y:=x xor y;
    x:=x xor y;
end;
procedure QuickSort(var V:myArr; sx,dx:Integer);
var
    i,j:Integer;
    flag:Boolean;
begin
    i:=sx+1;j:=dx;flag:=true;
    if sx<dx then begin
        while flag do begin
            while V[i]<V[sx] do i:=i+1;
            while V[j]>V[sx] do j:=j-1;
    	    	if i<j then mySwap(V[i], V[j]) else flag:=false;
    	  end;
    mySwap(V[sx], V[j]);
    QuickSort(V, sx, j-1);
    QuickSort(V, j+1, dx);
    end;
    watch;
end;
begin
    Randomize;
    for i:=0 to lines do arr[i]:=Random(cols);
    watch;
    QuickSort(arr, 1, lines);
end.

oooooooooooops... questo era per it.comp.lang.pascal... azz... l'ora tarda fa 
dei brutti scherzi...

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

Sono andato sul sito 
http://www.cgi-resource.com
ed ho trovato vari script CGI per creare un forum per il mio sito, ma non so
quale sia il migliore e soprattutto il più affidabile e FACILE da installare
!!!
Mi potete consigliare? Magari ne avete usato uno proprio voi?
Mi piacerebbe averne uno con la stessa interfaccia del forum di HTML.it
Grazie

 ha scritto nel messaggio
news:YO5F5.11557$Z95.3...@news.infostrada.it...

Newsgroup: it.comp.lang.perl
Titolo: variabili e moduli di default

Ciao a tutti,
	è possibile avere un elenco delle variabili e dei moduli di sistema?
Mi spiego meglio.
Sto facendo dei programmini ultimamente ma vorrei usare moduli che sono inseriti di default nella distro.
Dato che nel mio PC ne ho già installati molti altri... esiste un modo per sapere quali sono di default e quali no?
E inoltre, esiste una lista delle variabili quali $^O oppure $' e tutte le altre con relativo significato?
Grazie 1000

 tutte le altre con relativo significato?
  perldoc perlvar
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

Newsgroup: it.comp.lang.perl
Titolo: come fare upload via web?

Ciao a tutti e scusate le domande per alcuni banali, ma si deve pur
cominciare per imparare, no?
Vorrei permettere ad utenti anonimi via web un upload di file, per esempio
selezionabile con una file_field.
Come farlo? Grazie a chi volesse rispondermi, magari con qualche esempio.


Hai guardato la documentazione di CGI.pm? C'è una sezione dedicata
all'upload, ricca di esempi.
 perldoc CGI
 
http://www.perldoc.com/perl5.6/lib/CGI.html
Max

Newsgroup: it.comp.lang.perl
Titolo: [Tk] differenza tra finestre

Salve,
        sto provando a disegnare tramite Tkx i primi widgets, in questo 
caso: ttk__labelframe e ttk__notbook, ho provato a fare dei paragoni con 
un'altra grande applicazione per windows scritta in Tk ovvero aMSN. Per far 
notare le differenze ho messo online la finestra della mia app, il suo 
codice e la fnestra fatta in Tk dai programmatori di aMSN: 
http://theartofweb.net/tkx/
La prima cosa che si nota subito � la differenza di stile: la mia finestra � 
priva di stile appunto. Devo per caso caricare qualche libreria esterna con 
degli stili diversi per i widget? c'� percaso qualche tool per windows per 
disegnare finestre e poi ottenere il codice Tk?
grazie 

 Tk?
C'� zooz: 
http://search.cpan.org/~aqumsieh/ZooZ-1.2/
e poi c'� tikiartist, un rad di circa 10 anni fa fatto in delphi, carino 
ma che non si trova pi� online. Era gratuito, dunque se vuoi chiedimene 
una copia via mail.
Newsgroup: it.comp.lang.perl
Titolo: Codifica dati inviati via POST

Buonasera a tutti,
spero che ci sia qualcuno che abbia gia' impostato un pagamento con
PayPall e mi sappia dire come uscire da un problemino:
Paypall mi invia un POST con una serie di dati che posso memorizzare.
Io dovrei catturare la stringa del POST e rispedirla, senza toccarla, a
PayPall, come conferma d'ordine. Tutto fila liscio fino a quando
immetto, simulando una vendita, alcuni dati con lettere accentate. Se
io, per esempio, immetto: "Contrà", PayPall mi invia il POST
contenente: "Contr%C3%B9". Rispedendo l'intera stringa esattamente come
l'ho ricevuta, PayPall mi restituisce un errore. Io vorrei restituire
la stringa originale, con un codice tipo:
$Main::sent =~ tr/+/ /;
$Main::sent =~ s/%(\w{1,2})/pack("U",hex($1))/eg;
che, ovviamente, e' insufficiente per i caratteri utf. Che codice posso
utilizzare?
Grazie infinite a tutti.
Andrea

  >>>>> Andrea  writes:
[...]
  A> d'ordine. Tutto fila liscio fino a quando immetto, simulando una
  A> vendita, alcuni dati con lettere accentate. Se io, per esempio,
  A> immetto: "Contrà", PayPall mi invia il POST contenente:
  A> "Contr%C3%B9". Rispedendo l'intera stringa esattamente come l'ho
  A> ricevuta, PayPall mi restituisce un errore. Io vorrei restituire
  A> la stringa originale, con un codice tipo:
  A> $Main::sent =~ tr/+/ /; 
  A> $Main::sent =~ s/%(\w{1,2})/pack("U",hex($1))/eg;
  A> che, ovviamente, e' insufficiente per i caratteri utf. Che codice
  A> posso utilizzare?
Potresti provare a forzare una codifica particolare, ad esempio:
         uri_escape(encode('iso-8859-1', $text));
Per rendere effettiva questa soluzione, devi utilizzare i moduli
Encode ed URI::Escape.
Ciao,
nico

Un grazie grande come una casa!
E' esattamente cio' che cercavo.
Infatti, sottoponendo l'intera stringa a uri_escape i caratteri UTF
vengono codificati in ISO 8859-Latin-1. Cosi:
Contr%C3%B9
diventa
Contr%E0
codifica che PayPall riconosce, accettando la transazione.
Grazie ancora, Nico.
Andrea
Newsgroup: it.comp.lang.perl
Titolo: require -> Can't locate.....

La piattaforma utilizzata dal mio provider č Microsoft con IIS 4.
Ho creato una pagina html che con un bottone tipo 'submit' lancia il cgi
'
mio_cgi.pl
' che al suo
interno utilizza un modulo '
mio_modulo.pl
'.
Il provider mi assegna all' interno della subdirectory mio_sito, che
assume la valenza di root,
una subdirectoy /cgi-bin con diritti di esecuzione.
Caricando il modulo con il comando:
require "/cgi-bin/
mio_modulo.pl
"
ottengo il seguente errore:
Can't locate 
mio_modulo.pl
 in @INC (@INC contains: C:/Perl/lib
C:/Perl/site/lib .) at
D:\Inetpub\webs\mio_sito\cgi-bin\
mio_modulo.pl
 line 9.
Impostando la variabile:
$gm_dir = "D:/inetpub/webs/
mio_sito.com/cgi-bin
";
e modificando il comando
require "$gm_dir/
mio_modulo.pl
";
ottengo il messaggio di errore:
Can't locate D:/inetpub/webs/
mio_sito.com/cgi-bin/mio_modulo.pl
 at
D:\Inetpub\webs\mio_sitocom\cgi-bin\
mio_cgi.pl
 line 9.
E' normale che il messaggio di errore modifichi 
mio_sito.com
 in
mio_sitocom ?
Se 
mio_sito.com
 equivale a mio_sitocom, come č possibile che require non
trovi il 
mio_modulo.pl
 ?
Grazie a chiunque riuscirą a chiarirmi le ideee.
Enzo Benvenuti

 ha scritto nel messaggio
news:3D2AFBA2...@tamnet.it...

Sicuramente hai un sito su Aruba, s'č capito. TI conviene iscriverti al loro
forum e postare li'.
Cmq il vero percorso del tuo sito č "D:/inetpub/webs/tuo_sitocom/" senza il
punto.
Per il require puoi anche semplicemente scrivere:
require "cgi-bin/
mio_modulo.pl
"; # senza slash all'inizio
Ciao.

 Ciao.
Grazie Guido,
avevo già provato nel cosiddetto forum, ma il moderatore, che forse sarebbe più
coerente definire lo scaccia mosche, mi ha immediatamente dissuaso con un
lapidario:
prova da un' altra parte..
Ciao
Enzo

 prova da un' altra parte..
Impossibile, non hanno mai risposto cosi'.
Forse non era il moderatore. Cmq se dicevano cosi' forse è perché avrai
postato nel forum sbagliato.
In ogni caso la soluzione è quella che ti ho dato.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Come si sostituisce una stringa?

Come si fa, dopo aver aperto un file .txt, cercare una stringa che si
trova nel mezzo del file e sostituire questa stringa lasciando
inalterate le parti prima e dopo questa linea?
Vorrei inoltre sapere se è possibile cancellare una directory anche se
al suo interno ci sono dei file.
Grazie.
Nicola


perl -npi -e 's/vecchiastringa/nuovastringa/' file.txt
luca

al suo interno ci sono dei file.
La funzione "unlink" del Perl non lo permette. La cosa migliore e` chiamare il
comando esterno 'rm -R' (se sei sotto Unix).
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.italpro.com/mb/

 
Prima bisogna rimuovere tutti i file. Fra l'altro, e' un'operazione
poco consigliabile se non si e' sicuri al 101% di quello che si sta
facendo - io, se posso, la evito.
Cheers,

 wrote:
: Come si fa, dopo aver aperto un file .txt, cercare una stringa che si
: trova nel mezzo del file e sostituire questa stringa lasciando
: inalterate le parti prima e dopo questa linea?
perl -i.bak -pe 's/stringa/stringa nuova/'
: Vorrei inoltre sapere se è possibile cancellare una directory anche se
: al suo interno ci sono dei file.
Non vorrei sbagliarmi ma File::Remove dovrebbe farlo (il modulo e` su
ftp://ftp.cis.it/CPAN/module/by-module/File
).
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E

Newsgroup: it.comp.lang.perl
Titolo: Perl e Newsgroup web

Dovrei costruire un gruppo di discussione attraverso il web, che funzioni
proprio come i server news, tipo la cosa che frontpage fa in automatico (non
so se avete visto la cosa).
Vale la pena svilupparlo in Perl?
O e' meglio scegliere altre strade...
Se il perl puo' andare, esiste del codice disponibile gia' scritto ed
utilizzabile?
Non badate alla distanza tra la complessita' dei propositi e la banalita'
delle domande....
Ciao a tutti.

Galileo wrote:

Prova a cercare Majordomo. E' un gestore di mailing list. E' scritto
in perl ed in C. E' un po' complicato da usare, ma magari fa' al caso tuo.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: Case ed array di un array

Esiste in perl la funzione case, case 1 case 2 ecc... 
Vorrei non usare solo if,
Altra domanda.Ho un array se lo stampo mi viene fuori una cosa del genere:
L'array @a contiene la frase (ciao sono cristian e ciao vi risaluto);
es.
print "@a[0]\n";
ciao sono Panther
print "@a[1]\n";
ciao vi risaluto
Vorrei usare una array di un array, vorrei quindi che le parole ciao, sono
e Panther siano una parte dell'array @a.
Vorrei una cosa simile:
@b=@a[0];
print "@b\n";
ciao
Purtroppo non funziona, dove sbaglio ???

e Panther siano una parte dell'array @a.
Dai un'occhiata a perlol e perldata.
Ciao.