mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: metodo post e apache

salve,
sto lavorando ad un cgi che mi permette di postare sul newsgroup dei
messaggi che contengono un file in attachment.
all'inizio del cgi ho messo un test che impedisce di scaricare i dati
della form
se il size della form e' maggiore di un certo numero di byte.
il problema nasce qualora il size sia troppo grande perche' anche 
se il programma non si blocca il browser non riesce a caricare la  pagina
di errore (che in altri punti del cgi viene visualizzata benissimo) e
attende all'infinito.
questo non succede se io assegno almeno uno(qualsiasi) dei dati ricevuti
dalla form prima del test, cioe' prima della stampa della pagina html.
qualcuno sa spiegarmi perche'?
 
	Valeria 
     _______________________________________________
 
cava...@cli.di.unipi.it

 	
Non senza vedere il programma. Troppi fattori in gioco.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 
 
	Valeria 
     _______________________________________________
 
cava...@cli.di.unipi.it
 
val...@ideare.com
 
http://utenti.tripod.it/valeriac/index.html
 
     ________________________________________________

 
Maurizio intendeva dire che sui gruppi non binari non e' "gradito" il
posting di messaggi che contengano attachment di dati binari comunque
codificati.
per cui se il tuo CGI nasce per trasmettere dati binari sui gruppi a
loro dedicati ( vedi gerarcghia it.binari.* ) sia il benvenuto,
altrimenti .....
scusa ma su Usenet abbiamo da sempre paura degli spammers

 funziona.
Di nuovo, potrebbe essere un problema del tuo programma che non so come sia
fatto. 
Un mio CGI perl di upload con il limite di dimensione di upload, 
funziona correttamente, ovvero con file piccoli da i risultati attesi e con
file grossi esegue senza bloccarsi. Se poi metto i controlli adeguati sul
successo dell'upload, ottengo correttamente il messaggio di errore 413
(request too large). Per la cronaca e' fatto girare su Apache 1.3.12.
Maurizio


 Mailgate.ORG is maintained online by Dario Centofanti
--
Posted from 
anna.ideare.com
 [151.4.146.5]
via Mailgate.ORG Server - 
http://www.mailgate.org

 stesso.............
Di nuovo: finche' ci racconti che il tuo programma non funziona, possiamo
solo dirti "Interessante... e allora?". Senza codice non c'e' modo di
aiutarti ulteriormente. 
Io uso il modulo CGI.pm e il mio programma di upload di 8 righe funziona in 
maniera apparentemente corretta. Cosa vuoi che ti dica?
Se riesci a ridurre il tuo programma al minor numero di righe che ti
permetta di mostrare ancora i tuoi problemi e lo posti qui, sono sicuro che
qualcuno potra' aiutarti.


Newsgroup: it.comp.lang.perl
Titolo: .doc 2 .ps

Esiste una ruoutine in Perl che mi faccia la conversione, per l'appunto, da
msdoc a .ps ?
Grazie

msdoc a .ps ?
Non credo, ti conviene affidarti ad un programma esterno.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!
Newsgroup: it.comp.lang.perl
Titolo: sort

