mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Tutto in un file

Salve,
ho notato che alcune applicazioni Perl (es.: amavis)
sono costituite da un unico file che incorpora i package 
necessari.
Che vantaggi ci sono a non suddividere i moduli in file?
Non vedo implicazioni di performance a regime, inoltre mi pare 
che comporti difficoltà nel lavoro di gruppo.
Grazie, flazan

 writes:
Fanton> Salve, ho notato che alcune applicazioni Perl (es.: amavis)
Fanton> sono costituite da un unico file che incorpora i package
Fanton> necessari.
Fanton> Che vantaggi ci sono a non suddividere i moduli in file?
Fanton> Non vedo implicazioni di performance a regime, inoltre mi pare
Fanton> che comporti difficoltà nel lavoro di gruppo.
Fanton> Grazie, flazan
Personalmente io a volte trovo piu` gestibile un file
unico a meno che abbia interconnessioni basse,
questa preferenza dipende forse dagli editor che si usano.
Con emacs M-x imenu funziona bene sul singolo buffer corrente.
Con cvs il lavoro di gruppo non cambia molto perche` il merge
fallisce solo sui conflitti che si avrebbero ugualmente anche con file
spezzettati, ed e` raro che l'algoritmo di merge faccia confusione
(puo` capitare se c'e` del copia incolla con piu` di linee
ripetute uguali, ma decisamente e` segno che qualcosa non va nella
logica di chi ha "pensato" di fare del codice uguale in posti diversi).
Naturalmente se si collabora e` d'obbligo usare la stessa regola
di indentazione.
Il principio di voler creare file spezzettati anche per classi
intrinsecamente correlate o gerarchiche per me non esiste.
Saluti,
MARco
-- 
x(t),y(t) = th(3t-34.5)*e^[-(3t-34.5)^2]/2-4.3+e^(-1.8/t^2)/(.8*atg(t-
3)+2)(t-1.8)-.3th(5t-42.5),(1.4e^[-(3t-34.5)^2]+1-sgn[|t-8.5|-.5]*1.5*
|sin(pi*t)|^[2e^(-(t-11.5)^2)+.5+e^(-(.6t-3.3)^2)])/(.5+t)+1  ; 0<t<14
Newsgroup: it.comp.lang.perl
Titolo: Problema tra riga di comando e internet

Scusate se vi disturbo ancora!
Devo eliminare una directory definita in base ad alcuni valori passati
atttraverso 2 variabili ($CHIAVE e $TIPO_CHIAVE_MINUSCOLO) con tutte le sue
sottodirectory.
Ho provato prima con
system (deltree ..\\..\\webpages\\$TIPO_CHIAVE_MINUSCOLO\\$CHIAVE);
e da riga di comando il programma funzionava perfettamente.
Passandolo su xitami e aprendolo con netscape non svolgeva più il suo
compito e passava semplicemente dritto senza eliminare niente. Ho quindi
provato a usare le righe seguenti credendo che si trattasse di un problema
con deltree, ma non è cambiato nulla. Qualcuno mi può spiegare che succede e
come posso fare per risolvere il problema?
 unlink
<"../../webpages/$TIPO_CHIAVE_MINUSCOLO/$CHIAVE/immagini_grandi/*.*">;
 unlink <"../../webpages/$TIPO_CHIAVE_MINUSCOLO/$CHIAVE/*.*">;
 rmdir "../../webpages/$TIPO_CHIAVE_MINUSCOLO/$CHIAVE/immagini_grandi";
 rmdir "../../webpages/$TIPO_CHIAVE_MINUSCOLO/$CHIAVE";
Grazie
Andrea Busia

come posso fare per risolvere il problema?
Non conosco Xitami, nel senso che non l'ho usato. Comunque mi sembra che il
tuo sia un problema di diritti. Sotto unix almeno il server gira con uno
username (di solito www) con diritti ristretti.
Questo per motivi di sicurezza (l'utente potrebbe cancellarti tutto!!!!)
Comunque non è un problema del povero vecchio Perl ;-)

$nfiles = rmtree("..\\..\\webpages..ecc.",0,1);
Con rmtree funziona perfettamente. Grazie.
Andrea

Newsgroup: it.comp.lang.perl
Titolo: Controllare l'indirizzo Email

Salve a tutti, 
	stavo controllando la correttezza dell'indirizzo email
inserito attraverso un form. volevo fare il controllo con il perl
prima di scrivere su file il risultato dei campi inseriti.
ho provato questa soluzione:
if ($tecemail
!~/^.{2,}?\@(\[?)[a-zA-Z0-9\-\.\_]+\.([a-zA-Z]{2,3}|[0-9]{2,3})(\]?)$/)/||(&errore)){$giusto;}
Ma purtroppo mi ritorna un'errore dove pensate sia sbagliata?
grazie mille
Alessandro Gibin

 perl prima di scrivere su file il risultato dei campi inseriti.
 
  Esiste una FAQ a proposito, "How do I check a valid mail address?",
che spiega abbastanza chiaramente come il tuo compito sia
particolarmente arduo. Dacci un'occhiata e vedi se lo script
http://www.perl.com/CPAN/authors/Tom_Christiansen/scripts/ckaddr.gz
 
