mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Perl IDE per Linux

Sapete se esiste un ambiente integrato per sviluppare in Perl sotto Linux?
tipo wpe o xwpe ?
Possibilmente con licenze free.
Grazie a tutti.

tipo wpe o xwpe ?
Non capisco. Cosa ti serve che vim o al massimo emacs non abbiano gia`?
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

Newsgroup: it.comp.lang.perl
Titolo: Accesso con Password

Il mio problema =E8 quello di poter accedere a certi file tramite una
script Perl con uso di una User Name e una Password.
Qualcuno conosce qualche routine gia pronta o mi sa dire come fare.
Grazie
--
<HTML>
<HEAD>
   <META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html;
charset=3Diso-8859-1">
   <META NAME=3D"Author" CONTENT=3D"Enrico Pini">
   <META NAME=3D"GENERATOR" CONTENT=3D"Mozilla/4.02 [en] (Win95; I)
[Netscape]">
   <TITLE>FIRMA</TITLE>
</HEAD>
<BODY>
<HR WIDTH=3D"100%">
<BR><FONT SIZE=3D+2>E</FONT><FONT SIZE=3D+1>NRICO</FONT><FONT SIZE=3D+2>
P</FONT><FONT SIZE=3D+1>INI</FONT>
<BR>E-Mail: <A HREF=3D"mailto:
pi...@ala.it
">
pi...@ala.it
</A>
<BR>Home Page: <A
HREF=3D"
http://150.217.30.34/~pini
">
http://150.217.30.34/~pini
</A>
<BR>
<HR WIDTH=3D"100%">
</BODY>
</HTML>


Devi usarlo da bash lo script o da pagine html ?
Ciao da Obe.


Da Pagine HTML.


Da Pagine HTML, e il server e' APACHE.

 ha scritto:

Se e' cosi' non e' il caso di creare uno script.
Basta usare l'utility htpasswd fornita con Apache.
La trovi nella directory [...]/httpd/support/
Ciao -- Roberto
-- 
-------------------------------------------------------------------
     Roberto Tagliarino
 
roberto.t...@multiwire.net
-------------------------------------------------------------------


Ma a me serve usare lo script. Perche' devo recuperare il Login per
inizializzare alcune pagine.
Grazie
		Enrico Pini

Newsgroup: it.comp.lang.perl
Titolo: regular expression

è possibile scrivere una regex che trovi una parola
scritta tutta in maiuscolo in una frase?
Esempio:
"Barba non FACIT philosophum"
deve trovare FACIT
(opzionale) è possibile anche impostarla in modo che
trovi parole tutte in maiuscolo ma che abbiano una
lunghezza maggiore a 3 caratteri ?
Esempio:
"Errare humanum EST, perseverare autem diabolicum "
in questo caso non deve trovare niente
--
Saluti
Nexus -  ICQ: 92354109
"All those moments will be lost in time like tears in rain.
...Time To die" (Roy Batty NEXUS-6  #N6MAA10816)

 caratteri?
   /\b([A-Z{4,})\b/
Max
Newsgroup: it.comp.lang.perl
Titolo: DBD-mysql.ppd

Dopo varie ricerche in rete per usare ActivePerl in Windows e renderlo
esattamente uguale all'ambiente dei server Unix/Linux mi rendo conto
che ho un disperato bisogno del file
DBD-mysql.ppd
il quale sembra però scomparso dalla rete (che sia troppo prezioso?)
Molti siti consigliano l'indirizzo
http://theoryx5.uwinnipeg.ca/ppms/DBD-mysql.ppd
anche qui però qualcosa non va ed il file non si riesce a scaricare, o
almeno non ieri e oggi.
C'è nessuno che ha questo prezioso file e desidera di buon cuore
renderlo disponibile?
Da notare che non è coperto o protetto da nessuna royalty.
In attesa di qualche buon samaritano/a
Saluti
Oreste

 almeno non ieri e oggi.
Io lo vedo tranquillamente, ad ogni modo eccoli:
http://nordest.pm.org/ppms/

Caro Andrea,
ti ringrazio, ora ActivePerl funziona molto bene, così bene che sto
considerando seriamente l'idea di abbandonare Kylix.
Un caro saluto
Oreste
oresteatparlatanodotcom
www.oreste.parlatano.com

Newsgroup: it.comp.lang.perl
Titolo: recupero indirizzo eMail

 sta visualizzando una pagina web?
  Generalmente non si puo` fare.
  E limita la lunghezza della firma: e` piu` lunga del messaggio.
	Alla prossima,
		Marco

