mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: fork e wait...

Salve a tutti.
da poco sto usando il fork per lanciare delle select sql ksu + server
contemporaneamente.
il problema, come potete immaginare, sono i figli che, a volte,  restano
appesi...
il codice che fa il for è questo:
my @countries=('IT'
               ,'BE'
               ,'ES'
               ,'NL'
               ,'NO)
foreach my $ct (@countries) {
         FORK: {
             if ($pid = fork){
                  #codice processo padre
                  print "$ct - $pid\n";
                  #waitpid($pid,80);
             } elsif (defined $pid) {#qui $pid è zero se è definito
                  &report ($ct);
                  print "\n sono $ct figlio!!!\n";
                  exit;
             } elsif ($! =~ /No more process/) {
                  #errore recuperabile
                  sleep 5;
                  redo FORK;
             } else {
                  #strano errore di fork
                  die "$ct - Nn riesco a fare il fork: $!\n";
             }
         }
     }
non ho fatto altro che copire l'esempio del libro "programmare in perl.."
il punto è che se metto un waitpid nella "sezione" del processo padre
(ora è commentato...) il padre di volta in volta
aspetta che il figlio appena generato termini ed esca.
Io invece vorrei che tutti i figli partissero, e venissero eventualmente
killati
dopo un certo tempo di attesa, magari 10 minuti: come potrei farlo?
Spero di essere stato chiaro.
molte grazie...

Io conosco C e con questo linguaggio esistono i segnali per gestire la fork.
Mi spiego:
Il padre gestisce il segnale SIGCHILD che controlla lo stato di morte dei
propri figli (se nn ricordo male)
Il padre genera un figlio e gli lascia fare tutto quello che vuole  senza
fare attesa attiva.
Il figlio quando muore mi sa che fa una kill(pidPadre, SIGCHILD) e termina.
Adesso è un po che nn faccio C comunque la prassi +/- è questa
Inoltre ho fatto una ricerchina su google per vedere se perl utilizza i
segnali e a quello che ho capito li gestisce
quindi buona ricerca
ciao by S4lv0
"svetj" <sve...@SPAMtiscali.it> ha scritto nel messaggio
news:aUj9c.138515$O31.5...@news4.tin.it...


Newsgroup: it.comp.lang.perl
Titolo: Un buon libro: PERL Black Book - Steven Holzner - Coriolis Open Press

Chi bazzica dalle parti di Milano lo trova di sicuro da Hoepli, vicino al
Duomo.
www.coriolis.com

Il migliore credo rimanga sempre Programming Perl , di
Larry Wall (il papa' del cammello) e Tom Christiansen (web
mantainer di 
www.perl.com
), O'Reilly Press. Per importanza,
l'equivalente in perl di The C++ Programming Language,di Bjarne 
Stroustrup, insomma un must (no, non lavoro
per la O'Reilly...)
Newsgroup: it.comp.lang.perl
Titolo: aiuto

Salve
ho installato il perl della activestate e qualche modulo,
su un programma che mi testa odbc e non solo windows nt server
mi da questo errore "non trovo PerlCRT.dll nei path specificati ecc...".
ho cercato  il file in tutto il disco pensando che che i path non fossero
corretti ma non l'ho trovato allora ho disinstallato il tutto e reinstallato
ma l'errore persiste ho guardato le faq ma non ce nulla al riguardo.
qualcuno mi puo' aiutare???

Maniera delicata:
-)Reinstalla il service pack (spero la 5, la 6 č piena di bugs)
-)fai il rebind della connessione odbc, o se non lo sai fare reinstalla
  il driver odbc (ma non dal cd-rom di NT)
-)Adesso reinstalla l'ultima versione del per
Maniera cruenta:
-) Fai girare scanreg.
-) Regedit:cerca nel registro di NT la voce associata a PerlCRT.dll ed
ELIMINALA
-) IDEM nei vari files di configurazione.
-) Vedi se funge o fai il restore del registry.
Newsgroup: it.comp.lang.perl
Titolo: Accesso perl ai DBF via NTX o NDX

Ho trovato alcune librerie perl per accedere ai files DBF.
Qualcuno è a conoscenza di librerie analoghe per accedere ai DBF
attraverso gli indici NTX o NDX ?
Grazie in anticipo.
-- 
.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:
: Lucio Iacolettig (:-)                                            :
:                                                                  :
: Firm:                                     Phone: ++39 432 748411 :
: PC Area & Networking                        Fax: ++39 432 758147 :
: ID Group                                  mailto:
ia...@idgroup.it
 :
: Udine/Italy                                
http://www.idgroup.it
 :
:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:..:

 wrote:
: Ho trovato alcune librerie perl per accedere ai files DBF.
: Qualcuno è a conoscenza di librerie analoghe per accedere ai DBF
: attraverso gli indici NTX o NDX ?
Tempo fa e` passato qualcosa in comp.lang.perl.modules, ma non usando
Xbase non ne ho preso nota.
Nell'elenco dei moduli per il Perl c'e`:
Xbase          bdpf  Read Xbase files with simple IDX indexes   PRATP
XBase          bdpO  Complete XBase support: read, write, index JANPAZ
e anche:
DBD::
::XBase        cmcO  Complete XBase support: read, write, index JANPAZ
Prova a dargli un'occhiata...
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E



Newsgroup: it.comp.lang.perl
Titolo: Usare strict

Dove e perchč usare strict?
Grazie!

Grazie!
con strict adotti uno stile di programmazione .. 'più ristretto' :),
ma quindi più sicuro per progetti di grandi dimensioni...
con use strict per esempio devi dichiarare le variabili prima...
my o our...
così definisci lo scope delle variabili che usi ed eviti
incasinamenti...
--
pigmalion at home
http://www.pigmalion.info/

 Dove e perchè usare strict?
In ogni programma più lungo di un oneliner.
Perché diminuisce la probabilità di fare casini.
Ciao,
 Emmanuele.
-- 
Emmanuele Bassi (Zefram)                 [ 
http://www.emmanuelebassi.net
 ]
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4
Newsgroup: it.comp.lang.perl
Titolo: Script che gestisce download su web

