mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Problema con eseguibile creato con Activestate Perl

Ciao,
succede una cosa strana con al seguente riga di codice
$flagLoad = Win32::MsgBox("Please, click", 3 | MB_ICONQUESTION ,
"Message");
Se l'esecuzione avviene in uno script perl la funzione riceve
correttamente come risposta 2, 6 o 7 dopo la scelta dell'utente
(scelta di uno dei tre buttons) ma fallisce (ottiene 0) su qualche
piattaforma (non tutte) se lo script è compilato usando Activestate
PerlApp per creare un eseguibile standalone. Ovvero, su qualche
piattaforma win XP Pro funziona, in qualche altra no. Il
malfunzionamento sembra una sorta di blocco dei popup ma avviene anche
dopo aver disabilitato il firewall (Zone Alarm) e l'antivirus
Kaspersky. Il programma non viene bloccato, continua la propria
esecuzione uscendo normalmente dopo che è fallita la chiamata.
Avete qualche idea a proposito della possibile ragione?  O quale
potrebbe essere un test discriminante?
Daniele

 potrebbe essere un test discriminante?
Io uso da tempo Win32::GUI e gli eseguibili li faccio di solito proprio
con perlapp. Non ho mai avuto problemi di quel genere.
Tu stai usando il modulo Win32, se non sbaglio. C'è un motivo
particolare? Per caso il tuo è un cronjob o un programma a riga di
comando con solo qualche interazione GUI? Che sia quello il problema?
Ad ogni modo prova a fare un messagebox con Win32::GUI.

 ha scritto:

Ciao Andrea,
stavo usando win32 in un programma batch, in cui l'interazione con
l'utente è semplificata e serve solo effettuare una scelta di tipo
Sì/No
Nel frattempo ho identificato la soluzione anche se la causa del
problema rimane oscura. Per poter visualizzare il popup nelle
piattaforme in cui la chiamata va in errore devo necessariamente agire
sulle proprietà dell'eseguibile (tasto dx. del mouse, proprietà) e
quindi scegliere "compatibility mode" Windows NT (???); il che mi
lascia piuttosto stupito perchè mi pare una limitazione fondamentale
dell'eseguibile generato da PerlApp
Su quale stazione bisogna effettuare tale aggiustamento non è dato
capire; non dipende dalla service pack.
Ciao
Newsgroup: it.comp.lang.perl
Titolo: -w con Apache per Win32

Non capisco perche' utilizzando Apache 1.3.3 per Win 32 e il Perl 5.005_02
della ActiveState non mi ritrovo nell'error.log (correttamente, penso,
impostato nel httpd.conf) i warnings e le linee di errore che ottengo
eseguendo il mio script perl da linea di comando.
La configurazione nel httpd.conf e':
...
ErrorLog logs/error.log
...
la prima riga dello script e'
!#\bin\perl -w
ciao
ma...@net4u.it


Prova ad aggiungere ad httpd.conf le seguenti righe (CGI_scripts.log 
e' il file in cui ti ritrovi quello che ti serve):
#CGI-SCRIPT Logging
ScriptLog  logs/CGI_scripts.log
ScriptLogLength 10385760
ScriptLogBuffer 1024
Ciao
Paolo
P.S.:come fa a funzionarti con quella prima riga?
--
Posted from 
tlvsdy.vim.tlt.alcatel.it
 [151.98.8.244]
via Mailgate.ORG Server - 
http://www.mailgate.org

 P.S.:come fa a funzionarti con quella prima riga?
Credo che Apache cerchi Perl nel path, al contrario di ISS che usa il
Registry.
M^3
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 M^3
Veramente mi riferivo al fatto che ha invertito #! 
Paolo



Gli script vengono interpretati correttamente, l'unico problema che
riscontro e' quello descritto nella precedente e-mail, la cosa strana e' che
comunque l'errore viene segnalato correttamente nel file....
Mal che vada continuero' a lanciare gli script da finestra DOS per cercare
gli errori di sintassi.
Ciao e grazie ancora
Mario
Newsgroup: it.comp.lang.perl
Titolo: Invertire un file

avendo un file lista.txt che contiene i seguenti record
record 1
record 2
record 3
e volendoli passare a lista2.txt in ordine invertito
record 3
record 2
record 1
come si fa?

 wrote:

Per combinazione, proprio in questi giorni mi hanno fatto notare un
nuovo modulo che fa, tra le altre cose, proprio quello che chiedi:
 
http://search.cpan.org/~ingy/IO-All-0.15/lib/IO/All.pm
Nel paragrafo "Reading backwards" trovi l'esempio specifico. Riporto
il codice:
    my @reversed;
    my $io = io('file1.txt');
    $io->backwards;
    while (my $line = $io->getline) {
        push @reversed, $line;
    }
HTH
ciao,
S.



Mah, ci sono tanti metodi... diciamo che se hai 
open (FH, "<lista1.txt");
@lista1 = <FH>;
close FH;
allora stampi ogni riga di @lista1 su lista due, partendo dall'ultimo,
qualcosa del tipo:
open (FH, ">lista2.txt");
for (my $x=$#lista1; $x>= 0; $x--) {
    print FH $lista1[$x];
}
close FH;
Magari poi, a pensarci su, ci sono soluzioni più raffinate...
dawe

 come si fa?
Semplice esempio:
1 - Leggi le righe da un file x e le "salvi" su un array
2 - Utilizzi la funzione reverse (perldoc -f reverse)
3 - Salvi l'array in un file y su disco
<code>
  my @lista;
  while( <DATA> ) {
    chomp;
    push @lista, $_;
  }
  @lista = reverse @lista;
  foreach( @lista ) {
    print "$_\n";
  }
  __DATA__
  linea 1
  linea 2
  linea 3
</code>
ps: il codice non è testato
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

 3 - Salvi l'array in un file y su disco
grazie a tutti, ho risolto così:
#!/usr/bin/perl
	open (FH, "<lista.txt"); 	#apro il file in lettura
		@lista = <FH>;          #assegno il contenuto all'array @lista
	close FH;                       #chiudo il file
@lista = reverse @lista;                #faccio un reverse del contenuto
	open (FH, ">lista2.txt");       #apro il file in scrittura
		print FH "@lista\n";    #ci scrivo il contenuto dell'array
	close FH;                       #richiudo

 > 3 - Salvi l'array in un file y su disco
Devo correggermi però. Questo non è il metodo migliore in termini di
efficienza. Il comando @lista = <FILE>, sbatte in memoria _tutto_ il
file. Finché sono piccoli file è tutto ok, il problema si pone quando
i file cominciano a diventare di MB o GB. La soluzione migliore sarebbe
quella di poter operare all'interno di while(<FILE>) oppure, come
suggerito in altri post, utilizzare il "Reading backwards".
Resta cmq il fatto che ognuno poi è libero di valutare le proprie
esigenze.


 esigenze.
Esatto (tanto per rimanere in tema :))
ciao,
S.

 Magari poi, a pensarci su, ci sono soluzioni più raffinate...
  Mi intrometto solo per dire...
  Si`, anche io  dovendo fare qualcosa di simile ho  operato cosi`, ma
