mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: istallare perl su windows: come?

Vorrei istallare il perl su windows: come fare?
dove prendere la versione per win?
Grazie in anticipo, MArio.

C'č la versione di activestate, dai una occhiata al link sotto, dovresti
trovare un modo per scaricarlo. Strano che tu non l'abbia trovato il link č
annche sul sito download di 
perl.com
, ma l'hai almeno cercato ?
http://www.activestate.com/Products/Download/Register.plex?id=ActivePerl

Newsgroup: it.comp.lang.perl
Titolo: Errore 500

Ho un problema ho creato uno script :
#!C:/perl/bin/perl
my $c = new CGI::Cookie(-name    =>  'foo',
                        -value   =>  ['bar','baz'],
                        -expires =>  '+3M');
print "Set-Cookie: $c\n";
print "Content-Type: text/html\n\n";
Ma non funziona mi dice errore 500 e se vado a leggere il log di apache mi
dice:
C:\Programmi\Apache Group\Apache\Apache.exe: [Fri Jun 23 18:01:02 2000]
[error] [client 127.0.0.1] Premature end of script headers:
c:/html/cgi-bin/c2.cgi

 
my $c = $query->cookie(-name	=>	'foo',
		       -value	=>	['bar','baz'],
		       -expires	=>	'+3M');
 print "Set-Cookie: $c\n";
 print "Content-Type: text/html\n\n";
Ovviamente, prima devi aver definito qualcosa tipo 
$query = new CGI;
Ciao
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

 wrote in message gkf0j8...@127.0.0.1...


 wrote in message
8j4s74$oel$1...@lacerta.tiscalinet.it...


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

Newsgroup: it.comp.lang.perl
Titolo: File upload

Ho fatto uno script che mi inserisce il contenuto di una form in un file di
testo. Nella form html ho inserito anche un campo file browser (FILEPATH) e
vorrei fare in modo che il file mi venisse caricato sul server.
Suppongo che debba essere traferito come binario e inserito in un array...
come posso fare questi due passaggi?
maxo



La tua descrizione è un po' criptica e forse hai messo insieme un po' di
cose diverse ;-)
Esiste la possiblità di inviare un file direttamente da FORM
(e ormai tutti i browser la supportano):
<FORM ACTION="
yourscript.pl
" ENCTYPE="multipart/form-data">
<INPUT NAME="uploadfile" TYPE="file"">
</FORM>
Nota l'attributo ENCTYPE (encryption type) che consente di impostare 
il MIME content-type a "multipart/form-data" per la codifica (MIME appunto)
del file. Senza questo, al submit della form, non verrà inviato l'attachment.
Il tipo del controllo invece è 'FILE' e non FILEPATH (??).
Lo script chiaramente deve poi ricomporre il/i file inviato/i
mediante le opportune funzioni (librerie CGI e/o Apache::Upload per la
versione mod_perl nativa)
by
	- Enrico
Newsgroup: it.comp.lang.perl
Titolo: Puntatori ad array

Salve a tutti.
Sto usando il modulo Net:NNTP.
Mi connetto senza problemi al server news.
Il problema è quando recupero l'header di un articolo.
Ingenuamente facevo:
@header=$nntp->head($id);
ma non riesco in nessun modo a utilizzare i dati, per esempio a
scriverli tutti:
for ($i=0; $i<=$#header; $i++) {
	print $header[$i];
}
In effetti la descrizione del metodo dice:
head([MSGID],[FH])
[...]
If FH is not specified then the return value will be a reference to an
array containing the hader requested, each entry in the array will
contain one line of the header.
[...]
Cosa è una "reference to an array", è un puntatore?
Come faccio ad utilizzare questa reference?
-- 
shoot me

 Come faccio ad utilizzare questa reference?
 my @array = ( 1, 2, 3, 4 );  # array
 my $ref = \@array;           # referimento ad array
  print $ref->[0];  # stampo primo elemento
  print ${$ref}[0]; # come sopra (sintassi alternativa)
  my @array2 = @{ $ref };  #copio @array in @array2
Per ulteriori dettagli: 
   perldoc perlref
Max

   my @array2 = @{ $ref };  #copio @array in @array2
Ti ringrazio per il chiarimento. Mi rimane ancora un dubbio: c'è un modo
per conoscere a priori la lunghezza dell'array pur avendone solo la
referenza (una cosa tipo $#{$ref} intendo)?
Ho fatto delle prove, ma l'unica soluzione che ho trovato è quella di
copiare tutto l'array in un altro e poi lavorare su quello.
Già che ci sono ne approfitto :)
Esiste un buon manuale free, in rete? Ho scaricato quello di Marco
Liverani, ma adesso cercavo qualcosa di più approfondito.
-- 
shoot me

 più approfondito.
In italiano, intendi? Boh.
In inglese trovi tutto quello che vuoi.
 
http://www.perldoc.com/
 
http://www.perl.com/pub/q/documentation
Max

Newsgroup: it.comp.lang.perl
Titolo: flock su windows

    Salve a tutti. Stavo sviluppando un'applicazione per un sito che deve
fare vari ingressi e uscite su file. Con letture e append nessun problema,
ma con le riscritture mi sono reso conto che ci potevano essere problemi con
eventuali accessi contemporanei. Volevo percio' lockare i file e da bravo
bambino prima di chiedere a voi ho letto sul manuale: la flock() pareva
essere la soluzione a tutti i miei problemi, peccato che Win98 non la
supporti. Ora in realta' lo script deve girare su un server NT e li' non so
se la flock e' supportata. In ogni caso: sapreste darmi una dritta su dove
andare a parare altrimenti? Grazie. Ho letto un po' di documentazione di
vari moduli ma non mi ha aiutato molto.
_dave_

...

Diversamente dal 98, Windows NT supporta completamente la flock.
Questo č un esempio dell'uso corretto della flock:
 
    my $state = eval { flock(FILE,1) };
    if ( $@ ) {
        warn "Questa piattaforma non supporta la lock!";
    }
    elsif ( ! $state ) { 
        close(FILE); 
        die "Errore: $!";
    }
Marco.
Newsgroup: it.comp.lang.perl
Titolo: Richiamo file

Grazie per il codice....
come oggetto metto quello che voglio.. Domizio Demichelis.... per tua
informazione il perl lo conosco un pochino :P non sapevo questo :$file =
"/path/to/my/file.txt; non sapevo che si poteva mettere un percorso.... come
valore di una variabile.
č tutto
 grazie Guido
Cmq peccato che sei di napoli

 Cmq peccato che sei di napoli
Che significa "peccato che sei di Napoli" ??
razzismo o battuta? no, scusa, voglio sapere... cosi' mi preparo la
risposta.

 Cmq peccato che sei di napoli
