mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Parser/eval di espressioni in Perl

Ciao!
Vorrei dare la possibilita' all'operatore di inserire un'espressione e 
di valutarla da codice per utilizzare quindi il risultato in una 
elaborazione.
La eval() e' utilissima, ma credo di creare una falla di sicurezza 
mostruosa (ad esempio l'utente potrebbe chiedere di valutare una 
'3*3', ma anche una system('bla bla bla')).
Esiste una soluzione? Sarebbe interessante anche poter valutare le 
funzioni, ma limitatamente ad alcune "autorizzate".
Grazie!
Daniele

 funzioni, ma limitatamente ad alcune "autorizzate".
Prova a controllare la documentazione di Safe. Dovrebbe fare al
caso tuo.
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org/blog
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it

Grazie, ma preferivo non allontanarmi dalla distribuzione standard.
Avevo anche trovato il Math::Expr su Cpan, ma credo sia solo "math" e 
quindi niente stringhe. :(
Cerco ancora...
Grazie,
Daniele

 Grazie, ma preferivo non allontanarmi dalla distribuzione standard.
Con il suggerimento di Stefano non ti allontani per niente dalla 
distribuzione (perl) standard, perché Safe *è* un modulo standard, e con 
ogni probabilità è esattamente quello che ti serve.
Per quanto riguarda l'uso di una (o più) regex, potrebbe bastare o 
potrebbe rivelarsi del tutto insufficiente, dipendentemente dalla 
complessità delle espressioni che qualifichi come ammissibili.
In ogni caso, per le informazioni generali sulla sicurezza dai 
un'occhiata a perlsec (se già non l'hai fatto):
http://perldoc.perl.org/perlsec.html
e, se decidi di usare Safe (che, ripeto, è quasi certamente quello che 
devi fare) dai un'occhiata anche ad Opcode:
http://search.cpan.org/~nwclark/perl-5.8.7/ext/Opcode/Opcode.pm
(che è anch'esso un modulo standard ;-)
Ciao,
Emanuele.

 
http://search.cpan.org/~nwclark/perl-5.8.7/ext/Opcode/Opcode.pm
Grazie, mi metto a lavoro! :)
Daniele

 caso tuo.
Ciao,
ieri sera ho applicato Safe... funziona tutto molto bene, ho anche 
creato una "libreria" di funzioni shared da un package (pluginBase) 
sfruttando un'idea trovata in rete...
my($routine,$fullname);
foreach $routine (keys(%pluginBase::)) {
  $fullname = "pluginBase::$routine";
  if ( defined(&$fullname) ) {
    $cpt->share_from('pluginBase',['&'."$routine"]);
  }
}
Grazie,
-- 
Daniele
togli i sette per scrivermi
Newsgroup: it.comp.lang.perl
Titolo: Dubbi sul Perl...

Ciao a tutti,
        Non vi mettete a ridere! Volevo farvi una domanda un po' strana: con
il Perl per win32 e' possibile utilizzare i socket per creare applicazioni
client/server? Per esempio il server invia un messaggio al client o un file
e cosi' via; oppure programmare un server web in Perl?
 Credete sia possibile?
--
   --*--*--*--
   My PGP Public Key = 
http://users.iol.it/fidelio/pubkey.zip
   Key fingerprint = 8F 38 0B 56 18 28 F8 99  45 28 2F FF 84 75 CE 4A
                                                       --*--*--*--*--

 wrote:
:         Non vi mettete a ridere! Volevo farvi una domanda un po' strana: con
: il Perl per win32 e' possibile utilizzare i socket per creare applicazioni
: client/server? Per esempio il server invia un messaggio al client o un file
: e cosi' via; oppure programmare un server web in Perl?
:  Credete sia possibile?
Si, puoi usare IO::Socket, esattamente come se fossi su Unix.
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E

 
Certo che si puo'.
Se lavori su NT. Se lavori su piattaforme inferiori, allora non hai un
sistema operativo (ma ti sembra di averlo), e non si puo' veramente
fare (sembra solo che sia possibile farlo).
Cheers,
	Alessandro 
---
Alessandro Forghieri		Site administrator Nouvelle srl
Email: 
a...@orion.it
		Voice: 	+39 59 345767
Via Giardini 460		Fax:	+39 59 343822

Newsgroup: it.comp.lang.perl
Titolo: array di hash tables

Salve,
si puo` fare in perl un array di hash tables?
Grazie,
J.

 si puo` fare in perl un array di hash tables?
Come non detto : 
http://www.unix.org.ua/orelly/perl/prog3/ch09_01.htm
J.

JSorel ha scritto:

Oppure da riga di comando scrivi:
perldoc perldsc
Con il comando perldoc puoi accedere a tutta la documentazione inclusa 
con Perl. Insomma puoi già leggere un sacco di roba senza neanche 
conneterti ad Internet!
Come punto di partenza puoi provare ad usare questi due comandi:
perldoc perl
perldoc perlintro
Simone Blandino

Newsgroup: it.comp.lang.perl
Titolo: JAVA TARGET AIUTO

Nella mia pagina ho questa parte di codice che mi serve per accedere
ad una pagina protetta.
<SCRIPT LANGUAGE="JAVASCRIPT">
<!--
function accesso(){ 
var
pa=window.open('pw.htm','Check','toolbar=yes,location=no,directories=no,status=yes,menubar=no,scrollbars=no,resizable=no');
pa.maindoc = self.document; 
}
//-->
</SCRIPT>
Come avete potuto capire mi apre la pagina pw.htm ma aprendomi una
nuova finestra. Come posso fare per farla aprire in un frame chiamato
principale?
Grazie




wrote:

Forse ti conviene chiedere in un altro ng, qui sei OT.
Ciao
Andrea Busia
No Spam, Grazie.
Newsgroup: it.comp.lang.perl
Titolo: valori che iniziano per $

Mi ritrovo a manutenere del codice perl con cui sono scritti i cgi di un 
sito internet. Non sono esperto di Perl. Trovo spesso righe come questa:
   $ordinamento = "$ordina1, " if ($ordina1 !~ /^\s*$/);
che mi pare di capire serve ad evitare di utilizzare la variabile 
$ordina1 se il suo valore inizia per $.
La variabile $ordina1 proviene da una query. Mi viene il sospetto che 
questo controllo venga messo per evitare che un utente del sito web 
possa compromettere il funzionamento degli script utilizzando un $ nei 
valori delle query. E' cosï¿œ?
In quali casi puï¿œ succedere che involontariamente il valore di una 
variabile venga interpretato dall'interprete perl?
E.

 $ordina1 se il suo valore inizia per $.