Ciao, ho fatto un piccolo script che effettua il sort delle righe di un
file:
#! /usr/bin/perl
sub numerically {$a <=> $b;}
@array = <>;
@array = sort numerically (@array);
print (@array);
Tralasciando la qualita` del codice, secondo voi come mai il risultato
dell'ordinamento di questo file:
1.3.5.6
1.1.2.4
111.222.444.555
1.2.5.6
11.22.44.55
1.2.3.4
11.23.66.77
11.22.33.44
111.222.333.444
11.22.44.55
111.223.333.444
11.22.33.44
1.2.3.4
11.22.22.22
11.22.55.66
1.2.4.5
111.222.555.666
1.1.2.3
1.3.4.5
Il risultato sia questo:
1.1.2.4
1.1.2.3
1.2.5.6
1.2.3.4
1.2.3.4
1.2.4.5
1.3.5.6
1.3.4.5
11.22.44.55
11.22.33.44
11.22.44.55
11.22.33.44
11.22.22.22
11.22.55.66
11.23.66.77
111.222.444.555
111.222.333.444
111.222.555.666
111.223.333.444
Da quello che ho capito l'ordinamento viene fatto solo per i primi due
campi delimitati dal ".", poi diventa "posizionale" (tipo fifo), non
dovrebbe comparare tutti i caratteri di una riga?
Grazie, Pietro.
-- 
I will build myself a copper tower
With four ways out and no way in
But mine the glory, mine the power
(So I chose AmigaOS and GNU/Linux)


Il tuo ordinamento non e' corretto, perche' quelli che stai ordinando non sono numeri, ma
sequenze di caratteri composte da numeri e punti.
Per rendertene conto, aggiungi, in testa al tuo script, l'istruzione
use warnings;
Ed esegui. Vedi quanti messaggi ricevi?
Io farei cosi':
my @array2 = map {$_->[1]}
          sort { $a->[0] cmp $b->[0] }
           map { [ sprintf( "%03d%03d%03d%03d", split( /\./, $_) ), $_] } @array;
Questo sistema usa la cosiddetta Schwarzian Transform, la cui spiegazione puoi trovare
in questi articoli:
dettaglio:
http://en.wikipedia.org/wiki/Schwartzian_Transform
Tutorial sull'ordinamento:
http://www.perlmonks.org/index.pl?node_id=128722
Vedi inoltre, altre tecniche di ordinamento di IP:
http://www.perlmonks.org/index.pl?node_id=25833
ciao
gmax
-- 
   ____ ____  _____ _   _
  / _  |    \(____ ( \ / )
( (_| | | | / ___ |) X (
  \___ |_|_|_\_____(_/ \_)
(_____|
MySQL Certified Professional
Sapere, saper fare, fare, far sapere
http://gmax.oltrelinux.com

Aggiungo anche questo (articolo dell'autore di quel metodo di ordinamento):
http://www.stonehenge.com/merlyn/UnixReview/col06.html
Ciao


 gmax
Ciao, Pietro.



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


Interessante.
(fan di Star Wars?)
  Raffaello

 (fan di Star Wars?)
Con moderazione, negli ultimi anni.


 Con moderazione, negli ultimi anni.
Parliamo del _vero_ Star Wars quindi. ;)
  Raffaello
Newsgroup: it.comp.lang.perl
Titolo: codice misterioso

ciao gente, spero d'aver postato sul newsgroup giusto....
in un xml che sto cercando di riadattare mi sono imbattuto in questo codice
che dovrebbe essere perl...
c'e' qualcuno che riesce a spiegarmi che vogliono dire i valori dei vari
"$items"?
- <iw_perl>
- <![CDATA[
  my $items = iwpt_dcr_value('section.Items');
  $items    =~ s|^\s*||g;
  $items    =~ s|\s*$||g;
  $items    =~ s|</?p>||ig;
  $items    =~ s|/htdocs||g;
  $items    =~ s/< \s*A \s+ HREF \s* = \s* (["']) (.*?) \1\s* >/<a href="$2"
target="_blank">/gsix;
    iwpt_output($items);
  ]]>
  </iw_perl>
grazie in anticipo e buone feste a tutti
vitor

 vitor
Spero che queste parole siano utile.  Buone feste.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
ciao e buon anno,
nids

Mi scusi, Vitor, per i miei errori stupidi  (Nids ha ragione).  Grazie, Nids.




 wrote in message
news:d80e70a6a3c02e9098b...@mygate.mailgate.org...


grazie nids, non c'ho capito molto ma comunque sempre piu' di prima
saluti
vitor

Newsgroup: it.comp.lang.perl
Titolo: telnet client in perl:come?

vorrei scrivere una applicazione in perel
per simulare un telnet (client):
come aprire un socket (es. popmail porta 110)
come scrivere e leggere dal socket?
GGrazie in anticipo, Mario.

http://search.cpan.org/search?query=telnet&mode=module
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

 come scrivere e leggere dal socket?
Tutti i moduli sotto il namespace Net::* fanno al caso tuo:
Net:Telnet, le libnet (Net::POP3, Net::SMTP ecc) sono tutte
implementazioni client/server.
Se invece il fine della tua aplicazione è quello di imparare
ad usare i socket allora c'è un universo di docs in rete.
Per l'implementazione dei protocolli, che chiaramente devi conoscere 
prima :-), ci sono le varie funzioni Perl built-in (a basso livello) 
oppure classi che forniscono un'interfaccia OO (IO::Socket, ecc...)
	- Enrico

Newsgroup: it.comp.lang.perl
Titolo: aprire file come array

Ciao,
vorrei conoscere un modo sintetico per aprire un file assegnando le sue
righe ad un array come elementi. Senza cioč scrivere tutto un ciclo per
iterare il file.
poi dovrei utilizzare quegli elementi per fare un confronto con una
variabile. E' possibile anche qui utilizzare una sintassi sintetica, invece
che iterare l'array?
Grazie per le risposte eventuali.
Claves do Amaral
claves.d...@netbusiness.it

che iterare l'array?
Mah, qui dipende cosa devi fare, magari funzioni come map() e grep()
possono fare al caso tu. In ogni caso non e` che il costrutto
foreach non sia sintetico. ;)
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 che iterare l'array?
Non credo. Vai di foreach.
Bye,
 Emmanuele.
-- 
Emmanuele Bassi         |             [ 
http://digilander.iol.it/ebassi/
 ]
emmanue...@iol.it
  |
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

 close (FILE_HANDLE);
ok, grazie  a voi.
Claves do Amaral
claves.d...@netbusiness.it
Newsgroup: it.comp.lang.perl
Titolo: Chiarimento sul perl

Vorrei un consiglio, devo cominciare a costruire dei CGI da installare
in un server UNIX, ( non posso lavorare direttamente sul server)
Se mi scarico un ambiente di sviluppo Perl per Win 95 i programmi che
creo avranno problemi a girare sul server Unix?
Dove posso trovare un editor Perl (compilatore, debugger, ecc)?
Per rispondermi direttamente togliere dall'indirizzo NOSPAM
Saluti a tutti UGO

Mit S.r.l. ha scritto:

Vai a 
http://www.ikaro.com/support/offline
 per ciň che riguarda lo
sviluppo di script Perl in locale su win95.
Entra col seguente acconto:
USERNAME: ospite
PASSWORD: ikaro
Il compilatore (con debugger integrato) lo trovi a
http://www.ikaro.com/programmi
Ciao,
Daniele
--
----------------------------------
   * IKARO net communications *
 
http://www.ikaro.com
Virtual Hosting & Tech. resources
----------------------------------
Newsgroup: it.comp.lang.perl
Titolo: il fake server non funziona con Outlook Express...

Ciao a tutti!
Grazie alle vostre news e a qualche spunto trovato in giro per internet ho
semi-creato un fake server per sendmail.  Ho provato a mandare istruzioni
collegandomi con telnet e l'ho testato anche con il programma di posta di
Opera (dovrei provare con il mailer di Netscape) : funziona. Con Outlook
Exspress invece tutto si blocca ad "HELO" e non capisco perchč.  Ho provato
cosě a usare netcat come server  immettendo i banner manualmente e Outlook
sembra darmi le stesse risposte che mi dŕ Opera.
Qualcuno sa per caso quale sia il motivo ed eventualmente le dovute
correzioni?
Ecco la sorgente del programma:  (scusate se ho un po' scopiazzato in giro..
ma č solo da ieri che sto "studiando" il perl e ho ancora molto da capire  e
imparare).
Grazie anticipatamente.
use IO::Socket::INET;
use strict;
my $sock = IO::Socket::INET->new(Listen    => 5,
                               LocalAddr => 'localhost',
                               LocalPort => 25,
                               Proto     => 'tcp'
) or die "No socket: $!\n";
while (my $connection=$sock->accept()) {
print $connection "220 
mba.myserver.it
 ESMTP server ready\.\n\r";
while (<$connection>) {
 print $_;
          (/^HELO *(.*)/i) && do {
           print  $connection "250 OK\n\r";
 };
         (/^MAIL *(.*)/i) && do {
           print  $connection "250 OK\n\r";
 };
        (/^RCPT *(.*)/i) && do {
           print  $connection "250 OK\n\r";
 };
         (/^DATA/i) && do {
           print   $connection "354 Ok Send data ending with
<CRLF>\.<CRLF>\n\r";
 };
        (/^\./i) && do {
           print   $connection "250 Message received\n\r";
 };
 (/^QUIT/i) && do {
  print $connection "221 BYE";
  close ($connection);
  last;
 };
}
}

 print $connection "220 
