mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Collegarsi ad un url

Sono nuovo nel mondo perl (ho iniziato a scaricare il primo materiale
stamattina). Vorrei chiedervi se esiste un modo che permette di collegarsi
ad una pagina web e restituirne il codice html?
Ad esempio se volessi indicizzare un sito, posso creare uno script perl che
data una url, prima scarica il codice html, ad esempio su un file in locale,
e poi lo elabora?
In caso affermativo potreste dirmi come muovermi?
Grazie

ad una pagina web e restituirne il codice html?
Puoi usare i moduli LWP (libwww-perl).
	A presto, Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 Puoi usare i moduli LWP (libwww-perl).
Oppure le HTTP::GHTTP:piu' leggere, meno versatili ma quasi-1.1 compliant.
- -- 
Ciao, Maurizio.
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.4 (GNU/Linux)
Comment: For info see 
http://www.gnupg.org
iEYEARECAAYFAjqlIS8ACgkQHbQ8bALiFoxRoACfcpQcmryHLzAp92dHcGALIAbr
OIwAn3brb3TUXlwXJ0PqypBnbRbPGkjV
=B+SY
-----END PGP SIGNATURE-----

Newsgroup: it.comp.lang.perl
Titolo: Perl o ASP?

Debbo realizzare un sito che propone agli utenti un questionario con domande
random a risposta multipla fornendo poi una valutazione delle risposte; il
sito deve inoltre disporre di un database che memorizzi i risultati e li
renda disponibili agli utenti.
Ho a disposizione un server Windows NT e Access 97.
Dovendo partire praticamente da zero mi chiedo se sia preferibile utilizzare
le ASP, il Perl o qualche altro linguaggio.
Grazie per i consigli
                    Marco        
mar...@tin.it

Se sei su Nt, per utilizzare Perl devi avere l'interprete... se il tuo
server non lo possiede, la scelta e' obbligatoria: Asp
--
A presto e buona giornata.
ROBERTO E ALESSANDRO ABBATE
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
responsabili di Galileo - 
http://www.risorse.net
WebMasters & WebDesigners @ Milano
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Per contatti via e-mail: webmaster<at>
risorse.net

 server non lo possiede, la scelta e' obbligatoria: Asp
Perche'?
Ti fa tanta paura installarlo?
Basta scaricarlo ( oc omprare il cd) e installarlo. Che problema c'e'?
Ciao
--
 Massimo Balestra
 System Engineer
 Torino Italy
Sent via Deja.com 
http://www.deja.com/
Before you buy.

Dove si scarica ASP


 
-- 
"Time flies like an arrow; fruit flies like a banana."
Newsgroup: it.comp.lang.perl
Titolo: Tempo di esecuzione di un PRG

Mi scuso per l'intrusione che avviene dopo che, da bravo ragazzo quale sono
:-)), ho consultato 
www.dejanews.com
 sull'argomento.
Devo convertire un programma scritto in C che utilizza la funzione
GetTickCount() della libreria <toolhelp.h> per misurare il tempo di
esecuzione del programma stesso in millisecondi.
C'e' qualcosa di analogo in Perl?
Grazie per l'attenzione.

 C'e' qualcosa di analogo in Perl?
So che la mia risposta e' incompleta ma tutto cio' che ti so dire e'
che c'e' ma non so quale e'. Mi ricordo che c'era bisogno di un modulo
esterno ma non ricordo quale.
Prova a scaricare il modulo Benchmark o prova a consultare il CPAN se
c'e' qualche modulo che ti permette di acere una risoluzione migliore
del tempo.
Ciao
Massimo
--
 Massimo Balestra
 System Engineer
 Torino Italy
Sent via Deja.com 
http://www.deja.com/
Before you buy.

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

Salve,
     mi sono accorto che sul mio webserver non c'è il comando htpasswd! 
c'è un modo per creare una funzione in perl che abbia lo stesso 
funzionamento??
grazie!


prova
http://www.locked-area.com/


Molto strano, hai provato a vedere nella stessa directory dove si
trova apache? In ogni caso, puoi provare con Apache::Htpasswd (http://
search.cpan.org/dist/Apache-Htpasswd/Htpasswd.pm
).

Newsgroup: it.comp.lang.perl
Titolo: primo passo

ok supponiamo che io abbia iniziato oggi a studiare il perl e che, per di
più, usi una piattaforma windows. Perché quando digito il seguente codice
mi dà errore?
Uso DzSoft perl editor 3.3
win2000 prof.
quando premo run mi dà
name=DzSoft+Perl+Editor&email=support%40dzsoft%2Ecom
mah!!!

il codice era
$m=<STDIN>;
print $m;

 name=DzSoft+Perl+Editor&email=support%40dzsoft%2Ecom
E` giusto: sullo standard input c'e` il contenuto del request, in questo
caso del form tramite il quale credo tu abbia chiamato lo script.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> FAQ di it.comp.lang.perl: 
http://www.borders.it/perl/faq/
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!
Newsgroup: it.comp.lang.perl
Titolo: installazione moduli DBI

Ho installato su Windows95 i moduli DBI tramite il comando 'ppm install
DBI', ottenendo di fatto la loro installazione.
Testando successivamente il loro funzionamento tramite uno script di sicuro
affidamento, ottengo che l'istruzione ' $dbh =
DBI->connect(dbi:ODBC:prova.mdb, '', '') ' non sortisce nessun effetto, nč
di errore nč di successo ( infatti, in caso di mancata connessione al Dbase,
dovrei ottenere un messaggio di errore, cosa che non avviene...).
Devo forse configurare qualcosa oltre ad aver installato i moduli ( c'entra
qualcosa il file httpd.conf di Apache)?
--
-----------------------------------------------------
Click here for Free Video!!
http://www.gohip.com/free_video/

 wrote:
Devi utilizzare Win32::ODBC, DBI::ODBC non funziona su Windows.
-- 
Ciao, Maurizio.

 Devi utilizzare Win32::ODBC, DBI::ODBC non funziona su Windows.
Il programma che ho utilizzato per testare i moduli DBI mi č stato 'passato'
da un mio amico, al quale funzionava perfettamente su Win98, con qualsiasi
tipo di Dbase, non soltanto quindi con Access. Io inoltre utilizzo lo stesso
server da lui installato (Apache 1.3.12) e la stessa versione del Perl (Perl
v5.6.0). La differenza quindi č solo tra Win95 e Win98: puň voler dire
qualcosa? Per maggior chiarezza riporto le parti di script che riguardano la
connessione al Dbase:
# PREPARA I PARAMETRI PER L'ACCESSO AL DATABASE
  use DBI;
  use CGI;
  $dataIn = new CGI;
  $dataIn->header();
  $requestType = $dataIn->param('requestType');
  $sql = $dataIn->param('sql');
