mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: if(m:title:i) ???

cosa significa la seguente riga?
if(m:title:i) 
Dovrebbe trovare la parola testo ma... non conosco questo costrutto.
m: ____  :i  ?
cosa č?
Grazie in anticipo, Mario.

 cosa č?
E' una variante di 
 m/title/i
che, a sue volta, č equivalente a
 /title/i
Come spiegato in perldoc perlop, come alternativa a '/' in qw/, m/, s/,
qx/, tr/, qq/, e qr/, puň essere usata qualsiasi coppia di caratteri non
alfanumerici. L'uso di '?' o di "'" ha degli effetti particolari, mentre
qualsiasi altro carattere č funzionalmente equivalente a '/'. Per maggiori
dettagli vedere la sezione del manuale citata.
Max

  m/title/i
Per completezza (non relativa a te, Max!):
è la stessa cosa di
if($_ =~ m/title/i) 
con $_ sottintesa (o meglio: desunta automaticamente in mancanza di
altri argomenti).
Ciao
--ev
Newsgroup: it.comp.lang.perl
Titolo: script perl in background

Ciao a tutti.
Ho la necessità di tenere sempre attivo su windows 98 uno script in perl
con un timer che esegue delle operazioni scadenzate; c'è un modo per non
tenere sempre aperta la finestra di dos?


Dovrebbe essere possibile usando la API di windows ...
... se non erro.
E' comunque un problema legato piu' a windows che al Perl.
 Raffaello

 tenere sempre aperta la finestra di dos?
Ce ne sono almeno 3, come ci spiega l'ottimo Aldo Calpini, qui:
http://www.perlmonks.org/index.pl?node_id=208493

Newsgroup: it.comp.lang.perl
Titolo: Upload file su server

Ciao a tutti,
vorrei realizzare una CGI che dato un nome di file (sempre fisso es.
C:\pippo) sul PC di chi sta visitando il sito mi permetta di fare l'upload
sul server in una directory prefissata.
Non so se sbaglio io ma non riesco ad aprire il file in locale ed a
leggerlo.
Vorrei fare qualche cosa di simile a
....
open(OUTFILE, ">$REMOTE_FILE");
 open(INFILE, "<$LOCAL_FILE");
 while ($Bytes = read(INFILE,$Buffer,1024))
        {
           $BytesRead += $Bytes;
            print OUTFILE $Buffer;
        }
  close(INFILE);
  close(OUTFILE);
grazie per l'aiuto
Massimo

 sul server in una directory prefissata.
   Non si puo` fare: per ovvi motivi di sicurezza, non puo` essere 
