mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Database, questo strano alieno

Ciao a tutti e grazie fin da ora per aver solamente cliccato su questa email
(se poi la leggete, grazie due volte).
Conosco sola la punta del Perl, cioè so programmare un sito dinamico (o per
lo meno mi ci avvicino molto) e so creare anche un search engine. Per cui ho
una conoscenza base di Perl che sta maturando col tempo.
La potenza del Perl mi ha lasciato esterefatto e sono pronto al passo
decisivo: il mondo dei database.
Per iniziare e comprendere, quindi, i meccanismi, voglio fare un semplice
programma, tipo la gestione delle squadre di calcio, magari, per ogni
giocatore metterei qualche dato tecnico, avrei dei report sul calciatore più
in gamba, aggiornei i suoi gol e così via... Per cui:
1) che database usare e perchè ?
2) di quali strumenti ho bisogno per creare il database ?
3) di quali strumenti necessito per linkare il database al Perl ?
4) come controllo il Db tramite Perl ?
5) tutorial tutorial tutorial...
=> Se leggi questo, non ti sei addormentato e puoi continuare oltre <=
Ringrazio anticipatamente e calorosamente (visto il tempo brutto che
imperversa da queste parti) chiunque sarà così gentile da indicarmi il
sentiero da percorrere tramite email, url, messaggi di fumo e altro.
Che il Perl sia con Voi,
ciao e buon lavoro,
Mkè

 sentiero da percorrere tramite email, url, messaggi di fumo e altro.
Ecco il sentiero:
 1. scegliere il database 
    [beh, se lavori sotto un qualche *nix, usa Mysql e non pensarci oltre]
 2. scaricare DBI
 
http://search.cpan.org?mode=module&query=dbi
 3. leggere molto bene
    perldoc DBI
    perldoc DBI::FAQ
 4. scaricare, compilare e installare DBD appropriato
 
http://search.cpan.org?mode=module&query=dbd
 
http://dbi.symbolstone.org
 
 5. visitare la home page di DBI
 
http://www.symbolstone.org/technology/perl/DBI
    oppure  
http://dbi.symbolstone.org
Tutto questo però presuppone che tu sappia cos'è un DB relazionale e
conosca sufficientemente il SQL. In caso contrario, manca un pezzo di
sentiero.
Max

 ha scritto nel messaggio
news:Pine.LNX.4.10.101042...@c64.comm2000.it...


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

vediamo se c'è qualcuno in ascolto :-D
il mio cervello ormai complici caldo, ed età avanzata, perde colpi... ma 
i moduli Cpan si devono installare da root?
 
 
-- 
Fri(END), Boyfri(END), Girlfri(END), Bestfri(END). Everything has an END 
except...Fam(ILY)! It Has 3 Letters that say I LOVE YOU

 
 
Posso dirti che io li ho sempre installati come root anche perchè
 il path di installazione del perl - sulle mie macchine -
 appartiene a root ed è leggibile da tutti. Ma potresti
 installarti il perl al di sotto di $HOME, e qui il discorso
 cambia.
 
 
-- 
 
 
----Android NewsGroup Reader----
http://usenet.sinaapp.com/
 
 
--- news://
freenews.netfront.net/
 - complaints: 
ne...@netfront.net
 ---

  cambia.
 
diciamo in una normale distribuzione (debian per es.) dove perl è 
installato di default. In sostanza se installo un modulo da !=root 
funziona solo se uso l'utente con il quale l'ho installato?

Newsgroup: it.comp.lang.perl
Titolo: Perl e PAssword!

quando si ha a che fare con la console:
al momento dell'inserimento di una password (o di dati confidenziali)
non vorrei che il terminale visualizzi quello che l'utente scrive! Come
e' possibile farlo? Se qualcuno ci ha gia' lavorato sopra su questo
problema... mi risponda!
Non voglio, per il momento usare un file di password!
Andrea

 problema... mi risponda!