Salve,
sto avendo problemi con uno script piu' o meno cosi':
<code>
$file = "/home/mydir/myfile.zip";
print "Content-type: application/octet-stream\n";
print "Content-disposition: attachment; filename=\"myfile.zip\"\n\n";
open FILE, $file;
binmode FILE;
while (<FILE>) { print; }
close FILE;
exit;
</code>
in effetti lo script spara gli header HTTP al browser dicendogli che sta per
restituire un file binario che non è una pagina HTML,
poi apre il file e bit per bit mentre legge spara il contenuto al browser.
Inutile dire che in locale questa cosa funziona perfettamente, ma su un
webserver "vero", con una connessione ISDN, il download si ferma piu' o meno
a 1Mb o poco piu', anche su file piu' grandi di 1Mb.
Ancora non sono riuscito a capire il perché.
Un vecchio script che avevo funzionava, invece, cosi':
<code>
open FILE, $file;
binmode FILE;
while (<FILE>) { $content .= $_; }
close FILE;
print $content;
</code>
Questo funzionava ma aveva il grosso svantaggio di occupare RAM inutilmente
perché prima di sparare il file al browser lo mette tutti in uno scalare.
In ogni caso, spostando questo script da un server all'altro, ha cominciato
a non funzionare piu' (entrambi server IIS5).
Qualcuno riesce a capire perché lo script si ferma a piu' o meno un mega?
Mah...
Ciao,
Guido.

 mega? Mah...
non so dirti il perché del piů o meno un mega, ma io aggiungerei un
paio di cosette per vedere se aiutano:
  $| = 1; #### disattiva il buffering
  $file = "/home/mydir/myfile.zip";
  print "Content-type: application/octet-stream\n";
  print "Content-disposition: attachment; filename=\"myfile.zip\"\n\n";
  binmode STDOUT; #### scrivi tutto, anche il carattere EOF (^Z)
  open FILE, $file;
  binmode FILE;
  while (<FILE>) { print; }
  close FILE;
  exit;
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

   binmode STDOUT; #### scrivi tutto, anche il carattere EOF (^Z)
Già ci ho pensato...
infatti ho pure modificato la routine cosi':
  my $filename = [..cut..]
  my $filesize = (-s $filename);
  print "Content-type: application/octet-stream\n";
  print "Content-Disposition: attachment; filename=\"$real_filename\"\n";
  print "Content-Length: $filesize\n";
  print "\n";
  open FILE, $filename;
  binmode FILE;
  binmode STDOUT;
  while (sysread(FILE, $buf, 1024)) {
       syswrite(STDOUT, $buf, length($buf));
  }
  close FILE;
Ma il download si interrompe lo stesso. Forse ho trovato la causa: è il
server che killa i processi CGI dopo 3 minuti. E ho scoperto pure che questa
cosa succede con IIS5 (con le impostazioni di default) mentre con IIS4 su NT
4.x andava tutto bene. Infatti anche la routine per gli upload non funziona
piu' da quando hanno trasferito il mio hosting da NT a win2K. :-(
Non esiste un modo per impostare manualmente il timeout (piu' o meno come ho
visto fare con VBScript) ??
Newsgroup: it.comp.lang.perl
Titolo: sostituzione testo con esclusione link in un file html

Salve a tutti , sto cercando di sostituire delle parole all'interno di
un file html. Vorrei escludere però la sostituzione se queste parole
si trovano all'interno di un link href; mi spiego meglio :
La mamma va a comprare la pasta andando al supermercato, tale
edificio era del vecchio proprietario chiamato a
href="
www.supermercato.it
" Supermarket < chiudo tag a > . Proseguimento
del testo....
io riesco a sostituire supermercato con pippo ma vorrei che dentro il
tag <a ... non venisse sostituito?
Non riesco a costruire l'espressione regolare che mi esclude il tag.
La ricerca dei link la faccio così:
/<\s*a.*href\s*=\s*".*"\s*>([^<]+)<\/a>/
Grazie

 si trovano all'interno di un link href
Ecco alcuni interventi sullo stesso problema:
http://www.perlmonks.org/?node_id=361783
http://www.perlmonks.org/?node_id=470195

Grazie per i link sui moduli cpan, ma vorrei sapere se si pùò fare
con le espressioni regolari, visto che poi dovrò implementare la
stessa cosa in una servlet java.
Ciao

 stessa cosa in una servlet java.
Se guardi bene ci sono anche delle implementazioni; seguendo il discorso
nel secondo link, trovi una implementazione in PHP che, credo, sia
facilmente traducibile in Java. Non penso che una espressione regolare
sia abbastanza potente per ottenere quello che chiedi.

Ho visto il secondo link e ho studiato un po' il codice php ma come
dici tu sono arrivato alla conclusione che con le espressioni regolari
è quasi impossibile perchè posso avere vari casi di a href ( con
attributi tipo class id etc.., con del testo con img etc...).
Ciao e grazie

Newsgroup: it.comp.lang.perl
Titolo: Grammatica YACC per il Perl.

Salve,
qualcuno sa dove posso trovare una grammatica Perl per YACC ? Ho trovato
nei sorgenti dell'interprete perl per linux il file perly.y che è simile a
cio' che cerco, ma è troppo complicato. Mi serve una grammatica semplice (
anche di un _sottoinsieme del_ perl ) per realizzare un traduttore da Perl
a C. Ho letto che una cosa del genere non è molto utile nella pratica, ma
il mio è solo un esercizio per l'università.
Grazie,
    -_-

 ma il mio è solo un esercizio per l'università.
ehh che bei ricordi... LFC! :)
-- 
$_=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: Nessuno mi aiuta!!! SIGH!!!

Chi è cosi' bravo da aiutarmi a realizzare uno script che mi stampi una
parte fissa di un file html su tutte le pagine??
Il risultato dovrebbe essere quello di salvare in un file l'intestazione di
un sito e ritrovarselo su tutte le pagine, senza utilizzare i frame.
GRAZIE, Marco.

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

 un sito e ritrovarselo su tutte le pagine, senza utilizzare i frame.
Mai sentito parlare di fogli di stile? Ovviamente, lo fai anche con uno
script, ma perchè affaticare il server per una cosa tanto semplice? ;-)
Ciao
M.
-- 
:wq

Scusa se è OT, io uso principalmente il PHP
per includere nelle pagine il codice con  intestazione e  menu,
vuoi dire che con SSI si può fare meglio... alleggerendo il server?
Ma che roba è?..Dove trovo info?
grazie.
F.

 wrote in message 5s4kr8...@127.0.0.1...


  Grazie in anticipo
Figurati!
(anche se queste discussioni sono sull'orlo dell OT, quindi sarebbe
meglio spostarsi su it.comp.www.cgi!)
Ciao
M.
-- 
:wq

 ha scritto nel messaggio
news:5s4kr8...@127.0.0.1...


 documentazione che ho trovato non riporta questa proprieta'?