puo` esserti d'aiuto.
 
	Alla prossima,
		Marco


Attento cosi' se &errore ritorna vero tutta l'espressione dentro all' if e'
vera.
-- 
Saluti,
Giancarlo


lo so, cmq &errore non fa altro che settare dentro un hash dei valori,
quindi non ritorna nulla...

quindi non ritorna nulla...
Sia che errore sia una subroutine o una serie di istruzioni:
From "Programmin Perl - 2nd Edition" cap2 pag 112:
"The return value of the subroutine (or of any other block, for the matter) is
the value of last expression evalued. Or you may use an explicit return
statement to specify the return value...."
Quindi se sub errore (o il blocco di istruzioni dopo ||) fa solo
%hash=(....) (o qualcosa di simile) ritorna comunque vero perche' l'ultima
espressione e' l'assegnazione del valore all'hash.
-- 
Saluti,
Giancarlo
Newsgroup: it.comp.lang.perl
Titolo: nascondere la finestra nel task (w32)

Ciao e buone feste a tutti quanti (meno che hai parenti)!
Ho bisogno di un piccolo aiuto.
Mi hanno richiesto di implementare una piccola funzione nel mio programmozzo
e di mettere la possibilità di nascondere la finestra mentre questo lavora.
In effetti essendo un programma che deve essere lasciato aperto quando il pc
è accesso da un po' noia.
Io pensavo a win32::console però da quanto ho visto sembra che serva per la
gestione della tastiera e mouse.
Sapete indicarmi qualche modulo che faccia al caso mio?
Grassssie e buone fezzte

Magari non ho proprio capito, perché a me sembra proprio che non ti serva
nessun modulo!
Fai una shortcut del programma, poi scegli "property" della shortcut, nel
tab "Shortcut" scegli Run: "minimized", e hai già finito. Ovviamente
lancerai la shortcut, invece che il programma.
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

 e di mettere la possibilità di nascondere la finestra mentre questo lavora.
Parli della console di win che resta aperta?
Prova i metodi suggeriti in questo thread su 
perlmonks.org
:
"How to hide window with Win32:API?"
http://www.perlmonks.org/index.pl?node_id=208491
-- 
$_=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

Grazie...stň leggendo molto avidamente quell'articolo :-)

Newsgroup: it.comp.lang.perl
Titolo: installare apache: AIUTO!!

Scusate se posso essere OT, ma non riesco ad installare apache 1.3.9 sul mio
portatile (win 98 SE).
mi da questo [warn]: pid file c:\prgrammi\apache group\apache\logs\httpd.pid
overwritten.-- Unclean shoutdown of previous apache run?
Avverto che prima, erroneamente, ho installato apache1.3.12, poi, dopo
averlo disinstallato, apache 1.3.9, ma l'errore č sempre lo stesso.
Grazie a chi potrŕ aiutarmi.
-- 
Posted from [212.141.54.103] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Scusate il disturbo, ma ho risolto il problema!
Grazie


Newsgroup: it.comp.lang.perl
Titolo: compatibilità perl sotto windows e unix, cosa strana

Ma il perl non dovrebbe essere un linguaggio che funziona su tutti i server
(unix o windows)? Volevo scaricare degli script cgi in perl dal sito
cgipoint.it
, ma ci sono solo script per unix, mentre su aruba i server
girano sotto windows nt. Devo cercare di adattarli a windows? Come facio a
capire come correggere gli script in modo che funzioni sotto windows?
grazie

!

Dovrebbero funzionare anche sotto NT, al limite servira` qualche lieve
modifica. Devi pero` assicurati che il server NT che usi abbia l'interprete
Perl installato.
	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: posizione del cursore all' interno di un file

Gentilissimi,
.... mai abbastanza...
apro un file,  costituito da record,con la funzione open(), ove ciascuno di
essi č ordinato per data, in modo proggressivo : ossia dal basso, le date
piů vecchie, salendo fino alla cima con quelle recenti.
Devo poi prelevare proggressivamente i record e processarli.
Esiste una funzione per consentire al cursore di  entrare nel file e
iniziare a leggerlo dal basso ?
Grazie
Simon

print reverse <DATA>;
__DATA__
linea 1
linea 2
linea 3
--
________________________________________________________________________
"If your life is free of failures, you're not taking enough risks. -
Anonymous "

 ha scritto nel messaggio
news:arisd8$j8esa$1...@ID-159100.news.dfncis.de...


<DATA> in array context ritorna un array
print è array context
reverse le gira al contrario
in ogni caso la soluzione 'reverse' array, è utile solo se il file è
piccolo. Se hai un file gigantesco non ti conviene leggerlo tutto mettendolo
in un array per poi rigirarlo.
In quel caso ti consiglio di usare:
http://search.cpan.org/author/URI/File-ReadBackwards-0.98/ReadBackwards.pm
--
________________________________________________________________________
"Push to test."    <click>     "Release to detonate."

 ha scritto nel messaggio
news:aritsc$itqpp$1...@ID-159100.news.dfncis.de...


file, mi vada a posizionare il cursore dove dico io ?
  perldoc -f seek
  seek FILEHANDLE,POSITION,WHENCE
  Sets FILEHANDLE's position, just like the fseek call of stdio.   
  FILEHANDLE may be an expression whose value gives the name of the 
  filehandle. The values for WHENCE are 0 to set the new position in 
  bytes to POSITION, 1 to set it to the current position plus 
  POSITION, and 2 to set it to EOF plus POSITION (typically negative).
  For WHENCE you may use the constants SEEK_SET, SEEK_CUR, and 
  SEEK_END (start of the file, current position, end of the file) from
  the Fcntl module. Returns 1 upon success, 0 otherwise. 
HTH
ciao
Stefano

: Quindi, secondo te, non esiste una funzione built in del perl che, aperto
il
: file, mi vada a posizionare il cursore dove dico io ?
come no! se vuoi complicarti la vita e reinventare la ruota vai avanti a
colpi di
seek pos length read
e quant'altro, mischiato in vario modo per posizionarti sulla riga che vuoi,
però Uri lo ha già fatto (credo meglio di come lo faresti tu), così ti
conviene usare qualcosa che già funziona bene ed è già pronto.
ciao
--
________________________________________________________________________
"Never test the depth of the water with both feet."
Newsgroup: it.comp.lang.perl
Titolo: Una shell in Perl

Ciao a tutti,
volevo chiedere se mi potreste dare una dritta su come realizzare una 
pseudo-shell in perl...
grazie a tutti! 


Eccone una gia' pronta:
http://zoidberg.student.utwente.nl/
 con un articolo descrittivo:
http://www.linux-mag.com/content/view/2250/
Altre idee qui:
http://www.perlmonks.org/?node_id=375750
ciao
gmax
-- 
 _  _ _  _
(_|| | |(_|><  The Data Charmer
 _|
http://datacharmer.blogspot.com/

Ti ringrazio ma a me serve qualcosa di molto più semplice... non tanto dal 
punto di vista della complessità..
Avevo già sentito parlare del Progetto Zoidberg, ma appunto, essendo un 
progetto, è molto completo: insomma è una shell a tutti gli effetti.. a me 
servirebbe una 'shellina' da includere in un programma (anch'esso piccolino 
: ).. insomma per me non ha scopi utili, solo didattici..
"Giuseppe Maxia" <gmax_@_cpan_._org> ha scritto nel messaggio 
news:43cc1238$0$1084$4faf...@reader4.news.tin.it...


 : ).. insomma per me non ha scopi utili, solo didattici..
Prova a guardare Term::ReadLine e Term::ReadLine::Gnu : puoi usarlo
per leggere una riga da terminale più o meno come fa la bash, poi ci
fai quel che vuoi. Supporta agganci anche per la tab-completion e la
gestione della history.
-- 
  dakkar
  sono su PerlMonks.org, 
use.perl.org
, PAUSE/CPAN

Newsgroup: it.comp.lang.perl
Titolo: Non so come cancellare una pagina HTML....

Salve,
E' possibile cancellare una pagina HTML??? Mi spiego meglio...
Da uno script cgi stampo in HTML su schermo una stringa, posso sostituirla,
poi, con un' altra? E se non si tratta solo di una stringa, ma di una pagina
piu' complessa?
In pratica, posso visualizzare piu' pagine HTML da un solo script cgi?

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


Scusa, ma da uno script cgi invio codice html e il browser lo visualizza!!!
Che c'e' da capire?

 Che c'e' da capire?
Che il tuo STDOUT viene rediretto sul client http, per cui pensare di
far fare al perl una passeggiata fino al browser per levargli i byte da
sotto il sedere e` un attimino fuori luogo.
Se vuoi un output diverso da quello che generi correggilo _prima_.


