mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Test degli script in locale OK

Finalmente sono riuscito a far funzionare in locale gli script.
Ho utilizzato il server Sambar: setup facilissimo (basta dirgli dov'è il
Perl e le estensioni degli script) e funzionamento assicurato. Addirittura
ha già il Perl , ma comunque ho utilizzato quello più aggiornato della
ActiveState per far funzionare tutti gli script.
Prossimo obiettivo: come impostare, sempre in locale, SENDMAIL per vedere il
contenuto dei messaggi in uscita?
Davide

 contenuto dei messaggi in uscita?
e qui ti volevo :-)
Io avevo trovato un send mail per windows, ma poi non ricordo più che fine a
fatto, ricordo solo che non lo avevo usato (forse non funzionava o non ero
arrivato a installarlo?)
Sempre OptiPerl ti dà una soluzione in merito, però ho notato che lo hai
scartato (visto che ti avrebbe fatto anche da server locale).
Se trovi qualche cosa di interessante facci sapere
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

 contenuto dei messaggi in uscita?
La solita Indigostar ha tra i sui prodotti IndigoMail:
http://www.indigostar.com/sendmail.htm
che in particolare:
<<It is a Windows version of the popular Unix Sendmail program and 
uses the same simple interface as the Unix Sendmail.>>
Ma è un prodotto commerciale perciò costa.

> Ma è un prodotto commerciale perciò costa.
Allora mi accontenterò di vedere la pagina di "spedizione avvenuta con
successo".
Che frustrazione!
Una curiosità da un inesperto come me: perchè il Perl riconosce i file con
estensione *.pl e non quelli con estensione *cgi?
Per far funzionare uno script ho dovuto cambiare tutte le estensioni
all'interno del listato...
Davide

 all'interno del listato...
Non è il Perl a risolvere l'estensione, ovvero a richiamare un
programma (in questo caso perl.exe) e a dare lui in pasto il file
(script.estensione), ma il sistema operativo oppure, nel caso dei CGI,
il server (Apache, IIS, ecc).
Dovresti allora settare opportunamente il tuo server. Se usi IIS o
PWS, potresti dare un'occhiata a questo link:
http://aspn.activestate.com//ASPN/Reference/Products/ActivePerl/faq/Windows/ActivePerl-Winfaq6.html#How_do_I_configure_Microsoft_IIS
in particolare al punto 11.
Newsgroup: it.comp.lang.perl
Titolo: Chmodare un file in perl

Come si fa a chmodare un file usando uno script perl?
Ho provato cosě:
$ chmod 666 $file;
ma mi da internal server error...
Grazie
F.

ma mi da internal server error...
ma almeno lo script ha i permessi per eseguire un chmod?

> ma almeno lo script ha i permessi per eseguire un chmod?
penso di si... proprio per questo devo farli modificare da lui io non li
ho.. lui si! (root)
Newsgroup: it.comp.lang.perl
Titolo: Gestione Stringhe

Avendo una serie di stringe del tipo:
aaa.bbb.cxx
ccc.ddd.cxx
Come faccio a togliere il .cxx finale?
In pratica devo ottenere:
aaa.bbb
ccc.ddd
Grazie per l'aiuto dato!

 Grazie per l'aiuto dato!
Prego.
Max

Newsgroup: it.comp.lang.perl
Titolo: NON RIESCO A FARE GRAFICI DINAMICI SFRUTTANDO L'AZIONE COMBINATA DI APPLET JAVA E SCRIPT CGI

Uso perl per fare script cgi e mi trovo molto bene. Avrei però un grosso
problema.
Se carico in locale una pagina html che contiene una applet java come segue:
<body>
<p><applet code="chart.class" align="baseline" width="600"
height="300"><param name="bgcolor" value="CCCCCC"><param
name="c1" value="10000"><param name="c1_color" value="000077"><param
name="c1_label" value="Milano"><param name="c1_style"
value="solid"><param name="c2" value="300"><param name="c2_color"
value="007700"><param name="c2_label" value="Lombardia"><param
name="c2_style" value="striped"><param name="c3" value="800"><param
name="c3_color" value="000077"><param name="c3_label" value="RM"><param
name="c3_style" value="solidgrad"><param name="c4" value="1000"><param
name="c4_color" value="777700"><param name="c4_label" value="S1"><param
name="c4_style" value="stripedgrad"><param name="c5" value="350"><param
name="c5_color" value="777700"><param name="c5_label"
value="mizeca"><param name="Column_Font" value="Arial"><param
name="columns" value="5"><param name="format" value="none"><param
name="orientation" value="vertical"><param name="scale" value="1"><param
name="title" value="Statistiche allarmi intermittenti "><param
name="Title_Font" value="Arial"></applet></p>
</body>
va tutto ok.
Ma se provo a mettere lo stesso codice in uno script cgi che genera in modo
dinamico la pagina html (per avere dei grafici aggiornati in tempo reale),
non riesce a trovare l'applet java.
Ho provato a mettere tutto il percorso in applet code="chart.class" ma senza
esito
Dati:
htdocs: /yoda/htdocs    --> 
http://xx.xx.xxx.xx/
cgi-bin: 
http://xx.xx.xxx.xx/cgi-bin/sito/area/sottoarea/crea_grafico.pl
ho provato a mettere la applet java sotto varie directory: sia sotto la
cgi-bin (ma mi dice che non riesce ad eseguire la appet: forse pensa che sia
uno script cgi) sia sotto htdocs. Ho provato a mettere i diritti di accesso
sia a 666  che a 777 ma senza esito.
SONO DISPERATO: NON RIESCO  A FARE GRAFICI DINAMICI SFRUTTANDO L'AZIONE
COMBINATA DI APPLET JAVA E SCRIPT CGI
AIUTOOOOOO.

 wrote in message 8j8922$jb4$1...@nslave1.tin.it...

Newsgroup: it.comp.lang.perl
Titolo: Data::Dumper

Qualcuno sa come si usa Data::Dumper per stampare il dump della struttura
ritornata dalla funzione che nel mio caso è un array di prodotti, dove ogni
prodotto è rappresentato come un hash con i campi indicati in $fields?!
$fields è un riferimento ad array di stringhe, che contiene ad esempio i
campi
$fields = [ "Id", "Name", "Description" ]
 se i campi sono  [ "Id" e "Name" ] allora ritornerà
   [  { "Id" => 5, "Name" => "arancia rossa" },
      { "Id" => 2, "Name" => "mela verde" }  ]
Grazie Cinzia

prodotto è rappresentato come un hash con i campi indicati in $fields?!
Non è chiarissima la domanda (tra le altre cose: quale funzione? e che
ruolo avrebbe $fields?).
Se:
    @prodotti = [  { "Id" => 5, "Name" => "arancia rossa" },
                   { "Id" => 2, "Name" => "mela verde" }  ];