Perlfaq8
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 wrote:
: quando si ha a che fare con la console:
: al momento dell'inserimento di una password (o di dati confidenziali)
: non vorrei che il terminale visualizzi quello che l'utente scrive! Come
man perlfaq8
dovresti averlo se la tua distribuzione e` completa.
-- 
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

 problema... mi risponda!
Se usi *nix questo dovrebbe funzionare
...
       print "\nEntra la Password: ";
       system('stty', '-echo');
        chop($pwd = <STDIN>);
       system('stty', 'echo');
...
ciau
Mario Protto
ma...@net4u.it
www.net4u.it

Grazie a tutti, siete stati tutti molto utili ed esaudienti!
Andrea

Newsgroup: it.comp.lang.perl
Titolo: Problemino inviando email

\n";
print MAIL "To: $email <$myemail>\n";
print MAIL "Subject: PROVA\n\n";
print MAIL "PROVA\n";
close MAIL;
ovviamente se come $email metto una email valida ho controllato che tutto
funziona, ma a me interessava provare se l'indirizzo al quale inviare
l'email non è valido.
Mettendo come email 
gfgg...@gfhjht.it
 speravo di ricevere al mio indirizzo
(che ho messo nel "campo" From) il messaggio:
   - These recipients of your message have been processed by the mail
server: 
gfgg...@gfhjht.it
; Failed; 5.4.3 (routing server failure)
che mi avvisava della non validità dell'email.... invece...nulla (come
temevo)
Da cosa dipende ciò? è possibile fare in modo di ricevere il suddetto
messaggio in caso di indirizzo non valido?
Per caso dipende dal ReturnPath? In questo caso come posso inviare email
specificando come returnpath la mia email?
Ciao e grazie
SK



> Per caso dipende dal ReturnPath? In questo caso come posso inviare email
Il valore del Return-Path credo che dipende dal sendmail che usi, in
qualsiasi
caso se c'è un messaggio di errore il server non invia mai l'email
all'indirizzo specificato nel From: ma sempre a quello del Return-Path come
da RFC.
--
Saluti
~~~~~~~~~~~~~~~~~
Veneziano Davide (
ve...@vene.ws
)
http://www.vene.ws
  Faq e manuali, Servizi Internet
http://mail.vene.ws
 E-mail Gratuite Pop3/Smtp/Web
ICQ# 14047537

 da RFC.
Molte grazie, avevo letto tempo fa come inviare email specificando il
ReturnPath, farò una ricerca con deja sperando di trovare qualcosa, cmq se
qualcuno ha un suggerimento è ben accetto!!
Ciao
SK
Newsgroup: it.comp.lang.perl
Titolo: libnewt in perl qualcosa di simile?

Per ottenere qualcosa di simile:
 
http://dhcp-conf.sourceforge.net/common.gif
mi servirebbeper un programmino che lavori via terminale (quindi niente
GTK o simili)

,
scriveva:

Per la questione "via terminale" non so; di moduli per costruire
interfaccie a caratteri ce ne sono diversi. Il più elementare è forse
Term::ANSIColor, ma è possibile appoggiarsi anche alle curses (modulo
Curses), o anche alle S-Lang (direttamente tramite il modulo Term::SLang,
ma esiste anche un modulo Term::Newt, ancora in alpha credo, e
Term::Stool).
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Intercettare il PID di un processo...

Salve a tutti,
dovrei scrivere un programmino che dopo aver ricevuto varie info in
ingresso fa partire un eseguibile in nohup e in background.
Lo stesso programmino dovrebbe dare in seguito la possibilita' di killare
il processo.
C'e' un modo di intercettare il PID col quale parte l'eseguibile?
Ho provato varie soluzioni ma non funzionano. p.e.
1)$pid=`nohup comando &`; 
2) $cmd="nohup comando &";
   $pid=system($cmd);
Grazie
--------------------------------      /\\\\\\
Enrico Morelli                       /\|||||||
----                                /__ __ ::;
CE.R.M.                            |  O O   _
CEntro Risonanze Magnetiche          /     | | 
---                                 |_/     _| 
Tel  : 
+39 055 4209269
               |_/   |
Fax  : 
+39 055 4209253
               |    /
e-mail: 
mor...@cerm.unifi.it
       /   _/
http://litio.cerm.unifi.it/~morelli
 _ /
------------------------------------------- 
Centro di Risonanze Magnetiche
Polo Scientifico - Universita' di Firenze
Via Luigi Sacconi, 6
50019 Sesto Fiorentino (FI)
--------------------------------------------
-----BEGIN PGP PUBLIC KEY BLOCK-----
Version: PGPfreeware 5.0i for non-commercial use
mQGiBDmj5dMRBADV1wp4QRQ79WCyDphbWCBdWetYQrzBYPxQcOU4ws8tiblwrS3f
iGMJFH1P4R1VXlSKuFoPr9L4Z+T+4FRQzy1bU8Su9CT5wvaqPqE3MBqwpCuZdIVV
nlLNXqlh9lWSpSJYKLj+LIFOEYlc9JBuuFwEyyHj2VmfXp2ByGipx9L2zQCg/31A
2UjQ2hamsdXUU0DR7m6KmRsEAKvsPBKwazKjq3iRHXKkF49iWLcCS9E5wSQ3Fyax
R/O5Q2AjrzXCMbQxeoMbWGR5BzaxJOqnKxuCDYIiV85RqvFTW+R/TKolSZdvpgH5
SKWd3KZs0Of3Y90HzK5HNOAA1H1xtVBs6CvL3gyns1DYz9GRNsHEATq6AmyE9uCP
lVs3BACsF/HlvQhBS1YHfsufsj8ma77mk5XvMgm9VwZje81jE3THyt7Y1kGAfjEo
rf+BGSn9HOm74rAreCsxnZE1wHgwdpvWGF8Y4rKsngknRizjSVWgGSDRZaBbwOvI
p1XmiAuNAmW3CvcFCYOAK+UWDAN7gbmKbDPmXOrqIL4g5+XUKbQmRW5yaWNvIE1v
cmVsbGkgPG1vcmVsbGlAY2VybS51bmlmaS5pdD6JAEsEEBECAAsFAjmj5dMECwMB
AgAKCRDeSiHb3ArdvzmpAJ4h3WTK8dlEh+usXKDKRsReeQtOxwCeI80d6zjV39DB
Pw4A0uJctKfqo8q5AQ0EOaPl3BAEAOvOi8Vr5eoCx2G5IhuAaUXE7c92rYrY8NSj
izDBxYatLE2NdJAPoz66cbRKPvqaLAu+Jdg0ImC3YINN3Kgtttz1P0Wn0Q/tpAOp
8y1m3zg7pNVkY3ZQ0pZY+hq7zEYAV4g8Z4YsWHesM9Tq3942iWKfybiAO8V1Xkfj
/SLmev8ZAAICBADL9+LWL+UejkN9yxvv2c3lvXf/OV6p+nta8fm8NPk8lhIqZFFp
X09kvJInMPAUjP1VMMPE6hQSxmJCQKUa+OZF5wbGFKiX1C5w88OUpCJXgXxACAjC
zwnNYNSAqG1s0KITF2BE/evtltrkgp5ocqkBcxnKhh3h5uUoi0teS7W9nokAPwMF
GDmj5dzeSiHb3ArdvxECxoAAoOIPg9g2j0WG2r8atkIKeKYOWKcrAKDYzJr4gnLL
A4r9wqoFojM8rMkfAw==
=iYyE
-----END PGP PUBLIC KEY BLOCK-----

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

 
Scusa per la firma, mi e' scappata ;-)
Il programma parte con qualcosa del tipo:
$cmd="nohup programma &";
system($cmd);
Newsgroup: it.comp.lang.perl
Titolo: blocco if su una linea

Salve,
   volevo sapere come scrivere questo blocco if in una riga sola usando 
"?" e ":"
if ($result)
{
   $result = 1;
} else {
   $result = 0;
}
grazie

Larry wrote:

$result = $result ? 1 : 0;
Newsgroup: it.comp.lang.perl
Titolo: Interazione DBD::mysql e MySQL sui tipi BLOB

Non so se il gruppo sia il piu' indicato e me ne scuso in anticipo in
caso non lo fosse.
Ho una questione noiosa con una CGI e un server MySQL. Una tabella ha
una colonna
MEDIUMBLOB (16Mega circa) e non riesco ad uploadare i dati per intero.
Ho letto a proposito di bind_param e delle costanti esportate da DBI,
per cui ho tentato
cosi':
    use DBI qq(:sql_types);
    [ ... omissis ... ]
    my $st = qq# INSERT INTO trans ( $field ) VALUES ( ? )#;
    my $sth = $dbh->prepare( $st );
    $sth->bind_param( 1, $out, { TYPE => SQL_LONGVARBINARY } );
    $sth->execute();
peccato che anche in questo caso ottenga un messaggio nei log come il
seguente:
DBD::mysql::st execute failed: MySQL server has gone away at
/var/www/
www.stru.it/cgi-bin/provastru.pl
 line 29.
In sostanza a meta' (magari meta') dell'invio dei dati il server si
disconnette: mando su si e no un mega e qualcosa.
Qualcuno sa dirmi come uscirne?
Grazie anticipatamente a tutti.
Andrea

Qualcuno sa dirmi come uscirne?
Puoi guardare i log di Mysql?
Potrebbe essere che la query di insert eccede la dimensione massima del
pacchetto accettato dal server. Non mi ricordo quanto e' il default, puoi
alzare questo valore lanciando il server coin l'opzione:
--set-variable=max_allowed_packet=<size>
-- 
Saluti,
Giancarlo

Newsgroup: it.comp.lang.perl
Titolo: richiesta consulenza

sono a richiedere una consulenza a voi esperti
sono alla ricerca di uno script per interfacciare il mio sito  con la banca
sella riguardante i pagamenti con carta di credito se qualcuno lo ha
disponibile può mandarmi un e-mail
mag...@magia96.com
giancarlo morgavi

sella riguardante i pagamenti con carta di credito se qualcuno lo ha
oviamente e' non a fini di lucro, non e' vero?
Oha
-- 
#include <disclaimer.h>

 se qualcuno lo ha disponibile può mandarmi un e-mail
  Contatta direttamente la Banca Sella: essa fornisce (caso quasi unico
in Italia (1) ) un servizio di interfaccia verso i servizi interbancari
molto ben fatto e, soprattutto, a loro completa cura. Ovviamente, si
fanno anche pagare... ;)
	Alla prossima,
		Marco
(1) Anche il Monte dei Paschi di Siena, AFAIK, lo fa.




 la banca sella riguardante i pagamenti con carta di credito

Newsgroup: it.comp.lang.perl
Titolo: Gestione Datbase Access

Salve a tutti, la domanda potrà essere per alcuni banale,
ma sono un neofita di perl e vorrei chiedere come è
possibile gestire praticamente un database access. Ad
esempio modificarlo o leggerlo dal web.
Inoltre qualcuno potrebbe consigliarmi qualche sito
(preferibilmente in italiano) dove poter trovare argomenti
di questo genere.
Ringrazio tutti e arrivederci.
* Sent from AltaVista 
http://www.altavista.com
 Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping.  Smart is Beautiful

 database access. Ad esempio modificarlo o leggerlo dal web.
  Ci sono due possibilita`:
  1. Trovi in rete il modulo ODBC.pm, registri il database in ODBC e 
     ci accedi via query SQL per mezzo del DSN che hai scelto;
  2. Usi il modulo OLE.pm ed utilizzi le API della Microsoft, 
     per esempio le DAO.
  Ovviamente, ti consiglio la prima ipotesi. Il modulo, inoltre, e` ben
documentato.
	Alla prossima,
		Marco

Newsgroup: it.comp.lang.perl
Titolo: hash: come trovare la key noto il value?

Ho usato l'hash per gestire una struttura dati tipo questa:
my %H = (
   'ID1' => 'pippo',
   'ID2' => 'pluto',
   'ID3' => 'paperino',
);
e conoscendo la chiave posso facilmente ricavare il valore
my $v = %H->{'ID1'};
e fin qui tutto facile.
Solo che ora per una certa operazione mi trovo nella condizione che dato 
il valore devo individuare la chiave (sono univoci anche i valori nella 
mia circostanza).
Mi sapete suggerire qualcosa?
Alla peggio potrei creare un secondo hash
my %H1 = (
   'pippo'    => 'ID1',
   'pluto'    => 'ID2',
   'paperino' => 'ID3',
);
e pescare la chiave dal valore usando questo.
my $k = %H1->{'pippo'};
O c'e' un modo diverso?

O c'e' un modo diverso?
No, a meno che tu non abbia qualche intelligenza sul modo in cui
vengono assegnate le chiavi, che stabilisca qualche relazione fra
chiave e valore, l'unico altro modo è scorrere tutto l'hash finché non
si incontra il valore cercato. Non è neppur troppo male come sistema
(O(N)), ma certo è più veloce mantenere un hash inverso.
Ciao.


No, purtroppo non esiste alcun legame tra chiave e valore.
O meglio, le chiavi hanno una logica progressiva, ma il valore e' 
puramente descrittivo sebbene univoco (e' una denominazione della chiave).
Comunque ho implementato un hash inverso che inizializzo all'atto del 
caricamento dei valori da file, in parallelo con l'hash principale, e il 
tutto funziona a meraviglia.
Solo che non ho idea che impatto abbia in termini di consumo di memoria.
Dovrei fare delle verifiche quando sara' a pieno carico, ma l'importante 
e' che funzioni.

 Mi sapete suggerire qualcosa?
my %h2 = reverse %H;
my $key_by_value = $h2{pippo};
Ciao,
Emanuele.
Newsgroup: it.comp.lang.perl
Titolo: creazione mud

Salve
Sto cercando di realizzare un piccolo mud ( se va bene potrà anche
crescere), il fatto è che lo sto realizzando nel linguaggio
perl, linguaggio che prima di questo proggetto non conoscevo affatto.
Ora ho un prloblema( non so se sto scrivendo nel newsgroup giusto) , quando
si creano connesione socket con il moduloIO::Socket risultano tutte separate
da loro e non riesco a creare una comunicazione tra loro. Altri linguaggi
usano un thread per ogni conessione per risolvere questo fatto. Non
conoscendo bene il linguaggio perl, vi chiedo se potete aiutarmi.
Potete anche trovare il codice del mud nel sito
http://gultec.interfree.it/script.htm
Grazie

fatto. Non conoscendo bene il linguaggio perl, vi chiedo se potete aiutarmi.
Dai un'occhiata a perlipc.
I thread, di per sé, non so bene che c'entrino, perché poi si dovrà sempre
trovare un sistema per comunicare, comunque un certo uso dei thread si può
fare anche perl: leggi perlthrtut.
Inoltre, secondo il sistema in cui stai lavorando, ci possono anche altri
sistemi. In Windows, per esempio, il modulo Win32::IPC, e altri.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Marco Cacchiani Help...

Sto utilizzando il tuo programmino (con alcune modifiche) che è ottimo!
Sarebbe perfetto se il file fosse preso una linea (riga) alla volta.
Come dovrei modificarlo?
Grazie comunque mi sei stato di molto aiuto!
Bye
Fulvio
#!/usr/bin/perl
# Most error checking left out for brevity.
# Requires at least Perl version 5.
# Usage: httpget host[:port]/path/[file]
$_ = shift @ARGV;
($site, $url) = /(^.+?)(\/.*)/;
if ($url !~ /\/$/) {
        ($path,$file) = ($url =~ /(.*)\/(.+)/);
}
$_ = $site; ($desthost, $port) = /([^:]*)(.*)/;
$port = 80 unless $port;        # Default http port is 80
print STDERR "Salvo $path/$file da $desthost, porta $port\n";
use Socket;
chop($thishost = `hostname`);
$proto = (getprotobyname('tcp'))[2];
# Unless service is a number, look it up in /etc/services.
$port = (getservbyname($port, 'tcp'))[2] unless $port =~ /^\d+$/;
$thisaddr = (gethostbyname($thishost))[4];
$thataddr = (gethostbyname($desthost))[4] ||
        die "Unknown host '$desthost'";
$this = pack('S n a4 x8', AF_INET, 0, $thisaddr);
$that = pack('S n a4 x8', AF_INET, $port, $thataddr);
# Create the connection to a remote server.
socket(S, PF_INET, SOCK_STREAM, $proto) || die "socket: $!";
bind(S, $this) || die "bind: $!";
connect(S, $that) || die "connect: $!";
select(S); $| = 1; select(STDOUT);
print S "GET $url\r\n"; # Send request to get the document.
if ($file and $file !~ /\.htm(l*)$/) { open STDOUT,">$file" }
# Teniamo traccia per vedere se la roba arriva o no
$MaxBytes = 1024;
while(<S>) {
        print;
        $count += length($_);
        if ($count >= $MaxBytes) {
                print STDERR '#';
                $count -= $maxbytes;
        }
}       # Read back the result.
close STDOUT if $file and $file !~ /\.htm(l*)$/;
print STDERR "\n";
--

                 print STDERR '#'
FINE DEL PALO
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/

Grazie Marco, non ci crederai ma alla fine l'avevo trovata:
 $line=$_;
e ne ho subito approfittato per rielaborarla a piacimento!
Comunque grazie per il resto delle spiegazioni, molte cose non le avevo
ancora capite.
Grazie!!!
Bye
F.
Newsgroup: it.comp.lang.perl
Titolo: RIFERIMENTI

Salve a tutti gli appassionati di Perl. Ho uno script che preleva i dati
da un database e
li usa per generare un grafico. Al momento dell'esecuzione GD::Image
incontra dei problemi con i riferimenti. Ecco il listato
#!/usr/bin/perl -w
use strict;
use diagnostics;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use GD::Graph::pie;
use DBI;
my $query = CGI::new();
my $dbh = DBI->connect("dbi:Pg:dbname=vote_on_line", "www_data", "") ||
die "Could not connect to".
                                              "database: $DBI::errstr";
 
my @names;
my @votes;
my $sql = "SELECT * FROM votes";
my $sth = $dbh->prepare($sql) || die "Error preparing $sql:
$DBI::errstr";
my $result = $sth->execute || die "Error execunting $sql: $DBI::errstr";
while ( my $row = $sth->fetchrow_arrayref) {
        (my $name,my $vote) = @$row;
       push @names,  $name;
       push @votes,  $vote;
 
 
   }
 ###############################################################  
######## FIN quì TUTTO OKKKKKKKKKKKK ############################
 ###############################################################
my @data = (\@names, \@votes);
print $query->header(-type=> "image/x-png");
my $graph = GD::Graph::pie->new(400,300);
print $graph->plot(\@data);
$sth->finish;
$dbh->disconnect;
############################################################################
All'esecuzione ottengo GD::Image=SCALAR(0x841a348). Si tratta di un
problema di deferenziazione. Come si risolve?
Buona giornata.
Giuseppe Ricioppo.

 Si tratta di un problema di deferenziazione. Come si risolve?
Dereferenziando la variabile incriminata?
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 Come si risolve?
GD::Graph::pie::plot restituisce un oggetto (un reference ad un oggetto,
ovviamente) di tipo GD::Image. Per stamparlo devi convertirlo nel formato
che intendi usare, ad es:
 my $gdi = $graph->plot(\@data);
 print $gdi->png;
Max

Newsgroup: it.comp.lang.perl
Titolo: C'e' un altro modo ci commentare?

Salve a tutti, mi chiedevo se ci fosse un altro modo di inserire 
commenti nel codice oltre al normale '#'. In particolare qualcosa che 
raggruppi piu' linee tipo il
/*
c
o
m
m
e
n
t
o
*/
del C.
Grazie,
caligari.

 commenti nel codice oltre al normale '#'. 
http://www.perl.it/faq/faqview.pl?pag=7&faq=26
Ciao :)

Newsgroup: it.comp.lang.perl
Titolo: @INC

ciao
posso modificare @INC prima di chiamare un programma perl ?
Cioe' : posso modificare @INC dal sistema operativo ?
Motivo : non voglio scrivere
 unshift @INC,'/home/www/perl/lib/site_perl/5.8.0';
all'inizio di uno script che deve essere eseguito ogni volta su 4
differenti server.
 Raffaello



Puoi impostare la variabile di ambiente PERL5LIB:
	%> PERL5LIB=/your/lib/dir perl 
yourscript.pl
(oppure la metti nel tuo profilo)
Vedi cmq 
http://www.cpan.org/misc/cpan-faq.html#How_use_private
per maggiori info.
by
	- Enrico
Newsgroup: it.comp.lang.perl
Titolo: Errore strano!

Salve a tutti,
Vorrei porvi un quesito: perchè durante l'esecuzione dello script in
perl 
nmap2nagios.pl
 la shell mi restituisce questo errore...
Pseudo-hashes are deprecated at ./
nmap2nagios.pl
 line 112.
Use of uninitialized value in pattern match (m//) at ./
nmap2nagios.pl
line 112.
Pseudo-hashes are deprecated at ./
nmap2nagios.pl
 line 115.
Use of uninitialized value in pattern match (m//) at ./
nmap2nagios.pl
line 115.
Se qualcuno ha qualche rimedio in merito vi prego di farsi vivo :D
Ciao a tutti!


1. Per fare un po' di troubleshooting, puoi provare ad aggiungere la
riga:
   use diagnostics;
all'inizio, così ti dà più spiegazioni sui messaggi di warning;
2. Se vuoi aiuto sulle righe 112 e 115 sarebbe forse il caso di
riportarle qui, magari con un po' di righe di contesto, il risultato
delle tue analisi (se ne hai fatte) ecc. :)


Ciao polettix,
Grazie di avermi risposto.
Allora diciamo che ho trovato una mini soluzione qui
http://forums.bfl-solutions.eu/viewtopic.php?t=1791&highlight=nmap2nagios
.
Dico mini perchè proprio come è scritto nell'ultimo post, in alcuni
casi lo script da il seguente errore:
NOT an Array reference at line :
foreach my $addr_ref (@ { $nmap_host_ref->{'address'} }) {
Tuttavia ho capito che principalmente l'errore si verifica quando lo
script in perl nmap2nagios prende in input l'xml. A volte l'xml
generato da nmap presenta dei tag differenti e quindi non sempre la
soluzione che ho trovato va bene. Ora però la mia domanda è
differente; come è possibile contare il numero dei tag all'interno del
file xml?.. mi spiego meglio.. se ad esempio all'interno del mio file
xml è presente
<address addr="x.x.x.x">
<address addr="y.y.y.y">
</address>
come posso associare ad una variabile $x che il tag <address> è
presente due volte?
Perchè in questo modo (un po grottesco) riesco a deviare l'esecuzione
del codice a seconda di com'è il file xml.
Spero di esser stato sufficentemente chiaro :)
Grazie

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

potreste consigliare ad un volenteroso e appassionatissimo studente di Perl
dei siti in cui trovare tonnellate di codice da poter confrontare? Il mio
studio e' eccessivamente teorico e ... solitario :-)
Grazie a tutti, e scusate "l'intrusione"
Carlo

Il migliore :
http://www.perl.com
saluti

Newsgroup: it.comp.lang.perl
Titolo: [OT] ...[modem] presumo che la maggior parte di voi abbia linux...

....quindi scusandomi in anticipo dell'OT e sperando in qualche aiuto
sottopongo anche a voi il problema:
Il motivo di questa mail e' il seguente:
Seguendo passo passo l'isp-hookup howto ed altri ho creato i miei script di
connessione ad una Internet Service Provider remoto per internet.
Lo script funziona..., tanto e' che il modem si connette, ma viene subito
rifiutato e la connessione cade. Ho ottenuto il seguente log di connessione
e credo che la chiave di tutto sia qui, nelle righe
21, 22, 24, in seguito alle quali il demone pppd muore e la connessione
cade.
io mando il log, se qualche anima buona è interessata, e volesse dargli un
occhiata al fine di consigliarmi ne sarei grato...
Serial connection established.
Using interface ppp0
Connect: ppp0 <--> /dev/modem
sent [LCP ConfReq id=0x1 <asyncmap 0x0> <magic 0xa365372a> <pcomp> <accomp>]
rcvd [LCP ConfReq id=0x9f <auth pap> <magic 0x55b792ba> < 11 04 05 f4> < 13
0d 0
1 41 4e 43 4f 4e 41 2d 4d 50 50>]
sent [LCP ConfRej id=0x9f < 11 04 05 f4> < 13 0d 01 41 4e 43 4f 4e 41 2d 4d
50 5
0>]
sent [LCP ConfAck id=0xa0 <auth pap> <magic 0x55b792ba>]
sent [PAP AuthReq id=0x1 user="
as...@libero.it
" password=<hidden>]
rcvd [PAP AuthAck id=0x1 ""]
sent [IPCP ConfReq id=0x1 <addr 0.0.0.0> <compress VJ 0f 01>]
sent [CCP ConfReq id=0x1 <deflate 15> <deflate(old#) 15> <bsd v1 15>]
rcvd [IPCP ConfReq id=0x1 <addr 10.10.10.1>]
sent [IPCP ConfAck id=0x1 <addr 10.10.10.1>]
rcvd [IPCP ConfRej id=0x1 <compress VJ 0f 01>]
sent [IPCP ConfReq id=0x2 <addr 0.0.0.0>]
rcvd [LCP ProtRej id=0x2 80 fd 01 01 00 0f 1a 04 78 00 18 04 78 00 15 03 2f]
rcvd [IPCP ConfNak id=0x2 <addr 151.21.174.120>]
sent [IPCP ConfReq id=0x3 <addr 151.21.174.120>]
rcvd [IPCP ConfAck id=0x3 <addr 151.21.174.120>]
Peer is not authorized to use remote address 10.10.10.1
sent [IPCP TermReq id=0x4 "Unauthorized remote IP address"]
rcvd [IPCP TermAck id=0x4]
sent [LCP TermReq id=0x2 "No network protocols running"]
rcvd [LCP TermAck id=0x2]
Connection terminated.
Connect time 0.1 minutes.
Sent 316 bytes, received 305 bytes.
Grazie a chi mi vorra' aiutare,
ciao, fabio

hai un modem ISDN, per caso il DataSERF (caro!) della telecom? Se si... il
tuo caro modem, insieme a molti altri della stessa famiglia...č destinato a
non connettersi mai, il pppd demone, nun ne vole sapč!

Newsgroup: it.comp.lang.perl
Titolo: Assoluta ignoranza di perl -> RINGRAZIO TUTTI PER

 Si puo' fare una cosa del genere?
-------------------------------------------
-- 
Posted from [151.17.244.130] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Per correttezza, riporto cio' che ho chiesto ....
Non sai fare una reply, non sai quotare, non conosci la netiquette e
questa polemica non ha senso => /dev/plonk
-- 
Oramai che i baci tuoi piu` non mi sazian
cerchero` un'altra donna dentro ai sogni di Tarzan...
Newsgroup: it.comp.lang.perl
Titolo: Perl:calcolo giorno dopo

Esiste una funzione o un modulo per calcolare agevolmente la data del giorno
dopo o precedente contando anche mesi bisestili?
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 dopo o precedente contando anche mesi bisestili?
DateTime:
use DateTime;
my $dt = DateTime->new( year => 2008, month => 2, day => 28 );
$dt->add( days => 1 );
print $dt->dmy('/'); # 29/02/2008
Tiene conto anche del fuso orario e perfino dei secondi intercalari.
http://search.cpan.org/dist/DateTime/

Newsgroup: it.comp.lang.perl
Titolo: end of file

Ciao a tutti,
da poco sono enrtato nel mondo di perl, quindi il mio problema potrą 
sembrarvi stupido, ma non riesco a risolverlo. Come faccio a terminare 
questo pezzo di codice: @array = <STDIN>? Quando lancio il programma 
sotto dos, una volta finito di immettere i dati per l'array, non riesco 
ad uscirne. Avevo provato con con i tasti ctrl+D, ma nulla da fare...
Grazie.
Jay

 Jay
quel pezzo di codice da solo non ha senso

Lo so che non ha senso, ma come faccio a terminare l'immissione degli 
elementi nell'array?


ad uscirne. Avevo provato con con i tasti ctrl+D, ma nulla da fare...
Prova ctrl+Z
'bye

Ho provato tutte le combinazioni con ctrl, ma nulla da fare


Ho provato tutte le combinazioni con ctrl, ma nulla da fare
No, Ctrl-z termina. Naturalmente, perché venga letto Ctrl-z, devi premere
enter, così come per ogni altra riga di input.
Ciao.

Grazie Giovanni, non avevo premuto enter dopo ctrl+z...
Ciao


Newsgroup: it.comp.lang.perl
Titolo: Sempre sul locking

E' meno sicuro scrivere un file esterno per simulare il lock, piuttosto che
usare la funzione flock?
GRazie.
Maurizio!

usare la funzione flock?
Non è meno sicuro sicuramente però devi tenere presente che per
qualche ragione il file potrebbe non venire eliminato e quindi il lock
potrebbe essere permanente. Inoltre dovresti tenere la coda dei
tentativi di accesso al file per far accedere il file successivo non
appena il precedente lo ha liberato
Ciao
Andrea Busia
No Spam, Grazie.

appena il precedente lo ha liberato
Questo non e` garantito nemmeno da flock (ne` dalle altre primitive di
locking di UNIX).
-- 
ciao, |
Marco | * The Internet is full. Go away.  -- Joel Furr *
      | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

 appena il precedente lo ha liberato
GRazie per la risposta!

 Maurizio!
Sono ancora un principiante per quanto riguarda il perl, volevo domandare
come deve essere questo "file esterno" per simulare il flock con Windows98.
Possibilmente potreste farmi un esempio??
Grazie a tutti, leggendo i vostri messaggi ho chiarito molti dubbi, spero di
poter risolvere anche questo!!
Luca
Newsgroup: it.comp.lang.perl
Titolo: Net::POP3

Salve a tutti,
spero che qualche abile programmatore possa colmare una mia piccola lacuna
riguardo all'uso del modulo Net:::POP3.
Sto facendo un programma ed ho la nescessità (usando questo modulo) di poter
leggere la risposta del MailServer al momento della connessione, per poter
estrarre da questa la stringa utile per criptare la password con MD5 e poter
procedere al login in APOP.
    Purtroppo alla creazione di un nuovo oggetto Net::POP3, la risposta del
server la posso solo intuire a seconda che il valore che mi torna indietro
sia undefined o defined.
Avevo pensato di usare una connessione tramite il modulo Socket e con questo
carpire l'agognata risposta del Server, ma poi (ovviamente) mi era
impossibile utilizzare l'informazione ottenuta con Net::POP3.
Sperando in un risolutivo aiuto,
anticipatamente ringrazio
    Lorenzo
    E-Mail: 
ita...@technologist.com

 writes:
L> Sto facendo un programma ed ho la nescessità (usando questo modulo) di poter
L> leggere la risposta del MailServer al momento della connessione, per poter
L> estrarre da questa la stringa utile per criptare la password con MD5 e poter
L> procedere al login in APOP.
 Si j'ai bien compris (mon italien est très vieux :-)) vous voulez vous
connecter par APOP. Pourquoi vous n'utilisez pas la méthode apop() de
Net::POP3 ?
moulon% perldoc Net::POP3
[...]
     apop ( USER, PASS )
         Authenticate with the server identifying as USER with
         password PASS.  Similar ti the login manpage, but the
         password is not sent in clear text.
 
         To use this method you must have the MD5 package
         installed, if you do not this method will return undef
[...]
-- 
Guy Decoux

Salve gente....
...qualche giorno fa' ho postato una richiesta d'aiuto a cui NESSUNO ha
risposto...
leggendo i vari altri messaggi ho notato i VS/ e sono rimasto interessato
dal modulo di cui parlate NET::POP3, sareste cosi' gentili da spiegarmi cosa
fa e cosa non fa ?
Cia' e grazie in anticipo!
Tony
P.S. il mio problema e' quello di dover scrivere un Proxy per la posta
elettronica...ma non so da dove cominciare !?!?

Newsgroup: it.comp.lang.perl
Titolo: perl win e perl unix: che differenze?

Ho cercato molto in rete un documento che elenchi quali differenze esistano
tra perl per win e perl per unix, ma non sono riuscito a trovare niente.
in pratica vorrei capire per quali motivi uno script che va su win non va su
unix, quali sono le funzioni incompatibili ecc....
grazie

Vorrei saperlo anche io... proverò a cercare qualcosa, poi ti faccio sapere.
---------------------------------------
Un uomo è ricco
in proporzione al numero di cose
a cui può permettersi di rinunciare.
                               Thoreau
--
Posted from 
relay2.inwind.it
 [212.141.53.73] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG



 perldoc perlport 
 
http://www.perldoc.com/perl5.6/pod/perlport.html
Newsgroup: it.comp.lang.perl
Titolo: espressione regolare

Ciao a tutti,
devo fare un controllo su una stringa. Questa deve essere formata da soli
caratteri dell'alfabeto [a-z] e può contenere degli spazi che però possono
essere presenti solo uno alla volta.

if ( /[^a-z ]/ || /\s\s/  ){print "NO"}
else {print "OK"}
provalo che io non ne ho il tempo...
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"



Prova con questa :)
/^(?:[a-z]|\s(?!\s))*?$/;
-- 
# Roberto Natella "Domine"           
http://www.autistici.org/domine/index.php
@a=qw/i p s hax t xlpx u e t o q hx e u l ae f o rrr a k t cn j /;unshift@a,[@
a];chop($b=$b=~/^.{0,$_}/&&$&.(chop$b).$')for 0..length ($b=join$b,a..x);$b=~/
$&/x,$c=$-[0]||$c||length$b,$_.=chop$a[$c],/.$/while$#a>=length;s/$&/ /g,print

 /^(?:[a-z]|\s(?!\s))*?$/;
Con questo sistema mi pare che tu controlli TUTTA la stringa, carattere per
carattere dall'inizio, facendo verificare per ogni carattere se si tratta di
un [a-z] o di uno spazio NON seguito da un altro spazio! Funziona, ma non
dovrebbe essere il massimo dell'efficienza!
Infatti:
 1. il ? finale farebbe il match sulla stringa piů corta, ma qui č superfluo
perché segue un $ di fine stringa. Le RE sono ottimizzate proprio per
cercare la stringa piů lunga e non la piů corta, quindi lo stai costringendo
a fare qualcosa superfluo (funziona allo stesso modo senza ?) che richiede
piů fatica :-)
2. | č piů rapido usare /A/ || /B/ che /(A|B)/. La seconda forma č
preferibile per i casi in cui ti serve PROPRIO il back reference (che tu
invece esplicitamente hai dichiarato di non volere con ?: all'inizio della
parentesi :-)
In questo caso dovrebbe essere piů efficiente (oltre che piů intuitivo)
scartare l la stringa SE contiene un qualunque carattere in qualunque
posizione che NON sia [a-z ] o (||) SE cointiene due spazi consecutivi. Non
ho tempo per fare un test, perň secondo quanto dice la bibbia dovrebbe
essere piů rapido.
/[^a-z ]/ || /\s\s/
da true se la stringa contiene qualche carattere proibito ;-).
ciao


 ciao
grazie per i chiarimenti :)


 ciao
grazie per i chiarimenti :)
-- 


Sun, 23 Mar 2003 14:17:12 +0100, Peppe Totaro ha scritto:

Prova con questa :)
/^((?:[a-z]|\s(?!\s))*?)$/;
$1 contiene la stringa stessa se risponde a quei requisiti, altrimenti è
vuota.
-- 
$ perl -l15e '     $x--;;$_
               +=((unpack"B32"         # Roberto Natella "Domine"
              ,pack"     N",$x)        #
              =~/01$     /x||-1)       # domine at 
paranoici.org
              *4/$x,print,while        #
              $x+=                     # WWW: 
autistici.org/domine
               2;qw          ;         # ICQ: 158884976
                 Another Math
                    Hack;              '

perdonatemi!! ho fatto un disastro con Pan :((
Newsgroup: it.comp.lang.perl
Titolo: cerco buon manuale

cerco nu manuale scaricabile dalla rete....non porprio per beginner...
grazie

cerco nu manuale scaricabile dalla rete....non porprio per beginner...
Prova a guardare su:
http://www.perl.com/reference/
C'e` di tutto.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/

Newsgroup: it.comp.lang.perl
Titolo: tutorial socket

salve a tutti,programmo da poco tempo in perl,ho iniziato ad imparare le
cose più elementari e sto cercando con insuccesso quelche tutorial che
spieghi come programmare i socket in perl.
Per ora ho trovato al massimo qualche sorgente sul sito ufficiale del perl
ma non riesco a trovare tutorial sui socket.
spero che qualcuno di voi mi possa aiutare grazie.!

 spieghi come programmare i socket in perl.
man perlipc se usi unix/linux
-- 
             Signature for rent!
          Questo spazio si affitta!
contact:
bro...@mailandnews.com

Newsgroup: it.comp.lang.perl
Titolo: Editor per programmazione ovviamente in Perl.

Sapete di un editor ( piattaforma Linux X86 ) che sia userfriendly tipo
Kwrite, abiword il topico sarebbe un Quanta per programmazione ?
Saluti
---------------------------
         GazziNet
 
www.gazzi.net
www.christian.gozzi.name
-----------------------------

 tipo Kwrite, abiword il topico sarebbe un Quanta per programmazione ?
Se ti metti un po' d'impegno e imapri a usare vim, sei a posto.
Ci vuole un po' di sforzo ma poi puoi fare praticamente di tutto senza
togliere le mani dalla tastiera. Quindi ti suggerisco di fare un po' di
fatica e imparare a destreggiarti con vim, oppure con gvim (la versione
grafica). Per un tutorial iniziale, basta che sulla shell digiti
'vimtutor'.
Ciao,
-- 
+------------+ ASCII ribbon campaign ( )
|  KRaLizEc  |  - against HTML email  X 
+------------+              & vCards / \
Newsgroup: it.comp.lang.perl
Titolo: Estrarre dati da Oracle con Perl

Ciao  a tutti!
Avrei la necessita' di creare uno script Perl che lanci dei comandi sql
verso un server Oracle remoto.
Il risultato di queste query dovranno essere inviate su un file di testo.
Lo script sara' lanciato da una macchina linux, verso un'altro pc che fa da
server Oracle.
Premetto che per la scrittura su file so gia' come farla, avrei invece
bisogno di un'aiuto per quanto riguarda la l'esecuzione delle query da perl.
Qualcuno saprebbe darmi qualche indicazione su come a grandi linee dovrebbe
essere realizzato lo script?...(Sono alle prime armi con perl)
Grazie in anticipo...


wrote:

Il msg sopra a te riguarda la stessa cosa... :)
Anyway, ripeto, devi usare il modulo DBI insieme al driver del
database che userai (se usi mysql, modulo DBD::mysql... for example)
--
http://www.pigmalion.info/
Internet è uno dei veicoli più validi per la difesa della libertà,
poiché offre la verità a chi vuole vederla e intenderla...
Vinton G. Cerf

 ha scritto nel messaggio