Newsgroup: it.comp.lang.perl
Titolo: prototipi (scusate l'ignoranza)

Sono nuovo del linguaggio Perl.
Qualcuno sa per quale motivo,
se io scrivo un file 
a.pl
 come segue
[mg@localhost perlDaemon]$ cat 
a.pl
use strict;
selectLogin(1);
sub selectLogin($login)
{
my $login = shift;
print $login;
}
[mg@localhost perlDaemon]$
il programma funziona
[mg@localhost perlDaemon]$ perl 
a.pl
1[mg@localhost perlDaemon]$
mentre se sposto la chiamata della funzine
dopo il prototipo come segue
[mg@localhost perlDaemon]$ cat 
a.pl
use strict;
sub selectLogin($login)
{
my $login = shift;
print $login;
}
selectLogin(1);
ottengo un errore ?
[mg@localhost perlDaemon]$ perl 
a.pl
Not enough arguments for main::selectLogin at 
a.pl
 line 14, near "1)"
Execution of 
a.pl
 aborted due to compilation errors.
[mg@localhost perlDaemon]$

 [mg@localhost perlDaemon]  perl 
a.pl
fare invece:
[mg@localhost perlDaemon]$./
a.pl
but only if 
a.pl
 is executable (use chmod +x 
a.pl
)
use "-w" for more error messages (see man perl)
hope this helps,,
Leif

perchč nel prototipo non devi usare un nome di variabile,
ma solo il simbolo che identifica il tipo di variabile che č richiesto
dalla subroutine. dopo i parametri li vai sempre a prendere da @_
sub selectLogin ($)
{
my $login = shift;
print $login; 
}
se tu volessi una funzione che richiede 2 scalari e 1 hash
sub mysub ($$%)
1 scalare e un array opzionale
sub mysub2 ($;@)
-- 
Posted from 
mail5.galactica.it
 [212.41.208.22] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

"Marco.guidi" wrote:

Grazie a tutti quelli che mi hanno risposto.
Thanks to all
Marco Guidi
Newsgroup: it.comp.lang.perl
Titolo: Seconda Finestra in TK

Salve a tutti,
	da qualche tempo mi sto cimentando con vari tipi
di interfaccia tra cui anche le Tk.
Vorrei chiedere come fare a far apparire una seconda finestra.
Mi spiego. Ho un MainLoop nel quale appare una finestra con bottoni e testo...
Premendo uno di questi bottoni vorrei che apparisse un'altra finestra (stile popup per intenderci) che dia delle informazioni.
Sapreste indicarmi che codice devo scrivere?
$mw->Button(-text=>"Altra Finestra",
	-command=>\&NuovaFin)
	->pack(-side=>'bottom');
Cosa devo mettere in NuovaFin?
Grazie 1000

 Cosa devo mettere in NuovaFin?
Una cosa come:
sub NuovaFin {
	#cut
  	my $mw3 = $mw->Toplevel( -height => 123, -width => 245);
	$mw3->title ("");
	#cut
	#$mw3->overrideredirect(1);
	$mw3->grab();
     	$mw3->waitWindow();
}

Newsgroup: it.comp.lang.perl
Titolo: Come imparo il perl?

Aaargh! Tutorial su tutorial e non ci capisco mai niente! Esisterà forse un
libro gratis su perl in rete? Se qualcuno me lo indica gli sarò molto
grato!!!

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

 wrote in message
1eckylq.1n12y6xoxb1yrN%bale...@mac.com...

non ho capito tanto bene... E secondo te ke me ne farei delle risorse gratis
se non ho voglia di imparare? In ogni caso il messaggio è su quattro ng, e
la programmazione mi interessa molto, anche se sono alle prime armi. Cmq
grazie per il tuo intervento, mi hai aiutato moltissimo! Viva la fratellanza
tra programmatori!

Viva la fratellanza tra programmatori!
"Fratellanza"??
Ma quando mai abbiamo mangiato assieme pasta e fagioli, io e te?


 wrote:
:  Cmq
: grazie per il tuo intervento, mi hai aiutato moltissimo! Viva la fratellanza
: tra programmatori!
Quando leggo codeste cose di "fratellanza tra programmatori", non so
perche` ma mi scappa un PLONK...
.mau.
ps: NON sono un programmatore.

 =~ s/perl/javascript/gi e otterremo 
Sempre a fare i sofisticati, qui dentro .... 
:-)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

 wrote in message
news:1ecl1bz.mjxajp1b7z3cyN%bale...@mac.com...

 Oooh, chi si vede :)
Beh, frequento iclp da piu` tenpo di icljs... diciamo abbastanza da
sapere che smetto qui senno' mi linciano per l'OT ;)

Newsgroup: it.comp.lang.perl
Titolo: programma che effettua resume ftp........

Volevo sapere come poter effettuare un resume ftp con perl.
ora ho un programma Net::FTP e scarica in locale un file di 750Mb....ma ogni
tanto la connsione si interrompe e file rimane corrotto.
Allora ho pensato di prendere le dimensioni del file locale e quello remoto
e se tale differenza e diversa rirpendi il download....solo che ogni volate
che lancio lo script riparte zero......
dove sbaglio.......!!!!
Forse devo fare un ciclo.......finchè tale diff non diventi zero.........
Se avete qualche suggerimento fatemi un colpo...
Giuseppe

 Volevo sapere come poter effettuare un resume ftp con perl.
Se leggi 5/6 post + sotto, c'è un post che ha come topic "resume ftp".
Lì c'è un esempio e una risposta ad un problema.
Cmq una buona cosa da fare sempre è leggere i docs del modulo:
perldoc Net::FTP.
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

Newsgroup: it.comp.lang.perl
Titolo: come conoscere i dati del visitatore di una pagina?

come conoscere i dati di un visitatore di una pagina?
IP, broser ecc... ecc...?
come facci ad ottenerli tutti? (ci sarà un vettore che li continene: come
si chiama?)
Grazie in anticipo, Mario.

 wrote in message
news:kDom9.37277$Eu.8...@twister1.libero.it...

Hai sbagliato NewsGroup: ri-posta lo stesso messaggio su it.comp.www.cgi
ciao
Domizio Demichelis

 IP, broser ecc... ecc...?
%ENV è un hash che contiene le variabili di ambiente (ENVironment)
$ENV{'REMOTE_HOST'} = host del visitatore
$ENV{'REMOTE_ADDR'} = IP del visitatore
$ENV{'HTTP_REFERER'} = lo dice la parola
$ENV{'HTTP_USER_AGENT'} = è il client (browser)
altro di utile c'è poco
per il resto (tipo la risoluzione, profondità colore, ecc.) devi usare
javascript
Ciao,
Guido

 wrote in message
news:and8pc$t42$1...@lacerta.tiscalinet.it...

Guido! Tu sei sempre il solito che risponde quando io non vorrei dare la
risposta!!! GRRRRRR :-)
Comunque c'è anche: HTTP_ACCEPT e HTTP_ACCEPT_LANGUAGE che sono più o meno
utili per avere una qualche indicazione sul tipo di response e sulle preferenze
linguistiche (se impostate) del client.
GRRRRRRR :-)
ciao
dd

 GRRRRRRR :-)
perché ti arrabbi, Didi?? Mica lo faccio apposta!! :-)
Spesso mi capita di rispondere direttamente e _successivamente_ leggere le
altre risposte già date..
..
e poi.. perché non volevi rispondergli? Cattivo! :-P
Newsgroup: it.comp.lang.perl
Titolo: ancora sui puntatori a subroutines

Ciao
tempo fa Marco Natoni rispose ad una mia domanda
sui puntatori a subroutines con un illuminante
codice:
<code>
 %CMDTBL=(
     PRINT => \&myprint,
     BELL  => \&mybell,
     EXIT  => \&myexit
 );
 $|=1;
 while (1) {
     print '-> ';
     chomp ($cmd=<STDIN>);
     &{$CMDTBL{$cmd}} if exists $CMDTBL{$cmd}
 }
 sub myprint { print "Hello world!\n" }
 sub mybell  { print "\a" }
 sub myexit  { exit }
</code>
Come faccio pero' a passare parametri alle sub ?
Ho provato
 &{$CMDTBL{$cmd}} $argument
ma mi da' errore:
 "
 Scalar found where operator expected at 
myscript.pl
 line 384, near "}
 $argument"
        (Missing operator before  $argument?)
 "
 Raffaello

 ma mi da' errore:
Devi derefenziare la reference alla subroutine e poi mettere
i parametri tra parentesi. Conosco due modi per farlo:
  $CMDTBL{ $cmd }->( $argument ); # che trovo piu` leggibile
  &{$CMDTBL{ $cmd }}( $argument );
ciao
Stefano

   &{$CMDTBL{ $cmd }}( $argument );
Mannaggia, pensavo che
 &{$CMDTBL{ $cmd }}( $argument );
e
 &{$CMDTBL{ $cmd }} $argument;
fossero la stessa cosa ...
Ma guarda te il Perl a volte ... :-/
Grazie mille.
 Raffaello

>   $CMDTBL{ $cmd }->( $argument ); # che trovo piu` leggibile
e dovrebbe essere anche la forma più corretta, perché credo che la forma con
& sia destinata specificamente a evitare i prototypes
da perldoc perlsub
 NAME(LIST);    # & is optional with parentheses.
 NAME LIST;     # Parentheses optional if predeclared/imported.
 &NAME(LIST);   # Circumvent prototypes.
 &NAME;         # Makes current @_ visible to called subroutine.
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

Newsgroup: it.comp.lang.perl
Titolo: Variabili di sessione in CGI/Perl

Salve a tutti,
esistono le variabili di sessione in CGI/Perl? Potete farmi qualche esempio?
Grazie
Max

 esistono le variabili di sessione in CGI/Perl? Potete farmi qualche esempio?
Ciao,
il linguaggio Perl non è nato espressamente per il web, è un linguaggio 
"general purpose".
Per le applicazioni web esistono dei moduli che integrano il linguaggio 
con nuove funzionalità. Per le sessioni, ad esempio, c'è più di una 
maniera di gestirle, a seconda del modulo usato.
Il sito di riferimento per i moduli è CPAN; in particolare per le 
sessioni prova il link seguente:
http://search.cpan.org/search?query=session&mode=module
Dunque prova CGI::Session, Apache::Session e anche CGI::kSession
Purtroppo non so consigliartene uno anche se credo che CGI::Session sia 
molto usato.

Ciao,
grazie mille per la risposta celere ed esaustiva. Ho dato un'occhiata veloce
a CGI::Session e mi sembra completo e semplice da capire.
In effetti l'utilizzo che ne devo fare è per la gestione delle variabili di
un form per l'iscrizione ad una newsletter in particolar modo per Movable
Type 2.66.
Bye
Max
Newsgroup: it.comp.lang.perl
Titolo: Fork()

Salve sempre per quel prog con i socket (se qualcuno ha letto il post ;)),
mi servirebbe che qualcuno mi dicesse se posso far partire due processi
figli da un solo prog padre con fork o altro. In modo che ci sia un processo
in listening sul socket e uno su STDIN, visto che select,vec, etc su win non
funzionano.
Grazie a tutti
--
bye
Erix    UIN: 72432400
http://erix.cjb.net

funzionano.
Il guaio e` che anche fork ha problemi e limitazioni in Windows. Ti conviene
dare un'occhiata a perlport e a perlfork. Puo` darsi che si possano usare le
estensioni proprie di Win32: Win32::Process ecc., ma non saprei proprio dire
se le cose cambiano sostanzialmente.
Ti conviene forse anche consultare l'archivio di perl-win32-users, la
mailing list gestita da ActiveState; magari anche iscriverti e porre la
domanda li`. C'e` gente piuttosto competente sui problemi specifici di Perl
in ambiente Windows (Aldo Calpini, per la verita`, lo trovi anche qui, con
un po' di fortuna, ma li` e` forse piu` facile che uno dei tanti trovi il
tempo di rispondere).
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: Problemi Installazione DBD-ODBC-0.20

Ciao a tutti,
sto cercando di installare il modulo DBD-ODBC-0.20 (uso DBI-1.02).
Eseguendo la linea di comando ' perl Makefile.PL ' compare il messaggio '
You need to indicate where your ODBC Driver Manager is installed '.
Come faccio a sapere dove esso si trova e poi come glielo devo indicare ?
Grazie
Fredi

In comp.lang.perl.modules ho proprio appena letto un messaggio a proposito
in cui viene citato 
  MyODBC V 2.50.24
Potrebbe essere quello che ti serve, anche se non so dove si trovi.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)


Win32 o Unix?
Solo perche' con Win32 esiste gia' il PPM Activestate per
installare DBD::ODBC.
Sotto UNIX, invece credo che nel README ci sia spiegato dove si
dovrebbe trovare il Driver Manager o come recuperarlo.


Newsgroup: it.comp.lang.perl
Titolo: 2.2.10 e tcpdump

Oggi avevo bisogno di usare tcpdump, ma ho ottenuto un fantastico
errore:
Socket type not supported
Ho fatto il reboot con il kernel 2.2.9 e tcpdump funzionava.
Sembra che il tcpdump della slink non vada con la 2.2.10, a meno che non
abbia fatto qualcosa di strano durante la configurazione del kernel
(...ma mi sono limitato ad un 'make oldconfig'...).
C'e` qualcuno con la slink e il kernel 2.2.10 a cui tcpdump funzioni?
Tanto per restringere il campo di indagine.
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) mail (dot) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nandos

 wrote:
: Oggi avevo bisogno di usare tcpdump, ma ho ottenuto un fantastico
Pardon, sbagliato newsgroup :-(

Newsgroup: it.comp.lang.perl
Titolo: scipt che non funziona

Lo riscrivo daccapo.
Mi era sfuggito la concatenazione nel while ($testo .= $_), perciň non capivo.
Ciao
Marcello
P.S.
Qualcun altro ha avuto problemi a scaricare le news dal server della tin in
questi ultimi due giorni?

> >## E questa aiuta parecchio, prevenendo i typo:
Ti ringrazio ancora per i suggerimenti.
Mi saranno utili per il prosieguo.
Scusa il ritardo ma il server della tin non ha funzionato 'sti giorni.
Ciao
Marcello

Newsgroup: it.comp.lang.perl
Titolo: cercare parola in un file

quale è il modo più semplice per cercare una parola (posta in una
variabile tipo $parola) in un file?
grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

variabile tipo $parola) in un file?
Il modo più semplice è usare grep, o un equivalente perl di grep (per
esempio, grep).
Per i modi più efficienti o più veloci, ci sono in letteratura diversi
algoritmi (molti diversi algoritmi), secondo anche le condizioni iniziali,
il tipo e la dimensione del file e altro.
Ciao.