Io sinceramente so che lo permettono, ma non mi č mai capitato di
doverli usare: quindi a esempi sono proprio messo male! ;-)
Ho comunque letto su 
html.it
, nella sezione fogli di stile (o qualcosa
di simile), qualcosa a riguardo: purtroppo non posso essere piů preciso
(e mi dispiace, visto che ho lanciato io l'idea!) perchč non ho mai
avuto bisogno di creare qualcosa come quello che serve a te!
Ciao
M.
-- 
:wq

 doverli usare: quindi a esempi sono proprio messo male! ;-)
    Immagino che vada creato un <DIV> nascosto da qualche parte, ma e'
parecchio che non uso i CSS: sovraccaricare il server sara' male, ma i CSS
hanno gravi problemi di compatibilita', secondo la mia esperienza.
_dave_

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

Sono disponibile da qualche parte dalle FAQ sul Perl ?
Grazie.
Gilberto Casiraghi

ed...@candy.it
 wrote:
 >Sono disponibile da qualche parte dalle FAQ sul Perl ?
In comp.lang.perl.*
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *
Newsgroup: it.comp.lang.perl
Titolo: ma open apre i file?

Scusate se stresso il ng con questo mio tormentone. Qualcuno sa dirmi come
mai se scrivo:
open (FILE,">c:/myfolder/myfile.txt")
il file viene aperto in scrittura e viene scritto, mentre se scrivo:
open (FILE,">
http://127.0.0.1/myfolder/myfile.txt
")
il file non lo apre e quindi, ovviamente, non lo scrive?
Grazie.
--
Posted from 
relay1.inwind.it
 [212.141.53.67] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 
Ho già implicitamente risposto a questa tua domanda in passato.
Cosa ti fa pensare che open() debba riconoscere un URI come identificativo
di un file locale?  E' documentato da qualche parte? No, naturalmente.
Allora perchè stupirsi se non lo fa?
Max

il file non lo apre e quindi, ovviamente, non lo scrive?
Non puoi utilizzare open() per le URL. Utilizza la libwww-perl.
	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: Accesso tramite password

e-mail: 
Enzo....@unimi.it
Ciao, sto realizzando qualcosa di simile per un gateway di posta.
Appena sara'pronto te lo mando per email (funziona con /etc/shadow, ed
e' modificabile per /etc/passwd).
Ciao. Sergio
Sergio Giovannini
Student of the Architectural School of Genoa, Italy
Email: 
sgiov...@mail.prog.arch.unige.it
 
sergio.g...@iol.it
PGP public key available
HomePage: 
http://www.prog.arch.unige.it/~sgiovann
WWW site: 
http://www.prog.arch.unige.it
 



         Saprebbe qualcuno indirizzarmi verso la meta?
Io ho un problema simile: ho bisogno della username e della password dell'utente
per utilizzarla per fare il login (tramite script) verso un DBMS (mi servono
username e pwd dell'utente in modo che l'SQL server effettui la transazione con i
permessi dell'utente e non con quelli dello script!).
Ho volutamente scelto di non utilizzare username e password di sistema per
problemi di sicurezza (lo script dovrebbe avere accesso al file delle password
shadow e quindi girare come root). Inoltre il mio server SQL gestisce account
diversi da quelli di sistema.
E' possibile modificare il codice di apache per farsi passare nell'environment
oltre che lo username indicato nel form 'di .htaccess' (HTTP_REMOTE_USER) anche la
password ma, a quel punto, qualsiasi utente puo' vedere l'environment associato al
processo (cgi) e quindi ricavare username e password utilizzata dall'utente
remoto.
La soluzione su cui sto' lavorando e' la creazione di un modulo di Apache ex-noxo
che effettua l'autenticazione "a modo mio". A tal riguardo sto' lavorando con
mod_perl1.00 e con Apache 1.2.4.
Se pensi che possa essere una soluzione anche per il tuo problema possiamo
studiarlo insieme e 'unire' le nostre forze (io, purtroppo, sto' avendo seri
problemi con mod_perl).
Ovviamente, se qualcuno potesse supportarmi su mod_perl e, piu' in generale,
sull'uso di moduli di Apache personalizzati, ben venga!
Grazie a tutti,
                                                                        Damiano
Newsgroup: it.comp.lang.perl
Titolo: intsllare perl

Con riesco ad installare perl qualcuno mi da' una mano????
Che Sistema operativo usi?
Ciao
Andrea

 uno windows 98 thank you
Vai sul sito di ActiveState 
www.activestate.com
 e prenditi la loro
distribuzione di ActivePerl.
Si installa come qualsiasi applicazione Windows.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)
Newsgroup: it.comp.lang.perl
Titolo: Problemone splice()

Ho una dir contenente dei file che vado a caricare in un array con
@files=`ls -1 elencopubblico`;
chop @files;
$count=0;
foreach $filename (@files) {
if($filename == "CNN" ){
	use constant DEL => $count;
	$file_to_delete=$count;
	}
 
	print "$count $filename\n";
$count++;
}
print "-- $file_to_delete --\n";
l'idea ï¿œ di recuperare l'index del file CNN per poterlo successivamente 
utilizzare in una splice
splice(@files, $file_to_delete, 1);
peccato che il layout sia:
0 Actalis
1 ArubaPEC
2 BNLMult
3 BancaDiRoma
4 BancaIntesa
5 Bancad'Italia
6 C4DIFESA
7 CNDCEC
8 CNF
9 CNIPA
10 CNN
11 COTIE
12 CTRUPA
13 Cedacri
14 Cedacrinord
15 Certicomm
16 Enel.it
17 Finital
18 IT_Telecom_SPA
19 IT_Telecom_SRL
20 Infocamere
21 Infocert
22 Intesa
23 IntesaSanpaolo
24 Lisit
25 Lombardia_Informatica
26 MontedeiPaschiSiena
27 Namirial
28 Postecom
29 SIA
30 SSB
31 SanPaolo_IMI
32 Saritel
33 Seceti
34 Sogei
35 Trustitalia
-- 35 --
anzichï¿œ un previsto
0 Actalis
1 ArubaPEC
2 BNLMult
3 BancaDiRoma
4 BancaIntesa
5 Bancad'Italia
6 C4DIFESA
7 CNDCEC
8 CNF
9 CNIPA
10 CNN
11 COTIE
12 CTRUPA
13 Cedacri
14 Cedacrinord
15 Certicomm
16 Enel.it
17 Finital
18 IT_Telecom_SPA
19 IT_Telecom_SRL
20 Infocamere
21 Infocert
22 Intesa
23 IntesaSanpaolo
24 Lisit
25 Lombardia_Informatica
26 MontedeiPaschiSiena
27 Namirial
28 Postecom
29 SIA
30 SSB
31 SanPaolo_IMI
32 Saritel
33 Seceti
34 Sogei
35 Trustitalia
-- 10 --
Idee sul perchï¿œ l'if si comporti cosï¿œ e come risolvere?

 if($filename == "CNN" ){
$file_to_delete=$count;


Ciao,
scusa la prossima volta dicci cosa vuoi fare e non dare una soluzione 
giï¿œ pronta di cui dobbiamo intuire il funzionamento.
Deduco, e spero di azzeccare, che tu voglia un array dei nomi di file 
*fino a che* non trovi il file 'CNN'.
Non credo che serva splice, bensi raccogliere i nomi, fermarsi al 
momento giusto, e stampare successivamente. Spero di avere intuito 
quello che volevi ottenere. Attento che per l'uguaglianza tra stringhe 
c'ï¿œ l'operatore eq e non == che ï¿œ riservato ai numeri.
use strict;
use warnings;
my $mia_dir="/root/prova";
opendir (my $dir, $mia_dir) or die "non posso aprire $mia_dir: $!";
my @files = readdir $dir;
my @to_delete;
foreach my $filename (sort @files) {
         next if ($filename eq '.');
         next if ($filename eq '..');
         push @to_delete, $filename;
         last if ($filename eq 'CNN');
}
closedir $dir;
foreach my $count (0 .. $#to_delete) {
         print "$count $to_delete[$count]\n";
}

 c'è l'operatore eq e non == che è riservato ai numeri.
Ok spiego meglio, diciamo che ho qualcosa tipo:
0 Actalis
1 ArubaPEC
2 BNLMult
3 BancaDiRoma
4 BancaIntesa
5 Bancad'Italia
6 C4DIFESA
7 CNDCEC
8 CNF
9 CNIPA
10 CNN
e devo eliminare il C4DIFESA di cui non conosco l'indice in questo caso 
6 che andrà eliminato per ottenere una array con
0 Actalis
1 ArubaPEC
2 BNLMult
3 BancaDiRoma
4 BancaIntesa
5 Bancad'Italia
6 CNDCEC
7 CNF
8 CNIPA
9 CNN
da passare successivamente ad altra applicazione per l'elaborazione

Il 26/06/11 04.40, No-News ha scritto:

risolto con
@lista = grep (!/^C4DIFESA/, @files);
foreach (@lista){
	print "$_\n";
}
Newsgroup: it.comp.lang.perl
Titolo: porte seriali

come posso fare per utilizzare le porte seriali in modo da poter trasferire
file attraverso di esse?
qualcuno mi ha detto che con UNIX è molto facile ma io utilizzo un sistema
di mamma Microsoft (windows xp che è molto simile al 2000).
qualcuno sa dirmi come posso fare a gestire queste porte con windows?


wrote:


Newsgroup: it.comp.lang.perl
Titolo: perl --> exe come?

Come faccio a creare eseguibili dai miei script in Perl?
Suggerimenti, consigli, segnalazioni.
Grazie!

 ha scritto nel messaggio
news:8lrsn8$7q44$1...@stargate1.inet.it...


,

Ciao !
Spero tu non ti riferisca ad un programma che operi in Linux, altrimenti
non saprei cosa dire...
Per Windows puoi provare questo:
http://web.tiscalinet.it/panificiospadafora/perl2exe.zip
sono + o - 600k
Ciao
Sent via Deja.com 
http://www.deja.com/
Before you buy.

 wrote in message
8lruct$oa6$1...@sirmdpsin16.inwind.it...


Newsgroup: it.comp.lang.perl
Titolo: [?!] i cgi FUNZIONANO! (quasi...)

GRAZIE a tutti per avermi sopportato in questi giorni, e GRAZIE anche a chi
mi ha risposto perchè anche se molto lentamente alla fine sono riuscito a
capire dove sbagliavo.
Però... c'è ancora un problemino.
Come posso fare per avere delle sub definite in un modulo esterno al mio
cgi?
Ho provato con
    use mymodule
dove mymodule altro non è che un file perl con estensione pm dove ho scritto
le mie subs.
In locale (con Xitami) tutto funziona perfettamente, ed anche sul server
finchè lancio il prog. principale direttamente dalla cgi-bin/ (dove è
presente anche 
mymodule.pm
), ma se sono al livello superiore e lancio
./cgi-bin/
myprog.pl
 ottengo un errore:
Can't locate 
mymodule.pm
 in @INC (@INC contains:
/usr/local/lib/perl5/5.00502/i386
-freebsd /usr/local/lib/perl5/5.00502
/usr/local/lib/perl5/site_perl/5.005/i386-
freebsd /usr/local/lib/perl5/site_perl/5.005 .) at ./cgi-bin/
myprog.pl
 line
17
Che significa? Non esiste una lista degli errori di compilazione da
consultare?
Che sintassi dovrei utilizzare?
Grazie a tutti ancora una volta, e scusate l'insistenza.

 Che sintassi dovrei utilizzare?
Il .pm non sta nel path di ricerca. Soluzioni: o lanci lo script solamente
dalla directory in cui si trova, o aggiungi la directory a @INC o metti lo
script in una delle directory gia' presenti in @INC.
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: Pubblicare PERL

Ciao a tutti,
       vorrei sapere se e dove posso pubblicare un sito (free) in internet
che contiene script in perl

 che contiene script in perl
prova qui: 
www.netfirms.com
 :)
ciao
MaRu

o qui=)
www.virtualave.com