news:nrdjlvo3dc8thos54...@4ax.com...


Server?
DBI sicuro, è l'interfaccia...
Poi devi cercarti un modulo DBD::nome_database che è il driver per
farti connettere al server.
Dai uno sguardo alla lista dei driver, dovresti trovare quello che fa
al caso tuo...
Io uso DBI +  DBD::mysql per interfacciare perl ed un database mysql.


 Server?
Personalmente uso DBD::ODBC ma si possono anche usare DBD::Sybase, 
Win32::ODBC, DBD::ADO (forse anche Win32::OLE)
Ecco alcuni tra i tanti link interessanti di 
perlmonks.org
:
http://www.perlmonks.org/index.pl?node_id=271797
http://www.perlmonks.org/index.pl?node_id=277696
http://www.perlmonks.org/index.pl?node_id=282871

> database che userai (se usi mysql, modulo DBD::mysql... for example)
Studia và!
http://search.cpan.org/author/TIMB/DBD-Oracle-1.14/Oracle.pm
Premetto che sulla macchina dove installi questo modulo devi avere le
librerie cient per Oracle, ma questo è un altro discorso...
Max

Newsgroup: it.comp.lang.perl
Titolo: Come si converte in maiuscolo/minus.

una stringa?
E solo la prima lettera di una stringa?
Dimenticavo: semplice, semplice...
come ottengo la lunghezza sempre della stinga?
Grazie  W il mitico Perl!!!
Elaborare testi con il "C" mi sembra preistoria!
Bye
F.

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

 wrote in message
