mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Perl, Windows e le seriali

Ciao a tutti; cerco aiuto su un piccolo problemino:
Cerco di scrivere (funziona) e leggere (non funziona) da una porta
seriale.
Ho quindi provato il suggerimento delle FAQ Perl per Windows:
open (PORTA,"+<COM1") ...
Riesco a scrivere, ma non ricevo nulla (nè errori di apertura) e lo
script si ferma in attesa in lettura: ho provato ad usare due handler
diversi (uno in lettura e uno in scrittura), ho provato con
"+>COM1" e con "+<COM1", ma non ne cavo un byte.
Il mio obiettivo è dialogare con un modem (comandi AT e loro
risposte).
Sto usando Active Perl 5.8, su Win2k ed XP, e PC diversi, l'esito è
sempre lo stesso...
Ho visto che ActiveState per ora non rilascia i moduli
Win32::SerialPort per nessuna delle due versioni 5.6 e 5.8 di Perl
(anche se l'esempio non vi fa ricorso), quindi per ora non ho provato
a reinstallare la versione 5.6.
Una ricerca nelle news ha prodotto solo un messaggio che suggerisce di
cercare in it.comp.programmare.win32, ma li' nessuno ha risposto finora...
Spero di non annoiare nessuno chiedendo la
ricetta dell'acqua calda.
      Grazie e Ciao

(anche se l'esempio non vi fa ricorso)
Credo che la strada possa essere questa. Win32::SerialPort č interamente in
Perl, non contiene binari; si appoggia solo su Win32::API, che non ha
subito modifiche sostanziali, per quanto riguarda l'interfaccia. Non ci
dovrebbero quindi essere problemi a farlo funzionare con qualunque versione
di Perl per Windows.
Puoi trovarlo, indipendentemente dalla distribuzione ActiveState, su CPAN.
Ciao.

 Win32::SerialPort
Devi installarti prima Win32API::Commport, che fa parte
della distribuzione Win32-API (quest'ultima dovrebbe esserci
tra i vari ppd di ActiveState).
Poi puoi semplicemente copiare a mano il file Win32/SerialPort.pm
in x:/perl/site/lib/Win32/SerialPort.pm (o qualcosa di simile...).
-- 
Cosimo
Newsgroup: it.comp.lang.perl
Titolo: problemi con i moduli DBD e DBI durante l'installazione

Ciao,
vi chiedo un aiuto disperato! :( Devo completare la realizzazione di
un sito web, ma purtroppo sono bloccatto con l'installazione dei
moduli DBD/DBI per poter utilizzare Mysql da Perl. L'errore prodotto e
il seguente:
# perl Makefile.PL
Which drivers do you want to install?
    1)  MySQL only
    2)  mSQL only (either of mSQL 1 or mSQL 2)
    3)  MySQL and mSQL (either of mSQL 1 or mSQL 2)
    4)  mSQL 1 and mSQL 2
    5)  MySQL, mSQL 1 and mSQL 2
Enter the appropriate number:  [3] 1
Do you want to install the MysqlPerl emulation? You might keep your
old
Mysql module (to be distinguished from DBD::mysql!) if you are
concerned
about compatibility to existing applications! [n]
Where is your MySQL installed? Please tell me the directory that
contains the subdir 'include'. [/usr/local]
Cannot find one of include/mysql/mysql.h, include/mysql.h in
/usr/local at lib/DBD/mysql/Install.pm line 165, <STDIN> chunk 3.
La versione/distribuzione linux č: RedHat 6.2, il kernel e la versione
2.2.14-5.0 on an i586, il mysql e la distribuzione: 3.22.32, anche
xche' la successiva non si installava sul mio linux.
Per quello ke ho capito non viene trovato il file mysql.h, ho provato
a fare una ricerca con il comando find -name mysql.h, in diverse
varianti, ma non trova questo file!!!
COME RISOLVO IL PROBLEMA? :( :( :(
Aiutatemi sono disperato!
bye bye

 COME RISOLVO IL PROBLEMA? :( :( :(
Devi:
1. installare i sorgenti di Mysql
2. installare qualche pacchetto con librerie ed headers di sviluppo per 
Mysql (non so come si chiami questo pacchetto per la red hat, per Debian 
2.2 si chiama libmysqlclient6-dev)
-- 
Saluti,
Giancarlo
Newsgroup: it.comp.lang.perl
Titolo: Imager

Ho installato Imager ma Perl 5.8.6ecc mi dà questo errore (utilizzando il
file d'esempio) qualcuno mi può indirizzare? Grazie in anticipo.
Can't load 'C:/Perl/site/lib/auto/Imager/Imager.dll' for module Imager:
load_file:Una periferica collegata al sistema non è in funzione at
C:/Perl/lib/DynaLoader.pm line 230.
at C:/Perl/lib/DynaLoader.pm line 153
BEGIN failed--compilation aborted at C:/Perl/site/lib/Imager.pm line 153.
Compilation failed in require at 
try.pl
 line 1.

 file d'esempio) qualcuno mi può indirizzare? Grazie in anticipo.
Come l'hai installato?
Ho provato ad installare Imager 0.47 tramite ppm con perl 5.8.7 (build
813) e funziona correttamente.

 ha scritto nel messaggio
news:duaf0q$c9p$1...@nnrp.ngi.it...


 > file d'esempio) qualcuno mi puň indirizzare? Grazie in anticipo.


 l'ipotesi è deficiente...grazie,
Io uso Windows XP, i ppm sono "pacchetti" che, nel caso di codice Perl e
C/C++, contengono già le dll derivate dalla compilazione del codice.
Dunque sono fatti apposta per coloro che non hanno un compilatore.
Non riesci a fare un test su Windows 2000/XP ? Quanto prima farò un test
su Windows 98 e ti faccio sapere.

 su Windows 98 e ti faccio sapere.
Confermo il tuo problema su Windows 98 (AS Perl 815): "A device attached
to the system is not functioning". Cercando in rete con questa stringa
ho ottenuti diverse cause e soluzioni, ne ho provato una (mettere nel
path la directory contenente Imager.dll) ma senza successo.

 Andrea Maestrutti wrote:
Grazie per l'aiuto...cosa si può dire - la solita sfiga!?  Mi arrangerò in
un altro modo, tipo image magik...a risentirci

Newsgroup: it.comp.lang.perl
Titolo: hthaccess

Non sò se questo è il newsgroup adatto.
Dovrei bloccare l'accesso alle pagine delle statistiche dei contatori e 
clickcounter del mio contatore, perchè se le vanno a leggere in tanti e 
considerando che il mio sito comincia ad avere sui 500 accessi non è una 
cosa simpatica.
Solo che ho provato con l''Htaccess, ma si blocca la visualizzazione del 
contatore in homepage.
Inoltre forse non ho fatto bene il lavoro (ho uno script creatore automatico 
di htaccess e htpassword) e quando inserisco la password non si apre l'area 
riservata.
Come fare?
Un tempo disponevo di un javascript che dava un accesso con password, forse 
può essere un paliativo per ridurre il 70-80 % degli accessi dei curiosi? O 
c'è qualche soluzione migliore.
Ho provato a cercare su google, ma non sono riuscito a trovare niente, 
nenache in siti stranieri di script in perl.
grazie a chi mi risponderà
l'apprendista 

 
Se la questione riguarda solo la configurazione di Apache, questo non è il 
NG giusto. 
Se invece il problema riguarda il funzionamento di uno script e questo 
script è in Perl, ti inviterei a porre domande più precise e fornire 
maggiori dettagli. 
Max

Da un certo punto di vista il problema riguarda anche uno script in perl.
Utilizzo il contatore "counteractive", che scaricano normalmente gli utneti 
di Aruba.
Il problema è che settando per esso l'htaccess viene bloccata la 
visualizzazione del valore del contatore in homepage (e forse anche bloccata 
la conta) e quindi credo non posso utilizzare l'htaccess (che sono riuscito 
adesso a far funzione per i clickcounter, il cui script evidentemente 
consente di bloccarne l'accesso, senza alterare la conta).
Il contatore ha una pagina di accesso alla gestione dei settaggi, ma non a 
quella delle statistiche.
Eventualmente mi interesserebbe sapere se esiste (e magari anche il link 
relativo) un contatore (meglio se free) di accessi unici (con controllo IP) 
e statistiche che forniscano almeno la lingua del browser, i referrals e le 
pagine di entrata a la sito.
grazie
l'aprendista

Newsgroup: it.comp.lang.perl
Titolo: Sono su punto-informatico.it

:D
Non pensavo che avrebbe avuto cosě successo:
www.punto-informatico.it
www.keyforum.net
Ovviamente fatto in perl. :D
PS:
sono emozionato

 Ovviamente fatto in perl. :D
Vivissimi complimenti Lord :)
Bellissima soddisfazione :)))))))

