mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Chiamata al sistema

Non riesco a chiamare il sistema. Questa linea di programma non funziona:
---snip----------------------------------------------
$msg_body = 'Hello' word!';
system '/usr/bin/sendmail', 'root', '<', "$msg_body";
-----------------------------------------------------
Perche'??????????
Il programma mi da questo messaggio di errore:
---snip---------------------------------
<... Unbalanced '<'
<... User unknown
Hello' word! ... User unknown
----------------------------------------
e poi si blocca. Perche'????????????????
-- 
******* Linux... the choice of a GNU generation! *******
--------------------------------------------------------
liviata...@usa.net
 (Remove +nospam to e-mail reply)
it.cultura.ebraica ---> 
http://members.xoom.com/icegroup

Perche' word si scrive con la elle, hello senza apostrofo.


 system '/usr/bin/sendmail', 'root', '<', "$msg_body";
Due problemi.
i) Se passi a system una lista, perl non la fa preprocessare dalla
shell, ma esegue fork + execl. Questo significa che tutto quello che
segue il nome del comando costituisce un argomento per sendmail. Da cui 
i messaggi d'errore.
ii) Ma non puoi fare neanche 
system "/usr/bin/sendmail -bm root < $msg_body"
perche' $msg_body non e' un file, e' il testo del messaggio.
Potresti fare 
system "echo $msg_body|/usr/bin/sendmail -bm root"
Ma a me fa un po' schifo - e se ci sono newlines in $msg_body sei
fregato.
Preferisco un cosa del genere:
open(SM, "|/usr/bin/sendmail -bm root") or die "Cannot sendmail:$!";
print SM, $msg_body;
closw SM ;
Ma ancora meglio:
use Mail::Send # se ben ricordo. Preceduto da perldoc Mail::Send
Cheers,
	Alessandro

...


 use Mail::Send # se ben ricordo. Preceduto da perldoc Mail::Send
Non uso le librerie perche':
1) sto imparando il perl e quindi per ora non voglio la pappa pronta
2) quando ho provato a installarne una, ma ne chiedeva un'altra, che ne
chiedeva un'altra... che ne chiedeva un'altra...
3) molte sono piene di bugs (vedi messaggio stesso tread!!!)
Ciao e grazie!
BTW: ...se non trovo la soluzione, saro' costretto a far scrivere un
piccolo batch da lanciare alla fine della procedura. Con il che l'eleganza
e' ridotta ai minimi termini... :-(


E ottenevo come risultato  2 volte pippo.
Fai un flush di STDOUT prima di chiamare Mail::Send.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

Con il close?
Valerio
Marco d'Itri ha scritto nel messaggio ...


chiedeva un'altra... che ne chiedeva un'altra...
Hai provato con
perl -MCPAN -e shell
E' comodissimo. Con il perl 5.005 ha anche una serie di
ftp server da cui scegliere.
Ciao,


Con il close?
No, con $|. Guarda perlfunc(1p).


No, con $|. Guarda perlfunc(1p).

 non prende il $msg_body.
Strano.
Puo' succedere se in body hai degli header addizionali, e se hai
dimenticato di separarli con una linea vuota dal contenuto.
(E.g.:
Subject: with love
From: me
To: you
Love,
	John L.
)
A scanso, prova:
print SM, "\n\n", $msg_body;
close SM
Inoltre, controlla nei log di sistema (che potrebbero stare in
/var/log/maillog) cosa dice sendmail
Cheers,
	Alessandro
Newsgroup: it.comp.lang.perl
Titolo: STO CREANDO...

...un programma in PERL per gestire le news...
vorrei sapere se trovate difetti in questo programma...(ogni suggerimento è
ben accetto!!!) 
questo è il primo indirizzodel programma...)
http://www.kryno2001.f2s.com/cgi-bi...news/login.html
questo è l'indirizzo per vedere le news che fate:
http://www.kryno2001.f2s.com/home.html
Speriamo bene.... 
la password è ajax 
Ciauzzz....

 
l'indirizzo preciso č:
http://www.kryno2001.f2s.com/cgi-bin/My_simple_news/login.html

Newsgroup: it.comp.lang.perl
Titolo: Banca sella

Qualcuno ha gia' implementato unn payment gateway in perl verso Banca Sella?
Tonio

 Qualcuno ha gia' implementato unn payment gateway in perl verso Banca
Sella?
Più di uno, in perl e php.
Quali sono i tuoi dubbi?
Valerio

 Tonio
-- 
Sebastian Konstanty Zdrojewski
Development Director SKZ Services - Italy
http://www.skzservices.com
zdroj...@skzservices.com
Tel. (+39) 03483543477
ICQ: 97334916

Ciao, anch'io sto' cercando un esempio di script in Perl per la gestione dei
parametri da passare al server di Banca Sella.
Qualcuno ha informazioni a riguardo oppure ha uno script di esempio?
Grazie 1000 in anticipo.
Ciao. Rik

 Qualcuno ha informazioni a riguardo oppure ha uno script di esempio?
La gestione di Banca Sella è abbastanza semplice.
L'unico problema è l'importo, che va moltiplicato per il TID
generando un numero che perl visualizza in notazione
esponenziale. In quel caso uso BCMath (php) o Math::BigInt (perl)
Ciao,
Valerio

 ha scritto nel messaggio
news:lY3Z5.21061$D8.3...@twister2.tin.it...

Newsgroup: it.comp.lang.perl
Titolo: Authenticazione sul proxy