http://www-igm.univ-mlv.fr/~lecroq/string/index.html
Ciao.


--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 io ho gi� provato con il grep, ma non mi funziona ... una cosa semplice


contenuta in email
Perché non con la sintassi giusta fin dall'inizio, invece di "varie
varianti" inventate a caso?
   if (grep(/$email/, <MIO_FILE>)){
               print "trovato!";
   }
Il senso della parte EXPR o BLOCK di grep è qualsiasi cosa possa essere
valutata vera o falsa; una stringa, di per sé, è sempre "vera" (o
equivalente ad un valore vero), quindi grep ritorna sempre tutte le righe
(nel tuo caso nulla, ma quello che fallisce è "<MIO_FILE>", non "grep
$email").
Per ottenere qualcosa di significativo devi confrontarla in qualche modo
con ogni elemento di LIST analizzato da grep, cioè con la variabile $_.
L'espressione regolare è un modo (implicito) per fare questo confronto, ma
si potrebbe scrivere anche:
   if (grep({$_ eq "$email\n"} <MIO_FILE>)){
               print "trovata riga corta!";
   }
per un confronto esatto (ricorda che <MIO_FILE> resistuisce anche il fine
riga), oppure:
   if (grep({length($_) < 10} <MIO_FILE>)){
               print "trovata riga corta!";
   }
se si fosse interessati alla lunghezza delle righe, piuttosto che al
contenuto, o comunque qualunque altro genere di confronto.
Ciao.

non fa il match.
No, non fa la lettura, perché infatti stai scrivendo. È @raw_data che è
vuoto, non il match che non funziona.
Ciao.

}
È corretto, perché variabili scalari e variabili array hanno spazi nomi
distinti, ma può essere inutile fonte di confusione. Mi sembra preferibile
usare un nome diverso:
 @raw_data=<MIO_FILE>;
 foreach $riga (@raw_data)
 ...
 }
o qualsiasi altro nome ti sembri significativo, ovviamente.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Cerco Programmatore x realizzazione...

Salve, 
sto cercando un programmatore con disponibilità immediata per la
realizzazione di un programmino e la creazione di un algoritmo per una
determinata ricerca statistica da eseguire all'interno di file di
carattere numerico.
Grazie
Walter
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:9ec97d1d29271e2a03b...@mygate.mailgate.org...


Newsgroup: it.comp.lang.perl
Titolo: #include ?

 ICQ# 33538863
Undergraduate Computer Science Student at University of Bologna, Italy
SysAdm of 
verdicchio.students.cs.unibo.it
 (130.136.3.134)
	"Information wants to be free"

 PS ma non era piu' semplice un bellissimo '#include <...>'
Ma sai che c'e'? Si chiama 'do'
do '
definizioni.pl
';
ed ecco tutte le tue variabili dichiarate magicamente.
Pero' devi stare attento ai problemi di namespace (probabilmente le metterai
tutte in main::)
Comunque, se leggi perlfunc, alla voce 'do' dice: 
 "You might like to use do to read in a program configuration file."
 
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: POSIZIONAMENTO SU SECTION WORD CON PERL

Ciao,
qualcuno sa dirmi come trasformare il seguente codice VB:
Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=4, Name:=""
in perl ?
Devo posizionarmi sulla sezione 4 del mio documento word.
Grazie

in perl ?
Puoi usare la forma posizionale del metodo:
   espressione.GoTo(What, Which, Count, Name)
da cui, in perl:
   $selection->GoTo(wdGoToSection, wdGoToFirst, 4, '');
ovvero fornire un hash analogo all'istruzione VB:
   $selection->GoTo({What => wdGoToSection, Which => wdGoToFirst,
                     Count => 4});
Questo naturalmente dopo aver caricato le costanti di Word:
    use Win32::OLE::Const 'Microsoft Word';
e dopo aver ottenuto in $selection l'oggetto Selection:
 my $Word = new Win32::OLE("Word.Application","Quit") or
        die "Can't start Word: $!";
 my $selection = $Word->{Selection};
Il tutto assolutamente NON verificato, perché in questo momento non ho
tempo.
Ciao.

tempo.
Giusto per dare un esempio verificato e funzionante:
    use Win32::OLE;
    use Win32::OLE::Const 'Microsoft Word';
    # Word dev'essere in esecuzione perché GetActiveObject
    # abbia successo, si userà altrimenti il metodo new
    my $Word = GetActiveObject Win32::OLE("Word.Application") or
               die;
    my $doc = $Word->{ActiveDocument};
    my $selection = $doc->{ActiveWindow}->{Selection};
    $selection->GoTo({What => wdGoToSection, Which => wdGoToFirst,
                      Count => 4});
    $selection->InsertAfter("Eccomi qua!");
    $selection->InsertParagraphAfter();
    $selection->EndKey();
    # La medesima cosa si può fare con un oggetto Range, senza
    # disturbare il punto di inserimento attuale, che resta sulla
    # sezione 4
    my $range = $doc->GoTo({What => wdGoToSection,
                            Which => wdGoToFirst, Count => 3});
    $range->InsertAfter("Eccomi qui!");
    $range->InsertParagraphAfter();
    undef $Word;
Ciao.

Grazie! :-)

Newsgroup: it.comp.lang.perl
Titolo: Eliminare righe vuote

Ciao,
dovrei eliminare delle righe vuote da un testo,
il testo e' contenuto in una variabile.
Quale espressione regolare posso utilizzare ?
Grazie
Andrea

 Quale espressione regolare posso utilizzare ?
Direi una cosa del tipo:
$testo=~s/\n\n/\n/g;
Ciao
Fabrizio
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.lang.perl
Titolo: Creare un DB mysql remoto

Ciao a tutti,
il mio problema e' il seguente:
Ho a disposizione uno spazio web (su server Windows NT),
con db mysql, perl, ed unico accesso al server via FTP.
Ho installato i moduli DBI e DBD in remoto ed ho tentato
di creare un database scrivendo questo codice
(riportato su "Perl guida di riferimento")
--------------------------------------------------------------
$database = q[miodatabase];
$result = DBD::mysql::dr->func($database,'_CreateDB');
--------------------------------------------------------------
avendo come unico risultato:
Can't locate object method "func" via package
"DBD::mysql::dr" (perhaps you forgot to load "DBD::mysql::dr"?)
Qualcuno sa aiutarmi ?

 "DBD::mysql::dr" (perhaps you forgot to load "DBD::mysql::dr"?)
Riprova con qualcosa come:
my $dbh = DBI->connect($database, $user, $password)
    || die $DBI::errstr;