mettiamo il  caso di dover/voler operare  su file, c'e` un  metodo per
creare un @array  'virtuale' su disco da poter gestire  come quelli in
memoria?
-- 
Cio` che ho scritto, ho scritto.

 memoria?
Prova a vedere il modulo Tie::File.
ciao,
S.
Newsgroup: it.comp.lang.perl
Titolo: OT:Incredibile, funziona...

Fare soldi incomincia a diventare facilissimo.
Segui questo link
http://www.targetshop.com/users/level1.asp?refId=413788
registrati (é completamente gratuito e non chiedono nulla in cambio)  e
diffondi a quante più persone conosci.
Per ogni persona che si registrerà  presentata da te, riceverai $12.50
garantiti.
provare per credere, e poi non costa nulla.
Ciao
Aldo

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

Newsgroup: it.comp.lang.perl
Titolo: Mi serve un comando

Qualcuno di voi mi saprebbe dire qual'è il comando perl che richiama un
file?
Grazie
Mademan



system("comando")
.
....
Non lo fare.
Non ce n'e' bisogno.
:-)
Jop

 file?
AHHHHH MA ALLORA INSISTI!!!!
NON TI SERVE UN COMANDO, TI SERVE STUDIARE PERL!!!
dd

 ha scritto nel messaggio
news:IRLh9.106907$ub2.2...@news1.tin.it...


Newsgroup: it.comp.lang.perl
Titolo: cerco guida o documentazione PERL

Vorrei imparare ad usare PERL.
Qc conosce un sito dove si possa trovare una guida o una documentazione di
PERL.
Grazie
Gabriel

PERL.
http://www.html.it
 per qualcosa in italiano (e presto un tutorial sara`
disponibile sul sito di questo NG, in fase di realizzazione).
Se leggi tranquillamente l'inglese allora vai su 
http://www.perl.com
 
	Michele. 
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/

Newsgroup: it.comp.lang.perl
Titolo: non trovo sys::socket

Ciao a tutti!
Qualcuni sa dirmi dove posso trovare il modulo in questione. Ho provato su
http://www.activestate.com/PPMPackages/zips/6xx-builds-only/
 e su
http://www.cpan.org/modules/
 . Ho fatto una ricerca in internet e ho visto
che altri hanno avuto il mio stesso problema ma non ho capito come
risolverlo...
Grazie a tutti.
Stè

 wrote in message a8phdv$2hi$1...@newsreader.mailgate.org...

Da quello che dici mi pare che tu stia usando un vecchio script
concepito per una vecchia versione di Perl. Ho trovato riferimenti
a 'sys/
socket.ph
' in almeno tre posti:
http://www-old.ics.uci.edu/pub/websoft/libwww-perl/archive/1994/0077.html
http://www.ictp.trieste.it/texi/perl/perl_53.html
http://sites.inka.de/sites/bigred/sw/tinyhttpd.html
Tutti documenti piuttosto vecchi come puoi vedere.
Il mio consiglio, se stai effettivamente usando qualche
vecchio script, e` ripiegare su qualcosa di piu` recente
che usi il modulo Socket o ancora meglio IO::Socket.
ciao
Stefano

Grazie!
In qualche modo ho fatto...
Stè
Newsgroup: it.comp.lang.perl
Titolo: gestione autenticazione

Ciao a tutti!
Devo gestire con degli script perl gli utenti che accedono ad una pagina
web protetta tramite la basic authentication.
Il server ha su mysql e il perl con DBI ma purtroppo Apache NON ha
mod_auth_mysql: solo mod_auth e mod_auth_DBM. Se non fosse stato cosi' non
c'erano problemi: gestivo tutto con query sql tramite DBI.
Invece devo gestire il tutto con file DBM; il modulo che sul server e' 
deputato alla gestione di file DBM dovrebbe essere il solo MLDBM.
Problema:
se creo utenti con il dbmmanage (tipico per creare file .db per la basic
authentication), MLDBM non me li vede, mentre con un file creato tramite
MLDBM, se faccio un
dbmmanage nomefile view
ottengo un "formato non valido".
Come fare per gestire i file DBM creati da dbmmange?
O in alternativa: come faccio a gestire gli utenti di una pag protetta 
tramite basic authentication senza usare i file normali creati con
htpasswd?
Grazie!
*******************************************************
Andrea Maestrutti                          Dree Mistrut
--
Posted from 
ten.dimi.uniud.it
 [158.110.144.132]
via Mailgate.ORG Server - 
http://www.mailgate.org

 deputato alla gestione di file DBM dovrebbe essere il solo MLDBM.
Improbabile. MLDBM e' un modulo di incapsulamento che deve appoggiarsi su 
un ulteriore modulo di DBM (DB_File,SDBM,NDBM,GDBM). SDBM deve esserci per
forza, essendo distribuito con Perl. Le versioni recenti dovrebbero avere
anche DB_File e/o GDBM. Scopri quale di queste librerie sta usando dbmmanage 
e usa il modulo adeguato.
Il dbmmanage sul mio sistema (Linux) parla di file .pag e .dir, quindi non usa
DB_Berkeley (ovvero DB_File). Direi che usa GDBM, ma verificherei.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 Maurizio
Ciao e grazie. 


 ottengo un "nome.db" ... scusa l'ignoranza, allora e' Berkeley?
Dovrebbe esserlo.

Newsgroup: it.comp.lang.perl
Titolo: Ricerca Programmatore Perl

Salve a tutti,
Scrivo per informarvi di una proposta di collaborazione.
Sto cercando un programmatore per la realizzazione di un mini-software
utile per analizzare e rappresentare multigrafi.
Si richiede una ottima competenza nell'utilizzo di Perl con i relativi
pacchetti di rappresentazione grafico/matematica.
Per la nozione di grafo si rimanda alle seguenti pagine:
http://it.wikipedia.org/wiki/Teoria_dei_grafi
 (italiano).
http://en.wikipedia.org/wiki/Graph_theory
 (inglese).
