mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Utilita` pdfbklt in Text:PDF

Ho trovato in Text::PDF questa simpatica, e pressoche' non documentata,
utilita`.
Ora, per fare, fa quello che dice di fare: imposizione su documenti PDF.
Solo che sembra che sbagli leggermente il posizionamento delle pagine: le
pagine accopiate ci sono, ma e` tutto spostato di un cm verso un lato.
(sempre che i responsabili non siano invece la mia stampante o la stampa da
Acrobat Reader: a schermo e` difficile giudicare in maniera conclusiva.)
Qualcuno ci ha messo mai le mani? O, piu` in generale, sa come si deve
modificare il documento PDF per ottenere un tale risultato?
Io ho dato un'occhiata al codice, ma mi ci perdo: fa un sacco di conti che
probabilmente sono la cosa giusta da fare nel caso generale, ma io credo che
nel mio caso, sapendo a priori le dimensioni delle pagine, basterebbe molto
meno. Se riuscissi a ridurmi a questo meno, probabilmente dopo sarei anche
in grado di controllare l'effetto di sfalsamento.
Ma per l'appunto non so quale sia la trasformazione PDF da applicare.
Ciao.

Cosa fa esattamente, ti converte i pdf in html???

Cosa fa esattamente, ti converte i pdf in html???
No, converte i pdf in pdf: trasforma un pdf "sul posto" (aggiungendo una
sezione di revisione al file originale, non creando un nuovo file) in modo
da stampare 1, 2 o 4 pagine logiche originali su ogni foglio di carta. La
procedura si chiama "imposition" (in inglese, o "imposizione", senza tanti
problemi, in italiano: tanto chi ha orecchi per intendere intende). Per
intendersi, quello che si ottiene, per i file postscript, con psnup (in
realta', psbook + psnup).
E' un'opzione presente anche in alcuni driver di stampa, detta "N x 1" o "N
su N", o simili.
Il nome, "pdfbklt", sta appunto per "PDF Booklet", per questo serve, in
buona sostanza, a fare: opuscoletti, di quelli che pieghi a mezzo le pagine
e pinzi al centro. In se', pero', l'imposizione puo' servire ad altre cose.
Per quanto ne so, nulla "converte i pdf in html"; non in modo
soddisfacente, quantomeno.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: pod 4

Salve a tutti,
	volevo informare che purtroppo l'url su
http://pod2it.sourceforge.net/pods/perlfaq4.html
presenta tutti i tags del POD e non è in HTML :-(
C'e' qualcuno nel newsgroup che se ne può occupare?
Buona giornata a tutti,
	nathanvi
-- 
nathanvi
ICQ --> 20318568
mail --> vitto.z A_T 
tiscali.it

 C'e' qualcuno nel newsgroup che se ne può occupare?
Ora dovrebbe essere a posto.
Grazie per la segnalazione (che pero` non e` del tutto
pertinente, nel newsgroup: contattami pure personalmente
nel caso avessi problemi con pod2it in futuro).
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it
Newsgroup: it.comp.lang.perl
Titolo: Script per eliminare spazi multipli in un file di testo

Con il seguente script:
#!/usr/bin/perl
while (<STDIN>) {
$var=$_;
$var =~ s/\s(.*)/\s/g;
print "$var\n";
}
Non riesco a sostituire gli spazi multipli (del tipo "    " ad esempio) con
spazi singoli..
Come posso modificarlo? dove sbaglio? non mi ci trovo piu':P
Grazie a chi mi aiutera':)
--
[
www.radiopogo.tk
]
Hc, Ska, Crossover & Punk
On The Net

> $var =~ s/\s(.*)/\s/g;
infatti questo sostituisce uno spazio seguito da qualunque carattere
ripetuto 0 o più volte con una "s", catturando tutto quello che viene dopo
lo spazio.
quello che vorresti fare dovrebbe essere meglio scritto così:
    $var =~ s/\s\s+/ /g;
però sarebbe meglio usare un semplice e rapido:
    $var =~ tr/ //s;
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

spazi singoli..
Direi che l'espressione corretta č:
  $var =~ s/\s+/\s/g;
Questa:
  $var =~ s/\s(.*)/\s/g;
Sostituisce tutto quello che segue uno spazio (il punto sta per "qualunque
carattere" e l'asterisco dice "0 o piů dei precedenti", quindi: "qualunque
sequenza di qualunque carattere") con nulla.
Ciao.

  $var =~ s/\s+/\s/g;
Vabbe', meglio così, va:
  $var =~ s/\s+/ /g;
La sequenza \s ha senso solo nella parte "cerca" dell'espressione di
sostituzione.
Ciao.

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

c'è qualche differenza tra il denominare uno script scritto in perl come
scrpt.pl
 o script.cgi?
grazie
marina
--
Posted from 
mta09-acc.tin.it
 [212.216.176.40] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


scrpt.pl
 o script.cgi?
A livello pratico prabibilmente nessuna. ;) Di regola gli script
Perl finiscono in .pl. Se tuttavia essi sono utilizzati in ambito
CGI, e` prassi abbastanza comune dargli estensione .cgi. Di fatto
un file con estensione .cgi potrebbe anche essere scritto in
Python o in qualsiasi latro linguaggio.
	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!

 ha scritto nel messaggio
news:4.1.200004011...@box.tin.it...
c'è qualche differenza tra il denominare uno script scritto in perl come
scrpt.pl
 o script.cgi?
grazie


Newsgroup: it.comp.lang.perl
Titolo: Passare ad una pagina web un array con i checkbox:come?

Passare ad una pagina web un array con i checkbox:come?
Vorrei passare ad una cgi un array di valori selezionabili in un form con i tag 
<input type="checkbox">.
ma come?
es. 
se ho una pagina con:
<input type="checkbox" name="val1">
<input type="checkbox" name="val2">
<input type="checkbox" name="val3">
<input type="checkbox" name="val4">
<input type="checkbox" name="val5">
....
la cgi come prende questi valori?
$???=$cgi->param("???");
C'è un modo? Graize in anticipo.

 
In tal caso puoi fare:
my @array = $cgi->param("myname");
Se invece vuoi fare checkbox per opzioni diverse per avere on/off
l'array te lo devi fare a mano prelevando di volta in volta i vari 
valori dai controlli checkbox
	- Enrico
Newsgroup: it.comp.lang.perl
Titolo: Lettura file

