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

Ho un problema con la mia macchina linux RedHat.
Non riesco a far girare i miei perl xche ogni volta che
lancio un processo perl mi da questo errore:
    perl: warning: Setting locale failed.
    perl: warning: Please check that your locale settings:
            LANGUAGE = (unset),
            LC_ALL = (unset),
            LANG = "it_IT"
        are supported and installed on your system.
    perl: warning: Falling back to the standard locale ("C").
Qualcuno ha gią avuto questo problema o mi sa dare qualche dritta?
Grazie di tutto.
A.

 Qualcuno ha già avuto questo problema o mi sa dare qualche dritta?
www.google.com
 e 
groups.google.com
 sono un ottimo punto di partenza! :)
In questo mio vecchio post c'è una risposta che potrebbe andarti bene:
http://groups.google.it/groups?hl=it&selm=3C835172.DDC9445D%40friuli.com
-- 
$_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572,,($_,$b)=
split?#?;@b=split?;?;map{$c.=$_,$d.=chr$b[$e++]+ord}split??,pack'H24',$b
;chop$d,print$c.chr(32).$d

     perl: warning: Please check that your locale settings:
Consulta  'perldoc perllocale' (sezione "LOCALE PROBLEMS").
Max
 

 Qualcuno ha già avuto questo problema o mi sa dare qualche dritta?
E` una domanda da it.comp.os.linux.iniziare (ma, ancora meglio, e` una
domanda da controllare su 
http://groups.google.com
).
Hint: il locale "it_IT" esiste sulla tua macchina?
Bye,
 Emmanuele.
-- 
Emmanuele Bassi (Zefram)           [ 
http://www.radiance.d2g.com/~zefram
 ]
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

Newsgroup: it.comp.lang.perl
Titolo: interfaccia grafica...

Salve.
Volevo chiedere se è possibile dare un'interfaccia grafica ai programmi Perl
in Linux e magari Win (escludendo quindi cgi e HTML).
Ho sentito parlare delle librerie GTK (per Linux). Non c'è altro modo?
Grazie.
--
Byez,
       Alsedo...
Le persone sagge parlano perche' hanno qualcosa da dire.
Le persone sciocche perche hanno da dire qualcosa.

 e HTML).
  PERL Tk.
	Alla prossima,
		Marco

 Ho sentito parlare delle librerie GTK (per Linux). Non c'è altro modo?
perl/tk esiste anche per windows (mai provato però...)
esiste anche un buon libro della O'Reilly in proposito:
Nancy Walsh, Learning Perl/Tk O'Reilly & Associates
ISBN 1-56592-314-6 $39,95
(c'è una positiva recensione sul linux journal di settembre)
-- 
- Claudio Della Ciana <pynhqvbq...@rznvy.pbz>
- apply a rot13 to get real address

Newsgroup: it.comp.lang.perl
Titolo: r: r: e se facessimo un sito comune

Sono in ritardo per unirmi alla combriccola?
fatemi sapere, saluti a tutti
Paolo Scaglione
--
Posted from [195.223.193.130]
via Mailgate.ORG Server - 
http://www.mailgate.org

 wrote in message
01BF3066.CA2B5...@ceset.it...


Ci sono anche io !!!!!!!!!!!!!!!!!
Attendo istruzioni......
==================
Luigi Carbone
webm...@spinazzola.net
==================

 wrote in message
816le8$5d$1...@fe2.cs.interbusiness.it...


Io parteciperei moooolto volentieri, purtroppo non ho tempo, ma se posso
dare una mano...
Fatemi sapere...
Ciao,
    Egidio
Newsgroup: it.comp.lang.perl
Titolo: creare bottoni in perl

salve!
devo creare un bottone "chiudi" in perl, da visionare tramite browser.
sapete come fare?
ciao!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 sapete come fare?
Il modo più banale, penso sia:
#!/usr/bin/perl
print "Content-Type: text/html; charset=ISO-8859-1\n";
print q[
<html>
<body>
<form>
<input type="button" onclick="window.close();" value="Chiudi" />
</form>
</body>
</html>
];

a che server perl per un caso del genere???
togli la prima riga e usa html puro, oppure usa CGI.pm no?


Newsgroup: it.comp.lang.perl
Titolo: trova moduli

come faccio a sapere quale moduli Perl sono disponibili sulla machhina su
qui gira?


perldoc perllocal
Ma non e` detto che tu veda in questo modo *tutti* i moduli installati,
poiche`
non tutti i moduli modificano perllocal per notificare l'avvenuta
installazione.
Altro metodo e` andare a vedere in una directory tipo
/usr/lib/perl/site_perl e cosi`
via per vedere i sorgenti dei moduli.
ciao
Stefano

Newsgroup: it.comp.lang.perl
Titolo: passare da una pagina con frame ad una a tutto schermo

Salve a tutti,
il mio problema è questo: sto utilizzando un cgi scritto in perl (chissa in
che gruppo pensavo di essere!),
cgi che viene lanciato da un frame di una pagina html, la pagina di risposta
viene visualizzata nel frame principale della mia pagina invece io vorrei
che venisse visualizzata come una normale pagina senza frame.
Non so se mi sono spiegato bene, comunque se qualcuno è riuscito a
decodificare la mia richiesta di aiuto vorrei sapere se posso intervenire
sul mio cgi utilizzando tag html tipo target ecc. ecc. per far apparire la
pagina di risposta in un' unica finestra senza frame.
Grazie,
Simone.

che gruppo pensavo di essere!),
Nonstante cio' il tuo *non* e' un problema legato al perl.
Forse it.comp.web.html e' il NG adeguato.
-- 
Saluti,
Giancarlo

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

Newsgroup: it.comp.lang.perl
Titolo: chi mi può aiutare?

  $var =~ s/?/\%3F/g