mba.myserver.it
 ESMTP server ready\.\n\r";
Potrebbe sembrare un'idiozia ma vale la pena di tentare (con Outlook a 
pensar male non si sbaglia mai e poi, in questo caso, non avrebbe 
nemmeno tutti i torti). L'RFC 821 definisce la sequenza di "fine linea" 
come CRLF ("\015\012") mentre nel tuo codice essa e` implementata come 
"\n\r" ("\012\015"), vale a dire al contrario. Certo che una cosi` 
pignola interpretazione dello standard da parte di un prodotto Microsoft 
non me l'aspetterei, tuttavia... ;)
-- 
Baci,
Mony

Non ci posso credere!
Il problema era proprio quello!
Grazie
infinitamente!
Baci a te.
Stè
--------------------------------
Inviato via 
http://usenet.iol.it
Newsgroup: it.comp.lang.perl
Titolo: ActivePerl, cos'è?

Ho scaricato Perl 5.0 ma è un casino istallarlo e penso di avere fatto una
stupidaggine. Vorrei provare gli script che trovo in internet e modificarli
a modo mio, mi è sufficiente un programma come ActviePerl?
Grazie
Riccardo


ActivePerl E' Perl per Win32. C'e' tutto quanto e non e' per niente un
problema installarlo (a meno di non definire problematica l'installazione di 
applicazioni Windows)
C'e' tutto quello che ti serve per programmare in Perl (a parte un editor
umano) e nell documentazione c'e' anche spiegato come risolvere tutti gli
eventuali problemi di configurazione con Web server vari (PWS, IIS e
famiglia).
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: Come posso utilizzare dati esterni in pagine HTML?

Chiedo anticipatamente scusa per la mia ignoranza! ;-)
Non ci capisco niente di programmazione e sono un utente novellino che si appresta a realizzare il suo WebSite e vorrei sapere
alcune informazioni: come si fa a scrivere e leggere da file online (che siano database o file di testo)?
Posso inserire dati nelle pagine html? Sicuramente SI, solo che sono alle prime armi (anzi, anche meno) e se ci fosse qualcuno
disponibilie a spiegarmi (come se lo spiegasse ad un bambino ...ovviamente) come si possono integrare e visualizzare dati esterni in
una pagina html o addirittura (ma non ci spero) volesse collaborare con me per la realizzazione di questo sito ...lo ringrazierei
enormemente!
Ciao a tutti da Y.B. Ghost
-------------------------------------------
http://www.ybghost.com/
w...@ybghost.com


-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

Newsgroup: it.comp.lang.perl
Titolo: SMS to GSM

Ciao elena per mandare i messaggi gratis al gsm tramite SMS
vai su
http://www.cliccando.com/
fai passare la paigna eprova
ciao
--
          Daniele Riccardo Noris
---------------------------------------------------------------------
-   Fotografo & Digital Imaging in Bergamo   -
---------------------------------------------------------------------
- Private mail:       
daniel...@cyberg.it
    -
- Business mail:    
dan...@noris.it
               -
---------------------------------------------------------------------
- Personal web:    to be activated                -
---------------------------------------------------------------------
- Business web:    
www.noris.it
                    -
---------------------------------------------------------------------

 wrote in message
864akj$5d8$1...@fe1.cs.interbusiness.it...

Newsgroup: it.comp.lang.perl
Titolo: Stringa di identificazione di un servizio

Ciao,
ho la necessità di estrarre la stringa di identificazione del servizio
tcp/ip che gira su una determinata porta, mi spiego:
supponiamo che su un server vi sia sendmail  in ascolto sulla porta 25:
telnettandomi sulla porta ho il seguente output:
220 localhost.localdomain ESMTP Sendmail 8.11.6/8.11.6; Tue, 23 Oct 2001
15:57:05 +0200
Premesso che sono all'inizio col Perl, utilizzo il seguente comando
system("telnet","127.0.0.1","25")
e ottengo l'output di cui sopra che poi redirigo in un file di  testo, ma
a questo punto il telnet mi resta "bloccato" come faccio a sconnettermi?
Come posso inviare dei comandi una volta connesso?
In alternativa esiste una funzione in perl che mi permetta di fare quel
che mi serve? Grazie per l'aiuto...ciao!

 tcp/ip che gira su una determinata porta, mi spiego:  supponiamo che su
Niente, come non detto, ho trovato il modulo, posto lo script nel caso
possa essere utile a qualcuno:
#!/usr/bin/perl -w
use Net::SMTP;
$smtp = Net::SMTP->new('127.0.0.1');
$smtp_banner=$smtp->banner();
print($smtp_banner);
$smtp->quit;
Newsgroup: it.comp.lang.perl
Titolo: Forking e gestione del SIGCHLD