È preferibile la residenza in provincia di Milano, in vista di un
possibile incontro.
Si tratta di una collaborazione esterna retribuita.
Gli interessati possono contattarmi direttamente ai recapiti presenti in
coda all'e-mail, inviando il relativo curriculum vitae.
Spero di avere fatto cosa gradita postando questo annuncio.
In caso contrario, mi scuso per il disturbo.
Saluti,
Giandomenico Sica
Polimetrica Onlus
Corso Milano 26
20052 Monza Mi Italia
Tel/Fax: 039.2301829
E-mail: g.sica chiocciola 
polimetrica.org

Caro Giandomenico,
è possibile trovare in rete una quantità enorme di programmi già
funzionanti.
Puoi facilmente trovare un programmatore nel gruppo specifico di
programmatori Perl.
Se posso aiutarti lo farò volentieri, puoi inviarmi un messaggio
privato sul mio indirizzo di posta elettronica.
Non è possibile un incontro personale dato che sono lontano.
Ho una software house e collaboro con programmatori in tutto il mondo.
Quando ho in cantiere grossi lavori, richiedo la collaborazione in rete
e funziona benissimo, è importante però definire bene fin dall'inizio
il prodotto desiderato.
Cordiali saluti
Oreste Parlatano
ore...@parlatano.com
www.oreste.parlatano.com
+258 84 22 80 620
Newsgroup: it.comp.lang.perl
Titolo: Cercare in una lista