Bellissima soddisfazione :)))))))
tantissima soddisfazione, pensare che ho iniziato come passatempo <_<
Sono contento anche perchč molti programmatori stanno imparando il perl per
sviluppare mod per il forum :D
E basta con questo php! -_O

 Ovviamente fatto in perl. :D
Complimenti :-)

Newsgroup: it.comp.lang.perl
Titolo: [newbie ]dword e int

Salve,
         stavo leggendo in rete un p� di codice c++ per inparare e mi sono 
imbattuto in dword e cstring...volevo sapere qual'� rispettiva differenza 
tra questi due definitori di tipi e magari int e char.
grazie
 

 imbattuto in dword e cstring...volevo sapere qual'è rispettiva differenza

Newsgroup: it.comp.lang.perl
Titolo: da HTML ad ARRAY

Scusate se riposto la domanda, ma ne ho bisogno.
Conoscete qualche modulo che permetta di passare da una tabella HTML ad un
ARRAY? Grazie...
'duccio


Credo che tu possa usare qualche modulo tipo HTML::Parse (o HTML::Parser,
non ricordo quale dei due e' quello recente), capendo come tirare fuori i
dati dal parse-tree.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 ARRAY? Grazie...
Ti serve una soluzione generica, che contempli anche l'esistenza di
tabelle annidate? In questo caso hai senz'altro bisogno di un vero parser.
Diversamente, puoi fare qualcosa del genere...
 my $html = "
  <table >
   <tr> 
    <td> pippo    <td> pluto    <td> minni
   <tr> 
    <td> minni    <td> pippo     <td> pluto
    </table>
  ";
 $html =~ s/\n/ /g; 
 $html =~  /<table[^>]*>(.+?)<\/table\s*>/is;
 my $tabella = $1;
 my @righe = split/\s*<tr[^<]*>\s*/i, $tabella;
 shift @righe;
 for ( @righe ) {
 	my @campi =  split/\s*<td[^<]*>\s*/i;
 	shift @campi;
	print join( ",", @campi ),"\n";	
 }
Max

Newsgroup: it.comp.lang.perl
Titolo: Mysql con perl?

ciao, ho messo ActivePerl sul mio pc e vorrei sapere come devo
installare le DBI con supporto mysql. grazie!
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 installare le DBI con supporto mysql. grazie!
Collegati ad internet e da prompt di dos scrivi:
ppm install DBD-MySQL
per informazioni su PPM scrivi:
perldoc PPM
-- 
$_=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

fatto. ma se io volessi installarlo senza ppm, sarebbe possibile?
grazie! :)


 grazie! :)
In un vecchio post la risposta:
http://groups.google.it/groups?hl=it&selm=3C698194.27712D2E%40friuli.com
Ciao! :)


Newsgroup: it.comp.lang.perl
Titolo: Apache per windows

Io uso apache 1.3.9 per linux ma per verificare alcune cose ho dovuto
installare apache per windows 1.3.4 tutto parte bene tranne una cosa:
Dovè l'interprete cgi
Ho provato anche con #!/usr/bin/perl ma logicamente non funziona
Grazie!

 ha scritto nel messaggio
news:8ib4o0$j0s$2...@lacerta.tiscalinet.it...

#!C:/tuo-percorso-dove-hai-installato-ActivePerl-o-qualcosa-di-analogo/bin/P
erl
cmq se hai problemi dai una lettura su
http://myweb.3q.to/docs/cgi_win9x.html
Bye, Ezio

Salve,
per compatibilità di script e per evitare due di dove modificare
continuamente il percorso dell'interprete, ti consiglio di creare una dir in
C: tipo c:\usr\bin e copiarci il file perl.exe
Potrai così continuare ad usare gli script sulsistema linux e su Windows
senza modifiche....
CIAO!
hostitalia
internetservices
www.hostitalia.it


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

E' sempre l'ovvio a sfuggirci : )

Newsgroup: it.comp.lang.perl
Titolo: Compilare script

C'è qualcuno cosi' gentile da compilarmi questo script cgi in un 
eseguibile per macchine unix/linux?
questo è il link del file zippato:
http://www.theartofweb.altervista.org/compilare.zip
potete spedirmi l'eseguibile a 
thear...@hotmail.com
 
sareste coi' gentili da inviarmi anche una copia del sorgente .c del 
file .cgi?
grazie mille a tutti...io sto su macos9 e non posso eseguire nessuna 
delle suddette operazioni...
Grazie ancora...