con quello che hai appena scritto dimostri le seguenti cose:
1. scrivendo "come oggetto metto quello che voglio.." dimostri di essere
abbastanza sbruffone e tonto da non tentare nemmeno di capire come funziona
un newsgroup, quindi puoi scordarti che ti scriva altre risposte, e anzi,
pubblicamente invito tutti quelli del gruppo a fare altrettanto. Spero che
ric_pa...@hotmail.com
 sia bandito dal gruppo... sono sicuro che non
fregherà niente a nessuno, ma spero che almeno dovrai usare un'altro
indirizzo :-)
2. scrivendo
"per tua informazione il perl lo conosco un pochino :P non sapevo questo
:$file = "/path/to/my/file.txt; non sapevo che si poteva mettere un
percorso.... come valore di una variabile."
dimostri di non sapere praticamente un cazzo non solo di perl, ma di non
avere nemmeno la minima base di nessun linguaggio.
Questo non è una colpa, ma lo diventa quando invece di chiedere COME puoi
studiare le cose che non sai, semplicemente chiedi ad altri di risolvertele.
Magari hai creduto di bluffare tirandotela che tu sai tutto MENO questo, ma
a tutti quelli del gruppo è fin troppo chiaro che è una palla perché se non
sai che puoi mettere un percorso in una variabile, non solo va da sé che non
hai mai usato open e un casino di altre funzioni che accettano una path, ma
non sai proprio un cappero di programmazione!
3. scrivendo "Cmq peccato che sei di napoli" hai dimostrato che rispondere a
un tuo messaggio è solo una perdita di tempo, perché anche se fosse solo una
battuta sarebbe tanto di cattivo gusto che davvero non varrebbe nemmeno la
pena di risponderti!
4. per finire, con la tua impostazione mentale non imparerai mai un cazzo
che valga la pena, e questo è il "castigo" che hai liberamente scelto e che
continuerai ad infliggerti (anche se tu non te ne potrai mai nemmeno rendere
conto) :-)
Auguri
Domizio Demichelis

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

Domanda da neofita:
dove sono le FAQ del gruppo?
Grazie
--
"I cretini sono sempre piu' ingegnosi delle precauzioni che si prendono
per impedirgli di nuocere" (dalle leggi di Murphy)

 wrote in message
382F310F...@flashnet.it...

Newsgroup: it.comp.lang.perl
Titolo: Come lanciare uno script in automatico

Devo realizzare uno script che mi manda una e-mail nel giorno indicato
dall'utente. Faccio un esempio: l'utente desidera ricevere una e-mail il
giorno 2/10 che gli ricordi del compleanno di un amico. Come faccio a
"lanciare" in automatico lo script per spedire l'e-mail alla mezzanotte del
2/10?
--
Posted from 
adamo5.supereva.it
 [195.110.96.111] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

man cron
 
--
------------------------------------------------------------
Fabrizio Sebastiani, 
http://web.tiscalinet.it/fsebasti
 
mailto:
fseb...@europe.com
 
------------------------------------------------------------
 
 

ho letto che cron va ad interrogare un file, CRONTAB, dove sono richiamati
gli script da lanciare (più o meno).
Ora, come faccio ad editare il file CRONTAB per inserire il nome e quando va
lanciato il mio script?
So che il comando è crontab -e, ma da dove lo do questo input?
--
Posted from 
adamo7.supereva.it
 [195.110.96.112] 


So che il comando è crontab -e, ma da dove lo do questo input?
da un terminale
-- 
     #@@@ missinglink on slackware 7.1 ###
     ####       member of telug        #@@
 