Quello che fa quel codice e': 
se la variabile $ordina1 non e' la stringa vuota, o e' composta solo di
spazi, allora assegna alla variabile $ordinamento il contenuto di $ordina1
seguito da una virgola e da uno spazio.
Esempio: se $ordina1 e' "", oppure e' "    ", non fa nulla. Se $ordina1
e' "pippo", allora $ordinamento diventa "pippo, ".

 E.
Alcuni caratteri assumono significati speciali all'interno di
un'espressione regolare; fra questi "^" indica "l'inizio della
stringa" e "$" indica "la fine della stringa" (i significati di questi
due caratteri possono cambiare se vengono attivate delle opzioni
specifiche che in questo caso non sono presenti).
Come ha già detto antani, quindi, quell'espressione regolare serve a
controllare che ci sia qualche carattere che non sia uno spazio, il
che si potrebbe parimenti fare con l'espressione regolare /\S/
Per saperne di più: "perldoc perlre" e "perldoc perlretut"
Ciao,
    Flavio.

 variabile venga interpretato dall'interprete perl?
Bisogna vedere cosa intendi per /involontariamente/ :-)
perl interpreta il valore di una variabile se la passi alla funzione eval().
Poi ci sono casi in cui il valore della variabile puï¿œ essere 
interpretato dalla shell (con funzioni quali open, system, exec, qx).
Quindi se non sei sicuro del contenuto di una variabile, bisogna fare i 
dovuti controlli prima di passarla a queste funzioni, e/o utilizzare le 
funzioni stesse in maniera tale che la shell non sia coinvolta (si puï¿œ 
fare anche questo).
Inoltre perl offre una particolare modalitï¿œ di esecuzione (taint mode), 
che ti protegge da usi insicuri di valori provenienti /dall'esterno/.
Per approfondire ti tocca dare (almeno) un'occhiata ai manuali, non ci 
sono scorciatoie.
Ciao,
-Emanuele

 sono scorciatoie.
Sì, beh, certo... un po' alla volta!
E.
Newsgroup: it.comp.lang.perl
Titolo: open http file

Mi potete dire perchč questa struttura non funziona? Devo aprire il file
senza perň copiarlo sull'hard disk locale.
many thanks
giorgio
 use URI::URL;
     $script = new URI::URL '
