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

   }
mi potete spiegare perché il test passa solo se $var contiene un numero?
E.

 mi potete spiegare perché il test passa solo se $var contiene un numero?
Mi sembra un esempio sbagliato. Esempi di valori che falliscono il
test:
. 0
. "123adada"
Se vuoi verificare che uno scalare contenga effettivamente un numero,
puoi usare piu` efficacemente Scalar::Util::looks_like_number.
ciao,
s.

Newsgroup: it.comp.lang.perl
Titolo: mSQL tramite Perl

Qualcuno mi può indicare una guida su come utilizzare mSQL sotto Perl?
Grazie.
----------------------
http://www.latus.com
----------------------

 Qualcuno mi può indicare una guida su come utilizzare mSQL sotto Perl?
Puoi usare il modulo Msql.pm che trovi sul
CPAN(
ftp://cis.utovrm.it/perl/modules/by-category/07_Database_Interfaces/Msql/Msql-MySql-modules-1.1827.tar.gz
)
Dopo che hai installato il modulo, trovi gia' la man page pronta oppure
puoi usare il pod2html per estrarre la documentazione dal Msql.pm
Spero che questo sia di aiuto.
Reinhard

Newsgroup: it.comp.lang.perl
Titolo: Invio e Stringa

Lo so che avevate sentito la mia mancanza.. ma non vorrei che pensaste
che vi abbia abandonati!;)
1°:
La variabile $car=""; -> è una variabile stringa, ma ha i caratteri
limitati!cioè non può supportare che un certo numero di caratteri... c'è
un modo x "ampliare" la capienza dei caratteri?Ad esempio: se volessi
attribuire alla var $car un "testo" (lunghetto..), si può?!
2°:
esiste un comando che mi effettua l' "invio"? Ad esempio: (ma so già che
la sintassi è errata!).. system ("invio");
Ciao Grazie a tutti
Dany
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 la sintassi è errata!).. system ("invio");
system() invia il comando alla shell per l'esecuzione. cosa intendiper 
"invio"?
-- 
Valter Mazzola -  Software/Databases for Enterprise Web Internet Sites
   PHP, Java Servlets, Applets, Jsp, ASP, PERL, Mod_Perl, Apache, IIS.
* 
HTTP://SITIDINAMICI.COM/?nttp
 ----- 
http://italia.LinSwap.com/?nttp
 
Phone:(+39) 347/129-07-16.  Fax:(+39) 02/700-539-403

 "invio"?
Come posso far eseguire l'invio!?cioč,come posso simulare la pressione
del tasto "invio" automaticamente nel proggy?
Ciao Grazie

Newsgroup: it.comp.lang.perl
Titolo: Passaggio parametri

Salve,
� possibile passare un parametro da html (ottenuto attraverso un <input>) a 
un programma in Perl che si trova nella cartella  cgi-bin, per elaborarlo?
Grazie a tutti 
 
 


 
 
In html occorre definire un form:
 
<form id="new_form" method="post"  action="/cgi-bin/
prova.pl
">
<fieldset>
        <legend>Login de Usuario</legend>
	<p><label>id: </label><input name="id" value=""  maxlength="4" 
type="text"/>
</fieldset>
</form>
 
 
in 
prova.pl
:
 
use CGI;
my $cgi = CGI->new;
my %values=map {
		my @v=$cgi->param($_);
		my $v=scalar(@v) > 1 ? \@v : $v[0];
		($_,$v)
} $cgi->param;
 
 
my $id =$values{id};
 
 
 
Dovrebbe essere chiaro
 


Dimenticato, nel tag form ovviamente occorre anche il bottone di submit:
 
<input class="button" id="Submit" name="Submit" value="submit" 
type="submit"/>
 
 
 

 ha scritto nel messaggio 
news:knvnkf$esu$2...@dont-email.me...

Grazie del consiglio.
Vado a provare.

Newsgroup: it.comp.lang.perl
Titolo: SOAP, XML e WSDL

Salve a tutti,
mi trovo a dover scrivere un semplice client SOAP per chiamare delle 
procedure secondo parametri definiti su un file WSDL.
pubblicazioni.xml è il file WSDL
articoloSuRivista.xml è il file XML con i "parametri"
Ecco le mie poche righe di codice:
#!/usr/bin/env perl
use XML::Compile::WSDL11();
use XML::Compile::SOAP11();
use XML::Compile::Transport::SOAPHTTP;
$ENV{HTTPS_CERT_FILE} = 'client-cert.pem';
$ENV{HTTPS_KEY_FILE}  = 'client-key.pem';
my $wsdl = XML::Compile::WSDL11->new('pubblicazioni.xml');
$wsdl->importDefinitions('articoloSuRivista.xml'); # optional
my $call = $wsdl->compileClient('salva');
# see XML::Compile::SOAP chapter DETAILS about call params
my $answer = $call->(%request);
# Install XML::Compile::SOAP::Daemon
my $server  = XML::Compile::SOAP::HTTPDaemon->new;
$server->actionsFromWSDL($wsdl);
# For debug info, start your script with:
use Log::Report mode => 'DEBUG';
in risposta ho un bel:
error: complex `tns:mods' requires data at {
http://webservice.cineca.it/
pubblicazioni}salva/mods
cosa significa di preciso ? Premetto che non sono un esperto di PERL nè 
di XML.
Grazie, Michele
-- 
O-Zone ! No (C) since 1996
On the road with VFR VTec 2002 "Vuffy", on the net with Linux Slackware.
Home+BLOG @ 
http://www.zerozone.it
 

O-Zone wrote:

Suppongo che significhi che non hai assegnato un valore corretto a 
%request (nello snippet che hai postato, sarebbe undef).
Stando al tuo codice, la struttura di %request dovrebbe essere definita 
in articoloSuRivista.xml
P.S.
Se devi implementare un client, non hai alcuna necessità di costruire 
anche il server.
Newsgroup: it.comp.lang.perl
Titolo: [OT] CGI e dati ``nascosti''

  Salve, ho intrapreso la scrittura di una CGI che gestisce 
  tutti i contenuti delle mie pagine, in modo tale che possano 
  essere soprattutto files di testo semplice, cotruiti con delle
  regolette decise da me. Il tipo di operazioni che alcuni amano fare 
  con PHP, per intenderci, e devo dire che mi sto prendendo delle
  soddisfazioni...
  Tuttavia il mio problema è questo: il mio programma presenta come HTML 
  nel browser dei dati in testo semplice che sono comunque visibili
  come tali se si accede direttamente a questi senza la CGI suddetta.
  Sono alla ricerca di un modo semplice ed elegante per nasconderli o, 
  quanto meno, per gestire cosa possa essere visualizzato direttamente
  nel browser e che cosa no; il server è Apache, ma non è gestito da me. 
  C'è un modo per ottenere quanto sopra ?
  Grazie anticipate, sono ben accetti anche link a manuali o altro...
  Cordialità,
  P.	     