un'applicazione /server-side/ a decidere se e quale file del /client/ 
scaricare. Tuttavia, puoi inserire in un /form/ un elemento /input/ di 
tipo /file/, il quale permettera` all'utente di scegliere di quale file 
fare l'/upload/. A questo punto, mediante le apposite funzionalita` del 
modulp *CGI.pm*, potrai trattare /server-side/ il file scaricato.
-- 
Veri pirati noi siamo       Ma cosa c'e` di male?
Contro il sistema lottiamo  Ma cosa c'e` di strano?
Ci esercitiamo a scuola     Facciamo un gran casino
A far la faccia dura        Ma in fondo lavoriamo
Per fare piu` paura         Per capitan Uncino
Newsgroup: it.comp.lang.perl
Titolo: Aiutino socket

Salve a tutti,
 
Stavo mettendo a punto un client ocsp per vedere se sia possibile 
realizzare un server ocsp in perl, comunque..
 
apro la connessione con il server e sparo l'header
        print $remote "POST / HTTP/1.0\n";
	print $remote "Content-Type: application/ocsp-request\n";
	print $remote "Content-Length: 105\n";
	print $remote "\n";
 
poi apro i file req.der e resp.der in binmode
 
quindi faccio un
while (read(REQ, $buff, 8 * 2**10)) {
	print $remote $buff;
}
 
         while ( <$remote> )
	{
	print RESP $_;
	 }
 
problema è che in realtà non sto scrivendo *solo* il resp.der ma tutto 
ciò che proviene dal server per cui ovviamente il file resp.der risulta 
illeggibile
 
openssl ocsp -respin resp.der -text
 
Error reading OCSP response
15451:error:0D0680A8:asn1 encoding routines:ASN1_CHECK_TLEN:wrong 
tag:tasn_dec.c:1306:
15451:error:0D07803A:asn1 encoding routines:ASN1_ITEM_EX_D2I:nested asn1 
error:tasn_dec.c:380:Type=OCSP_RESPONSE
 
 
ovviamente perché se faccio un cat resp.der vedo pure
HTTP/1.0 200 OK
Content-type: application/ocsp-response
Content-Length: 1231
 
ora come elimino le suddette tre linee da un file binario?
O c'è modo di intercettarle ed eliminarle prima di scrivere il file?
 
 
 

 Content-Length: 1231
 
Aggiungo, in effetti se apro il file con vi vedo
 
HTTP/1.0 200 OK^M
Content-type: application/ocsp-response^M
Content-Length: 1231^M
^M
 
ed eliminado le prime 4 linee a mano con dd il file risultante funziona.

Newsgroup: it.comp.lang.perl
Titolo: [HELP] mojo mail con smtp

Ciao a tutti!
Non mi intendo molto di cgi e sto cercando di installare mojo, il mailing
list manager...
Non avendo accesso al programma di sendmail, ma avendo a disposizione un
server smtp all'url 
smtp.miosito.it
 vorrei sapere come devo configurare il
config.pm
 per usare il cgi via smtp.
Help!
--
Monochromatic Stains



Qui c'è tutto il supporto che ti serve, con mailing list dedicate,
quick tour, FAQ ecc (in inglese, of course)
 
http://mojo.skazat.com/support/
	- Enrico

 - Enrico
Sì, avevo già guardato per bene, ma non mi sembra molto chiaro...
soprattutto a proposito della configurazione per l'invio via smtp...
Per esempio non sono riuscito a capire come deve essere configurato il
config.pm
 in questo caso!
:(
--
Monochromatic Stains


config.pm
 in questo caso!
Settando il valore della variabile:
	$SMTP_ADDRESS = '
your-smtp.foo.com
';
	- Enrico

 - Enrico
Quello non è necessario farlo, perchè è possibile specificarla anche nelle
sending options una volta installato lo script. Il problema è che nonostante
tutto sembri funzionare per bene... nessuna mail viene inviata. Non capisco
se sia un problema di configurazione dello script oppure un problema del
server smtp...
Nessuna ha mai installato mojo su 
hostingplan.net
?
HELP!!!!
non ci capisco + nulla, ormai!
Ciao e buon natale!
--
Monochromatic Stains

 Nessuna ha mai installato mojo su 
hostingplan.net
?
hostingplan.it
, sorry!!!!
Newsgroup: it.comp.lang.perl
Titolo: Ricerca parziale e per prossimità

Salve, sto facendo un piccolo moteore di ricerca celebrità, è sono riuscito
ad implementate il meccanismo di ricerca semplice per tale motore, ora
vorrei implementare altri due meccanismi di ricerca, che agiscono sempre
parlola per parola cioè confrontando due parole inserite, vi spiego cosa mi
serve.
1) una funzione di parsing delle stringhe con * e ? tipo la ls
2) una funzione di ricerca di prossimità, cioè se l'utente sbaglia una
lettera, ne mette una in + o meno il programma trovi ugualmente la parola
cercata...
Sicuro che queste funzioni esistono già, ve ne sarei molto grato se mi
indicate dove cercarle...
Grazie
Luther

 wrote:
: 1) una funzione di parsing delle stringhe con * e ? tipo la ls
File::KGlob o la funzione a pag. 180 del Perl Cookbook (O'Reilly).
: 2) una funzione di ricerca di prossimità, cioè se l'utente sbaglia una
: lettera, ne mette una in + o meno il programma trovi ugualmente la parola
: cercata...
String::Approx
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) mail (dot) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nandos

 String::Approx
Grazie mille, cerchero' questi moduli sul CERN e ti sapro' fire, per il
cookbook devo decidermi ad acquistarlo maledizione...
Ciao
Luther

cookbook devo decidermi ad acquistarlo maledizione...
Ma non era il CPAN? ;-) Il cookbook e` ottimo.
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

 Ma non era il CPAN? ;-) Il cookbook e` ottimo.
il CPAN infatti, eheeh, mi sbaglio sempre con i nomi...
Ciao
Luther



Newsgroup: it.comp.lang.perl
Titolo: Consigli per Iniziare - Thx

Ciao a tutti,
sono affascinato da questo linguaggio tanto da volerci fare una
tesi(sviluppo di un modulo per la configurazione di n file all'interno di un
software monitoring).
Ora visto che parto avendo come prerequisiti la conoscenza di C, Java e poco
PHP vorrei avere da voi qualche consiglio su che libri acquistare.
Premetto che ho visitato alcuni siti 
perl.org
, 
perl.com
, 
osa.com
 ed ultimo
www.perl-it.org
.
Mi piacerebbe sapere se ci sono dei testi decenti in Italiano, ho visto un
edizione Jackson di Programming Perl e sono inorridito.
Confido su di voi, Grazie
Alla prossima, xevious
----------------------------------------------------------------------------
------------------------------------
"Non farmi domande. Capisco quello che devo fare man mano che vado avanti"
I.J. PAP
www.xevious.3000.it

 edizione Jackson di Programming Perl e sono inorridito.
Penso che il miglior libro per iniziare a studiare Perl, in italiano,
sia 'Perl e Internet' della McGraw-Hill.
Marco Gazerro
Newsgroup: it.comp.lang.perl
Titolo: Equivalente di #DEFINE

Ero molto abituato ad usare delle costanti usando i tag #define del c++, ma non
ho trovato nulla di simile nelle varie man per il perl...
Non esiste o è semplicemente questione di sintassi?
In tal caso come si definiscono constanti pure?
-- 
| /
| \Byte - Andrea Briganti - 
kbyt...@freemail.it
http://digilander.iol.it/kbytesystem
ICQ: 40872731 - C6: andreakbyte

 ho trovato nulla di simile nelle varie man per il perl...
perldoc constant

Newsgroup: it.comp.lang.perl
Titolo: script perl x seriali rs232

qualcuno sa dove posso reperire uno scrip perl per catturare i dati in
uscita da una seriale
nb(dalla seriale escono stringhe da 80 caratteri ascii)
grazzie ciao a tutti

Win32::SerialPort
su 
cpan.org
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.perl
Titolo: scompattamento librerie CPAN

Salve,
ho scaricato alcune librerie CPAN dai soliti siti,
il problema e' che non riesco a scompattare i files con
WINZIP.
il file e'
DateManip-5.35.tar.gz           
Come mai?
grazie per l'attenzione
Raffaello

Come mai?
E` abbastanza strano, WinZip (le ultime versioni almeno) dovrebbe gestire
senza problemi i .tar.gz. Magari il file che hai scaricato e` corrotto...
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

Newsgroup: it.comp.lang.perl
Titolo: Mi presento

Ciao a tutti!
Ho da poco iniziato ad interessarmi ai CGI e quindi al PERL.
Vorrei qualche consiglio su come iniziare nel modo migliore a creare dei
CGI.
Qualcuno saprebbe indicarmi un valido interprete perl da installare?
Grazie in anticipo
--
Mister D
    Daniele Daddiego
 
dadd...@infinito.it

Da installare ... dove ?!? :-)

-- 
	Francesco Poggio

Scusami, hai ragione.
Da installare su PC con Win98 e WinNT(sp4).
Mister D

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

http://www.activestate.com
Mister D ha scritto:

Newsgroup: it.comp.lang.perl
Titolo: Data->Giorno Settimana

Salve a tutti,
	come posso sapere da una data 19/03/1998 il giorno della
settimana, anzi il nome del giorno della settimana ?
Grazie in Anticipo

 settimana, anzi il nome del giorno della settimana ?
Guarda su CPAN i moduli per gestire le date.
Sicuramente Date::Manip contiene la funzione Date_DayOfWeek($m,$d,$y),
ma e' un po' pesante come modulo, se ti serve solo per quello.
Sicuramente c'e' qualcos'altro.
Maurizio
-- 
Maurizio M. Munafo' |                                  
E-mail:mmmu...@usa.net
--------------------+---------------------------------------------------------
             (o_    |                              - Gentile or Jew,
   (o_  (o_  //\    | O you who turn the wheel and look to windward,
   (/)_ (/)_ V_/_   | Consider Phlebas, who was once handsome and tall as you.

settimana, anzi il nome del giorno della settimana ?
Puoi usare la funzione timelocal() il modulo Time::Local, incluso nella
distribuzione standard del Perl5. Ad esempio:
----------------------------------------------------------------
use Time::Local;
#                S. M. O. G.  M. Anno
$tim = timelocal(0, 0, 0, 19, 2, 1998);
$dow = (qw(Dom Lun Mar Mer Gio Ven Sab))[(localtime($tim))[6]];
print $dow, "\n";
----------------------------------------------------------------
Ricordati che il numero del mese va sottratto di una unita` (e` zero-based).
Il numero del giorno va invece lasciato cosi`. Nell'esempio la data e` 19
Marzo 1998.
	A presto, Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.italpro.com/mb/

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

Ciao, uso il perl sopratutto per scivere CGI di raccolta dati con il
browser.
Ho notato che passo 3/4 del mio tempo a scrivere print 'qualcosa';
Ho sentito parlare di moduli per webserver che interpretano il perl inline,
cioè
direttamente nelle pagine html tipo e-perl o altri. Purtroppo sono costretto
a usare
iis4. Conoscete qualche modulo - estensione che faccia al caso mio?
PS: e' importante che con il modulo non vengano perse le preogative del
perl.
Grazie, Luca
--
Luca Vertua
te...@8volante.com
8volante srl soluzioni_internet
Via Cernaia 7
25034 - Orzinuovi - Bs
Tel.: 030/9444003
Fax: 02/700430453
www.8volante.com

Per apache esiste emb_perl. (ed e' l'unico che ho provato).
Visto che sei su IIS son NT puoi sempre usare ASP invece di CGI ed
installare da 
http://www.activestate.com/
 il PerlScript . In altre parole e'
come fare ASP solo che lo fai in Perl.
Ti ricordo che le ASP altro non sono che HTML con tra i tag <% e %> gli
script serverside. Insomma quello che volevi tu !
Non so se e quali restrizioni del linguaggio esistano, ma non ti costa nulla
provare !!!
(normalmente ASP lavora in VbScript)
Alex

E se poi seguendo i consigli di Alex decidi di passare a qualcosa di tipo 
ASP, lascia perdere ed impara PHP che è veramente forte!
-- 
Andrea Zwirner
yuppi...@yahoo.it
"Poni ciò che sei nel minimo che fai."
Newsgroup: it.comp.lang.perl
Titolo: [OT] Ma ch fine ha fatto Domizio?

Non si sente più da un po' o è una mia inpressione ?
ping Domizio :)
        johnny

 ping Domizio :)