Capito... grazie!

Newsgroup: it.comp.lang.perl
Titolo: Espressioni regolari

Salve. Sto imparandi il perl ma mi sto scontrando con le espressioni
regolari. Volevo sapere se qualcuno ha qualche link dove le spiegano o
dove ci sono esempi di composizione delle stesse.



Dimenticavo. Grazie in anticipo.

 
 
http://www.effectiveperl.com/EP.04.pdf
 
http://language.perl.com/all_about/regexps.html
 
http://www.plover.com/~mjd/perl/Regex/
 
http://www.perl.com/pub/doc/manual/html/pod/perlre.html
 
http://www.perl.com/pub/doc/manual/html/pod/perlfaq6.html
Newsgroup: it.comp.lang.perl
Titolo: [Fwd: Online survey on agile practices adoption in software industry]


Organization: CRS4, Center for Adv. Studies, Research and Development in 
Sardinia
Newsgroups: it.comp.java,comp.lang.java.programmer
Apologies for multiple copies.
_______________________________________
Hi all,
AgileGroup of University of Cagliari, Sardinia, Italy, is running a
survey on the adoption and use of methodologies and processes in the
IT industry, with particular regard to agile practices.
The survey should not take more than 10 minutes to complete. It is
strictly confidential.
The survey is available at:  
http://maps.diee.unica.it
The results of the survey will be published on the same web page.
If you know one or more colleague wishing to contribute her/his
opinion to our study, please invite them to: 
http://maps.diee.unica.it
Also, please fell free to forward this invitation to other
professional lists and online forums.
Thanks in advance for your cooperation!!
Michele Marchesi
DIEE - University of Cagliari
Italy
-- 
    ________________________________________________________
   /\                                                       \
   \_| Prof. Michele Marchesi                                |
     | DIEE - Univ. Cagliari - p.zza D'Armi - 09123 CA       |
     |Tel:
+39 070 6755757
/
+39 010 3532783
 Fax:
+39 070 6755782
|
     | Cell.: 
320 4372981
  -  Casa/Home: =39 010 566354      |
     | e-mail: 
mic...@diee.unica.it
                         |
     | XP2003 site: 
http://www.xp2003.org
                    |
     |   ____________________________________________________|__
      \_/______________________________________________________/



Newsgroup: it.comp.lang.perl
Titolo: Perl e moduli per DB di MS Access

Ciao a tutti,
sto cercando dei moduli Perl che mi permettano di gestire dei DataBase di
MSAccess. Qualcuno di voi saprebbe indicarmi dove cercare del materiale al
riguardo?
Grazie in anticipo.
Fredi


Win32::ODBC
Paolo
--
Posted from 
tlvsdy.vim.tlt.alcatel.it
 [194.243.74.244]
via Mailgate.ORG Server - 
http://www.mailgate.org

 dove cercare del materiale al riguardo?
  Se usi l'ActivePerl hai a disposizione il modulo 'ODBC.pm' che ti
permette di interfacciare i tuoi script direttamente con una fonte dati
ODBC (MS Access o qualsiasi altra).
<CODE>
	use Win32::ODBC;
	$db=new Win32::ODBC 'db_odbc_id';
	if(!$db) {
		# error handling 
	}
	$query='SELECT * FROM MyTable';
	$rc=Sql $db $query;
	if($rc!=undef) { 
		# another error handling
	}
 
	while(FetchRow $db)
	{
		@record=Data $db;
		# other stuffs
	}
	Close $db;
</CODE>
	Alla prossima,
		Marco

Newsgroup: it.comp.lang.perl
Titolo: Palm Os

Ho da poco un palmare con sistema operativo OS per la precisione e' un treo 
650 della PalmOne sistema operativo Palmos 5.3.
SI puo installare il perl sul palmare?
Grazie

 
Mmmm... Mi pare di no, su SourceForge c'e' un progetto aperto ma e' da 
mesi in Planning.
--
Vitangelo
Newsgroup: it.comp.lang.perl
Titolo: moduli

Salve,
vorrei sapere come faccio a fare in modo che il perl usi un modulo che
risiede nella stessa dir del programma quando esiste un modulo con lo stsso
nome nella dir delle librerie



Aggiungi nello script: 
 use lib '.';
oppure
 BEGIN {   unshift @INC, '.'; }
In alternativa, imposta l'apposita variabile d'ambiente:
 PERL5LIB="."
Max
Newsgroup: it.comp.lang.perl
Titolo: [?]Apache