-- 
<!--_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
                      The Hacking Pages
 
www.lulli.net
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-->

Basta dare a tutti i files la stessa estensione e configurare il web 
server per non servire le pagine con l'estensione suddetta.
Ovviamente l'estensione te la devi inventare stando attento che non sia 
tra quelle gestite dai mime per i tipi di file comuni html, htm, rm, 
gif, ecc...
Ciao.
Alberto


 server per non servire le pagine con l'estensione suddetta.
  L'estensione l'hanno di già ( *.oz va bene ? :)
  Il punto è che le pagine sono in hosting, non gestisco io Apache.
  Posso comunque risolvere il problema ?
  Grazie,


L'estensione va benissimo, ma bisogna dire al server che deve nascondere 
tutti i files con quell'estensione, e lo puo' fare solo chi ha accesso a 
  httpd.conf, buona fortuna.
Ciao.
Alberto

Newsgroup: it.comp.lang.perl
Titolo: Perl e il Crypt

Salve,
    ho l'esigenza di realizzare in perl un programma per
aggiungere (su un'unica riga) un nuovo utente con relativa
password al sistema, tipo:
    ./
mioprogramma.pl
 "nomeutente" "password"
Per quanto riguarda la fase di criptaggio della password
ho alcuni problemi. Ho installato il modulo Crypt::CBC
(credo sia con questo che si generano le password criptate)
ma non so come utilizzarlo in maniera tale da generare le
stesse password che genera il programma passwd
di Linux. Qualcuno può darmi un consiglio su come fare?
Attualmente faccio:
use Crypt::CBC;
$cipher = new Crypt::CBC('miapassword','IDEA');
$password = $cipher->encrypt("miapassword");
Grazie.

 $password = $cipher->encrypt("miapassword");
Temo tu stia usando un cannone per sparare ad una mosca. :)
Non conosco esattamente Crypt::CBC, ma la vista della stringa IDEA mi fa
pensare che si tratti di un algoritmo crittografico GROSSO e SERIO. Di
quelli per proteggere pacchi di dati, intendo.
A te serve la funzione crypt() di sistema che c'e' in Perl. Una breve
ricerca in 'man perlfunc' o 'perldoc -f crypt' dovrebbero forniti di un
esempio.
Maurizio
 
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 ricerca in 'man perlfunc' o 'perldoc -f crypt' dovrebbero forniti di
Ti ringrazio per la risposta. Ieri sera sono riuscito a trovare
la funzione da solo. Ora sto cercando di capire come leggere e
modificare le password su /etc/shadow invece che su /etc/passwd
(utilizzando (getpwuid($<))[1]; viene letta la password in
/etc/passwd!!!)

Newsgroup: it.comp.lang.perl
Titolo: Importare una variabile

Esempio:
common.pm
 contiene qualcosa tipo:
package main;	#questo non mi serve, ma non ho avuto idee migliori
$mypath="/a/b/c";
program.pl
 contiene qualcosa tipo:
use strict;
require 
common.pm
;
print $mypath;
Come faccio a importare $mypath nel namespace di 
program.pl
 senza essere
costretto a usare $main::mypath?
Inoltre: perche` $mypath non e` uguale a $main::mypath?
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

 wrote:
: 
common.pm
 contiene qualcosa tipo:
: package main;	#questo non mi serve, ma non ho avuto idee migliori
: $mypath="/a/b/c";
: 
program.pl
 contiene qualcosa tipo:
: use strict;
: require 
common.pm
;
: print $mypath;
: Come faccio a importare $mypath nel namespace di 
program.pl
 senza essere
: costretto a usare $main::mypath?
: Inoltre: perche` $mypath non e` uguale a $main::mypath?
Non lo so, probabilmente dipende da altre cose che hai nei tuoi
sorgenti.
Qui da me funziona con l'eccezione che ho dovuto aggiungere un:
use vars qw($mypath); 
e un paio di apici nel require per evitare errori di compilazione... e
un "\n" dopo il print per vedere cosa veniva fuori.
-- 
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: Web Server Portatile

Ciao Ragazzi , 
volevo sapere se esiste un web server leggero e portatile che ad esempio
vada su Usb Key in modo da poter testare "al volo" le mie applicazioni ?
Grazie x le informazioni 
Pietro 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 vada su Usb Key in modo da poter testare "al volo" le mie applicazioni ?
Ci sono svariati punti da affrontare.
Il più grosso è: una volta che hai montato la chiavetta, come fai a
eseguire il server? Hai idea di che sistema operativo stia girando
sulla macchina che usi (visto che non sarebbe la tua)? Poi, magari,
oltre al server vuoi anche un perl, con tutti i moduli del
caso... compresi quelli binari. E un DBMS, no?
Per aggirare questo problema:
- o ti attacchi solo a macchine con un certo sistema (es. Linux/x86,
  Win32/x86, Darwin/PPC)
- oppure ti tieni sulla chiavetta *n* installazioni del server e di
  perl, una per sistema che vuoi supportare
Altra soluzione, un po' più radicale: 
http://www.projectblackdog.com/
Come server: dipende molto da che ambiente usi. Se ti limiti a CGI,
vanno bene tutti. Se vuoi mod_perl, serve Apache.
Se usi Catalyst, puoi usare il suo server integrato, oppure Zeus.
-- 
  dakkar
  sono su PerlMonks.org, 
use.perl.org
, PAUSE/CPAN

Newsgroup: it.comp.lang.perl
Titolo: errore inspiegabile

Io ho uno script chenon funziona.
Con perl -c tutto ok
con Apache no!
Questo è il mio script
#!/usr/bin/perl
$cookie = $query->cookie(-name=>'login',
        -value=>'fiorani',
        -expires=>'Mon Sep 11 12:00 GMT 2003',
        -path=>'/cgi-bin/login.cgi',
        -domain=>'
fiorani.org
',
        -secure=>1);
    print $query->header(-cookie=>$cookie);
Questo script dovrebbe creare un cookies.
(Per arrivare a questo script ho dovuto leggere il tutorial su i cookies di
cgipoint e 
cgi.pm
 e altri documenti ma mi sa che non ho capito un tubo
vedendo i risultati)
Grazie

 vedendo i risultati)