mi riconosce il valore ? come parola chiave e non mi effettua lo split
quale è il metodo per non incorrere in questo errore?

 cerchero` un'altra donna dentro ai sogni di Tarzan...
Newsgroup: it.comp.lang.perl
Titolo: strano problema nel confrontare dati provenienti dal form con quelli del db

Ciao,
mah, forse e il mio periodo sfortunato, mi stanno a capitare tutti gli
errori piu' balordi.
L'ultimo di un lunga serie e il seguente:
ho un database contenete delle login per l'accesso ad un area del
sito, la condizione ke utilizzo per verificare e la seguente:
......
while ($ref = $sth->fetchrow_hashref())
{ ($NomeUtente ne $ref->{'NomeUtente'}) ? ($ErrLogin = 1) : ($ErrLogin
= 0); }
.....
...
&printError if $ErrLogin == 1;
il problema dove sta?
ho inserito 3 login di prova, quando faccio la verifica di accesso,
lui anche se inserisco la login pippo registrata per prima non la
verifica la da come non esistente, se poi verifico l'ultima inserita
marty va tutto bene!!
Perche' fa cosi?
Io la reputo una cosa assurda e non ho idea di dove possa risiedere il
problema!!!
Non riesco a capire perche' su 3 login inserite (3 x esempio) deve
verificare l'esattezza solo con l'ultima inserita e non con le altre
rimanenti!!!
Vi supplico datemi una mano non so a che santo votarmi devo completare
un sito, ma sono piantato da continui errori!!
Vi RINGRAZIO!!!
bye bye

prova a fare il chop della login:
chop ($ref->{'NomeUtente'});
forse hai qualche carattere nascosto (tipo "\n").
Non sono sicuro, ma potrebbe essere una pista...
-- 
Posted from 
smtp5.libero.it
 [193.70.192.55] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 il problema dove sta?
Il problema e' che se tu fai il while fino in fondo in realta' controlli 
SEMPRE e SOLO l'ultimo dato inserito. 
Se hai gli utenti su un db non puoi fare direttamente una cosa del tipo
select * from Tabella where NomeUtente ='$NomeUtente'
Cosi' vedi subito se ce' un recordo per l'utente che cerchi?
-- 
Saluti,
Giancarlo
Newsgroup: it.comp.lang.perl
Titolo: Consiglio su libro

Hi All !
Qualcuno conosce il libro  " Perl e Internet" di A.Bellini e A.Guidi
(McGraw-Hill)
E' un buon testo per iniziare ?
Grazie comunque.
Mau.

 E' un buon testo per iniziare ?
Non lo conosco. "Learning Perl" di O'Reilly e' perfetto per iniziare, te lo
consiglio.
---
Mario Rizzuti

 ha scritto nel messaggio
news:dRwz8.34840$W9.8...@twister2.libero.it...


>> E' un buon testo per iniziare ?
 si č il top....se parti prorpio da zero...cosi come la loro guida al C


"Perl e Internet" lo trovi completamente on-line: 
http://www.hyperbook.it/
E' un ottimo libro per iniziare.
Marco.

 ha scritto nel messaggio
news:3CD01245...@open2b.com...

Scusate la domanda ma come mai un libro che costa 22 ? si trova interamente
on-line ?
Mau.

 Mau.
Perché molti preferiscono comprarlo, magari dopo averlo sfogliato 
on-line, in quanto un libro stampato è molto più comodo. Inoltre
è da considerare che il libro non è proprio recente, ad esempio
non tratta Perl 5.6.
Marco.

 on-line ?
e dov'č?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:3CD2E029...@open2b.com...


Marco.
In effetti può essere una strategia commerciale valida, anche se una volta
individuato on-line
me lo posso stampare e leggere tranquillamente in poltrona spendendo
alquanto meno !
Oltretutto non è una traduzione di man-pages e DOC ufficiali del Perl,
quindi per questo mi è sembrato
strano!
Mau.

Newsgroup: it.comp.lang.perl
Titolo: Recipient error con SendMail.pm

Continuo a ricevere questo messaggio di errore:
'No recipient has been specified.'
Lo script in questione è questo:
#!/usr/bin/perl
require 'SendMail.pm';
open (ISCR, $mailing_list);
while (<ISCR>)
{
($nome, $cognome, $email) = split("\t", $_);
$sm = new SendMail("
mail.libero.it
");
$sm->setDebug($sm->ON);
$sm->From('
i...@memedesimo.it
');
$sm->Subject("soggetto");
$sm->To("$email");
$sm->setMailHeader("Content-type", "text/plain");
$sm->setMailHeader("Content-Transfer-Encoding", "7 bit");
$sm->setMailBody("@news");
if ($sm->sendMail() != 0)
 {
 print "Content-type: text/html\n\n<br>errore!";
 print "<PRE>\n";
 print $sm->{'error'}."\n";
 exit -1;
 }
}
close (ISCR);
Non riesco a vedere l'errore... voi si?
Grazie in anticipo
massimo

 'No recipient has been specified.'
Vorra' dire che 'No recipient has been specified', no? Io controllerei che
$email contanga un valore significativo.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 ha scritto nel messaggio
news:8sp1qb$feo$1...@menelao.polito.it...

Newsgroup: it.comp.lang.perl
Titolo: Copiare siti web

Ho visto un sito che offriva hosting ma per pubblicare un file non potevi
usare l'ftp ma in compenso avevi la possibilita di copiare il tuo sito da
una host all'atra:
Lui chiedeva:
Dominio (
web.tiscalinet.it
)
nome utente (rossi)
password (12345)
E in automatico copiava tutti i file dall'host web.tiscalinet alla sua host
e in più aggiungeva in tutte le pagina un banner pubblicitario.
Dove posso trovare un script del genere!?!
Grazie

 e in piů aggiungeva in tutte le pagina un banner pubblicitario.


 e in più aggiungeva in tutte le pagina un banner pubblicitario.


 ha scritto nel messaggio
news:8i8dl3$f5a$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.perl
Titolo: Manipolazione stringhe, thanks for help

Salve a tutti
chi puo' aiutarmi?
 Faccio il backup delle home degli utenti (che sono su NAS) su nastro , ma
anche su due server con rdist.
Il mio problema é:
in caso di disastro (il nas va fuori) posso permettere agli utenti di
lavorare montando le home via NFS, ma dovro' avere un file /etc/passwd  ad
hoc.
dimenticavo è tutto sotto NIS.
Mi spiego meglio:
239 utenti vengono "rdist-ati" su server1 in server1/home/userid
e
219 su server2 in server2/home/userid
se nel file /passwd ho
pippo:x:213:11:utente pippo:/NAS_Home/pippo:/bin/tcsh
pluto:x:214:11:utente pluto:/NAS_Home/pluto:/bin/tcsh
dovro' avere un file passwd.disaster dove per semplicita' supponiamo tutti
gli utenti abbiano la stessa pwd con:
pippo:aabxfdrf:213:11:utente pippo:/server1/home/pippo:/bin/tcsh
e
pluto:aabxfdrf:214:11:utente pluto:/server2/home/pluto:/bin/tcsh
(pluto rdistato su server2 e pippo su server1)
sono un neofita di perl, ma so che è molto potente con gli array, qualcuno
puo' suggerirmi uno script per fare cio' evitandomi tre giorni di
scimunimiento?
Grazie in anticipo

 ha scritto nel messaggio
news:9il2bo$obo$1...@fe1.cs.interbusiness.it...

Newsgroup: it.comp.lang.perl
Titolo: HELP:system("ftp ..") è sequenziale?

Salve a tutti,
volevo un'informazione veloce,
non so programmare in perl ma ho dei problemi con un programma fatto da
altri.
Io ho delle istruzioni in mezzo alle quali ho una chiamata system( " ftp -s
.....") che esegue uno script ftp presente sulla macchina.
Quello che volevo sapere è se le istruzioni che seguono questa chiamata sono
in attesa che il trasferimento ftp finisca o se le istruzioni eseguite vanno
avanti, in quanto vengono usate delle chiamate di cancellazione dei file che
attraverso la chiamata precedente devono essere trasferiti via ftp.
Grazie a tutti per l'aiuto.

 istruzioni eseguite vanno avanti,
Da perldoc perlfunc:
    system PROGRAM LIST
               Does exactly the same thing as `exec LIST', except
               that a fork is done first, and the parent process
               waits for the child process to complete. 
