mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: in che linguaggio è scritto perl ?

Domanda esistenziale: in che linguaggio è scritto l'interprete perl
(quello di /usr/bin/perl...)?
Seconda domanda [OT]: in che linguaggio è scritto gcc (Assembler?) ?
Grazie ;-)
J.

 Seconda domanda [OT]: in che linguaggio è scritto gcc (Assembler?) ?
gcc è un insieme di programmi... risposta breve: in C
Risposta lunga: il compilatore si divide in almeno tre pezzi:
- front-end, dipendente dal linguaggio da compilare (C, C++,
  Objective-C, Chill, Fortran, Java, forse altri), di solito scritto
  in C
- ottimizzatore e altri cosi che lavorano in una qualche
  rappresentazione intermedia, scritti in C
- back-end, che emette il codice macchina del risultato, dipendente
  dall'architettura e dal sistema operativo target, di solito scritto
  in C con un po' di costanti (non eseguite, ma che vengono emesse nel
  risultato) "scritte" nel linguaggio macchina del processore target.
Come si compila GCC? Con la versione precedente di GCC! Oppure con un
altro compilatore C per la stessa piattaforma, oppure con un
cross-compiler da un'altra piattaforma.
Il problema del boot-strap è lasciato come utile esercizio al lettore ;-)
-- 
  dakkar
  sono su PerlMonks.org, 
use.perl.org
, PAUSE/CPAN

 Il problema del boot-strap è lasciato come utile esercizio al lettore ;-)
Interessante! Da bravo mi faro` un "google bootstrap", anche se dalla
mia memoria affiorano ricordi del libro Goedel Escher Bach... tipo
programma che compila una parte di se stesso etc etc...
J.


 programma che compila una parte di se stesso etc etc...
Sì, quello.
Link a caso: 
http://www.rano.org/bcompiler.html
E, ovviamente: 
http://en.wikipedia.org/wiki/Compiler
e 
http://en.wikipedia.org/wiki/Bootstrapping


   sono su PerlMonks.org, 
use.perl.org
, PAUSE/CPAN
Grazie ancora per gli ottimi spunti di riflessione,
J.

Newsgroup: it.comp.lang.perl
Titolo: Sessioni .htaccess

Scusate il soggetto un po' ambiguo, e forse un po' off-topic, ma vorrei
sapere se una sessione http autenticata tramite le direttive in
.htaccess puň essere resettata da un script perl che genera la pagina
html richiesta senza aspettare che l'utente chiuda la sessione (per
esempio uccidendo il client http).
Sarň piů chiaro:
    - proteggo una pagina con .htaccess.
    - l'utente si autentica e inizia a usufruire dei servizi cgi (perl
in questo caso)
    - ad un certo punto, dopo la lettura di una pagina generata
dinamicamente vorrei che venisse chiesta ancora l'autenticazione dal
server
Grazie dell'aiuto!
stefano


We come to bury DOS, not to praise it.
(Paul Vojta, 
vo...@math.berkeley.edu
, paraphrasing a quote of Shakespeare)

Newsgroup: it.comp.lang.perl
Titolo: Domanda (forse) stupida

Esiste un modo per creare file .exe o eseguibili in generale che funzionino
indipendentemente dall'interprete perl?
Grazie
Enrico

 che funzionino indipendentemente dall'interprete perl?
  Si`:
	$ perldoc perlcc
oppure cerca PERL2EXE in rete.
	Alla prossima,
		Marco
Newsgroup: it.comp.lang.perl
Titolo: cosa significa questo? problemi a passare dati a banca sella

Salve a tutti,
sono alle prime armi con il perl e sto cercando di passare dei parametri a
Banca Sella per effettuare dei pagamenti tramite carta di credito.
Sapreste dirmi cosa significa questo?
$prezzo  = $grand_total;
$prezzo  =~ s/\.//g;
Il mio problema è che $grand_total è una cifra espressa in euro che utilizza
come delimitatore delle migliaia la virgola e come delimitatore dei decimali
il punto:
Banca Sella credo voglia un parametro espresso in lire.
Sapete darmi qualche dritta?
Grazie a tutti.

 
significa questo: prendi il grande totale cosi' come e' scritto,
buttalo nel prezzo, piglia poi in questo tutti i punti "." che trovi e
toglili... ciao.
wrote:


Newsgroup: it.comp.lang.perl
Titolo: Thread.pm

Sto facendo degli esperimenti con i thread, a dire il vero ci volevo 
provare, ma: 
$ perl 
p.pl
Can't locate Thread.pm in @INC (@INC contains: /usr/libdata/perl5/i386-
openbsd/5.6.1 ... ....
BEGIN failed--compilation aborted at 
p.pl
 line 5.
su CPAN dice che Thread e' fornito con Perl 5.6.1 (dovrebbe esserci 
dalla 5.0.5, se non sbaglio), e io ce l'ho la 5.6.1, ecco la prova:
$ perl -v
This is perl, v5.6.1 built for i386-openbsd
...
Mi devo ricompilare Perl?
(Anche su Red Hat GNU/Linux fa uguale)
--
Master:"Conan, what is best in life?" 
Conan:"To crush your enemies, see them driven before you,
and to hear the lamentations of their women!

 (Anche su Red Hat GNU/Linux fa uguale)
Sě. Sul Camel Book trovo scritto che devi ricompilare il sorgente per
abilitare Perl ai threads.
Le info dovresti trovarle nel file README.threads
-- 
$_=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

 Le info dovresti trovarle nel file README.threads
Ma perche' non e' abilitato di default? C'e' un motivo?


 Ma perche' non e' abilitato di default? C'e' un motivo?
Diciamo che i threads in Perl nel 5.6 sono un argomento un po' delicato.
Dato che possono portare ad un decremento delle prestazioni (ovvero
il perl con i thread è leggermente + lento del non thread) hanno
preferito che il Perl "di default" parta senza thread.
Inoltre un supporto davvero pieno ai thread dovrebbe arrivare con il
5.8

Newsgroup: it.comp.lang.perl
Titolo: Crypt

Salve ragazzi,
la mia esigenza è conservare dei dati cifrati su file. Cercando su
CPAN qualche modo per criptare avevo pensato di usare Crypt::RSA.
La mia esigenza è che l'utente dando id e password vengono generate le
sue chiavi pubbliche e private e riesce a criptare e decriptare il
file. Il punto è che se chiamo due volte (in due esecuzioni diverse, o
anche nella stessa esecuzione) la funzione keygen() di Crypt::RSA con
gli stessi parametri, le chiavi sono differenti.
Di conseguenza mi è inpossibile decodificare i messaggi registrati
precedentemente. Conoscete qualche modulo che possa aiutarmi o avete
qualche altra idea? Grazie.

 ha scritto nel messaggio 