Buongiorno a tutti, sono alle prime esperienze con il perl e non riesco a
risolvere il seguente problema.Sto realizzando un semplice script che
legge un file A fino al punto X e contemporaneamente scrive quanto letto
nel file B. Giunto al punto X aggiunge al file B alcune righe, dopodiche
riprende la lettura del file A e copia quanto letto nel file B.
Quindi se il file A è cosi' costituito :
aaa
bbb
ccc
ddd
eee
fff
il file B dovrebbe essere qualcosa del genere:
aaa
bbb
ccc
ddd
XXX
YYY
XXX
eee
fff
La questione sta' nel fatto che il file ha un'estensione html e da quanto
ho capito, lo script invece di leggerlo lo "interpreta" e mi restituisce
il risultato di tale interpretazione!!
Come posso fare?!
Ringrazio tutti coloro che mi daranno una mano.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Come posso fare?!
Puoi, per esempio, spiegarti un po' meglio.
"Lo interpreta" a me non dice nulla. Che il file abbia estensione html non
gliene dovrebbe fregare niente a nessuno, tantomeno a perl: dicci come e in
che contesto apri il file e che istruzione usi per leggerlo, e come e in
contesto esegui lo script (sospetto CGI a palate).
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Cancellare user htpasswd

Ciao a tutti, io ho questo script che cancella un utente in un file htpasswd
l'utente nel file htpasswd č scritto in questo modo da un'applicazione che
non posso cambiare:
c2c_xxxxxx  user
xxxxxx  pass
le x dello user e della pass sono e devono essere uguali.
il comando per cancellare l'utente viene passato tramite un url cosi:
www.miosito.it/cgi-bin/revoke.cgi?pincode=xxxxxx
l'unico problema č che lo script, va alla ricerca dell 'utente xxxxxx e non
dell'utente c2c_xxxxxx
Mi potete cambiare lo script (funzionante) in modo che che ci sia queso
"prefisso" c2c_  durante la ricerca e quindi eliminazione dell'utente.
GRAZIE ( la soluzione deve essere assolutamente questa, non posso fare
variazioni )
print "Content-type: text/html\n\n";
sub removeuser {
$username = $query->param('pincode');
open (READHT, "$htpassfile");
@htpw = <READHT>;
close (READHT);
open (WRITEHT, ">$htpassfile");
flock (WRITEHT,2);
foreach $passline (@htpw) {
($htdbuser, $htdbpass) = split(/\:/, $passline);
if ($htdbuser eq $username) {
print qq~
<tr><td><font face="Arial" size="1">Found $htdbuser check $username.<br>
~;
} else {
print WRITEHT $passline;
}
}
flock (WRITEHT,8);
close (WRITEHT);
&header;
print qq~
<tr><td><font face="Arial" size="2"><br><b><li>User Removed</b><p>
$username has been removed from the database.</font></td></tr>
~;
&footer;
exit;
}

 
Perché reinventare la ruota? Usa CPAN! ;-)
Ci sono almeno questi moduli che fanno quello che chiedi tu:
	- Apache::Htpasswd
	- PWD::PwBasic
	- PWD::PwDigest
	- HTTPD::UserAdmin (con interfaccia web per amministrazione utenti)	
	- ...
by
	- Enrico

 ha scritto nel messaggio
news:20030801121601....@sorcinelli.it...


 if ($htdbuser eq $username) {
metti questo:
my $passato=0;
if (($htdbuser eq "c2c_$username")
		or
    ($passato && ($htdbuser eq $username)) {
	$passato=1;
ATTENZIONE: non l'ho testato...

Newsgroup: it.comp.lang.perl
Titolo: aiuto per lettura codice perl

Ciao a tuui,
faccio fatica a decifrare il senso di una riga di codice scritta in perl..
chi può darmi una mano??
Il codice è questo :
       $in{'ma'} ? ($key_match = ($key_match or &{$regexp_func[$field]})) :
(&{$regexp_func[$field]} or next LINE);
Ciao,
    Ivan

Amatullo wrote:

Provo a tradurtelo...
if ($in{'ma'}) {
        $key_match = ( $key_match or &{$regexp_func[$field]});
} else {
        &{$regexp_func[$field]} or next LINE;
}
-- 
Saluti,
Giancarlo

Amatullo wrote:

dunque... iniziamo col dire che @regexp_func e' un'array che contiene nomi 
di subroutine e viene indicizzato con la variabile $field, quindi
$regexp_func[$field] ritorna un nome di subroutine
e &{$regexp_func[$field]} esegue la suddetta subroutine
il costrutto (a) ? (b) : (c) puo' essere tradotto in:
if(a) { (b) } else { (c) }
"next LINE" fa supporre la presenza di un ciclo (while, for, foreach...) e 
significa "passa al prossimo valore del ciclo LINE
ti e' piu' chiaro ora?
-- 
/federico
[ 
http://www.pixzone.com/dev/
 ]
Newsgroup: it.comp.lang.perl
Titolo: precisione e incomprensione :(

Salve a tutti, ho questo problema:
Estraggo da una stringa una stringa di questo tipo:
    2SOL    OW1    2   0.158  -0.022  -0.117
tutti i campi mediante:
($str1,$str2,$str3,$str4,$str5,$str6,$str7) = split /[ ]+/, $line;
dove $line è la stringa di cui sopra.
Ora se voglio fare un'operazione scema tipo:
$x = $str5 - 1.1;
succede che, in maniera random, la suddetta operazione a volte mi
restituisce il risultato corretto, ovvero -0.942, a volte 
-0.941999999999999998.
Questo succede in maniera casuale, ovvero a volte mi stampa il
risultato corretto, a volte quello impazzito.
Secondo voi da cosa può dipendere? Preciso che il mio script lo
eseguo su una macchina equipaggiata con RedHat 8.0, forse la
versione di perl che monta è bacata...
Mah!


   E` un grande classico ed e` dovuto al fatto che il formato in virgola 
(insieme finito) mobile non riesce a rappresentare completamente i 
numeri reali (insieme infinito).
-- 
Alla prossima,
Marco
Newsgroup: it.comp.lang.perl
Titolo: Piccolo chiarimento

Hello world,
immagino possa essere una domanda stupida ma non capisco questo comando:
chmod u+s <nomefile>
più che altro non capisco i parametri u+s anzi più specificatamente il "+s".
Ringrazio chi cortesemente mi aiuterà anche semplicemente indicandomi una
guida dove posso trovare questi comandi.
Nicola

 chmod u+s <nomefile>
chmod u+s <file>
e' un comando unix che definisce il file SUID-abile (SUID = Set User ID). In
genere i files con il SUID bit settato vengono eseguiti usando la UID
dell'owner del file e non quella del processo che li lancia.
Un esempio e' il comando /usr/bin/passwd, che anche se lanciato da un utente
non amministrativo, va a modificare il file /etc/passwd (oltre eventualmente
/etc/shadow), che e' accessibile in scrittura solo da root.
Se vai a vedere i privilegi del file /usr/bin/passwd vedi:
server:~$ ls -l /usr/bin/passwd
-rws--x--x   1 root     root        37192 Sep 30  1999 /usr/bin/passwd
Il fatto che il SUID bit settato determini l'esecuzione di un comando in
modalita' SUID tuttavia non e' un comportamento generale: p. es. uno script
perl con il SUID bit settato, lanciato da shell non si sogna nemmeno di
girare con la UID dell'owner del file.
Il web server Apache puo' (a secondo di come e' configurato) far girare in
modalita' SUID i CGI perl con il SUID bit settato, ma per motivi di
sicurezza il tuo ISP potrebbe aver disattivato questa opzione (sotto apache
pero' esistono altre possibilita' per ottenere lo stesso scopo, per esempio
potrebbe essere necessario invocare il CGI attraverso un wrapper tipo
CGIwrap).
Per settare il SUID bit di un file se non disponi di un accesso a una shell
comandi sulla macchina puo' essere un problema.
Inoltre non ho la piu' pallida idea di come tutto questo si applichi a
macchine non-unix e server web non-apache.
La consulenza del tuo ISP potra' essere illuminante in merito.
Per avere ulteriori info di carattere generale:
  man chmod (da shell unix)
oppure un bel manuale di unix (cartaceo o bittaceo) o una ricerca su
qualunque motore di ricerca di cose del tipo:
chmod, SUID, o loro combinazioni, tipo: chmod near SUID (ricerca avanzata di
altavista) ... ecc.
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: [Newbie] Errore nelle Intestazioni del PERL

ho il seguente problema...
Premetto che uso NT come piattaforma di Sviluppo e uso l'ultima
versione di Active Perl. 
Ho creato un semplicissimo script
print "My first Perl script =) \n";
Se uso il comando perl 
prova.pl
 ottengo il risultato giusto (mi stampa
su schermo My first Perl script =)) mentre se vado col browser ad
aprire 
prova.pl
 ottengo
CGI Error
The specified CGI application misbehaved by not returning a complete
set of HTTP headers. The headers it did return are:
My first Perl script =)
Cosa posso fare per risolvere questo problema?
Grazie in anticipo a chi vorrà darmi una mano

 My first Perl script =)