Quindi, system() restituisce il controllo allo script quando il processo
figlio esce. Nota che se l'argomento di system()  contiene metacaratteri,
il processo figlio non sarà 'ftp' ma un'istanza della shell. Se il comando
termina con '&' la shell lo eseguirà in background e il controllo
potrebbere tornare prima che il comando abbia completato l'esecuzione.
Max

Quello che volevo sapere č se le istruzioni che seguono questa chiamata sono


<icq23597437>

Newsgroup: it.comp.lang.perl
Titolo: Che significa

Io non stò proprio a zero coni cgfi un bel pò li ho fatti partire...
ma che vuol dire questo rigo di questo script che manda cartoline????
se lo conoscete e anyecard
2. Go to directory anyecard_data/, copy directory anyecard/ to your web root
directory, cp -r anyecard $docroot/
non capiscoil significato di cp -r....


Da man cp:
  -r        Recursive. cp  will copy the directory and all its
            files,  including  any  subdirectories  and  their
            files to target. 
 

Non e' un comando CGI (perl o altro), ma semplicemente un comando UNIX.
cp e' il comando copy. L'opzione -r crea una copia ricorsiva: dal nodo della
direcory che si specifica giu' in TUTTI i nodi secondari e tutte le foglie
dell'albero (o sottoalbero)  delle directory !
Alex
Newsgroup: it.comp.lang.perl
Titolo: Ultima riga file di testo?

Salve,
scusate la banalita', ma come faccio in Perl a "recuperare"
l'ultima riga di un file di testo???
Ho risolto con un ciclo while a vuoto, ma DEVE esserci qualcosa
di meglio!
my $filetesto = 'd:\\testo.txt';
open(IN, "< $filetesto") || die("Can't open $filetesto: $!");
while (!eof(IN)) {
  $riga = <IN>;
}
print $riga;
close(IN);
Portate pazienza, grazie! :)

 wrote in message 38491812...@news.tin.it...


 ... ma esiste di certo!)
Esiste, ma lavora per caratteri, non per righe.  Non c'e` dunque
un modo particolarmente buono di usarla per leggere "l'ultima riga",
a meno che tu non sappia a priori quanto questa possa essere
lunga.
Alex

 print $riga;
e` sicuramente sensato, chiaro, e funzionante, che non e` poco:-).
Una prima alternativa (se il file non e` _troppo_ gigantesco),
    my @tutte=<IN>; $riga=pop @tutte;
(e analoghe forme, meno limpide, in cui la variabile intermedia
in cui sono lette tutte le righe del file non viene nominata; pero`,
anche se non si vede, comunque esiste...).
Un'altra, se sai che l'ultima riga e` di non piu` di, che so,
237 caratteri:
    seek(IN,-237,SEEK_END);
    read(IN,$buffer,237);
    ($riga) = $buffer=~/.*\n(.*\n)$/s;
oppure con un rindex e substr alla fine, a piacere.
Questa potresti farla anche succhiando il memoria tutto il
file in un unico scalare (settando $/, naturalmente) poi
cercando all'indietro il penultimo \n (magari con rindex).
(Dico il penultimo perche` suppongo che anche l'ultma
riga debba finire con \n...?  Eventualmente, se ti serve,
con un chomp e` facile gestire entrambi i casi).
Forse l'approccio di massime prestazioni (e il meno
comodo da programmare) se non hai limiti sulla lunghezza
dell'ultima riga (pero` normalmente avra` una lunghezza
umana) ma l'intero file puo` essere troppo grosso, e`
un ciclo all'indietro basato su seek e read, che finira`
solo quando finalmente avrai trovato il \n che cerchi.
Buon esempio della sin eccessiva flessibilita`/versatilita`
tipica del Perl...:-)
Alex

 Portate pazienza, grazie! :)
Ah, buon vecchio unix.... !
    $lastrow = `tail -1 $filename`;
Per i poveretti che usano winsozz pero' non so.
Marco Cacchiani 
ma...@sirius.pisa.it
--
Sirius Servizi Informatici                     e-mail: 
in...@sirius.pisa.it
Parco Teatro Pasolini, 1                       Phone:  +39 (50) 865120
I-56019 - Vecchiano                            Fax:    +39 (50) 860260
(Pisa - ITALIA)                                
http://www.sirius.pisa.it/

Sono un poveretto, :)
che usa il perl proprio per non essere vincolato ad un OS specifico.

Newsgroup: it.comp.lang.perl
Titolo: chemie.pl

ciao,
Ciao ho un problema con un programma scritto in perl chiamato 
chemie.pl
 e che
si puo' trovare nel paccheto ochem.tar.gz (pacchetto macro che si usa con il
latex):
Dopo aver digitato il comando su un file apposito ottengo:
chemie.pl
 ochem.chm