Attenzione però, non tutti i provider autorizzano l'uso di cron!
Chiedi al tuo provider
Il mio, per esempio, non lo fa... :-(
"tango" <ta...@louisiana.jazz> ha scritto nel messaggio
news:slrn8trcl...@louisiana.jazz...


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

Come si fa a criptare una password tramite una cgi?
Ovvero mi spiego meglio.
Ho una database dove inserisco degli users con una password. Allo stato
attuale il campo è in chiaro e si vedono benissimo le password. Volevo
trasformare come le password presenti nel .htaccess
Marco

 Volevo trasformare come le password presenti nel .htaccess
 perldoc -f crypt

 attuale il campo č in chiaro e si vedono benissimo le password. Volevo


Newsgroup: it.comp.lang.perl
Titolo: File TXT

Ciao a tutti ..come faccio  a leggere e modificare un file di testo .txt ?
Scusate ma sono proprio nuovo di Perl
Grazie
Emanuele

 Scusate ma sono proprio nuovo di Perl
www.html.it
oppure se sei sotto Linux... man perlopentut
man perl sempre e cmq...
-- 
Wiz of Id a.k.a. William Ghelfi
E-Mail: < mailto:
w...@galactica.it
 >
Web Site: < 
http://web.tiscalinet.it/penguin_rules/
 >

Newsgroup: it.comp.lang.perl
Titolo: Domande sui moduli

Ho una funzione in un modulo che mi ritorna il contenuto di un file. 
La funzione in questione prende come parametro il path per il file ed un 
valore tipo 0 o 1 se bisogna usare il flock. 
Il modulo di tipo DIR::
MODULE.PM
 risiede in un altra directory rispetto 
allo script che lo invoca,devo quindi passargli un path assoluto per 
accedere al file o il path a partire dalla dir di dove risiede lo 
script.cgi in cgi-bin? (il file da accedere sta in una dir dentro 
cgi-bin). 
la chiamata use Fcntl qw(DEFAULT :flock); la devo fare all'inizio del 
mio modulo oppure all'inizio dello script.cgi 
Grazie!

domanda stupida...risolto tutto...BUONE VACANZE!!!!!!!!!!
Newsgroup: it.comp.lang.perl
Titolo: Michele Beltrame... sei un mito!!!!

Funziona!
#!/usr/bin/perl
print "Content-type:text/html\n\n";
use CGI;
$q = new CGI;
print $q->param('Cosa_pensi');
print $q->param('altro');
print $q->param('prova');
Bye
F.

 wrote in message 8q8ppl$7cb$1...@news.IT.net...


prendere i dati dei form!:
<FORM ACTION=
http://www.xxx.com/code/cgi-bin/form.cgi
 METHOD=POST>
<B>PROVA</B>
<SELECT size=1 cols=4 NAME="Cosa_pensi">
<OPTION selected Value=nessuna>
<OPTION value=ottimo> Ottimo
<OPTION value=Discreto> Discreto
</select>
<B>Tipo</B>
<SELECT size=1 cols=4 NAME="Cosa_pensi">
<OPTION selected Value=nessuna>
<OPTION value=1> sell
<OPTION value=0> buy
</select>
<B>altro </B><input type=text name="altro" size=10>
<INPUT TYPE=SUBMIT VALUE="Spedisci"><INPUT TYPE=RESET VALUE="Cancella">
</FORM>

Newsgroup: it.comp.lang.perl
Titolo: Liste e foreach

Salve a tutti da un niubbo completo di PERL.
Questa mattina, installando il Samba 2.2.8 (con supporto VFS) mi sono
imbattuto in uno script perl per la cancellazione dei file datati dalla
cartella .recycle.
Fin qui niente di particolare. Ho notato però, che avviandolo non funziona
bene. Dopo una serie di analisi ho capito che dato il seguente codice:
@a = 'find /public/ iname .recycle";
foreach $file (@a)
{
    @m = 'find "$file" iname .recycle";
.....
mi restituiva errore perchè $file contiene EOL.
Come lo elimino da $file? Dalla documentazione non ho capito nulla delle
RegExp in Perl.
Thx


Ciao, puoi usare la funzione chomp():
@a = 'find /public/ iname .recycle";
chomp (@a);
foreach $file (@a)
{
     @m = 'find "$file" iname .recycle";
     chomp (@m);
.....

 Ciao, puoi usare la funzione chomp():
Per completezza, segnalo anche l'esistenza di chop(), che altro non e` che
la versione un po' piu` "stupida" di chomp().
La prima taglia l'ultimo carattere delle stringa (e lo torna),
indipendentemente da quale sia. 
La seconda verifica la presenza del contenuto della variable $/
(solitamente \n sotto Unix, un \r\n sotto Windoze) e, in caso positivo,
lo toglie dalla stringa, ritornando il tumero di caratteri eliminati.
Michele.
Newsgroup: it.comp.lang.perl
Titolo: data oggi e domani

Come faccio a mostrare la data di oggi in una pagina creata al
volo con uno script perl/cgi?
C'e' un modo per calcolare anche la data di domani?
Grazie,
Mario
* Sent from RemarQ 
http://www.remarq.com
 The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!

Diablito <diab.lit...@usa.net.invalid> wrote in message
0b4ab752...@usw-ex0106-046.remarq.com...

Ciao,
lo script seguente visualizza la data (gg/mm/aaaa) attuale al meridiano di
Greenwich. Se vuoi settarla sul fuso italiano basta che cambi la riga dove
si preleva time così:
$oggi_sec = time + 3600;
blavoro, Ezio BOnsi
#!/perl/bin/perl
$oggi_sec = time;
# time restituisce il numero di secondi trascorsi dal 1/1/1970,
# al valore del meridiano di Greenwich
$oggi_gg = (gmtime($oggi_sec))[3];
$oggi_mm = (gmtime($oggi_sec))[4]+1;
$oggi_aa = (gmtime($oggi_sec))[5]+1900;
$domani_sec = $oggi_sec + 84000;
$domani_gg = (gmtime($domani_sec))[3];
$domani_mm = (gmtime($domani_sec))[4]+1;
$domani_aa = (gmtime($domani_sec))[5]+1900;
print "Content-type:text/html\n\n";
print "<html><body>\n";
print "Oggi: $oggi_gg/$oggi_mm/$oggi_aa<br>\n";
print "Domani: $domani_gg/$domani_mm/$domani_aa<br>\n";
print "</body></html>\n";
PS: usando gmtime puoi ricavare anche:
secondi, minuti, ore, giorno della settimana, giorno dell'anno.
Vedi la documentazione per maggiori dettagli.
Newsgroup: it.comp.lang.perl
Titolo: [NEWBIE]Scusate

ma sono proprio ingnorante in materia......vorrei studiare un po di CGI sul
mio personal e per farlo ho installato "APACHE"...il sola non parte su
Win98! E disgrazzia ........anche Perl!
Che dovrei fare? Mettere Win 2000 server? E come faccio a farlo "campare"
assieme a Win98 (non vorrei reinstallare tutto)
Vi ringrazioo infinitamente........ciao Emanuele

 ha scritto nel messaggio
news:uZN3qnA...@cwnts22.ciaoweb...


Grazie caro...

Newsgroup: it.comp.lang.perl
Titolo: una sottostringa

Esiste una 're' per estrarre da una stringa una sottoscringa contenuta
tra due caratteri?
es.    [ ciao mamma ]
io vogli 'ciao mamma'....
--
Maximiliano Bonfiglio
mailto:
mbon...@flextel.it
FLEXTEL S.p.A.
http://www.flextel.it
Corso Vercelli 328
IVREA 10015 TO Italy
tel 39-125-235319
fax 39-125-252067

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

Marco Balestra wrote:

Ma ti credi tanto furbo?
Credi che debba anche sapere che vuol dire RTFM?
Allora se ti dicessi : VAFICBC cosa capiresti?
PS. Il tuo ultimo suggerimento era anche sbagliato visto che gli 'a capo'
non vengono considerati dal perl....


 non vengono considerati dal perl....
Leggo i post, ma quando qualcosa non mi funziona cerco di capire cos'e`
invece di aspettare la pappa pronta. BTW dipende che gli a capo non
vengano considerati dal Perl non e` cosa tanto automatica (dipende da
versione e piattaforma).
Per il resto, scorcia la firma e *plonk*


 > Credi che debba anche sapere che vuol dire RTFM?
Direi proprio di si!
FYI: 
http://sslmit.unibo.it/internet_glossary.html
Proporrei inviare al GCN una RFD per il newsgroup
   it.comp.duricomelepineverdi (e anche arroganti)
AFAIK non esiste ancora,
IMHO  sarebbe di incomparabile utilita' e
FWIW  io voto a favore.
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/

Newsgroup: it.comp.lang.perl
Titolo: aiuto x compilatore per Win

Ciao, qualcuno può dirmi dove trovare un compilatore Perl che giri sotto
Win?
Grazie!!!!


perl2exe (compilatore perl per piattaforme Windows)
http://www.dynamicstate.com/perl2exe.htm
Non ti assicuro il funzionamento, non l'ho ancora provato ....
Ciao!
Ezio BOnsi

 sotto Win?
  Per "compilatore" intendi un programma che generi un file eseguibile a
partire da codice PERL? Cerca sul sito dell'ActiveState:
 
http://www.activestate.com
e, probabilmente, troverai quello che trovi. ;)
	Alla prossima,
		Marco

Grazie Mille !!!!

Win?
http://www.perl-it.org/interprete.html
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!
Newsgroup: it.comp.lang.perl
Titolo: file ad accesso random

come e' possibile leggere un record qualsiasi da un semplice database di
testo...e scrivere un record qualsiasi?
grazie
Roby
ro...@jael.com

testo...e scrivere un record qualsiasi?
Potresti utilizzare la libreria DBM, inclusa col Perl. Per maggiori
informazioni batti:
perldoc DB_File
	Michele. 
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

Newsgroup: it.comp.lang.perl
Titolo: Image::Magick

Image::Magick non sempre si trova come libreria disponibile nei
server. Dato che l'accesso come superuser non è consentito non posso
istallare Image::Magick nella libreria. Cerco informazioni su come
istallare Image::Magick come libreria locale in una directory a
piacere. Ho già provato i metodi classici, non ci sono problemi a
riguardo, il problema è che Image::Magick ha bisogno una marea di
librerie proprie, una volta istallato Image::Magick devi lottare
contro i vari errori dovuti alla mancanza di sub specifiche. Ho
cercato le preziose informazioni sulla struttura di Image::Magick in
modo da ricostruire la libreria in modo corretto, ma non le ho
trovate. Qualcuno/a ha già affrontato il problema ?
Per completezza informo che ho già usato il metodo
use FindBin;
use lib "$FindBin::Bin/../lib";
use Image::ExifTool ':Public';
indicato dal cookbook. Funziona bene con ExifTool ma non con
Image::Magick.
Grazie in anticipo a chi voglia rispondere.

Oreste wrote:

Vedi se questo può esserti di qualche utilità:
http://studio.imagemagick.org/pipermail/magick-users/2005-October/016371.html
Ciao,
Emanuele.

 Emanuele.
Grazie mille, appena ho effettuato le prove darò informazioni su
questo post. Devo capire quali modifiche effetturare sotto Windows XP.
Ciao
Oreste
Newsgroup: it.comp.lang.perl
Titolo: Ricavare dimensione file jpg

Ciao a tutti,
qualcuno sa se sia possibile con Perl (ma eventualmente anche con altre
routine) ricavare le dimensioni in pixel di un'immagine .jpg o .gif?
Per favore rispondete a 
mat...@gate2000.com
Ciao
Matteo
Bologna

 .jpg o .gif?
  Probabilmente ti sara` utile conoscere le specifiche dei formati:
 
http://www.wotsit.org
	Alla prossima,
		Marco

Marco Natoni wrote:

Ancora piu' utile potrebbe essere il mail corrispondente all'indirizzo
sottostante:
http://www.niestu.com/gallery/rt-comp-admin/0297.html
che e' estratto dal piu' completo:
http://www.bloodyeck.com/wwwis/wwwis
cmq per brevita' riporto la routine per i jpg
sub jpegsize {
local($JPEG) = @_;
local($done)=0;
$size="";
read($JPEG, $c1, 1); read($JPEG, $c2, 1);
if( !((ord($c1) == 0xFF) && (ord($c2) == 0xD8))){
print "This is not a JPEG!";
$done=1;
}
while (ord($ch) != 0xDA && !$done) {
# Find next marker (JPEG markers begin with 0xFF)
# This can hang the program!!
while (ord($ch) != 0xFF) { read($JPEG, $ch, 1); }
# JPEG markers can be padded with unlimited 0xFF's
while (ord($ch) == 0xFF) { read($JPEG, $ch, 1); }
# Now, $ch contains the value of the marker.
if ((ord($ch) >= 0xC0) && (ord($ch) <= 0xC3)) {
read ($JPEG, $junk, 3); read($JPEG, $s, 4);
($a,$b,$c,$d)=unpack("C"x4,$s);
$size=join("", 'HEIGHT=',$a<<8|$b,' WIDTH=',$c<<8|$d );
$done=1;
} else {
# We **MUST** skip variables, since FF's within variable names are
# NOT valid JPEG markers
read ($JPEG, $s, 2);
($c1, $c2) = unpack("C"x2,$s);
$length = $c1<<8|$c2;
if( ($length < 2) ){
print "Erroneous JPEG marker length";
$done=1;
} else {
read($JPEG, $junk, $length-2);
}
}
}
return $size;
}
ATTENZIONE !!!!
Attenzione massima se si apre il file in ambiente DOS: bisogna aprirlo
in binario.
Non ricordo al volo come si fa ma nell'help di active perl e' riportato.
ema
Newsgroup: it.comp.lang.perl
Titolo: Far girare un server sul proprio PC

Salve!
Sarei interessato a eseguire un'applicazione CGI in locale cioč usando il 
mio PC come server.
Qualcuno puň spiegarmi come dovrei fare passo-passo?
Sono abbastanza inesperto, grazie!
-- 
Elminster 

 Qualcuno può spiegarmi come dovrei fare passo-passo?
Passo passo non saprei, comunque dovresti provare a informarti su IIS
( Internet Information Services ) per winzozz.
Che sistema operativo hai installato?
  Raffaello

 ( Internet Information Services ) per winzozz.
Anche ammettendo che l'OP usi Windows, perche` non usare Apache
anche in questo ambiente ? (preciso che e` una domanda non retorica:
ci sono vantaggi oggettivi nell'usare IIS in ambiente Windows per 
fare andare applicazioni CGI?)
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org/blog
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it

 ssituire il Perl.dll fornito e per far andare il Perl come cgi.
E' abbastanza facile con entrambi.
Sotto IIS 6 basta configurare bene le associazioni con i tipi di file.
Per Apache invece (sotto Linux, non lo uso con Windows) basta una sola 
direttiva scriptalias nel file di config. Poi basterà la classica riga 
#!/usr/bin/perl all'inizio di ogni cgi per richiamare l'interprete.
Lettura consigliata: documentazione del modulo "CGI" del Perl.

 fare andare applicazioni CGI?
Me lo feci installare da un collega dove lavoravo prima e non
ricordo di aver avuto fastidi.
L'installazione fu abbastanza veloce.
Di piu' non so ...
  Raffaello

Dai un'occhiata alla distribuzione XAMPP apachefriends. Anche se non 
hai esperienza riesci a mettere su una macchinetta di test su Windows 
piuttosto efficiente.
Ciao,
Daniele L

 Si puo'? Non lo sapevo.
Certo che si può :-)

Newsgroup: it.comp.lang.perl
Titolo: access e perl è possibile ?

come posso accedere ad un database access con il perl ?
Grazie
--
___________________________
e-mail : 
emiliop...@tiscalinet.it
___________________________


Io ho usato Win32::ODBC e mi sono trovato abbastanza bene.
Paolo
--
Posted from 
ns.alcanet.it
 [194.243.74.35]
via Mailgate.ORG Server - 
http://www.mailgate.org
Newsgroup: it.comp.lang.perl
Titolo: Ordinamento di una hash

Da quello che ho capito di perl,
diversamente dagli array  le hash 
non hanno alcuno ordinamento
predefinito.
Io ho creato una hash che descrive 
un calendario di attività avendo come 
chiavi le date e come argomento la 
descrizioni  delle attività.
es %hash = (	"Martedì 1 Dicembre" => "Gita";
		"Sabato 9 Dicembre"=> "Vacanza");
con un ciclo:
 foreach(keys %hash){....
ottengo quello che voglio perché ho inserito i dati nell'ordine
inverso a quello in cui voglio che siano poi stampati,
tuttavia mi sembra una procedura poco solida e 
d'altronde non posso usare il comando sort
in quanto l'ordinamento delle mie chiavi non è 
alfabetico.
Cosa posso fare ?
Devo istruire perl affinché analizzi le chiavi scomponendo
i numeri del mese e le ordini di conseguenza
o c'è qualche modo più semplice ?
____________________________
Alessandro Antonucci
af...@NOSPAMinwind.it
www.ilfarorosso.com

 o c'è qualche modo più semplice ?
Ma secondo te sort sort-a solo in ordine alfabetico?
Esempio (ovviamente non garantisco il *funzionamento*, ma l'*idea* 
dovrebbe essere funzionate):
%mesi={'Gennaio'=>1,
        'Febbraio'=>2,
        ....
        'Dicembre'=>12
        };
foreach(sort mysortfunc keys %hash) {
....
}
sub mysortfunc {
        @a=split(/\s+/,$a);
        @b=split(/\s+/,$b);
        $aa=$mesi{$a[2]}.$a[1];
        $bb=$mesi{$b[2]}.$b[1];
        return $aa <=> $bb;
}
-- 
Saluti,
Giancarlo

Newsgroup: it.comp.lang.perl
Titolo: memoria sistema

Buongiorno a tutto il NG,
una domanda: è possibile scaricare tutta la memoria di sistema una volta
finita l'esecuzione di un programmino??
Grazie a tutti Stefano

Stefano Barca scripsit:

Spiegati meglio, non ho assolutamente capito cosa vuoi fare....
Ciao
-- 
Leo TheHobbit |  I am the "ILOVEGNU" signature virus.  |
IRCnet #roma2 |     Just copy me to your signature.    |
ICQ 56656060  |This email was infected under the terms |
              |   of the GNU General Public License.   |a.d. XIV Kal. Mai. MMDCCLV AUC
Newsgroup: it.comp.lang.perl
Titolo: passaggio valori a cgi in perl

Ciao a tutti,
	ho fatto una applicazione web in php che ha un'area riservata a cui si 
accede tramite un login fatto in php.
Una volta avuto accesso all'area riservata è possibile tramite un form 
eseguire una cgi in perl che, tramite dei fork, si connette in ssh e poi 
restituisce i dati ritornati al browser.
Come posso pero' controllare dalla cgi venga eseguita solo se 
autenticati (e con i relativi permessi)? è possibile accedere alle 
variabili "speciali" come $_SESSION? posso impostare un cookie in php e 
poi leggerlo in perl? che metodo sicuro mi consigliate.
Grazie mille per l'aiuto,
  Alberto.


Ciao,
se non ricordo male, se usi le session in php, viene memorizzato sul
browser del client soltanto la chiave di sessione,
tutti i valori  delle varibili della sessione le trovi sul server in /
tmp/chive-sessione
Con i cookie dovresti riuscire tranquillamente a condividere
informazioni tra perl e php.
Ciao
Osvaldo

 che metodo sicuro mi consigliate.
Il metodo /sicuro/ sarebbe buttare php.
Un'alternativa è utilizzare l'applicazione Perl come applicazione di 
back-end invocata soltanto dal front-end php (che in pratica dovrebbe 
fungere da application-proxy), e non come cgi accessibile dall'esterno.
Questo però potrebbe complicarti le cose...
Ma oggi è il tuo giorno fortunato, perché stai per scoprire CPAN ;-)
Che ti offre sia un modulo per leggere/scrivere sessioni php (da Perl):
http://search.cpan.org/~miyagawa/PHP-Session/
sia un modulo per eseguire script o codice inline php (sempre da 
un'applicazione Perl).
Hai solo l'imbarazzo della scelta (però la soluzione migliore rimane la 
prima ;-)
Ciao,
Emanuele.

 un'applicazione Perl).
Oopss!
http://search.cpan.org/~gschloss/PHP-Interpreter/

Newsgroup: it.comp.lang.perl
Titolo: moduli per db III

vorrei evitare di inventare l'acqua calda
Esistono moduli per leggere files db3?
il mio problema di base:
ho un file SAS (lo conoscono in pochi, ma č un bel pacchettone software)
sotto unix
lo trasformo in dbIII e lo trasferisco sotto MS-Dos
da questo momento faccio lavori artigianali, piuttosto laboriosi e
insodisfacenti
alla fine voglio comunque un indirizzario in html
(i dati sono infatti un indirizzario)
per chi ne sapesse qualcosa: grazie
ciao (e buon lavoro a tutti)
antonio

 Esistono moduli per leggere files db3?
I vecchi cari DBF?
Da qualche parte ci sono delle funzioni per leggerli in binario.
Pero', se ricordo bene, DBD::XBase permette di leggere file DBF. Non so pero'
cosa faccia con gli indici NDX.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 "Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)
grazie maurizio per le solite utili dritte
ciao, antonio
Newsgroup: it.comp.lang.perl
Titolo: Come preparare le url

salve,
ho una stringa che contiene una url
$a = "
http://blablabla/it/index.html
";
in un'altra il link:
$b = "../en/index.html";
sapete se esiste un modo per fare una specie di $a+$b = 
"
http://blabla/en/index.html
" ?
Grazie :)

 "
http://blabla/en/index.html
" ?
in Perl ovviamente ;)

 "
http://blabla/en/index.html
" ?
Ti consiglio di provare a smanettare con i moduli URI e URL.
Ad esempio:
   -------------------------------------------------------------
   use strict;
   use warnings;
   use URI;
   my $uri = URI->new_abs( '../en/index.html',
                           '
http://www.perl.it/it/index.html
' );
   print $uri->as_string;
   -------------------------------------------------------------
ciao,
Stefano

Newsgroup: it.comp.lang.perl
Titolo: Nomi di file in maiuscolo

Ciao a tutti,
premetto che non conosco affatto il perl e che sono qui solo per chiedere
una piccola spiegazione.
Devo fare un piccolissimo cgi in perl che  chiamato da un link ina una certa
mia pagina del mio sito, rinomini tutti file della cartella dove risiede il
file chiamante dando ad ogni file lo stesso suo nome di prima ma scritto con
la prima lettera MAIUSCOLA e il rimanente minuscolo compreso la desinenza
sempre in minuscolo.
Potete aiutarmi?
Grazie mille in anticipo.
Paolo
P.S.
Il mio sito è su server apache  e OS Linux


Prova con questo:
$old_name="FILE1.TXT";
$new_name = ucfirst(lc($old_name));
print "$old_name \-\> $new_name\n";
exit;
HTH

Ciao,
funziona ma solo se io specifico il nome del file per esteso ma io vorrei
che cambiasse tutti i nomi di file presenti nella directory automaticamente.
i file sono circa 150.
50 con estensione.dbf, 50 con estensione.fpt e 50 con estensione cdx
Grazie.
Paolo


anteponi "\u" al nome del file.
Es: nome del file=newfile.txt
\unewfile.txt diventerà -> Newfile.txt
Ciao.
-- 
Posted from 
relay3.inwind.it
 [212.141.53.74] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Ciao e grazie ma io mom posso stare li a farlo su 150 file che hanno tutti
il nome in maiuscolo perchè li ho prodotti automaticamente.
devo per forza automatizzare il procedimento in modo che mi trasformi tutti
i nomi di file della directory da cui il cgi viene chiamato e bada bene che
i nomi sono come dicevo tutti in maiuscolo dalla prima lettera all'ultima e
devono diventare tutti in minuscolo tranne la prima lettera che deve restare
in maiuscolo.
i files sono di tre tipi:
Tipo1.dbf
Tipo2.cdx
Tipo3.fpt
Grazie
Paolo


#!/usr/bin/perl -w
# mette in titlecase ogni
# file in $dir
# compatto
chdir $dir && do { rename $_ => ucfirst lc for <*> };
# o verbose
chdir $dir				or die "cant chdir to $dir";
foreach (<*>) {
	rename $_ => ucfirst lc	or warn " couldnt rename $_";
}
-- 
Posted from qmailr@[195.223.140.135] 

Newsgroup: it.comp.lang.perl
Titolo: Librerie C

Ciao a tutti.
Volevo chiedervi se e' possibile utilizzare in Perl delle librerie esterne
scritte (ed eventualmente compilate) in C, il tutto sotto Linux.
Non conosco bene il perl ma mi ci sono imbattuto dovendo utilizzare un tool
di terze parti (Open Source) nella mia tesi.
Nello specifico, ho scritto in C delle librerie di accesso a MySql che mi
forniscono funzioni di alto livello (es: ApriDb(...)) eseguendo loro tutti i
controlli del caso. Vorrei adesso utilizzarle per fare accedere al Db il mio
script Perl senza dover/poter installare gli specifici moduli Perl.
Ringrazio chiunque mi possa aiutare. Haxl
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 scritte (ed eventualmente compilate) in C, il tutto sotto Linux.
AFAIR e' possibile, ma non l'ho mai fatto.
  Raffaello

 script Perl senza dover/poter installare gli specifici moduli Perl.
Sei *sicuro* di volerlo fare?
Ciao,
 Emmanuele.
-- 
Emmanuele Bassi (Zefram)                 [ 
http://www.emmanuelebassi.net
 ]
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

 Emmanuele.
Grazie per la risposta.
Poi ho provato a combattere un po' con le DBI e sono riuscito ad effettuare
la connessione ed il recupero dei dati.
Rimane pero' lo scopo didattico: appena avro' un po' di tempo, magari provo
a scrivere ed utilizzare delle librerie piu' semplici.
Ciao Haxl


 perldoc perlxs
In alternativa:
 
http://www.swig.org/
Max
Newsgroup: it.comp.lang.perl
Titolo: Taint mode (windows)

Ciao a tutti,
negli ultimi giorni mi sto interessando al tainting dei dati (spero si
dica così).
Sarò breve
usando perl -T nello shebang di un semplice script mi da:
Too late for "-T" option at ...
Ho fatto qualche ricerca in rete e da quello che ho capito sembra che
il flag -T faccia delle presupposizioni che 'cozzano' con windows.
Da qualche altra parte hanno suggerito come prova:
print "No taint checking\n";
use re 'taint';
print "Yes taint checking\n";
In pratica se lo script va a buon fine dovrebbe significare che si è
trovato un altro sistema per attivare il taint checking.
Ora questo esempio ha funzionato, ho fatto 2 prove con dati che taint
dovrebbe considerare 'delicati', ma a me sembra tutto uguale a prima.
Anche se non faccio nessuna verifica su dati passati dall'esterno,
taint mode non mi caccia fuori nessun errore...
Quindi mi sa tanto che non ho attivato niente.
Certamente non ho afferrato appieno il meccanismo di taint, se
qualcuno ha qualche delucidazione in proposito...
Thanks in advance
--
www.pigmalion.info
www.pigmalion.info/perl/

dica così).
... cut
No perchè il discorso è questo.
Da quello che ho capito il taint mode dovrebbe assicurare una serie
minima di controlli, un po come dire: non si può progettare la
sicurezza assoluta, ma fammi almeno chiudere la porta :)
Ora sto benedetto taint mode, su windows, io non sono riuscito ad
attivarlo.
Quello che mi interessava era bloccare gli utenti dall'hackare i
valori di alcuni parametri delle CGI ed evitare che possano inserie
altri percorsi di file, come ad esempio un .. o un /../../ e via
dicendo...
Io me ne sono ucito con qualcosa del genere
if ($file =~ /^\./ || $file =~ /^\//) {
	die "path not allowed";
}
Sembra fare il proprio lavoro, ma mi rimane il dubbio sul taint mode.
Dalle doc non ci ho tirato fuori molto.
Qualcuno ha qualche ulteriore suggerimento, delucidazione,
consiglio???
Sempre in windows... mi sa che su linux funge senza problemi.
Ciao a tutti
--
www.pigmalion.info
www.pigmalion.info/perl/

... cut
... aricut
Hanno defacciato latoserver.it... qua bisogna attrezzarsi...
--
www.pigmalion.info
www.pigmalion.info/perl/

}
if ($file =~ /^\./ || $file =~ /\//) {
	die "path not allowed";
}
Cosě forse č meglio, non si scende neanche sotto...
--
www.pigmalion.info
www.pigmalion.info/perl/
Newsgroup: it.comp.lang.perl
Titolo: cè un modo per sapere se una jpg è corrotta ?

salve a tutti,
Ho una webcam che ogni tot secondi carica su un server ftp una immagine jpg.
A volte questa immagine dal browser viene visualizzata tagliata, cio� gli 
manca una parte finale, probabilmente perch� la connessione � saltata al 
momento in cui si stava trasferendo dalla webcam al server il file jpg.
Esiste un modo affinch� perl riconosca che il file sul server non � completo 
in modo da poterlo cancellare ?
Pensavo di confrontare le dimensioni in byte dell'immagine ma ho notato che 
queste cambiano nonostante l'immagine abbia sempre le medesime dimensioni in 
pixel.
Qualcuno mi s� consigliare ? 

 Qualcuno mi s� consigliare ? 
Se ti accontenti di una cosa che funziona nel 99.99% dei casi (ma non 
/sempre/), � molto semplice e non servono moduli esterni: un file jpg 
(completo) deve terminare con i 2 byte 0xFFD9, quindi basta testare tale 
condizione.
In Perl puoi scriverlo cos�:
open my $jpg, '<', 'myfile.jpg'
     or die "Errore apertura file immagine: $!";
seek $jpg, -2, 2;
print <$jpg> eq "\xFF\xD9" ? 'OK' : 'Troncato!', "\n";
Non funziona nel 100% dei casi, perch� quella sequenza pu� essere 
presente anche in altre posizioni del file, quindi se per (estrema) 
sfiga il file � stato troncato proprio in una di tali posizioni, da quel 
test risulterebbe come completo (nota per� che non verrebbe scartato 
alcun frame /buono/, avresti solo qualche falso negativo).
Se invece vuoi una cosa che funzioni nel 100% dei casi (e non vuoi 
perdere tempo ad implementartela a manella), devi usare un qualche 
modulo CPAN, come Image::JpegCheck:
http://search.cpan.org/dist/Image-JpegCheck/
ad esempio cos�:
use Image::JpegCheck;
print is_jpeg('myfile.jpg') ? 'OK' : 'Troncato!', "\n";
(Preciso che non l'ho mai testato ma, dando una rapida scorsa al 
sorgente, direi che dovrebbe funzionare nel tuo caso di file 
semplicemente troncato - con altre alterazioni diverse dal troncamento 
invece non funzionerebbe e ci vorrebbe un parsing completo del file jpg, 
ma questo � un altro discorso... ;-)
Ciao
-Emanuele

 funzionerebbe e ci vorrebbe un parsing completo del file jpg
Anzi ci vorrebbe proprio la decodifica.
-Emanuele

Grazie provo  subito con il modulo, al massimo uso l'altra opzione.
Grazie ancora!
Newsgroup: it.comp.lang.perl
Titolo: URLRedirector ma dove

Io ho creato uno script che dovrebbe fare il redirect:
File rebox.cgi
#!C:/perl/bin/perl
require "re.conf";
print "Location:$URLRedirector
Content-type:text/html\n\n";
print <<END;
<HTML>
        <HEAD>
                <TITLE>$ENV{'HTTP_HOST'}</TITLE>
                <META HTTP-EQUIV="Refresh" Content=0;URL="$URLRedirector">
        </HEAD>
        <BODY>
        </BODY>
</HTML>
END
;
File re.conf
# Don't change this variable
$URLRedirector="";
if ($ENV{'HTTP_HOST'} eq 'chimica') {$URLRedirector = ""}
if ($ENV{'HTTP_HOST'} eq 'c') {$URLRedirector = "127.0.0.1"}
if ($URLRedirector eq "") {$URLRedirector="
http://www.fiorani.org/
"}
1;
IL mio problema che quando uso lo script (
127.0.0.1/cgi-bin/rebox.cgi?c
) lui
non vai in 127.0.0.1 ma in 
www.fiorani.org
 Do ve ho sbagliato!?!
Grazie in anticipo

 if ($ENV{'HTTP_HOST'} eq 'c') {$URLRedirector = "127.0.0.1"}
Ti ho lasciato le righe che, se non erro, sono errate: è ovvio che va su
127.0.0.1, perchè $ENV{'HTTP_HOST'} altro non è che il nome del tuo
server locale, quindi 127.0.0.1!
Devi utilizzare $ENV{'QUERY_STRING'}, che ti prende gli argomenti
passati allo script con "?" o da form.
Inoltre, i blocchi if non sarebbe meglio metterli prima del codice HTML
da generare? Anche solo per una questione di "ordine"!!
Ciao
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

 qual'e' il servername che risponde su localhost?
mi sa che il pbl e' un altro:
<code>
    # Se il tuo server non si chiama ne' "c", ne' "chimica"...
        if ($ENV{'HTTP_HOST'} eq 'chimica') {$URLRedirector = ""}
        if ($ENV{'HTTP_HOST'} eq 'c') {$URLRedirector = "127.0.0.1"}
    # Qui $URLRedirector non e' ancora stata assegnata e quindi
        if ($URLRedirector eq "") {$URLRedirector="
http://www.fiorani.org/
"}
    # l'assegnazione viene fatta nel precedente statement
</code>
Prova a usare $ENV{'QUERY_STRING'} al posto di $ENV{HTTP_HOST'}, vedrai che
andra' meglio.
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/

Newsgroup: it.comp.lang.perl
Titolo: eliminazione spazi iniziali e finali da una stringa (se esistono)

ciao io provo a fare cosě:
$r =~ /^\s*(\.+)\s*$/;
$r = $1;
ma se trovo una stringa tipo:
"    request=GET / HTTP"
(senza apici)
non mi viene un bel niente... ($r diventa vuoto!)
dove ho sbagliato?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 $r = $1;
   Ancora meglio (perldoc -f strip):
	for ($string) { s/^\s+//; s/\s+$// }
-- 
Alla prossima,
Marco

 > $r = $1;
Mettendo (\.+) cerchi uno o piu' punti.
avresti dovuto mettere (.+)
Newsgroup: it.comp.lang.perl
Titolo: problemi??ci pensiamo noi!!!!


http://www.euroweb97.com/taborelli





MA CHE COSA DIAVOLO CENTRANO GLI ELETTRODOMESTICI CON IL PERL?????
QUESTO E' SPAMMING!!!!!!!!!!!!
LA PUBBLICITA AGLI ELETTRODOMESTICI NON VA FATTA SU NEWS
DEL PERL
tabva ha scritto:


Newsgroup: it.comp.lang.perl
Titolo: Permessi, server http etc etc

Sarà la solita distrazione ma non riesco a venirne fuori ...
con il perl5 sotto win ho scritto un script che legge, cancella e scrive un
file da restituire al server web. sotto win funziona una favola ma sotto
linux sto a perdere la testa ... ho impostato i permessi dei file
addirittura a 777 e provato a cambiare l'owner dei file (root, user etc) ma
senza successo ... da specificare che lo script deve leggere poi cancellare
ed infine creare un file sul server nella dir delle cgi... come faccio?
se poi mi indicate anche un buon tutorial in perl ve ne sarei grato! (il
caffè sul news ancora non si è visto credo no?)
grazie!
gran...@vammacchiappa.com
vammacchiappa=hotmail

caffè sul news ancora non si è visto credo no?)
Prenditi "Programming Perl" di O'Reilly & Associates (
www.ora.com
).
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

Newsgroup: it.comp.lang.perl
Titolo: help dbm

si può creare un file dbm da un prog in perl?
se si.. come?

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

si puň creare un file dbm da un prog in perl?
Il formato dbm originale e` considerato obsoleto.
Sei sicuro che ti serva proprio quello? Cosa devi fare?
-- 
ciao, |
Marco | * The Internet is full. Go away.  -- Joel Furr *
      | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it
Newsgroup: it.comp.lang.perl
Titolo: Esperti, un consiglio.

purtroppo non ho la possibilita' di caricare moduli e quindi testare ne i
tempi ne l'utilizzo
di risorse del server durante l'esecuzione di un cgi... quindi mi serve un
consiglio:
Ho un cgi di 16 kb che fa uso di  "use Compress::Zlib ;"
Il cgi carica un file di testo di 100-400 Kb e ne scorre/elabora le righe.
Il gestore del server mi dice che questo cgi utilizza molte risorse....
Siccome il piu' delle volte non fa nulla in quanto il file di testo non e'
stato moficato
ho pensato fare un controllo preventivo sulla data di modifica del file e
caricare/elaborare il file
solo quando serve ... problema:
Mi conviene fare questo controllo direttamente dal cgi e quandi caricarlo
sempre tutto o
e' meglio usare un altro mini cgi deputato al solo controllo e lancio del
cgi principale ?
Va considerato che il server credo faccia uso di mod_perl ( o perl_mod )
che se non sbaglio serve a tenere in memoria i cgi.
Quale' la soluzione piu' veloce e meno steressante per il server ??
Grazie
Oxy

Quale' la soluzione piu' veloce e meno steressante per il server ??
Senza sapere cosa fa il tuo programma è difficile rispondere!
Credo che vadano comuqnue anche indagate le modalità con cui tu elabori il
file.
by
	- Enrico

 cgi principale ?
??
*Il punto e' proprio questo: considerando che gli script prima di essere
eseguiti vanno prima compilati  (non e' cosi' ?) mi conviene usare due cgi
di cui uno
leggerissimo ( 1 kb senza moduli) che fa solo il controllo e poi se serve
lancia quello di elaborazione (16 kb + moduli)
o uso un solo cgi molto piu' grande ???
Insomma vorrei evitare al server di compilare 16 kb di script + moduli
pensando
magari a torto che la compilazione consumi inutili risorse.
Grazie
Oxy
- Enrico

 magari a torto che la compilazione consumi inutili risorse.
In definitiva non penso che il problema sia la compilazione a meno che lo script
non sia pesantemente acceduto o che il server sia già 'carico' di suo... In tal
caso mod_perl risolverebbe questo problema di scalabilità.
Puoi comunque ricorrere all'esplicito utilizzo di 'require' per caricare
i moduli non in fase di compilazione ma di esecuzione.
Ti consiglio un'attenta lettura di:
	perldoc -f use perlfunc
	perldoc -f require perlfunc
by
	- Enrico

Puoi comunque ricorrere all'esplicito utilizzo di 'require' per caricare
Perfetto!!!! Quello che cercavo. Grazie:-)
by
- Enrico

 Come posso sfruttare al meglio mod_perl ?
Eh :-), inizierei innnanzitutto a dare un'occhiata alla doc su
perl.apache.org...
by
	- Enrico
Newsgroup: it.comp.lang.perl
Titolo: immettere una variabile coi ritorni a capo

ammetta che di perl non ne so molto
ma ora ho bisogno di immettere una varibile andando a capo.
mi spiego meglio, tramite <STDIN> il perl richiedere di inserire una
variabile, e poi quando premi invio lui prende quello che hai scritto
come variabile e continua ad eseguire il resto del codice perl
io avrei bisogno che questo non succedesse, cioe', lui continua a
prendere come variabile tutto quello che gli scrivo "enter" compresi
e' possibile fare una cosa del genere???
bau
-- 
Key fingerprint = 2DC2 63D0 B4F9 A514 4C42  8F59 8F00 BF67 AE25 2AEE

undef local $/;
su windows usa control+Z per smettere di inserire testo
-- 
Posted from 
mail4.galactica.it
 [212.41.208.21] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


$input = <STDIN>;
chomp($input); # elimina newline dalla stringa
HTH

Newsgroup: it.comp.lang.perl
Titolo: My sQL x Domizio

 wrote in message news:Le_s9.60958$%M1.15...@twister2.libero.it...


Ma come è ancora nel news group!
Comunque qui trovi tutti i messaggi a cui mi riferivo
http://groups.google.com/groups?hl=en&lr=&ie=UTF-8&oe=UTF-8&threadm=aoea9i%2
4jsp%241%
40gossip.excite.it
&rnum=1&prev=/groups%3Fsafe%3Dimages%26ie%3DUTF-8
%26oe%3DUTF-8%26as_ugroup%3Dit.comp.lang.perl%26as_usubject%3DDue%2520domand
e%26lr%3D%26hl%3Den
cerca di ricomporlo :-)


 wrote in message
ap4hg4$r91cp$1...@ID-159100.news.dfncis.de...


ahiò
ma come è che ho il perl della activestate 
5.6.non.ricordo.il
 resto
e se uso il ppm e faccio
install DBD::mysql
come consigliato su 
cpan.org
 (e come già avevo provato a fare in passato)
non funziona ??? mi dice che non trova il modulo e di provare una ricerca +
ampia ma anche con "search" non lo trovo...
che faccio per installarlo a mano ora che ho copiato da 
cpan.org
 il codice
per 
msql.pm
 ?
basta copiarlo nella giusta directory e poi fare
use nomemodulo
nello script ? oppure l'interprete perl non è soddisfatto così
NB: sono in ambiente windows.... (sì vabbè adesso quando trovo i soldi per
il computer nuovo ci installo anche linux e imparo a usarlo ma questo PC ha
i suoi anni e proprio non ce la può fare con due sistemi operativi...)
Grazie per le risposte precedenti e per le future ...
ciao ciao

I moduli NON si dovrebbero installare brutalmente copiandoli e basta (anche
se a volte si può fare).
leggiti la doc di PPM e PPM3 di ActiveState perl, poi entra in PPM3 e scrivi
s DBD-MySQL
e
install [numero]
dove numero è il numero di risultato della ricerca precedente
ciao



Sě in effetti non č un'idea sbagliata solo che non lo avevo ancora fatto...
ok era solo un problema di respository, come pensavo, solo che non sapevo
come cabiare la repository di default visto che non avevo letto la
documentazione
ciao grazie
Newsgroup: it.comp.lang.perl
Titolo: Help su un banale script

ho uno script che mi prende dei file .txt e me li sbatte su di una
pagina web.
capita a volte che su questi files .txt vi sia un link formato da
www.ecc ecc eccc oppure http:// ecc ecc ecc
cosa devo aggiungere allo script in modo tale che mi renda attivi questi
link ?
grazie per un eventuale suggerimento.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 pagina web.
Si puň vedere questo script? Cosě ci si rende conto di come č
implementato il tutto.
Ciao,
-- 
.           .  | "...And I am dumb to tell the hanging man
| , ,-. ,-. |  | How of my clay is made the hangman's lime."
|<  |   ,-| |  |                            -- Dylan Thomas
' ` '   `-^ `' |<uggc://jjj.gurqvenpfrn.bet>

 link ?
Devi aggiungere del codice che identifichi tutto ciò che vuoi trasformare in
un link e generi il codice HTML appropriato (tag <A>).
Ad es:
   s/(http:\/\/[^\s]+[\d\w\/])/<A href="$1">$1<\/A>/g;
Max