Devi inviare le header per la cgi, come con:
print "Content-type: text/html\n\n";
[Follow-up impostato]
-- 
Oramai che i baci tuoi piu` non mi sazian
cerchero` un'altra donna dentro ai sogni di Tarzan...

 Cosa posso fare per risolvere questo problema?
Non passare l'header "My first Perl script =)" potrebbe essere un buon
inizio! In pratica devi, prima del tuo print, inserire
print "Content-type: text/html\n\n";
Ciao
M.
-- 
:wq

print "Content-type: text/html\n\n";
Grazie mille a tutti e 2 =)

 ha scritto nel messaggio
news:8u9mdl$6po$1...@scatolinux.it...


Newsgroup: it.comp.lang.perl
Titolo: problema array

Salve,
     sto cercando di creare una sub che mi ritorni tutti gli "amici" di 
un "amico" proprio seguendo il modello di myspace che divide le pagine 
in 40 amici...soltanto che io non so quante pagine ci sono quindi:
mettiamo che la mia lista id sia divisa in 3 pagine (ma io non lo so sto 
solo supponendo)
pagina 1: 40 ids (unici)
pagina 2: 40 ids (unici)
pagina 3: 40 ids (unici)
l'unico dato che so durante il mio sfogliare le pagine č che se chiamo 
pagina 4 avr gli stessi ids di pagina 3 e mi devo basare su questo per 
capire che le pagine erano 3 e che mi posso fermare 
nell'esplorazione...questo č il codice che ho scritto ma che non 
funziona tanto bene:
#!/perl
my $page = 0;
my $id   = 60964437; # me
my $last_friend;
my @main;
while (1)
{
   $page++;
   my $html = &_return_htmlcode_from_myspace( $id, $page );
 
   while ( $html =~ /<div friendid="(\d+)">/g )
   {
      push @_, $1;
   }
 
   if ( $last_friend && $last_friend == $_[$#_] )
   {
      last;
   } else {
      $last_friend = $_[$#_];
 
      push @main, @_;
   }
}
purtroppo in @main non mi ritrovo tutti gli ids delle 3 pagine ma tante 
volte gli stessi ids a ripetizione...perchč??
grazie

colpa mia, l'array speciale @_ ha uno scope globale invece a me serviva 
locale

 locale
Come mai usi @_ ?
S.
-- 
Stefano Rodighiero      |  
http://www.stefanorodighiero.net
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it
Newsgroup: it.comp.lang.perl
Titolo: Attenzione bug in MIME::Tools < 5.415

Ciao a tutti,
E' stato segnalato un bug nella libreria Perl MIME::Tools < 5.415, che può
consentire di inviare virus che possono superare i controlli di alcuni
antivirus.
Qui la segnalazione del bug:
http://www.gentoo.org/security/en/glsa/glsa-200411-06.xml
Qui qualche chiarimento in italiano:
http://www.shishii.com/dummy/index.php?id=21&tx_mininews_pi
[showUid]=13&cHash=e202155d88
Ciao.
-- 
-- Marco Allegretti --
http://www.shishii.com

[showUid]=13&cHash=e202155d88
Se questo lo vogliamo chiamare un chiarimento....
Bastava tradurre le due righe della synopsis in inglese (con particolare
riferimento a "virus-scanning programs which use MIME-tools"). Così invece
c'è un'intera pagina in cui NON si dice in che cosa consista esattamente il
problema (sembra che il punto sia la *composizione* del messaggio con
MIME-Tools, cosa che evidentemente non è).
Ciao.

 MIME-Tools, cosa che evidentemente non è).
Hai perfettamente ragione. Ti ringrazio per la segnalazione. Ho effettuato
le correzioni del caso.
Ero con il pensiero troppo rivolto a spiegare cosa è la stringa "Boundary" -
non è che lo sappiano tutti... per questo avevo parlato di chiarimento - e
mi sono fatto sfuggire il nocciolo della faccenda. 
Può succedere alle 23,00 dopo quasi 12 ore di lavoro :)

Newsgroup: it.comp.lang.perl
Titolo: thread in perl

Salve all,
sapete se esiste un modo decente per gestire thread in perl su piattaforma
win32 a parte il beta
che si puo' attivare compilando a manina?
Non mi fido molto dell'emulazione fork su M$ e non ho voglia di aspettare la
versione
6 del linguaggio, considerando che persino il python  gestisce i thread
egregiamente.
Su ithread avete documentazione?

 ha scritto nel messaggio
news:08i77.6681$Pb6....@news1.tin.it...


Newsgroup: it.comp.lang.perl
Titolo: Tutorial su Perl

Salve a tutti.
Qualche tempo fa avevo trovato in Rete un tutorial abbastanza (credo) 
completo sul Perl, ma non ricordo proprio da dove l'avevo scaricato.
Non era uno di quei corsi a puntate, era un file "pdf" di due o tre 
mega e spiegava abbastanza bene l'uso del Perl. 
Qualcuno sa per favore dirmi dove ne posso trovare uno simile? 
Grazie a tutti coloro che vorranno darmi una mano.

 Qualcuno sa per favore dirmi dove ne posso trovare uno simile
[cut]
Ho trovato del materiale su 
http://code.box.sk/
In inglese purtroppo...
Ciao
Massimo
Newsgroup: it.comp.lang.perl
Titolo: [MySql con Perl]

Ciao a tutti,
ho da poco iniziato ad interessarmi di Perl e vorrei interfacciare un
database esistente MySql tramite PERL.
L'unico problema è che non so da che parte iniziare.
Sento parlare di DBI, ma non so cosa sia, nè se esista su win32. E poi è
proprio necessario ricorrere a DBI?
Grazie.

 L'unico problema è che non so da che parte iniziare.
 
http://www.symbolstone.org/technology/perl/DBI

Newsgroup: it.comp.lang.perl
Titolo: come si chiama il modulo SQL per il PERL?

come si chiama il modulo SQL per il PERL?

 wrote in message
LjfW5.19354$hk4.7...@news.infostrada.it...


Newsgroup: it.comp.lang.perl
Titolo: Eseguire un comando

Salve mi servirebbe un aiutino
Come faccio ad esempio ad aprire tutti i file di una directory /dir/di/prova
e tutte le sue sotto cartelle e stampare nell'array @array la prima riga di
tutti i file?
Grazie fin da adesso per le risposte.
--
Gianluca Bosotto
webm...@asteon-line.com
www.asteon-line.com

 tutti i file?
Usi File::Find e definisci come subroutine wanted() una funzione che apra il
file e legga la prima riga.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 tutti i file?
Il 26 Feb ho risposto a una tua domanda molto simila a questa. 
Ti è sfuggito il mio post oppure non ti piaceva il mio suggerimento?
Max
Newsgroup: it.comp.lang.perl
Titolo: flock su Win32 ?

Programmo Perl e Perl CGI sotto linux, ma .....
Devo fare per un amico una cosa per il suo sito che funziona sotto NT.
Come faccio a fare il flock per garantire accesso unico ad un file ???
Ovviamente flock non e' supportato, esiste qualche cosa del genere ???
Mi capita rarissimamente di usare Perl sotto windows :-)
Grazie a tutti,
ALex

 Ovviamente flock non e' supportato, esiste qualche cosa del genere ???