Salve a tutti, ho iniziato settimana scorsa ad interessarmi per motivi di
lavoro a perl e cgi.
Leggendo un post di qualche giorno fa (Perl locale (?)) ho letto che per
testare i miei script in locale (uso win95 :( ) avrei dovuto usare Apache.
Ho scaricato la ver. 1.3.9 da 
www.apache.org
 e la avvio in console window.
Il manuale in linea dice poi di tentare la connessione a 
http://localhost/
 o
http://127.0.0.1/
 ma IE4 non ne vuole sapere.
Il log di apache dice:
[Sun Sep 12 00:07:58 1999] [crit] (2)No such file or directory: make_sock:
failed to get a socket for port 80
[Sun Sep 12 00:08:41 1999] [crit] make_sock: failed to get a socket for port
80
cosa devo fare?
Grazie a tutti!

 wrote in message 7rfoh1$f0t$1...@nslave1.tin.it...

PRIMO___ Scaricati Apache da 
www.apache.org
 e l'interprete perl da
www.activeperl.com
SECONDO___Configura Apache cominciando dal file http.conf (nella directory
di apache \conf). Cerca la riga
#ServerName 
new.host.name
e rimuovi # così da lasciare l'host name (che puoi cambiare). Questo
dovrebbe bastare, ma potrebbe essere necessario definire la directory in cui
mettere i tuoi cgi, oppure ti potrebbe venir voglia di fare in modo che in
qualsiasi cartella i cgi siano stati collocati vengano ugualmente eseguiti
dal server Apache... il rimando è d'obbligo alla guida in html fornita col
programma...
TERZO____ INSTALLARE L'ACTIVE PERL APi515e.exe.
QUATTTTTRO___Nel solito file httpd.conf correggi queste righe (devi
cercartele):
UserDir "d:/apache/usr/"
ScriptAlias /cgi-bin/ "d:/apache/htdocs/cgi-bin/"
<Directory "d:/apache/cgi-bin/">
        AllowOverride None
        Options None
</Directory>
AddHandler cgi-script .cgi (togli #)
poi correggi il file srm.conf
ScriptAlias /cgi-bin/ "d:/apache/htdocs/cgi-bin/"
oppure dove vuoi metteri i cgi......
ZINQUEEE___ i tuoi script devono iniziare con
#!d:/apache/usr/bin/perl.exe
(a patto che tu abbia installato come me l'interprete perl lì)
SIX_______L'Apache lo lanci da Start -> Programmi -> Apache oppure da dos.
Per chiuderlo apri un'altra sessione dos e digita apache.exe -k shutdown.
Questo è l'unico modo per spegnerlo. I cgi li devi mettere nella cartella
/htdocs/cgi-bin mentre le pagine html nella cartella /htdocs. Per vedere il
tutto funzionare devi simulare una connessione, quindi, una volta lanciato
il server, sul browser digiti l'url 
http://localhost
 e ti si aprà la pagina
index.html della cartella /htdocs
Taglio corto che ci ho fretttta,
saludos
MiGhi
PS ti aspettavi un SEVEN_____ ???   ;-)

index.html della cartella /htdocs
done!
ok, all done, e allora perché
1) localhost me lo trova solo se sono connesso ad internet?
2) se clicco su un link che avvia uno script mi si apre una nuova istanza di
IE con il listato del programma?
Abbi pietà, sento oggi per la prima volta parlare di <server http> e non so
cosa ci sta dietro...
:(((
Grazie ancora.
Ciao

cosa devo fare?
1) disattivare l'altro web server che hai installato
2) spostarti in un gruppo dedicato a windows, visto che qui sei off topic
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *
Newsgroup: it.comp.lang.perl
Titolo: getpwent o getpwnam?

ciao, 
se devo verificare se una serie di utenti esiste su un sistema Unix
posso utilizzare:
getpwnam user
 
oppure
getpwent ripetuto sino a individuare il mio utente.
Qual č la soluzione migliore?
Ho visto che viene consigliato di usare la seconda soluzione quando lo
si deve effettuare su una serie di utenti.
sapete dirmi perchč?e' piů efficace?
ovviamente puň darsi che esista unaltro metodo piů efficace per fare
la stessa cosa (sempre utilizzando solo le 'librerie' standard), ma
non lo conosco.
grazie
Newelski

 sapete dirmi perchè?e' più efficace?
Devi verificare che il tal utente di cui conosci la username esiste?
allora getpwnam mi sembra ovvio...
Se entri in un cinema affollato e stai cercando urgentemnete il signor 
Pippo che fai? Inizia a chidere a tutti, uno per uno, "Tu sei Pippo?" 
oppure cerci di chiedere a tutto il gruppo (urlando, con un 
altoparlante, etc etc) "C'e' Pippo in sala?", secondo te qual'e' il 
metodo piu' efficiente e veloce? fare tante domande o farneuna sola? 
Fuor di metafora il primo modo e' getpwent, il secondo getpwnam.
-- 
Saluti,
Giancarlo

 allora getpwnam mi sembra ovvio...
anche a me sembra ovvio ed è per questo che chiedo:
perchè allora nella 'bibbia'..ovvero 'Programmare in perl' di Wall&Co
c'è scritto riferito a getpwnam:
se la stessa operazione deve essere ripetuta su diversi nomi utenti è
consigliabile ricorrere a getpwent per conservare le informazioni in
un hash.
Mi sfugge il motivo.
grazie
New

ludomir wrote:

Non mi sembra tu debba fare la stessa operazione su piu' utenti: non 
stai facendo una cosa del tipo "cambiare la password a tutti gli utenti 
che stanno nel gruppo 1234".
Comunque ci sarebbero anche altri fattori da valutare ad esempio: quanti 
utenti ci sono nel passwd e quanti sono gli username che devi testare.
Cpmunque la cosa migliore che puoi fare e':
- scrivi due funzioni, una con getpwnam l'altra con getpwent
- le testi con il modulo benchmark
- vedi qual e' il piu' efficiente e/o il piu' veloce
-- 
Saluti,
Giancarlo

 un hash.
Perche' getpwnam fa una ricerca sul sistema di autenticazione (il file delle
pw, o NIS, o LDAP o anche un RDBMS...)  tutte le sante volte. Con getpwent
scandisci la lista degli utenti uno per uno. Dipende da quello che devi
fare.
Il caso tipico di getpwent e':
use User::pwent qw(getpwent);
@users = ();
# fetch all users
while (defined($user = getpwent)) {
    push(@users, $user);
}
    @users = sort { $a->name cmp $b->name } @users;
foreach $user (@users) {
    print $user->name, "\n";
}
Cheers,
alf
Newsgroup: it.comp.lang.perl
Titolo: Array, ma come?

Ciao,
ho un piccolo problema su come utilizzare gli array per eseguire un lavoro
di "quadratura" di dati e presentazione. Mi spiego.
Ho delle directory, in ognuna di queste ci sono dei filename (assumiamo che
i filename contengono del testo, ma esula lo scopo del mio programma). E una
lista, esterna, che contiene quello che ci deve essere in ogni directory.
Lo scorrimento delle directory e la verifica del loro contenuto con la lista
esterna č stato gą implementato ma adesso vorrei produrre un report che
riporti lo scostamento trovato. Il report dovrebbe essere, per una maggiore
chiarezza, fatto a questo modo:
        1        2        3        4        5        6