Ecco una parte di uno script che crea un cookie:
---- SNAP ----
   my %preferences = (
       "Username" => "$Username",
       "Password" => "$Password");
    my $the_cookie = $query->cookie(-name=>'preferences',
                                    -value=>\%preferences,
                                    -path=>'/cgi-bin/
view.pl
',
                                    -expires=>'+4h');
    print
header(-nph=>1, -type=>'text/html', -cookie=>$the_cookie, -charset=>'UTF-7',
                         -status=>'302 Object Moved',
                         -location=>'
http://oss.cgi-bin/view.pl?.action=Modi
fy');
---- SNAP ----
Hope this help.
Jul

    print $query->header(-cookie=>$cookie);
-- 
Saluti,
Giancarlo
Newsgroup: it.comp.lang.perl
Titolo: File::Glob (di nuovo)

Bene,
ho visto che la mia richiesta è passata totalmente inosservata. 
Probabilmente qua in mezzo nessuno usa la glob. E' bello vedere 
tanta collaborazione.
La prossima volta cercherò di fare una domanda più facile.
bye,
-- 
Posted from 
smtp6.libero.it
 [193.70.192.127] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Probabilmente qua in mezzo nessuno usa la glob. 
Ho riprodotto il problema. In effetti la seconda chiamata a glob con Perl
5.6 produce un segfault in __libc_realloc().
Se perņ si evita di importare 'glob' e si specifica il namespace completo,
il problema non si presenta:
 use File::Glob;
 @var1=File::Glob::glob("*");
 chdir("..");
 @var2=File::Glob::glob("*"); 
La cosa sembra strana, ma non ho investigato a fondo.
Nota che dalla versione 5.6, la funzione standard glob() č comunque
implementata tramite File::Glob; non viene usata la shell come accadeva
nelle precedenti versioni. Includere File::Glob esplicitamente č perciņ
inutile, a meno che non servano opzioni particolari, come il "case
insensitivity".  Nel tuo caso, se non si include File::Glob tout-court, il
problema non si presenta.
Max

Newsgroup: it.comp.lang.perl
Titolo: espressione regolare [A-Z]

Ciao,
ho una stringa di questo tipo:
$stringa = "2552..2621,Y14781.1:177..470,Y14782.1:143..406,";
qual è l'espressione regolare che mi dice se c'è una lettera 
ALL'INTERNO di questa stringa ?
$stringa =~/[A-Z]/
non funziona perchè me la trova solo se la Y ad esempio
è all'inizio della stringa ma non nel mezzo. A me serve che me
la trovi ovunque.
Grazie.
Giuseppe

 č all'inizio della stringa ma non nel mezzo. A me serve che me
a me sembra proprio che invece funzioni cosě com'č, e proprio come vuoi tu!
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

 tu!
Su Linux infatti funziona ma a detta del collega che mi ha chiesto di
postare il quesito, che usa winzozz,non funziona !
Comunque grazie
Giuseppe

 postare il quesito, che usa winzozz,non funziona !
io uso winzozz e va

Newsgroup: it.comp.lang.perl
Titolo: CGI upload file

ciao,
sto cercando di fare un CGI che permette agli utenti di fare l'upload di
un file via web browser.
ho cercato qualche esempio con google ma sono tutti molto complessi. non
mi serve javascript o l'autenticazione, al limite un check sulla
sovrascrittra ma quello lo so fare.
avete qualche link/suggerimento da darmi?
grazie
Mario
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 un file via web browser.
Potresti usare CGI.pm : scrivi
perldoc CGI
dalla tua console, otterrai la documentazione di questo modulo, 
usatissimo per la programmazione web.
Lo trovi anche su:
http://search.cpan.org/src/LDS/CGI.pm-3.04/cgi_docs.html
in particolare la parte intitolata "Creating a File Upload Field" (puoi 
tralasciare la parte relativa alla creazione dell'HTML per fare un 
upload, prosegui con la lettura dove ti spiega come gestire il file 
caricato).
Un'alternativa è CGI::Upload che però non fa parte dei moduli standard:
http://search.cpan.org/search?mode=module&query=CGI%3A%3AUpload

non funziona, crea un file di 0 byte.......... perchč???
sub file_upload {
	$CGI::DISABLE_UPLOADS = 0;
	$CGI::POST_MAX = MAX_FILE_SIZE;
	$q -> cgi_error and error ($q, "Error transfering file: ".$q->cgi_error);
	my $filename = $q->param("FILE1"); # nome del file
	my $fh = $q -> upload($filename); # il contenuto del file
	my $buffer = ""; # il buffer di lettua/scrittura per il file
	$questo = UPLOAD_DIR."$filename";
	#---- apre il file in scrittura
	open OUTPUT, ">".UPLOAD_DIR.$filename or print "<p>non posso aprire il
file in scrittura";
 
	binmode $fh; binmode OUTPUT; # necessario per sistemi non-Unix
	while (read ($fh, $buffer, BUFFER_SIZE)) { print OUTPUT $buffer;} #
scrive il file su disco
	print ("<hr><p>il file e' stato caricato in
".UPLOAD_DIR.$filename."<hr>");
 
	print ("<IMG src=\"$questo\">");
	close OUTPUT;


mi rispondo da solo, o meglio ho trovato utili suggerimenti qua:
http://www.experts-exchange.com/Programming/Programming_Languages/Perl/Q_20808610.html
ora funziona.
Mario


Newsgroup: it.comp.lang.perl
Titolo: output progressivo..

se io scrivo:
print "go";
sleep(30);
print "fine";
non accade come dovrebbe, il testo mi appare contemporaneamente
alla fine, se non sbaglio si puo' evitare questo problema, vero?
Grazie
oxy

 print "fine";
Hai provato a lanciare quel pezzo di codice ... e a vedere se funziona?
Bene, funziona proprio come vorresti, ossia visualizza go, aspetta mezzo
minuto poi stampa fine! :-)
Non è che stai facendo girare un codice tipo:
@array = (1, 2, 3, 4, 5); 
for (@array)  { print $_ and sleep(10)}
??
In questo caso, lo script va in sleep per 50 secondi poi stampa di
seguito i 5 numeri! Soluzione: metti
$| = 1;
all'inizio dello script e leggi
perldoc -q buffer
per info.
Ciao
--ev

 > print "fine";
 ho fatto quello che vedi.. ma l'output arriva tutto alla fine:(

Oxy wrote:

$|=1, all'inizio dello script, cosi' un-buffer-izzi, l'output.
-- 
Saluti,
Giancarlo

Funziona!!!
grazie:)
oxy
Newsgroup: it.comp.lang.perl
Titolo: perl -e print "pippo"

perl -e print "pippo"
non mi da alcuna risposta
direte che manca l'apice:
perl -e 'print "pippo"'
mi risponde: Can't find string terminator "'" anywhere befor EOF at -e
line 1
il tutto nella finestra MS-DOS di WinNT, con activestate
cosa fare?
grazie, antonio

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

 non mi da alcuna risposta
  Fa bene... ;)
  Gli apici doppi sono utilizzati per raccogliere i token del linguaggio