ma a questo punto ho un errore che riporto:
******************************
/usr/local/bin/
chemie.pl
: =: command not found
/usr/local/bin/
chemie.pl
: []: command not found
/usr/local/bin/
chemie.pl
: =: command not found
/usr/local/bin/
chemie.pl
: []: command not found
/usr/local/bin/
chemie.pl
: =: command not found
/usr/local/bin/
chemie.pl
: []: command not found
/usr/local/bin/
chemie.pl
: syntax error near unexpected token `(1'
/usr/local/bin/
chemie.pl
: /usr/local/bin/
chemie.pl
: line 51: `$true = (1==1);'
***********************fine*************************
qualcuno in lista sa dirmi come posso risolvere questo errore?
grazie Dario
-- 
-----------------------------------------------------------------------------
email:sido...@tiscalinet.it
CICAP (Comitato Italiano per il Controllo delle Affermazioni sul Paranormale)
http://www.cicap.org
http://www.cicap.org/piemonte
-----------------------------------------------------------------------------

 ma a questo punto ho un errore che riporto:
Non sono errori prodotti dall'interprete Perl.  Controlla che nello script
ci sia la she-bang (prima riga: #!/path/to/perl), oppure esegui lo script
invocando l'interprete Perl (perl) esplicitamente, passando 
chemie.pl
 come
primo argomento:
  perl 
chemie.pl
 ochem.chm
Max

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

Ciao a tutti, vorrei porvi un semplice quesito (sono un novizio). Vorrei
sapere qual'è il comando per verificare su Linux dove e quali moduli Perl
sono installati.
Grazie e ciao a tutti.
Glauco

sono installati.
print @INC
Oha
-- 
#include <disclaimer.h>
Newsgroup: it.comp.lang.perl
Titolo: apprfondire Perl

Io conosco perl come si dice "per quello che mi e' servito finora". D'altra
parte vorrei ora avere una maggiore padronanza di questo linguaggio di
programmazione. Pochi giorni fa ho acquistato "Perl. Guida di riferimento"
(Perl in a Nutshell) che pero' non e' secondo me il posto migliore da cui
iniziare. Quindi ora, vorrei un libro dal quale imparare molto e dedurre
poco. Ho sentito parlare bene di "Programming Perl" (che pero' a sua volta
sembra non sia il posto migliore da cui cominciare) e di "Learning Perl",
con la differenza non trascurabile che il primo e' tradotto anche in
italiano.
E' chiaro che vorrei che il prossimo acquisto fosse quello giusto. Per
questo vi chiedo di darmi una mano, attraverso la vostra opinione su questi
libri, segnalandomi se esistono versioni italiane di "Learning Perl" o altre
risorse ed eventuali risorse "free".
Ringrazio anticipatamente chiunque vorra' darmi una mano.
Fabio

Ho vissuto un'esperienza analoga alla tua ... imparando Perl per fare quello
che mi serviva... lottando con i manuali in the process
Dei libri che hai citato ti consiglio senz'altro learning Perl... ottimo
veramente.
Se hai problemi con l'inglese, è disponibile anche in francese (lo puoi
comprare a 
www.eyrolles.com
), anche se ti devi sobbarcare le assurdissime
(passatemi la licenza poetica)  traduzioni francesi dei termini informatici
(I/O diventa E/S per Entrée/Sortie ad esempio).
Ciao
Gianluca

 (I/O diventa E/S per Entrée/Sortie ad esempio).
:-)))
SI, ma cosě piů che imparare qualcosa ti fai un sacco di risate!
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....
Newsgroup: it.comp.lang.perl
Titolo: semplice espressione regolare: aiuto!

data una stringa (es. "caino","frittole","22","rosso")
come si fa ad estrapolare i valori racchiusi tra le virgole ed
inserire questi valori rispettivamente in alcune variabili
(nel nostro esempio: $nome, $city , $anni, $colore)
quale espressione regolare usare?
quali istruzioni?
grazie in anticipo, Mario.

 grazie in anticipo, Mario.