il nuovo indirizzo con il file aggiornato è: 
www.theartofweb.netfirms.com/bbsmart.cgi.zip
 
Grazie ancora...

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

Ciao a tutti.
Vorrei fare uno script in Perl che esegue i seguenti compiti:
Una volta lanciato esegue un ftp su una macchina predefinita remota e
invia sulla stessa macchina dei file i cui nomi li legge da una lista
(file esterno).
Grazie per un eventuale aiuto.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 (file esterno).
Esattamente, qual'è la parte che ti crea problemi? 
L'unico modulo che devi usare è Net::FTP, per le operazioni di FTP
appunto. Per il resto mi sembra sia abbastanza semplice...
Ciao,
-- 
+--------+ | ASCII ribbon campaign ( ) | 
www.autistici.org/kral
|  kral  | |  - against HTML email  X  |
+--------+ |              & vCards / \ | my key id = 0x7C946947

 Ciao,
-- 


Grazie per un eventuale aiuto.
use Net::FTP;
$ftp = Net::FTP->new("
ftp.topolinia.net
", Timeout=>60, Debug=>1); 
$ftp->login("pippo", "topolino"); 
$ftp->cwd("/public_html/");  
$ftp->put('index.cgi');
$ftp->quit;
--
http://www.pigmalion.info/

 Non saprei come usare il modulo.
Basterebbe leggersi la documentazione acclusa:
	perldoc Net::FTP
Ci sono anche gli esempi.
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: Rieccomi in cerca di esempini....

esiste una funzione rename per i file?
mi serve l'elenco di tutti i file della directori?
ho scritto questa funzione (incasinatisssima ) per eliminare gli "0" zeri
inutili dopo la virgola (se c'č!) e tagliare i decimali successivi al 3
in pratica:
1.00005 diventa  1
1.20000 diventa  1.2
1.23456 diventa  1.234
 ##########
   if ($max =~ /\./)
         {
   @max = split (/\./,$max);
   $max[1] =~ /^.{2}(.{1})/ ;
            $max3 = $1;
   $max[1] =~ /^.{1}(.{1})/ ;
            $max2 = $1;
   $max[1] =~ /^.{0}(.{1})/ ;
            $max1 = $1;
   if($max3 >0 )   {
            $max=$max[0].".".$max1.$max2.$max3;}
            else       {if($max2 > 0){$max=$max[0].".".$max1.$max2;} else
              { if($max1 > 0){    $max=$max[0].".".$max1;}  else
 $max=$max[0];}
                               }
               }
            }
   ##########
sono sicuro che la riscriverete in maniera molto + semplice!
Grazie!
Bye
F.

1.23456 diventa  1.234
$n=int($n*1000)/1000;
Oha
-- 
#include <disclaimer.h>

 >inutili dopo la virgola (se c'è!) e tagliare i decimali successivi al 3


 directory?
 perldoc -f opendir
 perldoc -f readdir
 perldoc -f closedir

 wrote in message
Pine.LNX.4.10.100051...@c64.comm2000.it...


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

Ciao a tutti,
scusate la domanda da newbie.
Avrei bisogno di una funzione per il file locking, flock non adempie
alle mie richieste in quanto fornisce un locking di tipo advisory
(ossia cooperativo).
Cerco un modo per ottenere file locking mandatory, ossia una volta
ottenuto il lock su un file nessun processo di sistema può accedere in
scrittura al file sul quale si è ottenuto il lock.
Grazie a tutti,
Ciao!
Andrea

Ciao,
prova a dare un'occhiata a questo modulo del cpan:
http://search.cpan.org/~nickola/NL-File-Lock-0.3/lib/NL/File/Lock.pm
Ciao!
Mirko.

 Andrea
Guarda, credo che tale servizio debba essere necessariamente mutuato
dal sistema operativo sottostante, come del resto l' advisory lock che
pero' e' abbastanza standard (POSIX per lo meno) e quindi sempre
presente.
In Linux trovo questa lettura inclusa con il kernel:
/usr/src/linux/Documentation/mandatory.txt
se non usi Linux puoi comunque leggerlo qui:
http://www.cs.albany.edu/~sdc/Linux/linux/Documentation/mandatory.txt
dove spiega che l' unica tecnonogia disponibile sia quella proposta
da SysV che Linux supporta, ma implica la rinuncia alla compatibilita'
BSD.
Non credo quindi che Perl possa aggiungere niente.
Ciao
Roberto
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.lang.perl
Titolo: CGI.pm e fileupload

Salve a tutti!
Avrei bisogno di inserire un pezzo di codice che usa il modulo
"CGI.pm" dentro uno script Perl "standard" (che accetta lo standard
input tramite Form query).
Visto che il mio script e' abbastanza lungo (200 Kb) ed e' una follia
ricominciare da capo, sapete se c'e' un modo per usare tale pezzo di
codice? 
Non sono pratica di CGI.pm, ma ho notato che usando il codice
modularizzato dentro una subroutine, esso prende il comando
dell'intero script e non permette allo standard input via Form di
essere valutato dallo script stesso.
grazie!
ps: rimuovere NOSPAM dall'email
Silvia Agatello

 codice?
IMHO, sopratutto se, come dici in seguito, non sei pratica
di CGI.pm, non andrei a mescolare due metodi che hanno una grande
probabilita' di essere incompatibili.
Anche per chi ha rimestato - come chi scrive - in CGI.pm per un po',
combinare uno script 'comune' con uno che usa CGI.pm presenta aree 
grigie.
Per contro, se (a)scrivi l'upload per conto tuo, allf ine saprai come
funziona l'upload, se (b)riscrivi lo script con CGI.pm, alla fine sarai
esperta di CGI.pm.
In piu' in gener la soluzione (b) tende ad accorciare e a ripulire il
codice.
IMHO - ovviamente.
Cheers,
	Alessandro

 essere valutato dallo script stesso.
Non conosco il tuo mega-script, ma quello che vuoi fare mi sembra poco
pratico. 
Se devi usare CGI.pm, fagli fare anche tutto il lavoro sporco di gestione
dell'input da form.
In ogni caso, puoi sempre dire al tuo oggetto CGI di prendere i suoi
parametri da un filehandle e non da standard input.
Quindi, se stai usando CGI.pm in modalita' OO,
  $query = new CGI(FILEHANDLE);
 
  o se proprio non hai il file
 
  $query = new CGI({});
In questa maniera hai l'oggetto senza parameteri parsificati.
Pero' devi sempre usare $query->funzione();
Non credo sia possibile evitare che CGI.pm si impossessi dello STDIN 
se lo usi in maniera implicita (ovvero con 'use CGI qw/:standard/;')
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: Grafica

Ciao a tutti.
La mia domanda (che a molti sembrerà stupida) è : esistono
dei comandi per gestire piccole interfacce testuali con
perl? Oppure, esistono comandi per poterle creare? Quello
che sto cercando è l'equivalente di istruzioni come
CLS e LOCATE in BASIC o della CONIO.H in C. Ho trovato
dei siti che spiegano come interfacciare PERL con GTK ma
a me servirebbe creare un'interfaccia grafica
1) a caratteri
2) che si appoggi il meno possibile a librerie esterne
Ciao e grazie a tutti
P.S. Mi rendo conto che la domanda per molti è stupida ma
uso Perl da un annetto solo per crearmi piccoli script su
Linux...
-- 
aSs0  -  
mastr...@bigfoot.com
  -  ICQ UIN  #21746800  