8fcau4$rjm$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.perl
Titolo: Correzione "aiuto!!!!! sto impazzendo...."

C'è un'anima pia che può spiegarmi come accidenti si fa ad aprire ( perl
for win32 ) un file html e storarlo in un array per poi elaborarlo ?
Why ? Pecchè ? questa porzione di codice :
open (HTMLDOC, "$nomefile");
@lines = <HTMLDOC>;
close (HTMLDOC);
$lunghezzarray = @lines;
for ($a = 0; $a <= $lunghezzarray; $a++) {
	$_ = $lines[$a];
	print "$_\n";
}
non mi stampa un benedetto c..... ?
Il santo che mi risponderà oltre a guadagnarsi un posto in paradiso si
guadagnerà un posto nei miei pensieri...
...il succo sarebbe " a buon rendere ".
GRAZIE ! ! !

 wrote:

Dal tuo post precedente risulta che alla variabile $nomefile corrisponde
in realta' un URL e non il path completo del file che vuoi leggere.
Quando usi la funzione open ricordati di fare un check sul risultato,
tipicamente usando || die ..., altrimenti non saprai se il file
e' stato effettivamente aperto o no.
Se esegui il  tuo codice assegnando alla variabile il path completo
di un file effettivamente esistente e con i permessi di lettura, lo
script funziona.
Ciao, Giorgio  

 GRAZIE ! ! !