Ciao a tutti,
tempo fa ho sviluppato un applicativo server (diciamo una specie di 
proxy postale). Il proxy gira ormai da diversi mesi, senza problemi di 
sorta; ultimamente pero' m'e' venuta l'idea di implementare il limite 
massimo di connessioni contemporanee, feature a mio avviso quasi 
indispensabile. Bene, mi son detto, anzichč ignorare il sigchld lo 
gestisco e lo uso per tenere aggiornato un hash dove ogni chiave sara' 
il pid del mio child. Bene. Stavo facendo qualche prova con questo codice:
$SIG{CHLD} = \&REAPER;
sub REAPER {
         my $pid;
         while (($pid = waitpid(-1,WNOHANG)) > 0) {
             print "Child con pid $pid uscito con stato $?";
         }
         $SIG{CHLD} = \&REAPER;  #opzionale?
}
Solo che non funziona. O meglio, il codice viene eseguito correttamente 
quando un child se ne esce (e infatti ho a video l'output), solo che mi 
esce anche il padre! Perchč?
Ci ho gia' perso 2 ore, ho provato a modificare il sighandler in tutte 
le salse ma non c'e' stato niente da fare.
Idee? Suggerimenti?
Saluti,
Simone.

 Simone.
Anche io uso quel codice, direi che lo abbiamo copiato dalla stessa fonte.
Immagino che tu abbia messo
use POSIX ":sys_wait_h";
altrimenti non ci racconteresti che funziona.
Sono certo, per aver battuto il grugno con un bug software simile,
che il problema e' in un altro punto del programma.
Io nel mio caso avevo un
while (my $remoteaddr=accept(REMOTE,SOCK))
{
....
}
che funzia se SIGCHILD = IGNORE; ma esce dal while quando arriva il segnale
gestito da un handler.
E' previsto che read(), write(), accept(), select().. quando bloccanti
SI SBLOCCHINO ALLA RICEZ. di un segnal!!
accept nel mio caso ritornava un valore falso perche' non era arrivata una
nuova connessione, ma un segnale.
la soluzione e' stata nel mio caso
while (1)
{
  my $remoteaddr=accept(REMOTE,SOCK);
  ....
}
prova a vedere se il segnal ti arriva in una syscall IO bloccante di cui
non
testi il codice di errore.
ciao
Roberto.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 testi il codice di errore.
Mi hai salvato da giorni di bestemmie, grazie.
Saluti,
Simone.

Newsgroup: it.comp.lang.perl
Titolo: Come fare una autenticazione utente





Salve, vorrei sapere quale metodo usate per fare 
una buona autenticazione utente.


Voglio limitare l'uso di una serie di programmi 
perl accessibili via web e vorrei farlo facendo gestire al perl utenti e 
accessi, la cosa più semplice è chiedere login e password e se sono corretti 
mandare un cookie al browser che poi controllo ogni volta che cerca di aprire un 
programma ma che livello di sicurezza ottengo? Il cookie può essere ricostruito 
sul lato client. Qualche cosniglio?


 


Luca Vertua
te...@8volante.com



perchè non usare direttamente un sistema di autenticazione del server web (tipo basic auth su apache) ?
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.perl
Titolo: Vettore bidimensionale

Io ho bisogno di calcolare la frequenza di un evento per ogni mese per
diversi anni.
Quindi l'ideale è avere un vettore bidimensionale, in cui il primo indice è
l'anno e il secondo è il mese e man mano che ho il mese e l'anno aumento di
uno il vettore con gli indici corrispondenti.
A far una cosa del genere in PERL trovo molta difficoltà (sono alle
priomissime armi)
Qualcuno mi sa aiutare.
Grazie

un vettore bidimensionale è un vettore contenente come elementi non degli scalari, ma dei
riferimenti ad ulteriori vettori.
L'utilizzo, come spesso in perl, non è fisso.
Una delle varianti ti permette di scrivere:
$matrice[2][4]='contenuto della quinta riga nella terza colonna';
oppure
$matrice[2]->[4]='contenuto della quinta riga nella terza colonna';
che utilizza (e se necessario inizializza) un vettore di nome
@matrice
dove 
$matrice[2] = (undef, undef, undef, undef, 'contenuto della quinta riga....'];
se per i mesi preferisci le parole ('genn', 'febb',...)
allora puoi fare qualcosa del tipo 
$mesi[2002]->{'genn'}='ha 31 giorni';
in tal caso è un array con riferimenti a degli hash
oppure puoi fare hash con riferimenti ad array
o hash con riferimenti ad hash che ha riferimenti ad array che....
ciao e buona fine settimana,
antonio
Wallace schrieb:


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

Salve,
Utilizzo perl!
Dove posso reperire una copia del "sendmail" per NT?
E' l'unico modo per spedire un email con perl? ...altrimenti, avete
suggerimenti?
Grazie.


usa Net::SMTP
E non crosspostare.
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

Io uso Postie , è gratis, occupa 300 kb ed è a riga di comando
Non mi ricordo dove l'ho scaricato, ma te ne ho inviato una
copia in privato.

rettifico, se avessi il tuo indirizzo email
te ne avrei mandato una copia in attachment...

suggerimenti?
C'č la libreria CPAN Net che ha in se i moduli per fare tutto quello
che vuoi con SMTP POP3 e NewsGroup (oltre ad altre cosette).
Io l'ho provato e funziona bene, praticamente non hai bisogno di altri
eseguibili esterni. La mail viene spedita senza problemi.
Ciao
	Pirla
Per rispondere in E-mail the (punto) pirla (chiocciola) 
flashnet.it
*** un bacio ai pupi ***
---> Linux user since yesterday <---


winfiles.com
)
Simpatica, ma un po' riduttiva definizione per sendmail...... per darti un'idea
il libro "sendmail" della O'Reilly conta circa 1000 (mille) pagine. Un manuale
un po' eccessivo per un "programma eseguibile che manda i messaggi via SMTP",
non credi?
-- 
Saluti,
Giancarlo
Newsgroup: it.comp.lang.perl
Titolo: Come capire quali moduli sono installati?

Quale commando devo dare per sapere quali moduli perl sono correntemente
installati sul sistema?
Grazie.
--

Se non ricordo male
ppm query
Ciao


 wrote in message
news:3AB74E2E...@venaria.marelli.it...


Scusa, ho ipotizzato che tu avessi ActiveState e perl su una macchina con SO
Windows.
Non so se vale la stessa cosa con unix o linux, ma i comandi dovrebbero essere
gli stessi.


 correntemente installati sul sistema?
 use ExtUtils::Installed;
 my $inst = ExtUtils::Installed->new();
 print join "\n", $inst->modules();