da perlport:
 flock FILEHANDLE,OPERATION
               Not implemented (Mac OS, VMS, RISC OS, VOS).
               Available only on Windows NT (not on Windows 95).
               (Win32)
Newsgroup: it.comp.lang.perl
Titolo: PROBLEMI CON SCRIPT PERL

Ho un database. Vorrei fare in modo che, cercate determinate keywords, se i
risultati sono più di 10 la pagina html generata ne contenga MAX 10 per
volta.
### parte dello script che visualizza i risultati ###
# $Category = Siccome il database è diviso in categorie definisce ogni
categoria
#$ BaseDir = Definisce il PATH dei files del database
$Counter = 0;
 foreach $Category (@Categories)
  if (-e "$BaseDir/$Category.dta") {
   open (DB, "$BaseDir/$Category.dta");
   $FileFlag = 0;
   @KeyData = <DB>;
   foreach $TempLine (@KeyData) {
    @Keywords = split (/ /, $in{'Keywords'});
    foreach $Keyword (@Keywords) {
     if (($TempLine =~ /$Keyword/i) && ($MatchFlag2 == 0)) {
       $MatchFlag = 1;
       $MatchFlag2 = 1;
       $URL[$Counter] = $TempLine;
       $Counter++;
     }
    }
    $MatchFlag2 = 0;
   }
   $FileFlag = 0;
   $MatchFlag2 = 0;
  }
 }
 if ($MatchFlag == 0)
#Segue parte di codice che visualizza una pagina HTML contenente la scritta:
NESSUN RISULTATO
else
#Segue la pagina HTML con tutti i risultati. Il loop è il seguente:
foreach $Match (@URL) {
   @TempData = split (/&&/, $Match);
   print "<a href=\"$TempData[2]\">$TempData[1]</a> Descrizione:
$TempData[3]. Aggiunto al database il $TempData[0]\n";
  }
Immagino che debba lavorare sulla variabile $Counter affinchè possa
sistemare le cose in modo che:
if ($Counter <= 10)  {
# Stampa 10 risultati
}
else {
#Stampa 10 risultati (ma i primi 10 risultati!!!)
[...] e poi bisognerebbe stampare i successivi 10 e così via...
Riuscite a darmi una mano???
Miguel Beccari

 Riuscite a darmi una mano???
Ti consiglierei:
1) non leggere sempre tutto il file in memoria
2) la prima volta, conta quanti sono i matching e memorizza solo i primi 10
o meno. Almeno puoi dire all'utente quanti sono stati i matching totali.
3) tieni in una variabile hidden da quanto devi cominciare a contare (1, 11,
21, ecc...) o associala a qualche URL.
4) dalla seconda volta in poi, ripassati tutto il file ma memorizzati solo i
matching da COUNT a COUNT+9
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)
Mmmmm... mi aspettavo un consiglio più pratico... visto che sono un
*ignorantone* ;)
Grazie,
Miguel Beccari

 *ignorantone* ;)
Beh. Perl lo conoscerai benino se stai perfino scrivendo uno script CGI. A
questo punto noi non ci permettemmo mai di privarti del piacere di scrivere
personalmente il tuo codice perl. Il piacere sta tutto li'.

Newsgroup: it.comp.lang.perl
Titolo: invio news

Si possono inviare messaggi ad un newsgroup tramite perl?
ciao

 Si possono inviare messaggi ad un newsgroup tramite perl?