news:1157969138.1...@e3g2000cwe.googlegroups.com...
Salve ragazzi,
la mia esigenza č conservare dei dati cifrati su file. Cercando su
CPAN qualche modo per criptare avevo pensato di usare Crypt::RSA.
La mia esigenza č che l'utente dando id e password vengono generate le
sue chiavi pubbliche e private e riesce a criptare e decriptare il
file. Il punto č che se chiamo due volte (in due esecuzioni diverse, o
anche nella stessa esecuzione) la funzione keygen() di Crypt::RSA con
gli stessi parametri, le chiavi sono differenti.
Di conseguenza mi č inpossibile decodificare i messaggi registrati


 Di conseguenza mi è inpossibile decodificare i messaggi registrati


 >news:1157976549.8...@d34g2000cwd.googlegroups.com...


 qualche altra idea? Grazie.
Se la crittografia a chiave pubblica (o asimmetrica che dir si voglia) è 
quello che realmente ti serve, Crypt::RSA va benissimo.
Ciao,
Emanuele.
-- 
What does VISTA mean?
Viruses, Infections, Spyware, Trojan horses & Adware.

 Se la crittografia a chiave pubblica (o asimmetrica che dir si voglia) č 


 > serializzarle/deserializzarle.
Mi spieghi un attimo sto passaggio? Non ho capito dove Crypt::RSA salva
le chiavi generate e dove le posso ritrovare... e se lo volessi fare
io? Cosa mi converrebbe fare? Usare qualche modulo Tie, se si quale?
Grazie ancora...

Daniele wrote:

Assumo che la domanda fosse rivolta a me ;-)
Il salvataggio delle chiavi decidi tu se e dove farlo.
Basta passare il parametro:
Filename => 'my_file'
al metodo generate() di Crypt::RSA::Key, e le chiavi pubblica e privata 
verranno salvate rispettivamente nei due file "my_file.public" e 
"my_file.private" subito dopo essere state generate.
Dai un'occhiata alla documentazione di Crypt::RSA::Key:
http://search.cpan.org/~vipul/Crypt-RSA-1.57/lib/Crypt/RSA/Key.pm
Poi per rileggerle puoi utilizzare il metodo read() di 
Crypt::RSA::Key::Public e Crypt::RSA::Key::Private (le quali classi 
offrono pure un metodo write(), per scrivere le chiavi su file in 
maniera differita rispetto alla creazione).
Altrimenti puoi salvarle/leggerle su/da una tabella di un db utilizzando 
gli ulteriori metodi serialize()/deserialize(), sempre di 
Crypt::RSA::Key::Public e Crypt::RSA::Key::Private.
E' tutto scritto nella documentazione.


Grazie 1000! Mitico...
Newsgroup: it.comp.lang.perl
Titolo: Apache e prg.perl

Salve a tutti.
Ho installato da poco il server Apache (su piattaforma Windows) e volevo
testarne il funzionamento.
Ho inserito nella dir cgi-bin un 
file.pl
 e nella dir www un file.html che
dovrebbe richiamare il file pl ma non accade nulla!!!
Dove sbaglio?
Grazie e ciao

 ha scritto nel messaggio
news:h2PO8.20813$Kt3.4...@twister2.libero.it...

Ciao é la prima volta che scrivo su questo newsgroup, anch'io ho un server
Apache, su Windows, dove faccio girare senza nessun problema sia perl che
PHP.
 Sei sicuro di aver configurato bene il file httpd di Apache?
Controlla che ci siaquesta scritta:
ScriptAlias /cgi-bin/ "C:/Perl/cgi-bin/"
<Directory "C:/Perl/cgi-bin">
           Options All
</Directory>
che non ci sia un  segno #  davanti a loro
e che ServerRoot e DocumentRoot indichino il percorso per risp. il server e
il tuo sito etc.etc. etc.
Forse sono cose che conosci già ?
Ti saluto e se vuoi ti mando una copia della mia configurazione di httpd
 Ciaoooo da Alessandro

Newsgroup: it.comp.lang.perl
Titolo: Perl e grafica

Uso Active Perl su w2000Server e RH8.2
Chi mi spiega come si crea un'applicazione a finestre in perl?
Mi interessa sia per win che per Linux.
Ciao e grazie mille.
Kjo

 Chi mi spiega come si crea un'applicazione a finestre in perl?
Una GUI dunque? E' una domanda che capita spesso :)
Ti consiglio di cercare sempre tra i vecchi post su:
http://groups.google.com/
La mia risposta standard è:
per le GUI multipiattaforma,
- Perl/Tk (
http://search.cpan.org/author/NI-S/Tk-800.024/
)
facile da programmare, ottimamente documentata (ha perfino un libro di 
riferimento: Mastering Perl/Tk della O'Reilly) ma ha il suo look Motif, 
praticamente lo stesso su ogni piattaforma.
(presente sulle distribuzioni ActiveState + recenti)
- wxPerl (
http://wxperl.sourceforge.net/
)
Orientato agli oggetti, utilizza il look del window manager dell'OS su 
cui è in funzione.
- Prima (
http://www.prima.eu.org/
)
con il suo ben preciso aspetto, è ok soprattutto per i grafici 2D 
(splendido ad es. la demo "matrix")
Poi ci sono quelle "dipendenti" dal sistema operativo (o meglio da 
librerie sviluppate solo in un ambiente):
- Win32::GUI (Win32)
- Gtk-Perl (*nix) 1 e 2, la 1 ferma da tempo e la 2 che forse riuscirà 
ad andare su Win32 se non lo ha già fatto
- PerlQt (*nix)
tutti rintracciabili su 
http://search.cpan.org/

Ciao,
Se ti serve di fare una cosa alla sveltati consiglio Perl/Tk. Io mi ci sono
trovato benissimo ...
Newsgroup: it.comp.lang.perl
Titolo: Problema per veri esperti.... (TSR)

Mi serve un esempio (script) di un programmino che rimanga
in attesa "senza consumare risore" e si attivi ogni tot. tempo o a una certa
ora.
Naturalmete a questo punto bisogna anche prevedere un modo per fermarlo.
Chiedo troppo?
Mi rendo conto che non sarà facile...
Grazie comunque per l'attenzione.
Bye
F.


non puoi usare un cronjob?
ciao,
Gilberto *Veleno* Ficara
___________________________
e-mail: 
g.fi...@fastnet.it
ICQ UIN: 11891959
http://veleno.cjb.net
___________________________
Webmaster di 
www.bestiario.com
 e 
www.hyleg.it
Designer di 
www.icq99.net
Ideatore e mantainer di 
www.3dinfinity.net
Membro dello staff di 
bbk.org
 (designer)
Collaboratore di Html Point, Netnews e 3dRevolution

Scusa, ma intendi un socket?

> non puoi usare un cronjob?
Forse...se sapessi di cosa si tratta e come si usa :-)
Utilizzo una decina  tra linguaggi di prog. e script di vario genere...
Non posso certo impararli tutti da un giorno all'altro...
Mi basta un esempio da modificare!
Grazie.
F.

 Scusa, ma intendi un socket?