perldoc Domizio

 perldoc Domizio
ROTFL
Chiedo scusa per l'apparente assenza, ma sono super incasinato con un site
piuttosto grande fatto tutto in Flash... Ogni tanto leggo qualche post alla
veloce, ma non ho assolutamente tempo per rispondere.
Spero di tornare presto alla routine normale, perché Flash ed è uno stress
tremendo! Che porcheria ! :-) Viva perl!
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

Domizio Demichelis wrote:

In bocca al lupo allora e ci sentiamo presto :)
Newsgroup: it.comp.lang.perl
Titolo: GD.pm su win2000/NT

Salve a tutto l'ng. Premetto che è la prima volta che posto qui, spero 
di non essere di troppo :)
Ho questo problema e non ho trovato info utili su google. Ho installato 
active perl sul mio server (win 2000) e lo utilizzo principalmente con 
awstats con ilquale funziona egregiamente. Ultimamente mi sono messo in 
testa di offrire ai miei utenti un servizio di statistica simile, 
riguardante il mio news server (DNEWS) . Lo scipt perl originario è in 
pratica una rivissitazione di INNREPORT e sono riuscito ad adattarlo 
per farlo funzionare su w2000. Il problema nasce quando cerco di usare 
le librerie grafiche di 
gd.pm
, non riuscendole ad installare su w2k :(
in buona sostanza, come posso installare 
gd.pm
 sul mio perl su w2k?
qualcosa mi sfugge...:(
saluti
-- 
Dmitry - Ben Tucker philosophy -
** Articolo inviato tramite i servizi gratuiti di 
www.x-privat.org
 **

 in buona sostanza, come posso installare 
gd.pm
 sul mio perl su w2k?
da linea di comando, quando sei connesso ad internet, scrivi:
ppm install GD
ppm è un tool del Perl ActiveState per installare quei moduli Perl che 
sono stati resi dei pacchetti. Per maggiori informazioni, da linea di 
comando digita:
perldoc ppm

 ppm install GD
grazie ! sei stato davvero di aiuto :)

Newsgroup: it.comp.lang.perl
Titolo: libreria perl

com posso fare una libreria di funzioni comuni e come le posso includere
nell'intestazione dello script perl?

 nell'intestazione dello script perl?
Sempre RTFM :) 
man perlmod
guarda sul tuo libro preferito di perl il capitolo sui moduli e sulla direttiva 'use'.
Ciao
Leo
Newsgroup: it.comp.lang.perl
Titolo: XML - Parser Validante in perl

Ciao a tutti.
Avrei bisogno di sapere se qualcuno conosce una funzione (o modulo perl) che
prende in input un documento XML e un DTD (o meglio un XML Schema), e
restituisce in output vero se l'XML č valido sulla base di qual DTD (o XML
Schema); false se non lo č.
Ho provato ad utilizzare XML::DOM con il parser quello che riesco a fare č
capire soltanto se l'XML č ben formato; sulla validazione del documento non
riesco a capirci un gran che.
Ringrazio in anticipo a chi puo' darmi la dritta giusta.
Ciao.
--Gabriele

Schema); false se non lo è.
Per quello che capisco io, ci sono più moduli XML di quanto sia decoroso,
sicché ci sarà certamente anche un modulo per la validazione.
In particolare, libxml::enno promette appunto questo (se poi mantenga non
so); e XML::Schema dovrebbe utilizzare gli XML Schema (per che cosa non so).
A parte Perl, dai un'occhiata anche a OpenJade.
Ciao.

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