Per verificare se una variabile e` uno degli elementi di una lista
predefinita ho usato questo:
if (grep(/$type/, qw(mods proponents type rfdgroups charter note footer)) {
A parte una concatenazione di eq vi vengono in mente altri sistemi
interessanti?
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

 interessanti?
Se il controllo lo fai tante volte, puoi fare un hash e testare l'esistenza
della key.
  @hash{ qw (mods proponents type rfdgroups charter note footer) } = ();
  ....
 
  if (exists $hash{$type})
   {
     ....
   }
In questa maniera tutti gli elementi dichiarati sono pero' 'undef'. Comunque
con exists non dovrebbe essere un problema.
Il tuo grep fa cilecca se $type fosse una sottostringa delle
parole del tuo elenco, a meno che questo non sia voluto.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 wrote:
: Per verificare se una variabile e` uno degli elementi di una lista
: predefinita ho usato questo:
: if (grep(/$type/, qw(mods proponents type rfdgroups charter note footer)) {
: A parte una concatenazione di eq vi vengono in mente altri sistemi
: interessanti?
Un foreach. Il grep deve comunque esaminare tutta la lista, mentre un
ciclo puo` uscire una volta trovato l'elemento.
Ad esempio:
#!/usr/bin/perl
use Benchmark;
@list = qw(mods proponents type rfdgroups charter note footer);
timethese(100_000, {grepl => q{ $found = grep(/footer/, @list)},
                    forl  => q{ for (@list){if($_ eq "footer"){$found=1;last}}},                    grepf => q{ $found = grep(/mods/, @list)},
                    forf  => q{ for (@list){if($_ eq "mods"){$found=1;last}}}}
                 );
Da` questi risultati:
Benchmark: timing 100000 iterations of forf, forl, grepf, grepl...
      forf:  2 wallclock secs ( 2.11 usr +  0.00 sys =  2.11 CPU)
      forl:  5 wallclock secs ( 3.90 usr +  0.00 sys =  3.90 CPU)
     grepf:  5 wallclock secs ( 4.06 usr +  0.00 sys =  4.06 CPU)
     grepl:  4 wallclock secs ( 3.83 usr +  0.00 sys =  3.83 CPU)
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) ns (dot) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nandos

...
:Un foreach. Il grep deve comunque esaminare tutta la lista, mentre un
:ciclo puo` uscire una volta trovato l'elemento.
non e' conveniente un index()?
ne approfitto per chiedere: 'qw{' e' simile a 'q{'?

 ne approfitto per chiedere: 'qw{' e' simile a 'q{'?
Un po'.
 q// e' un modo per mettere le virgolette semplici.
 qw// ti crea una lista di parole senza interpolare.
 
 Quello che hanno in comune e' quindi di non interpolare il loro argomento.

Newsgroup: it.comp.lang.perl
Titolo: Perchè i moduli si chiamano Blabla::blabla ?

Cosa significano i due punti?

Cosa significano i due punti?
E' una gerarchia. Può implicare l'eredità di oggetti e metodi da parte
delle gerarchie inferiori, o semplicemente un'organizzazione logica (i
moduli Win32::* riguardano tutti Windows, ma non hanno necessariamente
codice in comune).
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: RICHIAMARE CGI DA PHP

Salve a tutti,
volevo sapere se qualcuno di voi sa come richiamare l'esecuzione di un
cgi, passando allo stesso dei parametritramite il metodo post da una
pagina php.
Ringrazio quanti mi risponderanno.
Roberto
--
----------------------------------------------------
  Roberto Pasini
  Aula di Informatica
  Universita' degli Studi  di Verona
  Facolta' di Medicina e Chirurgia
  Facolta' di Scienze MM.FF.NN.
  Strada le Grazie, 37134 Verona - ITALY
  Tel.  :  +39 45 802 7642
  Fax  :  +39 45 802 7119
  E-MAIL :  
roberto...@univr.it
----------------------------------------------------
-- 
Posted from 
mail.univr.it
 [157.27.6.110] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
3AB6407A...@univr.it...

Newsgroup: it.comp.lang.perl
Titolo: Problemi con LWP

Ciao,
utilizzo ActivePerl su Windows 2000 Server.
Perchè il seguente codice non funziona?
 use LWP::Simple;
 $pagina = get ('
http://www.iol.it
');
 print ("$pagina");
Viene segnalato un errore del tipo: "Use of uninitialized value in 
string ecc.ecc....."
Grazie per l'aiuto
Fabio
-- 
Posted from 213.140.20.139 by way of 
smtp4.libero.it
 [193.70.192.54] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Perchè il seguente codice non funziona?
A me funziona bene (ActivePerl 5.6.0.623 su Windows NT 4 Server)
nota:
#---- code
use LWP;
print "This is libwww-perl-$LWP::VERSION\n";
#---- end code
mi stampa
"This is libwww-perl-5.48"
Come dice Marco prova a verificare se hai installato libwww-perl (da shell:
ppm query), ma se non vado errato, il modulo dovrebbe essere incluso di
default da ActivePerl (almeno nelle ultime versioni).
Bye, Ezio

Newsgroup: it.comp.lang.perl
Titolo: IM::Imap - Modulo sconosciuto

Ciao a tutti
Sul server che ospita il mio sito è installato il modulo IM::Imap e non 
riesco a capire di che modulo si tratta e come funziona.
A me servirebbe un modulo per accedere ad alcune caselle imap, ma senza 
documentazione non posso utilizzarlo.
Qualcuno mi può aiutare a trovare informazioni su questo modulo?
Grazie

cerca in CPAN
search.cpan.org
--
-.. --- -- .. --.. .. ---
-.. . -- .. -.-. .... . .-.. .. ...


### Created: Apr 23, 1997
### Revised: Apr 14, 2000
###
Ma sempre niente documentazione.
Grazie comunque per l'aiuto.

 ### Revised: Apr 14, 2000
Infatti è una roba vecchierella giapponese e non ha proprio documentazione
POD.
Magari questo lo hai già visto:
http://mikoto.sapporo.iij.ad.jp/cgi-bin/cvsweb.cgi/fmlsrc/img/lib/IM/Imap.pm
?sortby=log
Comunque ... perché non usi qualche altro modulo?
ciao


 Qualcuno mi può aiutare a trovare informazioni su questo modulo?
http://tats.iris.ne.jp/im/
Google rulez :)
-- 
$_=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: Perl e socket

Salve,
come faccio a monitorare un servizio (porta) residente su un altra
macchina? In pratica vorrei creare un server primitivo in perl e poi
stabilire una connessione lato client; se il server va giù il client
dall'altra macchina deve scrivermi una riga di log in un file di
testo.
Impossibile?


Nulla è impossibile, prova a fantasticare
controllo con il ping se è in rete quando non risponde
gli fai fare la scritta o anche pop up di avviso.

 wrote:

Una volta tirata su la connessione, puoi far sì che il server invii
del traffico su di essa ad intervalli regolari. Se ad un certo punto
non lo ricevi più sul client... il server è andato giù.
Allo scopo puoi dare un'occhiata ad IO::Select, che ti permette di
effettuare un'attesa temporizzata su un socket, esempio (lato client,
non testato):
my $timeout = 15; # mettilo più grande dell'intervallo di invio
                  # dal server
my $sock = IO::Socket::INET->new(
   PeerAddr => 'your.host.domain',
   PeerPort => 12345, # metti la porta giusta!
   Proto    => 'tcp',
) or die "sock: $!";
my $sel = IO::Select->new($sock);
while ($sel->can_read($timeout)) {
   my $nread = sysread $sock, my $buffer, 4096 # piu' grande del
messaggio mandato dal server...
      or die "connessione con il server terminata!";
}
die "connessione con il server andata in timeout!";
Ciao,
   Flavio.

Newsgroup: it.comp.lang.perl
Titolo: cast bool su scalari

Se lancio lo script seguente:
#!/usr/bin/perl
my $vero=2>1;
my $false=2<1;
print "vero: $vero\n";
print "falso: $falso\n";
ho come output:
root@pluto:~# ./
testbool.pl
vero: 1
falso:
root@pluto:~#
perché $falso non viene impostato su zero?

PS: il problema persiste anche se uso il nome giusto per $falso 
nell'assegnazione	;)
Coniglio Sgabbiato ha scritto:


Coniglio Sgabbiato wrote:

E perché dovrebbe? ;-)

Emanuele Zeppieri ha scritto:

mmm... non ci arrivo, che valore assume $falso, stringa vuota?
root@pluto:~# cat 
testbool.pl
#!/usr/bin/perl
my $vero=2>1;
my $falso=2<1;
my $test=defined $falso;
print "vero: $vero\n";
print "falso: $falso\n";
print "defined falso: $test\n";
root@pluto:~# ./
testbool.pl
vero: 1
falso:
defined falso: 1
root@pluto:~#

 mmm... non ci arrivo, che valore assume $falso, stringa vuota?
Più o meno: stringa vuota, ma con i valori numerici già settati a 0:
$ perl -MDevel::Peek -e '$f=4>5;Dump($f)'
SV = PVNV(0x1912c40) at 0x197f650
   REFCNT = 1
   FLAGS = (IOK,NOK,POK,pIOK,pNOK,pPOK)
   IV = 0
   NV = 0
   PV = 0x1912020 ""\0
   CUR = 0
   LEN = 4
Pertanto in contesto numerico si comporta esattamente come lo 0, senza 
neanche dare il warning:
$ perl -w -e '$f=4>5;print $f+3, "\n"'
3
(mentre la stringa vuota letterale lo darebbe:)
$ perl -w -e '$f="";print $f+3, "\n"'
Argument "" isn't numeric in addition (+) at -e line 1.
3
Essendo la stringa vuota uno dei valori /false/ in Perl, mi sembra la 
scelta più corretta.

Interessante, a questo punto mi basta forzare il numerico con $falso+=0 
per usarlo come voglio	:)
Molto interessante anche il modulo che hai usato, non lo conoscevo.

Newsgroup: it.comp.lang.perl
Titolo: Espressione regolare strana ?

Salve a tutti,
non sono un esperto di Perl, ma dato che sto cercando di comprendere le 
espressioni regolari e dato che in Perl queste sono di casa ho pensato 
di rvolgervi a voi del NG per una domanda forse banale.
In realta' sto usando le RegEx di Microsoft che ha scimmiottato un poco 
quelle utilizzabili in perl e mi e' venuto un dubbio profondo.
Ebbene supponiamo di voler estrarre da una stringa di questo tipo:
COMANDOXYZ valore, valore eccc
tutto quello che viene dopo COMANDOXYZ ma senza prendere COMANDOXYZ
In effetti facendo un banale ^COMANDOXYZ.* mi trova tra tante righe 
quella ce inizia con COMANDOXYZ, ma in realta' io vorrei avere solo 
quello che si trova dopo COMANDOXYZ senza prendere COMANDOXYZ.
E' possibile ?

Certamente si.
Per fare ciò puoi scrivere qualcosa del genere:
$stringa="COMANDO valore, valore2";
$stringa=~/^COMANDO (.*)/;
print $1,"\n";
Eventualmente se vuoi tutti i valori puoi spingerti oltre e aggiungere
le seguenti righe:
@valori=split(/,/,$1);
print $valori[1],"\n";
Il print stamperà il secondo valore dell'array @valori che è il
secondo valore che incontri...
Spero di esserti stato utile,
nathanvi

grazie. 1000
ciao
nathanvi ha scritto:


Newsgroup: it.comp.lang.perl
Titolo: subroutine in file separati


To use violence is to already be defeated.
                -- Chinese proverb

Si:
crea il file separato cosi
--------------inizio------------
sub funzione {
.....
}
sub altra {
....
}
1;
--------------fine---------------
nb: è importante il 1; all'ultima riga.
collega il file esterno cosi:
require "file.lib"
e richiama le funzioni normalmente.
l'estensione del file può essere qualsiasi.
$ciao
Newsgroup: it.comp.lang.perl
Titolo: Perl per NT 4.0

Qualcuno sa dirmi dell'esistenza di un buon Perl5 per NT4.0 che sia
freeware?
O bisogna comprarlo????
Grazie.
Alex.
                             \|/
                            (@ @)
------------------------oOO--(_)--OOo--------------------
Alessandro Feltrin - C&M S.p.a. Tel. 011-7677877
		     E-Mail 
afel...@c-m.it

 freeware?
Perl *e' free*. 
www.perl.com
Cheers
	Alessandro Forghieri

		     E-Mail 
afel...@c-m.it
La distribuzione binaria per Win32 è gratuita.
Io la ho trovata su 
http://sunsite.auc.dk
 alla voce CPAN 
(mi risulta piu' veloce dei mirror italiani)
Ciao
Massimiliano
I Migliori Links!! 
http://yamaross.com/max/

Newsgroup: it.comp.lang.perl
Titolo: Internal Server Error...perche'??

Salve, sono un neofita della programmazione Perl e ho il classico caso
da newbie...
Se installo un semplice script come questo:
#!/usr/bin/perl
print "Content-type:text/html\n\n";
print "<html><head><title>Test Page</title></head>\n";
print "<body>\n";
print "<h2>Hello, world!</h2>\n";
print "</body></html>\n";
va tutto bene (e ci mancherebbe)
se invece uso la versione (spero di dire bene) sintatticamente piu'
usata e corretta, non va:
#!/usr/bin/perl
print "Content-type:text/html\n\n";
print <<EndOfHTML;
<html><head><title>Test Page</title></head>
<body>
<h2>Hello, world!</h2>
</body></html>
EndOfHTML
E questo anche per altri esempi presenti nel libro (CGI101)...con
questa forma, il risultato e'sempre lo stesso.
Ho provato a fare il debug  tramite shell e dice che manca un
terminatore nella stringa EndOfHTML
C'e' qualcuno che mi puo' aiutare?
Grazie anticipate!!


Le virgolette :)

 EndOfHTML
usavo anch'io CGI101! guarda bene l'esempio:
ci dovrebbe essere un ";" dopo EndOfHTML
--
Ciao
The Bos
the-bos#
axelweb.com
http://the-bos.axelweb.com
Newsgroup: it.comp.lang.perl
Titolo: matching con array

sicuramente mi perdo in un bicchiere d'acqua, ma...
Vediamo se riesco a spiegarmi:
 
ho un array:
@array = qw(pinco, pallino, tizio, caio);
 
se eseguo :print @array; #ottengo pincopallinotiziocaio
se però faccio una cosa tipo questa:
if (@array=~ /tizio/) {
print "ho trovato tizio \r\n";
}
 
non ottengo niente perchè in questo caso @array mi ritorna solo il numero 
degli elementi, quindi se modifico così:
if (@array=~ /4/) {
print "ho trovato 4 elementi \r\n";
}
 
conferma il mio sospetto.
La mia domanda da pivello è pure semplice.... se
 
print @array;
 
 mi ritorna una stringa con tutti gli elementi uno dopo l'altro, perchè
 
$stringona = @array;
 
mi riporta invece 4? esiste un modo oltre a foreach per concatenare tutti 
gli elementi di un array?
 
-- 
Fri(END), Boyfri(END), Girlfri(END), Bestfri(END). Everything has an END 
except...Fam(ILY)! It Has 3 Letters that say I LOVE YOU 
 

 tutti gli elementi di un array?
 
Perché in un contesto scalare, @array è come dire scalar(@array) ovvero 
ti dice quanti elementi ci sono nell'array (diversamente da $#array che 
ti dà l'indice dell'ultimo elemento dell'array).
 
Leggiti quel documento e ne riparliamo. Ciao.

 ma ti consiglio di usare il modulo List::Util.
 
credo che sia come sparare ad un passero con un cannone, meglio grep() 
almeno in questo caso :-)
 
Grazie per il supporto!

Newsgroup: it.comp.lang.perl
Titolo: come creare un piccolo server?

Ciao a tutti, ho cominciato ad usare perl da poco.
Vorrei  realizzare (uso  Linux) un  piccolo server  che sia  in grado,
ricevuta una stringa in ingresso, di rispondere con una frase presa da
un array. Senza reinventare  l'acqua calda, potreste indicarmi qualche
modulo che  possa servire  da base per  realizzare il  mio progettino?
(solo la gestione server-client).
Mi sono letteralmente perso tra tutto quel ben di Dio che c'e' su CPAN
e  non vorrei  imboccare strade  sbagliate o  troppo difficili  per un
principiante. Grazie fin d'ora.
Ciao Francesco.
 
<*>  Appunti Linux per il pinguino che non deve chiedere mai. <*>  
<*>  
http://www.pluto.linux.it
                                <*>

 (solo la gestione server-client).
Ti suggerirei di dare un'occhiata a questo modulo:
 Net::TCP::Server
 TCP sockets interface module for listeners and servers 
 
http://search.cpan.org/search?dist=Net-ext
 
http://search.cpan.org/doc/SPIDB/Net-ext-0.932/lib/Net/TCP/Server.pm
In alternativa, puoi pensare di lavorare direttamente con
IO::Socket::INET.  Esempio di echo server... single-session:
  use IO::Socket::INET;
  my $sock = IO::Socket::INET->new( 		
                  Listen    => 1,
                  Reuse => 1,
                  LocalPort => 2000,
                  LocalAddr => 'localhost',
                  Proto     => 'tcp' );
  my $cli  = $sock->accept;
  print "connessione da " . $cli->peerhost ."\n";
  while( 1 )
  {
       my $line = <$cli>;
       print $cli $line;
  }
 
Max

Newsgroup: it.comp.lang.perl
Titolo: istruzione "open()"....qualche controindicazione???

Salve a tutti,
    ho preparato uno CGI in perl per un sito. In questo script ho usato la
funzione open() che permette al programma di aprire files e la directory in
cui sono depositate le pagine html del sito. Lo script funziona
perfettamente da linea di comando e adesso lo interfaccero' in un sito di
prova sulla mia LAN. Nel frattempo pero' vorrei, se possibile, delle
risposte ad un paio di dubbi che mi sono venuti:
1) Lo script (che girera' sotto NT, quindi nella stessa cartella dei files
.html, non c'e' bisogno di una folder cgi-bin) potra' usare liberamente la
funzione "open()" o ci puo' essere qualche problema di permessi???
2) La funzione "open()" necessita di path completo o puo' funzioonare anche
con la formula:
            open (FILE, "./htmldir/file);
???
Grazie a tutti.
ciao,
fabio

            open (FILE, "./htmldir/file);
Puoi anche utilizzarla con i path relativi, come nel tuo esempio.
	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!


dipende: sempre riferendomi ad aruba, alcuni sito hanno bisogno del path
completo d://intet..... altri si accontentano di quello relativo
postilla: non aprire un account con aruba
Newsgroup: it.comp.lang.perl
Titolo: Perl - DBI - Mysql e mail

Ciao a tutti,
ho un piccolo problema che non riesco a risolvere.
quello che faccio:
invio una mail in formato testo al mio server di posta, qui con un 
programmino Perl, la processo, ne ricavo alcune stringhe di testo e faccio 
una insert tramite il DBI/DBD su un server MySQL remoto.
Il tutto funziona perfettamente fino a quando su una delle stringhe che 
recupero, non compare un carattere con codice ascii sopra al 128 (quelli che 
differiscono in base al charset usato).
Come posso ovviare a questo inconveniente?
Non posso operare sul client di posta che invia la mail xche' potrebbe 
essere un qualsiasi utente.Posso solo lavorare sul mio script perl.
grazie in anticipo x eventuali risposte,
-- 
Ciao
Lorenzo


wrote:

certo che se non dici che errore ottieni , ti può rispondere solo chi
è fornito di una palla di cristallo

 è fornito di una palla di cristallo
 
Ecco, mi sembrava mancasse qualcosa!:)
Il problema e' che non mi ritorna nessun errore.
Se invece di fare la insert mi faccio reinviare l'output processato per 
email o lo faccio scrivere in un file, non ottengo niente. Il file e' vuoto 
e la mail non ha body.
Lo so che e' veramente difficile trovare una soluzione con questi dati.
Mi basterebbe uno spunto, un'idea.
-- 
Ciao,
Lorenzo

 Mi basterebbe uno spunto, un'idea.
A naso, potrebbe trattarsi di un problema di quoting...
prova con 
$testo_quote=$dbh->quote($testo); #a memoria... controlla!
e in MySQL fai l'insert di $testo_quote

 Mi basterebbe uno spunto, un'idea.
Allora la sparo: secondo me č il parsing della mail che arriva al tuo
server che non ha l'effetto voluto, e tu cerchi di fare un insert senza
dati. Esempio scemo: la mail č:
From: pippo
To: pluto
Ciao Pippo sono Pluto
e nel tuo script c'č qualcosa del tipo:
while(<EMAIL>) {
    m/from/ and fai qualcosa con $_ # Ad esempio, inserire il valore di
                                    # $_ nel DB
....
}
In questo caso, non hai alcun matching e provando ad inserire i dati nel
DB non ottieni errori (evidentemente la questione delle quesry per la
connessione e l'inserimento dei dati sono corretti), solo che nel DB non
entra alcunchč!
Prova a mandare l'output dello script in Perl oltre che nel DB anche in
un file, per essere sicuro che estragga i dati che effettivamente devi
inserire nel DB: se anche il file č vuoto, sai che il problema č lo script
Perl. E da qui puoi limare ulteriormente! :-)
(consiglio: esegui lo script "a pezzi" magari in locale, per vedere dove
questo faccia qualcosa di "inaspettato")
Ciao
--ev

Allora ho risolto!
Per il quoting, l'avevo gia' fatto per ovviare ai caratteri tipo \ ' ecc.
Il problema sta nel charset.
Siccome il sistema prevede che gli utenti usino outlook (che odio) non mi 
ero reso conto che di default non imposta un charset ISO ma quelli 
specifici windos. E' bastato cambiarlo in Europa centrale (ISO) ed ha 
funzionato tutto.
Me ne sono reso conto facendo le stesse prove, ma inviando la mail con The 
Bat! :)
Grazie a tutti per le indicazioni che mi sono state molto utili!
...e come vuole Perl, 
    	 TMTOWTDI
:)
-- 
Ciao,
Lorenzo
จ~{togliere _NESPOLA_ dall'email}~จ
Newsgroup: it.comp.lang.perl
Titolo: SSH

Salve a tutti. 
Ho un piccolo script perl che permette di modificare la password
utilizzando l´apposito "accrocco di Eudora".
Pare che per ora si comporti benone, ma ho un "piccolissimo" problema
con la sicurezza.
Eudora mi manda user e password in chiaro. 
Mi hanno detto che potrei usare ssh, ma essendo io "poco proatica" ho
le idee poco chiare :-).
Qualcuno puo´aiutarmi ? 
Grazie 
Giovanna

 Giovanna
x una richiesta cosě vaga :
http://search.cpan.org/search?mode=module&query=ssh

Newsgroup: it.comp.lang.perl
Titolo: uso dei threads

salve, provando ad eseguire il seguente thread:
sub loadpage {
	my $webpage = "";
 
	print "getting $page...";
	$webpage = get $_;
	print "got!\n";
	if ($webpage eq undef) {       <<<<<<<<<<<<<<
		print "404 at $_\n";
		$links{$_} = 404;
	} else {
		$p->parse( $webpage );
		visit();
	}
}
mi da' errore su:
Use of uninitialized value in string eq at 
test404-th.pl
 line 103.
La 103 e' dove ci sono i <<<<<<<<<<
Mi sembra strano...
La versione non threaded non mi da' problemi.

 
Ahem, ho sbagliato: l'errore e' precisamente dove ho segnato sopra.

Azz, 'un ci capisco niente :)
Con il supporto thread, Perl sembra 'mbriao...

 
Se stai lavorando sotto windows, è facile che sembri brillo :)
Prova a guardare: 
	perldoc perlthrtut
magari c'è qlcs che può aiutarti.
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

 Se stai lavorando sotto windows, Š facile che sembri brillo :)
infatti credo sia proprio x quello! :)

,
scriveva:

Può darsi (mai fatto uso di thread), però il modo giusto per verificare se
una variabile è definita è:
         if (!defined $webpage) {
         ....
         }
non:
         if ($webpage eq undef) {
         ....
         }
E il modo più conveniente per controllare se la pagina è stata caricata è
probabilmente ancora un altro (probabilmente un eval del blocco che
realizza il get).
Perché la pagina non venga caricata (posto che non venga caricata) è un
altro problema.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: velocizzare il codice

Salve,
ho un codice di dimensioni abbastanza grandi e vorrei
rendere la sua esecuzione piu' veloce possibile.
E' utile usare pochi nomi di variabili?
grazie
Raffaello

 E' utile usare pochi nomi di variabili?
Non credo. L'eventuale guadagno sarebbe risibile.
A prescindere dalle dimensioni del codice, potresti fare un po' di profiling
e scoprire quali sono le parti piu' lente, per ottimizzare quello.
Prova a cercare Devel::DProf o Devel::SmallProf su CPAN.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)
Newsgroup: it.comp.lang.perl
Titolo: libri su perl: consiglio

)
Qualcuno lo ha già consultato? lo consiglierebbe?
Consigli vari graditi.
Mi piace avere anche una bella biblioteca cartacea, non solo bytes vari
:)
TIA
salvo
-- 
§alvomi©


ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org/blog
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it


bene, grazie, intanto comincio proprio da qui.
-- 
salvo

Io ho cominciato e quasi terminato con:
Perl e Internet di Bellini-Guidi edito dalla McGraw-Hill.
Per cominciare, e' un ottimo testo.Non e' un mattone di 500 pagine.Il
libro e' suddiviso in 14 capitoli e tratta la programmazione Perl dalla
base fino all' uso dei moduli e la programmazione ad oggetti.Gli ultimi
due capitoli sono dedicati al mondo Internet, con script per lato Client
come posta elettronica, telnet ed altri protocolli per interfacciarsi con
server web 
etc.etc.Ci
 sono esercizi al termine di ogni capitolo e script
funzionanti per comprendere meglio le funzionalita' dei vari protocolli.
Ciao


 funzionanti per comprendere meglio le funzionalita' dei vari protocolli.
benissimo, dovrei solo vedere se non č esaurito come molti che ho visto.
Rigurado su McGrawHill.
La trattazione dei cgi mi interessa molto.
Intanto ho preso Learning Perl (quarta edizione) e non č male. Anzi :)
Neppure questo č un mattone, ma č in inglese.
grazie, ciao
Salvo

 Neppure questo è un mattone, ma è in inglese.
"Purtroppo" secondo me è meglio. Là fuori è tutto in inglese, poi, quindi è
meglio entrare subito nell'ordine delle idee e prendere confidenza con i
termini.
My 2 (superused) cents,
-- 
.           .  | 
| , ,-. ,-. |  | "In girum imus nocte et consumimur igni."
|<  |   ,-| |  |                               -- Virgilio
' ` '   `-^ `' |

 termini.
d'accordissimo.
Ne ho avuto alcune recenti esperienze, con certe "traduzioni" in
italiano (libri su python e altro) in cui ad es. "scope" diventava
"scopo", "regular expression" "regolare l'espressione"...
E altre meno pacchiane, di cui mi sono reso conto solo visionando la
versione originale in inglese.
ciao,
salvo
Newsgroup: it.comp.lang.perl
Titolo: esiste qualcosa di più ....?

Ciao a tutti!
programmando cgi in perl, ho continuamente
a che fare con le query string da splittare.
Mi spiego:
a) ho una stringa ( $ENV{'QUERY_STRING'} o
  qualsiasi altra ) nel formato:
  "key_1=val_1&key_2=val_2&key_3=..."