Per maggiori informazioni:
  perldoc ExtUtils::Installed
 
http://www.perldoc.com/perl5.6/lib/ExtUtils/Installed.html
Max

Newsgroup: it.comp.lang.perl
Titolo: chi risolve questa e' bravo (File::Find prende papere)

Mi sono installato Perl su una workstation Unix su cui
mi trovo a lavorare:
Oracle 8 (891)$ perl -v 
This is perl, version 5.004_04 built for sun4-solaris
[...]
Oracle 8 (892)$ uname -a
SunOS syncro1 5.5.1 Generic_103640-08 sun4u sparc SUNW,Ultra-1
non riuscendo a debuggare uno script che mi scandaglia
le sottodirectory, ho ridotto il tutto a questo
test.pl
 dai risultati bizzarri:
#!/usr/local/bin/perl
use File::Find;
find(\&wanted, '/usr1/luca/');
print "Game Over\n";
exit; 
 
sub wanted {
    print "$dir\n";
    print "$name\n";
    print "$_\n";
} 
questo programma dovrebbe stampare 3 linee per ogni file incontrato:
la directory corrente, il path assoluto del file ed il nome del file
stesso.
Cio' che succede, invece, e' che solo la variabile $_ e' settata
normalmente, le altre sono vuote (vedi output dello script piu'
sotto). C'e' qualcuno che un'idea di cosa stia succedendo (anche mezza,
al limite)
grazie
ciao
luca
Oracle 8 (923)$  bin/
test.pl
.
.profile
.sh_history
.dt
startlog
sessionlogs
syncro1_DISPLAY=:0
 [resto dell'output omesso]

 al limite)
Quello che succede e' che le variabili $dir e $name sono nel package Main,
mentre quelle che setta la funzione find si trovano nel package File::Find.
Quindi una funzione
 sub wanted {
     print "$File::Find::dir\n";
     print "$File::Find::name\n";
     print "$_\n";
     } 
stampa tutto correttamente.
Questo fatto e' relativamente evidenziato nella pagina di manuale di
File::Find. Inoltre perl -w si lamenta saggiamente delle variabili $dir e
$name usate una sola volta e dell'uso di variabili non inizializzate.
Maurizio
-- 
Maurizio M. Munafo' |                            
E-mail:mmmu...@tuttocitta.it
--------------------+---------------------------------------------------------
             (o_    |                              - Gentile or Jew,
   (o_  (o_  //\    | O you who turn the wheel and look to windward,
   (/)_ (/)_ V_/_   | Consider Phlebas, who was once handsome and tall as you.
Newsgroup: it.comp.lang.perl
Titolo: opzione -i

Hola,
perché se scrivo da linea di comando una riga come
perl -p -i -e 's/\bre\b/*Monarca*/g' file.txt
funziona, e invece se scrivo
perl -pie 's/\bre\b/*Monarca*/g' file.txt
oppure
perl -p -e -i 's/\bre\b/*Monarca*/g' file.txt
ottengo l'errore:
Can't open perl script "s/\bre\b/*Monarca*/g": No such file or directory
?
In parole semplici, perché -i non può seguire -e o non può essere
composto con p ed e "à la unix"?
Nel caso in cui funziona è un'istruzione utilissima, unita a una regex
per cambiare stringhe in uno  o più files.
Grazie, ciao
salvo
-- 
CAPaCE: Comitato per l'Abolizione della Parola "Chiocciola" nelle Email
@ si legge "at"; non nominiamo invano le *vere*, simpatiche, chiocciole
[§alvomi©]

 composto con p ed e "à la unix"?
Perché -i permette di specificare un parametro. Vedi man perlrun.
Max

 Perché -i permette di specificare un parametro. Vedi man perlrun.
ah, grazie, č vero.
Infatti ho provato:
perl -pi -e 's/\bre\b/*Monarca*/g' file.txt
e funziona.
Quindi, anche se -i non ha il parametro, si deve separare dalle opzioni
seguenti. gikusto?
ciao :)
Salvo

Nel secondo caso stai specificando uno script vuoto a linea di comando
(poiché il parametro di "-e" non esiste) e stai dicendo di usare il
file 's/\bre\b/*Monarca*/g' come script di ingresso. Ergo: il "-e" lo
devi mettere sempre prima del codice che devi eseguire :)

 wrote:

già :)
a volte non rifletto su cose molto semplici...
grazie, ciao


Newsgroup: it.comp.lang.perl
Titolo: Ricevere dati attraverso l'url

Salve a tutti,
vorrei sapere come fare per ricevere dati attraverso un URL e utilizzarli
dentro uno script.
Ho un file 
test.pl
   da questo script vorrei leggere un dato inviato tramite
un URL, per esempio chiamando 
www.xxx.com/test.pl?datodaleggere
.
BYE BYE