allora:
    use Data::Dumper;
    print Dumper(@prodotti);
produrrà:
    $VAR1 = [
              {
                'Id' => 5,
                'Name' => 'arancia rossa'
              },
              {
                'Id' => 2,
                'Name' => 'mela verde'
              }
            ];
Ho l'impressione che non sia quello che chiedi, ma per l'appunto non mi è
chiaro quello che chiedi.
Ciao.

 ha scritto nel messaggio
news:danra055hnt265t24...@4ax.com...


Mi è stato chiesto di utilizzare nello script Data::Dumper per stampare.
Continuo a non capire. Il problema quale sarebbe, la costruzione della
struttura o la sua stampa con Data::Dumper?
Se la funzione restituisce @prodotti, per stampare la struttura è
sufficiente:
    use Data::Dumper;
    print Dumper(@prodotti);
se restituisce un reference ad un array, sia $prodotti, dovrai fare:
    use Data::Dumper;
    print Dumper(@{$prodotti});
E' poi possibile personalizzare la stampa, modificando alcuni parametri, ma
è difficile suggerirti qualcosa senza sapere quello che vuoi ottenere. Sul
lato di Data::Dumper non mi sembra ci sia molto di più.
Per la costruzione della struttura, invece, magari sbaglio perché ho dato
solo una breve scorsa alla documentazione, ma mi pare che Data::Dumper non
c'entri per nulla (tra le altre cose, come farebbe a sapere a quale
profondità selezionare i campi da stampare?), salvo acrobazie che mi pare
rischino di complicare le cose, più che semplificarle.
Dovrai risolvere con un ciclo, o non so che altro, perché non ho idea di
come sia fatta la tabella dei prodotti (è una tabella di un database, un
file, una struttura dati di perl...?).
Immagino che possa esserti utile una lettura di perlol e perldsc.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: funzione random

ciao a tutti :)
esiste una funzione in perl per la generazione casuale di numeri ?
--
'ao
Guercio
Linux User #287721
ICQ# 115792796
togliTI_LA_CACCOLA per rispondere

 esiste una funzione in perl per la generazione casuale di numeri ?
certo :)
da console o prompt di dos, scrivi:
perldoc -f rand
perldoc -q random
e hai le info che vuoi :)

esiste una funzione in perl per la generazione casuale di numeri ?
perldoc -f rand
-- 
Confidence is the feeling you have before you understand the situation.
Maurizio - Tannoiser - Lemmo
Founder Member of ERLUG (Emilia Romagna Linux User Group)
http://erlug.linux.it

 ha scritto nel messaggio
news:b3i22p$1m3tj4$1...@ID-139269.news.dfncis.de...


Newsgroup: it.comp.lang.perl
Titolo: richiamare un cgi mentre carico una pag. html

Salve,
come posso fare a richiamare un cgi mentre sto' caricando una pagina html?
Grazie
-- 
Posted from 
relay3.inwind.it
 [212.141.53.74] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

spero di aver capito:
devi includerlo usando pagine shtml o php
se esiste un modo per includerlo in pagine *.html.. vorrei saperlo anche io!
Ciao


Il tutto sta alle impostazioni SSI del server.
Ciao
Wizzent

Il tutto sta alle impostazioni SSI del server.
Mi trovo anch'io ad affrontare questo problema e dato che non posso
ancora usare SSI, sto cercando una soluzione alternativa.
Finora sono riuscito solo ad avviare un CGI tramite javascript e
funziona.
Ma non conoscendo questo linguaggio non riesco perђ a catturarne
l'output.
Sto studiando...
Per avviare un CGI con successo uso:
<script type="text/javascript" language="JavaScript"
src="
http://www.nomesito.it/cgi-bin/referer.cgi
"></script>
nel tag HEAD del documento.
Mi sento un po OT :)
-- 
ЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,И
http://www.pigmalion.youngwind.com
 pigmalion network
http://www.pigmalion.youngwind.com/perl/
 appunti Perl - FAQ
ЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,И


 --
In effetti siamo OT. it.comp.www.cgi è sicuramente più adatto per queste
cose, ma gia che siamo qui....

cose, ma gia che siamo qui....
E noi sbagliamo sapendo di farlo, siamo proprio senza
giustificazioni...
Va be almeno vi risparmio la firma :)


mi sembra logico: credo che il javascrit sia eseguito dal browser
quando la pagina è nel browser mentre il cgi andrebbe eseguito
sul server  prima che la pagina venga scaricata,
non capisco come funzi nell'HEAD..  forse viene letto prima di scaricarla!?
Qxy

Infatti a me funziona tutto con la riga
<script type="text/javascript" language="JavaScript"
src="
http://www.nomesito.it/cgi-bin/referer.cgi
"></script>
se non fosse che mi scrive il nome del mio sito e non quello da dove
provengo...
Ciao.
-- 
Posted from 
relay2.inwind.it
 [212.141.53.73] 


 provengo...
Ed e' corretto, la richista al CGI viene fatta dalla pagina *tuo* sito
che contiene la direttiva <script>...</script>.
Ciao
MjdP
Newsgroup: it.comp.lang.perl
Titolo: Si può fare in PERL...?

Vorrei creare uno script al quale passare un URL ed ottenere il
download del target, sul server dove risiede lo script.
Ho già provato con OPEN $url > $dest, ma la cosa non sembra
funzionare.
Esiste qualche comando al riguardo, o anche qualche soluzione?
Grazie, Loche.
--
Saluti, LOCHE
lo...@tuttocitta.it

 wrote in message
395626e0...@news.uni.net...


 in 'it.comp.lang.perl' ha
scritto:

Grazie. Ma cos'è CPAN?
A presto, Loche.
----------------------------
pierfranc...@libero.it


pierfranc...@libero.it
Penso d'aver capito:
Comprehensive Perl Archive Network


 qualche soluzione?
  I moduli della libreria LWP permettono di creare script in grado di
scaricare file da rete via HTTP.
 
http://www.cpan.org
	Alla prossima,
		Marco

		Marco
----------------------------
pierfranc...@libero.it

 Esiste qualche comando al riguardo, o anche qualche soluzione?


No. Ho provato ad usare il comando OPEN che, come giustamente mi hanno
fatto notare, è valido solo per i file, non per gli URL.
Ciao, Loche.
----------------------------
pierfranc...@libero.it

Newsgroup: it.comp.lang.perl
Titolo: Caratteri speciali in un file

Ciao a tutti,
ho un semplice script perl che mi genera un file con dei parametri (è una 
zona dns). Ho bisogno di scrivere però nel file la parola  $TTL . Perl 
ovviamente lo riconosce come una variabile e non me lo printa nel file. Come 
posso fare?
grazie
Stefano 