Ciao a tutti,
Ho da poco intrapreso, ad utilizzare Tk  e subito mi sono scontrato con
tiler.
ho un prg che, dopo aver letto dati da un database mysql, li mostra a video
e fin qui tutto ok
il problema nasce quando le righe da visualizzare superano lo schermo e
spulciando un po di esempi, ho scoperto l'amato e odiato TILER.
il risultato l'ho ottenuto (mi apre una finestra in cui mostra sia la barra
di scorrimento che il campo contenete i dati, ma purtroppo li sovrappone
percui la barra di scorrimento e coperta dal campo dei dati.
questo e' il listato della sub()
Grazie in anticipo
p.s. ho provato a togliere "-width =>" 92 nella riga 17  e la cosa
funzionerebbe ma purtroppo, il campo dei dati si riduce a 20
      caratteri e io invece ne abbisogno di circa 90 (una curiosita' perche'
poi mette un campo di 20 caratteri e non 10 o 5 ?)
# *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
1   sub visualizza {
2   my $mw = MainWindow->new();
3   $mw->minsize( qw(650 450));
4   $mw->title("visualizza   ");
5   use DBI;
6   # Apertura connessione
7   my $dbh = DBI->connect($ddb, $utente, $password)or die "NON MI RIESCO A
CONNETTERE";
8
9   # query
10 my $query = $dbh->prepare("SELECT * FROM anagrafe");
11 $query->execute();
12
13 # Visualizza  risultati
14
15 my $tl = $mw->Scrolled('Tiler', -columns => 2, -rows =>20);
16 while (my $ref = $query->fetchrow_hashref()){
17 my $ent0 = $mw->Entry (-width => 92,-background => 'green');
18 $ent0->insert('end',"$ref->{'conome'},$ref->{'nome'}, $ref->{'ind'},
$ref->{'citta'}, $ref->{'tel'}, $ref->{'codfis'}");
19 $tl->Manage( $tl->Label => $ent0 );
20 $tl->pack(qw/-expand yes -fill both/)
21
22  } # end while
23 $query->finish();
24 # Chiusura connessione
25 $dbh->disconnect;
26 } #end visualizza
# *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

 wrote in message
f7PJ9.5293$TC5.1...@twister1.libero.it...

Newsgroup: it.comp.lang.perl
Titolo: s~

Quale istruzione s~     mi permette di sostituire il carattere spazio con il
carattere underline?
(Vi prego non rispondetemi con una faq)
GRAZIE

carattere underline?
s/\s/_/g;
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 wrote in message
slrn99mn...@karma.italpro.net...


 > s/\s/_/g;
G_R_A_Z_I_E_!

 wrote in message
3A9B7F5C...@galactica.it...


 $nome = ~s/\s/_/g;
$nome =~ s/\s/_/g
$nome è la tua variabile
=~ è l'operatore di pattern matching (che in questo caso piglia anche il
risultato di quello che ha a destra e lo schiaffa dentro quello che ha a
sinistra cioè $nome)
s/ciccio/pippo/
sostituisce ciccio con pippo (dove ciccio può anche essere un carattere
speciale come il \s che indica lo spazio singolo)
g non si ferma alla prima sostituzione ma va avanti finché ne trova
l'oggetto sottointeso della sostituzione è sempre $nome
Ma tutte queste righe che mi hai fatto scrivere le avresti lette
tranquillamente su 
http://www.html.it
 nel tutorial introduttivo del Perl
oppure sulla tua documentazione che sta bella bella sul tuo Hard Disk e
aspetta solo di essere letta
Se hai Linux fai 
man perltoc e divertiti
Se non cerca comunque la documentazione che una installazione di Perl si
tira dietro PER FORZA :-)
Ciao
Wiz of Id

 wrote in message
3A9CD001...@galactica.it...


 speciale come il \s che indica lo spazio singolo)
Non del tutto esatto. \s match-a anche con \t, \n, \r, etc non solo con lo 
"spazio". 
-- 
Saluti,
Giancarlo

 Quello che non sapevo è che tra ~ e s ci voleva spazio.
Ehm... mi permetto di correggerti... quello che non sapevi è che
l'operatore non era
= ma =~ 
cioè, la questione è che non consideravi =~ come una cosa sola
così come non consideravi s/pino/pigna/ come una cosa sola e diversa
dall'operatore =~ ...
te lo dico per evitarti errori in futuro... :-)
Wiz of Id

Newsgroup: it.comp.lang.perl
Titolo: Flip flop

vorrei sapere come si crea un subroutine che genera [in modo 
sequenziale] i numeri 0 e 1 
ovvero[01010101010101010101010ecc....eccc]all'infinito.
ma solo quando la richiamo......
ovvero:
valore=genera()
[ora valore = 0]
valore=genera()
[ora valore = 1]
valore=genera()
[ora valore = 0]
valore=genera()
[ora valore = 1]
Etc....Etc...
Grazie!

kryno2001 wrote:

Addirittura una subroutine..... non serve:
$valore=$valore?0:1;
-- 
Saluti,
Giancarlo

 $valore=$valore?0:1;
Grande!!
ho provato cosi' e mi funziona alla grande
#!/usr/bin/perl
sub genera() {
$valore=$valore?0:1;
return $valore
}
$a=genera();
print $a;
$a=genera();
print $a;
$a=genera();
print $a;
$a=genera();
print $a;
Ora pero per problemi di codice (devo riscrivere la riga in un 
linguaggio che credo non supporti ? e :) come si estende??

 linguaggio che credo non supporti ? e :) come si estende??
E lasceresti $valore visibile e modificabile da tutti? Nooo...
La soluzione pulita, credo, dovrebbe essere quella di fare una closure.
{
  my $valore = 0;
 
  sub genera() { $valore=$valore?0:1; }
}
Non dovrebbe nemmeno essere necessario il return explicito.
In questa maniera $valore non esiste per nessuno tranne che per genera() e
nessuno puo' cambiarne il valore.
M.
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 M.
si...si...sono d'accordissimo con te!
io ti chiedevo un'altra cosa...se io [in quest'altro linguaggio] scrivo:
$valore=$valore?0:1;
lui mi ride in faccia........
c'e un modo per scrivere questa riga diversamente ma con lo stesso 
significato?

 significato?
Dipende dal linguaggio....
condizione?azione1:azione2
e' essenzialmete in
if (condizione) {
        azione1;
} else {
        azione2;
} 
Il problema forse e' piu' nelle condizione (il perl si "mangia" 
qualsiasi cosa come condizione e se la cava interprentandola vera o 
falsa), potresti fare una cosa tipo:
if (valore == 1) {
        valore=0
} else {
        valore=1
}
-- 
Saluti,
Giancarlo

 }