.........
.........
.........
$sql = 'select * from tabella'; # query banale
# CONNETTI AL DATABASE
 $dbh = DBI->connect(dbi:ODBC:prova.mdb, '', '');
# VERIFICA SE LA CONNESSIONE E' AVVENUTA CORRETTAMENTE
 if ($dbh eq '')
.........
print "Connessione al database non riuscita ! Il server non risponde.\n";
.........
# LA CONNESSIONE E' AVVENUTA CORRETTAMENTE
              # ESEGUI LA QUERY
                $dataObject = $dbh->prepare($sql);
                $dataObject->execute();
              # PREPARA I DATI PER LA RISPOSTA
                @dbRows = $dataObject->fetchall_arrayref();
..........
..........
..........
      # CHIUDI LA CONNESSIONE AL DATABASE
        $dbh->disconnect;
Ho notato che il mio problema č su $dbh=DBI->connect(dbi:ODBC:prova.mdb, '',
''), perchč effettua un loop infinito senza eseguire di fatto nessuna
operazione.
Ringrazio sin d'ora chiunque possa darmi una mano.
Ciao Dibbe
.



         $dbh->disconnect;
-- 
Ciao, Maurizio.
Newsgroup: it.comp.lang.perl
Titolo: Ufficio per liberi professionisti

Dato che la metratura è eccessiva per la nostra attività, stiamo cercando
altri liberi professionisti disposti a condividere le spese dell' ufficio di
cui disponiamo.
Tuttavia, non è indispesabile operare nello stesso settore.
Svolgiamo la libera professione, nel settore informatico dell'automazione e
della gestione basi dati.
I costi sono contenuti e la zona è S.M.Maddalena, a 6 Km da Ferrara.
Riccardo Guirrini
Per rispondere non usare il rispondi. Utilizzare questo link:
del...@tin.it

 è S.M.Maddalena, a 6 Km da Ferrara.
...e la tua domanda sul PERL e`?
	Alla prossima,
		Marco

Newsgroup: it.comp.lang.perl
Titolo: Diritti in scrittura....

Ciao a tutti,
dovrei inserire uno script perl nella mia dir. /cgi-bin in un server
(
free.prohosting.com
) ed ho necessità di scrivere su file....il server in
questione setta automaticamente i files trasferiti con i diritti 755 (rwx rx
rx)...
Come faccio ad accedere in scrittura al file dallo script ?
Perchè
    system "chmod 755 nomefile"
non funzia, eseguendo lo script da browser ? (non ho abbastanza diritti ?)
Attualmente utilizzo Linux ed ho appena installato la versione 5.3 -
Mandrake (redhat + kde).....
Ciao
Simone.
---------------------------------------------------------------
Visita la mia homepage all'URL :
http://web.tiscalinet.it/drfalken
Pascal, Assembler, Tips'n'Tricks per
Windows 9x, Software vario...
---------------------------------------------------------------

 non funzia, eseguendo lo script da browser ? (non ho abbastanza diritti ?)
fallo da ftp (o telnet)
Da browser mi pare un p' pericolosetto, tutti potrebbero cambiari i
permessi ;-)
-- 
    .--.     Lorenzo Pulici - milanohockey at 
penguinpowered.com
   |o_o |    
http://milanohockey.virtualave.net
     ICQ 38627287
   |:_/ |    
http://snowdog.cjb.net
  //   \ \   
http://verdebaggio.freeweb.org
 (|     | )  PLUTO Member - 
http://www.pluto.linux.it
/'\_   _/`\       "Le insegne luminose attirano gli allocchi"
\___)=(___/                   (G. L. Ferretti)
Newsgroup: it.comp.lang.perl
Titolo: aiuto !!!. come faccio ad inastallare il pacchetto che ho scaricato ....

ho scaricato il pacchetto "libnet-1.0703.tar.gz" dal CPAN per potere seguire
degli script dimostrativi su un  libro, il tutto in ambiente Windows.98
mi dite quali sono i passaggi per potere usufruire dei moduli contenuti nel
pacchetto indicandomi in  modo preciso quali sono le directory in cui devo
eseguire tali operazioni.

degli script dimostrativi su un  libro, il tutto in ambiente Windows.98
Ti conviene procurarti le versioni per Windows dei moduli (quelle per
ActivePerl, se lo usi):
http://www.activestate.com/PPMPackages/
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 wrote in message
slrn8kvq...@karma.italpro.to...


procedure da seguire e  il concetto di ActivePerl per me č sconosciuto !!!.
PPM e` includo in ActivePerl. Non so quale interprete Perl tu usi, ma se usi
Windows ti consiglio di passare a quello di ActiveState, che trovi appunto
su:
http://www.activestate.com
E` garatuito, per la cronaca. ;)
	A presto, Michele.
P.S.: Ci sono degli editor visuali, ad esempio Perl Builder.

Newsgroup: it.comp.lang.perl
Titolo: HELP : software gestione internet point

Salve,
avrei necessita' di entrare in contatto con qualcuno in grado di
programmare un'applicazione di database con supporto di rete da
utilizzare per la gestione tempo/cliente di un internet point.
l'attivita' viene svolta con 12 postazioni + un server. tutte le
macchine, server compreso, sono pentium 200 con windows 95 installato
e collegate in rete ethernet.
cio' di cui avrei bisogno e' un software-database, che permetta di
gestire il tempo per ogni singolo utente registrato in modo automatico
(il cliente entra, si siede, digita la sua userid e pw e
automaticamente ha a disposizione il suo tempo prepagato a scalare).
invito coloro che pensano di potermi aiutare a contattarmi in email
per discutere delle caratteristiche specifiche del programma, varie ed
eventuali.
ringrazio fin d'ora tutti coloro che hanno letto e mi scuso per il
crosspost sui vari gruppi.
E. Gori
e.g...@dada.it



Newsgroup: it.comp.lang.perl
Titolo: C'è una faq del gruppo visto che sono pigro!

C'e una faq del gruppo?
Grazie!
Saluti!
-- Mauro
----un canguro non sputa mai nel proprio marsupio!

E' nato da poco il sito:
www.perl-it.org
Ciao, Giuseppe
--


Ciao, Giuseppe
Grazie Giuseppe!


Newsgroup: it.comp.lang.perl
Titolo: AIUTO! PERL & FILE