Se usi gli apici singoli invece che quelli doppi se non ricordo male non 
interpreta il contenuto.
Prova quindi con:
print '$TTL';

Newsgroup: it.comp.lang.perl
Titolo: arrotondare un quoziente

Salve a tutti,
è il mio primo messaggio .
Sono alle prime armi con il perl, ho deciso che mi piace, e tanto per
cominciare mi sono infilato in un ginepraio!
Dopo aver letto quello che ho trovato in rete in italiano sul Perl (il mio
Inglese è scandaloso Sigh!) sto cercando di piegare alle mie volontà uno
script in perl per realizzare un sito di commercio elettronico (Perlshop),
la mia attuale esigenze è quella ottenere un quoziente con max 2 cifre
decimali c'è nessuno che mi sa dare una dritta in merito?
Devo infatti trasformare Lit. in Euro e non vi dico i valori che ho ottenuto
fino ad adesso!
Grazie a tutti in anticipo!

decimali c'č nessuno che mi sa dare una dritta in merito?
$a = 12.32653623;
$b = sprintf "%.2f", $a;
	Michele.
-- 
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: Problema con CGI su Tripod.com!

    Premetto che sono alle prime armi con i CGI, sto iniziando studiando la
guida di 
www.html.it
.
Ho un problema!
Devo realizzare un motore di ricerca sul mio sito. Il sito in questione è
presente su Tripod.com.
- Ho prelevato tramite 
html.it
 lo script SimpleSearch scritto in Perl.
- Ho modificato tutte le variabili d'ambiente presenti nello script
($basedir, $baseurl, ecc)
- Ho modificato la directory a cui lo script punta per trovare il
compilatore Perl in:  #!/usr/bin/perl
- Ho realizzato la pagina html che richiama lo script mediante l'istruzione:
<form method=POST action="cgi-bin/
search.pl
">
- Ho caricato il file 
search.pl
 nella directory cgi-bin del server,
utilizzando CuteFTP 3.5.3
- Ho tentato di modificare gli attributes del file in 755 per renderlo
eseguibile ma il server mi dà la seguente risposta: SITE CHMOD 755
whois.cgi
500 'SITE CHMOD': command not understood. o una cosa simile
Chiaramente il motore di ricerca non funziona. Quando vado a fare una
ricerca, mi appare una pagina "Pagina web non disponibile"
Che cosa ho sbagliato?
Cosa devo fare perchè il tutto funzioni?
Spero che qualcuno possa darmi un suggerimento.
Ringrazio anticipatamente.
Enzo La Tegola
lat...@freemail.it

 ha scritto nel messaggio
news:90dpo7$brv$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.perl
Titolo: Ancora testo lungo

Devo dividere un testo in due parti, a seconda della lunghezza; fin qui
tutto facile tranne per il fatto che substr potrebbe tagliare una parola:
secondo voi esiste un metodo per tagliare il testo approssimativamente a
metà nel senso fino all' ultima parola vicino alla metà?
Grazie



controlla la dimensione del file e zac dividi per 2... non capisco
cosa ci sia di difficile. Ti conisglio di leggerti i tanti manuali che
ci sono su rete, a partire da perldoc.com...?

 ci sono su rete, a partire da perldoc.com...?
e io ti consiglio di leggerti meglio il post, perché ha detto esplicitamente
che non vuole tagliare in due una parola, e il tuo "zac" se ne infischia
allegramente. :-)
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

Grazie!
Non disturberei il newsgroup per dividere in due la variabile!!


, scriveva:

Prendi la prima metà esatta del testo, quindi cerchi in tale metà la prima
occorrenza di un carattere non parola a partire dal fondo; se c'è,
appiccichi quello che segue alla seconda metà del testo iniziale; se non
c'è, cerchi la prima occorenza di un carattere non parola nella seconda
metà, se c'è, attacchi quello che lo precede alla prima metà e lo togli
dalla seconda, se non c'è, l'intero testo è una parola singola che non puoi
spezzare.
Il metodo è questo. O intendevi il codice?
Comunque, dai un'occhiata a rindex (se vuoi cercare semplicemente uno
spazio), o alla funzione pos (se usi un'espressione regolare, ancorata con
$ alla fine della stringa).
Ciao.

in questi giorni non ho tempo per scrivere nemmeno una riga di code,
comunque un possibile approccio è quello di posizionarti sul carattere di
metà stringa, e cercare il primo spazio successivo. In questo modo dividi a
metà la stringa includendo la parola che cade alla metà. Magari c'è qualche
sistema più conciso, ma in questo momento non me ne viene in mente un altro.
$str = "am bara ba cicci cocco tre civette sul como";
$pos = index ($str, ' ', (length $str) / 2);
print $pos
Dovrebbe stampare 22, che è l'offset a cui dividere la stringa


Il metodo è questo.
Naturalmente, se non intendi avvalerti del lavoro di altri, perché se no
c'è una manciata di moduli con cui si può fare agevolmente il lavoro. Fra
gli altri: Text::Wrap, Text::Format e Text::Autoformat.
Ciao.

Grazie davvero a tutti, ho fatto una funzione con l' idea di Domizio e su
100 record, non mi ha dato errori di visualizzazione. Certo č un pň
rischioso perchč dopo aver diviso il testo in due, stampo la prima variabile
poi inserisco una float contenente un' altra query con un altro piccolo
testo, e poi il secondo testo. Gli unici errori che ci potrebbero essere
sono chiaramente di ordine grafico, nel senso che mi taglierebbe il testo
lasciandomi una sola parola in una riga, perň in tutti i record che ho
tirato fuori finora non č capitato!
Grazie mille davvero!

 tirato fuori finora non è capitato!
allora fai un controllo per verificare la quantità di testo che si
troverebbe nella prima parte e nella seconda e decidi se tagliare in due o
no
ciao

Newsgroup: it.comp.lang.perl
Titolo: spazio web

Ciao a tutti. C'è qualcuno che sa se è possibile trovare dello spazio web
gratuito con la possibilità di metterci delle cgi in perl?

 ha scritto nel messaggio
news:8k2q1p$jef$1...@lacerta.tiscalinet.it...


Grazie, l'ho trovato! L'elenco č su 
www.risorse.net
.
Newsgroup: it.comp.lang.perl
Titolo: Require e 1