dentro uno script.
Per leggere i parametri puoi utilizzare il modulo CGI presente nella
distribuzione standard del Perl. Per maggiori informazioni:
perldoc CGI
	A presto, Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 cerchero` un'altra donna dentro ai sogni di Tarzan...
Newsgroup: it.comp.lang.perl
Titolo: ASP ?

C'è qualcuno che sa che linguaggio è? Ed eventualmente dove trovare su
Internet della documentazione relativa?
_______________________________________________________
     |
|
     |                   - MAT -
|
     |
|
     |        E-Mail: 
matc...@tin.it
|
     |
|
     |           ICQ#: 15381462
|
     |
|
     |  Visit my site: 
http://www.geocities.com/Area51/Cavern/9956/
|
     |
|
     |
|
     | "Due cose sono infinite: l'universo e la stupidita' umana, ma
riguardo |
     | l'universo ho ancora dei dubbi." (Einstein)
|
     |_______________________________________________________|
Grazie

Se, come credo, ti rifersci ai file con estensione .asp sono dati di un
databse, non programmi.
Prova quindi a chiedere informazioni su it.comp.database.
Ciao
Andrea
-----------------------------------------
Redattore di Ludus (
http://www.ludus.it
)
Recensioni, Trucchi, Soluzioni,
Patch e News per PC e PSX
-----------------------------------------

 _______________________________________________________
-
  Mauro Sanna
(
mrs...@tin.it
)
--
Automatic posted from 
mail.tin.it
 [194.243.154.49]
via Mailgate Server - 
http://www.mailgate.org

 Internet della documentazione relativa?
guarad sul sito Microsoft!
se ti interessa, su DEv di luglio c'e' un articolo introduttivo
sull'argomento!
-- 
_____________________________________________________
Luca Di Taranto                
dita...@zappami.tin.it
to email me, please, remove "zappami." from my address

Newsgroup: it.comp.lang.perl
Titolo: info us perl

vorrei sapere dove č utilizzato questo linguaggio e a cosa serve?????''

 vorrei sapere dove è utilizzato questo linguaggio e a cosa serve?????''
E' utilizzato ovunque e serve a tutto, come ogni buon linguaggio di
programmazione.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

vorrei sapere dove č utilizzato questo linguaggio e a cosa serve?????'
http://www.perl.com
 ;-)
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/

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

ciao
qualcuno sa come si usa la "Perl formats "
e nagari farmi un esempio....
grazie
--[ Tex ]--

e nagari farmi un esempio....
Io qualcosa so, ma per una documentazione generica e degli esempi non č
meglio che ti guardi perform, che č chiaro, semplice, preciso ed ufficiale?
Se invece hai un problema specifico, fai una domanda specifica.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Ritorno a capo - Espressione regolare

Sto usando il perl sotto windows.
Con uno script devo ripulire dei file di tipo htm e quindi sto machtando con 
le espressioni regolari tutti i vari casi.
Mi è sorto però un problema insormontabile: ho dei pezzi di testi contenente 
il ritorno a capo che però non voglio avere e lo vorrei sostituire con uno 
spazio.
Il \n non mi funziona. Il \s e \S non funzionano.
Come devo fare?
Sembra che quel carattere (che sull'editor è una specie di quadratino) non 
riesco ad matcharlo.
Grazie 

Wallace ha scritto:

ciao, ho avuto un problema simile al tuo e l'ho risolto indicando il 
ritorno a capo con
[\x0D\x0A]+
i due codici indicano il new line in ASCII e UTF
se non riesci cerca in questo sito:
http://perlmonks.com/
inserisci su search qualche parola chiave riguardante il tuo problema in 
inglese e ti saltano fuori un sacco di soluzioni
adios
Tuco

Wallace wrote:

Credo sia per il fatto che sotto windows il ritorno a capo e' formato da 
Cr+Lf = chr(13)+ chr(10) 
mentre sotto sistemi unix si interpreta il solo Lf.
Quindi penso per la tua reg.expr. basta utilizzare "\r\n" al posto di "\n"!
ciao!
-- 
bunker
+++++++++++[>++++++>+++++++++++++++++++++++++++++++++>++++
++++++<<<-]>.>++++++++++.>.<----------.>---------.<+++++++.

Newsgroup: it.comp.lang.perl
Titolo: ?Perl->Access x leggere e mod.

Salve a tutti
devo fare delle pagine html in modo che sia possibile leggere e
modificare
da web un database di Access 97, il tutto su un server NT 4 con IIS.
Pensavo di usare il perl e sembra che il modulo piu' adatto sia
win32::ODBC
(
www.roth.net/odbc
) ma mi sembra che consenta solo di leggere ma  non
modificare
il database.
Qualcuno conosce la soluzione?
Grazie per l'attenzione.
Masimo Seren - Euganea Telematica

 il database.
Non conosco win32:ODBC. Ma mi sembra bizzarro che permetta solo la
lettura (Odbc consente sia read sia write, in genere).
Da una rapida occhiata, mi pare che, come minimo, dovresti potere usare:
$dbh->Sql("update foo blah blah where blah blah");
Esistono anche i cosiddetti moduli DBI (che in genere vanno su U*X,
ma non si sa mai: vedi 
http://www.hermetica.com/technologia/DBI/
)
(E un sommesso consiglio: meglio usare qualcosa di un po' piu' robusto
di access...)
HTH & cheers,
	Alessandro

Newsgroup: it.comp.lang.perl
Titolo: IMPARARE IL PERL

Ragazzi vi sarei grato se mi diceste se per eseguire un programma in
perl c'è bisogno di qualcosa come i compilatori per il linguaggio C o
C++; in altri termini esiste un software tipo C++ Builder della
Borland anche per il perl e se si dove trovarlo?
Grazie e arrivederci
Giuseppe

 perl c'č bisogno di qualcosa come i compilatori per il linguaggio C o

Newsgroup: it.comp.lang.perl
Titolo: Presentazione e primo quesito.

Buonagiornata a tutti,
Andiamo per punti...
Sono uno studente universitario appassionato di programmazione, avrei
la neccessità di fare questo "script"....
Allora, tengo a precisare che non so niente di perl, ma mi sto
documentando... Domani mi compro un libro Apogeo della O'really e mi
do da fare...
Per ora m'interessa sapere se e' possibile con il perl leggere dei
file txt e scriverne il contenuto in una pagina HTML dinamicamente...
Probabilmente ho fatto una domanda che a molti potrà sembra di ovvia
risposta.... e me ne scuso.
Grazie a tutti per l'interessamento.
Spero di inserirmi bene in questa comunità.
Ciao
Stefano

Spero di inserirmi bene in questa comunità.
Non vedo perche' cosi` non dovrebbe essere. ;)
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

On Mon, 27 Nov 2000 22:25:58 GMT, 
m...@italpro.net
 (Michele Beltrame)
wrote:
Grazie per la riposta e speriamo bene....
Stefano