cron e' un'utility presente su tutti (o quasi) i server unix
se hai accesso ad un server (o usi linux) prova a fare un
man cron
ed otterrai le istruzioni su come usarlo, altrimenti mandami
una mail e cerco di mandarti il manuale in plain text.


Naturalmete a questo punto bisogna anche prevedere un modo per fermarlo.
Il modo piu` semplice e` con un segnale.
-- 
ciao, |
Marco | * The Internet is full. Go away.  -- Joel Furr *
      | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

 ha scritto nel messaggio
news:0t397a396ci143dn3e9%m...@wonderland.linux.it...


Ti ho risposto in privato
Bye
F.

veramente io cercavo esempi pratici...
Ecco qui:
$ cat > 
demone.pl
#!/usr/bin/perl -w
use strict;
while (1) {
    fai_qualcosa();
}
^D
$ chmod 755 
demone.pl
$ ./
demone.pl
 &
Fine. Con l'ultimo comando il programma viene lanciato in background.
E per favore impara a citare solo le parti essenziali degli articoli a
cui rispondi.


 $ chmod 755 
demone.pl
# in pratica il programma alla fine si auto-rilancia in background
# ma perche' chmodarlo?
E per fermarlo?
P.s se funziona bene mi sarŕ utilissimo!
Grazie
F.
Newsgroup: it.comp.lang.perl
Titolo: Processi che comunicano in UDP

Salve,
     ho uno script perl che fa una richiesta ad un server in locale e 
redirige la risposta ad un altro server in rete, il che crea un flusso 
continuo di dati (streaming):
# Connect to Local Server ($sock1)
# Connect to Remote Server ($sock2)
while ( sysread( $sock1, my $buff, 1024 ) )
{
   syswrite $sock2, $buff;
}
# Close $sock1;
# Close $sock2;
tuttavia il server remoto causa connessione potrebbe chiudere il Socket 
$sock2, questo porterebbe ad un fallimento della syswrite e conseguente 
chiusura del Socket $sock1. Potremmo dire che il Socket $sock2 è 
bloccante. Ora vorrei fare in modo che quando $sock2 cade $sock1 rimanga 
attivo ed avevo pensato di dividere il programma in due parti: La prima 
parte prende i dati dal server locale e li manda in UDP al secondo 
programma che li riceve in tramite un socket UDP in ascolto su una data 
porta e li manda al server remoto, in questo modo se il server remoto 
avesse problemi farebbe cascare il socket UDP che automaticamente 
verrebbe rilanciato...di seguito c'è il riassunto
***File2.pl
# ($usock, $uport) Crea un socket UDP localhost in ascolto su una porta 
a caso.
# Salva su /tmp/File2.port il numero della porta ($uport)
# Connect to Remote Server ($sock2)
# Aspetta il flusso dati:
while ( recv($usock, my $buff, 1024, 0) )
{
   syswrite $sock2, $buff;
 
   #
   # si esce da questo ciclo solo se il server remoto chiude la 
connessione!
   #
}
# close $sock2;
# unlink /tmp/File2.port
exit;
***File2.pl
# Connect to Local Server ($sock1)
# Crea un Socket UDP for Sending ($usock);
while ( sysread( $sock1, my $buff, 1024 ) )
{
   if -e /tmp/File2.port
   {
      my $port = system(cat /tmp/File2.port);
 
      &_udp_send($usock,"127.0.0.1", $port, $buff);
   }
 
   #
   # Do nothing;
   #
}
# Close
sub _udp_send {
 
   my $USOCK    = $_[0];
   my $HOSTNAME = $_[1];
   my $PORTNO   = $_[2];
   my $MSG       = $_[3];
 
   my $ipaddr   = inet_aton($HOSTNAME);
   my $portaddr = sockaddr_in($PORTNO, $ipaddr);
   send($USOCK, $MSG, 0, $portaddr) == length($MSG) or return 1;
   return 0;
}
exit;
***
Naturalmente tutto questo è teorico in quanto ancora devo definire lo 
script, ma la mia domanda era la seguente: sarebbe meglio fare due 
script separati che si scambiano lo streaming in UDP oppure faccio un 
file unico che fa fork()? e in entrambi i casi come faccio a fare 
ripartire File2 se questo si chiude?
grazie

 attivo
forse mi sono perso qualcosa nella spiegazione che è seguita, ma una
cosa del tipo:
apri($sock1); # verso la sorgente
while (vive($sock1) && $devi_continuare) {
   apri($sock2); # verso la destinazione
   while (vive($sock1) && vive($sock2)) {
      fai_quello_che_devi_fare($sock1, $sock2);
   }
   close $sock2;
}
close $sock1;
Con un approccio del genere, i fallimenti su $sock2 non implicano più
la chiusura di $sock1.
Spero che quel che ho detto abbia un senso. Ciao,
   Flavio.
Newsgroup: it.comp.lang.perl
Titolo: posizione attuale all'interno di un file

Ciao
Devo fare il parsing di file troppo grandi
per essere mantenuti in memoria.
Ho bisogno di mostrare all'utente la percentuale
di informazione che e' stata analizzata.
Volendo leggere il file linea per linea, dovrei
sapere in anticipo il numero delle linee del
file ?
grazie in anticipo per idee e suggerimenti
 Raffaello

Una risposta lampo, non so se la più corretta:
  open FILE, "file.txt" || die $!;
  my $number_of_lines;
  $number_of_lines++ while <FILE>;
è velocissimo, quindi potresti farlo prima di ri-aprire il file per
processarlo
ciao
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

 processarlo
E' la prima cosa che mi e' venuta in mente, ma pensavo ad
una soluzione piu' "elegante" (come direbbero i matematici). ;)
 Raffaello