Mi  fidavo di lei  come un giocatore nella sua miglior
        				combinazione.]

 1) a caratteri
Esiste un modulo che si chiama perl-menu, cerca su CPAN, potrebbe fare
al caso tuo, permette di gestire interfacce a caratteri anche colorate.
Fammi sapere se userai glade o gtk-perl. Mi piacerebbe avere qualcuno con cui
scambiare un po' di idee sull'utilizzo di GTK-Perl.
***Ivan***

scambiare un po' di idee sull'utilizzo di GTK-Perl.
Innanzitutto grazie per le dritte, vado subito a controllare... comunque più
che GTK pensavo di usare l'interfaccia a caratteri... per non essere vincolato
all'ambiente grafico, ma sono ancora dubbioso. Se provo con gtk-perl o glade ti
faccio sapere. 
Grazie ancora.
Innanzitutto grazie per le dritte, vado subito a controllare... comunque più
che GTK pensavo di usare l'interfaccia a caratteri... per non essere vincolato
all'ambiente grafico, ma sono ancora dubbioso. Se provo con gtk-perl o glade ti
faccio sapere. 
Grazie ancora.
BYEZZZZZZZZzzzz........


2) che si appoggi il meno possibile a librerie esterne
Come al solito ci sono tanti modi per farlo.
Presuppongo che ti basti avere a disposizione colori, cls,
gotoxy, etc...
1) visto che usi linux dovresti conoscere bene i caratteri di
escape. Li puoi stampare anche da perl, usando \e. Non te lo consiglio
pero`, e` ovviamente vincolatissimo alle caratteristiche del tuo
terminale.
2) oppure prova il modulo Term::Screen (v.CPAN) che Š un front-end
al punto di cui sopra e sfrutta il file termcap (mi sembra).
3) Se vuoi essere proprio svincolato da librerie e chiamate di sistema
(fino al punto di realizzare un multipiattaforma per tutti gli intel)
realizzi un programma in asm/c/quel-che-vuoi-purche`-veloce che sfrutti
le chiamate del bios(int 10h) o scriva direttamente sulla porzione di
memoria B800:000 ('carattere'+0+'attributo). Poi fai dialogare questo
sw esterno collo script perl usando `` ed eventuale pipe.
In ogni caso il lavoro e` consistente, dal passare dalla manipolazione
dello schermo fino ad una vera interfaccia...
Se t'interessa la 3ø opzione fammi sapere in reply.
--
       ^
      |õ|
     /   \       la scusa giusta al momento giusto : l'alcool
    |     |      non ho potuto fare i compiti : stavo bevendo
 J  |  &  |  D   domani non posso andare al lavoro : devo bere
    |     |      scusa non posso sposarti : la vite mi chiama
    `-----'
Newsgroup: it.comp.lang.perl
Titolo: eseguire un script perl senza output sul browser

Ho questo problema da risolvere.
Ho un BUTTON in html che sul click()
deve lanciare uno script perl (lato server).
Questo script, fa quello
che deve fare, aggiorna in db postgres, ma sul client (browser) che lo ha
invocato non deve apportare alcun cambiamento.
A video deve sembrare che
nulla è stato fatto.
E' possibile?
Come realizzo il tutto.
p.s. Il
webserver mi da errore se non faccio scrivere allo script almeno la riga
content-type......
Aiuto.
--GM
--------------------------------
Inviato via 
http://usenet.iol.it

</p>
in questo modo lo script viene eseguito ma il suo output (cioè nulla) non
sarà visualizzato
...
potresti anche usare SSI....
Ciao

Newsgroup: it.comp.lang.perl
Titolo: cookie e print "Location: ..."

Saluti a tutti,
ho un problema con i cookie e l'istruzione print "Location: etc..." nei 
miei cgi: se uso CGI::Cookie e print 
$miocgi->header(-cookie=>$miocookie) non posso usare print "Location: 
..." perchè questa riga deve essere la prima ad essere spedita al 
client. C'è un modo per far convivere le due istruzioni o comunque usare 
i cookie e spedire al client una pagina già esistente?
Grazie a tutti
Stefano

Mi rispondo da solo:
print "Set-Cookie: $miocookie\n";
print "Location: $home\n\n";
Scusate la banalità della domanda.
Stefano


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

 in httpd.conf, e poi?
Controlla anche /etc/apache/httpd.conf
che la riga equivalente non sia commentata.
-- 
Lorenzo Pulici - Milano, Italia 	      E-mail: 
sno...@iol.it
      ******** PLUTO member - 
http://www.pluto.linux.it
 *******
http://www.weitzmann.it
 
http://www.tempolibero.com/user/pulici
http://www.geocities.com/Colosseum/Field/9892
      MILANOHOCKEY home site

Newsgroup: it.comp.lang.perl
Titolo: Funzione exec

Salve ragazzi,
in file html posso usara la funzione exec. Come' la sintassi esatta?
<!-- #exec cgi="/cgi.bin/
pp.pl
" -->
o
<!exec cgi="/cgi.bin/
pp.pl
">
Grazie

<!-- #exec cgi="/cgi.bin/
pp.pl
" -->
questa
-- 
#@@@ missinglink on slackware 7.1 ###
_______________________________________________
Telug mailing list 
Te...@telug.it
Newsgroup: it.comp.lang.perl
Titolo: Errore nella riga 11

Perl mi dice che ho sbagliato nella riga 11 ma a me non sembra
#!C:/perl/bin/perl
use CGI 'param';
$dove = param('dove');
if ($dove eq 'sport') {$dove = 'http://'}
if ($dove eq '') {$dove = '
http://www.fiorani.org/error500.html
'}
print "Content-type:text/html\n\n";
print "<title>Fiorani & Co*</title>\n"
print "<body bgcolor=\#FFFFFF>\n"; #ecco la riga 11
print "<frameset rows=50,* border=0 frameborder=no framespacing=0>\n";
print "<frame name=title src=/channel/one.html marginwidth=0 marginheight=0
scrolling=no noresize>\n";
print "<frame name=body src=$dove marginwidth=0 marginheight=0 scrolling=no
noresize>\n";
print "</frameset>\n";
print "</body>\n";
Ecco cosa mi dice perl
syntax error at channel.cgi line 11, near "print"
channel.cgi had compilation errors.
Mi potete aiutare
Grazie

Mi potete aiutare
Manca il ; alla riga sopra!!!!!!!
-- 
Saluti,
Giancarlo

 print "<title>Fiorani & Co*</title>\n"
punto e virgola in meno.
Ciao,
Valerio
--
Valerio Granato - 
val...@grana.to
FOR KeyMaster - i2000 Usenet Hierarchy
Maggiori informazioni sulla gerarchia i2000?
http://www.i2000.usenet.it
 - 
in...@i2000.usenet.it

> print "<frame name=title src=/channel/one.html marginwidth=0 marginheight=0
								             ^
Non ti sembra manchi qualcosina? (il ; finale)
Btw, guarda che puoi anche scriverlo cosė:
print PRINTER <<HTML;
Content-type:text/html\n\n
<title>Fiorani & Co*</title>
<body bgcolor=\#FFFFFF>
<frameset rows=50,* border=0 frameborder=no framespacing=0>
<frame name=title src=/channel/one.html marginwidth=0 marginheight=0
scrolling=no noresize>
<frame name=body src=$dove marginwidth=0 marginheight=0 scrolling=no
noresize>
</frameset>
</body>
HTML
molto pių manutenibile.

 print "<frame name=body src=$dove marginwidth=0 marginheight=0
scrolling=no

Newsgroup: it.comp.lang.perl
Titolo: socket,client,non funziona...

socket,client: non funge 
Perchè questo codice non funziona? 
code:
------------------------------------------------------------------------
#!/perl
#
# Client
use strict;
use warnings;
use IO::Socket::INET;
my $socket = IO::Socket::INET->new(PeerAddr => 
'
http://www.theartofweb.netfirms.com
',
                                 PeerPort => '80',
                                 Proto    => 'tcp') || die "$!\n";
$socket->autoflush(1);
print $socket "GET 
http://www.theartofweb.netfirms.com/style.css
 
HTTP/1.1\r\n";
my $answer = <$socket>; 
close($socket);
------------------------------------------------------------------------
non ottengo niente...

 HTTP/1.1\r\n";
Questa non č una richiesta conforme al protocollo HTTP/1.1. Manca l'header 
'Host', ad esempio. Ci vuole una sequenza "\r\n\r\n" alla fine. Anche un 
header "Connection" non guasterebbe.
Se non conosci il protocollo, perché non usi gli appositi moduli (LWP)? 
(Se lo fai per imparare, studiati l'RFC, ché impari di piů.)
Max

 print $content;
se facessi cosi' quindi mi eseguirebbe uno script che accetta parametri?
get("
http://www.theartofweb.netfirms.com/script.cgi?id=valore
");
grazie!

 wrote:

intendi questa?
GET / HTTP/1.1
Host: 
127.0.0.1:81
Accept: */*
Accept-Language: en
Connection: Keep-Alive
User-Agent: Mozilla/4.0 (compatible; MSIE 5.17; Mac_PowerPC)
UA-OS: MacOS
UA-CPU: PPC
Extension: Security/Remote-Passphrase
quindi tra una riga e l'altra devo mettere: \r\n e all'ultima devo 
mettere: \r\n\r\n ??

 wrote:

chiedo scusa per il post :-)

Newsgroup: it.comp.lang.perl
Titolo: multithread in perl

Caio a tutti.
è la prima volta che scrivo qui,
e credo che qualcuno abbia già proposto l'agomento in oggetto.
Da qualche giorno ho ripreso in mano il perl (dopo 2 anni!!!)
per usarlo con cgi,  dbi, dbd-oracle.
Una delle cose che mi servirebbe fare sarebbe eseguire la stessa query
su diversi db  -> contemporaneamente <-.
Dunque ho cercato un po' di materiale, ma ho trovato molta confuzione.
Ho visto che c'è un modulo apposito, ma da qualche parte c'è scritto
che la cosa è in via di sviluppo, qualcuno dice che non andrà avanti...
Insomma: mi occorrerebbe una dritta per capire innanzitutto
come converrebbe fare una cosa simile,
e poi che differenza ci sarebbe tra una fork e un nuovo thread
(il primo crea un nuovo processo e il secondo ne copia solo una parte?)
Sarebbe possibile condividere delle variabili tra i diversi "rami" creati?
Grazie a tutti.
    Stefano

(il primo crea un nuovo processo e il secondo ne copia solo una parte?)
Qualcuno più esperto ti potrà forse dare informazioni più tecniche (e più
attendibili), quello che ho capito io è: su sistemi posix usa un fork; su
sistemi Windows usa Win32::Process; su altri sistemi puoi tentare un thread.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Stampare con PERL

Salve, ho fatto un modulo in perl e vorrei fare in modo che un utente
cliccando su un pulsante, il perl mi stampi sulla stampante dell'utente.
Ho provato con printf STDPRN ("..."); ma non funziona, come posso fare?
Grazie,
Felice Balsamo



Con che sistema operativo? Win* o U*ix?
In generale, direi che puoi aprire un file su un device di stampa o 
su una pipe che mandi alla stampante e poi scrivere su quel file.
Su Unix farei (NON L'HO PROVATO!!!)
  open PRINTER,"| lpr" or die "Non posso stampare!!!: $!";
  print PRINTER "Ho stampato\n";
  close PRINTER;
Sotto DOS, penserei a scrivere su PRN: , ma non so se funziona, ovvero
  open PRINTER,">PRN:" or die;
Non conosco i device di stampa di Windows per dirti come fare. 
Naturalmente tutto questo dipende MOLTO dalla configurazione dell'utente.
In ogni caso mi sembra un operazione molto strana. Cosa ci fa un pulsante in
un modulo? E' un modulo perl o un form Web? 
Se e' un form Web, e' meglio far stampare direttamente il browser. In questo
caso Perl non c'entra nulla. 
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@tuttocitta.it
 
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Newsgroup: it.comp.lang.perl
Titolo: Scrivere e leggere porta seriale

Ciao a tutti.
Devo poter scrivere su una seriale un carattere ascii e leggere la
risposta che l'accrocchio collegato mi dà.
Ho scritto questo script ma sembra avere qualche problema:
#!/usr/bin/perl -w
use Device::SerialPort;
$port = new Device::SerialPort("/dev/ttyS1");
$port->baudrate(9600);
$port->parity("none");
$port->databits(8);
$port->stopbits(1);
$port->handshake("none");
$port->write_settings;
$port->read_char_time(0);
$port->read_const_time(1000);
$port->write("h");
my ($count,$saw)=$port->read(255);
print "->".$saw."\n";
Ovvero non ottengo nessun risultato.
Se modifico lo script aggiungendo una lettura prima della scrittura allora
tutto funziona. 
[...]
$port->read_char_time(0);
$port->read_const_time(1000);
my ($count,$saw)=$port->read(255);
$port->write("h");
($count,$saw)=$port->read(255);
print "->".$saw."\n";
Non mi sembra però un modo corretto di procedere.
Qualche idea?
Grazie 
Mario
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 risposta che l'accrocchio collegato mi dà.
Ti ho risposto su i.c.o.l.development
-- 
bunker
+++++++++++[>++++++>+++++++++++++++++++++++++++++++++>++++
++++++<<<-]>.>++++++++++.>.<----------.>---------.<+++++++.
Newsgroup: it.comp.lang.perl
Titolo: utenti di sistema

ciao
come posso verificare se un determinato utente è presente sul sistema?
grazie

 come posso verificare se un determinato utente è presente sul sistema?
La domanda è leggermente [OT] per questo NG.
Innanzi tutto su quale sistema?
Eppoi cosa intendi per 'presente'? Se ha un account, se è loggato,
se è connesso ad un particolare server, ecc...
Temo poi che se non disponi di un account sulla macchina
(o sul 'sistema') potrai fare ben poco.
    - Enrico

Eppoi cosa intendi per 'presente'? Se ha un account, se è loggato,
Ha un account sul sistema
ciao

cerbero wrote:

finger <nomeutente>
(ammesso che il demone sia attivo e tu sia abilitato ad usarlo)
    - Enrico

Newsgroup: it.comp.lang.perl
Titolo: Una prima domanda

Buongiorno,
mi sono avvicinato al Perl per necessità di una maggior sicurezza nel mio
sito.
Avevo infatti fatto un form in javascript che però ogni tanto mi tornava con
del codice html nei campi text.
Era semplice ma poco sicuro.
Pertanto Le mie due domande che desidero rivelogervi sono:
1)Dovendo inviare a me stesso il form contenente i dati che il mio
visitatore immette nel form, usando il Perl posso controllare ed annullare
in piena sicurezza il codice html eventualmente immesso?
2)Posso passare (e come lo posso fare) un array  creato con javascript aò
cgi perl che dovrà poi inviarmi i dati contenuti nell'array assieme al form?
Potete farmi qualche esempio e/o indicarmi dove trovare esempi pratici di
ciò che io voglio fare?
Grazie infinite in anticipo
Paolo

cgi perl che dovrà poi inviarmi i dati contenuti nell'array assieme al form?
Non si puo` in forma diretta, pero` puoi creare un input di tipo HIDDEN
in cui inserisci ad esempio:
elemento1~elemento2~elemento3
dove la tilde e` il separatore. In Perl ricostruisci l'array con:
@elementi = split (/~/, $q->param('elementi'));
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> FAQ di it.comp.lang.perl: 
http://www.borders.it/perl/faq/
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!
Newsgroup: it.comp.lang.perl
Titolo: Utilizzo di script perl dentor httpd