123     x        x                 x
456              x        x                          x
789                       x                 x
scusatemi per l'eventuale formattazione del testo...
Come posso implementarlo con gli array o con gli hash?
Grazie per qualsiasi risposta.
Julius

Come posso implementarlo con gli array o con gli hash?
E se dicessi che non ci ho capito nulla?
Quali sono i filename (perché poi è importante che siano filename e
non stringhe qualunque)? dove sono le liste di confronto? che cosa
vogliono dire i numeri e che cosa rappresentano le crocette?
Ciao.

 vogliono dire i numeri e che cosa rappresentano le crocette?
Allora scusami! :)
Ho una lista esterna che č composta di stringhe, divise da new-line (quindi
una per linea). Mettiamo che la lista č la seguente:
-- # Lista confronto # --
123
456
789
-- # END Lista Confronto # --
E poi ho una lista di directory che contiene (o al massimo potrebbe
contenere) filename (come detto il contenuto dei files non č importante ai
fini del programa). L'alberatura (directory piů filename) possono essere
cosě formati, mantenendo l'esempio originario:
-- # Directory e filename # --
1/123
2/123 2/456
3/456 3/789
4/123
5/789
6/456
-- # END Directory e filename # --
Le crocette possono essere pensate come la battaglia navale. Dove c'e'
la 'x' abbiamo l'occorrenza, altrimenti no.
Ti ringrazio dell'interessamento.
Jul

la 'x' abbiamo l'occorrenza, altrimenti no.
Una volta raccolti tutti i dati in %lista, puoi stamparli in questo modo:
    for my $file (keys %lista) {
        print $file;
        for my $dir (@directory) {
           print "\t", $lista{$file}{$dir};
        }
        print "\n";
    }
(Non l'ho provato, sicché è soggetto a verifica, ma a meno di refusi
dovrebbe funzionare.)
Ciao.

 è detto che sia ottimale nel tuo caso.
Grazie per l'input. Appena letto il tuo messaggio mi son messo a scrivere il
codice e ovviamente ho capito dovee come risolvere il mio problema.
Da quanto implementato fino ad ora la soluzione pare giusta, devo solamente
adattare l'idea di poche righe i codice al programma intero.
Appena ho finito comunque mando una specie di "summary" che descrive la
soluzione implementata.
Grazie  mille
Julius
Newsgroup: it.comp.lang.perl
Titolo: .htaccess e PostgreSQL

qualcuno di voi sa come posso fare l'autentificazione di una pagina web su
un database PostgreSQL ?
grazie e buon 2mila!!
sgalak

 wrote in message
news:10j3ljf$o5m$1...@fe2.cs.interbusiness.it...


Newsgroup: it.comp.lang.perl
Titolo: Come liberare risorse?

Ciao, sono novellino del Perl....
in uno script analizzo un array di grosse dimensioni ( ~100 MB) e
vorrei liberare la memoria che occupa appena smetto di
utilizzarlo....come faccio? O meglio, quele è meglio tra
@array = null
@array = ()
@array = undef
Glassie mille!!!


Ok, come sempre ho trovato un aiuto in google e perldoc....
@array = ();   # Azzera l'array
undef @array;  # Dimenticati che @array sia mai esistito


Attento però che la memoria in questo modo non viene rilasciata
al sistema operativo, bensì marcata (non conosco i dettagli interni)
come disponibile in vista di future necessità del processo perl
correntemente in esecuzione.
ciao,
S.


AH, questo potrebbe essere non bene...al limite, la porzione di memoria è a 
disposizione anche dei processi figli? Dove posso trovare della 
documentazione? Grazie mille! 

 documentazione? Grazie mille! 
Non dipende da Perl ma dal SO, o meglio dall'implementazione della 
free() utilizzata (in realtà dipende dall'implementazione della 
*alloc(), la quale detta il comportamento della free() invocata 
successivamente sul puntatore corrispondente), quindi bisogna andare a 
guardarsi la documentazione della libreria standard c con la quale hai 
compilato perl.
Ad esempio nel caso della GNU libc la documentazione di free() dice:
Occasionally, free can actually return memory to the operating system 
and make the process smaller. Usually, all it can do is allow a later 
call to malloc to reuse the space. In the meantime, the space remains in 
your program as part of a free-list used internally by malloc.
Che conferma quanto detto da Stefano ;-)
http://www.gnu.org/software/libc/manual/html_node/Freeing-after-Malloc.html#Freeing-after-Malloc
Ciao,
Emanuele.

Newsgroup: it.comp.lang.perl
Titolo: suddividere serie di numeri (regexp)

devo intervenire in un database su file testo dove
il prog salva in una "celletta" una serie di numeri
("0" o "1").. ad esempio ...|0111011|...
una volta che io ho la stringa con i numeri.. come faccio
ad avere in una serie di variabili i singoli numeri 0 o 1?
il "numero dei numeri" (scusate il gioco di parole) è variabile.
--
Ciao
The Bos
the-bos#
axelweb.com
http://the-bos.axelweb.com

 ad avere in una serie di variabili i singoli numeri 0 o 1?
 my $string = '0111011';
 my @array = split '', $string;
 print $array[1],"\n"
Max

>  my @array = split '', $string;
grazie, non capivo come dividere carattere per carattere.

Newsgroup: it.comp.lang.perl
Titolo: Ma funziona 'Tie::File' ?

All'interno di un mio CGI, ho scritto:
$file_password="password.txt";
$i=2;
tie @array, 'Tie::File', $file_password;
$array[$i] = $nuovo;
untie @array;
come mai la sintassi è giusta, ma non me lo esegue via web?!
Grazie mille
Paolo

paolo wrote:

Il web server (l'utente apache o equivalente, in Unix) ha il permesso di 
scrivere in quella directory?
-- 
The glass is neither half empty nor half full. It is twice as large as it
needs to be.
                -- Anonymous

 ha scritto nel messaggio
news:Im5Ea.88080$g92.1...@news2.tin.it...


Newsgroup: it.comp.lang.perl
Titolo: Disordinare un vettore

Salve
  normalmente il problema è quello di mettere in ordine un vettore,
rispetto ad una qualche regola che dice quali elementi del vettore sono
grandi e quali sono piccoli. Il mio problema però è esattamente il
contrario. Ho un vettore 'ordinato' e voglio mischiarlo nel modo più
'casuale' (o meglio pseudocasuale) possibile. 
  In realtà il vero obiettivo è un file, le cui linee devono essere
mischiate. Ma se riesco a farlo su un vettore posso o leggere tutto il
file in memoria o usare Tie::File per estendere il procedimento da un
array a un file...
Grazie per l'aiuto
Ciao
-- 
Leo TheHobbit 
IRCnet #roma2
ICQ 56656060
e-mail: remove 
dont.spam.me
 from above address

 array a un file...
Ok, sono un cretino.. Non ho guardato su CPAN prima di postare...
Ovviamente basta usare rnd_set dal modulo Data::Random per fare
esattamente ciò che voglio (e pure di più).
Scusate il disturbo


 'casuale' (o meglio pseudocasuale) possibile.
Puoi usare l'algoritmo di shuffling di Fisher-Yates.
http://www.perlmonks.org/index.pl?node_id=30243
Troverai il codice e un thread a proposito della velocita`
dell'algoritmo.
ciao
Stefano

 esattamente ciň che voglio (e pure di piů).
Grazie. Non conoscevo Data::Random.
Per la cronaca, la funzione shuffle() usa proprio l'algoritmo
di Fisher-Yates.
ciao
Stefano

Stefano Rodighiero ha scritto nel messaggio

Ciao!
neanche io conoscevo Data::Random, e per un motivo
analogo mi sono fatto questa piccola sub:
sub randovett
{
 my @input_ord = @_;
 my ( $num, @vettore, @output_disord );
 for ( 0 .. $#input ) { push( @vettore, $_ ) }
 for ( 0 .. $#input ) {
  $num = int( rand( $#vettore + 1 ) );
  push( @output_disord, $input[ $vettore[ $num ] ] );
  splice( @vettore, $num, 1 );
 }
 return @output_disord;
}
Se puo' servire ...
Ciao di nuovo.


Scusate ma nella precedente sub c'era qualche
imprecisione nei nomi di vettori, quella giusta è
questa :-)
sub randovett
{
 my @input_ord = @_;
 my ( $num, @vettore, @output_disord );
 for ( 0 .. $#input_ord ) { push( @vettore, $_ ) }
 for ( 0 .. $#input_ord ) {
  $num = int( rand( $#vettore + 1 ) );
  push( @output_disord, $input_ord[ $vettore[ $num ] ] );
  splice( @vettore, $num, 1 );
 }
 return @output_disord;
}
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: [OT]mySQL e perl

Salve a tutti,
    fino ad ora ho sempre usato postgres come Database ed il modulo Pg al
fine di creare dei DBMS.
    Adesso, che e' venuto il momento di pubblicare, mi trovo in difficolta'
perche non riesco a reperire dei server internet che supporitno Postgres.
    Al contrario, sembra andare di moda MySQL. Ho cosi' cominciato a
documentare e ad utilizzare questo strumento.
    Qualcuno sa dove deposita i dati?
Infatti non saprei quali directory passare al server una volta creato il DB.
ciao,
asast



Dipende da come e' stato compilato il sistema, ma in generale, come utente,
non hai alcun accesso alla directory in cui si trovano i dati.
Infatti di solito non ti interessa sapere DOVE si trovano i dati, dal
momento che per per collegarti al database non hai bisogno di un percorso.
Il tuo problema puo' essere "come caricare i dati che ho gia'"... allora
devi contattare il tuo provider e metterti d'accordo con lui (devi anche
verificare, come gia' detto in passato, che sia fatto il backup di quelle
informazioni). Come utente del database, dovresti potere ricaricare tutti i
dati facendo eseguire il codice SQL che ottieni da un mysqldump del tuo BB
originario (sempre mySQL, ovviamente).
Comunque a questo punto siamo chiaramente OT e ulteriori dettagli li devi
chiedere ad un gruppo sui database.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 asast

Newsgroup: it.comp.lang.perl
Titolo: 5.6.0 e PGPLOT

Ciao a tutti,
C'e` qualcuno che stia usando il modulo PGPLOT (ad esempio per usarlo
con il PDL :-) e che sia riuscito a compilarlo con il Perl 5.6.0?
Qui da me non riconosce la macro PL_na in array.c ...
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nandos (at) mail (dot) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nandos

 wrote:
: C'e` qualcuno che stia usando il modulo PGPLOT (ad esempio per usarlo
: con il PDL :-) e che sia riuscito a compilarlo con il Perl 5.6.0?
: Qui da me non riconosce la macro PL_na in array.c ...
Trovato.
In caso dovesse capitare a qualcun'altro:
perl Makefile.PL POLLUTE=1
(man ExtUtils::MakeMaker)


Newsgroup: it.comp.lang.perl
Titolo: ### CERCO MERCEDES ###

cerco mercedes anni 90, chilometraggio non importante, costo meno di
10.000.000, non incidentata
PREGO CONTATTARMI VIA  E-MAIL  a:  
Pe...@inwind.it
Antonio

10.000.000, non incidentata
Quanto ha di ram? Ha la USB?
------------------
MassimoM
per e-mail rimuovere un libero!
http://digilander.iol.it/mdin
------------------
Newsgroup: it.comp.lang.perl
Titolo: opzioni di checkbox_group

Ciao atutti,
ho un problema, non riesco a capire come posso aggiungere un elemento ad
un hash, quello che voglio fare è riempire un hash per poter usare
l'opzione -labels nella la funzione checkbox_group.
come posso risolvere?
Grazie,
   Albicocco.
<code>
#///////////////////////////////////
    my @values;
    my @labels;
    my %checkbox;
 
    while ( my %row = $query->fetchhash ) {
        push @values,$row{'GID'};
        push @labels,$row{'Name'};
        %checkbox=($row{'GID'},$row{'Name'});
        #in questo modo sovrascrive
    }
    print @values,"<br>\n";
    print @labels,"<br>---------------------<br>\n";
    print keys(%checkbox),"<br>\n";
    print values(%checkbox),"<br>\n";
    print %checkbox,"<br>\n";
 
    print checkbox_group(-name=>'server',
                         -values => \@values,
                         -labels => \%checkbox,# <- opzione maledetta...
                         -columns=>2 ),"<br>\n";
#///////////////////////////////////
</code>
preso dalla guida:
The optional b<-labels> argument is a pointer to an associative array
relating the checkbox values to the user-visible labels that will be
printed next to them. If not provided, the values will be used as the
default.

        %checkbox=($row{'GID'},$row{'Name'});