La stringa $database e` qualcosa del genere
my $database = "dbi:mysql:miodatabase";
Una volta creato l'oggetto $dbh (connect() e` il nome del costruttore),
potrai usarlo per inviare query e cosi` via.
Consiglio perldoc DBI, secondo me e` fatto bene.
ciao
Stefano


Niente da fare: non mi crea il database.
L'unico errore che ritorna e':
---------------------------------------------------------
DBI->connect(nemoabpcom) failed:
Can't connect to MySQL server on localhost (10061)
---------------------------------------------------------
Qualcuno conosce un'altro sistema per creare
un database remoto (solo con  ftp e cgi) ?
Grazie a tutti, Massimo.

 Grazie a tutti, Massimo.
Sorry. Avevo letto male la domanda.
Forse non hai i permessi per la creazione
di un nuovo database. In questo caso devi
chiedere all'amministratore di creartene uno
e di darti i permessi per creare, cancellare tabelle
e cosi` via...
ciao
Stefano

Newsgroup: it.comp.lang.perl
Titolo: Lanciare cgi o altro comando via net::ftp

si puo' ?... Io non ci riesco!
Grazie
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.465 / Virus Database: 263 - Release Date: 25/03/2003

 si puo' ?... Io non ci riesco!
Non credo si possa.
Sicuramente con LWP o Net::Telnet puoi chiamare una pagina web, di 
conseguenza un CGI.

 ha scritto nel messaggio
news:v%1ha.57171$7y3.1...@twister1.libero.it...

si LWP lo uso abitualmente... in pratica avrei voluto comprimere dei file
prima di scambiarli da un server all'altro... lo faro da wew con LWP
Grazie
Oxy
Newsgroup: it.comp.lang.perl
Titolo: cancellare un file

Come faccio in Perl?

Come faccio in Perl?
unlink 'nomefile';
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/

Grazie mille.
Michele Beltrame ha scritto nel messaggio ...


Newsgroup: it.comp.lang.perl
Titolo: funzioni data

Ciao per completare il mio programmino dovrei riuscire a calcolare la data
odierna: la sysdate della macchina su cui gira il programma ha la sysdate
spostata in avanti (es. 20/10/2004).
Esiste qualche funzione in perl che mi permette di fare operazioni sulle
date? Oppure avete in mente un algoritmo che potrebbe funzionare?
Grazie mille
 Andrea

 Oppure avete in mente un algoritmo che potrebbe funzionare?
Si`. 
Usi 'time', sottrai 86400 secondi e dai questo intero a localtime, 
che ritornera`, in un contesto di lista, le informazioni sulla data
richiesta (mese, giorno, anno...).
ciao
Stefano

Newsgroup: it.comp.lang.perl
Titolo: Aggiunta in testa

Come posso fare per far scrivere un record non alla coda, ma alla testa di
un file?
GRAZIE

 ha scritto nel messaggio
news:9qrx5.41116$XZ4.5...@news.infostrada.it...


 wrote in message
qcsx5.41590$XZ4.5...@news.infostrada.it...


Newsgroup: it.comp.lang.perl
Titolo: NT & Perl.

Ho provato il perl per alcuni scriptini di sistema e mi sono trovato
egregiamente.
Sto valutando anche l'esecuzione di tali script oppurtunamente modificati
tramite WEB.
Sono riuscito a fare qualcosetta, ma mi manca la parte di input.
Come posso "dire" allo script che l'input avviene da WEB e non da shell??
Grazie.

>Come posso "dire" allo script che l'input avviene da WEB e non da shell??
Il modo più semplice:
use CGI ":standard";
$pippo=param('pippo');
print header;
print $pippo;
Per maggiori informazioni vedi il pod di CGI.pm
Ciao
Marco Cecconi
Inferentia S.p.A.
perl -e 'use Standard::Disclaimer;'

Newsgroup: it.comp.lang.perl
Titolo: Invio files con Net::Ftp

Ho preparato un script che si occupa di uploadare sul server un file
(o directory, in questo caso ricorsivamente) che gli viee passata da
riga di comando. Tutto funziona egregiamente, però mi capita di avere
directory che contengono 2500 file da 1 Kbyte, se ruscissi ad
automatizzare un rocesso del tipo:
compatta la directory in locale
invia la directory
decompatta la directory sul server
Sarebbe davvero il massimo. Ho cercato in lungo e in largo una
soluzione ma non ne ho trovato, qualcuno mi può aiutare?
Ciao
Andrea Busia
No Spam, Grazie.

 soluzione ma non ne ho trovato, qualcuno mi puņ aiutare?
La prima cosa che mi viene in mente e' provare a simulare dall'interno
di Perl una connessione telnet e fare il lavoro di tar e zip, poi con
net::ftp scaricare il file.
Puoi usare il module Net::Telnet che puoi scaricare a parte (non fa
parte del pacchetto libnet) da qualunque CPAN.
Io lo uso spesso e funziona abbastanza bene ma bisogna starci un po'
attenti; spesso ho dovuto mettere delle sleep (attesa) e non mi
funziona bene la funziona waitfor, me ne sono fatta una io.
Ciao
--
 Massimo Balestra
 System Engineer
 Torino Italy
Sent via Deja.com 
http://www.deja.com/
Before you buy.
Newsgroup: it.comp.lang.perl
Titolo: Urgent: Invoking an O/S command in Perl

I'm a newbie in Perl.  I need to modify a Perl script written by one of
our consultants.  I need to invoke a C++ program from this Perl script.
This C++ program is pretty nasty.  Sometimes, when it detects an error,
it returns a value and exits.  Sometimes, it just prints an error
message to cout and exits.  Sometimes, it prints an error message to
cerr and exits.  Also, if the program is done successfully, it prints a
message with useful content which the Perl script will need to get for
further processing.
In order to make sure I can detect all errors produced by this C++
program and get the useful content, I need to look at the return value,
STDERR and STDOUT in the Perl script.  I tried to use backquote, open
and system function.  None of these seemed to give me a complete answer.
Maybe I'm just not familiar enough with Perl.
Could someone give me some code (sample code is also welcome) on how to
do this?
Basically, I need to call the C++ program and if errors occur, I need
the error message as well as the return value.  If it succeeds, I need
the message printed by the program and parse it to get useful content.
Thanks in advance,
Morris
Sent via Deja.com 
http://www.deja.com/
Before you buy.

,


Newsgroup: it.comp.lang.perl
Titolo: come prendere l'url completo della pagina?

Ho creato un form (metodo GET) con molti campi per creare un grafico.
Vorrei far accedere a quel grafico direttamente da un link
quindi per conoscere il link posso o copiarlo dal browser... ma è troppo
lungo e me lo taglia,
o inserirlo nella pagina di destinazione.
Quindi:
Come visualizzare l'url completo ( con tutti i parametri) della pagina che si sta visualizzando
?
Grazie in anticipo, Mario.

_MarioLatens ha scritto nel messaggio ...

Forse non capito bene cosa ti serve, ma cmq la stringa
con tutti i parametri che hai passato in get allo script
dovresti trovarla nella variabile $ENV{'QUERY_STRING'} ...
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Lista di array associativi

Ciao, premetto di essere alle primissime armi con perl.
Vorrei fare, se è possibile, una lista di array associativi. In pratica
come una tabella...mi spiego meglio...
Creo prima l'array associativo per esempio in questo modo
my %entry;
$entry{"indirizzoip"} = "127.0.0.1";
$entry{"valore"} = 10;
..a questo punto vorrei avere una lista di questi array, in pratica
qualcosa che quindi assomigli a una tabella di un database.
Potrei inserire questi elementi di volta in volta che li creo in una
variabile @qualcosa?
Mi potete dare qualche consiglio?
Grazie
--
Anthony
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Vorrei fare, se è possibile, una lista di array associativi. 
 perldoc perldsc
 
http://www.perldoc.net/pod/perldsc.pod
 
http://www.perldoc.net/pod/perldsc.pod#ARRAYS%20OF%20HASHES
M

 
http://www.perldoc.net/pod/perldsc.pod#ARRAYS%20OF%20HASHES
Urca...
Quando si dice "essere esaustivi" :-)

 Mi potete dare qualche consiglio?
Ci provo.
Potresti fare in questo modo (array di hash):
     my @lista_ip = (
         {indirizzo => '127.0.0.1', valore => 1},
         {indirizzo => '192.168.1.1', valore => 2},
         ...
     );
Cosi' hai il vantaggio di preservare l'ordinamento (se serve)
della lista degli ip. Puoi scorrerli e saperne il valore.
     for my $ip ( @lista_ip )
     {
         print $ip->{indirizzo}, ' ha valore ', $ip->{valore}, "\n";
     }
Alternativa (hash):
     my %lista_ip = (
         '127.0.0.1' => 1,
         '192.168.1.1' => 2,
         ...
     );
In questo modo, non puoi piu' risalire all'ordinamento (se ce n'e'
uno), ma risparmi memoria rispetto alla soluzione precedente, ed
hai accesso diretto al valore di un determinato ip, nonche' puoi
sapere con `exists $lista_ip{"xxx.xxx.xxx.xxx"}' se un'indirizzo esiste.
Per scorrere i risultati:
     for( keys %lista_ip ) # eventualmente `sort keys %lista_ip'
     {
         print $_, ' ha valore ', $lista_ip{$_}, "\n";
     }