ora ci siamo...ti ringrazio!


wrote:

{
	my $x = 1;
	sub zero_one () { $x = ! $x + 0 }
}
Newsgroup: it.comp.lang.perl
Titolo: Out of Memory

Salve a tutti. Ho la necessità di elaborare in Perl file di grosse
dimensioni.
Apro tali file con la open..
open(FI,"$ARGV[0]") || die $!; 
e poi tento di processarlo riga per riga con l'istruzione foreach:
foreach(<FI>){
...
...
..
}
close(FI);
Dopo aver lanciato lo script, mi compare il messaggio "Out of memory"
ed esce.
Ovviamente questo dipende dalle dimensioni del file.
Arrivo alla domanda: conoscete qualche sistema per impedire al Perl di
caricarsi in memoria l'intero file?
Grazie.

 caricarsi in memoria l'intero file?
L'espressione di foreach EXPR viene valutata in un contesto di lista, e
questo causa la lettura in memoria di tutto il file. Usa while():
   while ( my $line = <FI> ) {
     .. fai qualcosa con $line ..
   }
ciao,
S.

 close(FI);
Questa non l'avevo francamente mai vista, e non so dire quale ne sia
l'effetto (quindi, non posso dier con certezza che sia questo il problema).
In ogni caso, di solito per leggere un file riga per riga si usa il ciclo:
   while (<FI>) {
   ...
   }
E garantisco che questo non dà nessun problema, quale che sia la dimensione
del file (il limite è piuttosto determinato dalla lunghezza di ogni singola
"riga": stai forse cercando di leggere un file binario?).
Ciao.

 news:65a0661d.0308...@posting.google.com...
Accidenti ad Outlook!!
Ciao.

 
Il problema con il foreach(<FI>){...} è che è equivalente a 
my @lines = <FI>;
foreach (@lines) {....}
In altre parole, legge tutto il file in memoria _prima_ di fare il
trattamento. Il più classico while(<FI>) {...} non  ha questo
problema: legge le linee una alla volta.
-- 
Leo "TheHobbit"
One Ring to rule them all, One Ring to find them,
One Ring to bring them all and in the darknes bind them
In the land of Mordor where the Shadow lie.

foreach (@lines) {....}
Grazie, davvero non avevo mai pensato ad un ciclo foreach su un file
handle. In generale, però, leggendo la documentazione, avevo avuto
l'impressione che i cicli foreach fossero risolti in maniera meno
dispendiosa. Probabilmente confondo con l'operatore intervallo o altre
cose, o con altra sintassi del ciclo.
Il MIO problema comunque, invece, è che ho risposto ad un messaggio dello
scorso agosto. Col cortese contributo di Outlook, a cui non sono abituato,
ma non voglio sottrarmi alla mia personale responsabilità.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: AIUTO : Perl & Html

print "Content-type: text/html\n\n" ;
print <<EOF ;
<html>
<head>
<BODY BACKGROUND= 
 "/usr/home/tesisti/deca/apache/apache/cgi-bin/tesi/sandston.gif"> 
</head>
</html>
EOF
ho messo questa linea di codice nel file perl ma non mi visualizza il
background, cosa devo fare? (l'indirizzo dell'immagine e' ovviamente
quello giust)
La pag html che chiama il file perl e' la seguente:
http://speedy:9999/cgi-bin/tesi/provafile.cgi
Vi prego aiutatemi!



Scusa, ma tu l'HTML e HTTP lo sai? Quello che hai scritto come URL 
ha poco senso, a meno che sotto la root dei documenti HTML tu abbia 
tutto l'albero usr/home/... (il che sarebbe a dir poco criminale)
Il succo e' che non puoi distribuire documenti che siano al
di fuori della radice del tuo albero di documenti (che schifo di
definizione!!!).
Se in un CGI devi utilizzare file che stanno sul server, devi metterli in
una directory nell'albero di documenti.
Tra l'altro, continuo a non vedere alcuna connessione con Perl, per cui
conviene che queste richieste le fai ad un newsgroup in cui si parla di
server HTTP (o di CGI)
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

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

 ghostbuster) non bisogna _mai_ incrociare i tag ;-))
Lo so, sono OT...
MA QUESTA E' BELLISSIMA !!!
--
Alex Garbagnati, 
al...@remove.this.messagemedia.com
Manager, Database Development
MessageMedia
Mountain View, CA  94043
Newsgroup: it.comp.lang.perl
Titolo: cgi e timeout

Ciao a tutti, sto cercando di fare girare uno script perl per una pagina
in CGI. Il fatto è che questo script è particolarmente lento (deve fare un
sacco di robe prima di visualizzare i risultati), e tipicamente il browser
supera il timeout e rompe la connessione.
Mi chiedo: e' possibile, dal server, magari direttamente dallo script,
controllare il timeout del browser che sta cercando di leggere la pagina?
Grazie 
dawe

  >>>>> "d" == dawe writes:
  d> Ciao a tutti, sto cercando di fare girare uno script perl per una
  d> pagina in CGI. Il fatto è che questo script è particolarmente
  d> lento (deve fare un sacco di robe prima di visualizzare i
  d> risultati), e tipicamente il browser supera il timeout e rompe la
  d> connessione.  Mi chiedo: e' possibile, dal server, magari
  d> direttamente dallo script, controllare il timeout del browser che
  d> sta cercando di leggere la pagina?
Potresti tentare un approccio differente, se la situazione lo
consente. 
Se fai eseguire lo script ad intervalli di tempo ragionevoli e salvi i
risultati in un file, allora il cgi dovrebbe soltanto ricavare questi
dati e mostrarteli, senza alcun problema di timeout.
Ciao,
nico



Avevo lo stesso problema e ho risolto con un fork (system).
CGI_1.pl crea una pagina HTML che dice che il processo e' stato
lanciato.
CGI_1.pl genera il processo P.pl che dura n ore.
La pagina HTML si autoaggiorna chiamando il CGI_2.pl che controlla
se l'esecuzione del processo e' finita (ci sono molti modi per farlo, io
ho uso un file che viene generato da P.pl prima di terminare, che
contiene i risultati del processo).
E' un po' laborioso ma non ha nessun punto debole (per lo meno i
miei utenti non ne hanno trovato alcuno in 2 anni circa).
 Raffaello

 contiene i risultati del processo).