Con questa istruzione, l'hash %checkbox viene sovrascritto ogni volta.
Dovrebbe essere invece:
$checkbox{ $row{'GID'} } = $row{'Name'}; # aggiunge un nuove elemento 
all'hash


 all'hash
...cut...

Newsgroup: it.comp.lang.perl
Titolo: Puntatori per principianti

Sono interessato a conoscere il Perl e devo fare il passo piu'
difficile: il primo. Il sito 
www.perl.com
 non mi ha aiutato molto a
chiarirmi le idee, per cui chiedo se qualcuno in questo gruppo puo'
cortesemente darmi le seguenti informazioni:
1. Esiste un archivio con gli ESEGUIBILI e documentazione per Win95?
2. Quali sono le DIMENSIONI di questo/i archivi?
3. Esiste qualche sito mirror da cui scaricare efficientemente il
tutto?
4. Come alternativa, esiste un CD-ROM (eventualmente annesso a qualche
testo) con tali archivi?
Grazie a chiunque voglia prendersi il disturbo di una risposta!

srr...@iol.it
 wrote:
: 1. Esiste un archivio con gli ESEGUIBILI e documentazione per Win95?
www.activestate.com
: 4. Come alternativa, esiste un CD-ROM (eventualmente annesso a qualche
: testo) con tali archivi?
Perl Resource Kit - win32 Edition
1832 pagine (4 libri + CDROM)
$ 149.95
Si ordina qui:
http://perl.oreilly.com
-- 
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) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nando
Newsgroup: it.comp.lang.perl
Titolo: AAA: Cercasi programmatori perl

Ciao,
stiamo cercando programmatori perl con un po' di tempo libero per
partecipare alla realizzazione di questo progetto:
http://punto-informatico.it/p.asp?i=49591
http://www.keyforum.net
Il lavoro ce lo gestiamo tramite cvs e su un nostro forum nascosto.
Il lavoro non è poco ma se siamo in tanti allora diventa un lavoro molto più
leggero per tutti.
ABbiamo deciso di riscrivere tutto il codice quindi ripartiamo dall'inizio
con le idee più chiare. Quindi se qualcuno volesse entrare ora nel progetto
non si troverebbe a leggere il codice già scritto.
Ultimamente ci siamo prefissi altri obiettivi come la possibilità di creare
siti web diamici con immagini, animazioni flash e tanto altro, il tutto
decentralizzato.
Questo anche per aiutare l'informazione pubblica.
Mi riferisco in particolare anche agli ultimi casi tipo
http://www.italy.indymedia.org/
Spero che qualcuno rispenderà a questo appello che richiedono moltissime
comunity internet.

 
il codice proprio non o molli eh?!?
-- 
Visitate Il Mio Sito: 
http://southpark.altervista.org
E Salvate Futurama: 
http://www.petitiononline.com/bbf_2004/petition.html

> il codice proprio non o molli eh?!?
Se il nuovo codice lo rendiamo pubblico da subito tramite l'accesso a sola
lettura dal CVS entreresti come dev?

 comunity internet.
Mi propongo come programmatore Perl per lo sviluppo di "keyforum".
puoi contattarmi quà: 
http://www.theartofweb.netfirms.com/cgi-bin/bbsmart/bbsmart.cgi?DO=forumd
isplay&FORUM_ID=5
e anche via yahoo  messanger...

 isplay&FORUM_ID=5
Risposto :P
Grazie^^

> il codice proprio non o molli eh?!?
Lo molla... lo molla... perň per mollarlo, bisogna averlo un codice :)
Per ora quello che c'č, lo molla a tutti quelli che vogliono dare una
mano. In questa fase cosě primitiva, perchč qualcuno dovrebbe volere
il codice se non per aiutare il KeyTeam nello sviluppo ? :)

 lettura dal CVS entreresti come dev?
quando il codice verrà reso pubblico (va benissimo cvs a sola lettura),
potrebbe interessare anche a me partecipare allo sviluppo.
-- 
-- Marco Allegretti --
http://www.shishii.com

 potrebbe interessare anche a me partecipare allo sviluppo.
Ciao Shishii,
mi fa piacere che ti sei interessato a sta cosa.
Ultimamente ci sono alcune cose delle quali non posso proprio parlare in
pubblico.
Se ti registri ti do i permessi per l'accesso all'area riservata, anche se
poi non hai intenzione di programmare, ma così ti fai una idea della
situazioni.
Ci sono molte discussioni al riguardo.
Solo per facilitare la tua decisione. :)
Se poi vuoi, dentro al forum ci sono i dati per avere subito l'accesso al
codice "vecchio", il nuovo lo sto iniziando in questi giorni, forse carico
qualcosa ora sul cvs.
Ciao,
        daniele.
Newsgroup: it.comp.lang.perl
Titolo: Confronto stringhe... help me!

Salve,
Vi espongo il mio problema...
Ho memorizzato a mano in un file tre stringhe, una per riga. Con questo
script vorrei tramite form html (GET) confrontare la stringa immessa
dall'utente con quelle contenute nel file e rimandare a del codice html a
seconda che la stringa sia o non contenuta nel file. In pratica una specie
di login!
Il problema e' che se inserisco nel form l'ultima stringa, tutto procede
regolarmente, se invece inserisco una delle altre due stringhe o una stringa
non contenuta nel file, lo script mi va in loop infinito. Mi potete aiutare
per favore? Lo script e' il seguente:
#!perl
#
#
$FileName='dati.txt';
#
#
print "Content-type:text/html\n\n";
$i=0;
open(FILE, "< $FileName");
while (!eof(FILE))
{
   $dato[$i] = <FILE>;
   $i++;
}
close(FILE);
{
$PagNascosta=<<FINE_PAG_NASCOSTA;
<html>
<head>
<title>Nuova pagina 1</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<body>
<p align="center"><u><strong><em><big><big><big><big>Pagina Aperta con
successo</big></big></big></big></em></strong></u></p>
<p>&nbsp;</p>
<p>Riepilogo dati... etc etc....</p>
</body>
</html>
FINE_PAG_NASCOSTA
}
{
$PagErrore=<<FINE_PAG_ERRORE;
<html>
<head>
<title>User Name</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<body>
<p align="center"><big><big><big><em><strong>Errore, User Name o Password
errata,
ritornare alla pagina precedente e
riprovare!</strong></em></big></big></big></p>
</body>
</html>
FINE_PAG_ERRORE
}
$ricezform=$ENV{'QUERY_STRING'};
sub vediamo_se_lo_contiene
{
my( $array, $val ) = @_;
for( @$array )
{
return 1 if( $val eq $_ );
}
return undef;
}
print vediamo_se_lo_contiene;
if( vediamo_se_lo_contiene( \@dato, $ricezform ))
{
   print $PagNascosta;
}
else
{
   print $PagErrore;
}

 }