Ciao a tutti,
prima di scrivere questo post mi sono letto i post vecchi ma non sono
riuscito a risolvere il problema. Vi descrivo brevemente cosa devo
realizzare, un semplice script per la verifica della disponibilità di
alcuni indirizzi web. Il problema che ho è il seguente non riesco ad
autenticarmi sul proxy. Utilizzo il modulo LWP::UserAgent e come spiega
nella documentazione ho creato il seguente esempio:
------------------------------------------------code--------------------------------------------------------------------
#!/usr/bin/perl -w
use strict;
$|++;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->proxy(['http', 'ftp', 'https'],
'
http://Rete
\\m.s********:M*******o@mioproxy:8080');
my $res = $ua->get('
http://www.google.it
');
if ($res->is_success) {
print $res->as_string;
print
"########################################################################\n";
print "#RESPONSE: ", $res->status_line, "\n";
print
"########################################################################\n";
}
else {
print "Failed: ", $res->status_line, "\n";
}
------------------------------------------------code--------------------------------------------------------------------
La particolarità è che le utenze che ci sono state assegnate devo
essere procedute dal dominio, in quanto le nostre macchine di
monitoring sono tutte fuori dal dominio. Ad  esempio l'utente pippo si
autentica  con rete\pippo (dove rete è il dominio) e password.
Quando eseguo lo script questo è il risultato che ottengo:
Failed: 407 Proxy Authentication Required ( The ISA Server requires
authorizatio
n to fulfill the request. Access to the Web Proxy filter is denied.  )
Qualcuno conosce qualche modulo che mi permetta di autenticarmi su
questo tipo di proxy?
Mi stavo scordando la piattaforma di svilluppo è Windows con l'ultima
versione del perl ActiveState mi pare sia la 5.8.8. Ma ho fatto dei
test anche su linux (Ubuntu 6.06.1 LTS) ma il risultato non cambia.
Grazie.
Saluti,
Mirko.

Forse può esserti utile il paragrafo 15 del capito 20 del libro Perl
Cookbook "Fetching Password-Protected Pages". Posso inviarti la pagina
via email per non doverla digitare tutta (troppo lavoro). Mostra il tuo
indirizzo email e invio la fotocopia della pagina.
Ciao
Oreste


 autenticarmi sul proxy. 
 
http://groups.google.com/group/comp.lang.perl.misc/msg/03cdd6eec6d13dad
MM

Max M. ha scritto:

Grazie per le risposte, il link che mi hai suggerito mi da lo stesso
problema. :-(
Mentre per quanto riguarda la pagina che mi ha indicato Oreste sul mio
Cookbook in html non l'ho trovata... :-( se puoi essere così gentile
da inviarla a 
mirko.stefan...@gmail.com
 (ovviamente togliendo
_nospam_ ) 
Grazie comunque.

 problema. :-(
Scopri quale schema di autenticazione il proxy richiede. L'esempio nel link
funziona soltanto se il proxy si accontenta dell'autenticazione di tipo
"Basic".
Se dalla macchina Linux riesci ad autenticarti sul proxy con il browser, usa
'ngrep' per ispezionare le richieste HTTP nei due casi e identificare le
differenze.
Max

 Grazie comunque.
Newsgroup: it.comp.lang.perl
Titolo: variabili globali a più script

Ciao a tutti,
Il mio problema è il seguente.
Uno script JS legge il cookie dell'ultimo accesso al sito del visitatore
e setta la variabile lastVisit. Questa mi serve un po ovunque nei vari
script JS e Perl.
Esiste la possibilità di dichiarare variabili globali a più script Perl
(ex: #include del C oppure SRC del JavaScript).
Per passare parametri tra JS e Perl è una buona tecnica richiamare la
procedura Perl passando i parametri co metodo GET (ex:
pippo.pl?citta=torino
)
Ciao e grazie.

 (ex: #include del C oppure SRC del JavaScript).
Ho risposto a questa domanda il 14 marzo nel messaggio a Stefano Zacchiroli.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 
pippo.pl?citta=torino
)
Potresti settare via Javascript il value di un campo hidden.
Valerio

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

 Qualcuno mi sa spiegare perche ?
Perche' e' un indicazione che tutto il codice contenuto nel file (e quindi
eventuali inizializzazioni) e' stato eseguito correttamente.


2) usando "require". Ho fatto cosi': ho creato un file .pm (anche se non
Come dici tu va bene, finche' non usi il mod_perl con use
strict....allora diventa molto piu' complicato....
Ciao
Benedetto.
--
logan@voi_vitsi.pulp-fiction.com
 (To mail me, take away voi_vitsi.)

eventuali inizializzazioni) e' stato eseguito correttamente.
Si ma se metto "1;" in fondo al codice che controllo e' ?
Funzionera' sempre tutto bene o almeno cosi' sembrera'.
Qual'e' il modo *corretto* per fare cio' ?


 Funzionera' sempre tutto bene o almeno cosi' sembrera'.
No. Perche' se fai VERAMENTE delle routine di inizializzazione, e' possibile
che queste abbiano un loro codice di errore.
Siccome di solito certi file o fanno assegnazioni di variabili o fanno
dichiarazioni di subroutine, l' "1;" e' necessario per essere sicuri di
tornare un valore vero.

Newsgroup: it.comp.lang.perl
Titolo: Chiarimenti sul valore falso

e poi c'è il numero zero - e qui non ci sono dubbi :)
Come dicevo prima anche quando e' una stringa.
E poi ci sono array e hash non definiti o vuoti (che venendo stimati in
contesto scalare sono come stringhe vuote).
In definitiva e' abbastanza intuitivo e' falso tutto cio' che lla normale logica
umana considera falso, vuoto, inesistente, privo di significato.
Cme dice Larry Wall: 
"Basically, Perl holds truths to be self-evidente" (Da: "Programming Perl").
-- 
Saluti,
Giancarlo

 entrambi?
E' valutata come 'true' qualunque espressione scalare che NON produca uno
dei seguenti valori:
 undef (indefinito)
 ""    (stringa vuota)
 "0"   (stringa contentente il carattere '0')
 0     (valore numerico 0 )  
Ad esempio: sia " " che "00" sono valutati come  'true', mentre
espressioni come
 int( " " )
 int( "00" )
 ( " " + " " )
vengono valutate come 'false'.
Talvolta si può avere l'esigenza di produrre un valore scalare che venga
valutato come 0 in un contesto numerico e come 'true' in un contesto
booleano. I questi casi il modulo DBI, ad esempio, usa la stringa "0E0",
che è 'true', ma vale 0.
Per completare il discorso: lista, variabili array e variabili hash in un
contesto booleano vengono valutati come in un qualsiasi altro contesto
scalare. Pertanto, il valore scalare di una lista non vuota è il numero
degli elementi, e la sua interpretazione booleana è 'true'. In caso di
liste vuote otteniamo ovviamente 'false'.
Max

utilizzatori?
Una esiste perche' l'ho "vista" in una libreria, non l'ho mai letta pero' (e
neppure sfogliata: era celophanata), ma temo che sia la solita porcata di
traduzione, per altro cosi' a occhio era molto piu' "sottile" della mia
versione originale.
Comunque l'inglese in cui e' scritto e' leggibilissimo (faccio notare che
"ufficialmente" io l'inglese _non_ lo so, nel senso che non l'ho mai studiato).
Infine e' da poco uscita la 3a edizione.... personalmente, anche se possiedo
una copia della 2a, sto valutandone l'acquisto.... oltretutto guadagnerei un
punto nel perl purity test :)
-- 
Saluti,
Giancarlo

Newsgroup: it.comp.lang.perl
Titolo: Intersezione tra due file

Come posso impostare uno script che prenda in input due file A e B e 
metta in output nel file C le sole linee che compaiono in entrambi i 
file A e B?
O meglio ancora, esistono delle collezioni di script nelle quali 
scartabellare un po'? grazie.
Ciao
  BQ

 scartabellare un po'? grazie.
Per cominciare, dai uno sguardo a Text::Diff.
Max

 
benissimo grazie; poi magari ritorno con domande piu specifiche.
Ciao
  BQ

 
Allora, molto semplicemente, ti basta caricare le righe del primo file in 
un hash, e usare questo per filtrare le righe del secondo:
  open FX, "fileA";
  my %A = map { $_, 1 } <FX>;
 
  open FX, "fileB";
 
  my @common = grep { $A{$_} } <FX>;
Max

Max M. ha scritto::

grazie mille provo subito!!!!
Ciao
  BQ
Newsgroup: it.comp.lang.perl
Titolo: Documentazione SSL

Dove posso trovare documentazione per abilitare il mio sito per le
connessioni protette ?
Grazie, Marco.

connessioni protette ?
Devi installare un web server con l'apposito supporto, come apache-ssl.
Una volta configurato quello, devi semplicemente acquistare un certificato
presso un'entita` di certificazione, ad esempio Thawte.
	A presto, Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

Newsgroup: it.comp.lang.perl
Titolo: case insensitive

if (exists($oldres{$key}))
quando faccio questo confronto per vedere se c'e' gia una chiave nella
mia hash table vorrei che fosse CASE INSENSITIVE.
Mi potete dire come fare?
Grazie 
Franco
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 
Basterebbe trasformare tutti i valori in uc o lc per esempio.
ciao
angelo

 ha scritto nel messaggio
news:750d54cc28d19aaf58...@mygate.mailgate.org...

Newsgroup: it.comp.lang.perl
Titolo: Problema con FTP dipendente dal tipo di connessione

Ciao a tutti,
volevo vedere se avete spiegazioni a quanto segue:
Il client Filezilla mi permette di fare download e upload da un sito
indipendentemente dal tipo di connessione (PPP o ADSL Alice)
I metodi put e get del modulo Net::FTP funzionano se mi connetto
mediante connessione PPP e smettono di funzionare (hang) se mi
connetto con ADSL Alice
Giusto per dare un contesto:
use Net::FTP;
use strict;
use warnings;
my $ftp;
die ("messaggio")  unless $ftp = Net::FTP->new("server", 
(Passive => 0, Timeout => 5));
die ("messaggio")   	unless $ftp->login("login", "pwd");
die ("Fallito binary")   	unless $ftp->binary();
die("Fallito pasv")   	unless $ftp->pasv();
die("Fallita get\n")   	unless $ftp->get("Nome_del_file");
Mentre le due seguenti istruzioni funzionano perfettamente
print scalar localtime ($ftp->mdtm("Nome_del_file")), "\n";
print $ftp->size("Nome_del_file"), "\n";
Ammetto di non capirci più nulla e la sensazione è che dopo una lunga
giornata di lavoro domenicale mi stia sfuggendo qualcosa di ovvio
Avete qualche suggerimento?
Ciao
Daniele

 die("Fallito pasv")           unless $ftp->pasv();
come dice la documentazione, non ha alcun effetto sul put o sul get del
modulo. Riporto:
"If for some reason you want to have complete control over the data
connection, this includes generating it and calling the "response"
method when required, then the user can use these methods to do so.
However calling these methods only affects the use of the methods above
that can return a data connection. They have no effect on methods "get",
"put", "put_unique" and those that do not require data connections."
Quindi suggerisco di mettere Passive a 1 e di riprovare.
HTH,
-- 
.           .  | "...And I am dumb to tell the hanging man
| , ,-. ,-. |  | How of my clay is made the hangman's lime."
|<  |   ,-| |  |                            -- Dylan Thomas
' ` '   `-^ `' |<uggc://jjj.gurqvenpfrn.bet>

>Probabilente non entri in modalità passiva, infatti tu dici al modulo:
Hai ragione. E' esattamente come dici.
La cosa grave è che quel Passive => 0 è una mia dimenticanza di cui
non mi sono proprio accorto :-(
Mannaggia
Un grazie sincero, ti sono in debito
Ciao 

 Un grazie sincero, ti sono in debito
Figurati.
Ciao,


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

In perl ci sono funzioni matematiche tipo elevamento a potenza, fattoriale,
logaritmo etc?
Se si come si possono usare?
Un altra domanda: è possibile imporre che una certa variabile sia non un
intero ma un numero reale (magari a 32 bits)?
Grazie
Max

 intero ma un numero reale (magari a 32 bits)?
Math::GMP
  Raffaello

 ha scritto nel messaggio
news:Pine.OSF.4.62.05...@harry.molgen.mpg.de...

Newsgroup: it.comp.lang.perl
Titolo: errore incomprensibile

non capisco perchč funzioni sotto unix mentre sotto windows non va per nulla
al mondo: sotto windows si limita a stampare la pagine senza perň inserire
il file
lo script viene richiamato con
http://www.cccc.com/cgi.bin/script.pl?fileditesto
#!/usr/bin/perl
$| = 1;
print "Content-type: text/html\n\n";
print "<html><head><title>Test Page</title></head>\n";
print "<body>\n";
open(FILE2,"$ENV{'QUERY_STRING'}");
while(<FILE2>) { print $_.'<br>' } #questo serve perchč il file di testo non
č formattato
print "</body></html>\n";
exit;

 cerchero` un'altra donna dentro ai sogni di Tarzan...
Newsgroup: it.comp.lang.perl
Titolo: Motore di ricerca TXT

Devo creare uno script che esegua la seguente funzione:
1)Legge input
2)Apre un file di testo (ricerca.txt)
3)Verifica se c'è nelle linee l'imput se c'è deve stamapre la riga in un
modo speciale*
ricerca.txt
nome,indirizzo,e-mail,dato1,paese,e-mail,foto
* Praticamente quando trova in una riga l'imput richiesto lui deve stampare
"print" la riga, ma con un metodo speciale
<table>
<tr><td>nome</td></tr>
<tr><td>indirizzo</td></tr>
</table>
Grazie in anticipo!

....
Input si scrive con la N.
Ma in definitiva vuoi qualcuno che scriva il programma al posto tuo?
Oppure vuoi dei suggerimenti?
Uno script come quello che "DEVI creare" e' facile, ti dovrebbero bastare
le conoscenze di base per iniziare a programmare in perl, nulla di piu'
complicato di open, while, if (match), split, print, close.
-- 
Saluti,
Giancarlo

 wrote in message
966878977...@news.inet.it...


$dato1,$dato2
Allora un paio di suggerimenti un po' piu' dettagliati:
1)
open(FILE,'file.txt');
while (<FILE>) {
        etc,etc....
}
close FILE
2)
@array=split(<pattner>,$scalar);
-- 
Saluti,
Giancarlo




un nome al dato1, e poi al dato2 e via dicendo giusto!?!
1. perldoc -f split
2. prova a mettere @dati=split /,/,$_  dentro al tuo if piu' interno e guarda
cosa c'e' in @dati (modo "volgare": print "$dati[0] - $dati[1] etc \n";)
3. ragiona un secondo e trai delle conclusioni un po' piu'
formalmente corrette di quelle qui sopra.
-- 
Saluti,
Giancarlo

 wrote in message
967025479....@news.inet.it...


#Qui dovrei inserire lo split e levariabili vettoriali giusto?
Allora facciamo cosi', mi sono rotto le scatole di provare a far imparare
qualcosa ad uno zuccone del tuo stampo:
Ecco lo script funzionante, cosi' la finizmo qui.
#!C:/perl/bin/perl
use CGI qw/:standard/;
print header();
$cerca = param('cerca');
$file = 'testo.txt';
unless ($cerca) {
	print <<ERRMSG;
<p>
	<b>Non hai inserito il dato !</b>
</p>
<p>
	<form method="post" action="/cgi-bin/
motor.pl
">
	<input name="cerca" type="text">
	<input type="submit" value="Invia">
	</form>
</p>
ERRMSG
;
	exit;
}
 
open (FILE, $file) || do { print "<b>Impossibile aprire $file: $!</b>\n"; exit;};
 
while (<FILE>) {
	if (/$cerca/i ){ 
		($nome,$indirizzo)=split /,/;
		print <<TABLE;
Ricerca di <b>$cerca</b>
<table>
	<tr>
		<td>$nome</td>
	</tr>
	<tr>
		<td>$indirizzo</td>
	</tr>
</table>
TABLE
;
		close FILE;
		exit;
	}
}
close FILE;
print <<NOTFOUND;
<table>
	<tr>
		<td>Nessun dato trovato</td>
	</tr>
</table>
NOTFOUND
;
-- 
Saluti,
Giancarlo

 wrote in message
967126610...@news.inet.it...




------









#!C:/perl/bin/perl





($nome,$indirizzo)=split /,/;


sono sicuro perchè visto che non funzionava ho provato a toglierlo
E nemmeno quando ti si dice dove sta l'errore non lo riesci a trovare....
I ; non mancavano dopo l'exit, ma PRIMA!!! ovvero alla fine della linea
precedente.
-- 
Saluti,
Giancarlo

sono sicuro perchč visto che non funzionava ho provato a toglierlo

Newsgroup: it.comp.lang.perl
Titolo: Help With Split... I think... :)

Ok, I admit it I suck as a programmer. I guess thats why I dont program full
time :). Anyway I need help from you experts out there.
I am trying to create an array from a line of text that has no formatting
and I cannot figure out how to seperate the fields.
Here is the original text.. (including spaces)
1111111111        00000011111110000001111111TEST COMPANY
11111111111636459802000101700
This is how I want it to look...
1111111111,0000001111111,0000001111111,TEST
COMPANY,11111111111,63645980,2000101700
Thank You Very Much..
Mez
PS... I am posting this to three perl groups cuz I am not sure which one is
correct for this type of question.......

 correct for this type of question.......
Well, at least you crossposted, instead of posting three time.  :-)
-- 
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
l...@hpl.hp.com

Newsgroup: it.comp.lang.perl
Titolo: Driver Oracle

Qualcuno sa dirmi dove posso trovare dei driver aggiornati di Oracle 8i per
Perl??
Grazie.

al f wrote:

I driver più aggiornati li puoi trovare sul CPAN:
http://search.cpan.org/search?dist=DBD-Oracle
Marco Gazerro
Newsgroup: it.comp.lang.perl
Titolo: Mail usando NET::SMTP

Ho imparato ad usare NET:SMTP sia con il Perl sotto Linux che con
ActivePerl.
Tutto ha funzionato fino ad oggi, quando una ISP mi dice che per accedere al
server SMTP "mail.tal.dei.tali" occorre User e Password.
Ora io non so come abbia funzionato fin ora con altre ISP il set di
istruzioni:
-----------------------------------------
use Net::SMTP;
    $smtp = Net::SMTP->new('mailhost');
    $smtp->mail($ENV{USER});
    $smtp->to('postmaster');
    $smtp->data();
    $smtp->datasend("To: postmaster\n");
    $smtp->datasend("\n");
    $smtp->datasend("A simple test message\n");
    $smtp->dataend();
    $smtp->quit;
--------------------------------------------------
perchè l'ho applicato... e basta (avendo sostituito le variabili con i nomi
corretti...)!
Ho fatto qualche timida verifica e scopro che l'istruzione:
    $smtp->mail($ENV{USER}); va in errore,
perlomeno se uso:
    $smtp->mail($ENV{USER}) or print "c'è qualcosa che non va!";
mi scrive appunto la frase "c'è qualcosa che non va!" a riprova che non
viene accettato lo User (e così?)
Ora ho provato a sostituire         $ENV{USER} con lo User suggerito dalla
ISP ed in effetti l'errore non viene più emesso (cioè non mi scrive "c'è
qualcosa che non va!).
Continua però a non funzionare l'invio di email perchè forse il server
richiede anche la password.
Come fare?
Premetto che so usare sendmail, ma voglio usare il suddetto sistema sia con
Linux che con ActivePerl e quindi voglio sganciarmi dal vincolo di usare
questo o quel programma, anche perchè sono sempre installati in modi diversi
nei server delle varie ISP.
Mi date una mano, per favore?  ;-)
Grazie infinite.
Lele.

Hai provato a vedere se funziona con il Mime:Lite ???
Se non ricordo male funziona molto bene...


 [..cut..]
anche io ho il tuo stessissimo problema
quando scopro come si risolve ti chiamo
bau
-- 
Key fingerprint = 2DC2 63D0 B4F9 A514 4C42  8F59 8F00 BF67 AE25 2AEE

 ha scritto nel
messaggio news:3B0A229F...@venaria.marelli.it...


 accedere al server SMTP "mail.tal.dei.tali" occorre User e Password.
Mi sembra che il problema sia questo... evidentemente quel server SMTP 
necessita di autenticazione
Non credo che il modulo NET::SMTP supporta l'autenticazione SMTP (RFC 
2554 - PROPOSED STANDARD), non e' uno standard e sinceramente non ne 
conosco bene le implementazioni.
-- 
Saluti,
Giancarlo

 ha scritto nel messaggio
news:9egqe7$2no4$1...@stargate1.inet.it...

Newsgroup: it.comp.lang.perl
Titolo: cgi perl che crea pagine web

Ciao, sto facendo uno script che realizzi pagine web a partire da un file di
testo, però non so come si fa a dire allo script che nel body della pagina
web deve inserire tutte le righe di un certo file di testo, in modo cioè che
per avere la pagina html a partire dal fileA di testo sia sufficiente
inserire in una pagina un link tipo:
http://sito.com/script.cgi?fileA.txt
grazie
ps. non so come testiate voi i perl script, ma io ho trovato un prog che li
esegue sul pc indipendentemente dalla presenza del perl: dzSoft perl editor
ecco lo script
#!/usr/local/bin/perl
print "Content-type: text/html\n\n" ;
print <<EOF ;
<html>
<head><title>$title</title></head>
<body>
|||||||||qui devo inserire il file di testo
</body>
</html>
EOF

Devi spezzare le print dei tag html in due: una per la testata ed una per la
coda della pagina html.
In mezzo ci metti una routine che legge il file di testo e lo printa.
Io ho realizzato qualcosa del genere.. non è scritto in Perl elegante, ma se
vuoi te lo mando privatamente.

 ha scritto nel messaggio
news:8krffj$l68$1...@sirmdpsin17.inwind.it...


Ti crei un template, ossia un file html con la struttura della pagina e
dentro
dei tag tipo <#nome#> <#cognome#>. Apri il template per l'imput, apri il
file da generare
in modalità output. Fai il parsing delle righe del primo sostituendo ai
tuoi marcatori i contenuti
delle variabili e stampi nel secondo. Chiudi tutto e buonanotte ai
suonatori.

 ha scritto nel messaggio
news:3972D3CD...@inwind.it...


Scusami, sono stato poco chiaro:
file: hp_template.asc
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
	<title><# titolo #></title>
</head>
<body>
</body>
</html>
file 
crea_homepage.pl
#!/usr/bin/perl
$titolo="nuovo titolo della pagina";
open(INPUT,"<hp_template.asc");
while(<INPUT>){
 /<#titolo#>/$titolo/;
 print;
}
close(INPUT);
Mancano un paio di cosette, e vi sono possibili 
*problemi di sicurezza* nel file pl ma spero renda l'idea.

Newsgroup: it.comp.lang.perl
Titolo: TK Perl

Scusate ho seguito per un po' il gruppo, ma non si parla mai del Tk
Perl per fare delle interfacce, ne vorrei sapere di piu' per una
tesina per l'esame telematica ad ing. informatica a firenze
Il prof mi ha detto di usare o i cgi-bin o il tk per la grafica da qui
la domanda su esposta
grazie in anticipo per la cortesia
ciao Francesco


Grazie Marco per la risposta.
Per quanto riguarda domande più specifiche dire innanzitutto dove
posso trovare materiale informativo in rete (possibilmente in
italiano) e anche libri.
Poi vorrei sapere le differenze sostanziali tra Tk e Cgi per quanto
riguarda la creazione di interfacce, quando si usa l'uno quando
l'altro, perchè, ecc ... insomma pregi e difetti del Tk e dei Cgi.
Spero di non essere troppo OT.
Grazie a presto Francesco
Newsgroup: it.comp.lang.perl
Titolo: Chiamare sub da linea di comando

Ciao a tutti avrei bisogno di fare una cosa forse un po' strana e non 
essendo un eccelso conoscitore di perl (lo stï¿œ perï¿œ studiando con molto 
piacere) mi rivolgo a voi.
File 
test.pm
 il cui contenuto ï¿œ il seguente
sub test_print {
         print "stampa di test\n";
}
La cosa che avrei bisogno di fare ï¿œ richiamare la funzione dalla shell 
linux, diciamo una cosa del tipo:
$ perl test.pm.test_print();
E' cosa fattibile o stï¿œ cercando qualcosa che non esiste?
Grazie

Beppe wrote:

Fattibilissimo (nel thread "Ottenere il full path di un file" troverai 
numerosi esempi in cui viene fatto).
Nel tuo caso basta:
$ perl -MMyTest -e 'MyTest::test_print'
stampa di test
Nota perï¿œ che la forma minimale del tuo modulo (che ï¿œ stato rinominato 
MyTest.pm) deve essere:
---
package MyTest; # Il case minuscolo ï¿œ riservato ai pragma.
use strict;     # opzionali,
use warnings;   # ma mettili.
sub test_print {
     print "stampa di test\n"
}
1;              # Importante!
---
e che il file MyTest.pm deve risiedere in una delle directory presenti 
in @INC (ad esempio nella stessa directory dalla quale lanci il comando).
Altrimenti devi aggiungere ad @INC il percorso al tuo modulo (ad es. con 
use lib).
Poi si puï¿œ fare di meglio, tipo esportare le subroutine che ti 
interessano oppure scrivere un modulo OO, ma lo si puï¿œ vedere dopo.

Ok grazie mille, diciamo che per l'uso minimale che devo farne la tua 
risposta ï¿œ piï¿œ che esauriente.
Buon lunedï¿œ!

Newsgroup: it.comp.lang.perl
Titolo: OFFRO LAUTA RICOMPENSA

Ho necessità di qualcuno in grado di programmarmi una semplicissima CGI che
giri sotto Unix.
Si tratta quasi di un semplice Form Mail che mi richiama dei campi da una
form HTML, altri campi da un file presente sul server, esegue alcune
elementari operazioni ed invia il risultato ad una determinata URL.
Sono disposto ad offrire una adeguata ricompensa a chi mi può aiutare.

...

Scrivimi e vedremo cosa si puo' fare.
f...@poboxes.com

Scrivimi: 
fa...@inc.it

Newsgroup: it.comp.lang.perl
Titolo: Distribuzione del Perl.

Ciao a tutto il NG.
Ho creato un'applicazione con scripts Perl ed adesso desidero distribuire ai
miei clienti sia gli scripts che una versione "minima" del Perl perchč
questi possa eseguire gli scripts (con al piů i moduli usati negli scripts,
s'intende...). Non vorrei "stressare" il cliente con indirizzi di download
vari per il Perl... e relative istruzioni di installazione...
Le domande:
1) Posso distribuire il Perl a terzi senza rischiare di violare la licenza?
Ovvero, č possibile distribuire gratuitamente il Perl a terzi clienti nel
modo suddetto?
2) Quale sarebbe la minima distribuzione?
3) Se dovessi tendere per Perl2exe potrei distribuire gratuitamente gli
eseguibili ottenuti? E come farei a fargli mandare l'output in un browser
(facendogli forse costruire files html temporanei? uhm...)
Grazie  infinite.
Emanuele.

 ha scritto nel messaggio
news:V98h8.37075$_u5.1...@news1.tin.it...


 (facendogli forse costruire files html temporanei? uhm...)
se sei su Windows puoi usare il citato Microweb 
(gli stessi di perl2exe)
-- 
$_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572,,($_,$b)=split?#?;@b=split?;?;
map{$c.=$_,$d.=chr($b[$e++]+ord)}(split??,pack'H24',$b);chop$d,print$c.chr(32).$d

 della Artistic license o per accordi con Larry (?)
La licenza Artistica vieta la vendita del software sotto questa
licenza a meno che sia venduta come software aggregato di più
programmi. Quindi si può vendere un cd con Perl ed un altro
programma ma non Perl da solo. :-|
Nel caso del sorgente la sezione 6 della licenza permette di
distribuire copie binarie, senza obbligo di darne il sorgente,
se queste sono ottenute con metodi come undump.
Marco Gazerro
Newsgroup: it.comp.lang.perl
Titolo: problema upload file

Salve,
utilizzando perl con CGI per effettuare un upload di un file su windows
2000 server ho il seguente problema:
se la dimensione del file è inferiore a 8K il trasferimento avviene
correttamente, se superiore il log di apache riporta l'errore:
"CGI.pm: Server closed socket during multipart read (client aborted?)."
ho già provato:
a impostare la variabile $CGI::POST_MAX e $CGI::DISABLE_UPLOADS
a utilizzare il binmode sui file
Il file temporaneo CGIxxxxxx generato da CGI.pm si ferma sempre a 8K.
Lo script perl utilizzato funziona sempre su WIN NT e 2000 Professional
!
Qualche idea ?
Saluti e grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 
L'errore si verifica dopo un certo numero di tentativi di lettura
dallo standard input senza leggere nulla. Nel codice di CGI.pm si 
riporta che il problema sembra verificarsi con Apache e con alcuni
server Netscape, per questo vengono fatti
$MultipartBuffer::SPIN_LOOP_MAX tentativi. Nel codice questa variabile è 
impostata a 2000.
L'unica cosa che ti posso consigliare è aumentare il valore della
variabile e vedere se il problema si risolve.
Ad esempio:
use CGI;
$MultipartBuffer::SPIN_LOOP_MAX = 20000;
-------------
Marco Gazerro

Avevo lo stesso problema, ho installato Apache v.1.3.23 per win32 
e il problema si e' risolto.
Maurizio


Il problema si è risolto installando la versione 1.3.23 di
Apache per win32.
Sergio Barletta


Newsgroup: it.comp.lang.perl
Titolo: Calling a Perl script

Hi,
Is it possible to call a Perl script from a high level language?
Thanks

MomLucie wrote:

Yes, I tihnk.
You must use the ssytem calls from the language you use!
For example in Java, that I know better, you can use somthing like this:
Process p=Runtime.getRuntime().exec("perlcmd");
DataInputStream in=new DataInputStream(p.getInputStream());
DataOutputStream out=new DataOutputStream(p.getOutputStream());
The first line associate a process p to the external perl script, the
next two lines capture the standard in and standard out of the process,
so with the in stream you can read wath the script is doing getting its
results.
I hope was clear.
Andrea
Newsgroup: it.comp.lang.perl
Titolo: Dove sono gli esperti del perl?...qualcuno diceva che qui si trova aiuto!!

Ciao insisto a scrivere con la speranza che qualcuno mosso dalla pietà mi
aiuti....
il problema è che non riesco a far funzionare i miei script in perl sul mio
sito,su 
space.tin.it
,spazio gratis naturalmente.... ho scritto più volte al
server senza avere risposta ora non sò se sbaglio il percorso del perl che
metto nel cgi o se il server non permette l'uso di script personalizzati.
Se qualcuno mo può aiutare grazie ciao.

 sito,su 
space.tin.it
,spazio gratis naturalmente.... 
Perche' fai domande di cui potresti verificare da solo le risposte?
Tip: secondo te,  
tin.it
 concede l'uso di cgi agli  account gratuiti sul
loro webserver? La risposta  la puoi intuire da te, o  andarla a cercare
sulla pagina d'aiuto di Tin.
Bye,
 Emmanuele.
-- 
Emmanuele Bassi         |             [ 
http://digilander.iol.it/ebassi/
 ]
emmanue...@iol.it
  |
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

Ma scusa perche' non te ne vai da un altra parte a insegnare a stare
al mondo alle persone? Se non sai rispondere alle domande non venire a
fare la morale a nessuno, stattene nel tuo e basta
e non perdere tempo a rispondermi


 ha scritto nel messaggio
news:w9rL6.7842$Rc5.1...@news2.tin.it...


 e non perdere tempo a rispondermi
Non ti preoccupare. 
*plonk*.


 sito,su 
space.tin.it
,spazio gratis naturalmente.... ho scritto piů volte
al
non credo che il provider consenta l'esecuzione di script a chiunque,
soprattutto se non paghi. Il punto č che l'esecuzione di uno script č
1) pericolosa, poichč gira sul server di tin e se hai fatto qualche errore
una persona abbastanza abile potrebbe sfruttare il tuo script per fare dei
danni al computer del provider
2) costosa, perchč sfrutta risorse in termini di calcolo. Quindi se non
paghi...
ciao
Claves
do Amaral

Puoi trovare un ottimo server che fa al caso tuo all' 
http://www.virtualave.net

Newsgroup: it.comp.lang.perl
Titolo: Sendmail

Qualcuno potrebbe scrivermi la traccia minima per inviare un messaggio
usando SENDMAIL, o dirmi dove posso trovare della documentazione per
risolvere il problema? Devo inviare solo testo dovrrebbero essere poche
istruzioni, siate buoni scrivetemele. Ho poco tempo per fare questo
lavoro.Aiutatemi!!
Ciao e Grazie
Nicola

risolvere il problema? Devo inviare solo testo dovrrebbero essere poche
Non usare sendmail, usa Net::SMTP.
-- 
ciao, | * The Internet is full. Go away.  -- Joel Furr *
Marco | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

 risolvere il problema? Devo inviare solo testo dovrrebbero essere poche


Grazie..............ma se uno dovesse usare per forza sendmail??????


> Grazie..............ma se uno dovesse usare per forza sendmail??????
senza usare nessun modulo:
sub MailGenerico {
    my $nomefrom = shift;
    my $emailfrom = shift;
    my $nometo = shift;
    my $emailto = shift;
    my $subject = shift;
    my $text = shift;
 
    $mailprog = "/usr/lib/sendmail";
    open (MAIL, "|$mailprog -f $emailfrom -F \"$nomefrom\" -t")
        or die "Can't open $mailprog!\n";
    print MAIL "To: \"$nometo\" <$emailto>\n";
    print MAIL "Subject: $subject\n" if $subject;
    print MAIL "\n";
    print MAIL $text;
    close MAIL;
}
unica riga da verificare:
$mailprog = "/usr/lib/sendmail";
ovvero controllare che sendmail sia proprio li'. Di solito c'e'.
bye
silvio
Newsgroup: it.comp.lang.perl
Titolo: inclusione di file in stile c

salve a tutti, questa e' la situazione
ho alcuni programmi che usano le stesse variabili, ed avevo percio'
pensato di raccoglierle in un file header, tipo i .h del c. Usando "use
strict vars" il perl vuole la dichiarazione delle variabili usate, e
sembra che non riesca ad importare le variabili dichiarate nel file
header. 
Ho provato dichiarandole all' interno di un .pm, mettendo le variabili
in @exporter , e poi anche in un file qualunque, incluso con require.... 
ma non c'e' stato nulla da fare, non si riesce ad importarle.
se togliessi "use strict" mi semplificheri la vita, ma trovo impossibile
che non ci sia il modo di importare una dichiarazione di variabili in un
namespace
grazie per i suggerimenti
Ivan



Non puoi importare nè tantomeno accedere *direttamente* a variabili
dichiarate via 'my' in scope lessicali diversi da quello corrente. I vari
meccanismi di importazione dei simboli e di namespace-qualifying non
riguardano le variabili 'my', che non sono nella symbol-table di nessun
package. E' importante non confondere namespace (che sono i package) con
gli scope lessicali.
Ad esempio:
 package test1;
  my $pippo = 10;
  {
     my $topolino = 1;
  } 
 package test2;
  # qui $pippo è visisbile, anche se ci troviamo in un altro package 
  # mentre $topolino non lo è
Diverso è il caso delle variabili "globali", le quali, se vige "use
strict", devono essere dichiarate con 'use vars' o anche con la keyword
'our' (nelle versioni più recenti del perl).
Quindi arriviamo questione dell'esportazione di un simbolo (come il nome
di una variabile globale o di una subroutine) da un package all'altro.
Mini esempio:
 #### file 
test.pm
 package test;
 use strict;
 require Exporter;
 use vars qw/ $pippo $topolino @EXPORT @ISA/;
 @ISA = qw( Exporter );
 @EXPORT = qw( $pippo );
 $pippo = 10;
 $topolino = 20;
 #### 
script.pl
 use strict;
 use test;
 
 print $pippo;    # ok, $pippo è stato importato nel ns namespace
 print $topolino; # non ok, $topolino non è stato esportato
 print $test::topolino; # ok (package-qualified)
Per maggiori dettagli:
 perldoc -f my
 perldoc perlsub
 perldoc -f use
 perldoc -f import 
 perldoc perlmod
 perldoc Exporter
Max

Newsgroup: it.comp.lang.perl
Titolo: Opposto di questo

In perl  qual è l'opposto di questa espressione??
(-e "$direct/$nomeutente/index.htm")
Ovvero non esiste il file??
--
Ciao
FAIEL
www.fulleffect.it
 -Il portale italiano del writing-

 (-e "$direct/$nomeutente/index.htm")
 (!-e "$direct/$nomeutente/index.htm")
Ciao
--ev

Newsgroup: it.comp.lang.perl
Titolo: perl c++ embedded

salve a tutti sono nuovissimo con il perl, e mi incurisiva moltissimo per
sentito dire che e' possibile utilizzare perl all'interno di applcazioni
c++ o viceversa, qualcuno mi puo' dare informazioni al riguardo?
GRAZIE!!!
Muzero



- Strumenti standard
 
 perldoc perlembed
 perldoc perlxstut
- SWIG
 
http://www.swig.org/



Grazie infinite!!!!!!!!!!!!!!!!!!!!!!!
Muzero
Newsgroup: it.comp.lang.perl
Titolo: Script per la valutazione della prossimita'

 Non so assolutamente come eseguire un ping in Perl, avete idea?
perldoc Net::Ping
--
Valerio Granato - 
val...@grana.to
FOR KeyMaster - i2000 Usenet Hierarchy
Maggiori informazioni sulla gerarchia i2000?
http://www.i2000.usenet.it
 - 
in...@i2000.usenet.it

Sto scrivendo uno script che mi riempia una tabella con IP ranges e
relativo tempo di ping.
Non so assolutamente come eseguire un ping in Perl, avete idea?
Ciao.
LuVi

Non so assolutamente come eseguire un ping in Perl, avete idea?
C'e` il modulo Net::Ping, che dovrebbe essere nella distribuzione
standard del Perl. Per maggior informazioni:
perldoc Net::Ping
	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!

Newsgroup: it.comp.lang.perl
Titolo: (semplice) un errore con apache e cgi

Provo a lanciare un form con riferimento ad un mio semplice cgi e mi compare
sul browser la seguente risposta:
Server error!
  Error message:
  couldn't create child process: 22505: C:/Apache2/cgi-bin/random.cgi
Cosa devo fare?
Non ho impostato i chmod delle directory perche con w2k non so come settare
i valori.
Sapete come possa fare??
Ciao a tutti!!                        Fabio

 ha scritto nel messaggio
news:0SDQ8.45649$Kt3.1...@twister2.libero.it...


 le asp, è meglio.
Io uso Perl sia su Win che su Linux e in entrambi gli ambienti trovo che
perl sia eccezionale.
Su Win mi diverto col modulo Win32::GUI, oltre ai vari moduli Win32::* che
permettono di smanettare un po' dappertutto :-)
Ciao!
Guido.
Newsgroup: it.comp.lang.perl
Titolo: Qualcosa per incominciare

bonjour a tutti, scusate la domanda noiosissima (me ne rendo perfettamente conto
:-/ ), ma cosa mi consigliate per cominciare con il Perl? Testi ufficiali e non,
guide, tutorial, indirizzi, altri linguaggi di programmazione (ad esempio mi
dicevano che sapere già il Javascript m'avrebbe aiutata, è vero?), qualsiasi
cosa! immagino che questa medesima domanda venga postata all'incirca ogni due
giorni dal newbie di turno, e son sicura che non siete mai entusiasti di
rispondere... ma, sul serio, a me basta davvero poco. Grazzzie

 
Infatti! E leggersi le risposte precedentemente date non fa mai male!
;-)
Ciao
M. 

 wrote in message news:k6acf8...@127.0.0.1...



Il sito del NG è 
www.perl-it.org
, se non erro.
Poi ci sono i vari 
www.perl.com
 (o .org), 
www.cgipoint.it
 e
www.cgi-resources.com
 (in inglese).
Per il momento credo possa bastare!
Ciao
M. 

 wrote in message news:c2agf8...@127.0.0.1...

Fin troppo ; )
Grazie per il trattamento d'onore ; )

 tel;work:Computer Science Engineer
[...]
Pure la vcard?
M.

 M.
Piuttosto come faccio a far parlare Active Perl con ActiveX
Some example??????
Ciao !
Newsgroup: it.comp.lang.perl
Titolo: [OT]: cercasi programmatore PERL 5 > Win2k

CERCASI PER COLLABORAZIONE A PROGETTO AZIENDALE:
- PROGRAMMATORE PERL su sistemi in rete Win2000
* ottima conoscenza PERL 5 per applicazioni in rete ed interfacciamento con
altri software prodotti in azienda
* conoscenza sistema Win2000 professional / server
* conoscenza protocolli TCP/IP
* configurazione router
inviare proposte al mittente di questo messaggio





Newsgroup: it.comp.lang.perl
Titolo: download via http

Salve,
quale modulo potrei utilizzare per far eseguire un download attraverso il
protocollo http ?
Andrea

 protocollo http ?
Non mi pare sia necessario un modulo particolare, uno script
che usa CGI dovrebbe essere sufficiente ... IMHO.
 Raffaello

protocollo http ?
Non si capisce che cosa intendi: 1) prelevare un file da un server http
tramite un programma perl; 2) inviare ad un browser un file html, statico o
generato tramite un programma perl?
Sei tu che devi eseguire il download, o vuoi che a chi si collega ad un
server http tramite un browser compaia una certa pagina web, da te
costruita?
Ciao.

 costruita?