Si, o usi i moduli appositi (cerca sul CPAN) o fai una pipe su inews,
come
si fa per il sendmail.
Ciao,
Valerio
--
Valerio Granato - 
val...@grana.to
FOR KeyMaster - i2000 Usenet Hierarchy
Maggiori informazioni sulla gerarchia i2000?
http://www.i2000.usenet.it
 - 
in...@i2000.usenet.it

Si possono inviare messaggi ad un newsgroup tramite perl?
Guarda Net::NNTP.
E se necessario anche News::Article.
-- 
ciao, |
Marco | * The Internet is full. Go away.  -- Joel Furr *
      | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it
Newsgroup: it.comp.lang.perl
Titolo: Debug in windows

Come c'è un programma per depurare il servitore apache, c'è qualche
programma che mi aiuti a depurare codice perl getto pianterreno in windows
(o depuri con ma facilità programmi pl)

 (o depuri con ma facilità programmi pl)
Un consiglio, lascia perdere i programmi di traduzione automatica.
Capiamo di piu' se scrivi direttamente in spagnolo...
bye
silvio

 (o depuri con ma facilità programmi pl)
Yes, you can take a look to the ActiveState site
(
http://www.activestate.com
).
There's the Perl Developer Kit that contain a perl debugger working
also in remote.
(PS: Your automatic translator... ehm... is not good :-)))
Valerio

Newsgroup: it.comp.lang.perl
Titolo: 2 domande, per favore

Salve a tutti, desidererei porre due semplici domande:
1) esiste, su piattaforma Linux, un compilatore Perl tipo Perl2exe?
Dove posso scaricarlo?
2) quando faccio girare il compilatore perl (su Linux Mandrake), mi
ritrovo nella shell dei fastidiosissimi messaggi, tipo:
check your locale settings:
"LOCALE_EURO = euro"
"LOCALE_LANG = it"
..........
come posso fare per farli sparire?
Grazie a tutti per la cordiale attenzione.
Giovanni
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 come posso fare per farli sparire?
Dovrebbe essere un problema di shell, puoi vedere su
perldoc perllocale 
e cerca LOCALE PROBLEMS.
Nel .bash_profile dovresti mettere cose del tipo:
export LANGUAGE="it_IT"
export LANG="it_IT"
export LC_ALL="it_IT"
Gironzolando su google, ho trovato anche un'altra soluzione:
mettere in /etc/sysconfig/i18n:
LC_CTYPE=it_IT@euro
LC_MONETARY=it_IT@euro
LANGUAGE=it_IT@euro
LC_TIME=it_IT@euro
LC_NUMERIC=it_IT@euro
LC_COLLATE=it_IT@euro
LC_MESSAGES=it_IT@euro
LANG=it_IT@euro
Prendi tutto con il beneficio di inventario.
-- 
$_=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: Proposta

Molti conosceranno l'iniziativa di Pluto per la diffusione di Linux in
Italia. Ebbene perché non si prende una iniziativa per il Perl? 
Non tutti conoscono bene l'inglese (e tra questi mi ci metto pure io), si
potrebbe aprire un sito che tratti specificamente del Perl con materiale
tradotto in Italiano. 
Il mio contributo, ad esempio, potrebbe consistere nella cura del sito in
collaborazione di altri.
Ciao, Giuseppe