Se non chompi, le stringhe in @dato conterranno anche i "\n" finali.
Probabilmente l'ultima riga non ha un "\n" alla fine e quato determina
l'occasionale fuzionamento.
 my @dato;  # BTW: dichiara sempre le variabili con my e usa "use strict"!
 open(FILE, "< $FileName");
 while( <FILE> )
 {
     chomp;
     push @dato, $_;
 }
Max

 wrote in message
Pine.LNX.4.10.100092...@c64.comm2000.it...


Newsgroup: it.comp.lang.perl
Titolo: tariffa esosa

Salve,
visto che qui ci sono vari programmatori perl vorrei sapere se 20 euro all'
ora è pretendere troppo!
Secondo me si.

Il professionista si paga, o preferisci che qualsiasi Lamer (per non pensare
poi ai grandi hacker) possano girare tranquilli nei bug dei progammi creati
dagli appassionati o dai novizi ?

 all' ora è pretendere troppo!
A mio parere no, pensa che in quelle 20 euro ci sono tasse (non mi
riferisco solo all'iva), costo strutture, dello studio e poi magari ci
devi pure vivere.
Fatti quattro conti mi sembra pure eccessivamente poco.
Cya
Jon
Newsgroup: it.comp.lang.perl
Titolo: aiuto -- HTTP/1.0 501 Non supportato

salve, aiutatemi...
avevo installato su una macchina:
Win95 osr2, Personal Web Server, Frontpage 98, Perl 5.22 di activestate,
tutto funzionante, fino a quando..
ho dovuto reinstallare la scheda di rete, quindi ho perso tutte le
impostazioni relative a TCP/IP, servizi etc.
ho reinstallato tutto da capo, tranne il Perl (non so se c'entra), ma quando
eseguo uno script perl mi si verifica il seguente errore:
HTTP/1.0 501 Non supportato
help me! cosa può essere successo (perchè prima gli script li eseguiva)
grazie in anticipo

 wrote in message
84vvn2$js6$1...@nslave2.tin.it...

le estensioni tipiche di un file perl (.pl, .cgi, etc) avendo reinstallato
pure PWS si saranno andate a far benedire.
in ogni caso, reinstallando il perl dal setup della ActiveState tutto
tornerà alla normalità. altrimenti c'è un file di aiuto che ti spiega come
fare le associazioni a mano, non è molto difficile.
--
HAPPY 2K!.db
Daniele "The Night Surfer" Bochicchio <webmaster(at)ASPItalia.com>
Moderatore di it.comp.www.asp - 
http://www.ASPItalia.com/newsgroup/icwa.asp
Questa settimana: 'WAP (Wireless Application Protocol)'
http://www.ASPItalia.com/articoli/articoli.asp?settimana
Uno script al giorno? Solo su 
http://www.aspitalia.com/liste/usag/
Newsgroup: it.comp.lang.perl
Titolo: telnet

carissimi,
sto sperimentando il telnet. e comincio a capire qulacosa, MA...
il seguente script produce l'output che vedrete
il collegamento avviene
con perl, finestra DOS, WinNT
verso sistema AIX (unix) in rete locale
#####################
##### ecco lo script
######################
use Net::Telnet ();
($username, $passwd)= @ARGV;
@risposta=();
$t = new Net::Telnet (Timeout => 10,
                      Prompt  => '/\[ antonio\@risc1 \] \/u\/antonio >/'
                      );
$t->open("1.1.1.1"); # questo e' chiaramente "barato"
$t->login($username, $passwd) or die "Hai dimenticato la passwd?\n";
#######
$t->print("dir *.sas*\n"); ##################
   print "\n",'-' x 50,"\n"; #tanto per mettere delle righe :-)
#############
($lines) = $t->waitfor('/\[ antonio\@risc1 ] \/u\/antonio >/');######
 print "\n$lines\n" , "\nwaitfor", '=' x 50, "\n"; # altra righa
# tanto per finire
$ok = $t->close;
print "\n$ok se =1 allora e' adndata bene la chiusura della connessione\n";
#######################
# ecco il risultato ### 
### catturato facendo 
### c:\perl>perl 
provatelnet.pl
 a b > provatelnet.out
########################
--------------------------------------------------
 dir *.sas*
 [?7l [?1l (B [24;1H [K-rw-r--r---   1 antonio  bearb        161 Oct 25 15:51
per.sas
-rw-r--r---   1 antonio  bearb        454 Jul 22 08:36 dbtosas.sas
-rw-r--r---   1 antonio  bearb        284 Mar 08 1999  sastodb.sas
-rw-r-----+   1 antonio  bearb       6081 Oct 01 1998  bw100.sas
-rw-r--r---   1 antonio  bearb        598 Jan 13 1998  sacc4.sas
 [K [7mStandard input: END [0m
 [K [?7h
waitfor==================================================
1 se =1 allora e' adndata bene la chiusura della connessione
############################
######## DOMANDA ##############
#############################
che cavolo ci fanno quei segnacci tra #### dir *.sas* #####
l'elenco dei files
e la scritta finale ##### waitfor===== #########
?????
come forse avrete intuito, voglio lanciare da uno script perl dei comandi  sotto
unix, e leggermi il risultato (che verrà a video) per poterlo successivamente
elaborarlo, in quanto vi è un "dialogo" interattivo, soltanto alla fine del
quale si ottiene veramente un risultato
grazie per suggerimenti vari
antonio

 ?????
Dovrebbero essere caratteri di controllo del terminale (tipiche sequenze 
di escape).
Dipendono dal terminale di default (quello fissato da tset o stty) della tua
sessione. Ad esempio. scritte in grassetto o comandi per posizionare il
cursore sullo schermo.
Dalla manpage di telnet e Net::Telnet, non mi sembra sia un fattore
dipendente da telnet, per cui devi fare delle prove con script di login piu'
"nudi" (ovvero senza settaggi del terminale). Questo potrebbe coinvolgere
non solo il tuo script di login, ma anche quello di sistema.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)