Terza soluzione (ibrido, array di array):
    my @lista_ip = (
        ['127.0.0.1'   => 1],
        ['192.168.1.1' => 2],
        ...
    );
E' la struttura meno esigente in termini di memoria.
Mantiene l'ordinamento. Non permette l'accesso diretto al valore
di un indirizzo ip, a meno di eseguire una ricerca (magari binaria).
Per scorrerne gli elementi:
    for( @lista_ip )
    {
        print $_->[0], ' ha valore ', $_->[1], "\n";
    }
Semplice, no?
-- 
Cosimo
Newsgroup: it.comp.lang.perl
Titolo: m//

Ciao a tutti,
avrei un quesito sull'operatore m//, come funziona?
Non riesco a capirlo.
Ho una espressione regolare fatta in questa maniera : m/^[a-z].+?
.+?$/.....ma cosa fa?
se la metto dentro un if equivale a scriverla senza 'm', cosa  cambia
insomma?
Grazie e ciao
Gazza

E' un'espressione regolare(regexp).
E si legge cosi':
^     = inizio riga
[a-z] = una lettera minuscola
.+?$  = tutti i caratteri dopo la lettra minuscola fino alla fine della 
riga.
Cosa fa = vero se la stringa che gli passi inizia con una lettra minuscola.
$pippo = "auuuuu";
if ($pippo =~ m/[a-z].+?$/){} # vero
$pippo = "Auuuuu";
if ($pippo =~ m/[a-z].+?$/){} # falso
ciao
Alberto


 ha scritto nel messaggio
news:3CFD25D8...@spam.net...

Quindi, se ho capito bene, sia che ci sia o meno m davanti allo slash (/) è
comunque un'espressione regolare?
ciao
Gazza

Newsgroup: it.comp.lang.perl
Titolo: Apertura pagine html:

= 0) { die($usage); }


 


  if ($server =~ 
/^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/) {
    @addrs = pack('C4', 
split(/\./,$server));
  } else {
    
($dummy,$dummy,$dummy,$dummy, @addrs) = gethostbyname($server);
  
}
  $remote = pack("S n a4 x8", &AF_INET, $port, 
$addrs[0]);
  socket(S, &PF_INET, &SOCK_STREAM, &TCP) || die 
"socket: $!";
  connect(S, $remote) || die "connect: $!";
  
select(S); $| = 1;
  select(STDOUT); $| = 1;


 


  $request = "GET $document 
HTTP/1.0\r\n";
  while ($#Headers > 0) {
    
$request = $request . "$Headers[0]: $Headers[1]\r\n";
    
shift(@Headers); shift(@Headers);
  }
  $request = $request . 
"\r\n";
  print(S $request);


 


  $big = 1024*1024;
  while ($len = 
sysread(S, $data, $big)) {
    $out = syswrite(STDOUT, $data, 
$len);
  }
  close(S) || die "close: $!";
}


 


&main;


____________________________________


 


Potete testare il risultato di questa pagina 
qui:


HTTP://Andy85.jumpgames.com/cgi-bin/prova.pl


Nel migliore dei casi comincierà a scaricare per 
ore fino a che non andrà in timeout. In caso contrario si aprirà una pagina di 
errore di Webjump.


C'è da dire inoltre che Webjump supporta solo 

CGI.PM
 come libreria.


Vi prego di aiutarmi a risolvere questo 
problema.


 


 


 



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

 Vi prego di aiutarmi a risolvere questo problema.