Ecco, questo vorrei fare anche ma non mi è chiaro come fare
l'autoaggiornamento.
Grazie, comunque
dawe

 l'autoaggiornamento.
Ci sono 2 modi
1- usare javascript
   (body onload)
2- con il meta-tag html
   <meta = HTTP EQUIV = "refresh"  content = "10, pagename.html">
 Raffaello

Newsgroup: it.comp.lang.perl
Titolo: istallare win32::api

dove trovo e come faccio a istallare il modulo win32::api sotto windows2000?
grazie
--------------------------------
Inviato via 
http://usenet.libero.it

 dove trovo e come faccio a istallare il modulo win32::api sotto windows2000?
il sito di Aldo Calpini è 
http://dada.perl.it
 dove trovi il modulo.
Per installarlo, quando sei connesso ad internet, da console scrivi:
ppm install --location=
http://dada.perl.it/PPM
 win32-api
 
-- 
$_=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
Newsgroup: it.comp.lang.perl
Titolo: popup CGI

Ciao,
volevo chiedervi se qualcuno di voi sa come si fa a rendere inattivo
un menů a tendina(popup_menu) fatto in CGI perl?
Ciao e grazie.

 Ciao e grazie.
guarda l'output del tuo cgi ... questione di html :P
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************

Newsgroup: it.comp.lang.perl
Titolo: modulo Net::Rexec

Avendo bisogno di lanciare comandi remoti da uno script perl, ho pensato di
usare il modulo in oggetto scritto da Fila Kolodny. L'ho gia' scaricato,
installato e provato. Funziona, ma per curiosita' ho dato un sguardo
all'unico file del modulo: Rexec.pm. E' molto piccolo (meno di 100 righe) e
ho notato che nell'unica subroutine "rexec", usa dei die() in caso di
errore. Ma non e' forse un po' "maleducato" che un modulo (una libreria di
funzioni/classi, intendo) faccia uso di un brutale die ? Esiste qualche
altro modulo per rexec migliore in giro ? (non ne ho trovati altri)

uso di un brutale die ?
Se sia maleducato non so, comunque dovresti riuscire a gestire gli errori
chiamando la routine del modulo all'interno di un blocco eval.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: or esclusivo

Salve a tutti,
devo programmare un dialogo  via porta seriale fra un computer (A) e una
periferica (B), i "messaggi" fra questi due apparecchi sono standardizzati
dalla periferica (B).
Tali messaggi sono delle stringhe composte da alcuni caratteri esadecimali
(di controllo) e ASCII (i dati veri e propri).
Tutti i messaggi sono corredati da un byte di controllo (LUNGHEZZA=1), ora:
cosa vuole dire CALCOLARE L'OPERAZIONE DI "OR" ESCLUSIVO SU TUTTI I BYTE DEL
MESSAGGIO ASSUMENDO COME BASE DI CALCOLO 7f ?
ovvero, in pratica a quale calcolo corrisponde?
Grazie.
Daniele

 MESSAGGIO ASSUMENDO COME BASE DI CALCOLO 7f ?
La frase non e' chiarissima, ma secondo me significa che occorre
"mascherare" i 7 bit meno significativi di ciascun carattere e fare un "or
esclusivo' su tali bit. Ad esempio il codice seguente:
@allchars = split //, $message;		# allchars ha un carattere di
					# $message per elemento
$result=0;
foreach $c (@allchars) {
	$result ^= (ord($c) & 0x7f);
}
NOTA: puo' darsi che un uso accorto di "grep" consenta di fare tutto con
una sola istruzione ...; anche con unpack penso si possa fare meglio,
comunque il codice sopra e' piu' comprensibile.
Buon anno,
						l.f.
PS: gira, ma non l'ho verificato ...
--------------------------------------------------------------------------
       -- )     Luca Fini                            Tel: +39 055 2752 307
 ___    |\      Osservatorio Astrofisico di Arcetri  Fax: +39 055 2752 292
/   |   | |-_   L.go E.Fermi, 5 +-----------------------------------------
(___|___//___)  50125 Firenze  /   WWW: 
http://www.arcetri.astro.it/~lfini
 (_)      (_)   Italia        / e-mail: 
lf...@arcetri.astro.it
-----------------------------+--------------------------------------------
                              In a world without fences - who needs GATES?
Newsgroup: it.comp.lang.perl
Titolo: Leggere una parte di una stringa

Dovrei creare una sottostringa (che contiene tutto eccetto gli ultimi
4 caratteri) da una stringa. Quale istruzione devo usare in Perl?
Grazie.

 4 caratteri) da una stringa. Quale istruzione devo usare in Perl?
substr:
perldoc -f substr
$miastringa="pippopluto";
print substr($miastringa,0,-4)."\n";
-- 
$_=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

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

Dovrei creare un file html partendo da un template.
Utilizzo il modulo HTMLTMPL che mi visualizza il contenuto
della pagina html sul browser.
Io vorrei poter creare un file e non visualizzare il risultato sul browser.
Il tutto utilizzando i metodi del modulo HTMLTMPL.
Ciao....



Non ho mai usato questo modulo in vita mia, ma č bastata una rapida
occhiata alla documentazione per individuare il metodo che ti serve:
  htmlString()
   Returns a string of html produced by merging the data passed to the
   HTMLTMPL instance with the template specified in the src() method. No
   http headers are sent to the output string.
Max
Newsgroup: it.comp.lang.perl
Titolo: Perl e la comunicazione tra processi