Newsgroup: it.comp.lang.perl
Titolo: e-mail attachment usando sendmail

ciao a tutti,
qualcuno di voi ha mai visto esempi di script cgi
che usino sendmail per mandare attach binari via e-mail?
in pratica sono al punto in cui devo solo costruire il
l'attach da passare col pipe a sendmail.
Devo settare boundary?
saluti e grazie,
--
demis

 ICQ# 1980563

 
si ricordo, il problema è proprio che non posso installare nuovi 
moduli, magari potessi.  ho provato a vedere un messaggio che arriva
con attach e vedo che c'e' la parola riservata "boundary" che specifica
quale elemento fa da separatore per la parte della mail che è attach.
Supponendo che il client di e-mail accetti questo sistema, questo è
il sistema giusto di comporre il mio messaggio?
in pratica io formo il messaggio in questo modo:
<corpo>
	campi testo presi da form cgi
</corpo>
boundary=separatore
separatore
fxrgqfdsasfsafgfdfsdrfsafda  <=== codice binario attach
separatore
saluti e grazie
--
demis

Newsgroup: it.comp.lang.perl
Titolo: Help me

Vorrei salvare un file .pl, ma se lo faccio da internet lo salva con
estenzione htm, come faccio per salvarlo con estenzione pl?
Grazie.