una soluzione piu' "elegante" (come direbbero i matematici). ;)
Se rinunci a dare la posizione in termini di righe, puoi usare stat per
calcolare la lunghezza del file in byte, quindi tell per la posizione
attuale, sempre in byte.
Se vuoi calcolare le righe (o, meglio, i record), non hai altro modo che
contarle: a meno che il file non abbia una struttura predefinita, nota a
priori, non c'è nulla che ti possa magicamente dire quanti
$INPUT_RECORD_SEPARATOR ci sono senza leggerlo tutto. Eventualmente, puoi
pensare di farlo con maggiore efficienza con eseguibili ad hoc, tipo wc.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: autorizzaioni per file









E' possibile che i script cgi che provo con apache 
in locale non funzionano perchè non imposto le autorizzazioni per i file che 
evidentemente non sono autorizzati per la loro esecuzione?


 


inoltre, anche sui file txt, dove immetto dati che 
andro' poi a leggere, vanno impostate le autorizzazioni?


 


Infine (e scusate se è poco), come fa uno script a 
riconoscere il proprietario, il gruppo e tutti gli 
utenti?



 inoltre, anche sui file txt, dove immetto dati che andro' poi a leggere, vanno impostate le autorizzazioni?
Si. Se non hai permesso in scrittura non puoi ovviamente scrivere.
P.s.: non postare in MIME/HTML.
-- 
Ognuno ha la faccia che ha, ma a volte si esagera! (A. De Curtis)

Newsgroup: it.comp.lang.perl
Titolo: Perl - Apache

Salve,
ho installato sul sistema winme l'interprete Perl e il server Apache. Vorrei
provare in localhost uno script cgi. Sappiamo benissimo che per fare questo
bisogna reimpostare i permessi del file cgi a 755 con il comando chmod. Come
posso attivarlo e utilizzarlo in queste condizioni? ossia su piattaforma
win?
Ringrazion anticipatamente!

su win non si devono settare i permessi, basta scrivere la prima linea dello script perchč
punti all' eseguibile perl, e se la cartella \perl\bin č nella PATH di sistema basta
#!perl
-- 
Posted from 
mail5.galactica.it
 [212.41.208.22] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:fhUL6.8970$iC1.3...@news6.giganews.com...

Magari ti può essere d'aiuto:
http://www.ebcorp.org/doc/cgi_win9x.shtml
Ciaus, EB
PS: Scusa per il ritardo ma leggo poco il NG :)
Newsgroup: it.comp.lang.perl
Titolo: Creare Classifica

Avendo delle variabili del tipo
$user1 $pu1 ... $user2 $pu2 ... $user2 $pu2 ... ecc.
e cioè:
Mario 25
Gianni 37
Anna 150
Dario 89
devo creare in perl una classifica....
sicuramente si userà Sort .... ma come ?
grazie x l'attenzione.
Guya_

 sicuramente si userà Sort .... ma come ?
Dov'e' che il tuo codice non funziona e non ti fa l'ordinamento?
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

sicuramente si userà Sort .... ma come ?
foreach $nome (keys sort {$nomi{$b}<=>$nomi{$a}} %nomi) {
             print "$nome $nomi{$nome}\n";
}
Chiedo venia per i nomi delle variabili un po' maliziosi :)
-- 
Saluti,
Giancarlo

Newsgroup: it.comp.lang.perl
Titolo: URGENTE: cgiparse

Salve, sono uno studente impegnato in un lavoro part-time per il centro
di
calcolo della mia università che dispone di un server unix, questa volta
però mi hanno dato un compito al di fuori delle mie capacità:
Devo installare un semplice programmino scritto per la shell che fa però
uso
di un programma nella cgi, il cgiparse con il seguente comando:
export "QUERY_STRING"
eval '/cgibin/cgiparse -form2>/dev/null'
Purtroppo non possiedo (dopo vane ricerche su interno), un cgiparse in
grado
di accettare questo parametro e restituire alla shell i vari campi della
query come variabili in questo modo:
$FORM_nomeparam1
$FORM_nameparam2
etc....
già contenenti i rispettivi valori all'uscita del comando eval.
Non avendo pratica di sistemi Linux e tantomeno di Perl, mi sarebbe
davvero
utile sapere come mandare alla shell queste informazioni, possibilmente
anche in C, così almeno, nel peggiore dei casi, mi scrivo un programmino
di
parsing per conto mio.
Vi ringrazio anticipatamente ( non fatemi passare inutili ore davanti al
computer ).
Alessio
E-mail: runamok@#######
tin.it

 computer ).
La vedo male. Se non hai pratica di sistemi Unix, come conti di fare
qualcosa di decente in shell (la cosa piu' Unix che ci sia)?
Comunque. La via maestra sarebbe di leggersi il Llama 
(Learning perl, O'Reilly) il topo (CGI Programming for the WWW, O'Reilly)
e scrivere un prog. di dieci righe che comincia con:
#!/usr/local/bin/perl
use CGI;
...
In questo caso non passeresti 'inutili' ore davanti a un computer:
passeresti 'proficue' ore davanti a dei libri e 'produttive' mezze ore davanti
a un computer ;).
E' anche possibile fare quello che vuoi in C, ma ti sconsiglio di fartelo in
casa. Sulla rete si trovano diverse librerie che fanno cio' che vuoi 
(mi sembra che una si chiami uncgi).
Questo poi non risolvera' i tuoi problemi con U*X...
Cheers,
	Alessandro
---
Alessandro Forghieri		Site administrator Nouvelle srl
Email: 
a...@orion.it
		Voice: 	+39 59 345767
Via Giardini 460		Fax:	+39 59 343822

Newsgroup: it.comp.lang.perl
Titolo: Inviare allegati

E' possibile inviare da un form ad una casella di posta un allegato (es.
file .gif)?
Quale istruzione devo inserire nello script?

 ha scritto nel messaggio
news:8rt6jn$g2l$1...@nread2.inwind.it...

Newsgroup: it.comp.lang.perl
Titolo: Interprete PL

Ho necessità di sapere come installare un interprete pl su un server NT che
ho in gestione!
Grazie
Tonnopl@ast

www.activestate.com
"Tonnopl@ast" <padre...@NOSPAMinfinito.it> ha scritto nel messaggio
news:FMxb6.31833$lV5.4...@twister1.tin.it...


 ha scritto nel messaggio
news:94mh40$c...@news.edisons.net...


Newsgroup: it.comp.lang.perl
Titolo: vedere e scaricare file .xls

Ho creato un file .xls con il modulo "Spreadsheet" e ora vorrei sapere 
due cose: 
come faccio a far fare il download del file? 
come faccio a far vedere il contenuto del file con il plug-in di excel 
dentro al browser? 
Grazie mille!