Come faccio a mettere il contenuto del file in un array in modo che ad
ogni indice ci sia una linea del file?
Ho provato cosi' ma non funziona:
my $i=1;
my @lines;
open(FILE, "<$datab") || die "Can't open $datab: $!";
while (<FILE>) 	{
	if (m/.*\n/) {$lines[$i]=$_;$i++;}	#metto il file in un array
		}
close(FILE);
Qualcuno mi sa dire come posso fare?

diversi problemi:
1) gli array cominciano con 'zero' e non con 'uno'
2) leggere un file in un array funziona anche cosí: @array=<FILE>
3) per mettere togliere in modo sequenziale elementi di un array sono
preferibili le funzioni shift/unshift, push e pop
qui di seguito un pgm che funziona:
$datab='c:/temp/buttami/array.txt';
my  @lines;
open(F,"<$datab") or die "uffa!";
# in soli 10 caratteri, la lettura del file in un array!
@lines=<F>; # NB se vuoi buttare via righe vuote, puoi farlo con un grep
          # se vuoi togliere il \n finale, usa 'chomp'
          # domanda a tutti: in inglese cosa vuol dire 'chop' e 'chomp'
?
close(F); # fai bene a chiuderlo
# questa parte serve solo a stampare a schermo, per prova
my $i=0;  # se lo fai partire da 'uno', perderai il primo elemento!
foreach (@lines) {
    print $i, " ", $lines[$i]; $i++;
    };
# il file "array.txt" da me conteneva
uno
due
tre


     };

             'chop' e 'chomp'
'chop' č il suono che fa l'accetta che taglia la legna.
'chomp' č il suono che fa pacman quando mangia una pillola.
(non ho un dizionario sottomano... ;-)
__END__
# Aldo Calpini
%_ = split undef, join ' ', qw(fahokem
xritajbugne csuctawer jhdtlrnpqloevkshpr
); print map $_{$_}, sort keys %_;

 wrote:
[ snip ]
DD>Qualcuno mi sa dire come posso fare?
Hai provato con
my @lines;
open(FILE, "<$datab") || die "Can't open $datab: $!";
@lines=<FILE>;
close(FILE);
?
Ciao ciao,
Andrea
-- 
"...Unix, MS-DOS, and Windows NT (also known as the Good, the Bad, and 
 the Ugly)."
(by Matt Welsh)
Newsgroup: it.comp.lang.perl
Titolo: strano include

ciao a tutti...
sono alle prese con delle modifiche a delle pagine di codice di
un'applicazione utilizzata dall'azienda presso cui "lavoro"...
Ho trovato all'interno degli script Perl degli "use Cantrip::Login" ed
altro come "Cantrip::PageTemplate" etc. ...
Ho provato a cercare informazioni su questo modulo "Cantrip" ma non ho
trovato nulla in giro.
Qualcuno sa darmi qualche riferimento in merito?
grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 trovato nulla in giro.
Forse e' un modulo fatto da qualcuno che lavora(va) nella tua azienda.
Google e 
search.cpan.org
 non lo trovano.
 Raffaello

 Google e 
search.cpan.org
 non lo trovano.
le stesse prove le avevo fatte anch'io ed è per questo che mi sono rivolto
al NG...
A questo punto, credo davvero che chi ha scritto il codice aveva "creato"
tale modulo. Peccato, però, che il codice non contiene nemmeno una linea
di commento e in certi frangenti è un po' criptico riuscire a capire cosa
combina.
grazie ugualmente

Newsgroup: it.comp.lang.perl
Titolo: info invio dati tramite form con perl

ciao a tutti, sono alle prime armi con perl sapreste dirmi se questo codice
è giusto ed inoltre cos'è necessario affinche esso giri perfettamente su una
pagina web.
P.s. non ho mai richiamato uno script cgi da una pagina web, quindi siate il
+ sottili possibili nelle spiegazioni. Grazie anticipatamente
Ecco lo script
#!c:\perl\bin\
print "ontent-type: text/html\n\n";
#print "$ENV{'QUERY_STRING'}";
($name, $phone, $color) =
split(/&/, $ENV{'QUERY_STRING'});
($leftSideOfEqualSign, Susername) =
split(/=/,$name); ($firstname,
$lastname) = split(^+/,$username);
($leftSideOfEqualSign, $userphone)
=
split(/=/,$phone);
($leftSideOfEqualSign, $usercolor)
=
split(/=/, $color); print«heredoc;
<html><title>The results</title>
<body bgcolor="#ffffff">
<b>Name: $firstname
$lastname</b><br>
Phone: $userphone<br>
Color: $usercolor<p>
</body>
</html> heredoc
open(FILE,"»records/$usercolor.html
")";
print FILE "<b>Name: $firstname
$lastname</b><br>\n":
print FILE "Phone:
$userphone<br>\n";
print FILE "Color:
$usercolor<p>\n";
close FILE;
io voglio che il contenuto che inserisco nei vari campi venga spedito ad un
indirizzo email. Cosa c'è quindi da aggiungere a questo script?

 ha scritto nel messaggio
news:7on_d.668975$b5.30...@news3.tin.it...


 split(/&/, $ENV{'QUERY_STRING'});
Mi fermo qui perché ti stai complicando mooolto la vita :-)
Se tu usi il modulo CGI è mooolto più facile.
Ti faccio un esempio di uno script che legge la query string in cerca dei 
parametri "lingua" e "azione" (inviati ovviamente da un form) e chiama una 
funazione apposita (per farti vedere come leggere i parametri senza tutti 
gli split usati da te):
use CGI;
my $cgi = new CGI; #Con l'oggetto cgi puoi fare molte cose utilissime
$cgi->nph(1); # Serve spesso se lo script è chiamato da IIS, non serve con 
Apache
my $lang = $cgi->param('lingua'); # Leggo il parametro che il form ha 
chiamato "lingua" es: 
http://miosito/app.cgi?lingua=eng
if ($lang eq null) { $lang = 'ita' }
for ($cgi->param('azione') or 'elenco') {
 if    (/elenco/)       { show($lang) }
 elsif (/det_frm/)     { det_frm($lang) }
 elsif (/det/)     { dettaglio($lang) }
 else {
  print $cgi->redirect(-url=>'/');
 }
}

Newsgroup: it.comp.lang.perl
Titolo: Copiare o Muovere File

Salve,
volevo sapere se esistono (non ne ho trovate) funzioni standard del perl 5
per
copiare file o muoverli.
Su 
www.perl.com
 ho trovato qualcosa:
use File::Copy;
copy("file1","file2");
move("file1","file2");
Ma non funziona. Forse perche' non esiste il modulo File, anche se mi sembra
strano non mi dia  errore...
Un grazie a chi mi risponderŕ, da un neofita :)
Cya
--
Giovanni Sasso

 strano non mi dia  errore...