Ciao a tutti,
prima di tutto sto cercando documentazione (libri e/o formato
elettronico) riguardante l'IPC (soprattutto i socket), ho "Programming
in Perl" e ho consultato le man pages di perlIPC ma gli esempi che
vengono fatt sono un po' semplici.
Ho sentito parlare di "Advenced Perl Programming" e volevo sapere se
qualcuno lo ha visto e mi sa dire qualcosa.
Il secondo motivo di questa lettera e' inerente appunto all'IPC.
Mi sto divertendo a scrivere una applicazione server che si mette in
ascolto su una certa porta e prende in input pochi e semplici comandi da
un client.
Sia "Programming in Perl" che le man pages scrivono che e' importante
per un server multithread prevenire gli zombie e, per far cio', scrivono
il seguente codice:
--------------------
sub REAPER {
    $waitedpid = wait;
    $SIG{CHLD} = \&REAPER;  # loathe sysV
    logmsg "reaped $waitedpid" . ($? ? " with exit $?" : '');
}
$SIG{CHLD} = \&REAPER;
for ( $waitedpid = 0;
      ($paddr = accept(Client,Server)) || $waitedpid;
      $waitedpid = 0, close Client)
{
    next if $waitedpid and not $paddr;
    my($port,$iaddr) = sockaddr_in($paddr);
    my $name = gethostbyaddr($iaddr,AF_INET);
    logmsg "connection from $name [",
    inet_ntoa($iaddr), "]
                       at port $port";
    spawn sub {
 print "Hello there, $name, it's now ", scalar localtime, $EOL;
 exec '/usr/games/fortune'           # XXX: `wrong' line terminators
     or confess "can't exec fortune: $!";
    };
}
sub spawn {
    my $coderef = shift;
    unless (@_ == 0 && $coderef && ref($coderef) eq 'CODE') {
 confess "usage: spawn CODEREF";
    }
    my $pid;
    if (!defined($pid = fork)) {
 logmsg "cannot fork: $!";
 return;
    } elsif ($pid) {
 logmsg "begat $pid";
 return; # I'm the parent
    }
    # else I'm the child -- go spawn
    open(STDIN,  "<&Client")   || die "can't dup client to stdin";
    open(STDOUT, ">&Client")   || die "can't dup client to stdout";
    ## open(STDERR, ">&STDOUT") || die "can't dup stdout to stderr";
    exit &$coderef();
}
---------------------
Il mio problema e' che vorrei che il figlio ascoltasse il comando del
Client, chiudesse la connessione e facesse altre cose; ma non sono
riuscito a chiudere la connessione, le azioni successive vengono fatte
mentre il Client e' in attesa.
Come posso fare?
Ciao
Luca Satolli

 qualcuno lo ha visto e mi sa dire qualcosa.
Ciao Luca,
capiti a fagiolo!
si dà il caso che abbia appena ritirato in libreria
il suddetto "APP". Su 
http://www.ora.com
 puoi trovare
l'indice del libro mi pare.
Non l'ho ancora letto, ma (ditemi se sbaglio) non c'è
una sezione dedicata all'IPC.
Comunque su O'Reilly puoi sicuramente trovare il
libro che fa per te, se non ti bastano le man,
le faq e i doc. ;)

 una sezione dedicata all'IPC.
Mi pare che l'IPC sia discretamente trattata nel Perl Cookbook, con un po'
di esempi su come fare un client, un server, ecc. ecc.
Probabilmente riesci perfino a trovare on-line tutti gli script di esempio.
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: Informazioni

Salve,
sono venuto a conoscenza solo ieri dell'esistenza di questo NG, e la cosa mi
riempie di piacere in quanto in Italia il Perl non sembra tanto diffuso.
Programmo in Perl da circa un anno e ho acquisito una certa esperienza nell'
interazione di questo con server SQL quali Mysql.
Mi piacerebbe sapere se qualcuno ha esperienze in ambito , per avere un
termine di paragone in termini retributivi in quanto mi è stato chiesto da
una ISP di sviluppare pagine dinamiche appunto in Perl.
Spero di non seccarvi con queste domande non tecniche e vi ringrazio in
anticipo se mi risponderete anche in privato.
qui Doc, passo e chiudo.