Questo a me funziona, provalo:
open (FILE, "<".$nomefile);
@linee=(<NEW>);
close NEW;
foreach $linea(@linee) {print "$linea\n"}
Ciao,
Daniele
ps. che intendi per...succo?
Newsgroup: it.comp.lang.perl
Titolo: qualcuno mi spiega queste righe?

#!/usr/bin/perl
           @LS = `ls `;
                   foreach my $x (@LS)
                   {
                     @F = split(/\s+/,$x);
                     $res{scalar(@LS) * $F[4] + $i++} = $x;
                   };
                   foreach my $r (sort {$b <=> $a} keys %res)
                   {
                     print $res{$r};
                   }

ciao, grazie per la spiegazione, sto facendo  un pò fatica a passare da php
a perl...
ho bisogno di leggere i nomi di tutti i file presenti in una cartella e di
processarli leggendo le varie righe e poi inserendoli dentro un database
Simone

};
Dipende tutto da che cosa produce `ls `, che a sua volta dipende da scelte
dell'utente. Posto che il formato di default corrisponda a `ls -l`, e in
quinta colonna ci sia la dimensione del file (che mi pare l'unica cosa con
cui ha senso fare dei calcoli), il tutto sembra un modo complicato per
ordinare i file secondo la dimensione, perdendone occasionalmente qualcuno
(es: 7 * 13 + 1 == 7 * 12 + 8).
Ciao.

 ' ` '   `-^ `' | Seem to be all that there is.