File::Copy imposta $! in caso di errore. Hai provato ha stamparlo?
Max

tnx to all
:)
Newsgroup: it.comp.lang.perl
Titolo: Moduli x w98

Rispolverando la libreria, mi é capitato in mano il libro "Perl e internet"
della McGrawHill con dentro un CD con gli esempi trattati e una versione del
perl (5.005) per windows.
Ho installato il perl nel PC con w98, ma richiede per gli esempi 2 moduli:
libnet e Net-Telnet.
Con la procedura illustrata, scaricare da internet tramite il ppm i moduli, il
programma (ppm) crasha!
Su 
http://www.activestate.com
 ho trovato un link per libnet,
http://www.packetfactory.net
 ma porta ad un file tar.gz che non mi sembra molto
windowsiano...
Ho googlato tutto ieri, ma non ho trovato niente di costruttivo.
Mi sapreste dire dove (e come) reperire quei moduli??
Non voglio scaricare tutta la nuova versione del perl (11 mega), anche perché
l'installer necessiterebbe di explorer 5.5 che non ho (ho il 5 che non uso e
non ho mai usato).
Grazie!
-- 
,,, e dopo che ci avranno trasformato in vegetariani, a causa del vino al
metanolo, del pesce al mercurio, dei polli alla diossina, dei maiali agli
ormoni,  delle mucche,  pecore e  capre pazze,  ci daranno da mangiare la
frutta al benzene e la verdura radioattiva.
La nostra unica salvezza sara' nel Soylent Green!

 sembra molto windowsiano...
Perche' facendo doppio click su di esso non fa tutto da se?
Per aprirlo AFAIK WinRar dovrebbe essere + che sufficiente.
 Raffaello

Per aprirlo AFAIK WinRar dovrebbe essere + che sufficiente.
Facendo doppio click, fa quello che deve fare un qualsiasi file NON eseguibile,
viene aperto come "documento" dal programma associato di visualizzazione, nel
mio caso 7zip.
Ci vedo il contenuto, guardo nei singoli files, ma a parte questo e leggere che
la versione scaricata dal sito 
http://www.packetfactory.net
 é testata con
Windows 2000 SP4, Windows XP SP1, e quindi del w98 nisba, non ci faccio niente!
Ho trovato anche libnet-0.10.11.zip e libnet-0.10.10.zip, ma sono dei sorgenti
da compilare ic C.
Sorry!


non ho mai usato).
E' molto probabile che invece sia proprio la cosa giusta da fare.  La
versione che hai trovato nel libro ha l'aria di essere piuttosto datata, e
probabilmente i moduli precompilati attualmente in distribuzione non sono
compatibili.
Ciao.

compatibili.
Ok, cancello tutto e rinuncio al perl su w98!
Mi limiteró ad usarlo da linux.
Grazie comunque.


Ok, cancello tutto e rinuncio al perl su w98!
Personalmente, non ho mai avuto nessun problema ad installare perl su
ogni sistema Windows con cui sono venuto in contatto. Per la verità è
una delle poche cose su cui sono certo di poter contare ovunque vado;
cielo e terra passeranno, Word cadrà giù dal cielo e KDE si pianterà,
ma ci sarà sempre un sistema Perl a cui fare eseguire uno script, un
Emacs per editarlo e un TeX per comporre un documento.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: modulo ASP ..

Dove posso trovare il modulo Apache::ASP per installarlo sul mio Pc ???
grazie

 grazie
www.perl.com
-- 
Wiz of Id a.k.a. William Ghelfi
E-Mail: < mailto:
w...@galactica.it
 >
Web Site: < 
http://web.tiscalinet.it/penguin_rules/
 >
<cite> *Hey! Occhietti Rossi!* </cite>
Newsgroup: it.comp.lang.perl
Titolo: ricerca in array

Ciao a tutti,
ho iniziato a programmare da poco in PERL.
Esiste un operatore per cercare un elemento in un array (@ o %)? tale
operatore dovrebbe tornare la posizione o anche semplicemente un valore
booleano.
Attualmente faccio sempre a mano un pezzo di codice del tipo:
$esiste='';
  foreach $p ( @valoriPresenti ) {
   $esiste = 'S' if $p eq 'VALORE';
   }
grazie in anticipo

 grazie in anticipo
usa split su $p
http://www.perldoc.com/perl5.6.1/pod/func/split.html
ciao
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************

Pui scrivere una tua funzione per fare come vuoi:
sub esiste {
	($reference_all_array, $valore_cercato) = @_;
	$esiste = 0;
	foreach  $elemento (@$reference_all_array) {
		if ($elemento eq $valore_cercato) {return 1;}
	 }
	return 0;
}
@array = ('pizza', 'pasta', 'insalata');
if (esiste(\@array, 'pasta') == 1) {print 'Buon gustaio';}
if (esiste(\@array, 'bigmac') == 0) {print 'Meglio!'}
Ho usato un reference ad array perche' cosi' non duplichi l'array che
devi ispezionare.
Per mandare il ref devi usare \ davanti alla variabile:  \@array  e'
il reference a @array 
Per vedere i valori di @array sapendo il suo reference si usa
@$reference_ad_array.
Ti consiglio di approfondire l'argomento su qualche libro. Altrimenti
se sei agli inizi prova a modificare questa funzione non usando
l'array reference ma passando tutto l'array.
Per le variabili HASH cioe'  quelle tipo %hash esiste la funzione
nativa exists
vedi qui:
http://www.perldoc.com/perl5.6.1/pod/func/exists.html
Ciao,
Dark Wave
P.S. Non vorrei sbagliarmi ma credo che il suggerimento di usare SPLIT
non sia pertinente. Chiedo scusa se sbaglio. CIAO


 booleano.
per il valore booleano:
  # array (@valoriPresenti)
  $esiste = grep $_ eq 'VALORE', @valoriPresenti;
  # hash (%valoriPresenti)
  $esiste = exists $valoriPresenti{'VALORE'};
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
Newsgroup: it.comp.lang.perl
Titolo: Datemi una mano... vi pregooooooooooooooo

Sě lo so lo so, chiedo un po' troppo...
ma sto impazzendo, vi prego aiutatemiiiiiii!
allora ripropongo il problema:
ho una variabile che contiene un indirizzo internet di questo tipo:
http://www.domain.com/cgi-bin/ProductDisplay?prrfnbr=950019&prmenbr=13951&CG
RY_NUM=search
avrei bisogno di capire come posso spezzettare questa variabile in piů
parti, ad esempio
http://www.domain.com/
 + variabile1 + "=" + variabile2 + "&" + variabile3 +