una ISP di sviluppare pagine dinamiche appunto in Perl.
Non e` semplice definire dei prezzi, dipende da che tipo di pagine devi
sviluppare. Di cosa si tratta di preciso?
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/

 Michele.
Si tratta di programmi per gestire annunci memorizzati in database di tipo
Mysql.
Ad esempio come la tesina che ho realizzato per un esame che si trova a
http://ieee.dees.unict.it/cgi-bin/tesina.pl
 che credo sia un esempio
classico di utilizzo del Perl.
Tu hai avuto già esperienze di lavoro?


Tu hai avuto già esperienze di lavoro?
Ho gia` installato svariati programmi di questo tipo, anche se l'offerta
che ho fatto comprendeva sempre la realizzazione globale del sito.
Comunque sia, per un software di annunci (che devi scrivere una volta sola,
immagino) potresti chiedere... chesso`... mezzo milione? Poi dipende
da quanto devi lavorarci intorno per adattarlo all'esigenza specifica.
	Michele.
P.S.: Stiamo un tantino esulando dall'argomento del newsgroup. Possiamo
continuare la discussione privatamente o it.professioni.webmaster.


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

Sono un novellino in Perl perciò scusate la mia ignoranza...
Vorrei creare un database semplice (tipo elenco telefonico),
e vorrei interfacciarlo al web.
A dire la verità non sò neppure da che parte iniziare e non sò neppure
se Perl è lo strumento di cui ho bisogno per raggiungere il mio scopo.
Qualcuno saprebbe delucidarmi ed eventualmente illustrarmi alcune
varianti alla mia richiesta?
Grazie

 wrote in message
7rktt3$67l$1...@pollux.ip-plus.net...


 varianti alla mia richiesta?
Dipende da quante colonne devi gestire, che tipo di chiavi vuoi usare e se
queste chiavi possono o meno essere duplicate.
Per due colonne e chiavi non duplicate, con non troppe entry (qualche
migliaio?), un DBM puo' andare bene, ad esempio il DB_Berkeley gestito dal
modulo DB_File.
Per situazioni piu' complesse, puoi cercare di usare MLDBM e/o di smazzarti
tu tutto l'overhead di ricerca e gestione delle colonne, oppure 
appoggiarti su database vero con query SQL e usare i moduli DBI. In questo
caso puoi provare MySQL o Postgres (che sono relativamente free).
In ogni caso, non ci dovrebbero essere problemi ad interfacciare il database
via web.
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: Ancora sulle date

Ciao a tutti.
Dopo avervi chiesto come recuperare una data secondo l'ora italiana, ora
faccio il mio grande rientro con quest'altra domanda legata sempre alle
date.:
Come faccio a capire che giorno era ieri? O due giorni fa?
Poniamo il caso che oggi sia il 25/07/2000. Iei sarebbe stato il 24/07/2000.
Ma, per esempio, se oggi fosse l'1 etc etc? Come si fa?
E se fosse più di un giorno indietro?
Grazie mille!
--
Umberto Meroni
[
http://www.ubi1k.com
] [
http://www.ubi1k-vb.net
]
[Come contattarmi: 
http://www.ubi1k.com/meroni
]
---
In a world without fences, who needs gates?
---

 
	localtime( time() - $quanti_giorni * 86400 );
Newsgroup: it.comp.lang.perl
Titolo: domande su send mail

salve, ho provato a usare il send mail che c'č nelle faq di 
perl-it.org
(quello piů semplice...)
adesso vi espongo il problema...
io volgio inviare una mail tramite un form...
1 come faccio a formattare il testo???
2 č possibile spedire in html??
3 all'inizio della mail mi mette sempre un "coso" cosě | come fo a
toglierlo???
grazie 1000!
Francesco

 toglierlo???
è un errore delle faq, basta togliere dalla linea:
print MAIL "Subject: Test\n\n|";
il simbolo |
Praticamente la linea diventerà così:
print MAIL "Subject: Test\n\n";
Spero di esserti stato di aiuto, non rispondo alle altre domande perché non
essendo un esperto non vorrei scrivere delle cavolate!!!
Ciao
SK

il simbolo |
Grazie per la segnalazione, ho corretto la FAQ.
	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!

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

Com'è l'indirizzo completo di 
perl-it.org
?
Semplice:
http://www.perl-it.org
;)


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

scusate la domanda. dove posso trovare una buona guida on-line di perl per
window. ho notato che lo stesso script non  funziona indistintamente su
linux e winxp. usando la stessa versione dell'interprete
grazie e auguri
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.556 / Virus Database: 348 - Release Date: 26/12/2003

 linux e winxp. usando la stessa versione dell'interprete
Il Perl è multipiattaforma. Tuttavia non sei stato molto loquace in merito al
tuo script! :-) 
Comunque, in genere quando si affronta la portabilità di script UNIX/Windows ci
si scontra con le seguenti problematiche:
1. Differenza dei file system
2. Comandi di sistema che esistono solo in UNIX
3. Perl features non implementate nel porting
Nel caso di ActiveState, qui trovi utili info:
 
http://aspn.activestate.com/ASPN/Reference/Products/ActivePerl/lib/Pod/perlport.html
 
Poi ti consiglio sempre la lettura di: 
 
http://aspn.activestate.com/ASPN/Reference/Products/ActivePerl/RELEASE.html
 
http://aspn.activestate.com/ASPN/Reference/Products/ActivePerl/CHANGES.html
 
relativamente alla build che stai usando.
by
	- Enrico

Newsgroup: it.comp.lang.perl
Titolo: Premmetto che non ci capisco niente di Perl!

Fatta  questa premessa avrei bisogno di un programmino che mi faccia una
cosa un po' particolare.
Io vorrei creare una pagina unica per visualizzare tutte le immagini che
sono nel mio sito e utilizzare un programma CGI per sostituire all'interno
di questa pagina standard l'indirizzo dell'immagine.Mi spiego meglio.
Io vorrei creare una pagina di nome foto.htm e uno script con nome ad es.
go.cgi
Chiamando il file go.cgi da una pagina con le thumbnail
tipo go.cgi?/dir1/dir2/foto1.jpg il programma dovrebbe aprire il file
foto.htm e inserire l'indirizzo in una posizione stabilita.Non so se è
possibile o se esiste gia qualcosa del genere in giro. Ringrazio
anticipatamente che mi aiuterà


Newsgroup: it.comp.lang.perl
Titolo: Download corso di dakkar, dove?

Ciao a tutti,
tempo addietro mi par di ricordare che qui si posto' il link del
seguente video di dakkar:
http://www.devtv.eu/wp/2009/04/gianni-ceccarelli-corso-introduttivo-perl/
per scaricarlo e guardarlo off-line
Qualcuno lo ricorda?
Grazie :)

 Qualcuno lo ricorda?
no, ma da una rapida occhiata ai sorgenti della pagina html, penso che il
video sia banalmente qui
http://flashserver.micso.it/ipw2008/gianni_ceccarelli_-_corso_introduttivo_perl.f4v
-- 
By ZeD

 By ZeD
Perfetto, ti ringrazio :)

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

Sono ad un punto cruciale nella costruzione del mio sito:
devo realizzare la sezione "Area Rivenditori", con l'autenticazione per
l'accesso.
La mia domanda e' questa, limito la visibilità di questa sezione impostando
gli utenti nel web server, oppure effettuo una gestione degli utenti da
codice?
P.S.: le variabili d'ambiente CGI REMOTE_IDENT, e REMOTE_USER come si
impostano?
Grazie, Marco.

impostano?
Te le imposta i web server.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

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

Sono riuscito finalmente a installare 5.8.0 su solaris. Quando uso CPAN
shell, qualunque comando gli do, fa questo:
======================
CPAN: Storable loaded ok
Going to read /home/4pro/.cpan/sources/authors/01mailrc.txt.gz
Going to read /home/4pro/.cpan/sources/modules/02packages.details.txt.gz
  Database was generated on Sat, 09 Nov 2002 21:53:39 GMT
  HTTP::Date not available
  There's a new CPAN.pm version (v1.63) available!
  [Current version is v1.61]
  You might want to try
    install Bundle::CPAN
    reload cpan
  without quitting the current session. It should be a seamless upgrade
  while we are running...
Got SIGTERM, leaving
======================
c'è qualche UNIX-guru che mi sa dire cosa succede e come si potrebbe
risolvere?
GGGGRAZIE
--
-.. --- -- .. --.. .. ---
-.. . -- .. -.-. .... . .-.. .. ...

 Got SIGTERM, leaving
significa che il processo si è beccato un segnale per uscire, probabilmente
mandato da un kill process messo su da quegli str...i che mi ospitano
(pagando fior di quattrini).
il SIGTERM però si può trappare, così bisogna andare a modificare il modulo
CPAN e sostituire il $SIG{TERM} = sub{ ...}
con un più civile ed amichevole:
$SIG{TERM} = 'IGNORE';
Così mi installo tutto quanto mi occorre con CPAN alla faccia di quei bravi
signori!!!
VIVA PERL, VIVA LA FIGA!
(comunque "figa" si può dire, non è pubblicità, basta non dire di chi è ;-)