Salve a tutti,
premetto che sviluppo principalmentein php e perl non lo conosco proprio 
ma ho la necessitï¿œ di utilizzare questo script per creare dei vhosts 
dinamici dentro il mio file httpd.conf,
ecco il codice dello script che inserisco fra i tag <perl> nel mio 
httpd.conf
<perl>
#!/usr/bin/perl -w
local ($ip,$host,$admin,$vroot,$aliases);
local ($directive,$args);
open (FILE,"/var/www/vhosts/user/conf/vhost-perl.conf");
while (<FILE>) {
         next if /^\s*(#|$) / ;
         if (/^d+/) {
         ($ip,$host,$admin,$vroot,$aliases)=split /\s*,\s*/, $_;
            $VirtualHost{ip}= {
                    ServerName =>$host,
                    ServerAdmin => $admin,
                    DocumentRoot => 
"/var/www/vhosts/user/subdomains/beta/httpdocs",
                    ErrorLog => "logs/".$host."_error.log",
                    TransferLog =>"logs/".$host."_access.log"
                 };
                 $VirtualHost {$ip} {ServerAlias} =$aliases if $aliases;
                 $VirtualHost {$ip} {Port} =$1 if ($ip=~/:(\d+)$/);
         } elsif ($ip) {
                 ($directive,$args)=split / /, $_,2;
                 $VirtualHost {$ip} {$directive}=$args;
         }
}
close (FILE);
#_END_
</perl>
intanto, subito una cosa, se decommento _END_ quando vado a riavviare 
httpd mi restituisce delgi errori mentre commentandolo niente errori, 
perï¿œ lo script non funziona, nel file chost-perl.conf ho messo questa riga:
xxx.xxx.xxx.xxx:80, 
mioxxx.miodominio.it
, 
bl...@miodominio.ir
, 
/var/www/vhosts/user/subdomains/beta/httpdocs
il codice l'ho inserito alla fine del file httpd mentre provando ad 
inserirlo all'inizio succede un casino di errori.

httpd mi restituisce delgi errori mentre commentandolo niente errori,
La direttiva � __END__ non _END_
__END__ segna la fine del codice, e dice all'interprete perl che quello che
segue va considerato come dati. _END_ non vuol dire nulla (per l'interprete
perl). Puoi avere una sezione dati (eventualmente vuota) o non averla
(direttiva commentata), non puoi avere qualcosa che l'interprete perl non �
in grado di riconoscere.
Su tutto il resto non sono in grado di dire nulla.
Ciao.

Posso confermarti che ho provato e adesso non restituisce errori quando 
riavvio l'httpd, per� non succede nulla,
in pratica io ho un file httpd.include dove � configurato l'host 
principale del www e alcuni sottodomini, ho messo il codice perl 
all'inizio di questo file, non ci sono errori o altro ma non succede nulla.
lo script lo preso da questa pagina
http://www.risorse.net/apache/configurazione_virtualhost.asp


lo script lo preso da questa pagina
Come ho gi� detto, su questo io non sono in grado di dire nulla.
Per quello che posso capire, la cosa riguarda pi� Apache (di cui ho una
conoscenza assai limitata) che Perl. Di questo puoi del resto sincerarti
eseguendo httpd.conf direttamente da console (con l'opzione -x). Se Perl
non segnala errori, si tratta di ravanare nei log di Apache, attivando
eventualmente i livelli di debug e di log necessari, finch� non riesci a
capire che cosa succede.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Ricerca

Ciao a tutti!
Come state?
Ho un problemino da porvi: io ho un array di record con campi comma
delimited, ma questo non importa...
io vorrei far fare all'utente una ricerca nell'array da pagina web e
l'utente dovrebbe inserire nel campo qualcosa del genere:
((casa and mamma) or (casa and cibo)) not (mamma and casa) or ((cibo and
casa))
C'è un modo per far interpretare al perl questo?
Spero di essermi fatto capire,
Grazie,
Duccio.

 C'è un modo per far interpretare al perl questo?
Si. Bisogna scrivere un parser. Non e' terribilmente complicato. Se riesci a
capirci qualcosa, c'e' Parse::RecDescend.
Poi, se la stringa inserita e' corretta (non come il tuo esempio che non 
e' una espressione booleana corretta), ci vuole qualcosa che faccia la
ricerca vera e propria.
Tutto poi dipende dalla struttura dati sottostante: dal momento che non puoi
pretendere che l'utente la conosca, mappare la sua richiesta sulla funzione
di ricerca puo' essere complicato.
Come moduli precotti, c'e' pochino. Non so se con DBI e DBD::CSV riesci a 
risolvere meta' del problema. La ricerca la faresti in SQL, ma rimane il
problema di mappare la query dell'utente sulla query SQL.
Sconsiglio di prendere la query e passarla direttamente a SQL, dal momento
che e' praticamente impossibile che chi compila il form scriva un pezzo di
query SQL corretto.
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: #2: chiudere finestre

Domanda più difficile. Spero almeno che qualcuno sia pratico di perlTk e mi
sappia dire dove cercare info, perchè fin'ora non ho trovato nulla che mi
sia stato d'aiuto.
Problema: dalla finestra principale della GUI di un mio script, la pressione
di un button fa aprire una finestra secondaria riportante informazioni (vedi
post precedente #1) sull'esecuzione; la finestra contiene, a sua volta, un
button cui vorrei associare il comando di chiusura della finestra stessa.
Che comando devo dare? Se associo il -command=>\&exit termina l'esecuzione
dell'intero script e non è ciò che voglio!!!
Mi sono capito?
Ajoto
ste

Ehm...mi rispondo da solo:
-command => sub{destroy $window}
evidentemente non avevo cercato bene!?!?!
grazie lo stesso!
la domanda #1 è però sempre valida...
stefano
Newsgroup: it.comp.lang.perl
Titolo: excel to csv

hi all
anybody knows a script to save an excel in csv?
i need it for a php script
tnx

ciao a tutti
qualcuno conosce uno script per convertire un excel in csv?
mi serve per uno script in php
grazie :)

 mi serve per uno script in php
Sei capitato nel newsgroup sbagliato, qui si parla di Perl :)
Anyway, se per caso vuoi dare una possibilita` al Perl,
dovrebbe essere sufficientemente semplice fare quello che chiedi
combinando i moduli Spreadsheet::ParseExcel e Text::CSV.
ciao,
S.

 ha scritto nel messaggio
news:x150b.13572$zN5.4...@news1.tin.it...

ok ti ringrazio... provero' a studiarmeli un po' :) speravo ci fosse
qualcosa di già pronto

qualcosa di già pronto
   $sCsvTxt = xls2csv($sFileName, $sRegion, $iRotate);
ti sembra abbastanza già pronto? E` una funzione di utilità contenuta nel
modulo Spreadsheet::ParseExcel.
Altrimenti, se lavori in Windows e hai Excel installato, la cosa si risolve
con Win32::Excel e uno script di tre righe, con qualche garanzia di successo
in più rispetto alla soluzione Spreadsheet::ParseExcel (anche se io, finora,
non ho avuro problemi con questo modulo).
Ciao.

 modulo Spreadsheet::ParseExcel.
grazie mille avevo già notato questa funzione ;)
Newsgroup: it.comp.lang.perl
Titolo: Net::SMTP::Multipart