dalla riga di comando: se vuoi utilizzarli *dentro* gli statement,
allora devi farli precedere da una barra inversa:
	$ perl -e "print \"pippo\""
  Alternativamente, puoi usare gli apici singoli.
	Alla prossima,
		Marco

Che velocità !
Grazie

-- 
ASTAT - Istituto provinciale di statistica
viale Duca D'Aosta, 59
I - 39100 Bolzano
tel: 0471/994045  fax: 0471/994008
http://www.provinz.bz.it/astat

	$ perl -e "print \"pippo\""
Da notare che e` un problema solo sotto Windoze. Sotto Unix un:
perl -e 'print "pippo"'
funziona alla grande.
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

 cosa fare?
cambia l'ordine degli apici...
usa " per delimitare l'intera istruzione e ' per delimitare la stringa,
ovvero:
    perl -e "print 'pippo'"
questo accade perché il quoting dell'MS-DOS è piuttosto scemo, riconosce
solo " come delimitatore di un argomento unico che abbia spazi in mezzo.
per cui, se vuoi usare le virgolette (") all'interno della tua istruzione,
le devi escapizzare (o escappare) con la backslash, esempio:
    perl -e "print \"pippo\""
triste, ma vero... ;-)
__END__
# Aldo Calpini
print sort {$_{$a} cmp $_{$b}} values %{{split undef,
"xritajbugne fahokem csuctawer jhdtlrnpqloevkshpr"}};

 wrote:
[ snip ]
AG>direte che manca l'apice:
AG>perl -e 'print "pippo"'
AG>mi risponde: Can't find string terminator "'" anywhere befor EOF 
AG>at -e line 1
Boh
[root@fokhouse /root]# perl -e 'print "pippo\n"'
pippo
AG>il tutto nella finestra MS-DOS di WinNT, con activestate
Ah, forse questa e' la risposta ;)
[root@fokhouse /root]# uname
Linux
Ciao ciao,
Andrea
-- 
"...Unix, MS-DOS, and Windows NT (also known as the Good, the Bad, and 
 the Ugly)."
(by Matt Welsh)

 non mi da alcuna risposta
Suggerisco di usare le famigerate q,qq,qx che nessuno adopera ma sono molto
utili in casi come il tuo.
perl -e "print qq(pippo)"
Questo ti garantisce compatibilita' tra Ux e Win32.
Inoltre puoi fare quanto segue:
perl -e "$a='pi'; $b='ppo'; print qq($a$b)"
mentre
perl -e "$a='pi'; $b='ppo'; print '$a$b'"
chiaramente ti produce $a$b.
Io adopero spesso qx() al posto degli apici inversi che non ho nella mia
tastiera italiana.
--
Fernando

mi piace, grazie

-- 


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

Ciao a tutti, ho da poco iniziato a programare in perl,
non mi è particolarmente chiara l'uso dell'array ARGV[0].
Sul manuale che sto usando e su internet non ho trovato
alcuna spiegazione esauriente.
Grazie e ciao.

 alcuna spiegazione esauriente.
Ma che manuale e`? ;-) Se te la cavi in qualche modo con l'inglese ti 
suggerisco l'ottimo "Programming Perl, 3rd edition" edito da O'Reilly & 
Associates.
A presto, Michele.
Newsgroup: it.comp.lang.perl
Titolo: Domanda da ignorantello...

1.Stavo guardando i linguaggi supportati da un server che vende spazio e ho
visto che c'era il supporto per il perl ma non CGI.
Cosa significa?
Col solo supporto perl posso creare pagine dinamiche? E se si, allora a che
serve il supporto CGI??
2. Quale sarà secondo voi il futuro del perl?? Verrà sostituito da altri
linguaggi o continuerà ad essere utilizzato? Lo chiedo perchè mi sto
scaricando dei tutorial, ma considerate le mie capacità di apprendimento per
quando avrò imparato forse il perl non lo userà più nessuno.
Grazie mille

quando avrò imparato forse il perl non lo userà più nessuno.
Dubito fortemente di questo, direi che il Perl si sta diffondendo in misura
sempre maggiore. Certo ha i suoi concorrenti, come il Python, pero` penso
possano convivere. ;)
	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!

 possano convivere. ;)
Questa è una domanda molto dibattuta: nei NG d'oltreoceano un buon 75%
delle persone crede che i CGI (indipendentemente dal linguaggio) siano
in estinzione.
Ok, forse è più logico distinguere il Perl dagli script CGI, ma
sinceramente la cosa mi ha lasciato un bel po' di sasso!
ho paura che l'unica cosa da fare sia attendere, sebbene la parole di
Wall a proposito di un rewrite del codice potrebbe cambiare le cose: un
po' come le quotazioni di borsa, che ad ogni buona notizia vanno in su!
;-)
Ciao
-- 
___________________________________
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

 ma sinceramente la cosa mi ha lasciato un bel po' di sasso!
  Finche` esisteranno Unix ed i suoi amministratori, esistera` il Perl:
al di la` della CGI, il Perl permette di automatizzare tanti di quei
compiti che senza il lavoro del sistemista diventerebbe un delirio. A
maggior ragione cio` e` vero per le reti Microsoft, dove non e`
disponibile nemmeno una shell decente. ;)
	Alla prossima,
		Marco

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

 Della serie: "errare e` umano, perseverare e` diabolico".
Ed avere la soluzione sotto mano senza utilizzarla č peggio! ;-)
-- 
___________________________________
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....
ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ

 wish č M$?
Si, "WSH", Windows Scripting Host... detto wish perche' "it /wish/ to be
like AppleSript, but -obviousley- it isn't" ;)))

Newsgroup: it.comp.lang.perl
Titolo: Perl 6

Salve a tutti,
c'e' qualcuno che puo' anticiparmi quali saranno le piu' grosse 
differenze di questa nuove versione di Perl? E poi quando ne e' prevista 
l'uscita??
Grazie,
Maldoror.
-- 
"We must find out what words are and how they function.
They become images when written down,
but images of words repeated in the mind
and not of the image of the thing itself." W.S. Burroughs

l'uscita??
http://www.perl.org
 e a seguire.
Ciao.


http://www.perl.org
 e a seguire.
Piu` precisamente, puoi leggere le Apocalissi (di Larry Wall) e le
Esegesi (di Damian Conway): le trovi qui: 
http://dev.perl.org/perl6/
,
insieme a tanto altro materiale. 
E` difficile stimare una data di uscita di Perl 6. 
E` molto attivo il progetto Parrot, la virtual machine sulla quale
Perl 6 si basera` [1]. Nella distribuzione di Parrot c'e` anche un 
rudimentale (ma sorprendente) compilatore Perl 6 -> Parrot, con il
quale si puo` cominciare a fare qualche esperimento.
ciao
Stefano
[1]

Perl 6 si basera` [1] [...]
Come giustamente mi faceva notare qualcuno, ti devo una nota.
Ora non ricordo di preciso cosa volessi metterci, ma immagino
fossero link...
[1] 
http://www.parrotcode.org
 