"=" + variabile4 + "&" +  variabile5
e resto in attesa sempre di consigli circa un buon manuale di PERL in
Italiano!
GRAZIE GRAZIE

 "=" + variabile4 + "&" +  variabile5
Basta usare i moduli tradizionali di libwww-perl: direi che serve
URI::query() o URI::query_form(). 
Se invece non vuoi usare i moduli, puoi sempre farci vedere il pezzo di
programma che non ti funziona e qualcuno ti trovera' gli errori.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 wrote in message
8st4ji$7rb$1...@menelao.polito.it...


 in piů variabili.
Mi pare che sia un lavoro per split, funzione del set di base del
Perl....
Piuttosto ho visto che le tue variabili non hanno un separatore fisso...
ma alternano ad esempio '=' e '&' ... quindi dovresti usare piů split
coordinati... tipo prima splitti le *macrovariabli* separate da '=' e
poi per ognuna di queste risplitti usando '&' e ottieni infine le tue
variabili agognate...
var1 = var2 & var3 = var4 & var5 = var6
split con '='
RISULTATO: var1, var2 & var3, var4 & var5, var6
se in var compare '&' allora split con '&'
RISULTATO: var1, var2, var3, var4, var5, var6
Ciao
-- 
Wiz of Id a.k.a. William Ghelfi
E-Mail: < mailto:
w...@galactica.it
 >
Web Site: < 
http://web.tiscalinet.it/penguin_rules/
 >

 ma alternano ad esempio '=' e '&' ... quindi dovresti usare più split


 italiano
Anche se dicono che la traduzione sia brutta, c'e' sempre "Programmare in
Perl" di Wall, Schwartz e Christiansen. Altrimenti vai in una qualsiasi
libreria tecnica e prendi il primo libro che capita...


 wrote in message
8sui0p$fj9$2...@menelao.polito.it...


Newsgroup: it.comp.lang.perl
Titolo: gestione date

Ciao,
dovrei confrontare due date che hanno questo formato
"dd.mm.yy".Essendo stringhe l'unico modo per confrontarle
č splittarne il contenuto e poi confrontare i tre campi ottenuti
oppure c'č un modo piů diretto?
Ciao,
    Ivan

 oppure c'è un modo più diretto?
Se sei sicuro che il formato sia sempre "dd.mm.yy" , split e' OK.
Di solito conviene usare le librerie Perl che permettono la gestione delle
date (Date::... , dai un'occhiata a 
http://www.cpan.org/
).
 Raffaello
P.S.:Come fai a confrontare 1999 e 2000 con solo 2 cifre per l'anno ?
Newsgroup: it.comp.lang.perl
Titolo: Ordinamento array

Allora, prima di tutto ciao!
Veniamo al problema:
ho un array bidimensionale con 10 campi. Da questo array, vorrei ricavar
fuori un altro array ORDINATO rispetto al terzo campo, poi al secondo e in
seguito al primo. Come posso fare?
Poi, un array bidimensionale non è un array di array?? Perchè allora
l'istruzione foreach @singolo (@totale) mi dà errore di sintassi?
Grazie a tutti, ciao!!


No. E' un array di riferimenti ad array. Inoltre l'iteratore del for[each]
deve essere uno scalare.
Comunque, i dieci campi cosa sono? Hash o array?
E come fai ad ordinare un array bidimensionale? 
Prova a mostrarci un esempio di codice e della struttura dati che usi e che
non ti funziona.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

...


 ordinato...
Ah. Ora ho capito!!!
Era una matrice con 10 colonne, di cui bisognava ordinare le righe.
 @disordinato = ( [ 3 , 5, 3 , 6 , 0 ,4 ],
                  [ 1 , 7, 9 , 1 , 3 , 6],
  	 	  [ 2 , 5, 7 , 0 , 1 , 2] );
  @ordinato = sort {
                     $a->[2] <=> $b->[2] ||
		     $a->[1] <=> $b->[1] ||
		     $a->[0] <=> $b->[0] ||
                     $a->[5] <=> $b->[5] ||
		     $a->[4] <=> $b->[4] ||
		     $a->[3] <=> $b->[3]
		      # mettere le eventuali altre condizioni in OR 
		   } @disordinato;
 Se i valori sono stringhe, basta sostituire '<=>' con 'cmp'. 
 Come vedi, molto molto semplice. Poi, nella tua soluzione, sei costretto a
 rendere tutti i campi stringhe della medesima lunghezza, altrimenti non 


non ti funziona.



Newsgroup: it.comp.lang.perl
Titolo: [OT] Accesso all'indirizzo PNM://

Non so dove questo messaggio andrebbe spedito, quindi l'ho spedito a tre
newsgroup diversi. Ora vi spiego:
quando si apre un file realplayer su internet, di solito, questo è
costituito da un piccolo file che contiene il collegamento ad una pagina
pnm://.....
E' possibile scaricare il file da questo tipo di rete pnm? anzichè aprirlo
con realplayer?

Usi lo stesso url pnm:// mettendo http:// davanti :)
Il piccolo file è semplicemente un link al file .rm
--
Kartoo
General Manager of KarWar Enterprise® (
www.karwar.com
)
******************************************************
Le catastrofi del nostro secolo: Hiroshima 45, Chernobyl 86, Windows 95...
If lamer could fly, internet would be an airport...
Francesco De Luca ha scritto nel messaggio ...
[...]


Newsgroup: it.comp.lang.perl
Titolo: cercasi programmatori

AAA cercasi programmatore
Webmagazine avviato cerca giovani programmatori (asp) in grado di
occuparsi del restyling del proprio sito. Inserimento articoli,
gestione del databese, ecc...
Il sito è giovane e si colloca nella fascia medio-bassa per numero di
visitatori ma ci sono buone possibilità di crescita future. Il
candidato ideale è giovane, desideroso di "farsi le ossa" in asp ma
con una buona conoscenza del linguaggio, portato ai rapporti
interpersonali.
Per informazioni scrivere a: 
lfa...@tin.it

Asp... non č meglio Php?
-- 
Posted from  [62.98.241.196] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

  desideroso di "farsi le ossa" in asp
Leggi: "pochi soldi da dare" :)
-- 
Saluti,
Giancarlo

 Asp... non č meglio Php?
mi sa che su IIS ci fai poco con php :)
Mk

Mk wrote:

http://www.php.net/manual/en/install.iis.php
-- 
Saluti,
Giancarlo

 Asp... non č meglio Php?
ASP č una tecnologia e non un linguaggio. Di solito ti danno VBScript
e/o JScript mi pare per cui di asolito le associ ad ambienti M$.
Con tecnologia ASP puoi usare pure Perl... basta installarsi i tool
di ActiveState.
Dunque le .asp possono anche essere fatte in Perl! :)

 wrote in message