tradotto in Italiano. 
Alcuni frequentatori di questo newsgroup (me compreso) si sono gia`
riuniti nel roma-pm Perl group. Si potrebbe creare un sito del genere
all'interno di quest'iniziativa, tanto per non disperderci troppo e
lavorare tutti assieme...
Se qualcuno e` interessato il sito e`:
http://roma.pm.org
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

 
Benissimo! Condivido pienamente. Spero che altri si facciano avanti
Giuseppe
Newsgroup: it.comp.lang.perl
Titolo: Applet Java da CGI in Perl





Ciao a tutti,


ho un problemino.


Ho realizzato un cgi in perl che include nella 
pagine web creata un applet java. 


Non capisco perche', ma l'applet non funziona, 
infatti e' come se lo script non trovasse il file .class, che invece sta nella 
stessa directory in cui si trova il cgi.


Inserisco alcune righe dello script in cui, in 
rosso, c'e' il richiamo al file .class


 


 


... if 
($cont==2)
        { 
$cont=0;
        print 
"</tr><tr>";
        
}
        print "<td>";
print "<applet code=\"chart.class\" width=\"400\" 
height=\"200\">";
print "<param name=\"title\" 
value=\"Statistiche del giorno $a2 $bil{$w2}\">";
print "  <param 
name=\"columns\" value=\"5\">";
print "  <param 
name=\"orientation\" value=\"vertical\">";
print "  <param 
name=\"scale\" value=\"100\">";
print "  <param 
name=\"Title_Font\" value=\"Arial\">";
print "  <param 
name=\"Column_Font\" value=\"Courier 7\">";
print "  <param 
name=\"format\" value=\"none\">";     ...


 


Spero possiate aiutarmi.


Vi ringrazio.


Ciao,


Giuseppina.



forse č una stupidata
ma io nella directory "cgi-bin"
non posso accedere a nessun file che non sia un cgi..
quindi penso nemmeno ad una applet che per funzionare deve
essere scaricata dal browser e non elaborata dal cgi .. prova a metterla da
un'altra parte
ciao

directory in cui si trova il cgi.
Anche io ho riscontrato lo stesso identico... sto cercando una
soluzione ma non ho avuto molto tempo negli ultimi giorni... chi ci
arriva per primo fara' un fischio!
Ciao
Dark Wave
P.S. Il sito in questione e' 
http://www.romastyle.net

 forse è una stupidata

è vero, in alcuni server (tra cui il mio) non è possibile scaricare file
dalla directory "cgi-bin", ma solo eseguirli. Quindi, dato che un'applet
Java è eseguita sul client (e non sul server come i CGI), deve essere per
forza scaricata. Ergo non la puoi mettere in questa directory. Oppure
modifica le opzioni di accesso, ma non te lo consiglio, xché sarebbe più
facile per un hacker ottenere i file contenuti nella directory stessa.
Ciao

anfatti!!! ;-)
Newsgroup: it.comp.lang.perl
Titolo: perl in ASP

buongiorno a tutti!
dovendo fare un' aggiunta ad uno script ASP (linguaggio che non conosco
quasi per nulla) ho creato un programma perl esterno, che pero' non sono in
grado di richiamare (pensavo a qualcosa tipo system("perl 
name.pl
 $value").
Mi potete dare una mano?
Grazie mille!
Carlo

...

Sicuro che non ti convenga provare a scrivere in ASP (vbscript) o tradurre
il tutto in Perl ???
Alex

 Alex
Ciao Alex
riscrivere in perl un grossissimo lavoro gia' fatto in vb diventerebbe
decisamente faticoso, scrivere la breve utility (banale eliminazione di una
riga da un file di testo) in vb sarebbe l'ideale, se sapessi come gestire i
filehandle in quel prolisso linguaggio - ma non vorrei uscire dai confini di
questo nwsgrp ...

 Mi potete dare una mano?
Temo che questa sia una domanda OT in questa sede. Ad ogni modo, a quanto
mi risulta, la stessa pagina ASP può contentere codice scritto in
linguaggi differenti. Non dovrebbe essere difficile implementare in Perl
(tramite perlscript) la funzione che ti interessa e richiamarla dal codice
vbscript all'interno della stessa ASP. Ovviamente tutto questo presuppone
che l'amministratore di sistema sia disponibile a installare perlscript.
Max

 wrote in message
9arubt$38c$1...@serv1.iunet.it...


Newsgroup: it.comp.lang.perl
Titolo: Include di più file in perl

Esiste un modo per ottenere la stampa di più include di seguito
all' interno di uno script senza dover scrivere tutta questa roba :
print HTML"";
 open (HEAD, "/home/pages/public_html/include/1.txt");
 @foot = <HEAD>;
 close (HEAD);
   foreach $line (@foot) {
   print "$line";
  }
print HTML"";
 open (HEAD, "/home/pages/public_html/include/2.txt");
 @foot = <HEAD>;
 close (HEAD);
   foreach $line (@foot) {
   print "$line";
  }
print HTML"";
 open (HEAD, "/home/pages/public_html/include/3.txt");
 @foot = <HEAD>;
 close (HEAD);
   foreach $line (@foot) {
   print "$line";
  }
print HTML"";
 open (HEAD, "/home/pages/public_html/include/4.txt");
 @foot = <HEAD>;
 close (HEAD);
   foreach $line (@foot) {
   print "$line";
  }
print HTML"";
 open (HEAD, "/home/pages/public_html/include/5.txt");
 @foot = <HEAD>;
 close (HEAD);
   foreach $line (@foot) {
   print "$line";
  }
C'è un modo per sintetizzare questo include di 5 file di seguito?
Ciao


@files = qw(1.txt 2.txt 3.txt 4.txt 5.txt);
$path ="/home/pages/public_html/include/";
foreach $file  (@files) {
   print HTML"";
   $infile=$path . $file";
   open (HEAD, "< $infile")   ||  die (Cannot open $infile\n$!\n);
   @foot = <HEAD>;
   print $_  foreach (@foot) ;
  close (HEAD);
  print HTML"";
}
HTH

 > C'č un modo per sintetizzare questo include di 5 file di seguito?


 C'è un modo per sintetizzare questo include di 5 file di seguito?
A parte quello dell'altro messaggio (una volta corretti gli errori per
eccesso e mancanza di virgolette), puoi sempre affidarti ad un comando
esterno tipo 'cat'.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 >
Scusa mancano i doppi apici nel die:

Newsgroup: it.comp.lang.perl
Titolo: moduli e misteri

Ciao a tutti,
ho questa situazione:
script eseguibile "
nav.pl
" nella directory X, nalle stessa c'è una directory
"MyTools" che contiene i miei moduli. uno è un modulo tramite cui setto ed
esporto le variabili "MyConfig.pm". Ed è fatto così:
---------------------
package MyConfig;
use strict;
use Exporter ();
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $init_dir_path $cgi_url
            $img_dir_path);
@ISA = qw(Exporter);
@EXPORT = qw();
@EXPORT_OK = qw();
%EXPORT_TAGS = (
'PATH' => [qw($init_dir_path $cgi_url $img_dir_path)]
);
Exporter::export_ok_tags('PATH');
############################################
# Settaggio configurazione                 #
############################################
# PATH AND URL
$init_dir_path = '/var/www/html';
$cgi_url = '
http://www.shishii.com/cgi-bin/nav_file/nav.pl
';
$img_dir_path = '/var/www/cgi-bin/nav_file/img';
1;
----------------------
Quindi nell'eseguibile scrivo:
----------------------
#!/usr/bin/perl
use strict;
use vars qw($init_dir_path $cgi_url);
use CGI::Carp qw(fatalsToBrowser);
use MyTools::MyConfig qw(:PATH);
use MyTools::MyNav;
-------------------
Non mi segnala errori, ma non importa alcuna variabile.
Se invece copio MyConfig.pm nella stessa directory delle eseguibile e in
questo scrivo:
use MyConfig qw(:PATH);
le variabili vengono importate.
In cosa sbaglio?
Grazie.
-- 
-- Marco Allegretti --
http://www.shishii.com

 In cosa sbaglio?
nel considerare il namespace relativo come i path. tu hai 
MyTools/MyConfig.pm, che richiami tramite use come MyTools::MyConfig. 
dentro il file pm, però, sei nel package MyConfig, che è ben diverso da 
MyTools::MyConfig. cambia la prima riga di MyConfig.pm in:
   package MyTools::MyConfig;
e vedrai che tutto funzionerà.
cheers,
Aldo
Newsgroup: it.comp.lang.perl
Titolo: variabili globali

cari tutti,
dovrei suddividere un file perl in una parte "fissa" e una di dati
"variabili" che possa essere modificata da qualcuno.
L'unico sistema che mi e` venuto in mente e` stato scrivere nel file 
fisso 
$var1 = "";
$var2 = "";
do 'file.variabile';
e nel file variabile 
$var1 = "valore1";
$var2 = "valore2";
Cio` non e` pero` bello: con use strict, ottengo una sfilza di errori del
tipo 
Global symbol "$var1" requires explicit package name at filefisso, line 31.
Qual e` una delle tante procedure corrette che posso usare?
giazie e ciao, .mau.

 file fisso
<code>
	# global variables
	package MyVars;
	use Exporter;
	@ISA=qw(Exporter);
	@Export=($var1,...);
	...
	1;
	# where i use them
	use MyVars;
	...
</code>
  Questa e` una. Ma ce n'e` di belline, tra l'altro usare tie con i DBM
di Berkeley.
	Alla prossima,
		Marco

Global symbol "$var1" requires explicit package name at filefisso, line 31.
puoi usare l'assegnazione
$MAIN::var1="..."
oppure tutte variabili globali
$::var="..."
Oha
-- 
"Qualcuno mi spieghi perche' 144 e' l'unico
quadrato perfetto della serie di Fibonacci"