Non sono un grande esperto di Perl, ma cercando di installare questo 
modulo da CPAN (Net::SMTP::Multipart), ottengo un messaggio di errore:
"... don't know what it is."
Eppure su CPAN c'è.
 
In alternativa, qualcuno può indicarmi un modulo od un metodo 
(disponibile per Perl 5.8.8 di CentOS 5.7) per inviare delle email con 
attachment gzipped senza dover fare tutto a manina?
 

 attachment gzipped senza dover fare tutto a manina?
 
MIME::Lite (c'è un esempio dove usa una | per gzippare un tar)
 
 


Per ora la mail l'ho composta a mano, usando sendmail + 
Compress::Raw::Bzip2 per l'attachment... Pare funzionare...
 
 

 Compress::Raw::Bzip2 per l'attachment... Pare funzionare...
 
Benone :) "C'è più di un modo per fare le cose" (TM) :)

Newsgroup: it.comp.lang.perl
Titolo: [didattico] my : perplessita` nell'uso

meno :))))
 :)
ciao
Stefano

 avrò bevuto meno :))))
  Sei stato  sin troppo  chiaro anche cosi`,  non ti  preoccupare... E
poi, se  ti lasciassi andare in  sperticate disquisizioni accademiche,
sarei *io*  a dover bere di  meno per riuscire a  capirti... quindi va
benissimo cosi`! :DDD
  Ti ringrazio.
-- 
Power down.

 buona per un counter :)
  Ahia!  Ora mi  complichi l'esistenza...  $cnt resta  all'interno del
primo ciclo foreach: ma allora, il 'my' reinizializza o no?
  Certo,  se  volessi usarlo  all'uscita  di  quel  ciclo, non  me  lo
troverei piu`,  questo mi pare  di averlo compreso... pero`  in questo
caso  viene  utilizzato  solo  per   stampare  il  suo  valore  sempre
"all'interno" di quel ciclo...
  Cmq, mi sa che  - almeno per ora - andro`  avanti alla vecchia, che'