Devo inviare ad un browser un file presente nella DocumentRoot di un server
web,
quindi quando l' utente clicca sul link gli dovrebbe apparire la classica
finestra di download,
Grazie Andrea

finestra di download,
Vale allora la risposta che ti ha gią dato Raffaello Galli. Anzi, visto che
a quanto pare si tratta di un documento statico, non c'č bisogno neppure di
nessuno script: fa tutto il server.
Se proprio proprio ci vuoi mettere a forza uno script, sarą un Javascript
lato client, per qualche lustrino, paglietta e cotillon.
Ciao.

 Ciao.
grazie a tutti,
andrea
Newsgroup: it.comp.lang.perl
Titolo: Perl e Database

Devo creare uno script che apra un file di testo e che legga delle
informazioni.
ESEMPIO
File TXT:
davide,rosso
francesco,blu
Dovrei verificare se i due dati inviati siano uguali a quelli che ho:
dato1 = davide
dato2 = rosso
Allora dovrebbe scrivere una cosa a seconda se è verificato o meno!

 francesco,blu

open(FILE, $file);  # $file è il uto file di testo
@lines=<FILE>;
close FILE;
foreach $line (@lines) {
	if (join(",", $dato1, $dato2) eq $line) {
		print "C'è corrispondenza\n";
	} else {
		print "Non c'è corrispondenza.\n";
	}
}
Non l'ho testato ma dovrebbe andare! ;-)
Ciao
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

}
Scrive il risultato per ogni linea linea 
Io farei cosi':
$corrisponde=&Confronta($file,$dato1,$dato2);
sub Confronta() {
        my($file,$dato1,$dato2)=@_;
        my $return=0;
        open(FILE, $file);
        while(<FILE>) {
                /^$dato1\s*,\s*$dato2\s*$/ && $return=1;
                last if ($return);
        }
        close FILE;
        return $return;
}
Con eventuali modifiche alla regex, alle conzizioni e ai valori di uscita, etc
secondo le tue esigenza.
-- 
Saluti,
Giancarlo

Allora dovrebbe scrivere una cosa a seconda se è verificato o meno!
open (leggi, "foo");
CICLO: while (<leggi>) {
	$_=~s/\n//g;
	$_=~s/\r//g;
	if ($_ eq $dato1.','.$dato2) {
		print "risultato trovato";
		$trovato=1;
		last CICLO;
	}
}
close (leggi);
print "risultato non trovato" unless $trovato;
Ciao
Andrea Busia
No Spam, Grazie.

 Io farei cosi':
[CUT]
Posso salvarmi con "TMTOWTDI (ASAVASSMDA)?" [*]
Ciao
[*] ASAVASSMDA = anche se a volte alcune soluzioni sono migliori di
altre!


$corrisponde=&Confronta($file,$dato1,$dato2);
che differenza c'è scrivendo
$corrisponde = Confronta ($file,$dato1,$dato2);  ???? E' un dubbio. io
ho sempre usato le sub senza &
Ambrogio De Lorenzo
Professional Service Consultant
ART srl
Largo La Foppa 2
20124 Milano
Tel. 02-655676.1
e-mail: mailto:
ambrogio....@art-web.it