Ciao a tutti,
qualcuno mi puň spiegare un fenomeno stranissimo (almeno per me)?
Sto preparando una serie di script destinati a lavorare, con funzioni
diverse, allo stesso scopo.
Siccome usano piů o meno tutti le stesse variabili e gli stessi path ho
pensato di preparare un file
a parte "
variabili.pl
" in cui inserire, appunto, tutte le variabili,
semplificando cosě il settaggio del tutto.
Inserisco per prova in uno dei files destinati a usare come riferimento
"
variabili.pl
" la funzione:
eval {
require "
variabili.pl
";
};
e tutto funziona.
Tutto contento inserisco la funzione suddetta e......non funziona piů
niente.
Al colmo dello sconforto comincio a guardarmi in giro e scopro che anche il
famoso UBB usa un sistema simile
al mio, lo studio e scopro che il suo file delle variabili termina con un
inspiegabile 1, cioč:
$variabile0;
............
$variabileN;
1;
Inserisco l'1 alla fine del mio file "
variabili.pl
" e tutto funziona alla
perfezione.
Why ???????
--
Marco Allegretti
shi...@katamail.com
http://www.shishii.com

 Tutto contento inserisco la funzione suddetta
negli altri script e......non funziona piů


 
 perldoc -f require

 };
Perchč utilizzare eval? A me funziona anche con 
require '
variabili.pl
';
sebbene, se non erro (parlo per passate esperienze!), utilizzando lo
switch -T da un errore, evitabile comunque utilizzando un push della
directory dove č contenuto il file (nel tuo caso!) "
variabili.pl
" in @INC,
ossia
push(@INC, "/path/to/
variabili.pl
");
Ciao
M.
-- 
:wq

push(@INC, "/path/to/
variabili.pl
");
scusa la mia ignoranza ma non capisco il senso dell'operazione.
Grazie a tutti.


 ci metto 1; alla fine.
Probabilmente l'ultimo assegnamento produce un valore booleanamente
equivalente 'false'.
Se, ad esempio, 
variabili.pl
 termina con
 $pippo = '';
avrai l'errore "
variabili.pl
 did not return a true value...".
Se invece, ad es., termina con
 $pippo = ' ';  # la stringa non è vuota
non avrai quel errore.
 
Max

 scusa la mia ignoranza ma non capisco il senso dell'operazione.
Ripeto, vado un po' a memoria perchè è da un po' che non mi capita di
farlo! ;-)
In pratica, tu usi "
variabili.pl
" come una libreria del tuo script.
Quindi, con require (senza eval) dici all'interprete di andare a leggere
e importare quello che è presente in tale file. Purtroppo, però, questo
crea un problema di tainting (delle variabili presenti in 
variabili.pl
,
se non erro), rilevabile treamite lo switch -T, che purtroppo non
ricordo più se impedisce la compilazione o se mette un warning nel file
id log degli errori del webserver (o forse entrambi!!)
Con il push che ti ho descritto sopra, inserisci la directory dove è
presente il fil 
variabili.pl
 nell'array @INC (vedi perlvar per
informazioni su @INC): così facendo il tutto risulta più pulito ed eviti
problemi id questo tipo, con la sicurezza che i tuoi script non soffrano
di problemi di questo tipo.
Scusa se non sono precisissimo ma è da un po' che non ho problemi del
genere, e comunque l'argomento non mi è chiarissimo al 100%!
Anzi, se ho detto qualche fesseria (cosa che non escludo!!!), qualcuno
mi corregga!
Ciao
M.
-- 
:wq
Newsgroup: it.comp.lang.perl
Titolo: da Lire in Euro

Ciao raga,
come faccio, in perl, a convertire un prezzo da Lire in Euro?
E' gradito il codice.
Grazie

 E' gradito il codice.
$prezzoineuro = $prezzoinlire / 1936.27;
-- 
"Le parole sono importanti.
 Chi parla male pensa male e vive male."
(N. Moretti)

 $prezzoineuro = $prezzoinlire / 1936.27;
Innanzitutto un saluto al NG visto che sono nuovo (non proprio). Mi fa
piacere vedere che in poco piu' di un anno si e' passato dai 20 thread
quotidiani, alle diverse centinaia di oggi.
Ritornando allo script, io aggiungerei anche un 
$euro=sprintf("%.2f", $prezzoineuro);
per arrotondare alla seconda cifra decimale (se non erro la direttiva CE
impone proprio questo arrotondamento)
Ciao
-- 
Pier Angelo Favarolo
-+-+-+-+-+-+-+-+-+-+
Il mio sito sulle tariffe telefoniche:
http://tariffe.surf.to
http://surf.to/tariffe
http://ascu.unian.it/~pangelo/tariffe

Newsgroup: it.comp.lang.perl
Titolo: Aiuto con .pm ..........

Salve a tutti,
sono un inesperto utilizzatore di script perl su Windows NT e ho un 
problema........
Dopo alcuni giorni di utilizzo in cui tutto funzionava correttamente, 
chiamando un file perl per fare l'upload, il sever mi ritorna questo 
messaggio:
Can't locate ./
form-setenv.pm
 in @INC (@INC contains: c:\perl\lib\site 
c:\perl\lib c:\perl\lib c:\perl\lib\site c:\perl\lib\site .) at 
C:\InetPub\scripts\xxxxxxxx\
form.pl
 line 43.