Potresti risolvere la cosa in fretta usando Text::Balanced
(la funzione che ti serve e` extract_delimited() ).
ciao,
S.

 ha scritto nel

ciao, se non vuoi usare i moduli prova questo:
#!/Perl/bin/perl
$riga='"caino","frittole","22","rosso"';
$uno='","';
$due ='"';
$riga =~ s/$uno/$due/g;
@casa =split (/\"/,$riga);
$nome =$casa[1];
$city =$casa[2];
$anni =$casa[3];
$colore=$casa[4];
print "$anni\n$colore";
#$casa[0] è vuota perche precede "
$ciao=<STDIN>;
chop ($ciao);
Scusate la semplicità .............

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

Qualcuno mi potrebbe aiutare sull'uso di questa funzione?
E soprattutto sapreste dirmi un errore del genere da cosa può dipendere?
Can't run your request. Can't call method "bind_param" on an undefined
value at Private/Sources/Libraries/
Database.oracle.pm.pl
 line 88.
grazie...e spero che qualcuno mi possa aiutare!!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it



 value at Private/Sources/Libraries/
Database.oracle.pm.pl
 line 88.
Vuol dire che stai applicando il medoto bind_param su un valore
indefinito.
Probabilmente, per quale ragione e' difficile da dire, fallisci la
creazione dell'oggetto su cui poi applichi bind_param.
Esempio:
$obj= new OGGETTO;
$obj->metodo();
Se la creazione alla prima linea fallisce (o se non la esegui del tutto)
avrei un errore del tipo:
Can't call method "metodo" on an undefined value at 
xxxxxx.pl
 line X.
-- 
Saluti,
Giancarlo
Newsgroup: it.comp.lang.perl
Titolo: Compilatore perl

Sto cercando un compilatore perl, ho provato a scaricare "perl2exe" da
volftp e non funziona bene perchè è fermo alla versione 5.03 del perl e io
uso dei moduli che richiedono la 5.04.
Qualcuno di voi sa dirmi dove posso trovare un altro compilatore perl
freeware o shareware?
Ciao e Grazie
Andrea Busia

Andrea Busia wrote:

Perchè non installi Linux?
Li hai tutto!

Perchč non installi Linux?
Se č per questo sul mio pc convivono win 95, Win NT e linux. Solo che ho
bisogno di rendere eseguibile la versione win95 e non quella per linux. Se
fosse per me abolirei windows in favore di linux, ma molti non la pensano
cosě...
Grazie comunque
Andrea

 freeware o shareware?
Per quanto ne so, 'perl2exe' non e' un compilatore.
Comunque l'ultimo perl per Win32 lo trovi sul sito dell'ActiveState
www.activestate.com
, mentre su CPAN puoi ancora trovare la distribuzione
'standard' di Perl 5.004 per Win32.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@tuttocitta.it
 
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

'standard' di Perl 5.004 per Win32.
Perl2exe č un compilatore, gli altri che hai nominato sono degli interpreti,
che tra l'altro ho gią.
Grazie comunque
Andrea



Perl2exe e' un programma che impacchetta insieme l'interprete perl e il tuo
script 'in chiaro'. Tecnicamente non e' un compilatore. 
Comunque, il primo link che una ricerca su Altavista mi ritorna e' proprio
quello del sito di perl2exe, dove viene annunciata la versione nuova che
lavora con l'ActiveState 5.005.
E c'era anche una versione per Standard Perl 5.004.
http://www.demobuilder.com/perl2exe.htm
Ma avevi provato a cercarlo?
Buon lavoro.


Ma avevi provato a cercarlo?
Scusa, ma non hai letto il primo messaggio del thread? Io perl2exe lo ho già
nella versione più recente, il problema è che non mi permette di inserire
nell'exe anche gli eventuali moduli aggiuntivi richiesti dallo script.
A me serve un compilatore che non mi dia di questi problemi, tutto qui.
Se mi puoi aiutare ti sarò molto grato
Ciao
Andrea

 freeware o shareware?
Se il sito di Perl2exe dice di supportare la 5.005 e tu hai una versione
ferma alla 5.03, per me non e' la piu' recente (dal momento, oltretutto, che
la 5.004 di perl e' in giro da ben piu' di un anno). Se tu avevi una versione
diversa da quella di volftp, non lo hai certo detto.
Il perl2exe sul sito della DemoBuilder e' shareware, per me ha funzionato
con la standard 5.004 e con uno script perltk ci ha infilato dentro tutti i
moduli giusti.
Se questo non soddisfava le richieste del tuo primissimo messaggio, abbiamo
indubbiamente problemi di incomunicabilita'.

Newsgroup: it.comp.lang.perl
Titolo: How do you create a directory?

see subject
thanks,
Ben

 Ben
mkdir.
See "man perlfunc" for help.
Bye.

Newsgroup: it.comp.lang.perl
Titolo: directory corrente

ho uno script cgi che ha bisogno di sapere il path assoluto della root del
sito sul filesystem del server.
Come posso fare?
ciao

 pwd
anche se l'interprete e' su nt?
ciao

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

Avete presente la barra dei programmi di vb bene l'ho creata e modifica ma
come faccio ad aggiungere le figure (Nuovo e gli altri ci sono già).
Grazie in anticipo

 come faccio ad aggiungere le figure (Nuovo e gli altri ci sono già).
Newsgroup sbagliato.
Ritenta, sarai piu' fortunato.
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: what does premature end of script headers mean?

what does premature end of script headers mean?
thanks for you help, this prob has been annoing me for a while
-nabeel
----script below----
#!/usr/bin/perl
&GetFormInput;
$headline = $field{'headline'} ;
$password = $field{'password'} ;
$Submit = $field{'Submit'} ;
$Submit2 = $field{'Submit2'} ;
$message = "" ;
$found_err = "" ;
$errmsg = "<p>The password you entered is not valid.</p>\n" ;
if ($password ne "lemmein") {
 $message = $message.$errmsg ;
 $found_err = 1 ; }
if ($found_err) {
 &PrintError; }
open (LOGFILE, "> ../scripts/announce.js") ;
    flock(LOGFILE, 2) ;
    seek(LOGFILE, 0, 2) ;
        print LOGFILE "//Script by Nabeel Shahzad\n";
        print LOGFILE "//Automatically updates with a Perl Script\n";
        print LOGFILE "document.write('<marquee
scrollamount=4>$headline</marquee>')\n" ;
    flock(LOGFILE, 8) ;
close (LOGFILE) ;
print "Changes have been made\n"
#print << "out";
#   <a href="
http://esrclan.vr9.com
">click here to go back to the site</a>
#out
sub PrintError {
print "Content-type: text/html\n\n";
print $message ;
exit 0 ;
return 1 ;
}
sub GetFormInput {
 (*fval) = @_ if @_ ;
 local ($buf);
 if ($ENV{'REQUEST_METHOD'} eq 'POST') {
  read(STDIN,$buf,$ENV{'CONTENT_LENGTH'});
 }
 else {
  $buf=$ENV{'QUERY_STRING'};
 }
 if ($buf eq "") {
   return 0 ;
  }
 else {
   @fval=split(/&/,$buf);
  foreach $i (0 .. $#fval){
   ($name,$val)=split (/=/,$fval[$i],2);
   $val=~tr/+/ /;
   $val=~ s/%(..)/pack("c",hex($1))/ge;
   $name=~tr/+/ /;
   $name=~ s/%(..)/pack("c",hex($1))/ge;
   if (!defined($field{$name})) {
    $field{$name}=$val;
   }
   else {
    $field{$name} .= ",$val";
    #$field{$name} .= "\0$val";
   }
     }
  }
return 1;
}

you have to tell server that header section is finished before any other output,
by printing "Content-type: text/html\n\n";
-- 
Posted from 
mail4.galactica.it
 [212.41.208.21] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.perl
Titolo: Leggere righe da un file ..

Salve a tutti, mi spiego meglio ..
sto leggendo un file riga per riga, solo che adesso mi trovo
nella condizione di dover implementare una cosa del genere :
Il mio file č fatto cosě
Riga Intestazione
Riga Descrizione
..
..
Riga Autore
Io dovrei praticamente leggere il file e su un altro file
scrivere questo
-- [Nome dell'autore]
Riga intestazione
Riga descrizione
..
..
Riga Autore
Praticamente io leggo il file quando trovo : "Riga intestazione"
scrivo i due trattini "--" poi di fianco devo metterci il nome
dell'autore che lo devo prelevare da "Riga Autore " qualche riga piů
avanti.
Il mio problema č appunto una volta arrivato alla riga "Riga 
Intestazione" scrivere una sub o una semplice porzione di codice che 
parta da quella riga e vada trovare la riga "Riga Autore" che si trova 
qualche riga piů avanti come, puň trovarsi ad 1 riga sotto come a 10 
righe sotto.
Se avete qualche esempio, suggerimento o link di riferimento sono ben 
accetti
Ciao Max

righe sotto.
Ma no! memorizza tutti i dati di una sezione in un array e sputali fuori
alla fine (quando incontri la Riga Autore o quando finisce il file).
Qualcosa del genere (salvo errori ed omissioni):
    while (<>) {
        if ("Riga Intestazione") {
            leggi_intestazione $_;
        }
    }
 
    sub leggi_intestazione {
        my @righe;
        push @righe, shift;
        while (<>) {
            last if ("Riga Autore");
            push @righe, $_;
        }
        print "-- ", $_;
        for my $riga (@righe) {
            print $riga;
        }        
    }
Le condizioni "Riga Intestazione" e "Riga Autore" naturalmente non le
conosco, e dovrai definirle tu.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: regulare expre

come rendo un url (che inizi con HTTP:// o solo WWW) cliccabile con le 
espressioni regolari?

 espressioni regolari?
   ---------------------------------------------------
    use strict;
    use warnings;
    use URI::Find::Schemeless;
    my $finder = URI::Find::Schemeless->new( \&replace );
    sub replace
    {
        my $uri = shift;
        my $text = shift;
        return qq{<a href"$uri">$text</a>};
    }
    my $msg = qq|
        Un bel messaggio con dentro un po' di url:
 
www.perl.it
 
http://www.google.com
    |;
    $finder->find( \$msg );
    print $msg;
   ---------------------------------------------------
HTH
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

Newsgroup: it.comp.lang.perl
Titolo: Differenze di tempo

C'e' qualche modo semplice per calcolare le 
differenze di orari (tipo 17.20 - 08.15 = 09.05)
con perl?
 
Ciao
kluge

...



Mi interessa moltissimo grazie.
Puoi postarla o spedirla a 
filo...@caspur.it
 ?
Ciao
kluge
Newsgroup: it.comp.lang.perl
Titolo: [HELP] Personalizzazione pagina risultati ricerca CGI.

Salve a tutti,
inizio da poco ad operare con CGI e mi sorge una domanda alquanto
stupida (immagino!):
Ho settato lo script (tratto dal Matt's Archive) per la ricerca
sul sito, fin qui tutto bene, infatti i risultati arrivano puntuali
ed esatti, però ho bisogno di personalizzare la pagina di risposta.
Considerando che il master di tutte le pagine contiene una grafica
semplice ma pur sempre una pagina con tabelle, grafica, script in
JS e così via... esiste un modo semplice per includere le variabili
di risposta dentro alla pagina di risposta o viceversa?
In pratica: come faccio a personalizzare la pagina di risposta?
Devo editare tutte le linee del .cgi come segue:
   print "\n";
   print "<li><b>Boolean Used:</b> $FORM{'boolean'}\n";
   print "<li><b>Case $FORM{'case'}</b>\n";
   print "</ul><br><hr size=7 width=75%><P>\n";
O c'è un bell'include che mi permette di farlo?
Sto cercando in varia documentazione, ma ancora non ne sono andato a
capo... grazie a chi mi vuol aiutare!!! ;c))
Se potreste rispondermi anche in mail ve ne sarei grato!!!
Ciao !
-- 
((( Bazzmann Site Labs©  -- "Sounds Good, Go Better." )))
..: Internet & Comunicazione  :::  Grafica & Immagine :..
..: 
http://bazzmann.xs3.com
   :::  bazzmann(at)
tin.it
 :..
______________________________________________________________________
Leggenda narra che...
"Vi sono degli stati sociali in cui governano i piu' intelligenti:
 e' il caso dei babbuini".
( Konrad Lorenz )

 Devo editare tutte le linee del .cgi come segue:
Perchè non usi uno dei tantissimo moduli per gestire template di testi o
html che CPAN ti mette a disposizione?
Non ti so dare consigli precisi perchè io uso un sistema di espansione di
template scritto da me e basato sul parser HTML-Tree, ma se ti guardi i
vari moduli diponibili trovi sicuramente quello che fa al caso tuo.
Un buon punto di partenza potrebbe essere:
 
http://search.cpan.org/search?mode=module&query=template
Max

 vari moduli diponibili trovi sicuramente quello che fa al caso tuo.
Grazie! Era quello che intendevo!!!
Ora dovrò studiarmeli un po', ma almeno so da dove partire!!! ;c)
A buon rendere!

Newsgroup: it.comp.lang.perl
Titolo: lanciare script da html

Ho creato uno script in perl,  ma non so come "lanciarlo" da una pagina
html. !????
Help please
Grazie
Simon

 Simon
dipende da cosa deve fare?
lo puoi chiamare anche da url
http://tuosito/script.cgi
come pure da form ... ecc. ecc. ecc.
consiglio
http://www.google.com/search?q=perl+tutorial
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************
Newsgroup: it.comp.lang.perl
Titolo: DOdumentazione su perl

Ciao sto cercando della documentazione sul Perl... mi potete indicare
qualche testo
o uqlache sito dove reperirla ???
 Grazie
www.laragnatela.com

o uqlache sito dove reperirla ???
http://www.perl.com
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/

Newsgroup: it.comp.lang.perl
Titolo: come faccio ad includere un contatore in perl nel mio html?

questo contatore si trova in una cgi-bin. è un contatore in modo testo.
come faccio ad includerlo nel mio codice html? grazie!
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 come faccio ad includerlo nel mio codice html? grazie!
Quale contatore?
<code type="Quick'n Dirty">
	use CGI header;
	$counter=0;
	if(open COUNT,'<counter.txt') {
		my $counter=<STDIN>;
		close COUNT;
	}
	$counter++;
	print header;
	print "<h1>Ciao, sei il visitatore numero $counter</h1>";
	open COUNT,'>counter.txt';
	print COUNT,$counter;
	close COUNT;
</code>
-- 
Baci,
Mony

 Quale contatore?
 
<code type="Quick'n Dirty">
    use CGI header;
    $counter=0;
    if(open COUNT,'<counter.txt') {
        my $counter=<COUNT>;
        close COUNT;
    }
    $counter++;
    print header;
    print "<h1>Ciao, sei il visitatore numero $counter</h1>";
    open COUNT,'>counter.txt';
    print COUNT $counter;


ma questo è EmbedPErl...
il mio script è in cgi-bin, nel mio file index.html nella root del sito
posso includere il numero generato da quel script? come si fa con le
immagini...


 immagini...
Si`, ma e` piuttosto complesso ed uno dei metodi che mi viengono in 
mente (<iframe>) non e` nemmeno supportato da tutti i browser. Il piu` 
brutale, invece, si basa sui frame "normali": ne crei uno per la tua 
pagina ed uno per l'output del contatore.
Penso, comunque, che news:it.comp.www.html sia piu` appropriato. 
Followup-To impostato.
-- 
Baci,
Mony

 <code type="Quick'n Dirty">
nella riga sopra posso scrivere un titolo a caso? grazie!


 </code>
ho provato a metterlo ma non viene visualizzato il risultato... anzi il
codice! perchè?


 codice! perchè?
Credo che la prima e l'ultima riga non vadano inserite e naturalmente non
devi inserire il codice in una pagina HTML ma creare un file (es. in
notepad) con dentro il codice.
Dovrebbero esserci contatori per tutti i gusti disponibili gratuitamente,
comunque. Prova su 
cgi-resources.com
.
--
Mario Rizzuti

 codice! perchè?
Spiega al tuo web server che i file .cgi devono essere gestiti come 
script. Eventualmente (Apache e/o Unix), aggiungi all'inizio del file la 
linea che spiega che interprete usare e rendi eseguibile il file.
-- 
Baci,
Mony

 linea che spiega che interprete usare e rendi eseguibile il file.
io voglio mettere codice PERL all'interno di codice HTML come si fa con
PHP (tag <?php .... ?>
esiste un modo?


 notepad) con dentro il codice.
io voglio mettere codice PERL all'interno di codice HTML come si fa con
PHP (tag <?php .... ?>
esiste un modo?
-- 


 esiste un modo?
 
http://www.engelschall.com/sw/eperl/related/
-- 
Baci,
Mony
Newsgroup: it.comp.lang.perl
Titolo: Selezionare tutti i caratteri di 1 file

Sono un aspirante-programmatore in Perl e ho un problema tutto sommato
semplice:
Devo selezionare tutti i caratteri di un file e inserirli in una variabile.
Grazie per la risposta
Sgarbi Ruggero

 Devo selezionare tutti i caratteri di un file e inserirli in una
variabile.
Non so se ho capito bene il pbl, ma se quello che vuoi e' leggere un file e
metterlo tutto dentro una variabile allora....
Soluzione 'ho fretta, poi dopo l'aggiusto':
  $variabile = `cat Nome_del_file`;
Soluzione pulita:
[CODE]
  $/ = undef;
  open IN,"<Nome_del_file";
  $variabile = <IN>
  close IN;
  $/ = \n;
[/CODE]
man perlvar per capire $/
ciao, marco
--
Marco Cacchiani                                
e-mail:ma...@sirius.pisa.it
Public pgp key:         
http://www.sirius.pisa.it/marco/pgp_public_key.asc
Sirius Servizi Informatici                     e-mail: 
in...@sirius.pisa.it
Parco Teatro Pasolini, 1                       Phone:  +39 (50) 865120
I-56019 - Vecchiano                            Fax:    +39 (50) 860260
(Pisa - ITALIA)                                
http://www.sirius.pisa.it/

 Devo selezionare tutti i caratteri di un file e inserirli in una variabile.
 # Tecnica 1
 open( FILE, "nomefile" );
 my $data;
 {
   local $/ = undef;
   $data = <FILE>;
 }
# Tecnica 2
 open( FILE, "nomefile" );
 my $data;
 read( FILE, $data, -s FILE ); 
 
 
La 2 dovrebbe essere un po' più efficiente.
Per approfondire:
 perldoc -f read
 perldoc -f -X
 perldoc perlvar
 perldoc perlopentut
Max

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

Utilizzo un form HTML che invia immagini e testo ad uno script.
Tale script però invia l'immagine ma non il testo.
Uso il modulo CGI.pm in questo modo:
use CGI qw/:standard/;
Occorre dichiarare l'uso di CGI in altre maniere?
Da cosa dipende il mio problema?
GRAZIE

prova così:
use CGI param,qw/:standard/;
e raccogli il dato
$var=param("nomecampo");
-- 
Posted from 
relay4.inwind.it
 [212.141.53.75] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
000301c089e8$5a289180$0501a8c0@dvd...


 wrote in message
000301c089e8$5a289180$0501a8c0@dvd...


 > prova cosě:


ma che utilizzo fai del testo che non riesci a inviare?
Se è il contenuto di un textfield non può non funzionare.
Se ho capito tu devi:
leggere il contenuto di un textfield o "derivati";
manipolarlo secondo le tue esigenze;
destinarlo all'utilizzo finale (visualizzazione, scriverlo su file, ecc.).
o devi leggere il contenuto del campo di file dove è scritta la path
dell'immagine da scaricare?


 wrote in message
000501c08a19$cb051fa0$0501a8c0@dvd...

Newsgroup: it.comp.lang.perl
Titolo: Invio messaggi su tcp/ip e uso di scalar

Sto provando alcuni servizi client e server che utilizza il modulo
IO:Socket.
Allego gli script del client e del server.
server
http://www.linuxjournal.com/articles/lj/0060/3237/3237l5.html
client
http://www.linuxjournal.com/articles/lj/0060/3237/3237l6.html
Non mi è chiara una cosa come mai nel client si usa la variabile sock
preceduta dalla funzione scalar per stampare a video del client? Che
ruolo ha scalar? In effetti togliendola non stampo nulla a video.
 print scalar <$sock>;
Grazie

non mi apre la pagina :( 

 ruolo ha scalar?
Il costrutto '<FH>' ha un comportamento differente a seconda del contesto.
In un contesto di lista, legge tutte le righe possibili dal filehandler
(dove con 'riga' si intende una sequenza terminata dal valore di $/, che di
default č "\n") e restituisce un array. La sua azione termina quando il
filehendler si chiude. In un contesto scalare, legge solo la prima riga, e
restituisce una stringa. 
Nel caso in questione, "scalar" serve ad imporre un contesto scalare,
giacché la 'print' di per sé determina un contesto di lista.
Max

 filehendler si chiude.
Quindi  facendo una print senza scalar non ho nessun output perchè la
print non vede chiudersi il <FH> ;-)
Grazie mille è tutto chiaro

 non mi apre la pagina :(
Strano prova ad aprire l'intero articolo:
http://www.linuxjournal.com/article/3237
server Listing 5
client Listing 6

Newsgroup: it.comp.lang.perl
Titolo: [?] Qualcuno sa dove trovare un programma perl?

Ho la necessità di realizzare un programma perl molto semplice, solo 
che conosco altri linguaggi ma non il perl. Il programma deve fornire
per ogni volta che viene chiamato (ovvero ad ogni connessione di un 
client) come risposta una stringa di testo pescata a caso tra una 
lista posta in un file. In questa lista sono abbinati stringa ed un 
numero che viene decrementato di una unità ogni volta che lo script 
fornisce la stringa abbinata la client. Non deve più spedire quelle 
che hanno il contatore a 0. In pratica un file del tipo:
stringa1,contatore
stringa2,contatore
stringa3,contatore
stringa4,contatore
Qualcuno mi indirizza?
---
News2000 1.0b Beta tester version 
http://socket2000.8m.com

WWW.CGI-RESOURCES.COM
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
CIAO
FILIPPO

 
WWW.CGI-RESOURCES.COM
Grazie 1000.

Newsgroup: it.comp.lang.perl
Titolo: signals on windows

Salve,
     ho uno script per che può girare sia su windows che su linux però 
all'inizio ho questa riga:
# Catch Signals
#
$SIG{"PIPE"} = $SIG{"KILL"} = $SIG{"QUIT"} = $SIG{"ABRT"} = $SIG{"INT"} 
= sub { print "-> Connection closed\n"; exit; };
se eseguito da terminale su windows mi darà errore o ignorerà questa 
riga? come posso evitare di eseguire questa riga se sto su windows?
grazie

 all'inizio ho questa riga:
credo di aver risolto cosě:
my $OS = $^O;
if ($OS =~ /^MSWin/i) {
  $OS = 'WINDOWS';
} elsif ($OS =~ /^VMS/i) {
  $OS = 'VMS';
} elsif ($OS =~ /^dos/i) {
  $OS = 'DOS';
} elsif ($OS =~ /^MacOS/i) {
    $OS = 'MACINTOSH';
} elsif ($OS =~ /^os2/i) {
    $OS = 'OS2';
} elsif ($OS =~ /^epoc/i) {
    $OS = 'EPOC';
} elsif ($OS =~ /^cygwin/i) {
    $OS = 'CYGWIN';
} else {
    $OS = 'UNIX';
}
if ($OS ne 'WINDOWS')
{


Newsgroup: it.comp.lang.perl
Titolo: domanda sui puntatori

Ciao al NG
  e' possibile confrontare 2 puntatori ?
  Cioe', sapere se puntano alla stessa variabile in memoria ?
  my $x ="x";
  my $y ="y";
  if (\$x == \$y) { ... } # false (?)
Raffaello

 ha scritto nel messaggio
news:Pine.OSF.4.62.05...@harry.molgen.mpg.de...

my $alfa="testo";
$punta_A=\$alfa;
$punta_B=\$alfa;
if ($punta_A == $punta_B) {
print "i puntatori puntano alla stessa variabile\n";
} else {
print "Non puntanto\n";
}
Non so, prova così.
Nel tuo caso il confronto che fai dovrebbe essere lecito e ti dovrebbe dare
un false perchè puntano a due locazioni differenti.
CMQ, in questi casi un paio di prove veloci chiariscono meglio di una
risposta -_O :D
Ciao^^

 
http://www.perl.it/blog/archives/000071.html
I realta' non ho intenzione di includere nel mio codice un confronto tra 
puntatori.
Devo fare un debug del codice fatto da un'altra persona e mi sono accorto
che ci sono delle variabili che puntano agli stessi dati.
I casi sono 2:
- ha usato lo stesso puntatore piu' volte (e allora mi andrebbe anche 
bene)
- ha duplicato i dati (e allora devo modificare il codice per
ridurre lo spreco di memoria :-/)
  Raffaello

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





Qualcuno di voi sa se è possibile prelevare 
attraverso uno script cgi col perl, un'altra pagina sul web che preleva delle 
cookies? Cioè io sono riuscito tramite lwp a prelevare altre pagine generate da 
form col metodo post. Tuttavia ho trovato una pagina che viene generata da un 
form utilizzando dei cookies. E' possibile passare dei cookies ad uno script 
come se li leggesse dall'hard disk?





Devi crearti un cookie_jar con il modulo HTTP::Cookies e dire a LWP di usarlo.
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: Info su Account

Sto utilizzando nel mio sito una sezione protetta con .htaccess.
Vorrei sapere se esiste un modo per avere in una variabile il nome utente
della persona entrata.
Grazie
Kishar

 della persona entrata.
Solitamente lo trovi in $ENV{'REMOTE_USER'}, almeno con Apache e` cosi`.
Michele.

In effetti ero in un momento di panico. Ero entrato nel pallone!! :)
Grazie
Ciao

Newsgroup: it.comp.lang.perl
Titolo: generare due pagine html successive

Vorrei sapere come fare per ottenere questo risultato:
vorrei che, quando richiamo un mio script cgi da una
pagina html, mi apparisse nel browser una pagina che mi dice di
attendere e poi, quando lo script ha completato la sua
esecuzione, mi apparisse una nuova pagina con scritto
"elaborazine effettuata".
In pratica lo script dovrebbe generare due pagine html
successive.
Grazie.
Nicola

 wrote in message
sINz4.35592$O3.3...@news.infostrada.it...

Mettiamo caso che lo script debba  calcolare una somma effettuata dalla
subroutine Somma() dovresti fare una cosa del genere:
1)    #!/usr/bin/perl
2)    @|=0;
3)
4)    print "Content-type: text/html \n";
5)
6)    print <<fine_html_1;
7)    <HTML>
8)    <TITLE> ......... </TITLE>
9)    <BODY>
10)    ..................
11)    ..................
12)    </BODY>
13)    </HTML>
14)    fine_html_1
15)
16)    &Somma(a,b);
17)
18)    print <<fine_html_2;
19)    <HTML>
20)    <TITLE> ......... </TITLE>
21)    <BODY>
22)    ..................
23)    ..................
24)    </BODY>
25)    </HTML>
26)    fine_html_2
27)
28)    exit(0);
In pratica il comando "print <<ETICHETTA;" considera tutto quello che sta'
scritto dopo fino a "ETICHETTA" come se fossero una serie di righe print. La
riga 4) è indispensabile per dire allo script che se richiamato da un
browser deve scrivere i contenuti dei comandi <<print"....." >> come se
fosse codice HTML. Per chiarimenti scrivimi a 
nick...@liberi.it
Ciao da Nicola

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

Dove e come posso imparare perl?
=====
__________________________________________________
Do You Yahoo!?
Bid and sell for free at 
http://auctions.yahoo.com
--
Posted from 
web2005.mail.yahoo.com
 [128.11.68.205]
via Mailgate.ORG Server - 
http://www.mailgate.org

 Dove e come posso imparare perl?
A casa, in poltrona, leggendo un buon libro su Perl (ad esempio Learning Perl)
e poi provandolo sul tuo PC di casa.
Dettagli in 
http://www.perl.com/
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)