9rc0rh$2u66$1...@stargate1.inet.it...

A ragà, ma lasciatelo dire. Deciderà chi legge cosa pensare. Cos'è la vostra
invidia?!? :-)))
ULODIN

Newsgroup: it.comp.lang.perl
Titolo: telnet e ".profile"

Ciao a tutti, devo creare uno script che mi permetta di connettermi in
telnet a una macchina unix, effettuare alcune operazioni e recuperare
dei risultati. Questo non è un grosso problema, il fatto è che la
macchina a cui mi devo collegare ha uno script nel .profile che parte in
automatico quando ci si collega e che richiede un input dall'utente, e
quindi telnet mi si ferma subito dopo il login. E' possibile terminare
lo script? Come?
Grazie,
AdP
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 telnet a una macchina unix, effettuare alcune operazioni e recuperare
[CUT]
Forse faresti meglio a girare la cosa su it.comp.os.linux.development.
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \
Newsgroup: it.comp.lang.perl
Titolo: Selling PHP Scripts

Selling PHP Scripts
www.digishop.altermedica.net

 
www.digishop.altermedica.net
LOL
 Raffaello

Newsgroup: it.comp.lang.perl
Titolo: Piccolo chiarimento da neofita

Buon giorno
Io devo cancellare una riga da un file se corrisponde ad un certo nome.
Come posso fare. Non ho trovato un comando "delete" cosi ho fatto in un
altro modo, che peò mi lascia una riga bianca, giustamente, all'interno del
file.
:
:
while ($appo=<FILEHANDLE>)
{
    if ($appo =~ /pippo/)
    {
        $appo = " ";    ==> con che istruzione potrei sostituire questa
:                               riga?
        :
Grazie.
Nicola


Con niente, no? Se non vuoi una riga, non stamparla e basta.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

...



Supponendo che tu stia riscrivendo il file su OUTPUT_FILE:
while ($appo = <FILEHANDLE>)
{
	next if ($appo =~ /pippo/);
        print OUTPUT_FILE "$appo\n";
}
HTH gfb

 wrote in message
91dngm$uft$1...@menelao.polito.it...


 wrote in message
3A3E551B...@interfree.it...

Volevo ringraziarti è un'ottima idea!!!
Nicola
Newsgroup: it.comp.lang.perl
Titolo: CGI SU WIN: LA SOLUZIONE !?!?

'navigo' su Apache
quando eseguo l'Apache dal prompt di MS DOS mi compare il seguente
errore:
F:\Programmi\Apache>apache  <ENTER>
APACHE.EXE: cannot determine local host name.
Use the ServerName directive to set it manually
Ho provato a risolverlo "giocando" con le opzioni che compaiono con -H
ma non ho risolto nulla (anzi mi sono causato un'emicrania)
mi sai dire come risolve (o sapete dirmi) come risolverlo ?
a presto

 mi sai dire come risolve (o sapete dirmi) come risolverlo ?
Beh, il messaggio d'errore mi sembra piuttosto eloquente. 
Devi... usare la direttiva ServerName per impostarlo manualmente (tradotto
alla lettera).
Acc... siamo off-topic... non posso dire di più...
Leggere il manuale, leggere le faq!!! :-)
Max

Sempre sul tema "come testare i miei CGI sul mio PC Windows": secondo
me la soluzione ideale puo` essere Xitami (
www.xitami.com
).  Davvero
piccolo, meno di 1 mega di download, ed e` un server completo ma molto
molto semplice da istallare e gestire.  Certo Apache fa piu` cose, ma non
mi pare possa eguagliare la semplicita` di Xitami.
Alex

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

 convincerlo ad utilizzare il perl hackando velocemente il registry.
"Basta"?!  Il download di PWS e` di oltre 20 megabyte, contro
meno di un mega per il download di Xitami.  E naturalmente con
quest'ultimo non c'e` nessun hackeraggio da fare nella registry,
ecc, ecc.
Mi sembra di avere proposto, allo scopo di cacciare la lepre,
l'uso di un fucile a pallini, e sentirmi rispondere che per questo
scopo "basta" un carro armato, con la semplice istallazione
custom di un cannoncino a testate nucleari tattiche...:-)
Alex

"Basta"?!  Il download di PWS e` di oltre 20 megabyte, contro
E' sul CD di win98.


Newsgroup: it.comp.lang.perl
Titolo: mbox parsing e cgiwrapper

Due domande:
1) come fare per effettuar ein modo efficente il parsing di un file
/var/mail/utente per estrarre i campi dell'header e il corpo del
messaggio ? Esiste qualche libreria?
2) dove trovo cgiwrapper?
Grazie

 wrote:
: 1) come fare per effettuar ein modo efficente il parsing di un file
: /var/mail/utente per estrarre i campi dell'header e il corpo del
: messaggio ? Esiste qualche libreria?
Mail::Folder
-- 
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
Newsgroup: it.comp.lang.perl
Titolo: MAil in perl

Usando la pipe verso sendmail, rieso a mandare messaggi di porta.
Ma come faccio ad allegarci un file???
Thx.!
MAx

Ma come faccio ad allegarci un file???
Prova a dare un'occhiata al modulo MIME::Lite.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

Perchè sul mio server Apache il modulo Lite mi gestisce gli Attach
mentre sul server IIS non me li gestisce ???
Quale modulo ho dimenticato ad installare ????
grazie


> Quale modulo ho dimenticato ad installare ????
Se usi activeperl il modilo si chiama Mime-Lite
digita 'ppm' al prompt dei comandi e poi dai il comando 'query'.
Ti elenca i moduli installati.
Se non c'è, allora 'install Mime-Lite'
Ok?
Max
Newsgroup: it.comp.lang.perl
Titolo: pressione tasto in active perl

dovrei rilevare la pressione di un tasto (per uscire da un loop), come
fare?
Grazie
oxy

#!/usr/bin/perl -w
# due esempi con Term::ReadKey
###
# il modulo non č standard in activeperl
# per installarlo:
# C:\> ppm
# PPM> install TermReadKey
#
use Term::ReadKey;
print "<Spingi un tasto qualsiasi per uscire dal ciclo (o interrupt ctrl+C)>\n";
# -1 => ReadKey non bloccante
while (not defined ReadKey -1) {
	# fai quello che vuoi qui ...	
}
print "Puf !\n";
ReadMode 4; # raw mode
print qq(<Spingi 'q' per uscire dal ciclo (niente interrupt)>\n);
for (;;) {
	# fai quello che vuoi qui ...
	my $c = ReadKey(-1);
	if (defined $c and $c eq 'q') {
		# ha spinto 'q', esci dal ciclo
		print "Pof !\n";
		last;
	} 	
}
-- 
Posted from 
mail5.galactica.it
 [212.41.208.22] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

grazie 1000!!
oxy

Newsgroup: it.comp.lang.perl
Titolo: estrazione da una stringa di record separati da \t

Ho un file di testo dove in ogni riga ho una serie di record delimitati
da \t, come faccio ad estrarli e metterli in variabili appoggio?
Es.
$stringa contiene         "uno \t due \t tre"
io voglio mettere in $campo1 "uno"
                                $campo2 "due"
                                $campo3 "tre"
Avrei pensato di usare dei substr e index, ma sicuramente ne esiste un
metodo + furbo.Qualche suggerimento?
grazie
Roberto

 wrote in message
38735AD1...@cic.ivrea.it...


 cerchero' un'altra donna dentro ai sogni di Tarzan...
Newsgroup: it.comp.lang.perl
Titolo: problema con DBI ed MS-SQL

Salve.
Uso Perl 5.004 con DBI 0.88 e DBD-ODBC 0.15 per accedere ad un server MS-SQL
7.0, il tutto da script CGI perl eseguiti da IIS sotto WindowsNT.
Ho dei problemi nella gestione delle transazioni, sembra che il il driver
DBD non sia in grado di fare il commit, anche se non restituisce alcun
messagigo di errore.
Leggo dal manuale DBI:
For database in which a transaction must be explicitly started, the
intention is to have them act like databases in which a transaction is
always active (as described above).
To do this the DBI driver will automatically begin a transaction when
AutoCommit is turned off (from the default on state) and will automatically
begin another transaction after a commit or rollback.
In this way, the application does not have to treat these databases as a
special case.
Immagino che il generico driver ODBC non sia in grado di fare questo, e che
sia necessario un driver specifico per SQL Server, che pero' non ho trovato.
E' questo il problema oppure ci sono altre possibili cause? In entrambi i
casi, come e' possibile rimediare?
Grazie per ogni eventuale risposta, saluti
Maurizio

...


 Inferentia SpA
Con l'autocommit ad 'on' non ho nessun problema.
Con autocommit ad off, tutte le operazioni sembrano essere eseguete
correttemente (compreso il commit al termine delle operazioni), ma il
contenuto del DB non viene assolutamente cambiato. Le stesse operazioni
eseguite con Autocommit ad on variano il DB correttamente.
Purtroppo avrei bisogno di svolgere un qruppo di update in maniera atomica,
non posso rischiare di interromere l'operazione a meta', per cui non posso
tenere autocommit su on.
Qualche suggerimento? Grazie
Maurizio


Ti conviene mettere la transazione dentro un'eval,
che funziona come un try/catch. In caso di errore,
fai un rollback.
$dbh->{AutoCommit}=0;
$dbh->{RaiseError}=1;
eval {
  $sth->do($query1);
  $sth->prepare($query2) ;
  while ($href=$sth->fetchrow_arrayref) {
     ...... lavori coi dati
  }
   ..... elabori i dati
  $dbh->commit;
} ;
$dbh->rollback if ($@) ;
Sent via Deja.com 
http://www.deja.com/
Share what you know. Learn what you don't.

fai un rollback.
A proposito di transazioni con eval { }. Funzionano anche su server che
non supportano transazione (come mySQL)? Suppongo di no...
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/
Newsgroup: it.comp.lang.perl
Titolo: log

Cosa ne dite del seguente pezzo di codice per aggiungere dati ad un log?
Conviene utilizzare ' invece di " quando possibile?
sub LogIt
{
 open LOG, ">>$datadir/logs/my.log";
 print LOG localtime()."\t",join("\t",@_),"\n";
 close LOG;
}



Dico che ti converrebbe anche lockare il file (e magari usare anche un
seek), altrimenti in caso di connessioni contemporanee farai danni.
Ciao
Andrea
Ciao
Andrea Busia
No Spam, Grazie.




Se non erro (ovvero se ricordo bene delle prove che avevo fatto), se hai il
file aperto in append, l'unico effetto che puoi avere dal non aver lockato
il file e' quello che alcune righe possono essere fuori ordine.
Ovviamente non ci metto la mano sul fuoco. Lockare e' sempre bene.
Tra l'altro, pero', se fai il lock di un file in append, e sei costretto ad
aspettare per scrivere, pare che sia bene fare un fseek alla fine del file
non appena si e' avuto il controllo.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 il file e' quello che alcune righe possono essere fuori ordine.
Io volevo sapere delle virgolette, non del lock (che comunque fa sempre
bene) ;-)
Comunque questo codice non l'ho scritto io.
Appartiene ad un noto sito il cui nome si puo' scrivere con otto caratteri
oppure due segni.

 bene) ;-)
Beh. Se vuoi aprire il file nella directory $datadir fai pure. Pero',
chiamare $datadir una directory vuol dire avere una mente perversa. :)
Sulle virgolette, non e' questione di "quando possibile": o vuoi hai bisogno
dell'interpolazione o non vuoi che avvenga. Quando l'interpolazione non
entra in gioco, diventa indifferente.


Newsgroup: it.comp.lang.perl
Titolo: prova non leggere

prova non leggere

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

Newsgroup: it.comp.lang.perl
Titolo: domanda forse FAQ

Allora,
io ho un programma perl, su un server apache.
Se il programma viene invocato da 2 persone contemporaneamente che succede?
Uno dei 2 crasha? Se si, come risolvo?
Poi, come gestisco un file di testo su cui vanno a lavorare in molti
contemporaneamente? devo implementare un semaforo? Ditemi di no...
Grazie e ciao....sono sicuro che la domanda si una FAQ =)

 contemporaneamente? devo implementare un semaforo? Ditemi di no...
devi usare un sistema per regolare gli accessi in scrittura a questo file, 
per esempio un semaforo oppure usare la funzione flock() se il tuo sistema 
supporta il locking dei file...
-- 
/federico

 contemporaneamente? devo implementare un semaforo? Ditemi di no...
Spiacente :))
http://www.perldoc.com/perl5.6/pod/func/flock.html
ciao
Stefano
Newsgroup: it.comp.lang.perl
Titolo: Implementazione delle regex in Perl

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

 per il recupero di informazioni ... :)
Il libro 'Mastering Regular Expressions' della O'Reilley contiene un intero
capitolo dedicato a Perl, alle sue RE e alle loro caratteristiche. Ora come
ora, pero', e' un po datato, nel senso che quasi tutti i difetti che
sottolinea (tipo le penalizzazioni quando si usano $`, $' e $&, o s///i)
sono in un modo o nell'altro superati gia' nella versione 5.004.
In ogni caso MRE rimane una lettura estremamente interessante, anche senza
addentrarsi dei dettagli sanguinolenti degli SFA.
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: Internet Information Server

Sapete per caso in che punto dei menu della configurazione di IIS su Windows
2000 Server bisogna impostare l'interprete perl per l'esecuzione di script
CGI?
Immagino che bisogna in una qualche maniera definire il tipo di file (*.pl).
Grazie per l'attenzione

 ha scritto nel messaggio
news:974T8.1945$KR2.2...@news.edisontel.com...


 
Allora, io ho fatto l'installazione ed in effetti aggiunge le estensioni 
corrette ma, ho un problema.
In locale (sul server 2000) mi funziona tutto, mentre se lancio gli stessi 
esempi da un'altro pc in rete, sebra che lo script perl non venga eseguito.
Siccome sono nuovo in Perl, avete qualche dritta da darmi? 
Il path sul server e' a posto, le estensioni sono a posto globalmente per 
il server IIS ....boh?!?
Grazie
Bilo
Newsgroup: it.comp.lang.perl
Titolo: use warnings FATAL

Ciao a tutti,
sto cercando un modo per poter considerare i warning come errori nel
server di test, togliendo questo controllo invece nel server di
produzione, senza dover modificare però ogni volta lo script.
Sui server con mod_perl questo mi pare si possa fare facilmente
caricando un file di configurazione quando parte apache, ma nei server
cgi normali?
Ho provato a fare cose abbastanza stupide (immagino :P) che non
funzionano ad esempio:
1) sintassi del tipo: use warnings FATAL => qw($variabile);
in cui pensavo di prendere $variabile da un file di configurazione
2) oppure:
if ($variabile == 1) {
    use warnings FATAL => qw(all);
}
(perché non funziona una cosa del genere?)
Qualche idea?
Grazie
Fabrizio

 (perché non funziona una cosa del genere?)