Global symbol "$var1" requires explicit package name at filefisso, line 31.
Nel robomoderatore uso:
use vars qw($GCNPath $DataUser $RoboAddr $hostname $CanLockSecret
	$MaxArtSize $Sendmail %modlist);
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *
      | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

 wrote:
: use vars qw($GCNPath $DataUser $RoboAddr $hostname $CanLockSecret
: 	$MaxArtSize $Sendmail %modlist);
Ecco il trucco :-)
grazie, .mau.

Newsgroup: it.comp.lang.perl
Titolo: File che si esegue da solo

Salve come faccio a creare un file che ad esempio alla mezzanotte si avvi da
solo?
Tenete presente che il file è su un server e che vorrei che si eseguisse da
solo senza che io debba eseguirlo.

Dovresti modificare il CRONTAB (si chiama così?) del server.
Se però hai acquistato uno spazio su un server americano/taliano e/o non hai
la possibilità di farlo, fai come ma: incorpori nella home del tuo sito un
comando SSI che richiama lo script PERL in questione.
PS Saremmo OT
--
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?
---

 solo senza che io debba eseguirlo.
Se il server è uno Unix,
$ man cron
$ man at
Ciao ciao,
Andrea
-- 
"...Unix, MS-DOS, and Windows NT (also known as the Good, the Bad, and 
 the Ugly)."
(by Matt Welsh)

$ man at
Se e` NT,
help at
Saluti.
Fabrizio
Newsgroup: it.comp.lang.perl
Titolo: Libri? Quali?

Gentilmente, quale testi mi consigliate per studiare Perl?
Sono principiante,  in questo linguaggio, ma ho bisogno di impadronirmi del
linguaggio al piu' presto.
Grazie a chi avra' tempo e voglia di rispondermi.
-----
Loris

 io ho provato a comprare PERL _ GUIDA DI RIFERIMENTO ma è solo pe esperti
e non capisci molto ,se riesco a trovare Learing Perl in italiano lo compro
subito

Grazie a chi avra' tempo e voglia di rispondermi.
Programming Perl
Wall, Chridtiansen & Schwartz
O'Reilly
In inglese (intanto e' un inglese leggibilissimo) pero', pare che la traduzione
non sia di altissima qualita'.
-- 
Saluti,
Giancarlo

 wrote in message
8kf6bd$h8q$1...@stargate1.inet.it...


 wrote:
: Per Learning Perl a quale casa editrice (sse potete darmi il loro sito
: grazie) devo rivolgermi?
io lo presi dalla Infomedia (
http://book.infomedia.com
), ma sicuramente ci
sara` anche da altre parti.
.mau.
Newsgroup: it.comp.lang.perl
Titolo: possibile che non si possa fare (riguardo sub)

salve, sto provando a fare una "interpolazione di una subroutine", ma sembra
che non sia possibile farlo...
il programmino che sto usando è il seguente:
use strict;
my $anno1;
my $anno;
sub calcolanno
    {
    my $a;
    my $b;
    my $c;
    my $d;
    my $e;
    my $f;
    ($a,$b,$c,$giorno,$mese,$anno,$d,$e,$f)=localtime(time);
    $anno+= 1900;
    return($anno);
    }
print qq/&calcolanno()/;
e vorrei che mi stampasse "2002", ma non funziona... funziona soltanto se
l'ultima riga la riscrivo cosi:
$anno1=&calcolanno;
print "$anno1";
è possibile in qualche modo "unire" queste due istruzioni in una sola?
grazie,
Paulus
http://spazioweb.inwind.it/it_informatica
--------------------------------
Inviato via 
http://usenet.libero.it

č possibile in qualche modo "unire" queste due istruzioni in una sola?
Magari č possibile, appena posso ci guardo. Posso perň intanto chiedere
perché ti serve?
C'č qualcosa di sbagliato in:
    print &calcolanno;
?
Ciao.

Magari č possibile, appena posso ci guardo.
  print eval "&calcolanno";
(Non credo che sia possibile altro.)
Confermo la domanda: perché?
Ciao.
P.S. Se usi strict devi dichiarare tutte le variabili (anche $giorno e
$mese, quindi).

 print qq/&calcolanno()/;
	print qq/${\&calcolanno()}/;
   Probabilmente, la cosa piu` orribile vista questa settimana...
-- 
Alla prossima,
Marco

 $mese, quindi).
Si, è vero... solo che il testo che ho postato era preso da uno script un
po' più grande (si trova a
http://spazioweb.inwind.it/it_informatica/corsi/script1.htm
)
Grazie di nuovo,
Pablo



ciao
Stefano

   Probabilmente, la cosa piu` orribile vista questa settimana...
... e ricordiamo che stiamo parlando della settimana di Halloween!
Ciao.

al "momento opportuno"..
Guarda, se è una "cuestione di stile" non disquto, ma quanto al "momento
opportuno" in cui si dovrebbe rendere necessario usare il meccanismo di
interpolazione di stringhe, la mia personale valutazione è: mai. Sono
convinto che si possa tranquillamente dimenticare che esiste, senza
incontrare alcuna sostanziale difficoltà in tutta la propria vita di
programmatore perl.
Io, in ogni caso, credo di non averla mai usata in 10 anni; non tanto per
una ricercata castità, quanto proprio perché non ne ho mai sentito
l'esigenza.
Ciao.

Boh... magari non ho proprio capito, perň - soprattutto viste le tue
questioni di stile - io scriverei la cosa cosě:
======== CODE =========
use strict;
sub calcolanno
{
    my ($a,$b,$c,$giorno,$mese,$anno,$d,$e,$f)=localtime(time);
    $anno + 1900;
}
print calcolanno();
======== END CODE ========
e cosě funziona come ti aspetteresti.... non so proprio dove stia il
problema. Potresti spiegarmelo?
e se proprio devi fare una funzione che ritorna l'anno attuale e basta
allora, proprio per una questione di stile, la scriverei cosě, senza tutto
il superfluo:
======== CODE =========
sub anno { (localtime time)[5] + 1900 }
print anno();
======== END CODE ========
Spiegami, pleaseeee....
ciao
--
-.. --- -- .. --.. .. ---
-.. . -- .. -.-. .... . .-.. .. ...

 wrote in message
news:aqb3c3$89k6r$1...@ID-159100.news.dfncis.de...

Newsgroup: it.comp.lang.perl
Titolo: Devo scrivere in un file di testo..

Devo scrivere in un file di testo, ma non in append!
L'inserimento deve avvenire in testa al file. Qualcuno potrebbe aiutarmi.
Grazie!