http://www.domain.com.file.txt
';
open (script,"<$script") or shout ('critical', "Unable to open script
$script: $!");
shout ('info',"Now processing commands from $script");

$script: $!");
Immagino tu voglia prelevare un file remoto. Usa quindi:
use LWP::Simple;
$script = get("
http://www.domain.com/file.txt
");
	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!

 ha scritto nel messaggio
news:slrn8jmn...@karma.italpro.to...


(il file si trova su internet e non voglio copiarlo sull'hard disk).
Ma infatti non devi utilizzare open(). E` sufficiente che usi get() come
ti ho indicato nel messaggio precedenti e ti troverai il contenuto del
file gia` in $script. ;)


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

Sto cercando un programma  free che oltre ad essere un editor perl
implementi anche funzioni tipo ftp, visualizzazione ad albero, e gestione di
un progetto in generale.
Tutto ciň che ho trovato fino ad ora č a pagamento, se mi potete dare un
indirizzamento vi sarei grato !!!!
CIAO E GRAZIE IN ANTICIPO!

 un progetto in generale.
Gli editor free che conosco (ma non uso) sono:
http://www.perlvision.com/pce/
e
http://open-perl-ide.sourceforge.net/

 ha scritto nel messaggio
news:3C695B30...@friuli.com...

ti ringrazio

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

Sapete dirmi quale compatibilitą esista fra perl e c?Mi spiego, č forse possie richiare funzioni c da script perl e vice versa?Oppure altre possibilitą?
grazie

 altre possibilità? grazie
  C da Perl:
 
  man perlxs
  perldoc perlxstut
  Perl da C:
  perldoc perlembed
Max

 possibilità?
Perche' lo fai? Che funzioni sono? Librerie o scritte da te? 
Comunque una soluzione puo' essere Inline::C
M.
-- 
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: generazione indici

Qualcuno ha sottomano un programmino per estrarre da un file di testo
tutti i nomi propri?
Lo scopo è di generare un indice dei nomi.
Grazie per l'informazione
Sent via Deja.com 
http://www.deja.com/
Before you buy.




Che formato ha il file di testo ? (Record fissi/variabili,
separatori
di campo) ?
Ciao
Newsgroup: it.comp.lang.perl
Titolo: Come fare in Perl a verificare se .............................

if ($name =~ /.*$pippo.*/)
Ciao
Andrea
------------------------------------------------------------------------
Redattore di Ludus (
http://www.ludus.it
)
Recensioni, Trucchi, Soluzioni,
Patch e News per PC e PSX
------------------------------------------------------------------------

 wrote:
: chi di voi puo' consigliarmi il modo migliore per verificare una
: condizione in una CGI in perl:
: La condizione da verificare e' se una variabile ($name)
: contiene una o piu' volte una determinata stringa ("Pippo").
: Ovvero:
: if "Pippo" esiste in $name
if($name =~ /Pippo/){
	etc. etc.
}
E` questo che ti serve?
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E

am...@tin.it
 wrote:
 >if ($name =~ /.*$pippo.*/)
.* sono inutili.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *
Newsgroup: it.comp.lang.perl
Titolo: sta cippa di CPAN

Recursive dependency detected:
    Bundle::CPAN
 => ExtUtils::CBuilder
 => D/DA/DAGOLDEN/ExtUtils-CBuilder-0.2703.tar.gz
 => File::Spec
 => S/SM/SMUELLER/PathTools-3.33.tar.gz
 => File::Path
 => D/DL/DLAND/File-Path-2.08.tar.gz
 => File::Spec.
Cannot continue.
E mo'?
Il modulo ancora non va:
$ perl -MXML::Simple -0777ne '$data = XMLin $_' file.xml
Can't locate XML/Simple.pm in @INC (@INC contains: /etc/perl
/usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5
/usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .).
BEGIN failed--compilation aborted.
Luca



Se sei su debian e stai operando sui moduli di sistema (come 
sembrerebbe), non usare cpan ma installa i package debian 
corrispondenti, eg:
sudo apt-get install libxml-simple-perl
Ma se ti mancano File::Spec e File::Path, che sono moduli /standard/, 
vuol dire che la tua installazione perl � gravemente cionca.
Su debian, puoi provare a rimetterla a posto con:
sudo apt-get install perl-modules
(sperando che basti, perch� temo che tu abbia fatto qualche casino, dal 
momento che il package perl dipende dal package perl-modules).
Idem su altre distribuzioni: usa i package della distribuzione stessa 
(rpm ecc.)
Se invece proprio volessi usare cpan:
cpan> force install File::Path
e poi installi tutto il resto (ma, ripeto, _non_ andrebbe fatto sui 
moduli di sistema).
Detto tutto questo, stai usando un perl vecchio di 4 anni: ora siamo 
alla 5.12.2 (stable, 5.13.6 devel) e perfino debian stable ha perl 5.10.

 (stable, 5.13.6 devel) e perfino debian stable ha perl 5.10.
Hai idea di come forzare un upgrade della versione di Perl su ubuntu rispetto a
quella che arriva con apt-get install perl?
Oppure sono quelli di slicehost che hanno fatto qualche magheggio per avere una
versione standard sui loro server?
Comunque grazie mille. My itch is scratched ;)
Luca

 Comunque grazie mille. My itch is scratched ;)
Di nulla.
Ciao

 $ lsb_release -d
grazie ancora di tutto. Come dici, per ora mi accontento e non tocco niente.
Per la cronaca:
$ lsb_release -d
Description:    Ubuntu 8.04.4 LTS
Luca
Newsgroup: it.comp.lang.perl
Titolo: La Ragazza Giapponese Ha bisogno Dell' Aiuto

Ciao,
Richiedere la programmazione del Perl che permette
che gli ospiti al mio Web site forniscano il loro
nome ed email address in una forma. I dati dalla
forma sono salvati ad una tabella per ricupero
della base di dati.
Prego risposta al mio email address
Ka...@JapaneseGirl.com
Grazie,
Kaori Ayn Honeywell

 Kaori Ayn Honeywell
Mmmmhh... a me la cosa puzza di porno-spam... e a voi? ;-)
FazeN

 ha scritto nel messaggio
news:Dcur5.17299$Y51.1...@iad-read.news.verio.net...


Grandioso! Hai usato un traduttore automatico! Giusto?
Bene Ti do qualche consigloi:
1) Impara il linguaggio perl.(
www.perl.com
)
2) Impara l'HTML (dalla 2.0 in sů) (
www.w3.org
)
3) Impara il funzionamento dei CGI e poi raffina il tuo studio guardando
http://stein.cshl.org/~lstein/talks/perl_conference/advanced/
4) Scaricati il modulo CGI.pm di Lincol Stein (sacricabile su 
www.cpan.org
 )
5) Scaricati moduli che forniscano Intefacce per database come ODBC o
DBI::DBD(
www.cpan.org
) con il driver specifico per il DBMS  che usi
Kaori Ayn Honeywell ha scritto nel messaggio ...


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

Ciao a tutti,
sono Stefano avrei un problemone, spero che qualcuno possa essermi d'aiuto.
Ultimamente ho rifatto il mio sito e sono passato da un server linux/apache ad
un server windows2000/IIS5 :(
Ho dovuto fare questa scelta perchè colui che mi ha fatto il restyling del sito
usava asp... Il problema è che sul vecchio sito c'erano delle cgi che 
permettevano la registrazione di un utente, in particolare queste cgi (perl) 
si connettevano ad altri 3 server (webserver,mailserver,ldap) creando un'utenza
in ognuno di questi.
Naturalmente spostando tutto il vecchio sito nel nuovo webserver IIS5 le cgi
in questione hanno smesso di funzionare. Quale può essere il problema tenendo
conto che molte altre cgi funzionano in modo corretto (sul server gira active
perl 5.6.1...)? Potrebbe dipendere dal fatto che sui tre server in questione
è installato mysql? Potrebbe altrimenti essere qualche comando che non funziona
a dovere in ambiente win2000/IIS5?

 wrote in message
36d7240.02032...@posting.google.com...

dipende molto da che messaggi di errore vedi. in generale, dovrebbero
funzionare, al limite con minime modifiche.
---
Mario Rizzuti





 un server windows2000/IIS5 :(
Hai preparato le patch di sicurezza per IIS 5 ? :-)
 -----= Posted via Newsfeed.Com, Uncensored Usenet News =-----
http://www.newsfeed.com
 - The #1 Newsgroup Service in the World!
-----== 90,000 Groups! - 17 Servers! - Unlimited Download! =-----
 

 Mario Rizzuti
Molto probabilmente devono essere modificati i server path presenti nel
programma e relativi all'atro server. Per non sbagliare consiglio di
verificare che i path siano assoluti e NON relativi. Ciao. Alberto
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************
Newsgroup: it.comp.lang.perl
Titolo: CGI e select multiple

Hola,
per far stampare nei CGI una lista di parametri passati da una form uso
il codice riportato sotto (funziona).
Mi chiedo se è il modo migliore, se è possibile fare tutto con un solo
foreach (codice più breve, o ...più oscuro), magari usando espedienti
sul nome, come in php dove basta usare qualcosa come name=qualcosa[]
(quadre) per trovare i valori già in un array.
Sembrerà un sofisma, lo so, ma è una mia curiosità :)
Grazie, 
salvo
---
#!/usr/bin/perl
use CGI qw(:all);
use File::Basename;
my $cgi = new CGI;
print $cgi->header(),
# ecc...
my $list_items;
print "Parametri passati dalla form:<br />\n";
my @passati = $cgi->param;
foreach (@passati)
{
        my @scelte = $cgi->param($_);
        foreach $scelte (@scelte)
        {
                $list_items .= li("$_: \t" .$scelte);
        }
 
}
print $cgi->ul($list_items);
---
-- 
CAPaCE: Comitato per l'Abolizione della Parola "Chiocciola" nelle Email
@ si legge "at"; non nominiamo invano le *vere*, simpatiche, chiocciole
[§alvomi©]

 La stampa di "\t" non ha effetto in HTML.
Sì, lo so :)
la mia è deformazione ...da Terminale, penso sempre che \n e \t
funzionino in html, salvo poi accorgermene dopo e aggiungere i vari <br
/>, <hr /> o <td> che siano :)
grazie, ciao
salvo

Newsgroup: it.comp.lang.perl
Titolo: accedere a file configurazie con regexp

Salve,
     ho un file dove le coppie chiave => valore vengono scritte in un modo 
diverso dal solito:
<!--USRCLAUDIO-->
in questo caso key(USR) = val(CLAUDIO), da notare che la chiave ha sempre 
lunghezza 3 chars, USR, PWD...etc...
c'è un modo tramite reg di accedere a tali dati, non tenendo conto di <!--  
e --> ?
in questo caso data la chiave USR come faccio ad accedere al suo valore?
grazie

Larry wrote:

my %conf;
while ( <filehandle> ) {
     /<!--(.{3})(.+)-->/;
     $conf{$1} = $2       # $conf{USR} = 'CLAUDIO'
}
Vale *solo se* le coppie chiave-valore (con la codifica da te descritta) 
compaiono una per riga nel file (cosa che non hai specificato ;-)
Inoltre ho dato per scontato che <!-- e --> non comparissero mai 
all'interno della chiave o del valore.


Espandendo quanto suggerito da Emanuele, assumendo che non esistano
newline nelle chiavi o nei valori, si potrebbe fare qualcosa del
genere nel caso ci siano più configurazioni all'interno della stessa
riga:
my %conf;
while (<filehandle>) {
   while (my ($key, $value) = /<!--(...)(.+?)-->/g) {
      $conf{$key} = $value;
   }
}
Il punto interrogativo in "(.+?)" serve a disabilitare il matching
"vorace" ed a fermarsi il prima possibile (ossia alla prima occorrenza
della chiusura del tag di commento); l'opzione "g" dell'espressione
regolare, invece, serve a prenderle tutte.
Ciao,
   Flavio.

 
Ispirato da Flavio, suggerirei il seguente piccolo raffinamento nella regex:
/<!--(.{3})(.*?)-->/
che vale sia nel caso di una sola coppia chiave-valore per riga, che nel 
caso di piů coppie (come nella soluzione postata da Flavio, nel qual 
caso ci vuole anche il modificatore /g).
Serve per matchare anche le stringhe tipo:
<!--USR-->
dove si intende assegnare il valore /null/ ad una determinata chiave 
(che nel nostro caso darebbe luogo a: $conf{USR} = '').

 }
O anche:
   my %conf = map { /<!--(...)(.+?)-->/g } <filehandle> ;
che dovrebbe, se non erro, essere equivalente.
Max

 ha scritto nel messaggio 
news:l9KdnaUFDMhFfCPU...@kpnqwest.it...

fantastici tutti!

Newsgroup: it.comp.lang.perl
Titolo: Problemi con le espressioni regolari!

Dunque ho una stringa di nome $pippo, composta da tanti caratteri cosi'
composti:
-d-fr-asd-fgh-g
vorrei farli diventare cosi':
-d -fr -asd -fgh -g
e fin qui' abbastanza semplice con:
$pippo=~s/-/ -/ g
il problema e' che non vorrei effettuare la substituction sul primo
carattere cioe' non voglio mettere uno spazio nel primo carattere, lo
voglio fare in maniera pulita, senza troncare il primo carattere con
un'altra istruzione.
Come faccio a dire a perl che mi deve saltare la sostituzione nel primo
carattere (anche saltando l'ultimo carattere della stringa volendo)
Ho provato con   s/- \B/ -/g   ma non funziona
come fare ?
Inoltre dove trovare l'elenco completo di tutte le funzioni delle
regular expression ?
Ho il libro di Larry Wall ma e' dispersivo su come fare, eisste da
qualche parte una tabella generale in merito?
Saluti
Fabio

 cerchero' un'altra donna dentro ai sogni di Tarzan...
Newsgroup: it.comp.lang.perl
Titolo: creazione di moduli .pm

Dove posso trovare un manuale PERL che mi spieghi come creare un modulo
PM da poter installare su qualsiasi WebServer ???
grazie

PM da poter installare su qualsiasi WebServer ???
Advanced Perl Programming di O'Reilly lo spiega, anche se in maniera un
po' nebulosa.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

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

sto realizzando un sito di e-commerce in perl/interbase.
vorrei far visualizzare già in homepage un elenco di prodotti,estratti dal
db, ho uno script cgi che esegue appunto quest'operazione
il problema è che l'homepage deve avere estensione .html e non so come fare
a lanciare subito lo script cgi, per ora ho risolto mettendo nell'homepage
un tag <meta http-equiv=refresh content="0; url=homepage.cgi">, non c'è un
modo più pulito?
Grazie in anticipo
Bazan
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 modo più pulito?
In questi casi, con Apache, io metto un .htaccess
con la direttiva
SetHandler cgi-script
guardati bene i doc di Apache.
La tua soluzione comunque è più che accettabile.

 Bazan
Un'altra possibilita` consiste nel generare periodicamente una
pagina statica per l'indice, e servire quella. Il che avrebbe 
anche un'incidenza positiva sul carico del server.
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

 c'è un modo più pulito?
Io in questi casi (homepage con del contenuto dinamico) uso di solito un
IFRAME all'interno della pagina statica. L'IFRAME punta a una pagina
generata dinamicamente.

Newsgroup: it.comp.lang.perl
Titolo: Miglior editor di programmi Perl?

ciao qual'è il miglior editor di programmi perl? (con sintassi...)
per windows. io uso ultraedit ma non è free.. (cq non è proprio
efficente nella colorazione)
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:ad1f8cb2139caf5c1ea...@mygate.mailgate.org...


 efficente nella colorazione)
GViM.	
http://www.vim.org
Ciao,
 Emmanuele.
-- 
Emmanuele Bassi (Zefram)           [ 
http://www.radiance.d2g.com/~zefram
 ]
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

 ha scritto nel messaggio
news:ae864h$nkg$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.perl
Titolo: ricorsione in directories

Gentili,
devo realizzare uno spider che mi prelevi degli indizzi mail all' interrno
di files html, i quali sono inseriti in directories strutturate ad albero .
Quello di estrarre l'indirizzo dal file è il minimo probblema : open
(WW,"<$file"), etc... Quanto mi serve è un consiglio su come strutturare i
cicli, affinche incontrata una directory, vi entri, verifichi la presenza di
files (e come prima, prelevi l'ind. mail) e directories, e ricorsivamente vi
entri in profondità e poi esca, per proseguire sul ramo successivo del
grafo. Poiche la routine non dovrebbe essere estremamente complessa, potendo
evitare delle library , per le quali spesso impieghi più tempo a leggere ed
interpretare l'index che ad implementare by your self una routine....
spero di essere stato suff. chiaro
thks

 di files html, i quali sono inseriti in directories strutturate ad albero .
Il modulo che ti serve (presente nel core) è File::Find .
perldoc File::Find ti dà tutte le informazioni necessarie.

 ha scritto nel messaggio
news:e10ddc$q9t$1...@nnrp.ngi.it...


 ricorsivamente 
Scrivere una funzione che visiti ricorsivamente un albero di directory č un
esercizio che dovresti fare. Quindi il mio consiglio č: scrivere questa
benedetta funzione, poi buttarla e usare "File::Find".
In pseudocodice, dovresti fare cosě:
   funzione visita ( Dir )
       per ogni Name in Dir
          Path = Dir + "/" + Name 
          se Path č un file:  fai quel che devi fare con Path
          se Path una directory : invoca visita( Path )
Poi, come esercizio, prova a scrivere una funzione che svolga lo stesso
compito senza effettuare chiamate ricorsive.
 
Max

 ha scritto nel messaggio
news:e10t6c$7t4$5...@newsreader.mailgate.org...


 
No. Dir, nel mio pseudocodice, è l'argomento di 'visita', quindi ce l'hai
già. L'elenco dei file (nel punto dove dico "per ogni Name in Dir...") lo
ottieni con opendir+readdir (v. perldoc). 'ls' e 'dir' sono comandi shell e
non c'entrano con il Perl.
Max

 ha scritto nel messaggio
news:e138ep$7t4$7...@newsreader.mailgate.org...


 ha scritto nel messaggio
news:e10ddc$q9t$1...@nnrp.ngi.it...


 ha scritto nel messaggio
news:e10ddc$q9t$1...@nnrp.ngi.it...


 rappresentare un indirizzo mail ? Io ho ipotizzato questa, ma $1 ritorna 'na
Non saprei, ma cercare su CPAN è sempre utile ;)
Ad esempio:
  use Email::Address;
  my @addresses = Email::Address->parse($line);

 ha scritto nel messaggio
news:e15l23$mvk$1...@nnrp.ngi.it...


Newsgroup: it.comp.lang.perl
Titolo: Calcoli fra date

Ho questo problema:
devo calcolare quanti giorni intercorrono fra due date. C'e' qualche
funzione ad hoc del perl per fare cio'?
Grazie



 No. Usa uno dei moduli che trovi su CPAN.
 Date::Manip puo' andar bene, ma e' un po' pesante. Credo ci sia anche 
 qualcosa di piu' snello se non hai bisogno di funzioni particolari.
 
 Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@tuttocitta.it
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)
Newsgroup: it.comp.lang.perl
Titolo: compilazione GD