Questo funziona solo all' interno del blocco if
una volta usciti viene ripristinato il use warnings del blocco esterno
Puoi leggere:
http://perldoc.perl.org/perllexwarn.html#Fatal-Warnings


#!/usr/bin/perl
use strict;
use warnings split /\W+/, $ENV{PERL_WARNINGS};
my @array = 0 .. 10;
my $x = @array[3];
print "printing after warning\n";
__END__
~/sviluppo/perl$ perl 
wfatal.pl
 ; echo $?
Scalar value @array[3] better written as $array[3] at 
wfatal.pl
 line
5.
printing after warning
0
~/sviluppo/perl$ PERL_WARNINGS='FATAL all' perl 
wfatal.pl
 ; echo $?
Scalar value @array[3] better written as $array[3] at 
wfatal.pl
 line
5.
255
Ciao,
   Flavio.

    Flavio.
Grazie mille!
Ho messo
SetEnv PERL_WARNINGS 'FATAL all'
nella configurazione di apache nei server di test e funziona proprio
come mi serviva!
Ciao
Fabrizio

Newsgroup: it.comp.lang.perl
Titolo: Data di creazione di un file

Cerco un modo di leggere la data e ora di creazione di un file direttamente
da PERL ho visto che con readdir mi restituisce solo il nome del file o mi
sbaglio?
Grazie.

 Cerco un modo di leggere la data e ora di creazione di un file direttamente da PERL 