cè un modo per avere una sorta di guida contestuale delle varie funzioni
perl??
Simo

 ho bisogno di leggere i nomi di tutti i file presenti in una cartella
 perldoc -f opendir
 perldoc -f readdir
MM

perl??
Che cos'č una "guida contestuale"?
La documentazione delle funzioni di perl č in perlfunc. Puoi anche
richiamare l'help di una funzione con:
   perldoc -f glob
e l'help di perldoc con:
   perldoc perldoc
Ciao.

cè qualcosa anche su windows o solo linux??? io sto programmando su windows 
e poi eseguo upload su linux via ftp
Simo 

 windows e poi eseguo upload su linux via ftp
'perldoc' c'è anche sotto Windows. La documentazione è sostanzialmente la
stessa. 
Ad ogni modo, tutto il materiale disponibile tramite 'perldoc' è anche
consultabile su 
http://www.perldoc.com/
.
MM

e poi eseguo upload su linux via ftp
La documentazione di perl non è il massimo della chiarezza e della
consultabilità, ma non difetta certo nella quantità, ed è installata su
tutti i sistemi perl, Windows, Linux o altro che sia.
In particolare, in Windows, dovresti avere un menu (da "Start->Progammi")
"ActiveState ActivePerl ...", sotto il quale trovi la documentazione.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Pagina nella pagina