b) voglio sparare tutto in un hash
Fino ad ora la soluzione secondo me era:
<Perl>
foreach( split '&', $ENV{'QUERY_STRING'} ) {
	push @tmp, split '=';
}
%hash=@tmp;
</Perl>
Ora vi chiedo:
esiste qualcosa di più efficiente e/o strabiliante
del tipo una-linea-e-ho-fatto-tutto?
Chiaramente è solo per curiosità, non per rendere
il codice più "obfuscated" :)
_______________________________________________________
Cosimo.
mailto:
cst...@idgroup.it

 del tipo una-linea-e-ho-fatto-tutto?
%hash = map { split '=' } split '&', $stringa;
Maurizio
-- 
Maurizio M. Munafo' |                            
E-mail:mmmu...@netscape.net
--------------------+---------------------------------------------------------
             (o_    |                              - Gentile or Jew,
   (o_  (o_  //\    | O you who turn the wheel and look to windward,
   (/)_ (/)_ V_/_   | Consider Phlebas, who was once handsome and tall
as you.
--
Posted from 
sm4...@hp0tlc.polito.it
 [130.192.7.154]
via Mailgate.ORG Server - 
http://www.mailgate.org

 curiosità, non per rendere il codice più "obfuscated" :)
  Ci sarebbero CGI.pm e 
cgi-lib.pm
. La prima e` object oriented:
guardaci dentro e troverai *oltre* l'obfuscated. ;)
	Alla prossima,
		Marco

 del tipo una-linea-e-ho-fatto-tutto?
%hash = map { split '='} split '&' $stringa;
Maurizio
P.S.:Puo' darsi che questa risposta sia duplicata, perche' avevo provato a
rispondere tramite MailGate...
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

                                   ^^^
Ua!! Delirio!!
Grande Maurizio! Queste sono le cose che mi piacciono...
Secondo me ci ero vicino, però :)
Grazie!
Newsgroup: it.comp.lang.perl
Titolo: sort su un array bidimensionale

come posso fare un sorting di un array bidimensionale??????
vi ringrazio anticipatamente.
Antonello

#!/usr/bin/perl -w
# non č chiaro come si possa ordinare un array bidimensionale
# visto che l'ordinamento č un' operazione tipicamente lineare
# comunque..
use strict;
use Data::Dumper; # per poter stampare gli array bidimensionali
my @array_2_dim = (
	[4,7,6],
	[1,11,2],
	[3,3,3],
	[3,3,-1],
);
# suppone array bidimensionali
# con 3 colonne.
# ordina numericamente, in maniera crescente
# a partire dalla prima colonna.
sub biarray {
	@$a[0] <=> @$b[0]		or
	@$a[1] <=> @$b[1]		or
	@$a[2] <=> @$b[2]	;
}
print Dumper(sort biarray @array_2_dim);
###################################################
my @array_2_dim_bastardo = (
	[1,1,1],
	[1,1,0],
	[1,1,0,-100],
	[0,-1,-1],
);
# come prima ma
# gli array possono avere un numero di colonne variabile.
# se tutti i valori sono uguali, "vince" la riga piů
# lunga
sub bibiarray {
	my ($x,$res);
	for ($x = 0; not $res = @$a[$x] <=> @$b[$x]; $x++) { }
	return $res;
}
print Dumper(sort bibiarray @array_2_dim_bastardo);
-- 
Posted from 
mail2.galactica.it
 [212.41.208.19] (may be forged) 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.perl
Titolo: avete un utility perl quick&dirty per verificare la well-formedness?

idealmente anche da command line
sul sito del W3C ce n'è una che non funziona (forse perchè il mio file è grosso)
Grazie
Luca

 sul sito del W3C ce n'è una che non funziona (forse perchè il mio file è grosso)
http://search.cpan.org/search?query=w3c&mode=all
ad es.
http://search.cpan.org/~victorf/Test-HTML-W3C-0.03/lib/Test/HTML/W3C.pm
ma non ho idea se le altre proposte siano migliori.
CPAN è il paese dei balocchi.

Newsgroup: it.comp.lang.perl
Titolo: come calcolare la lunghezza di una stringa?

come calcolare la lunghezza di una stringa?
oppure.
Come vedere se la lunghessa è > 0 (qualcosa del tipo "/.*/g     ?!?!).
Grazie in anticipo, Mario.

 Come vedere se la lunghessa è > 0 (qualcosa del tipo "/.*/g     ?!?!).
length $var > 0
-- 
Saluti,
Giancarlo

 Come vedere se la lunghessa è > 0 (qualcosa del tipo "/.*/g     ?!?!).
Oh, beh, se proprio vuoi usare le regexp...
     $len = @{ [ $string =~ /(.)/g ] };
ma forse è meglio usare length(). :-)
     $len = length( $string );
  perldoc -f length
Max

 Come vedere se la lunghessa è > 0 (qualcosa del tipo "/.*/g     ?!?!).
$len = length($len);   # num. caratteri
if ( defined($string) ) # non "vuota"
---
Mario Rizzuti

 if ( defined($string) ) # non "vuota"
Sbagliato.
$stringa='';
cosi' e' definita, quindi la condizione dell'if e' vera, ma e' vuota.
-- 
Saluti,
Giancarlo

Newsgroup: it.comp.lang.perl
Titolo: Rispondetemi sono disperato!

In una top sites, cosa significa voti out.
Voti IN sono i voti che ha ricevuto un sito, ma OUT che significa!!!!!!

 ha scritto nel messaggio
news:8qff02$pcl$1...@fe1.cs.interbusiness.it...

Newsgroup: it.comp.lang.perl
Titolo: CGI e performance

Ciao a tutti, che voi sappiate c'e' qualche modo per aumentare le
prestazioni di uno script CGI (con apache2)? Ah, va detto che non posso
modificare lo script (semplicemente per il fatto che non l'ho fatto io,
e' grande e complicato ed e' di una azienda...). Il fatto e' che sto
script deve processare flie parecchio grandi e ora che ha presentato i
risultati al browser mi trovo in timeout.
Oltre ad aumentare il valore di timeout per il web server, avete qualche
consiglio?
Ora provo anche su qualche NG di apache, si sa mai che il problema e'
tutto suo.
d
-- 
Davide Cittaro
Drop WINDOWS if you want to reply

Ciao,
   mi dispiace doverti dare un riferimento in inglese e che
probabilmente ti obbliga a mettere mano allo script - almeno in parte -
ma questo mi sembra piuttosto pertinente:
http://www.stonehenge.com/merlyn/LinuxMag/col39.html

 
http://www.stonehenge.com/merlyn/LinuxMag/col39.html
vado e leggo tutto, grazie!


Newsgroup: it.comp.lang.perl
Titolo: YAPC::Europe

Hello,
Chiedo scusa. Non parlo italiano. Ciň deve informarla d'un congresso europeo
del Perl in quale potete essere interessati. Il congresso ha luogo in
settembre. Dovete affrettare poichč ci non sono molti biglietti restanti.
Nessuno ancora ha registrato dall' Italia. Grazie (?) babelfish.
YAPC::Europe is a grassroots, inexpensive Perl conference modelled on yapc
(Yet Another Perl Conference). It will be held in London, UK from the 22nd
to the 24th September 2000.
http://yapc.org/Europe/
Ciao,
    Kai Carver
 
http://paris.pm.org

!
Io mi sono accreditato. Qualcun altro l'ha fatto? Sarebbe bello fare un
gruppettino...
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!
Newsgroup: it.comp.lang.perl
Titolo: concatenazione strighe

Magari č una stronzata (e di sicuro lo č...), ma non riesco a venirne fuori.
Lo scopo č cambiare una parte di un indirizzo web, ricevendo la parte 
"variabile" attraverso un comando in un canale IRC, quindi un indirizzo 
tipo:
 
www.pincopallo.it/xxxxxx.php
 dove "xxxxxx" č la parte soggetta al 
cambiamento
 
quindi ho scritto questo:
 
 $temp = $4;  # <---- questo viene correttamente estrapolato dal comando 
attraverso una regex
 $sito = "
www.pincopallo.it/
" . $temp . ".php";
 
supponendo di inviare "pippo" la stringa risultante diventerebbe:
 
"
www.pincopallo.it/pippo
"
 
a questo punto ho pensato che insieme a "pippo" restasse il \n ed ho 
modificato la prima riga cosě:
 
$temp = chomp $4;
 
ma il risultato non č quello che mi aspettavo....
 
"
www.pincopallo.it/0,php
"
 
Se perň faccio lo stesso "giochino" usando un input da tastiera, magicamente 
funziona come mi aspetterei:
 
my $temp = <STDIN>;
chomp $temp;
my $sito = "
www.pincopallo.it/
" . $temp . "\.php\r\n";
print $sito;
 
liftman@liftman:~/scripts$ perl -w 
test.pl
 
pippo
www.pincopallo.it/pippo.php
 
 
Un'idea?
 
-- 
Fri(END), Boyfri(END), Girlfri(END), Bestfri(END). Everything has an END 
except...Fam(ILY)! It Has 3 Letters that say I LOVE YOU 
 

 $temp = chomp $4;
 
http://perldoc.perl.org/functions/chomp.html
 
"If you chomp a list, each element is chomped, and the total number of
characters removed is returned." Se ti esce 0 vuol dire che non c'e' \n
alla fine di $4 (o che hai settato diversamente $/). 
 
Ad ogni modo per togliere il \n al fondo dovresti mettere:
 
chomp $4; $temp=$4;
	oppure 
$temp=$4; chomp $temp;
	oppure 
chomp($temp = $4);
 
In ogni caso ottieni $temp senza \n al fondo (ma nel primo esempio
l'avrai tolto anche da $4).
 
Nota che nella prova con input da tastiera "chompi" direttamente $temp
mel modo corretto. 
 
-- 
220284

 mel modo corretto.
 
si, ma la prova l'ho fatta direttamente da linux :-)
Comunque grazie per l'interessamento!


 Comunque grazie per l'interessamento!
 
Prego. Un po' di vita su questo NG non fa male...
 
-- 
220284