dentro al browser? 
Che cosa c'entra con Perl?
Il download si farà (o si "farà fare") come il download di qualunque file
(qualsiasi cosa si intenda per download), e il contenuto si "farà vedere"
come si "fa vedere" qualunque contenuto. In ogni caso, per quanto mi
riguarda, ti autorizzo ufficialmente a fare con quel file tutto quello che
faresti con qualunque altro file. Dove sarebbe la differenza nell'averlo
creato con Perl piuttosto che direttamente in Excel?
Ciao.

 Ciao.
ho provato questo: 
code:
------------------------------------------------------------------------
# segue l'header http necessario per impedire l'apertura 
# del file 
$size = (-s "file.xls");
print "Content-type: octet/stream\n"; 
print "Content-length: $size\n"; 
print "Content-disposition: attachment; filename=file.xls\n\n"; 
------------------------------------------------------------------------
ma il file che trovo sulla scrivania ha il nome dello script .cgi stesso 
... 
mi puoi suggerire altri Content-type? (sia per il download che per la 
scrittura a video? o forse è lo stesso? nel senso che se gli do un 
content-type binario, quello che stampa a video viene scaricato 
direttamente?) 
ad se: Content-type: binary/stream? oppure Content-type: ms-excel??? 
insomma quelli che ti vengono in mente!

 print "Content-disposition: attachment; filename=file.xls\n\n"; 
prova con:
print q[Content-disposition: attachment; filename="file.xls"\n\n];
Inoltre c'è anche una vecchia risposta su questo stesso gruppo:
http://tinyurl.com/5jfjq

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

Ciao a tutti,
Esiste un modulo per realizzare uno sniffer in perl?
Grazie.
Abanero.

 
 
http://search.cpan.org/author/TIMPOTTER/NetPacket-0.03/

 ha scritto nel messaggio
news:Pine.LNX.4.21.0301141618530.8722-100000@blomma...

Newsgroup: it.comp.lang.perl
Titolo: UserAgent Timeout

Salve,
a parte ceh non mi sembra funzioni bene il settaggio del timeout di
useragent e non so perche'.. coem faccio a dire ad uno script
se useragent va in timeout fai questo.. invece che interrompere lo script..
o comunque visualizzarmi a video il messaggio che non mi interessa??
Andrea
--------------------------------
Inviato via 
http://usenet.libero.it

 
Non sei stato molto preciso nella descrizione, ma
immagino ti riferisca alla proprietą timeout dell'oggetto 
LWP::UserAgent.
Semplicemente fai un check col metodo 'is_success'
---CUT HERE---
use LWP::UserAgent ();
# Create a request
my $req = new HTTP::Request GET => '
http://someurl.com
';
my $ua = new LWP::UserAgent;
$ua->timeout(120);
my $res = $ua->request($req);
 
# Check the response
if ( $res->is_success ) {
   # OK
   ...
}
else {
   #KO
   ...
} 
---CUT HERE---
	- Enrico

Grazie della risposta.
Il fatto e' che io setto un valore di useragente molto basso tipo 10.. a
paretc eh controllando con la funzione time la procedura dura piu' di 10
secondi a volte.. comuqnue mi viene fuori l'errore
PerlScript Error error '80004005'
read timeout
Mentre io vorrei al limite poter scrivere
"Il sito non ha risposto nel tempo previsto"
Come posso fare?
Dici che quello che mi hai scritto e' sufficiente?


 Dici che quello che mi hai scritto e' sufficiente?
Sě, e non ho capito se l'errore lo hai ancora anche dopo aver messo
le linee che ho scritto.
Cmq per poterti dare una diagnosi piů precisa faresti bene a postare 
OS, versione Perl e LWP::UserAgent, oltre a qualche linea di codice 
direttamente dallo script che usi...
	- Enrico

 "Il sito non ha risposto nel tempo previsto"
La gestione delle eccezioni in perl e' eval-block:
eval {
    stmt;
    another_stmt;
    };                     # <= non dimenticare il ';'
if($@) {
    if($@ =~ /read timeout/) {
      print STDERR, "Egregio signore, lo script e' andato in timeout\n";
      #
    } else {
      warn("Errore sconsciuto:",$@);
    }
}
# nessun errore
Cheers,
alf
Newsgroup: it.comp.lang.perl
Titolo: IPC - Pipe

Salve!
Conosco gia` il C ed il C++ (non-ve-ne-po`-frega`'-de-meno).
Ho un problema con le pipe: la "man page" specifica dice di impostare $| 
oppure $OUTPUT_AUTOFLUSH ad un valore != 0 per evitare la bufferizzazione 
dell'IO; cio` per far si` che l'output del figlio sia immediatamente 
visualizzato.
Come vedete, ho impostato la seconda variabile nel figlio, ma non e` 
servito a nulla: l'output del figlio viene stampato solamente quando esso 
termina ed i buffer devono essere svuotati.
######################################
pipe FIGLIO, PADRE;
if($pid=fork()){
    close FIGLIO;
    print ": ";
    while(($in=<>) !~ /^q/i){
        print PADRE $in;
        print ": ";
    }
    print PADRE $in;
    close PADRE;
    waitpid($pid, 0);
}
else{
    $OUTPUT_AUTOFLUSH=1;#Non funziona
    close PADRE;
    while(($in=<FIGLIO>) !~ /^q/i){
        print $in;
    }
    close FIGLIO;
}
#################EOF##################
Nel caso in cui la soluzione sia banale mi autopuniro` con una mazza da 
muratore. :-D
Grazie
-- 
Per l'e-mail rimuovere la frase in maiuscolo e gli underscore.
Worship Him! 666

     $OUTPUT_AUTOFLUSH=1;
tale variabile funziona solo se usi anche il modulo English:
use English;
Senza, dovrebbe bastare un
$|++;
o
$|=1; #ma anche $|=1000; ... basta che sia !=0

 $|=1; #ma anche $|=1000; ... basta che sia !=0
Ho fatto anche questo: nada.


On Mon, 21 Apr 2003 22:26:25 +0200, Zero wrote:
A parte la nota su 'use English;' gia` fatta da altri, noto due errori:
il primo e` che l'autoflush va dato al padre, e` lui che scrive, non il
figlio. L'altro e` che prima di dare l'autoflush devi selezionare il
file handler su cui operare.
Il programma corretto e` quindi:
pipe FIGLIO, PADRE;
if($pid=fork()){
    close FIGLIO;
    print ": ";
    my $out; select PADRE; $|=1; select $out;
    while(($in=<>) !~ /^q/i){
        print PADRE $in;
        print ": ";
    }
    print PADRE $in;
    close PADRE;
    waitpid($pid, 0);
}
else{
    close PADRE;
    while(($in=<FIGLIO>) !~ /^q/i){
        print $in;
    }
    close FIGLIO;
}
-- 
Rev. Nando Santagata
To send me an e-mail change "seemysignature" into "ipers"

     }
Grazie, ora funziona.
Però avrei un dubbio: perché col C dovevo togliere la bufferizzazione 
all'output su `stdout' del figlio ed invece in Perl devo fare lo stesso ma 
con l'output su pipe del padre?


 ma con l'output su pipe del padre?