fa sempre  bene. Mica devo scrivere  codice "elegante"... l'importante
e` che funzioni! :DDD
  Grazie anche a te.
-- 
Power down.

primo ciclo foreach: ma allora, il 'my' reinizializza o no?
E` possibile che abbia frainteso il significato della variabile $cnt
all'interno del tuo programma (resta il fatto che con le due diverse
dichiarazioni usate nelle due versioni del tuo programma, $cnt aveva
due diversi cicli di vita e due diversi set di valori). 
Mi spiego usando un altro esempio:
--------------------------------
my @v = qw/a b c d e f/;
foreach my $e ( @v ) {
	my $counter += 1;
	print "$counter: $e\n";
}
--------------------------------
Senza eseguirlo, cosa pensi che scriva?
Hint: ad ogni iterazione del ciclo, *si rientra* nel blocco.
ciao
Stefano

  Senza eseguirlo, cosa pensi che scriva?
  Spiacente, ma  l'ho "eseguito"... ;)  (un disegno val piu`  di mille
parole...)
  Ok,  allora e`  come  pensavo.  Scusa la  mia  terminologia, ma  per
"re-inizializzare" intendevo proprio questo.
  Saro` forse  "brutale", ma  da questo esempio  "si evince"  che ogni
utilizzo del 'my' - all'interno di  un "blocco", e lasciando perdere i
"casi  particolari" tipo  "foreach my  $e"  - azzera  la variabile  in
questione...
  Ok, terro` presente. Penso sia tutto chiaro.
  Grazie ancora.
-- 
Power down.

  Grazie ancora.
Grazie a te.
ciao
Stefano
Newsgroup: it.comp.lang.perl
Titolo: perlXS

Savle a tutti, sto studiando il perlXS e, seguendo il tutorial, ho usato 
'h2xs' per creare i files necessari alla XSUBroutine.. nel 
file.pm
 c'è 
una riga che non capisco bene a cosa serva.. qualcuno che usa XS mi dà 
una mano? la riga è
our @ISA=qw(Exporter DynaLoader)
(so 'cosa' sono Exporter e DynaLoader, ma non il resto...)
--
Ragno


allora...
@ISA è un array speciale per i moduli, indica la loro "ereditarietà".
our è una keyword che introduce una variabile globale (permette di
usarla senza dare fastidio a use strict, come use vars). 
qw() introduce una lista di parole, in questo caso equivale a:
("Exporter", "DynaLoader").
in soldoni, il tuo modulo dichiara di essere una "sottoclasse" di
Exporter e DynaLoader. in pratica, questo gli serve per importare il
modulo import() da Exporter e il metodo bootstrap() da DynaLoader.
il resto, se sai cosa sono Exporter e DynaLoader, va da sé :-)
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

 modulo import() da Exporter e il metodo bootstrap() da DynaLoader.
Aggiungo all'ottima spiegazione di Aldo una chiosa, che forse
puo` aiutare a chiarire ulteriormente. L'array @ISA indica una
proprieta` della classe che stai definendo. In particolare,
"ISA" e` da leggere "IS A", cioe` "E` UN". Quindi:
    La classe che sto                      Exporter
    definendo in questo     _E` UN_        e un
    package                                DynaLoader
Il fatto che ISA sia un array e non uno scalare significa che e`
possibile l'ereditarieta` multipla (a differenza di quel che
accade in Java, ad esempio).
ciao,
S.
-- 
http://larsen.perlmonk.org

 accade in Java, ad esempio).