Non e' che c'e' molto da aiutare. Devi aprire un file nuovo, metterci le
righe nuove e poi attaccarci quelle dell'altro file, rinominando
opportunamente a fine operazione.
Questo e' ovviamente descritto in perlfaq5
Se il file non e' immenso, un folle potrebbe pensare di tirarlo su in un
array e unshift-argli dentro le righe in cima, per poi riscrivere tutto.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Sono d'accordo... per un file piccolo ho usato quel sistema di unshift, ma è
un file con al massimo 13 righe...

 array e unshift-argli dentro le righe in cima, per poi riscrivere tutto.
e' stata la prima soluzione che mi e' venuta in mente :)
vado a farmi ricoverare? :D
ciau,
Gilberto *Veleno* Ficara
___________________________
e-mail: 
g.fi...@fastnet.it
ICQ UIN: 11891959
http://veleno.cjb.net
___________________________
Webmaster di 
www.bestiario.com
 e 
www.hyleg.it
Designer di 
www.icq99.net
Ideatore e mantainer di 
www.3dinfinity.net
Membro dello staff di 
bbk.org
 (designer)
Collaboratore di Html Point, Netnews e 3dRevolution

Newsgroup: it.comp.lang.perl
Titolo: che fare?

Ho scritto questo codice che deve creare un codice di autorizzazione
temporanea fornito ad un determinato utente per lo svolgimento di operazioni
sul server.
In locale con Active Perl e win98 il tutto funziona benissimo, mentre invece
sul server Apache questo codice provoca errori. Perchč?
for ($i=0;$i<4;$i++){
$random=rand * 10;
$random=int($random * 10);
$authenticate="$authenticate$random";
}
Lorenzo Viscanti

sul server Apache questo codice provoca errori. Perchč?
Che tipo di errori?
	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: m davanti a espressioni regolari

Quando si incontra il carattere 'm' davanti alle espressioni regolari
(ad esempio m/.+?\@.+?\..+/) cosa vuol dire?
grazie e ciao
Alessio "Gazza" Galli

 (ad esempio m/.+?\@.+?\..+/) cosa vuol dire?
La sequenza m// indica il pattern da utilizzare nell'operazione di 
matching. La "m" sta per "matching", e` opzionale e serve a distinguere 
i pattern di semplice riconoscimento, come nel tuo esempio, da quelli di 
sostituzione (s///) o traduzione (tr/// o y///).
	$ perldoc perlop
-- 
Baci,
Mony

 ha scritto nel messaggio
news:a9h82s$nj9$1...@newsreader.mailgate.org...

Grazie mille
ciao
Alessio "Gazza" Galli

Newsgroup: it.comp.lang.perl
Titolo: Invio mail HTML con immagini

CIAO!
Alcuni post addietro si č parlato dell'inviare una mail con attach....
Io invece vorrei inviare una vera e propria pagina HTML (testo formattato +
immagini)...
Potete aiutarmi?
GRAZIE!

 Alcuni post addietro si è parlato dell'inviare una mail con attach....


immagini)...
Puoi utilizzare MIME::Lite, cercalo su:
http://search.cpan.org
	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!

 
http://search.cpan.org
Credo Ðãnie|e intendesse qualcosa di un po' più complesso del semplice
invio di un attachment. Ossia: come faccio a mandare un testo HTML con
riferimenti interni a immagini a loro volta trasmesse nella stessa mail?
In sostanza credo si chieda come costruire i link nel testo HTML in modo
da ottenere l'effetto desiderato. Ovviamente tutto ciò è OT. :-)
Ad ogni modo: in questi casi Outlook usa un tipo speciale di URI ("cid:"),
che serve per far riferimento a un qualche altro oggetto della stessa mail
tramite l'identificativo definito dal suo "Content-ID". Non so se esista
un qualche standard in proposito, né se ciò sia supportato da altri client
di posta.
Max

Newsgroup: it.comp.lang.perl
Titolo: Aiuto come creare contatore

Ciao, ho la necessità di creare un contatore per le mie pagine Web, non
voglio usarne uno già fatto
Se possibile ne voglio creare uno.
Grazie.
Potreste rispondermi all'indirizzo: 
sp...@amiatanet.it
--
Automatic posted from 
ro...@mail.ats.it
 [195.62.227.25]
via Mailgate Server - 
http://www.mailgate.org



Se possibile ne voglio creare uno.
Ce ne sono di vari tipi, grafici e non. Il mio consiglio e` di prelevarne
qualcuno ad esempio da:
 
http://www.cgi-resources.com
Poi gli da un'occhiata, vedi cosa offre ciascuno di essi, cosa ti interessa
includere nel tuo, e come sono stati implementati. Credo ti sara` molto di
aiuto nella scrittura del tuo.
	A presto, Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.italpro.com/mb/
Newsgroup: it.comp.lang.perl
Titolo: installazione dbi

Devo installare il modulo DBI su w 2000 active perl 5.8.7. Non posso
utilizzare PPM per scaricarlo perchč sono dietro un firewall arcigno, ho
provato a scaricare DBI da cpan ed a compilarlo con nmake ma non trova lc
(ho letto che č un compilatore microsoft a pagamento). Ho provato anche a
scaricare il file dbi.ppd ed a installarlo con PPM ma niente da fare.
Qualche idea?
grazie
Alberto
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 scaricare il file dbi.ppd ed a installarlo con PPM ma niente da fare.
In genere devi scaricare il .ppd e il .tar.gz corrispondente e poi dare un
ppm install nomemodulo
come scritto ad esempio qui:
http://www.perl.it/documenti/faq/iclp_view.html?pag=5&faq=2

 Qualche idea?
Sì: essere un po' più precisi nelle domande.
Ciao,
Emanuele.

 Sě: essere un po' piů precisi nelle domande.
Avevo rimediato da qualche parte (non su activstate nč cpan) una copia del
dbi.ppd e relativo .tar.gz ma quando l'installavo mi dava un'errore
(questo intendevo per niente da fare). Con quello che ho scaricato dal
link che mi hai indicato č andato tutto liscio come l'olio. Grazie mille a
te ed ad Andrea.


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

Salve a tutti, scusate la domanda forse un pņ stupida, si puņ installare
"mod_perl" su un server che non utilizza Apache ma Internet Information
Service?
Grazie a tutti
Michela

 Service?
No.
Bye,
 Emmanuele.
-- 
Emmanuele Bassi         |             [ 
http://digilander.iol.it/ebassi/
 ]
emmanue...@iol.it
  |
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

oltretutto, se installi apache 2 su windows, pure se è in beta, stai 100k
volte + sicuro che con IIS.
E puoi usare tutto quello che vuoi.
e usi meno memoria.
E sei standard.
E non paghi.
Max