Alla linea 43 ho questo comando:
require("./
form-setenv.pm
");
Ho controllato i permessi e sono corretti...........
E' un problema di versione ?

require("./
form-setenv.pm
");
Prova ad usare semplicemente:
use form-setenv;
Se non funziona invece:
use lib '.';
use form-setenv;
	A presto, Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

Ho risolto il problema.
Visto che da quello che ho capito @INC va a vedere in c:\perl\lib e non 
nella directory che volevo io (e non so come fare a fargliela vedere):
ho messo il file 
form_setenv.pm
 sotto c:\perl\lib ed ho modificato la riga 
43 da
require("./
form-setenv.pm
");
a
require("
form-setenv.pm
");
Tutto funziona.
Il mio problema ora è il limite alla dimensione dei file che posso 
uploadare (ora massimo 50 Kb): vorrei aumentarlo fino a 100 Kb.
Come posso fare ??????

 vedere):
<CODE>
	BEGIN{push(@INC,'mia/directory');}
</CODE>
	Alla prossima,
		Marco

 nella directory che volevo io (e non so come fare a fargliela vedere):
@INC viene anche inizializzata con la variabile di environment PERL5LIB
Saluti
Maurizio
--
Maurizio Coppari
C.I.R.S.F.I.D. - University of Bologna, via Galliera 3, 40126  Bologna
e-mail: 
cop...@remove.cirfid.unibo.it
 (please remove remove in reply)

, 
http://zap.to/balestra
" Ora mai che i baci tuoi piu' non mi sazian
  cerchero' un'altra donna dentro ai sogni di Tarzan... "
Newsgroup: it.comp.lang.perl
Titolo: a cosa serve @_ e $_ ?

Da quanto ho capito le variabili @_ e $_ sono molto importanti.
ma non ho capito bene perchč?
@_ č l'array delle variabili passate ad una funzione vero?
e $_ cosa č?
Grazie in anticipo, Mario.

 e $_ cosa č?
E` uno scalare passato da/ad una funzione.
Bye,
 Emmanuele.
-- 
Emmanuele Bassi         |             [ 
http://digilander.iol.it/ebassi/
 ]
emmanue...@iol.it
  |
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

Newsgroup: it.comp.lang.perl
Titolo: Aiuto su stringa

Salve, ho una stringa del tipo:
aaa aa aaaa aaaa abcd.ab
                *^^^^^^^  
oppure
aaa aa aaaa aaaa abcdab
                *^^^^^^ 
di questa stringa devo prendere solo la parte sottolineata.
Quello che so per certo è che la stringa finisce sempre con un carattere, la 
parte marcata è un nome di file, che può avere il punto per l'estensione, 
ed ha sempre uno spazio, come indicato dall'asterisco, prima del nome del 
file.
Non so come scrivere l'espressione che mi tira fuori dalla stringa, solo il 
nome del file.
Mi date una mano?
Grazie
-- 
Ciao by Siro            
^__^

Ok, questa l'ho risolta da solo.


Newsgroup: it.comp.lang.perl
Titolo: Come si calcolano i tempi di risposta lato Web Server?

Come è possibile creare uno script in PERL che calcola i tempi di risposta
lato Web Server?
So che è possibile attivare la memorizzazione dei tempi di risposta del Web
Server configurando opportunamente i server stesso (così si ottengono i
tempi di risposta tra l'istante in cui la richiesta di una pagina arriva al
server e l'istante in cui si conclude l'invio, da parte del server,
dell'ultimo hit, che costituisce la pagina richiesta).
Ma volendo fare uno script che calcoli solo i tempi di risposta lato server
in una intranet e con una applicazione che effettua poco lavoro client
(quindi sono una ottima approssimazione del tempo di attesa lato utente (Tr
Utente = Tr Server + Tr rete + tr client), quale suggerimento mi date?
Esiste già sulla Rete qualche script freeware?
Grazie a tutti dell'attenzione.
Antonio T.

 Esiste già sulla Rete qualche script freeware?
No, che io sappia.

Newsgroup: it.comp.lang.perl
Titolo: Avevo dimenticato un pezzo di script... sorry

Ciao ,
sto cercando di leggere dei file di scambio .csv da una dir. Il risultato
memorizzato in un array, viene poi riutilizzato quale flag per aprire un
nuovo file con nome un po' differente dall'originale.
Il fatto stà che eseguendo il debug con Perl Builder su Win, le operazioni
vengono eseguite correttamente, ma quando lancio lo script l' esecuzionesi
interrompe senza aver eseguito alcuna processazione (di almeno 2-4 minuti..)
Perche ?
Grazie
Simon
L'implementazione adottata:
........
$medii = '_Medie.csv';
opendir (CZ,$INC[3]);
@dir = readdir (CZ);
$ext = ''.csv";
foreach $tt(grep(/$ext/,@dir)){
@ttTMP = split (/\./,$tt);
$ttIN = $tt;
$ttOut = $ttTMP[0].$under.$ttTMP[1].$medii;
open (DB,"<$ttIN");
open (DBS,">>$ttOut");
..............
........

 ha scritto nel messaggio
news:q%Vk9.176514$pX1.6...@news2.tin.it...

Newsgroup: it.comp.lang.perl
Titolo: Motore di ricerca

Ciao a tutti.
Veramente non so se ho trovato il NG giusto, ma spero cmq che mi possiate
aiutare.
Ho registrato uno spazio gratis su 
www.homepage.com
 . Vorrei includere nel
mio sito una sorta di "motore di ricerca" ma NON interno al sito, quindi
tipo un mini-yahoo (tanto per capirci). Il grosso problema è che quasi tutti
i provider di homepage gratuite non supportano script di nessun tipo...
nessuno ha una vaga idea di cosa possa fare? Magari un accesso a dati di un
semplice database o simili?
Grazie, ciao,
Lorenzo

 semplice database o simili?
www.hostedscripts.com
 (se non erro!)
Ciao
M.
-- 
:wq

Newsgroup: it.comp.lang.perl
Titolo: Come si fa' a leggere un file gif??

Sto provando a leggere un file .gif per poi spararlo sullo standard
output. Inizia a leggere. ma dopo 4-5 caratteri esce dal loop di
lettura come se avesse incontrato un eof o qualcosa di simile.. 
come si fa'???
Sto' usando un semplice :
while (file, $buf, 16384) {
    print $buf;
}
Rispondetemi anche in email GRAZIE
Auguroni a tutti!!

 }
Se sei in Win95/Dos o in un sistema non Unix, di solito devi leggere il file
in modalita' binaria, usando il comando binmode.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Newsgroup: it.comp.lang.perl
Titolo: Sapete il perche di questo messaggio ??

Ho creato uno script  ../cgi-bin/
get.pl
,  che lanciato da una pagina
../index.htm, mi rimanda questo errore:
200OK
HTTP/1.1 200 OK Date:Mon,25 Nov 2002 08:21GTM Server Apache/1.3.12
Ben-SSL/1.41
(Unix) mod_layout/2.5 PHP/4.01pl2 mod_perl/1.24 Alow:TRACE
Keep-Alive:timeout=15,
max=98 Connection:Keep-Alive Transfer-Encoding: chunked Content-Type:
text/html;charset=iso-8859-1
OK
The requested method POST is not allowed for the URL /index.htm
Lo script in perl, è stand alone e mi va a prelevare informazioni ad
intervalli prestabiliti.
Grazie
Simon

 The requested method POST is not allowed for the URL /index.htm
Mi sa che ha a che fare con il server, non con il Perl.
Prova a postare sui NG che si occupano di CGI e WWW.
 Raffaello

Newsgroup: it.comp.lang.perl
Titolo: ci sono le FAQ?

ciao a tutto il NG,
sto cominciando a studiare Perl e vorrei sapere se il NG ha una FAQ, giusto
per evitare le solite domande...
Grazie,
Federico
------------------
   Imparo !
------------------

 ha scritto nel messaggio
news:8p5t1s$4mb$1...@nslave2.tin.it...


 no, comunque ci sono le faq distribuite insieme al perl
Toppi! ;-)
Sono in 
www.perl-it.org
! (se non ho cannato il link; Michele, se si sei
conferma!)
Ciao
M.
-- 
:wq

conferma!)
Confermato. ;)
	Michele.
-- 
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: Net::POP3.......(%SIG(pipe) ???)---------->HELP

Ho la seguente domanda da sottoporvi:
<<Come si può controllare se la connessione ad un mailserver, iniziata con
l'istruzione
$Con=Net::POP3->new('namehost');
sia ancora attiva.
So che, normalmente, se non si riesce a stabilire la connessione
dall'istruzione new() torna un valore indefinito, altrimenti viene creato
l'oggetto $Con che indica la connessione corrente.
Se a questo punto la connessione dovesse cadere, la variabile $Con rimane
comunque con un valore definito e se io tentassi di usare per esempio la
funzione quit() mi viene restituito un messaggio di errore del modulo
POP3.pm.
In che modo posso controllare se la connessione è ancora attive ed in tal
caso evitare di eseguire comandi????
Anticipatamente ringrazio
    Lorenzo
    E-Mail: 
ita...@technologist.com

ls...@tin.it
 wrote:
 ><<Come si può controllare se la connessione ad un mailserver, iniziata con
 >l'istruzione
 >$Con=Net::POP3->new('namehost');
 >sia ancora attiva.
Usi NOOP. Non mi sembra che sia implementato ma non dovrebbe essere
difficile estendere Net::POP3.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

Newsgroup: it.comp.lang.perl
Titolo: [AIUTO] come si realizza sto redirect?

Salve!
sono nuovo del NG, mi chiamo Antonio e so solo bazzicare con HTML. non so
nulla di ASP, CGI, PHP e tutto il resto
siccome non so in che linguaggio si deve realizzare quello che voglio ho
postato questo messaggio sui NG php, cgi, asp, perl
mi servirebbe creare un sistema di redirect sul mio server (win NT, Aruba)
ecco un esempio:
il link da raggiungere è del tipo
http://www.tuosito.com/offerte/speciali/sconto/telefonia/nokia/3210..html
e vorrei creare un link sul mio sito del tipo
http://www.miosito.com/link.asp?id=0002
logicamente non mi serve un solo redirect, ma qualche centinaio. se potreste
fornirmi le istruzioni, vi sarei molto grato.
tale servizio dovrei usarlo nella mia newsletter, così da non inserire link
lunghi, ma corti
non sono interesato alle statistiche, mi basta il solo redirect. non so qual
è il linguaggio adatto per crearlo. mi affido a voi
grazie 1000
--
Tony
ton...@iol.it
http://web.tiscalinet.it/net_money

Credo che il perl faccia al caso tuo, comunque sen non hai accesso al server per 
installare cgi puoi anche usare javascript
Newsgroup: it.comp.lang.perl
Titolo: flush o simili

Esiste la possibilita' di visualizzare l'oputput generato da un cgi-bin
perl
durante la sua elaborazione?
Mi spiego con un esempio:
#!/usr/bin/perl
print "AAAA";
sleep(5);
print "BBBB";
in questo caso l'output viene mostrato tutto al termine dei 5 secondi.
Io vorrei visualizzare 'AAAA', attendere 5 secondi e poi visualizzare
'BBBB'.
Grazie.
Walter

perl durante la sua elaborazione?
No, non nel modo in cui vuoi farlo tu. La cosa più semplice è probabilmente
usare uno script lato client.
Ci sono anche tecniche particolari... "client/server pushing"? so che se
n'è parlato molto tempo fa, ma non ricordo i dettagli. Immagino che
richiedano server e/o client avvertiti. In ogni caso, non è nulla che si
possa ottenere mettendo uno sleep fra due print.
Ciao.

Giovanni Zezza ha scritto:

Mi pare che un effetto del genere si può ottenere con:
$| = 1;
all'inizio dello script.
-- 
-- Marco Allegretti --
http://www.shishii.com

 $|++

all'inizio dello script.
Non nel contesto di cui sta parlando. Certamente lo script rispetta la
pausa, ma il browser riceverà la pagina secondo la temporizzazione data dal
server http; vale a dire, con estrema probabilità, tutta insieme dal
termine dell'esecuzione dello script.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: ***emergenza****

Scusate sono fuso!!Devo rimpiazzarz su un file tutti gli /n che trovo
doppi con un carattere <br> <br>, cioé ogni 2 /n 2<br> e gli /n singoli
eliminarli!!!!
Come faccio????

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

$testo= ~s/\n{2}/<br><br>/sg;
$testo= ~s/\n//sg;


 
Attento allo spazio.
 =~   è l'operatore di binding delle regexp (quello che volevi usare)
 = ~  è l'operatore assegnamento seguito dalla negazione bitwise
Max
Newsgroup: it.comp.lang.perl
Titolo: mail con perl

Salve a tutti.
Da poco mi stň cimentando con soddisfazione nella programmazione perl
orientata ai CGI per internet.
Qualcuno mi sa dire come, utilizzando il programma SENDMAIL di Unix, riesco
ad inviare una email (fino qui ci riesco) ma con uno o piů allegati?
Grazie
Daniele

ad inviare una email (fino qui ci riesco) ma con uno o più allegati?
La domanda 6.1 delle FAQ di questo NG ti dice proprio questo. Trovi
la FAQ list a:
http://www.perl-it.org
	A presto, Michele.
-- 
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!

 una email (fino qui ci riesco) ma con uno o più allegati?
<code>
	sub sendmsg {
		my ($from,$tolist,$subject,$body,$fatt)=@_;
		my $to;
		open MAIL,"|/usr/lib/sendmail -oi -t -odq -f$from" or 
			return 1;
		print MAIL "From: $from\n";
 
		foreach $to (split /;/,$tolist) { 
			print MAIL "To: $to\n" 
		}
 
		print MAIL "Subject: $subject\n";
		print MAIL "MIME-Version: 1.0\n";
		print MAIL "Content-Type: multipart/mixed; boundary=\"8=--\"\n";
		print MAIL "\n";
		print MAIL "--8=--\n";
		print MAIL "\n";
		print MAIL "$body\n";
		print MAIL "\n";
		print MAIL "--8=--\n";
		print MAIL "Content-Type: text/plain; charset=us-ascii\n";
		print MAIL "Content-Disposition: attachment; filename=\"$fatt\"\n";
		print MAIL "\n";
 
		if (open FATT,"<$fatt") {
 
			while (<FATT>) { print MAIL }
			close FATT;
		}
		else {
			print MAIL "UNABLE TO OPEN THE GIVEN ATTACHED FILE: $fatt\n";
			print MAIL "System error: $!\n"
		}
 
		print MAIL "\n";
		print MAIL "\n";
		print MAIL "--8=----\n";
		close MAIL;
 
		return 0
}
</code>
	Alla prossima,
		Marco

Newsgroup: it.comp.lang.perl
Titolo: decimi di secondo

Ho la necessita' di ottimizzare una subroutine piuttosto pesante (accessi
ad oracle, connessione ad altri sistemi ecc..) e per capire quali sono i
punti piu' critici ho bisogno di cronometrare, all'interno della routine,
la durata dei vari pezzi di codice.
Qualcosa del genere puo' essere fatta
cosi':
$tempo = time;
..
.. (pezzo di routine)
..
$durata = time -
$tempo;
print $durata;
..
.. (altro pezzo di routine)
..
$durata =
time - $tempo;
print $durata;
..
.. e via cosi'
..
Funziona bene,
solo che purtroppo la time mi restituisce il tempo in secondi e la
cronometrazione avviene in maniera piuttosto imprecisa (essendo una routine
che viene poi eseguita diverse volte anche guadagnare qualche decimo puo'
essere importante).
La domanda pertanto e': esiste un modo in perl per
ottenere il tempo con una risoluzione piu' dettagliata del secondo?
Grazie.
--------------------------------
Inviato via 
http://usenet.iol.it

 ottenere il tempo con una risoluzione piu' dettagliata del secondo?
 
 Time::HiRes - High resolution ualarm, usleep, and gettimeofday 
 
http://search.cpan.org/search?dist=Time-HiRes
Newsgroup: it.comp.lang.perl
Titolo: moduli

dove posso trovare i moduli
MAIL::MAILER
NET::SMTP
Sergio

 wrote in message 9de58r$288$1...@nreadA.inwind.it...

Newsgroup: it.comp.lang.perl
Titolo: Compilatore Perl

Qualcuno mi sa dire, per favore, dove posso trovare un compilatore perl
(freeware o shareware).
Grazie
--
Ciao
Andrea
------------------------------------------------------------------------
Redattore di Ludus (
http://www.ludus.it
)
Recensioni, Trucchi, Soluzioni,
Patch e News per PC e PSX
------------------------------------------------------------------------


Se ti serve per win95 collegati a 
http://www.ikaro.com/programmi
Se ti server per Unix penso che non sia un problema trovarlo con motore di
ricerca. Comunque una esauriente fonte d'informazione è il sito
http://www.perl.com/
Ciao,
Daniele
--
----------------------------------
   * IKARO net communications *
 
http://www.ikaro.com
Virtual Hosting & Tech. resources
----------------------------------

am...@tin.it
 wrote:
 >Qualcuno mi sa dire, per favore, dove posso trovare un compilatore perl
 >(freeware o shareware).
C'e` il modulo apposito in CPAN, le informazioni rilevanti le trovi nelle
FAQ del perl.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

Mi sono scordato di dire che mi serviva per win95, grazie.


 wrote:
: Qualcuno mi sa dire, per favore, dove posso trovare un compilatore perl
: (freeware o shareware).
Il perl e` freeware (Open Source?-) soggetto alla Artistic License e si
puo` trovare presso uno dei siti CPAN (Comprehensive Perl Archive
Network). Il sito a noi piu` vicino e` 
cis.utovrm.it
 .
-- 
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: TIMING

Salve a tutti,
sto realizzando uno script ed ho necessita' di calcolare il tempo trascorso
durante l'esecuzione dello script.
la funzione (times)[0] riporta il CPU time con frazioni di tempo, mentre
time riporta il tempo ma con la precisione ai secondi e non ai decimi o
centesimi.
Come posso ottenere la precisione ai centesimi di secondo?
Grazie,
Andrea.

 Come posso ottenere la precisione ai centesimi di secondo?
Perlfaq8 " How can I measure time under a second? "
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 wrote in message
news:8q8oq1$jjf$1...@menelao.polito.it...

Newsgroup: it.comp.lang.perl
Titolo: aiuto per la funzione fork sotto win98

.... when i try to use the fork function with the Win98 Perl 5 compiler this
error message compares: "the Unsupported fork functioin is unimplemented at
line...". Why? How can i do?
Thank you, Federico.
quando cerco di usare la funzioine fork sol compilatore Perl 5 sotto windows
98 mi compare l'errore: the Unsupported fork functioin is unimplemented at
line...". Qualcuno sa dirmi perche'? Come potreio fare i alternativa?
Grazie mille, Federico.

98 mi compare l'errore: the Unsupported fork functioin is unimplemented at
Windows non implementa la funzione fork, quindi il perl non può chiamarla. 
In alternativa puoi chiamare la funzione Create del modulo Win32::Process.
Viene istallata di default col perl per win32, col manuale e tutto.
Il manuale è nella directory docs\Perl-Win32.
Ciao!!
__________________
DinoGen
http://members.tripod.com/dinogen
Togli CIVETTA dal mio indirizzo per rispondermi.

Newsgroup: it.comp.lang.perl
Titolo: Lanciare un programma

Forse la domanda per voi è estremamente banale , ma aiutatemi lo stesso
io devo creare un cgi che lanci un programma ( su un server linux ) eppoi si
reindirizzi su un'altra pagina , mi aiutate ?
Grazie
Giancarlo
--------------------------------
Inviato via 
http://usenet.libero.it

Puoi provare "fork" da PERL. (mai fatto in vita mia :P )
 Raffaello


 ha scritto nel messaggio
news:213Z199Z29Z142Y...@usenet.libero.it...


Newsgroup: it.comp.lang.perl
Titolo: arrtondare un numero allla seconda cifra...

scusate vorrei arrotondsarwe un numero alla seconda decimale..
es: 9,34567
--> 9,34
9,668
--> 9,67
come fo???
grassie mille!
Francesco

 come fo???
Leggendo le FAQ.
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: cgi su Aruba.it

ho registrato un sito su Aruba.it
e volevo mettere dei cgi
ho messo i file nella cartella cgi-bin
li ho prima nominati .cgi e poi .pl
...ma continuano a non funzionare...
mi sono accorto allora che il problema era nei permessi che sono settati su
644...
ho provato a metterli su 755 con Cuteftp ma mi dà questo errore:
[2.cgi]
COMMAND:> SITE CHMOD 755 2.cgi
501 This SITE option is not supported.
come faccio?
grazie a tutti
Francesco

Leggi qui:
http://forum.html.it/ubb/Forum3/HTML/002214.html

Ho sbagliato... il link giusto e':
http://forum.html.it/ubb/Forum9/HTML/000690.html

 wrote in message
news:6sYp5.141706$dF5.2...@news.infostrada.it...


 se per caso tu ci sei riuscito...
Si' ci sono riuscito... allora:
1- tutti i file .cgi vanno messi nella dir /cgi-bin e rinominati in .pl
2- tutti i file e/o directory sui quali una cgi deve avere avere accesso in
scrittura vanno messi nella dir /public
3- ricorda che non tutti i cgi scritti per linux/unix funzionano (almeno
senza modifche) su server NT

 wrote in message
news:198q5.143465$dF5.2...@news.infostrada.it...


 ha scritto nel messaggio
news:8ob704$ct1$1...@fe2.cs.interbusiness.it...


il file perl ti assicuro che è funzionante...
perchè su uno di quei provider che offrono hosting gratutito (virtualave)
funziona perfettamente...
per lo stesso motivo anche l'invio dati dovrebbe essere corretto...
poichè ho usato cuteftp impostato su AUTO tutt'e due le volte sia su aruba
che su virtualave...
sobsob...
bho!
grazie mille comunque!
...prima o poi spero di riuscirci!
ciao
Francesco
Newsgroup: it.comp.lang.perl
Titolo: aiuto script

ho creato una form per aggiungere degli utenti in un database utilizzando
mysql e perl .. volevo sapere qual'e' il comando per non permettere ad un
utente di registrarsi nel  caso in cui la sua user e' gia utilizzata gia da
qualcuno....
grazie per l'aiuto

Il giorno Tue, 13 Mar 2001 17:54:00 GMT, in it.comp.lang.perl ho
letto:

Non ho la sensazione di aver capito precisamente cosa cerchi, ma ce
voglio provр :)
Vuoi il comando o la logica per implementare il tutto?
Per confrontare 2 stringhe si usa 'eq' equal.
In un ciclo if controlli l'user inserito dagli utenti con quelli giр
esistenti, se esiste gli spari la routine per scegliere un altro nome,
in caso negativo procedi.
Fammi sapere se non ho capito cosa intendevi.
-- 
ЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,И
http://www.pigmalion.youngwind.com
 pigmalion network
http://www.pigmalion.youngwind.com/perl/
 appunti Perl - FAQ
ЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,И
-- 
Posted from 
relay3.inwind.it
 [212.141.53.74] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Fammi sapere se non ho capito cosa intendevi.
 forse dovrebbe mettere il campo come unique e intercettare l'errore di
MySQL
non chiedetemi però come farlo
--
--------------------------------
Marco Pinna
System & Network Admin (ancora per poco)
marc...@vaionline.it
--------------------------------

 Fammi sapere se non ho capito cosa intendevi.


 Fammi sapere se non ho capito cosa intendevi.


 non chiedetemi però come farlo
In compenso però potresti buttare OE dato che ti posta i messaggi tre
alla volta :-))))))))))
Ciao ciao, 
	Willy che sta due piani sotto e se la ride :-)))))