http://www.parrotcode.org/talks
Scusatemi per la dimenticanza :)
ciao
Stefano

Newsgroup: it.comp.lang.perl
Titolo: Leggere e Scrivere Cookies

Come leggo e scrivo i cookies senza la libreria 
cgi.pm
 ed in generale 
senza moduli?



In pratica si tratta di leggere e scrivere header HTTP 'Set-Cookie' come da RFC
2109 (
http://www.w3.org/Protocols/rfc2109/rfc2109
)
Ma, dal momento che CGI::Cookie è presente nella distribuzione standard Perl,
perché reinventare la ruota? :-)
by
	- Enrico
--- have fun with 
www.perl.it
 ---

Newsgroup: it.comp.lang.perl
Titolo: Controllo errori generati da funzioni di libreria

  In  un programmino  uso il  modulo Mail::Address  per utilizzare  la
funzione parse che mi separa l'indirizzo dal NickName e dall'eventuale
"commento".
  Durante l'elaborazione di una intera  Maildir (quella file per file,
per intenderci), ogni tanto mi appare il messaggio:
Unmatched '<>' at /usr/lib/perl5/Mail/Address.pm line 188, <IN> chunk 33.
  generato, nella funzione parse, da questa riga
warn "Unmatched '<>'" if($depth);
  In generale, c'e`  modo di controllare, al rientro  da una funzione,
che e` stato generato il warn? E se si`, come?
  Grazie.
 
-- 
Power down.