perldoc -f stat
Cheers,
	Alessandro

sbaglio?
$datacreazione = (stat("nomefile"))[10];
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.italpro.com/mb/
Newsgroup: it.comp.lang.perl
Titolo: problema con NT

Ho un discreto problema con NT e IIS 4.
Ho fatto un piccolo script in perl per gestire una mailing list, e' molto 
semplice, colleziona gli indirizzi di e-mail in un file di testo, a 
gestire l'invio delle email e' poi un programma client.
Il tutto funziona perfettamente su UNIX.
Portato su NT non funziona nulla, il problema e' che non riesce ad 
accedere ai file, sia in lettura che in scrittura, credo sia un problema 
di riferimenti del path, non e' un problema di permessi sulle directory, 
questo l'ho gia' appurato.
Tanto per fare un esempio vi sono due script nella stessa directory cgi-
bin, 
mailinglist.pl
 e 
process_cgi.pl
.
Il secondo e' una libreria per il primo, ma quando in 
mailinglist.pl
 
metto la riga 
require "
process_cgi.pl
"
non riesce a tirarlo su, dice che non esiste, pur essendo nella stessa 
directory. Ma allora gli script su NT con quale directory di partenza 
vengono eseguiti?
Ho gia' provato con ".\
process_cgi.pl
" e "./
process_cgi.pl
" ma non 
ottengo nulla.
Qualcuno mi sa dare una dritta?
-- 
----------------------
Guido Bellomo
gbellom...@economia.unibo.it
http://www.econlab.unibo.it/gbellomo
Rimuovi NOTSPAM dall'indirizzo per scrivermi

 wrote in message
MPG.11fbbdae2...@news.cineca.it...


Qualcuno mi sa dare una dritta?
Se la tua cgi si trova nella dir 'prova' della dir delle cgi, allora
usa << require "prova/
process_cgi.pl
" >>.
------
bale...@dada.it
 
http://zap.to/balestra
  ICQ#:14303012
" Ora mai che i baci tuoi piu' non mi sazian
  cerchero' un'altra donna dentro ai sogni di Tarzan... "

Newsgroup: it.comp.lang.perl
Titolo: Script che genera lista di NG {help}

Questo script dovrebbe dare in risposta la lista dei neg. su un server.
Purtroppo da un msg di errore. Come mai?
L'ho salvato sul mio server applicando chmod 775, poi l'ho eseguito via
Telnet.
#!/usr/bin/perl
use Net::NNTP;
$ARGV[0] = '
news.libero.it
' if !defined $ARGV[0];
$c = new Net::NNTP($ARGV[0]);
$lista = $c->list();
foreach $newsgroup (keys %$lista){
 print "$newsgroup\n";
}
Can't call method "list" on an undefined value at newsreader.cgi line 7.

 Telnet.
Molto probabilmente (anzi, quasi sicuramente) 
news.libero.it
 non consente
l'accesso dal host su cui stai fecendo le prove. Se è così, il server
risponde con un errore e chiude la connessione. In questo caso new
restituisce undef.  Per fare le prove attiva la modalità di debugging:
  $c = new Net::NNTP($ARGV[0], Debug => 1 );
Max