Non puoi, il server anzichč leggerlo lo esegue

Newsgroup: it.comp.lang.perl
Titolo: Aiuto nella compilazione

Ciao a tutti,
ho dei problemi ad usare il tool perlcc per compilare uno script su una
macchina Tru64 v5.1: il compilatore genera dei warning, però l'eseguibile
viene creato senza problema, ma lanciandolo, non fa assolutamente niente!!
Qualcuno di voi sa dirmi qualcosa a riguardo?
Grazie.

 Qualcuno di voi sa dirmi qualcosa a riguardo?
Ciao 
Riceveresti piu` risposte, e piu` precise, se specificassi qualcosa in 
piu` in merito al problema che stai affrontando: ad esempio, quali sono 
gli warning riportati dal compilatore, e magari quale informazione
sullo script che desideri compilare.
Da domande generiche si ottengono risposte generiche (nei casi in cui
non capita di non ottenere nessuna risposta, ahime :)).
ciao :)
Stefano
Newsgroup: it.comp.lang.perl
Titolo: querey e query annidate

ho fatto uno script che non mi convince molto...
il codice e' questo:
do '
connect.pl
';
$query = $db->prepare("SELECT id, ip FROM $t_contatti WHERE 1");
$query->execute or die "\n !!! QUERY FALLITA !!! \n";
while (@row = $query->fetchrow_array)   {
	@ip_val = split(/\./, $row[1]);
	if ($ip_val[2] == "") {$ip_val[2] = 0;}
	if ($ip_val[3] == "") {$ip_val[3] = 0;}
	$ip_numb = ((16777216*$ip_val[0]) + (65536*$ip_val[1]) + 
(256*$ip_val[2]) + ($ip_val[3]));
	$q_popola = $db->prepare("UPDATE $t_contatti SET ip_numb = $ip_numb 
WHERE id = $row[0]");
	$q_popola->execute or die "\n\t!!! INSERIMENTO FALLITO !!! \n";
	$q_aggiorna = $db->prepare("UPDATE $t_contatti SET ip_prov = (SELECT 
DISTINCT dominio FROM classi_ip_isp_work WHERE start_ip < $ip_numb AND 
stop_ip > $ip_numb)");
	$q_aggiorna->execute or die "\n\t!!! AGGIORNAMENTO FALLITO !!! \n";
}
in pratica devo fare tre operazioni nella stessa tabella (tabella tra 
l'altro contentente 300000 e passa record)
la prima e' la select che mi carica i record per sapere l'ip e l'id
la seconda, all'interno dell'iterazione del fetchrow, mi usa l'id per 
aggiornare il campo ip_numb, calcolato partendo dall'ip della prima 
query
la terza mi aggiorna il campo ip_prov in base alla query annidata
solo che mi sembra inefficente (piu' che altro l'ho visto molto lento 
una volta eseguito) e non mi da risultati esaltanti ovvero, il campo 
ipnumb viene creato correttamente ma il campo ip_prov pare sempre 
mettere lo stesso valore... (almeno, ho popolato un migliaio di record 
e pare che ip_prov sia sempre lo stesso... non mi pare una coincidenza 
quanto un errore)
qualche idea?
grazie
-- 
Umin
n.p.: Dire Straits - You And Your Friend [pause]

 grazie
ma che idiota
ho risolto
mi ero dimenticato un WHERE nella terza query...
-- 
Umin
n. p.: The Verve - Come On
Newsgroup: it.comp.lang.perl
Titolo: use condizionali e problemi correlati

ho il seguente problema , che penso incontrerò spesso a livello piu
generale,
se sto scrivendo un modulo che utilizza  alternativamente  il modulo
BerkeleyDB
o DBD::mysql , il dubbio è il seguente : posso creare con
Module::install un Makefile.pl che mi permetta di creare moduli perl
che utilizzino
o uno o l'altro o entrambi?
oppure devo creare moduli separati per le chiamate di funzione dell'uno
o dell'altro
modulo?( dovrei duplicare il codice per fare le stesse cose?)
grazie per le (eventuali ) risposte

Non ho mai utilizzato BerkeleyDB e purtroppo non conosco il grado di
similitudine che ha con DBI (e di conseguenza con DBD::mysql). Immagino
però che tu debba comunque produrre codice per gestire le due
differenti piattaforme, e che questo non sia codice duplicato.
A questo punto l'approccio che adotterei io è quello di individuare un
insieme di funzionalità generiche e creare uno strato software di
astrazione. Un po' come DBI: mette a fattor comune tutta una serie di
operazioni che normalmente è necessario effettuare sui database,
lasciando poi ai vari "driver" DBD::* il compito di implementare le
chiamate alle varie e differenti librerie, e di smussare i vari angoli.
In questa ottica, probabilmente non utilizzerei Module::Install per
altro se non per impostare una variabile di configurazione da qualche
parte, che dica qual è il sistema "driver" da utilizzare per default,
lasciando magari la possibilità all'utente di fare scelte differenti
in fase di generazione di uno script.
Newsgroup: it.comp.lang.perl
Titolo: Perl e MacOsX Terminal

Ciao a tutti,
sto imparando ad utilizzare Perl da poco e qualsiasi documento io abbia
trovato in internet mi dice di usare la stringa:
#! /usr/bin/perl
nella prima riga del mio file di script, per evocare PERL senza digitare
il comando.
Utilizzando il terminale del mio Mac, lo script non parte se non digito
./perl
prima del nome dello script.
Qualche suggerimento?
Grazie.

 Grazie.
chmod 755 ?

Newsgroup: it.comp.lang.perl
Titolo: funzione split()

Perdonate l'ignoranza, ma non riesco in nessun modo a splittare una
variabile (stringa) quando viene riscontrato un punto.
Ho provato in questo modo:
$variabile="file.estensione"
@dividere=split ( \ .\, $variabile);
perché se metto i due punti funziona, mentre con il punto no?
Grazie.

Roli wrote:

Perche`, in un'espressione regolare, il "pnnto" e` un carattere che 
assume un significato particolare (perldoc perlre) e quindi va 
sottoposto ad escape:
	@fields=split /\./,$record
-- 
Baci,
Mony

 perché se metto i due punti funziona, mentre con il punto no?