Se in C funziona in quel modo, allora funziona per un altro motivo :-)
probabilmente per le dimensioni dei buffer di I/O, ma sicuramente non
perche` hai messo un fflush sullo stdout!
Il processo figlio legge dalla pipe in cui il padre scrive e stampa
sullo standard output: se metti l'autoflush (in Perl) o aggiungi una
fflush() (in C) fai in modo che lo stdout non sia bufferizzato, ma qui
il problema e` un altro.
Il problema qui e` la bufferizzazione della pipe e per questo devi far
flushare il processo in scrittura sulla pipe, cioe` il padre.

Newsgroup: it.comp.lang.perl
Titolo: Output perl in html

Come posso inserire l'output di un script in perl all'interno di una pagina
html?
Ho inserito questo script in java nel codice html:
<script language="JavaScript"
src="
http://mioserver/cgi-bin/mioscript.cgi
"></script>
però non funziona.
Dove sbaglio?
ciao
maxo


è il tuo script perl che deve generare l'html ;)
ciao Stefano


Devi usare le SSI (Server Side Include).
Degli articoli li trovi qui:
http://emmeffenet.tripod.com/htmlplanet/ssi/
http://www.latoserver.it/SSI/
e molti altri, cercando con 
http://www.google.it
-- 
$_=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

 
Infatti, non è possibile inserire client-side output HTML di script
a meno ad es. di ricorrere ad iframe (mentre invece è possibile generare 
dinamicamente contenuti quali immagini ad es:
<IMG SRC="
http://tuoserver/cgi-bin/genera_gif.cgi
">)
Lato server puoi includere l'output HTML di uno script Perl
tramite i SSI (Server Side Includes) con la direttiva 'include'.
Ad esempio:
-------------
<HTML>
<HEAD>...</HEAD>
<BODY>
...
<!--#include virtual="/path/to/cgi-bin/script.cgi?param1=value1&...&paramN=valueN" -->
</BODY>
</HTML
-------------
Tieni presente che non puoi specificare URL assolute ma solo path relativi 
alla server root. (Tra l'altro l'abilitazione ai SSI va verificata poiché
dipende dalla configurazione del web server).
In alternativa puoi orientarti verso soluzioni che consentono di mischiare
codice Perl e HTML (PHP like) come HTML::Mason, HTML::Embperl, Apache::ASP
	- Enrico
Newsgroup: it.comp.lang.perl
Titolo: Comparazione di due hash

Salve
sapee se esiste qualcsa di di bello epronto che mi consenta di compare
due hash e mi faccia ottenere un hash con i dati diversi tra i due ?
una cosa tipo
my % pippo = compare %a,%b
e mi restituisce tutto ciň che sta in in %a ma non in %b
mentre invece se faccio
my % pippo = compare %b,%a
e mi restituisce tutto ciň che sta in in %b ma non in %a
Grazie
Saluti

 e mi restituisce tutto ciò che sta in in %b ma non in %a
Beh, allora più che /comparazione/ la chiamerei /differenza/ (o 
/complemento/).
Detto questo, ti sei dimenticato di precisare svariate cose.
Cosa intendi per comparare 2 hash?!
Vuoi confrontare soltanto le loro chiavi? Oppure sia le chiavi che i 
valori, o ancora soltanto i valori?
Nei primi 2 casi può essere banale, nel terzo caso potrebbe essere più 
complicato, se ammetti la possibilità che i tuoi hash abbiano valori 
duplicati (anche questo ti sei dimenticato di precisarlo).
Infine, se la tua comparazione coinvolge anche i valori, di che tipo 
sono questi ultimi? Sono soltanto numeri o stringhe o possono essere 
anche reference ad altre (sotto)strutture di dati, di cui fare una 
comparazione di tipo /deep/?
E in quest'ultimo caso, ammetti anche sottostrutture circolari?
Essere un po' più chiari e rigorosi nelle domande non costa niente, 
mentre invece risparmierebbe un sacco di tempo a chi è disposto a 
rispondere.
Ciao,
Emanuele.


vedi alcune soluzioni per la comparazione di *CHIAVI* in questo thread:
http://www.perlmonks.org/?node_id=244565
Questa e' la mia soluzione:
my %first  = ( aa => 1, bb => 2, cc => 3, ee => 6);
my %second = ( bb=> 2, cc => 3, dd => 4 );
sub compare_one_hash_keys {
     my ($h1, $h2) = @_;
     return grep ( {not exists $h2->{$_} } keys %$h1)
}
print  compare_one_hash_keys( \%first, \%second), "\n";
print  compare_one_hash_keys( \%second, \%first), "\n";
__END__
prints:
aaee
dd
Se invece devi comparare i valori, allora il problema e' simile alla
comparazione di due array, e pertanto vedi questi altri:
http://www.perlmonks.org/?node_id=156564
http://www.perlmonks.org/?node_id=167786
ciao
gmax
-- 
  _  _ _  _
(_|| | |(_|><
  _|
http://gmax.oltrelinux.com
Newsgroup: it.comp.lang.perl
Titolo: problemino con system()

Salve!
Dunque in un mio script dovrei fare un "ls -1" di una certa directory per
poi buttare dentro ad un array il risultato di questa operazione.
Ora: con la funzione system('ls -1') non mi ritorna proprio nulla; ho
provato col seguente codice:
my $aArgs=('ls','-1','/var/log/');
my @aOutput=system($aArgs);
print $aOutput[0];
print $aOutput[1];
grazie mille!!!

 provato col seguente codice:
Da perldoc -f system:
   « The return value is the exit status of the program as
     returned by the "wait" call [...] This is not what you
     want to use to capture the output from a command, for
     that you should use merely backticks or "qx//", as
     described in "`STRING`" in perlop. »
Non userei un comando esterno per sapere quali sono i file
in una directory, pero`. opendir(), readdir() e le funzioni
correlato svolgono egregiamente (e in maniera portabile)
questo compito.
ciao
Stefano

KaiO^ wrote:

my @aOutput=glob('/var/log/*');
perldoc -f glob
-- 
Saluti,
Giancarlo

Newsgroup: it.comp.lang.perl
Titolo: Settare chmod sotto dos. Come?

Potete dirmi la procedura per settare i permessi sotto dos?
So che č possibile. In che modo?
Potete dirmi la procedura?
Grazie

 So che è possibile. In che modo?


Newsgroup: it.comp.lang.perl
Titolo: Sybase e DBI - beata ignoranza

Salve a tutti
ho IIS 5.0 su un server W2000 e ho installato activePerl 5.6
con PPM ho installato i moduli: DBI, DBD-Sybase, sybperl, Sybase-Login per
connettermi a Sybase 5.0
l'interprete funziona corrattamente
perche' invece non riesco a connettermi al db con questo script? (via ODBC
con access fila tutto ok!)
#!/usr/bin/perl
#require '
cgi-lib.pl
';
#use strict;
use DBI;
#use DBD-Sybase;
$dbh = DBI->connect("dbi:Sybase:server=ardis;database=ardis", '......',
'.......') || die;
l'output del browser è il seguente:
install_driver(Sybase) failed: Can't load
'F:/Perl/site/lib/auto/DBD/Sybase/Sybase.dll' for module DBD::Sybase:
load_file:Impossibile trovare il modulo specificato at
F:/Perl/lib/DynaLoader.pm line 200.
 at (eval 1) line 3
Compilation failed in require at (eval 1) line 3.
Perhaps a required shared library or dll isn't installed where expected
 at D:\WEB\pbc\
hello.pl
 line 9
giuro che Sybase.dll è al suo posto!!
dove sbaglio, a me sembra che sia un problema di installazione di moduli
grazie in anticipo

 wrote in message
9ahrt0$59a6q$1...@ID-83743.news.dfncis.de...

Newsgroup: it.comp.lang.perl
Titolo: Upload file

Devo fare uno script che dato il path di un file sul mio PC melo trasferisca
sul Server. Come posso fare?
In PHP lo faccio con 2 istruzioni, ma mi tornerebbe piů comodo farlo col
perl. Potete aiutarmi?
Ciao
                            Nicola

questa parte di codice fà l'upload di file ma non rinomina il file sul
server con lo stesso nome del file sul tuo PC. Sul server prende il nome che
indichi sul percorso.
Puoi cmq andare sulle recensioni di 
www.cgipoint.it
 per trovare
suggerimenti.
Ciao
#!/usr/bin/perl
use CGI param,qw/:standard/;
$var=param("file");
$query= new CGI;
$filename = $query->param("file");
open (FILE,">/prcorso/sul/server/file.gif");
while (read $filename,$buffer,1024)
{
 print FILE $buffer;
}
close (FILE);
-- 
Posted from 
relay2.inwind.it
 [212.141.53.73] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
qgYF6.2307$Hp1....@news2.tin.it...


Newsgroup: it.comp.lang.perl
Titolo: ma come mai?

  ciao a tutti.
sto cercando di capire come mai sono obbligato a mettere un \n per vedere il
programmino funzionante, con un ritardo tra la visualizzazione di un
carattere ed il successivo.
qualcuno sa dirmi dove sbaglio?
#!/usr/bin/perl
$avanza=0;
while ($carattere=substr($ARGV[0],$avanza,1))
{
        print "$carattere\n";
        $avanza++;
        select(undef,undef,undef,rand());
}

 carattere ed il successivo.
Ok, questa domanda mi sembra gia' piu' decente di quella di prima!
Risposta:
perche' per default PERL flusha lo STDOUT per linee.
Prova a settare la variabile $| all'inizio del pgm:
[code]
  #!/usr/bin/perl
  $|=1; # Questo disattiva la bufferizzazione dell'output
  foreach (split '',shift @ARGV) {
    print;
    select(undef,undef,undef,rand());
  }
  print "\n";
[/code]
ciao, marco
--
Marco Cacchiani                                
e-mail:ma...@sirius.pisa.it
Public pgp key:         
http://www.sirius.pisa.it/marco/pgp_public_key.asc
Sirius Servizi Informatici                     e-mail: 
in...@sirius.pisa.it
Parco Teatro Pasolini, 1                       Phone:  +39 (50) 865120
I-56019 - Vecchiano                            Fax:    +39 (50) 860260
(Pisa - ITALIA)                                
http://www.sirius.pisa.it/

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

salve,
      volevo sapere come redirigere su un file speciale fifo il 
contenuto di un socket:
come dovrei modificar questo codice?
open STDOUT, ">&", $sock or die "Couldn't redirect STDOUT: $!\n";
open STDIN,  "<&", $sock or die "Couldn't redirect STDIN: $!\n";
grazie

 grazie
Puoi spiegare meglio il problema? quell' uso di open esegue la dup
di FileHandlers Perl e forse non fa cio' che ti aspetti.
Cosa intendi per "contenuto di un socket"? Se e' la "ricezione da un
socket" puoi solo riceverla con le normali funzioni di lettura.
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: visualizzare immagini nella shell

Ho cercato parecchio su internet ma non sono riuscito a trovare un
modulo che mi permetta di visualizzare delle immagini jpeg all'interno
della shell di windows xp. Ho provato image-magick ma il comando
display mi dà un errore relativo al server x.... Ci sarebbe la
soluzione tk ma non voglio avere una finestra esterna alla shell per
una serie di motivi.
Grazie per ogni suggerimento.

Ho una brutta notizia: la shell è un'interfaccia a caratteri e non è
in grado di visualizzare immagini. Anche "display", se ci fosse un
server X a cui agganciarsi, aprirebbe una nuova finestra.
Magari sapendo qualcosa di più su cosa vuoi realizzare veramente
possiamo darti una mano.
Ciao,
   Flavio.
Newsgroup: it.comp.lang.perl
Titolo: Come estrarre le directory da un drive

Salve,
premetto che utilizzo W2000 e che sono un principiante.
Vorrei ottenere la lista delle directory (e sottodirectory) di un drive.
Utilizzando Find:
push @files, $File::Find::name if /\.txt$/
ottengo la lista di tutti i file .txt contenuti nelle directory.
E' possibile passare una stringa che mi "registri" solo le directory?
L'alternativa è fargli cercare tutti i file e poi "filtrare" le sole
directory utilizzando "chomp -d"
oppure esistono soluzioni più eleganti?
Grazie Massimiliano
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:1cab08851cd26b014e9...@mygate.mailgate.org...


Non c'č problema, lo faccio in VB.
Giuro che avevo intenzione di rispondere, ma ho trovato la documentazione di
File::Find un po' troppo oscura per essere risolta in una pausa di lavoro
standard.
Ad ogni buon conto, File::Find::Rule fa facilmente quello che chiedi:
 
  use File::Find::Rule;
  # find all the subdirectories of a given directory
  my @subdirs = File::Find::Rule->directory->in( $directory );
ma presumo che si otterebbe piů o meno lo stesso con:
  push @files, $File::Find::name if (-d $File::Find::name);
dando per buono il tuo esempio e quello che ho capito di File::Find (anche
il sabato mattina non č il massimo per cimentarsi con la documentazione dei
moduli di perl).
Puoi dare un'occhiata anche a File::Slurp::Tree (se vuoi registrare
un'immagine dell'albero delle directory) e File::Path (se oltre che leggerle
vuoi anche crearle o distruggerle).
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: Installare nuovi moduli

Il mio host per gli scripts perl è "netfirms" a cui purtroppo mancano 
dei moduli per me importanti come il gigante LWP e vari altri 
moduli...naturalmente non avendo i privilegi da amministratore (e non 
essendo accesibile via telnet) volevo sapere come installare i moduli 
che a me interessano...
Mi basterebbe scaricarli e metterli nella mia cartella cgi-bin senza 
fare il makefile?
( ...poi li richiamerei tramite *use lib '.';* )
Grazie a tutti!

 fare il makefile?
direi che devi replicare la struttura del modulo in una directory (ad es 
Modules/CPAN) poi fai una cosa del tipo:
BEGIN{
     use vars qw(@dirs);
     @dirs = qw(Modules
                Modules/CPAN .);
}
use lib @dirs;
Io farei così:
1) mi informerei su che Perl è installato sul server
2) installerei tale versione del Perl su un mio server locale e una 
copia dei moduli
3) trasferirei i moduli e loro eventuali directory sul server remoto
4) inserirei il codice visto sopra

 wrote:

puoi spiegarti meglio? credi che li possa compilare nel mio 
host-casalingo e poi rispedirli in rete già compilati?
boh...
Newsgroup: it.comp.lang.perl
Titolo: chmod?

Come si scrive il comando "chmod 666" per Unix sotto Windows?
Grazie?

Come si scrive il comando "chmod 666" per Unix sotto Windows?
Nonmi pare che Windoze abbia i modi. NT gestisce i permessi, ma non
sono comunque implementati secondo lo schema Unix.
	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!

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

sono comunque implementati secondo lo schema Unix.
Già, ed è il minimo (ma proprio quello :) avere i permessi per un SO
progettato per gestire reti. 
Cmq chmod funziona anche sul port per Win32 di Perl però serve solo
per settare il r/w, gli altri campi sono ignorati, invece per gestire
gli altri attributi dei *dos si usa Win32::File::Get/SetAttributes()
(compreso in ActivePerl 5.*).
Paolo, speriamo di esserti stati utili, anche se la tua domanda mi
puzzava un poco di trollata.
-- 
       ¥ 
      |†|
     /    \         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: usi di perl

ciao a tutti,voglio imparare un linguaggio e sono rimansto colpito dal
perl.l'unica cosa e' che quasi tutti i documenti sul perl parlano di
cgi.io
 vorrei sapere se puo' essere utilizzato anche per normali
script con altri scopi,specialmente per internet.
grazie e ciao
dave

 wrote in message
e0fde4ee.01110...@posting.google.com...

Assolutamente.
www.perl.com
 per avere un po' di puntatori a situazioni in cui e` stato
usato Perl. 
www.perlmonks.org
 per vedere ulteriori esempi di uso del
Perl per gli scopi piu` disparati: dalla musica all'amministrazione di
sistema.
ciao
Stefano
Newsgroup: it.comp.lang.perl
Titolo: [sock] Fork-VariabiliGlobali,Timeout.

Salve a tutti.
Ci sono alcune domande riguardo a perl alle quali non ho ancora dato
risposta.
HO visto che in questo NG c'č abbastanza gente e avrei alcune cosettine da
risolvere.
Lavoro da poco su socket e ci sono cose che non riesco a
risolvere....sarebbe una piccola lista:
1) Su piů processi fork non riesco a condividere le variabili. Ossia se ci
sono due processi fork e in uno modifico la variabile $utenti, questa
variabile cambia solo in quel processo e non in tutti. Pensavo di usare i
puntatori su delle allocazioni precise...ma non ho ancora risolto nulla.
2) Dovrei creare un server che resti in ascolto ma possa anche inviare
pacchetti contemporaneamente. Ossia se lo faccio normalmente un server o
resta in ascolto di un pacchetto o invia...non posso fare le due cose
insieme. (devo creare due processi fork (invio, ricezione) per ogni
connessione?)
3) Se il client non invia qualche cosa entro un tempo prestabilito lo voglio
disconnettere...perň ovviamente non mi riesce. Quando il tempo č scaduto
devo modificare delle variabili che avvertono della sua non presenza.
Vi ringrazio in anticipo.
Grazie.

 devo modificare delle variabili che avvertono della sua non presenza.
Ci sono molti modi.
Quello che mi viene in mente prima e' settare un timer con alarm (ugh), o
se ce l'hai con setitimer (??)  e un adeguato signal handler - alarm ha
molte interazioni di sistema.
Ovviamente con il server in versione polling non ce n'e' bisogno.
E un'ultima cosa, non so cosa stai usando per accedere alle socket, ma ti
consiglierei di usare IO::Socket (piuttosto che il semplice Socket).
Cheers,
alf

Grazie tante per avermi risposto. Mi stò facendo una bella lettura del nuovo
perl 580.
THX ciao.

Newsgroup: it.comp.lang.perl
Titolo: Eliminare i tag html

Ciao,
sapete se esiste una funzione per eliminare i tag html
da un testo ? 
Grazie
Osvaldo

 da un testo ? 
E` il primo degli esempi che si trova nella documentazione di 
HTML::TokeParser::Simple. Su 
search.cpan.org
 trovi sia la
documentazione che il pacchetto per installare il modulo.
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org/blog
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it

 
grazie,
Ciao
Osvaldo

Se non vuoi installare un modulo solo per togliere l'HTML puoi usare
questa:
$html=~s/<(?:[^>'"]*|(['"]).*?\1)*>//gs;
Ciao,
--
Colossus
Xarchiver, a GTK2 only archive manager -
http://xarchiver.sourceforge.net
Cpsed, a Linux OpenGL 3D scene editor - 
http://cpsed.sourceforge.net
Mizio, a QT proxy hunter scanner tool - 
http://mizio.sourceforge.net