che e` stato generato il warn? E se si`, come?
Non sono sicuro di aver capito, ma forse quello che cerchi e`: eval BLOCK.
Dai un'occhiata alla funzione eval in perlfunc.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Antileech che non funziona!

Ciao a tutti, sono nuovo del ng e mi presento: mi chiamo Gianluigi ma per
tutti sono "Nero"!
Ho trovato questo script in perl che impedisce il download dei
file se non dal proprio dominio. Non riesco perň a far funzionare la parte
in cui il dominio viene accettato:
#!/usr/bin/perl
$leechsite=$ENV;
# Change this if you changed the name
# of the .txt file containing your links.
$datafile = "noleech.txt";
# Change this to your domain name
$IPorDom="ilbaluardo";
####################################
# Nothing needs to be edited below #
####################################
$name=$ENV;
$dom=$ENV;
($www,$dom,$com)=split(/\./,$dom,3);
$red=$dom;
$red =~ tr/A-Z/a-z/;
if ( "$red" eq "$IPorDom") {
open(FILE, "$datafile");
@input=<FILE>;
$amount = @input; #Total Number of lines in file
$g = 0; #Line Num
while ($g <= $amount) {
@info = split("::", $input[$g]);
if ($info[0] =~ $name) {
print "Content-type: text/html\n\n";
print "Location: $info[1]\n\n";
exit;
}
$g++;
}
close(FILE);
}
else{
[continua, ma la parte successiva non da problemi]
}
Tutte le volte ho un errore del tipo
"CGI Error
The specified CGI application misbehaved by not returning a complete set of
HTTP headers. The headers it did return are:"
Il file nel quale sono memorizzati gli url veri e propri e strutturato cosě:
-Files-
----------------------------------------------------------------------------
-----------------
example:
file.ext::
http://www.dominio.com/path/file.ext
----------------------------------------------------------------------------
-----------------
-End-
Per finire la chiamata al cgi č
cgi-bin/
download.pl?file.ext
Io sono alle prime armi col perl e non so dove sia l'errore!
Aiutatemi!
-------------------------------------------
     The Matrix has you
-------------------------------------------
             .:: Nero ::.
 
www.ilbaluardo.com
-------------------------------------------
    Follow the white rabbit
-------------------------------------------

hai visto se il programma funziona in maniera iterativa, chiamandolo cioe'
da riga dii comando?
Se un cgi restituisce ad un server un errore tipo syntax error on line 5 il
web server lo interpreta come
il'inizio della sequenza di head della pagina e ti ritorna
quell'errore.Assicurati che il tuo cgi come prima cosa restituisca:
Content-type: text/html\n\n
senza nulla prima.

 ha scritto nel messaggio
news:cZea7.91523$Qf6.6...@news2.tin.it...


Newsgroup: it.comp.lang.perl
Titolo: Un clock al micro secondo

Salve a tutti,
il mio problema e' sostanzialmente questo: mi serve una funzione che mi
restituisca il tempo fino al microsecondo, in questo modo potrei
calcolare il tempo di esecuzione di una certa parte di un programma
in modo precisissimo. Purtroppo il millesimo di secondo non mi
basta...se qualcuno puo' aiutarmi...lo faccia!
Grazie.

 states:
% Salve a tutti,
% il mio problema e' sostanzialmente questo: mi serve una funzione che mi
% restituisca il tempo fino al microsecondo, 
Se sei sotto unix non puoi avere questa precisione (anche se setitimer e
getitimer *misurano* in microsecondi).
.mau.
Newsgroup: it.comp.lang.perl
Titolo: Perl, WinNT4 e IIS 3.0

Secondo voi, come posso fare per spostare la location su una pagina da
uno script Perl?
Sotto Unix, di solito faccio:
    .....
    print "Location: 
http://www.tin.it
\n\n";
e tutto funziona, mentre sotto NT tale soluzione non funziona, nel senso
che lo script viene eseguito, ma stampa sulla pagina 'Location:
http://www.tin.it
\n\n', invece di andarci...
Qualcuno ha qualche idea?
Piez

 Qualcuno ha qualche idea?
Si. Almeno da quello che posso dedurre da cio` che mi scrivi.
Che quel disgraziato di IIS inserisce LUI un header Location: che
sovrasta il tuo. Quindi, per forza di cose, credo che dovresti fare la
CGI in "non-parsed-header", fornendo dal lato CGI *tutti* gli header
necessari alla connessione, a partire da "HTTP/1.0 Ok" (o come cavolo
era, mo` non ricordo bene).
Riassumendo, mi sembra che piu` che un problema del perl sia un problema
di interfacciamento delle CGI in genere con IIS. Qualcuno ha altre idee?
Ciao
Marco
-- 
                            _  _  _
            MARCO MARONGIU |  |_||_ |_| email: 
bro...@tex.unica.it
Computers & Networks Group |_ | \ _|  | WWW  : 
gulch.unica.it/~bronto
       3rd Floor, Room 316 ------------ Tel. : +39 70 2796 259
_____________________________________________________________________
If this mail is in English, please forget errors and mispellings, tnx

Newsgroup: it.comp.lang.perl
Titolo: Cerco bravo programmatore perl

Cerco bravo programmatore perl per modifiche a uno script.

 ha scritto nel messaggio
news:LYEZ7.2039$2R2....@news1.tin.it...

Newsgroup: it.comp.lang.perl
Titolo: Documentazione completa in fomato ipertesto

Esiste una versione della documentazione del perl in formato
ipertestuale (.html o .info)? Trovo le man-pages molto scomode da
utilizzare in questo caso.
oOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOo
|          Alessandro Fiorino                   | 
|   Studente al III anno di Ing. Elettronica    |
|   Politecnico di Torino - Sez. di Vercelli    |
|                                               |
|   mailto: 
blu...@input.lognet.it
             |
|   mailto: 
s89...@vcldec1.polito.it
            |
|   ICQ 1636804                                 |
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+

Alessandro Fiorino (
blu...@input.lognet.it
) wrote:
: Esiste una versione della documentazione del perl in formato
: ipertestuale (.html o .info)? Trovo le man-pages molto scomode da
: utilizzare in questo caso.
Io ho trovato questa documentazione:
http://anubis.science.unitn.it/services/perl/perl.html
http://www.isinet.it/~marco/perl/
 (io solitamente uso questo)
Ciao
	     Pierre
--
                         ^
                       ^^^^^ 
                       (o o)
___________________oOO__(_)__OOo________________________________________
 
  Nasini Daniele                WebMaster al DSI Via Comelico 39 Milano
  Milano (Italy)                E-Mail: 
w...@dsi.unimi.it
  [Suzuki DR650 Djebel]                 
pie...@psycho.usr.dsi.unimi.it
 
           -=> 
http://psycho.usr.dsi.unimi.it/~pierre
 <=-

blu...@input.lognet.it
 wrote:
 >Esiste una versione della documentazione del perl in formato
 >ipertestuale (.html o .info)? Trovo le man-pages molto scomode da
Basta usare pod2html.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

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

non riesco in nessun modo a recuperare la variabile PATH_INFO da uno
script perl. Altre variabili quali SERVER_NAME e SRIPT_NAME vengono
passate, ma non la path_info che invece mi servirebbe. 
Come mai ? Uso perl 5.005_02
Questo è il risultato del test.cgi :
SERVER_SOFTWARE = Apache/1.2.6
SERVER_NAME = 
www.biscottto.com
GATEWAY_INTERFACE = CGI/1.1
SERVER_PROTOCOL = HTTP/1.0
SERVER_PORT = 80
REQUEST_METHOD = GET
HTTP_ACCEPT = 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg,
image/png, */*'
PATH_INFO = 
PATH_TRANSLATED = 
SCRIPT_NAME = /cgi-local/smart/test.cgi
QUERY_STRING = 
REMOTE_HOST = 195.31.197.202
REMOTE_ADDR = 195.31.197.202
REMOTE_USER = 
CONTENT_TYPE = 
CONTENT_LENGTH = 
-- 
-------------------------------------------------------------------------
Hosting professionale a prezzi USA? 
http://www.servitelit.com/prezzi.htm
-------------------------------------------------------------------------

 -- 
Non e' vero che non viene passata.
Semplicemente, e' vuota!
Chiama lo script con un qualcosa di informativo nel path e vedrai che appare!
http://xxx.xxx.xxx.xxx/cgi-bin/test.cgi/this/is/path/info
PATH_INFO = /this/is/path/info
PATH_TRANSLATED = /users/www/docs/this/is/path/info
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: gui

nessuno di voi ha mai usato spectcl? è un programma che serve a creare gui
in perl tk in modo molto semplice, però non mi soddisfa del tutto: qualcuno
di voi conosce altri programmi?

 in perl tk in modo molto semplice, perň non mi soddisfa del tutto:


 
Io uso Glade-perl, però utilizzo le librerire GTK, 
(quelle di gnome per capirci) e genero interfacce molto buone in maniera 
rapidissima.
Se sviluppi per linux puoio provarlo !
-- 
Ciao e grazie.
***Ivan***

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

ragazzi, da dove devo iniziare per studiare perl?
soprattutto mi interessa poter scrivere semplici
programmini stand alone...
conosco javascript, qualcosa di java, html, css xml... e basta.
vorrei partire da lezioni documentazione tutorial
scaricabili gratuitamente dalla rete (poss. in it.)
ma anche un libro semplice, e poco costoso...
grazie

 ma anche un libro semplice, e poco costoso...
Andrea Maestrutti ha risposto recentemente ad una domanda
simile a questa. Puoi leggere il suo post su 
groups.google.com
:
 
http://makeashorterlink.com/?Y5A331614
Nel mare magno dei tutorial disponibili in rete, a dir la
verita`, non saprei bene cosa consigliare, non avendone mai
letto nessuno da cima a fondo. Ho sfogliato il tutorial di Marco
Liverani e quello presente su 
hyperbook.it
, e mi paiono abbastanza
ben fatti per cominciare.
Se l'inglese non e` un problema, buttati su "Beginning Perl" di
Simon Cozens:
 
http://learn.perl.org/library/beginning_perl/
Se puoi spendere qualcosa, "Learning Perl" di O'Reilly e` un ottimo
testo didattico.
Mentre studi, comincia da subito a scrivere qualche programma.
Leggi la documentazione di tutte le funzioni nuove che ti trovi
ad usare (perldoc -f <nome_funzione>). Sfoglia periodicamente la
FAQ (perldoc perlfaqN, N = 1..9) e cerca le soluzioni proposte
ai problemi che hai gia` risolto per conto tuo. Nella documentazione
a corredo dell'interprete c'e` *tutto*, il problema e` che si tratta
di un sacco di materiale organizzato non benissimo: il tempo che
spendi imparando a districarti nella documentazione e` tempo speso
bene.
Considera la possibilita` di cominciare a seguire Perlmonks.org.
E` un forum (in lingua inglese) molto utile e straordinariamente
rapido nel fornire aiuto a tutti i livelli.
have fun :)
ciao
Stefano

 ha scritto nel messaggio
news:oucja.55762$Jg1.1...@news1.tin.it...

Newsgroup: it.comp.lang.perl
Titolo: novellina

Ho uno script CGI  scritto in perl che mi estra dei nominativi da un file,
il tutto č composto da:
- file.CGI    script
-head.txt    intestazione
-foot.txt    pič di pagina
-base.tx    dati
Ho un problema con il file head.txt, che sarebbe la parte superiore della
pagina che rimane fissa per ogni interrogazione che faccio. Prima era un
semplice file HTML con dei semplici link, ora l'ho modificato e ci ho
inserito un javascript che genera un menů a cascata, e non si vede piů.
Prima funzionava, il file head, pubblicato come pagian singola funziona, ma
unendoli non funzionano, c'č forse qualche problema tra il javascript e il
perl? come posso ovviare a questo problema? Il menů č grandino posso solo
fare un menu a cascata
Sapete aiutarmi

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

Newsgroup: it.comp.lang.perl
Titolo: <no subject>





cosa devo fare x istallare un dvd


 


avendo :


1 un case piccolo pieno di lettore 40x e 
masterizzatore 8 4 24


 


2processore da 350  K6


ram da 64  una scheda video la Banshee da 
16mb


e una scheda video pessima


grazie



 wrote in 
  message 000801c0c01a$b70f74a0$ca8b0a3e@deva...





Portalo indietro.
E cambia newsgroup ...
Ciao
M.
-- 
rm -rf 
and be happy

 wrote in 
  message 000801c0c01a$b70f74a0$ca8b0a3e@deva...




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

Ciao a tutti.
Volevo sapere qual'è uno dei migliori editor per programmare in Perl che 
funzioni bene con WinXp e che abbia un valido debugger. Grazie 


Io uso Eclipse + Epic e mi trovo bene.
Ciao,
Emanuele.
Newsgroup: it.comp.lang.perl
Titolo: Aiuto non riesco ad istallare PERL sul mio PC!

Aiutatemi!
Sono alle prime armi con la materia e sto cercando di istallare sul mio PC
il PERL.
Il mio OS è WIN98 SE.
Come suggerito nella guida al Perl di 
www.html.it
, ho scaricato la versione
per win32 dell'interprete Perl-5.6.0 da 
www.activestate.com
 (il file
scaricato si chiama:" stable.zip").
In base a quanto appreso nela file "readme.win32", presente in Perl-5.6.0,
ho scaricato il compilatore Mingw32 con GCC-2.95.2 da
ftp://ftp.xraylith.wisc.edu/pub/khan/gnu-win32/mingw32
A questo punto ho scaricato il programma "DMAKE" da
www.cpan.org/authors/id/GSAR/dmake-4.1pl1-win32.zip
Ora descrivo la sequenza di operazioni che ho effettuato:
- copio dmake.exe insieme alla sottodirectory STARTUP in \perl-5.6.0\win32
(ovvero là dove è presente il file "
makefile.mk
",
- modifico il file "
makefile.mk
" asegnando i giusti valori alle variabili
(INST_DRV *= e:\archivio\server\usr\bin
INST_TOP *= $(INST_DRV)\perl) (in e:\archivio\server ho istallato la
versione per win95 di APACHE 1.3.14)
- lancio DMAKE ma nella finestra di MSDOS leggo una sfilza di "Comando onome
di file errato" e cose di questo genere.
Non so proprio più che fare.
Se qualcuno avesse qualcosa da consigliarmi, glie ne sarei infinitamente
grato!
Enzo La Tegola
lat...@freemail.it


Da Activestate mi sono scaricato i file seguenti
- Microsoft Installer
- ActivePerl-5.6.0.620-MSWin32-x86-multi-thread.msi..msi
Li ho installati nell'ordine senza nessun problema.
Ciao
Massimo
--
Canali Massimo
* Illustrazioni tecniche *

 ha scritto nel messaggio
news:90j67a$5nl$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.perl
Titolo: cerco disperatamente aiuto su array, liste e ordinamenti

Il mio problema è grave! sono tonto e non riesco a trovare buona
manualistica :(((
e sono ancora alle prime armi...
allora vi spiego, speriamo che qualcuno possa perder 10 minuti ad aiutarmi:
Ho 3 liste
@directory
@accessi
@pagine
già qui forse potrei creare una matrice, ma non so come fare... :(
ok, no problem ora con ste liste devo costruirne altre 3 raggruppando tutte
le dir con lo stesso utente.
ad esempio
/giovanni  40 accessi 5 pagine
/giovanni/umorismo/ 90 accessi 20 pagine
quindi dovrbbe venirmi un elemento giovanni con 130 accessi e 25 pagine
ho provato a ciclare dato che per forutna le dir sono in ordine e poi
cercare nel nuovo array e se non trovo aggiungo, ma niente ho problemacci
infami e bastardi... e mi sembra una porcata, poichè sicramente ci sono
metodi migliori.
poi una volta creati sti tre array dovrei ordninare il tutto per
accessi/numero di pagine in ordine decrescente escludendo quelli con meno di
10 pagine...
chi mi iauta anche minimamente verrà ricompensato con cio' che vuole :)
Ciao
Luther

 e sono ancora alle prime armi...
Risolto, con tante bruttissime linee di codice, ma risolto...
spero di cominciare a capirci qualcosa in + ora...
qualcuno sa consigliarmi un buon libro??
ciao
Luther

 
Se hai un file di log in common format, perche' non usare wwwstat,
che buona parte di quello che vuoi lo fa gia'?
Poi:
cosa diavolo c'e' in @accessi e @pagine? (perche' senza saperlo, mica
e' facile dare suggerimenti...)
E ancora:
perldoc perlfaq
Cheers,
	Alessandro.

 perldoc perlfaq
fosse cosi' semplice per me, penso che ora compro qualche manuale in
libreria, sperando che lo trovi.
ciao e grazie
Luther

 libreria, sperando che lo trovi.
Il cammello (seconda edizione, O'Reilly, anche in italiano)e' sempre
attuale.
Ma se riesci a a leggere in Inglese, perldoc perlfaq4 ti dice di tutto
di piu' su come
ordinare arrays, etc. Vedo comunque che hai risolto.
Cheers,
	Alessandro

 Luther
-- 
ASTAT - Istituto provinciale di statistica
viale Duca D'Aosta, 59
I - 39100 Bolzano
tel: 0471/994045  fax: 0471/994008
http://www.provinz.bz.it/astat
Newsgroup: it.comp.lang.perl
Titolo: parametri con un cgi.

Sto iniziando a cimentarmi con l'uso di cgi in perl.
Spero di non creare afastidi se posto un frammento di codice per 
spiegare il problema:
$value = $q->param('filtrato');
$JSCRIPT=<<END;
	function doFiltra() {
		alert('I siti selezionati non saranno più accessibili!');
		document.forms[0].filtrato.value='1';
		document.forms[0].submit();
	}
END
$q->button(-name=>'FiltraTop', -value=>'Filtra',
			-onClick=>'doFiltra()'),
$q->submit(-name=>'RicaricaTop', -value=>'Ricarica'),
$q->reset(-name=>'Annulla'),
$q->hidden(-name=>'filtrato', -value=>'0'),
In partenza, appena chimato il contenuto di $value e' vuoto.
Se faccio un submit viene richiamato lo script e $vale diventa 0.
Se clicco cul pulsante "Filtra" viene eseguita la funzione in
havascript e $value diventa 1.
Poiche' lo script non e' persistente, nel senso che penso che i valori
di variabili ecc non vengono mantenuti tra una chiamata e l'altra, se
rifaccio un submit senza passare per la funzione javascript mi aspetto
di ritrovarmi in $value il valore 0.
Invece rimane 1.
Come mai?

 Invece rimane 1.
Nel tuo caso reinizializzi $value correttamente ogni volta e il comportamento da
te descritto appare strano. Nella tua prova hai fatto per caso back tra una
chiamata e l'altra? 
Prova a fare reload della pagina e a premere 'Ricarica' 
by
	- Enrico

 
Fatto, il reload richiama lo script ma non cambia nulla.
Ottengo sempre 1 come valore in $value.
Se vuoi pasto tutto il codice, sono poche righe.

msan ha scritto:

prova con:
$q->hidden(-name=>'filtrato', -value=>'0', -override=>'1'),
-- 
-- Marco Allegretti --
http://www.shishii.com

Newsgroup: it.comp.lang.perl
Titolo: Come si visualizza un grafico?

Salve a tutti, come si può visualizzare un grafico in IE
sulla base di un file di dati?
* Sent from AltaVista 
http://www.altavista.com
 Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping.  Smart is Beautiful

Io ho installato GD.pm e mi genero un'immagine che sparo al browser.
Mario
Alberto <fuggetta...@mythnet.it.invalid> wrote in message
0d110231...@usw-ex0108-062.remarq.com...


 sulla base di un file di dati?
 
http://search.cpan.org/search?dist=GDGraph

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

Hi there,
So che sto scoccccc, ma aiutatemi sto iniziando ad usare il modulo Tk
.......
Se si esegue lo scrip di seguito la barra bassa (south) non funziona ...per
favore ditemi perche?????
use strict;
use Tk;
#Main window
my $mw =
nWindow->new( 
-title => 'SupportMe 2.0 will gather files relevant to your Netverk product',); 
#Insert the body of the message 
my $TextFrame = $mw->Frame;
my $TextMessage = $TextFrame->Text(-width => 53, -height => 5,-borderwidth => 6, 
-relief => groove, -setgrid=> true );
$TextFrame->AddScrollbars($TextMessage);
$TextFrame->configure(-scrollbars => 'se' );
$TextFrame->pack(qw/ /);
$TextMessage -> pack(qw/-side left -fill both/);
MainLoop();
Grazie
Back to you soon.
carlo.

 -relief => groove, -setgrid=> true );
aggiungi 
-wrap=>'none'
Newsgroup: it.comp.lang.perl
Titolo: AIIUTO!!!!

Ho dovuto reinstallare Perl ed Apache e... non funziona più nulla!!
:(
Ogni volta che lancio uno script il browser mi chiede se voglio
aprirlo o salvarlo ma non lo esegue......... cos'ho dimenticato?
Grazie a tutti!

pape...@topolinia.net
 wrote:

Hai probabilmente dimenticato di mettere gli script in una cartella di
Apache dichiarata "eseguibile".
Devi configurare Apache perché tratti come eseguibili (e non come
documenti) tutti i file contenuti in tale cartella. Oppure usa la
cartella cgi-bin, che dovrebbe essere già preconfigurata per questo
scopo.
--

Newsgroup: it.comp.lang.perl
Titolo: DBI PERL HELP

Can someone post me an example of retrieving the result of a query SQL
in an array of values ??
(I mean, thw WHOLE table in an array )
Thank you in advance
Qualcuno puņ mandarmi un esempio di come mettere in una matrice il
risultato di una query SQL?
Grazie
Nucci Stefano
cap...@iperbole.bologna.it

Nucci Stefano wrote:

  Esiste un package per  msql e mysql che fa tutto quello che ti serve e
molto di +
cercalo al CPAN, fammi sapere se se riuscito nella tua impresa
ciao
            Davide
-----------
Davide Giansoldati: Webmaster D.G. Line - Sistemi informatici
http://www.dgline.it
email: 
davide.gi...@dgline.it

Newsgroup: it.comp.lang.perl
Titolo: LWP e COOKIES

Ciao a tutti...
sto cercando di usare i cookies con LWP ma non ho trovato nessuna
documentazione...
avete qualche idea?
Grazie,
duccio.

 avete qualche idea?
Una brevissima ricerca dentro i moduli di LWP mi ha indirizzato verso
LWP::UserAgent e il metodo cookie_jar(). Si fa anche riferimento ad un
HTTP::Cookies.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

i cookie pare siano nel modulo CGI (vedi esempio sotto)
al seguente sito, trovi un file con tutti gli esempi fatti nel cookbook
ftp://ftp.oreilly.de/pub/ora/examples/perl/cookbook/
in particolare ti serve l'esempio 19-7: ic_cookies
che si trova al cap.19.10
(i numeri dei capitoli ed esempi fanno riferimento all'edizione tedesca
:-)
per renderti la vita più semplice ti copio il contenuto (copia/incolla,
dunque senza errori di copiatura)
#!/usr/bin/perl -w
# ic_cookies - sample CGI script that uses a cookie
use CGI qw(:standard);
use strict;
my $cookname = "favorite ice cream";
my $favorite = param("flavor");
my $tasty    = cookie($cookname) || 'mint';
unless ($favorite) {
    print header(), start_html("Ice Cookies"), h1("Hello Ice Cream"),
          hr(), start_form(),
            p("Please select a flavor: ", textfield("flavor",$tasty)),
              end_form(), hr();
    exit;
}
my $cookie = cookie(
                -NAME    => $cookname,
                -VALUE   => $favorite,
                -EXPIRES => "+2y",
            );
print header(-COOKIE => $cookie),
      start_html("Ice Cookies, #2"),
      h1("Hello Ice Cream"),
      p("You chose as your favorite flavor `$favorite'.");