Come fai ad usare come CGI un programma che CGI non e'? 
Il programma che hai mandato prende una pagina e se la tiene tutta per se
nella variabile $out, senza neanche stamparla.
E allora? 
Che dovrebbe fare questo WEBJUMP?
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: Numero di utenti online sul sito

Salve,
come fare per visualizzare quanti utenti stanno visitando un sito
? Ho visto degli script in ASP e in PHP che fanno questo, ma come farlo in
Perl ?
Grazie
Colossus
--------------------------------
Inviato via 
http://usenet.iol.it

 Salve,


usa dei file di sessione basati su cookie ....magari con un -M sui file di
sessione per capire quanti sono in linea?
ciao
alberto
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************
Newsgroup: it.comp.lang.perl
Titolo: HTTPConnect

Salve...
premetto che sono alle prime armi...
sto cercando di creare uno script, utilizzando HTTPConnect, che mi "clicchi"
automaticamente alcuni link in una pagina web. Fino qui nessuna difficoltà. 
Il problema nasce se la pagina web è protetta da password (che conosco).
Grazie... 

 wrote:
Ciao,

WWW::Mechanize (
http://cpan.uwinnipeg.ca/module/WWW::Mechanize
) fa al caso tuo.
Ti permette di automatizzare anche complesse interazioni con le pagine web.
by
	- Enrico
--- have fun with 
www.perl.it
 ---

Enrico Sorcinelli wrote:

mi sa che è proprio quello che mi occorre...
molte grazie...

Newsgroup: it.comp.lang.perl
Titolo: Provare codice Perl in locale visualizzano l'output in browser

Ciao a tutti!
vi sottopongo 3 problemi:
(nelle PERLFAQ di Active Perl non ho trovato niente in proposito)
1)
Sono un neofita del Perl. Ho la necessita' di sviluppare codice perl senza
avere accesso al server su cui andra' installato. Ho una macchina con
windows 98 ed ho installata l'ultima release di ActivePerl.
E' possibile fare in modo che mettendo per esempio un link in un documento
html del tipo
<a href="C:\progetti\perl\
ilmioscript.pl?Param1=Ciccio
">
il browser capisca che si tratta di uno script perl, lanci l'interprete
perl.exe e visualizzi l'output (che sara' un documento html)?
2)
E' possibile con l'interprete perl.exe passare allo script anche dei
parametri (quelli che si passano nella QUERY_STRING con il metodo GET)?
3)
(questa penso sia parzialmente OT)
Il codice perl che sto sviluppando deve modificare un DB con comandi SQL.
Posso "emulare" anche questa funzione?
tia
Andrea
--
       ______________________________________
    _ / Andrea     e-mail: 
mox....@libero.it
\
   (  \___Censi____icq#__:_57087839__________/
    )
¸.·'

 DB (ed interrogarlo semplicemente tramite SQL). Forse e' DBD::CSV.
Adesso sto scaricando la 522. In ufficio usavo odbc:ext che con chiamate sql
interrogava un database gestito da oracle, ora sto cercando di mettere su la
stessa cosa con MsAccess.
Dovrebbe funzionare (spero :) ).
Grazie delle risposte.
Andrea

Newsgroup: it.comp.lang.perl
Titolo: Ancora domande cgi in background..

Dovrei fare in modo che  lo script rimanga in attesa di un eveto "ora"  o
che si
avvii ogni tot. min.
Che funzioni devo usare?
P.s Graditissimi gli esempi!
Grazie in ogni caso.
Bye
Fulvio

che si avvii ogni tot. min.
Usa "cron" (sotto Unix).
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 ha scritto nel messaggio
news:slrn8fra...@karma.italpro.to...


 wrote in message
8dkb00$lom$1...@pegasus.tiscalinet.it...


cron non è dispendioso?
Non troppo, e probabilmente e` gia` in esecuzione sul tuo server.
Per l'utilizzo leggi le man page:
man cron
man crontab


Ma non sarà troppo dispondioso in termini di risorse?
la memoria resta allocata
evita pero' di fare cose tipo for($i;$i<1000000;$i++)
;)
Oha
-- 
#include <disclaimer.h>
Newsgroup: it.comp.lang.perl
Titolo: [principiante] Estrarre indirizzi web da pagina...web!

Salve a tutti.
Da tempo uso la possibilità di google di costruire propri motori di ricerca 
inserendo in una lista i siti su cui effettuare la ricerca. Vengo al mio 
problema: voglio realizzare un motore che ricerchi documenti solo nei siti 
della PA italiana (regioni, province, comuni, ...) per farlo voglio 
interrogare il sito 
ancitel.it
 e prelevare dalle pagine web create gli 
indirizzi web. Volendo imparare perl pensavo di unire l'utile al 
dilettevole.
Qualcuno puo suggerirmi su come procedere oppure se qualcuno ha già 
affrontato e risolto un problema simile?
Grazie per le risposte.
Franco A. 

kenny wrote:

Un sacco di gente.
Difatti su CPAN ci sono svariati moduli per farlo, tra i quali ti 
segnalo questi due:
http://search.cpan.org/perldoc?HTML::LinkExtractor
http://search.cpan.org/perldoc?HTML::LinkExtor
Sono entrambi basati su HTML::Parser, altrimenti un altro approccio è 
quello regex-based, ma se le URL compaiono come link, come nel sito 
www.ancitel.it
, è preferibile il primo approccio.
Che forse è anche più istruttivo, perché imparare ad usare i moduli 
esterni (e CPAN) è probabilmente più importante che imparare le regex, 
che tra l'altro per questo particolare caso trovi già bell'e pronte:
http://search.cpan.org/perldoc?Regexp::Common::URI::http
(Però anche le regex hanno la loro porca importanza).
Ciao,
Emanuele.

Grazie per le info, spero di imparare presto e bene il perl perche mi sembra 
un linguaggio dalle potenzialita fantastiche. Un grazie per le notizie date.
saluti. 

 un linguaggio dalle potenzialita fantastiche.
Ti confermo che hai fatto un'ottima scelta: tra i linguaggi di 
programmazione odierni, le potenzialità di Perl (+CPAN) sono veramente 
ineguagliate ;-)
Rileggendo meglio il tuo messaggio originario (dopo 2 giorni, che 
fulmine che sono), mi sono reso conto che per automatizzare 
completamente il tuo task, probabilmente hai bisogno anche di uno user 
agent http programmabile.
Nessun problema neanche per questo ;-)
CPAN ti mette a disposizione roba come LWP::UserAgent o WWW::Mechanize, 
o come Web::Scraper che unisce sotto un'unica interfaccia LWP::UserAgent 
e HTML::Parser (ovvero, se vuoi fai tutto soltanto con quello).
(La ricerca su CPAN dei moduli predetti la lascio a te ;-)
Ciao e benvenuto,
Emanuele.
Newsgroup: it.comp.lang.perl
Titolo: Subroutine