Salve a tutti,
	forse questa è più una domanda per un forum linux ma...
Sono su una macchina linux e vorrei iniziare a provare il modulo GD.
L'ho scaricato da internet, l'ho scompattato e ho dato il:
	perl Makefile.PL
Tutto ok.
Successivamente ho dato un bel "make" ma ha iniziato a dare una serie di
errori:
2$ make
cc -c  -I/usr/local/include -I/usr/local/include/gd -D_REENTRANT
-D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN -fno-strict-aliasing
-I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O2  
-DVERSION=\"2.12\" -DXS_VERSION=\"2.12\" -fPIC
"-I/usr/lib/perl/5.8/CORE"  -DHAVE_JPEG -DHAVE_FT -DHAVE_XPM GD.c GD.xs:
In function `newDynamicCtx': GD.xs:430: error: structure has no member
named `gd_free' GD.xs: In function `gd_cloneDim':
GD.xs:450: error: structure has no member named `alpha'
GD.xs:450: error: structure has no member named `alpha'
GD.xs:456: error: structure has no member named `thick'
GD.xs:456: error: structure has no member named `thick'
GD.xs: In function `XS_GD__Image_newFromPngData':
[SNIP..]
GD.xs:1208: error: invalid lvalue in assignment
GD.xs:1209: error: invalid lvalue in assignment
GD.xs:1209: error: invalid lvalue in assignment
GD.xs: In function `XS_GD__Image_stringFT':
GD.xs:1858: error: `gdFTStringExtra' undeclared (first use in this
function) GD.xs:1858: error: (Each undeclared identifier is reported
only once GD.xs:1858: error: for each function it appears in.)
GD.xs:1858: error: parse error before "strex"
GD.xs:1877: error: `strex' undeclared (first use in this function)
GD.xs:1881: error: `gdFTEX_LINESPACE' undeclared (first use in this
function) GD.xs:1885: error: `gdFTEX_CHARMAP' undeclared (first use in
this function) GD.xs:1887: error: `gdFTEX_Unicode' undeclared (first use
in this function) GD.xs:1889: error: `gdFTEX_Shift_JIS' undeclared
(first use in this function) GD.xs:1891: error: `gdFTEX_Big5' undeclared
(first use in this function) GD.xs:1895: warning: assignment makes
pointer from integer without a cast make: *** [GD.o] Error 1
Sapete dirmi cosa si aspetta da me questo signor GD? :-(
Grazie per ogni aiuto...
Ciao,
	nathanvi
-- 
nathanvi
ICQ --> 20318568
mail --> vitto.z A_T 
tiscali.it

 modulo GD.
Ho sudato un casino proprio ieri mattina per far andare quel modulo (su una
RedHat 9).
Se hai gd-1.8.4 OCCHIO che devi usare il modulo GD-1.4.1 (le successive
richiedono gd-2.qualcosa che a sua volta richiede altre tonnellate di roba).

Prima di tutto rilancia il "perl Makefile.PL" e rispondi "n" ai vari
supporti XPM, Freetype, ecc... e poi rilancia il "make".
Newsgroup: it.comp.lang.perl
Titolo: Socket in Perl Aiuto!

Ciao a tutti,
qualcuno mi sa dire come deve fare un client  a inviare delle info
anche solo di tipo ASCII ad un server?
PEr esempio io ho creato un socket e mi sono connesso ...tutto funza
ma quando voglio inviare dei comandi al server (per esempio SMTP) il
prog mi resta in stallo , quasi non gli arrivasse mai il comando io ho
provato con
print SOCK "comando da inviare";
ma noon funziona.
Sapete aiutarmi?
GRAZIE

 ha scritto nel messaggio
news:3915598a...@news.tin.it...


Ah scusa, ho letto di fretta non si usa print si usa syswrite che controlla
sincronismo.

Newsgroup: it.comp.lang.perl
Titolo: grep

Io ho un programma con le seguenti istruzioni:
$PATTERN="topolino|pluto|gamba di legno|nonna papera"; ####Sempre e
rigorosamente minucolo
@FILE_CHIAVI_2= grep {/($PATTERN)/} @FILE_CHIAVI;
@FILE_CHIAVI è un array contenenente l'elenco dei personaggi di walt disney
(è un esempio) con alcune lettere maiucole poste in maniera casuale. Per
questa ragione (per le maiuscole) facendo il grep il risultato è un'array
nullo.
Eseguendo invece prima di queste istruzioni le righe:
for ($i=0;$i<$#FILE_CHIAVI; $i++) {
                $FILE_CHIAVI[$i]=lc($FILE_CHIAVI[$i]);
}
Il programma riempie si il nuovo array con i risultati corretti, ma questi
sono irrimediabilmente minuscoli.
Come posso ottenerli come erano all'origine?
C'è un metodo più semplice rispetto a:
for ($i=0;$i<$#FILE_CHIAVI; $i++) {
    $NOME_MAIUSCOLO{lc($FILE_CHIAVI[$i])}=$FILE_CHIAVI[$i];
}
che mi comporterebbe uno spreco di memoria non indifferente? Le chiavi sono
circa 20000 e allocare una variabile solo per le maiuscole per ciascuna di
esse è un bell'esborso extra.
Grazie e Ciao
Andrea Busia







Scusa... ma fare il matching 'case insensitive'? O mi e' sfuggito qualcosa?
  @FILE_CHIAVI_2 = grep { /($PATTERN)/i } @FILE_CHIAVI;
 
Per quanto possa essere inefficiente m//i (non molto ma nemmeno pochissimo)
e' la via piu' naturale.
Certo che tenere 20000 chiavi con dentro i personaggi di Walt Disney e' un
lavoro veramente strano! :)
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@tuttocitta.it
 
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 Come posso ottenerli come erano all'origine?
@FILE_CHIAVI_2= grep {/($PATTERN)/i} @FILE_CHIAVI;
con l'opzione "i" l'espressione regolare ignora la distinzione maiuscole/minuscole.
bye
silvio

 wrote:
:> Io ho un programma con le seguenti istruzioni:
:> $PATTERN="topolino|pluto|gamba di legno|nonna papera"; ####Sempre e
:> rigorosamente minucolo
:> @FILE_CHIAVI_2= grep {/($PATTERN)/} @FILE_CHIAVI;
:> 
:> @FILE_CHIAVI č un array contenenente l'elenco dei personaggi di walt disney
:> (č un esempio) con alcune lettere maiucole poste in maniera casuale. Per
:> questa ragione (per le maiuscole) facendo il grep il risultato č un'array
:> nullo.
:> Come posso ottenerli come erano all'origine?
: @FILE_CHIAVI_2= grep {/($PATTERN)/i} @FILE_CHIAVI;
Poi, se veramente il pattern e` costante puo` usare l'opzione //o che
compila il pattern una sola volta.
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) ipers (dot) net   for my PGP public key

lavoro veramente strano! :)
I personaggi di Walt Disney erano un esempio, anche perchè dovrei inventarne
parecchi. ^___^
Ciao
Andrea

Newsgroup: it.comp.lang.perl
Titolo: un buon tutorial per i cgi ?

come da oggetto :D
saluti

come da oggetto :D
In inglese: 
http://www.easystreet.com/~ovid/cgi_course/
ciao
Stefano
Newsgroup: it.comp.lang.perl
Titolo: mysql.sock

Se il file mysql.sock e' in      /proc/6/fd
come possibile accedervi?????
Se digito find / -name mysql.sock
mi appare:
find /proc/6/fd : Permesso negato.
Questo file lo devo spostare in /tmp ma come fare se non posso accedere
a questa cartella ?
NB. Entro in Linux come root.
Grazie a tutti.
Corrado

 a questa cartella ?
Comunque quando lo hai individuato non lo devi spostare... devi solo
creare il link simbolico in /tmp cosě
ln -s /posto/dove/hai_trovato/mysql.sock /tmp/mysql.sock
ti consiglio inoltre di correggere la ricerca con
find / -name mysql.sock* visto che ieri ho assistito ad un seminario in
cui il preparatissimo relatore continuava a chiamarlo mysql.socket ....
Ciao
Wiz of Id

Newsgroup: it.comp.lang.perl
Titolo: modulo database

Salve a tutti.
Volevo sapere se con perl si può accedere al database DBF di Visual FoxPro.
Se si che modulo dovrei usare?
Io ho guardato su CPAN e l'unica cosa che si potrebbe avvicinare è DBD:XBASE
con estensione .dbf
Mi potete aiutare?
Grazie a tutti
Michela

con estensione .dbf
Prova DBD::ODBC.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

Newsgroup: it.comp.lang.perl
Titolo: ricerca di sottostringhe

Ciao qualcuno sa come cercare una sottostringa all'interno di una stringa ?

 Ciao qualcuno sa come cercare una sottostringa all'interno di una stringa ?
index(), rindex() o una regular expression.
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: Dowload Perl Script

Hi !
How can i download a perl script from http ?
Thanks

How can i download a perl script from http ?
If you mean I CGI script which runs on a web site, you can't (baring any
security problems of the server).
	Michele.
P.S.: This is an Italian newsgroup, next time you might consider other
groups if posting in English.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

Newsgroup: it.comp.lang.perl
Titolo: HTML::Template e .htaccess

Se da uno script Perl in una directory non protetta chiamo un template
da una directory protetta tramite .htaccess mi viene richiesto nome e
password?


Se il template viene richiamato con un percorso del filesystem, 
naturalmente no. Se viene richiamato da un percorso "web", visto che la 
chiamata http viene fatta dall'applicativo (e dunque non dal client 
utente, nel senso che l'applicativo non ha generato html con link alla 
risorsa protetta), direi di no. Ovvero l'applicativo non riuscirà a 
leggere il template ma l'utente non lo saprà (perché l'utente lo 
saprebbe solo se l'applicativo generasse html con dentro quella risorsa 
protetta).
Non so se mi sono capito.

 Non so se mi sono capito.
Credo di si, grazie.
Lo sospettavo, in effetti la protezione ha senso se la chiamata
proviene dall'esterno, ma per chiamate provenienti dallo stesso server
la protezione può generare dei pericolosi ostacoli.
Curiosità, niente ferie in agosto?
Ciao
oreste.parlatano.com

Newsgroup: it.comp.lang.perl
Titolo: ! Algoritmo scomposizione ...

Prima di imparare il Perl, mi capito' di avere sotto mano una riga di Perl
che scomponeva un numero in fattori primi. Era solo una riga e non conteneva
nessun ciclo. Mi pareva illeggibile e quindi affascinante. Ora che ho
imparato il Perl sarei curioso di darci un'occhio, ma non la trovo piu'.
Qualcuno la possiede o e' in grado di scriverla !?!
Alex

Alex wrote:

Ricordavo anche io qualcosa del genere, ed ho trovato questo: penso sia quello
che cercavi.
Ciao,
   Samuele
for ($N = ('o' x shift); $N =~ /^(oo+?)\1+$/; $N =~ s/$1/o/g) { print
length($1), " " }
print length ($N), "\n;"
Newsgroup: it.comp.lang.perl
Titolo: Posizione linea greppata in array

Ciao,
come posso fare per farmi dire in quale posizione dell'array
è stata greppata una data linea ?
@array = (A01046",
        "HS1029",
        "X34912")
$pos = grep (/HS/,@array);
in questo modo mi dice quante occorrenze
ha trovato. E la posizione nell'array ?
-- 
Bye,
Colossus

 ha trovato. E la posizione nell'array ?
Non sono convinto che il grep è la funzione appropriata per quello che
vuoi fare. Ti allego un pò di codice che ho buttato giù. 
La funzione trova() trova la prima occorrenza ed esce restituendo la
posizione, la seconda funzione scorre tutto l'array e riporta tutte le
posizioni delle occorrenze.
Ciao,
<CODE>
use strict;
use warnings;
use Data::Dumper;
my @array = ( "A01046", "HS1029", "X34912" );
my $pos = trova( \@array, "HS" );
my @posizioni = trova_tutte( \@array, "10" );
print "Occorrenza singola: $pos\n";
print "#" x 25 . "\n";
print "Occorrenza multipla\n";
print Dumper(@posizioni);
sub trova {
  my $array = shift;
  my $reg   = shift;
  my $pos   = 0;
  foreach (@$array) {
    return $pos if /$reg/;
    $pos++;
  }
  return -1;
}
sub trova_tutte {
  my $array = shift;
  my $reg   = shift;
  my $pos   = 0;
  my @occ   = ();
  foreach (@$array) {
    push ( @occ, $pos ) if /$reg/;
    $pos++;
  }
  return @occ;
}
</CODE>
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

kral wrote:
--CUT--
Grazie Kral, ottimo codice !
-- 
Bye,
Colossus

 Grazie Kral, ottimo codice !
Troppo buono! :)
Ciao,


vuoi fare.
Ad ogni buon conto, grep restituisce alias delle occorrenze trovate. E'
cioč possibile (per quanto non particolarmente raccomandabile) fare
qualcosa del genere:
   @array = ("A01046",
        "HS1029",
        "X34912");
   for my $uno (grep (/HS/, @array)) {
 	$uno = lc($uno);
   }
ottenendo di modificare il contenuto dell'array originale. A questo punto,
la conoscenza dell'indice potrebbe non essere piů necessaria.
Naturalmente, tutto dipende da quello che si vuole fare (e da quanto oscuro
si vuol rendere il proprio codice).
Ciao.

 oscuro si vuol rendere il proprio codice).
Hai ragione su quello che si può fare con grep (uso quel metodo quando
faccio readdir varie), ma data la domanda ho pensato che Colossus
volesse SOLO la posizione di un elemento all'interno della lista. (Cosa
che in effetti si può sicuramente fare in mille altri modi che non
conosco :-). Sicuramente grep non era lo "strumento" adatto per quello
che avevo intuito io.
Ciao,

Newsgroup: it.comp.lang.perl
Titolo: Che ve ne pare

Salve,
dopo tanto duro lavoro volelo sapere che ve ne pare di questo mio sito,
costruito interamente in Perl: registrazioni, form, modifca del profilo,
sondaggi, contatori, forum e tutto il resto, lo ho scritto tutto io (direte
voi... e si vanta pure di essere un pazzo?). Io ho 15 anni e sono di Napoli.
il sito è 
http://www.hardwwarenow.it
 . Scusate, devo ammettere che questo è
un "tentativo" di farmi pubblicità, ma a parte tutto mi piacerebbe avere
l'opinione di voi esperti !

 
http://www.hardwwarenow.it
wow! una meravigliosa pagina
(bianca)
con netscape 4.75 in linux non si vede assolutamente
nulla... forse qualche errore nelle tabelle?
mah... non mi va di fare debug ora :P
bye,
Gilberto *Veleno* Ficara
___________________________
e-mail: 
g.fi...@fastnet.it
ICQ UIN: 11891959
http://veleno.cjb.net
___________________________
Webmaster di 
www.bestiario.com
 e 
www.hyleg.it
Designer di 
www.icq99.net
Ideatore e mantainer di 
www.3dinfinity.net
Membro dello staff di 
bbk.org
 (designer)
Collaboratore di Html Point, Netnews e 3dRevolution

Bello, forse l'azzurrino e' un po troppo con il giallo delle scritte diventa
stancante....
Ciao,
Andrea.
Veleno wrote in message <20000913.0...@phobos.mars.system>...


Newsgroup: it.comp.lang.perl
Titolo: dove trovo...

Esempio di trattamento testi?
nel senso dove posso sbirciare esempio di utilizzo di 
operatore s//// e tr//// 
Fabrizio 
--
Secondo alcuni autorevoli testi di tecnica di aeronautica, il 
calabrone non può volare, a causa della forma e del peso del 
proprio corpo in rapporto alla superficie alare.
Ma il calabrone non lo sa e perciò continua a volare.
                                               Igor Sikorsky

http://www.perl.com/pub/doc/manual/html/pod/perlre.html
Alex


ma questo gia lo conosco!
è lo stesso di perlre del perldoc.

Newsgroup: it.comp.lang.perl
Titolo: Interbase

Qualcuno sa dove trovare i moduli DBI per interbase (Linux e Win)?????
Vi sarei grato...
Massimo

http://www.interbase.com
	-> Main Downloads
	-> Contributed Downloads
	-> Perl DBD Drivers ...
:-))))))
Comunque il 
www.cpan.org
 contiene TUTTO, TUTTO, TUTTO
quello che serve sul perl ...

-- 
	Francesco Poggio

grazie Francesco!!
Massimo
Newsgroup: it.comp.lang.perl
Titolo: Time::Local

Hi,
Could someone please tell me how the Time::Local module converts a time as a
series of numbers (day, month, minutes, etc) into a single integer;
    eg: 20/04/2001 17:00    becomes 987782400
Thanks
Ian
--
PLEASE NOTE: comp.infosystems.www.authoring.cgi is a
SELF-MODERATED newsgroup. 
aa.net
 and 
boutell.com
 are
NOT the originators of the articles and are NOT responsible
for their content.
HOW TO POST to comp.infosystems.www.authoring.cgi:
http://www.thinkspot.net/ciwac/howtopost.html

 integer;
The manual page for Time::Local actually describes this in its
IMPLEMENTATION section.  
-- 
Garry Williams


 integer;
The manual page for Time::Local actually describes this in its
IMPLEMENTATION section.  
-- 
Garry Williams
--


Newsgroup: it.comp.lang.perl
Titolo: Chiamare funzioni C da PERL

Ciao a tutti!
So che e' possibile, ma non l'ho mai fatto e non so da che parte
iniziare...
Allora, ho un programma scritto in C. In questo programma, c'e' una
funzione che vorrei richiamare da un mio programma scritto in PERL.
Domanda: cosa devo scrivere nel codice PERL, cosa nel codice C e come devo
compilare il file .c per usarlo da PERL?
Esempi e HowTo sono ben graditi...
Grazie
Luca Bertoncello
(
luca...@lucabert.de
)
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org/blog
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it
Newsgroup: it.comp.lang.perl
Titolo: Inviare SMS con Perl

Esiste uno script in Perl gratuito che consenta all'utente del mio sito di
inviare gratuitamente un SMS ad un suo amico (anche con pubblicità in fondi
all'SMS)? Grazie!
--
Distinti saluti
Matteo
http://infiliset.ibyweb.com
infi...@NOSPAMvirgilio.it

 ha scritto nel messaggio
news:Xvp99.6340$pX1.1...@news2.tin.it...

Basta trovare un sito internet che ti fa mandare SMS gratuiti.
A questo punto ti fai uno script che manda una post http al sito nella
stessa maniera in cui lo farebbe automaticamente un browser.
Il problema non e' lo script ma la sintassi con la quale il sito riceve le
richieste (cioe' l'ordine dei parametri nel pacchetto http): a questo
proposito puoi farti un programmetto proxy che ti stampa a video tutto
quello che passa fra client e server.
Spero di esserti stato d'aiuto,
Nids
p.s.: buon lavoro!

In questo caso avresti problemi legali, del tipo ti arresterebbero. inoltre
la maggiorparte dei servizi personalizza l'sms aggiu gendo la loro
pubblicità o il loro logo, che rimarrebbe tale anche nei sms inviati nel tuo
modo.
la risposta alla prima domanda è quindi che NON si puossono inviare sms dal
proprio sito se non si fà un accordo commerciale con qualche provider
autorizzato.

 all'SMS)? Grazie!
Sicuramente non è un problema di linguaggio, il problema è trovare qualcuno
che poi ti manda effettivamente l'sms tempo fa inserii un servizio del
genere in un sito, sfruttando un sito di una nazione dell'estremo oriente
non ricordo neanche quale, ciao

 
Non è un problema di script né di Perl, ma di trovare un SMS-gateway per la
rete mobile.
Un tempo (felice) c'era la possibilità di utilizzare 
strutture che mettevano a disposizione un'interfacia per l'invio
gratuito di SMS (previa pubblicità alla fine del messaggio).
Ora non credo ci siano più...
Tieni conto che inviare un SMS ha un costo.
Ci sono però molte società che ti vendono grossi pacchetti di
SMS a prezzi assai contenuti.
	- Enrico

Newsgroup: it.comp.lang.perl
Titolo: Per cortesia qualche informazione per iniziare

Salve
Ho cominciato oggi ad affrontare il PERL ed i CGI
Vorrei inizialmente lavorare, ovviamente, in locale.
Dove posso trovare un interprete PERL e come faccio ad installarlo?
Per far girare dei CGI devo istallare anche un server?
Se si, come penso, cosa mi conviene utilizzare e dove posso trovarlo,
possibilmente gratuito o in versione di prova?
Utilizzo un pc con WINDOWS98, mentre il server dove ho affittato lo spazio č
UNIX, il Webserver č Apache.
Grazie per l'attenzione
MAssimo




Ciao a tutti!
Puoi trovare un mio documento che può fare al caso tuo qui:
http://myweb.3q.to/docs/cgi_win9x.html
Io per eseguire CGI in locale ho configurato Apache e ActivePerl, entrambi
free ... cmq nel doc trovi tutte le info necessarie, in italiano. Se hai dei
problemi, ti consiglio di postarli però su it.comp.www.cgi, forse qui sei un
po OT.
Ciao,
Ezio BOnsi
Newsgroup: it.comp.lang.perl
Titolo: Solo maggiorenni e vaccinati per (i) Casini

http://www.repubblica.it/online/politica/noguerra/casini/casini.html
Non mi e` spiaciuto :)
ciao
Stefano

 Non mi e` spiaciuto :)
Chiedo scusa a tutti. Avevo il client di posta che faceva
contatto con quello Usenet. 
Di nuovo scusa.
ciao
Stefano :/
Newsgroup: it.comp.lang.perl
Titolo: Chi sa dirmi perchè???

[ messaggio già inviato ma aggiornato ]
Gentili colleghi,
ho recentemente provato ad utilizzare uno script PERL per la gestione di
banner ma non riesco ad attivarlo da una pagina WEB.
Questa è la situazione:
1 - il server WEB è un MS-Windows NT Server con IIS versione 4;
2 - nel server è installato e perfettamente funzionante il sw PERL rel.
5.003
3 - chiamando manualmente lo script da un browser remoto tutto funziona
regolarmente (es. 
http://www.dominio.it/banner/script.pl
) mentre inserendo
la stringa di comando <!--exec cgi="/banner/
script.pl
"--> in una pagina WEB
con estensione assegnata .STM (estensione associata da IIS al traduttore
ssinc.dll) ed eseguendo la pagina stessa ottengo il seguente risultato:
HTTP/1.0 200 OK syntax error at C:\InetPub\wwwroot\sito\test.stm line
3, near "head>"
Questo è il codice HTML prodotto:
    <html>
    <head>
    <title></title>
    </head>
    <body>
    HTTP/1.0 200 OK
    syntax error at C:\InetPub\wwwroot\sito\test.stm line 3, near
"head>"
    [ .... una serie enorme di simboli non comprensibili ... ]
   Bare word found where operator expected at
C:\InetPub\wwwroot\sito\test.stm line 5, near "</head"
   (Might be a runaway multi-line // string starting on line 4)
   (Missing operator before head?)
   Search pattern not terminated at C:\InetPub\wwwroot\sito\test.stm line
10.
    </body>
    </html>
Ripeto che richiamando manualmente l'applicazione PERL da un browser client
tutto funziona regolarmente, ottenendo correttamente il seguente codice
html:
    <a href="
http://www.nomesito.it/banner/redirect.pl?id=1
"><img
    src="
http://www.nomesito.it/promo/nopcbanner.gif
    " width="400
    " height="40
    " alt="NOPC
    " border="0"><br>NOPC
    </a>
Non riesco in alcun modo a trovare una soluzione!
Chi può aiutarmi?
Ghost

     </html>
Beh. Da questo messaggio, direi che il codice ha qualche problema, per cui 
mancando delle virgolette o roba del genere, lo slash di /head o di qualche
altro tag viene inteso come inizio di una Regular Expression.
Possiamo vedere il tuo script (proprio lui, non qualche esemplificazione,
naturalmente se non e' troppo grosso!)
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

...


 print "<font color=\"red\">$!</font>\n";
In questo caso, invece, sarebbe piu' funzionale usare
  print qq{<font color="red">},$!,"</font>\n";
A parte gli aspetti di forma, verifica che lo script sia corretto,
sistema tutti gli warning che ricevi con perl -w e poi si potra' discutere
sul perche' non funzioni ancora.