perldoc perlre
perldoc perlop
Hint: il punto e` un carattere speciale.
Bye,
 Emmanuele.
-- 
Emmanuele Bassi (Zefram)           [ 
http://www.radiance.d2g.com/~zefram
 ]
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

 Mony
Grazie "della dritta" a
Mony ed Emmanuele

Newsgroup: it.comp.lang.perl
Titolo: problema Net::Telnet::Cisco e centos5

salve a tutti
in un server non connesso a internet (quindi no perl -e MCPAN...) ho
installato a mano il modulo 
http://search.cpan.org/~joshua/Net-Telnet-Cisco-1.10/Cisco.pm
ma quando eseguo un .pl di test per vedere se l'ha installato con
successo mi ritorna: 
Use of /g modifier  is meaningless in split at
/usr/lib/perl5/site_perl/5.8.8/Net/Telnet/Cisco.pm line 756
qualcuno ha avuto lo stesso problema/sa come risolverlo?...
su una macchina winxp con il ppm e l'activestate si è installato senza
problemi...
grazie
ar

 qualcuno ha avuto lo stesso problema/sa come risolverlo?..
Io toglierei la 'g' alla riga 756, e segnalerei la cosa all'autore.
Max

 Use of /g modifier  is meaningless in split at
http://sourceforge.net/tracker/index.php?func=detail&aid=726660&group_id=48856&atid=454369
M
Newsgroup: it.comp.lang.perl
Titolo: Script elimina spazio da nomefile

Sto cercando di scrivere un scriptino perl che esamina i
nomi dei file in una directory e se contengono spazi,
li sostituisce con _.
Qualcuno mi sa dire perchè con questo codice:
#!c:/perl/bin/perl.exe
opendir(DIRTARGET,$ARGV[0]);
@LISTFILES = readdir(DIRTARGET) || print 'ERROR 1';
print STDOUT @LISTFILES;
closedir(DIRTARGET);
mi viene restituito solo '.' e non i file contenuti nella directory
specificata come parametro?
Phones

 @LISTFILES = readdir(DIRTARGET) || print 'ERROR 1';
                                   ^^
   Il Perl e la precedenza tra gli operatori; lo statement precedente, 
in realta`, equivale a:
	@LISTFILES=(readdir(DIRTARGET)||print 'ERROR 1')
il che non combacia con le tue aspettative, come l'output, infatti, 
dimostra. Se proprio non ti fidi di /readdir/--comportamento lecito ma 
sospetto, dato si` che invece di /opendir/, che certamente puo` darti 
problemi maggiori, visto che un suo parametro e` richiesto 
all'utente--ti conviene rispettare la bassissima precedenza 
dell'operatore /||/, abbandonandolo al suo destino per un piu` incisivo 
/or/:
	@LISTFILES=readdir DIRTARGET or print 'ERROR 1'
--
Alla prossima,
Marco

Grazie!
Ecco il codice finito:
<CODE>
#!c:/perl/bin/perl.exe
opendir(DIRTARGET,$ARGV[0]);
@LISTFILES = readdir(DIRTARGET);
foreach $NAMEFILE (@LISTFILES){
if ($NAMEFILE =~ /[\s]/) {
  #  print "\n file $NAMEFILE errato!\n";
  $NAMEFILE_ = $NAMEFILE;
  $NAMEFILE_ =~ s/[\s]/\_/g;
  $NAMEFILE_ = $ARGV[0] . '\\' . $NAMEFILE_;
  $NAMEFILE = $ARGV[0] . '\\' . $NAMEFILE;
  if (-e $NAMEFILE_) {$NAMEFILE_ = $NAMEFILE_ . '__2'; }
  if (rename($NAMEFILE,$NAMEFILE_)) {print "\n$NAMEFILE corretto!\n"};
  }
}
closedir(DIRTARGET);
</CODE>
basta dargli la directory come argomento...
Phones

Il lunedì, ottobre 29, 2001  1:01 , 
Phon...@hotmail.com
 (Phones DJ) scripsit:

Facile :)
  la presenza dell'operatore || fa si che readdir sia evalutato in un contesto scalare,
dunque restituisce solo il primo elemento. 
Sopprimi il || print "Error 1", che del resto è totalmente inutile e controproducente: 
readdir restituisce 'false' se non c'è più niente da leggere oltre che in caso di 
errori. Anzi, se mi ricordo bene, in un contesto di lista, può restituire false solo
se non c'è nulla da leggere. 
Il posto 'giusto' per fare il test è al momento dell'opendir. Inoltre in caso di errore è
meglio usare die che print: print lascia continuare....
Ecco lo script 'corretto' (ma ricorda, in Perl c'è più di un modo di fare ogni cosa)
#!/usr/bin/perl -w
opendir(DIRTARGET,$ARGV[0]) || die 'ERROR 1';;
@LISTFILES = readdir(DIRTARGET);
{
  #la linea seguente permette di avere un nome per linea, sennò i nomi
  #sono attaccati. Sostituisci con
  # local $, = " ";
  # se vuoi solo separarli con uno spazio.
  local $, = "\n";
  print STDOUT @LISTFILES,"\n";
}
closedir(DIRTARGET);
-- 
Leo TheHobbit 
IRCnet #roma2
ICQ 56656060
e-mail: remove 
dont.spam.me
 from above address
Newsgroup: it.comp.lang.perl
Titolo: Settaggio variabili!AIUTO!

Scusate ragazzi!
E' da pochissimo che mi sto cimentando con i cgi, e volevo chiedervi una
cosa.
Quando si deve settare le variabili ad esempio di un cgi contatore dei
download, dove c'e' scritto che si devono specificare (nei file ad ex
load.cgi e showload cgi)due variabili e cioe':
$databasefile = 'download.txt'  # path to your download database
$YourURL = '
http://www.your-url.com
';   # url of your site,
il percorso del file downlod.txt lo devo scrivere al posto di $databasefile
lasciando poi ='download.txt' nella seconda parte della stringa?
E l'url del mio sito dove va scritto?Al posto di $your url o al posto di =
'
http://www.your-url.com
'?Ed inoltre, devo scrivere solo l'url del mio sito
(ad es. 
www.miosito.it
) oppure devo scrivere tutto il percorso dove si trova
il file di cui sto settando la variabile?
Spero di non essere stato troppo contorto, e spero mi possiate aiutare
presto!
GRazie!

 wrote in message
news:sYk58.2351$EB4....@twister1.libero.it...

Dico maaaaa...stiamo scherzando?  :-))
Se tu trovassi scritto:
Nominativo = Mario Rossi
...come lo personalizzeresti?
Rufus = Mario Rossi
oppure
Nominativo = Rufus?
Ciao!
-----------------------
http://www.wmplanet.com
-----------------------
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.perl
Titolo: (?)Installare Moduli...