cerchero` un'altra donna dentro ai sogni di Tarzan...
Newsgroup: it.comp.lang.perl
Titolo: programma con che linguaggio è creato

E' possibile capire con quale linguaggio di programmazione è stato creato
un software?
Era per capire, quando mi capita di usare un applicativo, con quale
strumento è stato fatto: visual-basic, perl, python, c, delphi, c++ etc..
Thank you 
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Thank you
Ciao,
PS: non avrei neanche immaginato possibile che un essere umano,
che scrive su una tastiera, legge e trasforma in pensiero le
radiazioni luminose di un monitor che lasciano riconosce forme
letterali, e chissa` cos'altro sa fare quando gli/le(?) "capita
di usare un applicativo" ;-),
potesse formulare una domanda cosi` totalmente intellettualmente
vuota di spirito innovativo e cognitivo.
E` evidente che l'elenco di linguaggi riportato e` frutto di
riproduzione meccanica di forme luminose lette altrove,
perche` nonostante l'elenco sia di 6+"ecc.." componenti,
sono scanditi con superficialita` metodica: non c'e` stato neanche
segno di quel minimo approfondimento logico che affronta la differenza tra
lunguaggio "interpretato" e "compilato". Ma nonostante questo e`
l'esemplare in questione e` riuscito a memorizzare sei parole
associandole a "linguaggio di programmazione".

radiazioni luminose....
Anche scrivere in un italiano condiviso da un numero di persone maggiore di
1, sarebbe un'opzione interessante.
Non mi pare che la curiosità debba sottostare ad un qualsivoglia giudizio
preventivo di legittimità. Dove prude, ci si gratta, e questo è più o meno
tutto quello che c'è da dire al riguardo.
La parte interessante viene dopo.
Ciao.

 un software?
   Non sempre. Se è scritto in Perl lo capisci aprendolo con un 
qualsiasi editor di testo, altrimenti sei OT.
-- 
Alla prossima,
Marco

strumento č stato fatto: visual-basic, perl, python, c, delphi, c++ etc..
se non sono exe e riesci a vedere il codice sorgente (e sei un
programmatore), ci metti dai 2 ai 3 secondi  :) a capire il linguaggio
utilizzato, con un po di infarinatura generale anche quelli non
studiati.
--
ps: un saluto a tutti quello che mi conoscono, ho subito un break down
hardware che mi ha tenuto lontano dal lavoro per tutto questo tempo...
ma adesso sono tornato... con un nuovo laptop...speriamo bene :)
http://www.pigmalion.info/
Newsgroup: it.comp.lang.perl
Titolo: distinguere un file da una directory

Come si fa? Io so che in UNIX ogni file (o dir) ha dieci flags, di cui
il primo dice se e' una directory o meno (gli altri nove indicano i
permessi). Ma come posso estrarre gli attributi di un file?
Grazie


  Usa la funzioni -X per il test dei file.
      print "$FileName e' una directory\n" if ( -d $FileName );