Ciao.
Chi mi aiuta nel capire qual'č la funzione svolta da queste 2
subroutine?
##################################################################
sub get_the_lock
{
  $lockfile="$TEMPDIR/bnbbook.lck";
  local ($endtime);
  $endtime = 60;
  $endtime = time + $endtime;
  while (-e $lockfile && time < $endtime)
   {
    # Do Nothing
   }
   open(LOCK_FILE, ">$lockfile");
}
##################################################################
sub drop_the_lock
{
  close($lockfile);
  unlink($lockfile);
}
##################################################################
In particolare la variabile $TEMPDIR che dovrebbere trovarsi nella
dir "/tmp" o almeno cosě mi pare di capire:
# $TEMPDIR is a directory on your server where you have permission to
# write files that will be deleted when the script finishes running.
   $TEMPDIR="/tmp";
Grazie mille a chi mi da un aiutino.
Buon Tutto a tutti.
Armando.
Sent via Deja.com 
http://www.deja.com/
Before you buy.

 
Ok, e qual è il problema qui?
Max


Ciao Max e grazie.
Parto subito dalla $TEMPDIR:
Il problema che mi chiedi è: esiste, sul mio server la dir /tmp?
Dalla tua risposta, capisco (per quanto possa capirne :-) ) che le
subroutine in questione non funzionano.
Per inciso ti dico che già ho postato questo tipo di problema, e molto
cortesemente il Sig. o, meglio,  Dottor Luca Fini, aveva risposto al
mio quesito...solo che a causa della mia quasi totale ignoranza in
materia di PERL non sono riuscito (ma ci riuscirò mai?) a mettere in
pratica i suoi consigli.
Il problema riguarda il Guestbook del mio sito. Questo Guestbook viene
usato più come una chat che come Libro ospiti. Avviene quindi che, se
più utenti utilizzano il "guestbook.cgi" questo si "autosospende". Non
solo: a volte si "autosospende" anche con un unico utente.
Ho scaricato un altro script .cgi nel quale avevo intravisto qualcosa
che assomigliava molto a quanto riferitomi da Luca Fini (le subroutines
di cui si parla) ma, nonostante lo script avesse incorporato questa
specie di "semaforo" le cose vanno sempre allo stesso modo. Lo
script .cgi continua ad "autosospendersi" (guestbook.cgi.suspended)
Questo è, in sintesi :-), il mio problema.
Fare in modo che lo script in questione non si autosospenda.
Dove posso trovare dei "semafori" che siano realmente tali?
Qualcuno può fornirmi del codice da inserire nello scripts che vada in
questa direzione o tutto è legato alla struttura generale dello
script .cgi stesso?
Sono disperato...e il guestbook più che una necessità è un fatto
affettivo...
Help-me....
Saluti. Armando.
P.S. Acc. pensavo che il Perl fosse più semplice...mi rendo conto che
non è così...o forse son io che son duro?
http://stradafacendo.webprovider.com/gbook/frameguest.html

Newsgroup: it.comp.lang.perl
Titolo: Vendo libri Nuovi a prezzi imbattibili.

Vendo libri Nuovi a prezzi imbattibili. Se volete ricevere i listini delle
disponibilità in formato "Excel", contattatemi a questo indirizzo:
giacom...@inwind.it
--------------------------------
Inviato via 
http://usenet.libero.it

books on line wrote:


e chi se ne frega :PPPP
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************

Newsgroup: it.comp.lang.perl
Titolo: Modem in Perl ?

Ciao a tutti,
come faccio a mandare e ricevere dati a un modem in Perl ??
Io uso linux 2.0.30 e mi piacerebbe fare un interfaccia cgi-bin
per controllare a distanza un modem,
Saluti, Andrea Borgnino 
a.bor...@agora.stm.it

 wrote:
: come faccio a mandare e ricevere dati a un modem in Perl ??
: Io uso linux 2.0.30 e mi piacerebbe fare un interfaccia cgi-bin
: per controllare a distanza un modem,
Solo qualche attenzione particolare: dopo aver aperto il modem:
open MODEM, "+>/dev/cua1" or die "Non posso usare il modem: $!";
devi configurare il terminale in modo raw e noecho:
system "/bin/stty raw -echo </dev/cua1";
poi vai di sysread e syswrite. Alla fine un bel:
system "/bin/stty cooked echo </dev/cua1";
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E

Newsgroup: it.comp.lang.perl
Titolo: [semi-OT] Perl, Asp, Php

Da un po' di tempo mi sto avvicinando al Perl.
Dopo un'iniziale smarrimento ne sto apprezzando
la potenza e la compattezza e m sono deciso
ad approfondirne lo studio con serietà.
La ragione per cui ho cominciato a studiare il Perl
è che cercavo un linguaggio in grado automatizzare
delle manipolazioni di stringhe che mi servivano per
creare report di carattere scientifico e gestire i 
risultati di esperimenti ed in questo PERL si è
riveltao eccezionale.
Studiandolo mi sto accorgendo che si presta anche
allo sviluppo di applicazioni "lato-server" per la rete
un po' come fanno (credo) ASP e PHP, linguaggi che 
ignoro completamente.
Approfitto quindi del NG per sottoporvi i seguenti dubbi :
Limitatamente allo sviluppo di applicazioni
per il web posso fare in PERL tutto quello
che potrei fare in ASP e/o PHP e viceversa ?
Perché ho l'impressione che la conoscenza
di ASP (e PHP) sia preferita a quella del PERL 
nel mondo del lavoro ?
Una conoscenza approfondita del PERL 
può aiutarmi ad imparare poi ASP e/o PHP ?
E se si in che misura.
Grazie mille a chi mi risponderà.
Saluti.
Alessandro
____________________________
Alessandro Antonucci
af...@NOSPAMinwind.it
www.ilfarorosso.com

 E se si in che misura.
ASP non definisce un linguaggio ma solo un'interfaccia verso il server web, 
puoi create pagine ASP in vbscript, javascript ed anche in perlscript 
(
www.activestate.com
).
PHP invece e' un linguaggio sintatticamente simile al C e a Perl.
La mia opinione e' che se impari bene a programmare in Perl puoi fare 
benissimo a meno di PHP :)
-- 
/federico