Ciao raga, tutto rego?  :-)
Sono in enormi difficoltà e spero che ci sia qualcuno lì fuori che mi possa
aiutare.
Sono ormai giorni che devo installare i moduli DBI e il DBD per PostgreSQL
ma non riesco ad andare oltre : 'perl Makefile.PL'
Ho la RedHat 5 e non so se è adeguata. La ver. di Perl è la 5.00402.
Il comando 'make' non è riconosciuto e sono inchiodato.
Ne so davvero poco di Linux e di C.
Grazie a chiunque sappia delucidarmi.
Ciao
ven...@mindless.com

 Ho la RedHat 5 e non so se è adeguata. La ver. di Perl è la 5.00402.
Che versione 5.1 o 5.2 perche per la 5.2 sono sicuramente inclusi.
Stai attento che se  i moduli vanno a cercare PostgreSQL sono veramente dolori
perche' l'installazione degli rpm di RedHat installa PostgreSQL in una
directory diversa da quella di default.
Ciao
Luca

 5.002 e non la 5.004.
Il problema del "make" e' diverso. Quando hai installato linux, non hai
installato il compilatore e quindi le utiliti che vengono insieme a quello.
Ti consiglio di cercare gcc tra gli RPM che ci sono sul CD di linux e
vedere di installarlo.
Una volta fatto questo il problema make e' risolto e, probabilmente, anche
gli altri...
	Best regards.
		Kazuma
-- 
Alex Garbagnati, 
agarb...@removethis.decisive.com
Sr. Lead Engineer, Product Development
Decisive Technology Corporation
Mountain View, CA  94043

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

Ciao, qualcuno ha mai provato a compilare gli script Perl?


Prova a guardare qui:
http://language.perl.com/news/compiler-alpha1.html
Ciao da Obe.

obe wrote:

   Grazie lo stesso, ma ho trovato gia' la versione alpha 3. Quello che
mi interesserebbe sapere e' se qualcuno di voi lo ha mai installato (ed
utilizzato naturalmente) e cosa ne pensa a riguardo. Grazie.
Newsgroup: it.comp.lang.perl
Titolo: CGI.pm: explorer non accetta i cookie?

Sto impazzendo con un problema apparentemente idiota, sto usando un 
semplice CGI su mod_perl, con firefox riesco a settare e gestire senza 
problemi i cookie, con explorer questi neanche compaiono nella cartella 
dei file temporanei, qualcuno ha un'idea?
sub send_page(){
         # mando il cookie solo se non è già presente
         if(!defined $cgi->cookie('CGISESSID')){
                 trace('setto il cookie');
                 # recupero il cookie e stampo l'header
                 my $cookie=$cgi->cookie(CGISESSID=>$session->id());
                 print $cgi->header(
                         -type=>'text/html',
                         -charset=>'UTF-8',
                         -cookie=>$cookie
                 );
         }
         else{
                 print $cgi->header(
                         -type=>'text/html',
                         -charset=>'UTF-8',
                 );
         }
         # invio la pagina
         print $out;
}

Coniglio Sgabbiato ha scritto:

Risolto, si trattava di un problema con AJAX, IE tratta la cache sui GET 
in modo diverso dagli altri browser, per chi fosse interessato / avesse 
problemi simili:
http://en.wikipedia.org/wiki/XMLHTTP#Caching

Newsgroup: it.comp.lang.perl
Titolo: Switch o case

Siccome non ho un libro, potete dirmi qual'e' la sintassi del comando
case o del comando switch in Perl ?
Grazie.

 case o del comando switch in Perl ?
Siccome hai Perl, la risposta potresti trovarla da solo nelle FAQ che hai
installato sul tuo sistema insieme a Perl.
perldoc -q switch
In ogni caso, non esistono ne' case ne' switch.
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: Ottenere informazioni sul sistema e sull'utente

Salve a tutti.
Mi sembra di ricordare che esiste un hash predefinito contente
informazioni sull'utente che sta eseguendo lo script, o comunque mi
servirebbe un modo per ottenere lo username dell'utente che lo
esegue....
Utilizzare il comando Bash "whoami" mi sembra poco elegante :S.
Grazie e scusate se la domanda è un po scema :)


Forse stai cercando la hash %ENV.
  larsen@larsen-desktop:~$ perl -e 'print "$ENV{ USER }\n"'
  larsen
Un altro posto con informazioni di sistema che potrebbero esserti
utili è %Config (perldoc Config).
ciao,
S.


Ti segnalo un articolo interessante:
http://www.raingod.com/raingod/resources/Programming/Perl/Notes/UserInfo.html

Grazie a tutti per le risposte!!
Mi riferivo ad %ENV, che contiene anche altre informazioni e mi resta
più comdo rispetto ad whoami
Grazie anche per il link che mi è stato utile anche per altri motivi

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

Onestamente non so perchè a questa ora di notte mi pongo questi
problemi...
Ma... dopo una serata con amici e un buon vino cosa di meglio di un buon
problemino perl? ;-)
<CODE>
#!/usr/bin/perl
use File::Find;
$dir='.';
find(\&wanted,  no_chdir=>1,$dir);
sub wanted{
        /\.x.*?chat.*?/i
        && -d
        && $File::Find::name =~ /$dir\/{1}?$_/
        && print $File::Find::name,"\n";
}
</CODE>
<PROBLEMA>
Voglio trovare tutte le directory denominate .xchat, .xchat2, .x-chat,
.x~chat2 nella directory corrente e non in quelle sottostanti.
Come fare?
Con il codice di sopra, il modulo scende di livello fino alla fine...
Esiste un metodo per dire a find di fermarsi al primo o secondo o n
livello?
Thanks e notte ;-)
</PROBLEMA>
-- 
nathanvi
ICQ --> 20318568
mail --> vitto.z A_T 
tiscali.it