Maurizio
-- 
Maurizio M. Munafo' |                                  
E-mail:mmmu...@usa.net
--------------------+---------------------------------------------------------
             (o_    |                              - Gentile or Jew,
   (o_  (o_  //\    | O you who turn the wheel and look to windward,
   (/)_ (/)_ V_/_   | Consider Phlebas, who was once handsome and tall as you.

Grazie
Di niente.
Alessandro
bogg...@venus.it
http://www.sicap.it/boggi


Ciao prova cosi':
stat($filename); # nome file o diretctory
print "file esiste\n" if -e _;
print "e una dir\n" if -d _;
ci sono vari comandi tipo:
-r leggibile
-w scrivibile
-x eseguibile
-T testo
ecc...
Ciao ti saluto
Massimo F.

Newsgroup: it.comp.lang.perl
Titolo: REFERRER PARTICOLARE

Ho il seguente problema: la homepage del mio sito deve essere per forza un
file *.htm o *.php e
non posso utilizzare uno script in .cgi o .pl; quello che a me serve perт и
sapere da quale sito proviene
un client, quando accede alla mia homepage. Pensavo di usare il referrer, ma
dato che non posso utilizzare uno script in
*.pl o *.cgi, come posso fare?
Grazie a chi risponde
Andrea

 *.pl o *.cgi, come posso fare
scrivi usi codice php e leggi il referer nella variabile d'ambiente
$HTTP_REFERER no?
[OT]
  <head>
  <title>La vita:</title>
  </head>
  <body>
  Chi siamo?
  <a href="<?= $HTTP_REFERER ?>">da dove veniamo</a>?
  dove andiamo?
  ...
  Qual'e' il nostro ruolo nell'universo?
  </body>
  </html>
[/OT]
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: variabili javascript

All'interno di uno script perl-cgi vorrei assegnare a una variabile il
valore di un'altra variabile ottenuta tramite un javascipt all'interno dello
script stesso.
E' possibile?
grazie
nicola
-- 
Posted from 
relay2.inwind.it
 [212.141.53.73] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
002501c04bfc$f8e3e2e0$36ebfea9@oemcomputer...


Scusa, intendevo all'interno dello script perl:
c'è un modo per trasformare una variabile javascript in variabile Perl?
es. all'interno di uno script che stampa una pagina, il codice html contiene
una sezione javascript che ottiene una variabile. Vorrei passarla al Perl...
Tipo: $miavar = "variabilejavascript";
Grazie


 il parsing...
Scafuz

 c'è un modo per trasformare una variabile javascript in variabile Perl?
All'interno dello script perl le variabili di JavaScript non esistono. Il
javascript infatti viene eseguito lato client e quindi le variabili js hanno
senso solo all'interno del tuo browser, DOPO che il cgi in perl e' stato
eseguito sul server.
Altra cosa ovviamente se vuoi che una pagina che contiene codice js passi il
valore di una variabile (js) a un cgi in perl. Su questo comunque ti hanno
gia' risposto.
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: Numero file

Salve come faccio con perl a vedere ad esempio quanti file contine la dir
/esempio e a stamparne il numero con il comando print?
Grazie a chi mi allega lo script

 /esempio e a stamparne il numero con il comando print?
Puoi provare spostandoti in /esempio e stampando gli elementi tornati
da glob("*").
Oppure usando File::Find
--> Grazie a chi mi allega lo script
Ci sono esempi sul manuale.
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: Upgrade di versioni: problemi noti?

Ciao,
dovrei aggiornare la versione di Perl, installato due anni fa sotto
Windows 2003.
Domanda da neofita: l'aggiornamento potrebbe creare problemi ai siti
che utilizzano attualmente Perl?
Grazie!
JD

 ha scritto:

E' possibile.
Dipende da che versione hai a che versione vuoi passare. 

 Dipende da che versione hai a che versione vuoi passare.
Attualmente disponiamo della 5.8.8.817.
Se non ho visto male potrei passare alla 5.10.0 o alla 5.8.8.822.
Credo sia + consigliabile la seconda, + che altro perchè così effettuo
un upgrade + prudente. Cosa ne pensi?
Grazie,
JD

 ha scritto:

Mi pare che i PPD precompilati per Windows siano identici dalla 5.8.8.817 
alla 5.8.8.822 quindi non dovresti avere problemi.
Per quanto riguarda invece un passaggio alla 5.10 bisogna stare molto 
attenti perché i PPD saranno da riscaricare.
Ah, ovviamente io sto parlando della versione Activestate.

 Ah, ovviamente io sto parlando della versione Activestate.
Sì infatti, grazie!!!

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

Ciao a tutti, sono 'nuovo' nella programmazione dei socket, e volevo fare un 
piccolo programma che apra una porta (es. 1234) e si metta in ascolto su di 
essa. Ho cercato la documentazione ma non dice un gran chè.
p.s volevo usare IO::Socket::INET x fare il tutto
ho provato a fare una cosa del genere ma pare non funzioni:
use IO::Socket;
    my $listening_socket =
        IO::Socket::INET->new(Proto => 'tcp',
                              LocalPort => 1234,
                              Listen => 1,
                              Reuse => 1);
    $socket = $listening_socket->accept;
    $socket->recv($line, 80);
    print"$line\a";
quando mi connette alla 1234 con telnet però la porta non sembra aperta =(
grazie x l'attenzione

 grazie x l'attenzione
funziona eccome! Prova a chiamarlo con:
use IO::Socket;
my $socket = IO::Socket::INET->new("
127.0.0.1:1234
");
$socket->print("pippo");
e vedi che lui risponde e si chiude!
Newsgroup: it.comp.lang.perl
Titolo: Problema con libreria perl enno

Ciao,
quando eseguo il parser di un file xml, utilizzando la libreria XML "enno"
per perl,  tutte le vocali accentate, che si trovano nel file, vengono
sostituite con dei caratteri strani. 
Se ad esempio nel file xml č contenuto un elemento
<ginopino>universitą</ginopino> il valore dell'elemento ginopino, dopo il
parser, risulterą:  universitĀ .
Ho utilizzato tutti i metodi per il parser messi a disposizione dalla
libreria
enno: valparser, checkparser...  e, ovviamente, nell'intestazione dei file
xml ho inserito il comando encoding="ISO-8859-1".
Qualcuno puņ aiutarmi?
Grazie.
 Luca Fortunato
Spedito da 
http://www.submission.it
promuovi gratis il tuo sito web sui motori di ricerca

 parser, risulterą:  universitĀ .
   Ti faccio una domanda che ti parra` strana e poi te la spiego: come 
fai a sapere che l'"elemento ginopino, dopo il parser, risulterą: 
universitĀ"? Te lo chiedo perche` la visualizzazione corretta del set di 
caratteri ISO-8859-1 non e` garantita da tutte le applicazioni (per 
esempio, la shell del DOS produce strani risultati) e potresti ricadere 
proprio in uno di questi casi: lo script funziona correttamente ma tu 
non te ne accorgi perche` la visualizzazione dei risultati e` affetta 
dagli errori del programma di visualizzazione.
-- 
Alla prossima,
Marco

 Marco
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************
Newsgroup: it.comp.lang.perl
Titolo: A che serve $| ?

Ciao a tutti,
Ho trovato in alcuni script la variabile $|
sono andato a leggere perlvar e non ho capito un tubo.
Mi sembra di avere capito che serve a forzare un flusso di output e che si
usa quando hai attivato delle pipe,
ma non ho capito qual'è la sua reale funzione.
Potreste chiarirmi le idee?
Grazie.
--
Marco Allegretti
shi...@katamail.com
http://www.shishii.com

 Mi sembra di avere capito che serve a forzare un flusso di output
Serve ad effettuare un output non bufferizzato su un filehandle (file,
device o pipe)
In pratica:
<CODE>
  # con una sintassi del tipo
  open FILEHANDLE,">questofile";
  # oppure
  # open FILEHANDLE,"|questoprocesso"
  $oldFH = select(FILENAHDLE); $| = 1; select($oldFH)
  #[...]
  # fai in modo che l'istruzione:
  print FILEHANDLE,$telamandodischianto
  # trasferisca immediatamente i dati sul file/pipe/device,
  # anziche' aspettare che sia completata una linea/blocco
  # come avviene normalmente.
</CODE>
P. es. questo puo' essere un sistema per assicurarsi che quando mandi dati
alle pipe questi arrivino quando vuoi tu e non quando vuole il sistema di
bufferizzazione scelto da perl.
Puo' servire anche a visualizzare progressivamente l'output dei cgi quando
l'elaborazione e' lenta e il cgi butta fuori roba un po' per volta.
Infine e' utile quando effettui un fork per fare in modo che quando il
figlio muore venga effettuato correttamente il flushing dei dati ed evitare
di trovarsi con output duplicato.
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/

 ha scritto nel messaggio
news:97277802...@vega.sirius.pisa.it...
Grazie sei stato molto chiaro.


ma non ho capito qual'è la sua reale funzione.
Ti hanno già dato risposta dettagliata, per un esempio pratico pratico,
prova i seguenti due comandi e vedi da te la differenza:
perl -e 'print "ciao";sleep(1);print " a te\n"'
perl -e '$|=1;print "ciao";sleep(1);print " a te\n"'
-- 
giu...@pobox.com