Mille grazie a tutti e due!! 
--
Ragno
Newsgroup: it.comp.lang.perl
Titolo: Esempio di comunicazione tra 2 macchine

Ho bisogno di realizzare un'applicazioncina client/server tra 2 macchine
(una Sun ed un PC) utilizzando il Perl. E 2 macchine si dovrebbero
scambiare una serie di messaggi a fronte di un primo msg di richiesta da
parte del client.
Qualcuno ha un esempio minimo ma funzionante sia per il lato server che
per il lato client, e  possibilmente per il tcp NON PER UDP.
Ringrazio infinitamente perche' e' veramanete urgente.
Grazie e buon Perl !!!
Luigi
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Luigi
Tempo feci degli esperimenti al riguardo, i test sono ancora qui
http://www.pigmalion.info/perl/repository.cgi?dir=network
e qui
http://www.pigmalion.info/perl/repository.cgi?dir=
^my_scripts
non ebbe un esito totalmente felice per, non ricordo di preciso cosa,
ma rammento che riguardava il fatto che stessi sviluppando su win.
A ecco, ricordo, si trattava di fork. Alla fine riuscii a creare due
applicazioni che cominicavano, ma ricorsi ad espedienti e gli script
di cui sopra sono il risultato.
Il win č il win xp.
Se rieci a tirarne fuori qualcosa facce sapč...
--
www.pigmalion.info
www.pigmalion.info/perl/

Luigi Cattaneo wrote:
 > Ho bisogno di realizzare un'applicazioncina client/server tra 2 macchine
 > (una Sun ed un PC) utilizzando il Perl. E 2 macchine si dovrebbero
 > scambiare una serie di messaggi a fronte di un primo msg di richiesta da
 > parte del client.
Ti consiglio di dare un'occhiata alle pagine 497-501 del capito 14 di 
Beginning Perl che puoi trovare qui:
http://learn.perl.org/library/beginning_perl/
c'è una breve trattazione di come fare un server ed un client.
P.s.
Per favore non fare crossposting

Newsgroup: it.comp.lang.perl
Titolo: ottenere la data di un file

Salve a tutti, sono nuovo nell'usare script cgi.
In alcuni script ho visto la seguente riga:
$fsize = -s "$nomefile";
e ho capito che in questo modo ottengo in $fsize la dimensione del file
$filename.
la domanda e' questa: come posso ottenere la data del file ?
Grazie anticipatamente.
Antonino Romano
md4...@mclink.it

la domanda e' questa: come posso ottenere la data del file ?
usa la funzione "stat"
Ciao
Andrea Busia
No Spam, Grazie.

 la domanda e' questa: come posso ottenere la data del file ?
[root@fokhouse /root]# perldoc perlfunc | grep -A2 '^\W\+-M'
                   -M  Age of file in days when script started.
                   -A  Same for access time.
                   -C  Same for inode change time.
[root@fokhouse /root]#
Ciao ciao,
Andrea
-- 
"...Unix, MS-DOS, and Windows NT (also known as the Good, the Bad, and 
 the Ugly)."
(by Matt Welsh)

Newsgroup: it.comp.lang.perl
Titolo: $dbh->prepare(q{SELECT ...}); ???????????

che cosa significa quella "q" in :
$dbh->prepare(q{SELECT ...});   
Ovviamente sto parlando del modulo DBI.
Dove posso trovare maggiori informazioni riguardo a questo modulo?
Ho provato a CPAN ma non sembra essere molto esauriente (o io non sono
capace a sfruttarlo meglio!).
Grazie in anticipo, Mario.

 ha scritto nel messaggio
news:20011106.143817...@localhost.localdomain...