Newsgroup: it.comp.lang.perl
Titolo: Elementi Array Adiacenti

Ciao a tutti,
mi sono incastrato su questo probelma e non riesco a venirne a capo!
Per farla breve:
- carico un file via filefield in cgi e lo metto in un array
my $file = $p -> param('filename');
my @filetto = <$file>;
- il file è fatto così:
pippo
pluto
paprerino
con un ciclo for accedo ad ogni elemento dell'array:
for ($i = 0; $i < @filetto; $i++ ) {
$search->query(@filetto[$i]);
questa ultima istruzione fa una query a Google.
Alla prima iterazione query = "pippo" (primo elemento dell'array)
alla seconda iterazione query = "pippo pluto"!!!!
Come è possible??? Le ho provate tutte ... chomp(@filetto), cicli
while etc ... se all'interno del ciclo for inserisco:
print @filetto[$i];
me li stampa corretti! Ma se dati come input a query mi accoda un
elemento all'altro per ogni iterazione.
Help me please!
Grazie,
Marco

$search->query(@filetto[$i]);
Se vuoi accedere all'elemento $i di @filetto, l'istruzione corretta č:
   $search->query($filetto[$i]);
ma č anche piů semplice cosě:
   for my $riga (@filetto) {
      $search->query($riga);
   }
Ciao.


Ho provato in entrambi i modi e anche con un ciclo foreach ... ma
niente :(
Fa la prima query con il primo elemento e la seconda con il primo + il
secondo, e così via per gli altri elementi!
Qualche altro possibile errore?

secondo, e così via per gli altri elementi!
Allora bisogna analizzare il comportamento dell'oggetto $search e della
funzione $search->query(), che io non conosco e di cui tu non dici nulla, e
magari anche quello dell'interfaccia di Google.
Il ciclo di per sé è corretto, e produce un singolo elemento alla volta,
come puoi sincerarti con un print.
Ciao.

,

Hai perfettamente ragione, alla fine l'errore era proprio li!
Avevo dichiarato quella variabile globale anzichè locale al ciclo,
questo mi causava il problema.
Ho rivisto un pò il posizionamento delle variabili all'interno dello
script e ora funziona a meraviglia!
Grazie.
Marco

Newsgroup: it.comp.lang.perl
Titolo: Corso Video per tutti

Corso Video per tutti.
Il corso è caratterizzato da 12 lezioni autodidattiche+ 4 lezioni
individuali in Icq o Powwow.
Questo corso serve a:
-Imparare le tecniche base della videoripresa quasi professionale.
-Usare una videocamera casalinga al meglio delle sue funzioni.
-Scegliere l'attrezzatura adatta alle vostre esigenze.
-Creare, montare e progettare video di grande qualità.
-Effettuare in diverse occasioni videoproduzioni.
Le lezioni verranno inviate tramite posta elettronica in formato Zip.
Alla fine del corso avrete automaticamente una libreria di consigli
acchiappabili da un index in HTML.
Potrete avere pagando una ulteriore somma un CD contenente alcuni esempi e
il corso completo.
I prezzi:
-70.000 corso completo senza lezioni individuali
-100.000 corso completo con lezioni individuali
-160.000 corso completo + esempi in CD-ROM
Rispondete in email.

Mamma mia quanti pirloni ci sono in giro...
Ma a chi c.... può fregare quetsa baggianata off-topic??????????
Bisognerebbe punirla sta gente.... a buon intenditor poche parole!
Guido

Newsgroup: it.comp.lang.perl
Titolo: Modifica caratteri

Dovrei fare uno script che mi cambi tutti i caratteri di tutti i nomifile in 
una dir., da Maiuscoli ( come sono ora ) a minuscoli.
Siccome sono più di un centinaio di file, non mi sembra il caso di fare 
tutto a mano.
Forse potete aiutarmi a capire come fare. Grazie
-- 
Ciao by Siro            
^__^



Apri la directory (perldoc -f opendir), leggi i nomi dei file (perldoc -f
readdir), ignora '.' e '..' (perldoc perlre), converti ogni nome in
minuscolo (perldoc -f lc), rinomina ogni file (perldoc -f rename).
Oppure, se usi una shell che espanda implicitamente gli argomenti con
wildcards (come qualsiasi shell Unix):
 perl -e ' for( @ARGV ) { rename $_, lc; } ' *
Max

 perl -e ' for( @ARGV ) { rename $_, lc; } ' *
Sei stato utilissimo, non tanto per avermi dato subito la soluzione ( che ho 
apprezzato molto ), ma per avermi dato tutte le indicazioni da seguire per 
studiare i vari comandi.
Questa è una cosa che non fa quasi mai nessuno.
Ancora grazie!