Ciao avrei bisogno di un informazione.
Sto cercando di creare una pagina (paginax.shtml) dove al suo interno viene
richiamata un'altra pagina, che però è sotto un altro dominio. Mi spiego
meglio
Sto cercando un comando SSI o altri tipi di comandi come i seguenti:
<!--# include file ="nomefile.shtml" -->
oppure
<!--# include virtual ="/nomedirectory/nomefile.shtml" -->
Non esiste un comando del tipo...
<!--# include xxxxxxx ="
http://www.nomedominio.boh/nomefile.shtml
" -->
Esiste un modo per farlo con un comando HTML ma volevo che si visualizzasse
il primo URL e non il secondo, infatti nel seguente modo è possibile.
<META HTTP-EQUIV="REFRESH" CONTENT="1;
URL=
http://www.nomedominio/nomefile.shtml
">
Vi ringrazio anticipatamente
Grazie
M

Marco wrote:

ci sono 2 modi per farlo
1. usando una struttura a frame...
2. usando un semplice browser/parser html che si collega col secondo sito
scarica la pagina la rielabora e la mostra alla fine al client
saluti
            Davide Giansoldati

> il primo URL e non il secondo, infatti nel seguente modo č possibile.


Newsgroup: it.comp.lang.perl
Titolo: Can't locate Cwd.pm