Solo nella directory corrente, senza scendere di livello?
Che ne dici del buon vecchio operatore glob?
perl -e 'print <.x*chat*>, $/
oppure'
perl -e 'print $_,$/ for <.x*chat*>'
Secondo livello?
perl -e 'print map {$_.$/} <$_/.x*chat*> for grep {-d} <*>'
Ciao
gmax
-- 
   ____ ____  _____ _   _
  / _  |    \(____ ( \ / )
( (_| | | | / ___ |) X (
  \___ |_|_|_\_____(_/ \_)
(_____|
Sapere, saper fare, fare, far sapere
http://gmax.oltrelinux.com

 
Per un momento mi sono lasciato trasportare ...
Molto piu' semplice cosi':
perl -e 'print $_.$/ for <.x*chat* */.x*chat*> '
(primo e secondo livello in un colpo solo)

Newsgroup: it.comp.lang.perl
Titolo: Utilizzare CSS

Potete aiutarmi?
Come posso utilizzare questi famosi css per cambiare lo stile della mi
pagina?
N.B. La pagina è in HTML e generata da uno script in perl.
Grazie

Potete aiutarmi?
chiedi su un gruppo adeguato.
Oha
-- 
"Qualcuno mi spieghi perche' 144 e' l'unico
quadrato perfetto della serie di Fibonacci"

...


 Tipo????.....
it.comp.www.html, ovviamente.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

...


Ci sono andato....mi hanno detto di andare in un newgroup di PERL!!!!!!
prova a cercare informazioni su 
www.w3c.org


...


error log di apache mi satura l'HD...
ma il problema non erano i CSS?


 Ci sono andato....mi hanno detto di andare in un newgroup di PERL!!!!!!
Non sanno quello che dicono. CSS e' roba di HTML.
Dal lato Perl devi solo fare mettere le print dei comandi adeguati, ma i
comandi sono ESATTAMENTE quelli che metteresti in un file HTML statico.
Quindi preparati un file CCS, preparati un file HTML (statico!!!!) che lo
usi, giocaci finche' i caratteri non vengono fuori esattamente come vuoi tu,
e alla fine fai stampare allo script quegli stessi comandi.


...


>
Mi correggo. Sanno benissimo che CSS e' di HTML. Infatti ne discutono.
Pero' la tua domanda in quel newsgroup non e' ancora apparsa. E non sono
apparse neanche le risposte.
Chissa' perche'?
<*plonk*>


...


Newsgroup: it.comp.lang.perl
Titolo: Non trovo la fine!

In uno scipt ho scritto
  print <<MAIL;
  il mio testo
MAIL
;
exit;
Ma mi dice che non trova la fine?
Forse il mio testo è troppo lungo (+ o - 50 righe)?
Grazie in anticipo!

 Forse il mio testo è troppo lungo (+ o - 50 righe)?
Hai qualche spazio nella riga di chiusura con con MAIL.
Tra l'altro, e' perfettamente inutile quel ; subito dopo.
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: "Porting" di script PERL da UNIX a WIN95

Ho scritto una serie di scripts PERL sotto UNIX
che fanno dei servizi tipo mini-client WEB.
In pratica aprono delle socket, parlano con un server, inviano
una richiesta e gestiscono la risposta. Nessun problema, fino a quando
ho provato a farli girare sotto  WIN95: Ho scaricato dal
sito FTP il porting di PERL fatto da Actiware, ma quando provo
a far girare gli scripts la connessione via socket non funziona.
Nei files README si parla di implementazione non completa delle
funzioni per la gestione delle socket, ma volevo sapere se qualcuno
si e' inbattuto in problemi del genere e se ha trovato una
soluzione.
Grazie, Giorgio

credo che i moduli che hanno a che fare col net siano quelli che hanno
piu' problemi di Porting.
 Tra l'altro queste feature sarebbero utilissime anche a me
 Buona Fortuna
Luca


Ciao Giorgio,
io ho usato i sockets in Perl sotto NT e non mi hanno dato alcun
problema...
Tra l'altro, se specifichi quali errori ti dà il programma e magari
mandi anche un estratto del codice forse una soluzione si trova; così
alla cieca è molto improbabile.
PS. prova anche con il Perl 5.004 "ufficiale" (hai comunque bisogno di
NT per buildarlo, oppure procurati direttamente il bindist per Win32 dal
CPAN).
Tanti auguri,
Ciao
Aldo Calpini
---/\-----------------------------------------------------------
--/  \--------------------------------- mailto:
da...@divinf.it
 --
-<dada>-- POPULUS VULT DECIPI, -------- mailto:
s...@divinf.it
 ---
--\  /------- ERGO DECIPIATUR --------- 
http://sis.divinf.it
 ---
---\/-----------------------------------------------------------

Newsgroup: it.comp.lang.perl
Titolo: eseguire una applicazione

Salve
vorrei -tramite web- eseguire uno shell-script che va a chiamare una
applicazione.
Ho provato con: exec 'mioschell.sh'
solo che Apache mi da un "internal server error" causato da: "Header
malformed" (o simile)
Il fatto e' che lo script va a chiamare l'esecutibile latex 
e gli passa un file che il latex poi formatta e restitisce un file in
.dvi.
Come posso ovviare a questo inconveniente?
esiste qualche opzione per dire all'interprete di eseguire uno shell
script e non esaminare i messaggi che gli arrivano?
Grazie e buone feste a tutti
Leo

Ho provato con: exec 'mioschell.sh'
Non utilizzare exec(): non torna mai, quindi l'esecuzione del tuo
programma termina. Puoi usare:
$ecode = system ("mioshell.sh");
Se vuoi cattuare l'exit code. Se invece e` l'output che ti interessa,
serviti dei backticks:
$output = `mioshell.sh`;
	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: TK svuotare le variabili

Ciao,
ho realizzato un semplice prg in perl con interfaccia in tk.
Il problema e' che la prima volta che eseguo una operazione, tutto funziona,
ma se poi la ripeto, il prg mi ripropone l'ultimo valore delle variabili.
Come posso svuotare le variabili  magari associando questa operazione  ad un
tasto di chiusura finestra?
Per chiudere una finestra eseguo queste istruzioni:
my $chiudi = $mw->Button(
                           -text => "chiudi",
                           -relief => "raised",
                           -command => sub{destroy $mw}
                              );
$chiudi->place( -x => 265, -y => 430, -height => 20, -width => 50);
Grazie e ciao

 ha scritto nel messaggio
news:Rk5ud.16185$Zk.2...@twister2.libero.it...


Newsgroup: it.comp.lang.perl
Titolo: Eliminare valori da un array

Mettiamo il caso:
@array = ("foo", "bar", "eek", "mink");
Voglio estrarre, ovvero eliminare dall'array
il valore "eek" ma non so a che indice si trova.
Si puo' fare? Se si, come?
Guido.

Guido wrote:

<code>
	@list=qw/red blue green yellow black purple white/;
	@newlist=grep !/(red|green)/,@list;
	print "@list\n@newlist"
</code>
	perldoc -f grep
-- 
Alla prossima,
Marco


@array = grep {$_ ne 'eek'} @array;
potrebbe fare al caso tuo
Ciao


Ottima questa, ora la provo!
Grazie a entrambi :-)