Salve a tutti,
premettendo che il problema non riguarda il linguaggio in se' ma 
l'installazione vado al dunque:
ho installato Oracle 9i su Windows2K professional.
Ho notato che il server HTTP Apache che viene installato con Oracle non 
parte, ne' in automatico, ne' da console.
lanciando nella cartella Apache il comando apache (da finestra DOS) 
ottengo come risposta
Can't locate Cwd.pm in @INC (@INC contains .) at (eval 1) line 1.
con il comando
perl -e "print join(' ', @INC)"
ottengo
C:\oracle\ora90\Apache\Perl\5.00503\lib/MSWin32-x86 
C:\oracle\ora90\Apache\Perl\5.00503\lib 
C:\oracle\ora90\Apache\Perl\site\5.00503\lib/MSWin32-x86 
C:\oracle\ora90\Apache\Perl\site\5.00503\lib .
avete soluzioni?
grazie e saluti.
-- 
FabMind

 avete soluzioni?
Il contenuto di @INC non e` costante da un esecuzione all'altra 
di perl. Quindi con il tuo one-liner hai semplicemente mostrato
il contenuto di @INC di default (ovvero il valore della variabile
PERLLIB o PERL5LIB, se questa e' definita). 
Dal comportamente che ottieni direi che il comando apache come
prima cosa incasina per bene @INC, e poi prosegue schiantandosi.
E` possibile vedere il codice che produce l'errore ? 
Alternativamente, e` proprio da escludere la possibilita` di 
installare Apache "vanilla" ? 
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

 installare Apache "vanilla" ? 
Non saprei, ma a me in realta' servirebbe far funzionare apache come 
server http per utilizzare le applicazioni di oracle per la costruzione 
di form e report, dunque non sto a sottilizzare ma andrei al sodo 
cercando di evitare complicazioni.
-- 
FabMind
Newsgroup: it.comp.lang.perl
Titolo: check mail da web

buon giorno a tutti
ho visto su alcuni server la possibilità di fare un check delle proprie
email (con possibilità di cancellazione) via web prima di scaricare il
tutto... mi sembra interessante per evitare spam, attach chilometrici
non richiesti ecc.
qualcuno sa dirmi se esiste ed eventualmente dove trovare un cgi perl a
tale scopo?
Grazie in anticipo
--
Graziano Poretti

 tale scopo?
http://www.atdot.org
Valerio
--
-------------------------------------------------------
 
http://www.livenet.it
Hosting - Housing - Accesso ad Internet
                      0815625909
         03395452296 03394733180
-------------------------------------------------------