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

Salve a tutti,
mi stavo baloccando con il notevole manuale Effective Perl quando ho  
incontrato un esempio di codice affetto da una sottigliezza
while(my $file=glob('*')) {
  print "$file\n";
}
che stampa i nomi dei file nella directory corrente, a meno che non ci sia  
un file che ha il nome '0' in tal caso si esce dal ciclo perchè  fa  
fallire la condizione. O almeno così ho capito dal manuale.
Ma questo è quello che ho ottenuto:
vcrini@wigle:~/personale.git/src/perl/gruppo$ perl 
while.pl
while.pl
vcrini@wigle:~/personale.git/src/perl/gruppo$ touch 0
vcrini@wigle:~/personale.git/src/perl/gruppo$ perl 
while.pl
0
while.pl
come si vede il ciclo non si interrompe. Di conseguenza, dove sto  
sbagliando secondo voi?

 sbagliando secondo voi?
Non stai sbagliando nulla, gli hai chiesto "dammi tutti i file" e lui te 
li ha dati.

 Dunque in contesto di lista come il tuo
Ehm, volevo dire in contesto scalare come il tuo, sorry.

 Ehm, volevo dire in contesto scalare come il tuo, sorry.
Ciao Andrea, grazie per la pronta ed esauriente risposta.
Questo è il testo copiato direttamente da Effective Perl
while ( my $file = glob('*') ) {
# WRONG
do_something($file);
}
That glob works well almost all of the time. Each time through the loop,
the glob('*') produces another filename from the current directory,
which goes into $file. Once glob has gone through all the filenames in
the directory, it returns undef, which appears to be the empty string and
therefore false, causing the while loop to terminate.
There is one problem, though. If there is a file named 0 in the current
directory, it also appears to be false, causing the loop to terminate  
early.

 early.
Il mio parere è questo: il libro è un po' vecchiotto e può darsi che il 
comportamento di glob, in questo contesto, sia stato cambiato nei più 
recenti interpreti.
Oppure non ho capito nulla di glob o della frase sopra esposta :)
Aspetta la risposta di qualche altra persona con le idee più chiare :)
Buone feste!

 recenti interpreti.
Neanche più di tanto, sai, la seconda edizione in mio possesso è del 2010.
Grazie del supporto e buone feste pure a te (e a tutti i frequentatori del  
forum).


perchè perl  	quando incontra glob in while trasforma la condizione di 
loop in while(defined ...)
1) perl -MO=Deparse -e  'sub f { return 0; };while(my $i=f) { print "$i\n"}'
2) perl -MO=Deparse -e 'while(my $file=glob("0")) { print $file}'
come puoi verificare eseguendo questi due esempi
Newsgroup: it.comp.lang.perl
Titolo: Vale la pena studiare 500 pagine su PERL?

Il titolo dice tutto... volevo sapere se PERL è ancora una linguaggio
vivo e competitivo
Ciao!

vivo e competitivo
Francamente, mi riesce difficile capire che cosa voglia dire per un
linguaggio essere "competitivo". Quanto al "vivo", essendo vivo tutto ciò
che non è morto, non è un'informazione particolarmente rilevante: i
linguaggi di programmazione morti sono veramente pochissimi, posto che
esistano (algol?...).
Perl è un linguaggio, se ritieni che abbia le caratteristiche che ti
interessano, utili per quello che devi fare, lo usi, se no ne cerchi uno
più adeguato. Quale sia il più adeguato alle tue esigenze puoi dirlo solo
tu.
Se ti serve un nome da mettere sul curriculum per fare bella figura, non
sono davvero in grado di aiutarti, non ho idea che cosa vada di moda questa
primavera.
Se invece stai cercando un linguaggio stimolante, per un tuo interesse
linguistico, o un linguaggio di utilità generale potente ed elegante, non
hai ancora investito tempo in altri linguaggi e non hai particolari
restrizioni, ti consiglio di dare un'occhiata a Ruby. Se non fossi
felicemente sposato con Perl da più di dieci, lieti e fruttuosi, anni,
sarebbe probabilmente il linguaggio che sceglierei di studiare oggi.
Ciao.

 sarebbe probabilmente il linguaggio che sceglierei di studiare oggi.
Personalmente ti posso dire che ,almeno in Italia, Php e Asp, e 
naturalmente Java e c++ vanno molto più di "moda" rispetto a Perl. Prova 
a fare un salto in libreria per rendertene conto. Credo che valga sempre 
la pena di studiare un nuovo linguaggio, comunque. Se lo fai per moda, 
lascia stare Perl. Se lo fai per fare soldi, lascia stare Perl. Se lo 
fai per rendere il tuo CV più ricco, lascia stare Perl. Solo dopo 6 anni 
inizio a capire perchè "il programmatore Perl si riconosce dal sorriso 
che che porta stampato sulle labbra"... ed è per questo che grazie a 
Perl mi sento alla moda, che grazie a Perl ho fatto gli unici soldi in 
vita mia con la programmazione, e grazie a Perl il mio CV è più ricco di 
molti altri che scrivono PHP e ASP o peggio. Credo che Perl ci sarà 
ancora tra 100 anni, ma non basta una vita per imparare veramente TUTTO 
su di esso.

 vivo e competitivo
Si certo.

 su di esso.
Questa frase la quoto, con tutta la profondita' che contiene.

 Questa frase la quoto, con tutta la profondita' che contiene.
Si, sono d'accordo.
E' un "mondo" molto più vasto di quanto non possa sembrare.

E' vivo e lo sarà sempre!
-- 
Leonardo Armando Iarrusso - J2Be
www: 
http://www.J2be.com
 - e-mail: info[at]J2Be.com 

 ha scritto nel messaggio
news:1145480547.1...@i39g2000cwa.googlegroups.com...

Newsgroup: it.comp.lang.perl
Titolo: how to do upload of files?

I'd like to build a little portal of picture.
I'd like to let to user upload in the server files.
How can I do that in perl?
THankyou in advance, Mario.

Ho risolto il problema di recente.
Nel form html metti :
-------------------
<form method="post" action="your_action" enctype="multipart/form-data">
<table>
  <tr>
    <td>File</td>
    <td>  <input type=file name="upload" size="50"><br> </td>
  </tr>
</table>
<input type="submit" name="action" value="Upload Picture"><br>
</form>
Nel CGI :
-------
my $destination_folder = "your_folder";
my $file = $q->param('upload');
if (!(-r $file)) {
	return "File $file is not readable";
	}
if ($file =~ /([^\/\\]+)$/) {
	$Filename = $1;
	$Filename =~ s/^\.+//;
	}
my $BytesRead;
my $Buffer;
undef $BytesRead;
undef $Buffer;
while ($Bytes = read($file,$Buffer,1024)) {
	$BytesRead += $Bytes;
	binmode OUTFILE;
	print OUTFILE $Buffer;
	}
close(OUTFILE);
chmod (0644, "$destination_folder\/$Filename");
return "Upload Finished ($BytesRead bytes)";
---------
OK  ?????
 Raffaello

Newsgroup: it.comp.lang.perl
Titolo: Win32::GUI e TheGUILoft

Ciao; sto studiando TheGUILoft e mi pare un ottimo pacchetto, ma:
1) Non sembra piu' supportato/aggiornato, giusto?
2) Il binario del GUI Builder fa cose strane: due macchine con stessa
versione Perl 
5.8.8./817
 e Win32::GUI (1.3). Su una parte e funziona,
sull'altra no. Idee?
Grazie e ciao,
--
Genge'


Una, si'. Probabilmente sei stupido. Su una macchina hai installato il
pacchetto completo, sull'altra solo l'eseguibile. Giusto?
--
Genge'


Questo a dimostrazione che, spesso, si è molto più severi con sé
stessi che con gli altri.
In ogni caso, ti sei preso la briga di tenerci aggiornati, il che mi
sembra una gran cosa. Giusto?
Ciao,
   Flavio.


Giusto!
--
Genge'

Newsgroup: it.comp.lang.perl
Titolo: caricare una pagina html

debbo mettere, in uno script cgi, una riga di codice che faccia in modo che
durante l'esecuzione, si apra una certa pagina html.
Che comando si usa?
Grazie 1000
Andrea

 ha scritto nel messaggio
news:xBJn7.39432$ul3.1...@news.infostrada.it...


print "Location: 
http://www.
...";
Phones

Newsgroup: it.comp.lang.perl
Titolo: imap .. problemi

Salve, sto cercando di ricavare le nuove email non lette da gmail con perl, il codice è questo:
 
[CODE]
#!/usr/bin/perl
use strict;
use Mail::IMAPClient;
use IO::Socket::SSL;
 
my $username = '
mye...@gmail.com
'; 
my $password = 'mypasswd'; 
 
my $socket = IO::Socket::SSL->new(
		PeerAddr => '
gmail-imap.l.google.com
',
		PeerPort => 993
	) or die "socket(): $@";
 
my $client = Mail::IMAPClient->new(
		Socket   => $socket,		
		User     => $username,
		Password => $password,
		Uid => 1,
 	) or die "new(): $@";
 
if ($client->IsAuthenticated()) {
	my $msgct;
 
	$client->select("INBOX");
	$msgct = $client->unseen_count||'0';
	print "Email unread: $msgct\n";
 
	my @unread = $client->unseen or warn "Could not find unseen msgs: $@\n";
 
	foreach (@unread) {
                print "$@\n";
		print $_ . " - " . $client->fetch($_) . "\n";
	}
}
$client->logout();
[/CODE]
 
ma come output mi restituisce:
 
[CODE]
king@homepc:~$ ./
script.pl
 
Email unread: 3
12730 - 
5 BAD Could not parse command
12740 - 
6 BAD Could not parse command
12746 - 
7 BAD Could not parse command
king@homepc:~$ ./
script.pl
 
[/CODE]
 
il pratica ci sono dei problemi con il fetch, ma non riesco a capire perché. 
Qualcuno sa darmi un consiglio ?

 Qualcuno sa darmi un consiglio ?
 
beh, non gli hai detto cosa deve FETCHare... come *minimo* ci vuole:
 
    $client->fetch($_, 'ALL')
 
gli argomenti del comando FETCH sono documentati qui:
 
http://tools.ietf.org/html/rfc3501#section-6.4.5
 
 
cheers,
Aldo


 
Poich� fetch ritorna un array ref:
join("\n",$client->fetch($_,'ALL'))
nella print
 


Correzione:
ritorna un array
 

 ritorna un array
 
Quindi ? non ho capito cosa dovrei fare ?
Grazie


 
 
sostituisci
print $_ . " - " . $client->fetch($_) . "\n";
 
con
 
 
print $_ . " - " . join("\n",$client->fetch($_,'ALL')) . "\n";
 
 

 Quindi ? non ho capito cosa dovrei fare ?
 
giustamente tu chiedevi un consiglio: evita di usare fetch, e' una funzione di basso livello e quello che restituisce (un array, come fa giustamente notare enoquick) andrebbe comunque con ogni probabilita' processato ulteriormente.
 
Mail::IMAPClient ha metodi piu' semplici tipo subject, body, o al limite get_header. a meno che non ti servano cose estremamente complesse, dovrebbero esserti sufficienti quelli.
 
cheers,
Aldo


si, a me basta recuperare il subject delle email, quindi userò una di quelle.
Grazie
Newsgroup: it.comp.lang.perl
Titolo: fine nascosti..

posso accedere a un file nascosto  ( linux  ) quello dove sono memorizzate
le passw.  di accesso alle dir...
se si come?
Grazie"

 le passw.  di accesso alle dir...
E cosa ci vuoi fare con le passw ?
eheheh

 le passw.  di accesso alle dir...
E da quando in qua /etc/passwd č un file nascosto??? Se non hai i
permessi di lettura non ci puoi fare niente... a meno che non corrompi
il tuo sysadmin....
-- 
Wiz of Id a.k.a. William Ghelfi
E-Mail: < mailto:
w...@galactica.it
 >
Web Site: < 
http://web.tiscalinet.it/penguin_rules/
 >
<cite> *Hey! Occhietti Rossi!* </cite>

 ha scritto nel messaggio
news:97e5qs$egr$1...@nreadA.inwind.it...


  Te capi'?..:)
Toscano di Massa Carrara?
Ho capito e non ti so aiutare... spiacente :-(
Wiz of Id

 perldoc -f crypt
"crypt"  non credo sia la soluzione per due motivi:
1) da quel poco che capisco č irreversibile mentre nel pannello mi ritorna
la passw. non criptata...
2) in ogni caso non so quale passw. di criptazione viene  usata :(
..ho detto una cavolata?
grazie!
Ciao

 Wiz of Id

 ..ho detto una cavolata?
1) Cose' sto' pannello????
2) in queste directory protette c'e' un file tipo .htaccess? che c'e' 
scritto?
3) il tuo scopo non e' aggiungere utenti a sta sorta di passwd? allora 
open (PASS,'>>passwd_file');
print PASS "$nomeutente:",crypt($password,$password),"\n";
close PASS;
Se poi questo sistema su cui lavori, gestito da questo fantomatico 
"pannello", funziona diversamente, io non lo posso sapere.
-- 
Saluti,
Giancarlo

 close PASS;
ora provo.... ( non sapevo che venisse usata 2 volte la passw.)
ti faro' sapere...grazie!
Ciao :)

> print PASS "$nomeutente:",crypt($password,$password),"\n";
FUNZIONA!!!!!!!......GRAZZZZIIIIEEEE!!!!!!! o|:-()))))
...vedi... un piccolo esempio vale piu' di mille parole .. e di ore perse
inutilmente:(
..pero' sono servite ad apprendere l'uso (superficiale) dei cookies in perl.
Ciao.
Oxy

 ora provo.... ( non sapevo che venisse usata 2 volte la passw.)
Non e' che viene usata 2 volte la password, come secondo argomento,il 
cosidetto salt, ci puoi mettere quello che vuoi, anzi metterci la password 
non e' una politica troppo "bella" perche' cosi' rilveli ad un eventuale 
cracker (che sa che usi la password come salt) le prime due lettere della 
password.
Come funziona crypt? in 2 parole, crypt(stringa,salt) restituisce una 
stringa criptata con l'algoritmo stantard delle password unix le cui prime 
due lettere sono il salt (se quello che metti tu e' piu' lungo di 2 
caratteri vengono usati i primi 2). al momento della verifica cosa succede: 
(lo scrivo in pseudo perl per far prima)
$username=<STDIN>;
$pass_da_provare=<STDIN>;
$pass_criptata=(split(/:/, grep /^$username:/, <PASSWD>))[1];
$pass_da_provare_criptata=crypt($pass_da_provare,$pass_criptata);
if ($pass_da_provare_criptata eq $pass_criptata) {
        return 1;
} else {
        return 0;
}
Capito?
-- 
Saluti,
Giancarlo

1000 grazie per le info:)
..ora ho sospeso la questione (risolta)..
ma ci ritornero' non mi è tutto chiaro!
Ciao
Oxy
Newsgroup: it.comp.lang.perl
Titolo: Accesso a file HTML remoti

Salve a tutti.
Non sono espertissimo in PERL, e vorrei un consiglio.
Quello che vorrei realizzare e' uno script CGI-BIN che sia in grado di 
leggere un file HTML remoto, e cioe' residente su di un altro server 
internet. Per esempio dal server del mio sito 
http://www.miosito.com/cgi-bin
 vorrei poter tramite uno script leggere e 
parsare una pagina html del sito 
http://www.altrosito.it/
E' possibile farlo in PERL? E' una cosa complicata (come a me sembra che 
sia) o c'e' qualche trucco che mi e' sfuggito che la rende facile? Qualcuno 
ha suggerimenti?
Grazie,
-- 
Fau Marz

leggere un file HTML remoto, e cioe' residente su di un altro server 
Puoi usare libwww-perl (LWP). Il modulo lo trovi sul CPAN se non e`
gia` presente nella tua distribuzione del Perl.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!


Non è complicatissimo con gli strumenti giusti! :-)
Leggiti 
man LWP
e dovrebbe bastarti un semplice 'get' 
Oppure puoi sempre usare una buona system() su lyx, sempre che il
provider te lo permetta! 
Ciao
--ev
Newsgroup: it.comp.lang.perl
Titolo: creazione file temporaneo

Ciao a tutti,
devo aprire un file in scrittura per modificarlo, ma ho la necessita' di
fare un flock sul file: quindi, vorrei aprire il file in sola lettura,
flockarlo, creare un file tmp, modificare il file tmp, rinominare il file
tmp nell'estensione originale (txt). I problemi sembrano essere due:
1) come si crea un file tmp??
2) se apro un filehandle in sola scrittura, una volta creato il file tmp
dovrei aprire quest'ultima in scrittura: in questo modo mi trovo due
filehandle differenti aperti, uno annidato nell'altro. Ma quando tento di
unflockare il file originale, mi risponde che non trova piu' il file. La
struttura sarebbe la seguente:
open(FILE1, (file1.txt)
flock FILE1
crea file tmp
open (>>FILE2.tmp)
modifica file .tmp
rename tmp in txt
close FILE2
flock FILE1
close FILE1
Il primo flock (apertura) funziona; in chiusura, invece, mi dice che non
trova il file.
Dove e' l'asinata??
Se qualcuno ha una soluzione alternativa, puo' aiutare un disorientato
principiante?
Grazie a tutti.
Andrea

 fare un flock sul file: quindi, vorrei aprire il file in sola lettura,
Non ti basta aprirlo in scrittura e fare un lock esclusivo?
Marco Gazerro

 ha scritto nel messaggio
news:3C764607...@open2b.com...


 in questo caso perderei il o i file.
Una soluzione semplice e generale potrebbe essere:
1. apro il file originale
2. ci metto un lock esclusivo
3. ne faccio una copia
4. modifico il file originale
5. rilascio il lock
se avviene un crash durante il punto 4 hai sempre la copia
non modificata.
Ma comunque si ha sempre il problema di capire se il file originale
è consistente oppure è corrotto perché magari in precedenza è avvenuto
un crash.
Quindi si potrebbe fare così:
1. apro il file originale
2. ci metto un lock esclusivo
3. esiste la copia ?
     4.1. sì, allora ricopio la copia sull'originale
     4.2. no, ne faccio una copia
4. modifico il file originale
5. cancello la copia
6. rilascio il lock
Ma il crash potrebbe avvenire durante la copia del file originale
e bisogna quindi sapere se è l'originale corrotto o lo è la copia!
La soluzione non mi sembra così semplice, si dovrebbe arrivare ad
implementare un giornale di un gestore di database che però lavori
su un intero file invece che su pagine.
Marco Gazerro

 Da qui la necessita' di avere un file tmp.
1. apri originale
2. flock
3. crea temporaneo (sullo stesso fs)
4. apri temporaneo, scrivi, e chiudi
5. rename( temporano, originale )
6. un-flock
rename() sostituisce il file in modo atomico. Questo significa che in questo
scenario, se un secondo processo sta cercando di accedere al file originale,
o trova il vecchio file flockato o trova il nuovo file appena rinominato. Se
il processo muore prima di aver completato la scrittura del temporaneo
l'originale non viene toccato.
Max
Newsgroup: it.comp.lang.perl
Titolo: Re: regex e look-ahead, giustappunto

 niente da fare... Mando il cervello al bancio dei pegni? :-P
Questo...
1 while(  $text =~ s/
         \[quote:(\d+)\.[^]]+\]
               (.*)
         \[\/quote:\1\.[^]]+\]
         /<span class="quote-lev-$1">$2<\/span>/gsx );
dovrebbe funzionare, ma non escludo ci siano soluzioni più efficienti.
(L'uso del tag <span> è solo un suggerimento stilistico/pratico.)
Max

 dovrebbe funzionare, ...
No, non funziona se ci sono più blocchi sullo stesso livello. Questo
dovrebbe funzionare:
 1 while(  $text =~ s/
         \[quote:(\d+)\.[^]]+\]
               (.*?)
         \[\/quote:\1\.[^]]+\]
         /<span class="quote-lev-$1">$2<\/span>/gsx );
Max

 look-ahead. Grazie in ogni caso :-)
Nun so' le Bridgestone, è proprio che con una semplice regex (sia pure
look-around) non è possibile parsare strutture ricorsive, devi per forza
ricorrere all'esecuzione di codice all'interno della regex (almeno con
Perl 5.8).
Se ci limitassimo alla sola verifica del bilanciamento dei tag, lo si
potrebbe fare abbastanza facilmente con il costrutto:
(??{ codice_perl }) (match-time pattern interpolation), ma nel tuo caso
particolare la necessità di effettuare anche la sostituzione renderebbe
la regex estremamente complicata (ed anche inefficiente).
In definitiva questa è la soluzione migliore che mi viene in mente al
volo, che rispetto alla while ha il vantaggio di scandire la porzione di
testo non quotata una sola volta (mentre con la while tutta la stringa
in input viene ri-scandita n+1 volte, dove n è il massimo annidamento
dei quote presenti).
Dovrebbe quindi essere un po' più efficiente (almeno nel caso di testo
molto lungo).
my $QUOTE_REGEX = qr{
      \[quote:([^]]+)(?:\.[^].]+)?\]
     (.*?)
      \[/quote:\1\]
}sx;
sub change_quote {
     my ($text, $level) = @_;
     $text =~ s{$QUOTE_REGEX}{
         qq[<span class="quote-level-$level">]
         . change_quote($2, $level+1) . '</span>'
     }ge if defined $text;
     return $text
}
che si esegue con:
change_quote($tutto_il_tuo_testo_phpBB, 0);
P.S.
Altrimenti lo si poteva fare con Text::Balanced, ma lo dico solo nel
poscritto perché so quanto tu sia contrario all'aggiunta di dipendenze ;-)
Ciao,
Emanuele.

 change_quote($tutto_il_tuo_testo_phpBB, 0);
Ovviamente prendendone il valore di ritorno:
$testo_normalizzato = change_quote($testo_originale_phpBB, 0);
Newsgroup: it.comp.lang.perl
Titolo: About shutdown and showmount RPC Program not registered

Hi all,
when I run the shutdown:
# cluster shutdown -g0 -y
...cut...
showmount: clab1: RPC: Program not registered
Do you want to continue? (y or n):  :-(
..to resolve I had to enable the NFS service...
The question is:
I don't need/want to enable NFS service
any ideas to resolve this problem with another way?
thanks in advance
# ps -ef | egrep "nfs|rpc"
...cut...
  daemon  1566     1   0 15:35:11 ?           0:00 /usr/sbin/rpcbind
  daemon  1581     1   0 15:35:13 ?           0:00 /usr/lib/nfs/statd
  daemon  1629     1   0 15:35:23 ?           0:01 /usr/lib/nfs/lockd
# showmount
showmount: clab1: RPC: Program not registered
# svcs network/nfs/server
STATE          STIME    FMRI
disabled       16:42:10 svc:/network/nfs/server:default
# echo 'share  -F nfs  -o ro=clab1  -d "test dirs"  /export/test' >> /etc/
dfs/dfstab
# svcadm enable network/nfs/server
# exportfs -v
share -F nfs
-               /export/test   rw=clab1   "test dirs" 
...showmount work and the shutdown command works happily without me

...osssignur mi perdonerete mai?
sbagliato ng...fa caldo, sono stanco e mi sto sbrinando, na tragedia... 
eccheccose' !!!

Newsgroup: it.comp.lang.perl
Titolo: HELP: Software per gestione clienti/accounts

Innanzi tutto scusate il crosspost sui vari gruppi, ma per la mia
inesperienza erano teoricamente tutti inerenti, ed ho pensato di
mandarlo a tutti.
Avrei necessita' di entrare in contatto con programmatori che abbiano
esperienza nella gestione di applicazioni di rete, o che possano darmi
dei suggerimenti.
Mi servirebbe un software da installare su diverse macchine client
facenti capo ad un server, i quali tramite un user-id e password
dovrebbero dare l'accesso all'utente per il tempo rimastogli
sull'account (dati presi dal server).
Se avrete la gentilezza di contattarmi in email sara' mia cura
illustrarvi con i dettagli necessari cio' di cui avrei bisogno.
Grazie per l'attenzione.
E. Gori
ne...@dada.it


Newsgroup: it.comp.lang.perl
Titolo: Librerie Perl mini-lib.pl e lib-cgi.pl

Ho letto dei tutorial sulla programmazione cgi in perl, ...
ho letto che per passare il valore di una varibile tra form html e cgi
serve:
1° tutorial: 
lib-cgi.pl
2° tuturial: 
mini-lib.pl
... naturalmente cè anche la spiegazione con ognuna delle 2 lib ....
il problema è che io uso Linux Slackware e RedHat6  (dove ho installato
perl5) (fornito con le distribuzioni) ..ma di tali librerie non ce ne è
neppure l'ombra ... come faccio ??
Grazie a chi mi saprà rispondere   :-)
Ciao



Usi il modulo CGI distribuito con Perl. Help nelle manpage.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

2° tuturial: 
mini-lib.pl
Sono obsolete. Usa il modulo CGI.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

> Sono obsolete. Usa il modulo CGI.
Ciao,
dove lo trovo (è già dentro linux?) ... dove trovo la documentazione per
poterle usare?
grazie per l'interesse...
Ciao LaNdo

poterle usare?
Insieme al modulo, esattamente come per tutti gli altri moduli.


 poterle usare?
CGI.pm dovrebbe fare parte della distribuzione ufficiale, ma ti consiglio di
fare un salto sempre per vedere se ci sono nuove versioni su CPAN
    Best regards,
        Kazuma
--
Alex Garbagnati, 
agarb...@removethis.messagemedia.com
Sr. Application Engineer, Product Development
Decisive - A MessageMedia Company
Mountain View, CA  94043
Newsgroup: it.comp.lang.perl
Titolo: tk.pm: c'e qualcuno che mi aiuta?

Ciao a tutti,
dato che non esiste 
it.com.lang.perl.tk
 scrivo qua sperando di non essere
OT.
Utilizzo Perl 5.005 e 
tk.pm
 per scrivere un'applicazione utilizzabile sia su
Win32 che su X per *nix.
Il problema e' questo:
ho un widget con tre frame all'interno dei quali ci sono 3 Listbox, posso
scegliere UN oggetto da UNA delle tre liste e tramite Doubleclick o button
lancio una procedura che "lavora" sul valore scelto:
sub action {
 $item_from_1 = $list_1->get('active');
 $item_from_2 = $list_2->get('active');
 $item_from_3 = $list_3->get('active');
#return if no list item is active
 return if ((!$item_from_1) && (!item_from_2) && (!item_from_3));
#a questo punto pensavo di avere inizializzato una sola delle tre variabili
$item_from_?, invece le altre due #contengono l'ultimo valore presente nella
liste non selezionate
#come vedo da:
#debug
 print("\n\nONE       = $item_from_1\n\n");
 print("\n\nTWO      = $item_from_2\n\n");
 print("\n\nTHREE  = $item_from_3\n\n");
......
}
C'e' qualcuno che sa come risolvere questo inconveniente?
grazie
--
Mario Protto
ma...@net4u.it
www.net4u.it

 wrote:
: dato che non esiste 
it.com.lang.perl.tk
 scrivo qua sperando di non essere
: OT.
Non penso proprio!
: Il problema e' questo:
: ho un widget con tre frame all'interno dei quali ci sono 3 Listbox, posso
: scegliere UN oggetto da UNA delle tre liste e tramite Doubleclick o button
: lancio una procedura che "lavora" sul valore scelto:
[...]
: #a questo punto pensavo di avere inizializzato una sola delle tre variabili
: $item_from_?, invece le altre due #contengono l'ultimo valore presente nella
: liste non selezionate
[...]
: C'e' qualcuno che sa come risolvere questo inconveniente?
Potresti provare ad usare qualcosa del tipo:
$res = $listbox->get($listbox->curselection);
e poi eliminare la selection con il metodo SelectionClear: questo metodo
l'ho trovato nella man page di Tk::ListBox(3), ma non l'ho mai usato,
quindi fammi sapere se funziona.
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) mail (dot) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nandos
Newsgroup: it.comp.lang.perl
Titolo: chiocciola

Perchè quando inserisco la @ in una stringa e poi cerco di stamparla mi
sparisce dalla visualizzazione??
Es. 
$mail=
ca...@microsoft.it
;
...
print STDOUT ("$mail");
.....
mi stampa:
---------------->   
casa.it
              ???
Forse xkè indica un array??!
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 print STDOUT ("$mail");
così dà errore! :)
o $mail="casa\@
microsoft.it
" # o usi l'operatore qq
o $mail='
ca...@microsoft.it
'; # o usi l'operatore q
Le " servono a definire una stringa nella quale le variabili vengono 
interpolate. Dunque @microsoft è un array undef, dunque senza elementi.
Con le ' definisci una stringa "letterale".
usa sempre 
perl -w nomeprogramma
così Perl ti avvisa di possibili problemi.

Grazie Andrea, le ho trovate le opzioni q// e qq// ! Ora mi funziona..
Qunado compilo il proggy inserisco già in alto (prima riga):
"!usr/bin/perl -w " ma sinceramente non ero riuscita a capire cosa
intendeva!
Anche perchè mi dava altri 4 errori nella compilazione!ma sono riuscita
a risolverli!
Ma non è che vi arrabbiate se posto "qualche" domanda.. ;-)!Sono agli
inizi.. ma soprattutto, vi vorrei dire che in realtà posto solo il 5%
dei miei dubbi!proprio x non annoiarvi!
Il resto cerco di scoprirlo leggendo (ovunque).. xciò.. vi prego, non vi
arrabbiate!!
Se faccio tante domande, ed esagero, ditemelo! :-(
Grazie..grazie!!
Alla prox. :p
Dany


Newsgroup: it.comp.lang.perl
Titolo: Dove scaricare il modulo MIME::Base64

Vorrei scaricare il modulo MIME::base64 ma non so da dove.
Ho saputo che è possibili farlo dal sito 
http://www.perl.org
 ma non sono
riuscito a trovare l'area di download dei moduli.



 
http://search.cpan.org/search?dist=MIME-Base64

Newsgroup: it.comp.lang.perl
Titolo: Cerco programmatore perl

Cerco programmatore perl per modifica e creazione script cgi.

 wrote in message
z3EP6.13599$VT1.1...@news1.tin.it...


) 
sicuamente di qualcosa di molto serio....
-- 
Saluti,
Giancarlo

 wrote in message
9f08e1$3j1o$1...@stargate1.inet.it...


 ha scritto nel messaggio
news:XEUQ6.3637$Vw4.1...@news2.tin.it...

Newsgroup: it.comp.lang.perl
Titolo: [?] cgi in perl su unix...

Ciao a tutti,
    ho scritto un piccolo cgi in perl (sul mio pc: win95, activeperl5,
xitami) ed in locale funziona perfettamente, ma una volta caricato sul
server unix dove si trova il mio sito, quando lo richiamo il server mi
risponde con
Internal Server Error
The server encountered an internal error or misconfiguration and was unable
to complete your request.
Please contact the server administrator, 
webm...@areadesign.it
 and inform
them of the time the error occurred, and anything you might have done that
may have caused the error.
sapendo che ho messo corretamente(?) #! /usr/bin/perl come prima riga, che
il file ha l'attributo "executable" (x), quale può essere il problema?
Ciao e grazie a tutti


Se hai la possibilità di accedere all'error_log puoi leggere il
messaggio d'errore completo.
Ciao
Andrea Busia
-------------------------------------------------------
Redattore e Programmatore di Ludus
http://www.ludus.it
La prima rivista italiana dedicata ai videogiochi,
con recensioni, anteprime, trucchi, soluzioni, ecc.
-------------------------------------------------------
No Spam, Grazie.


--
 Massimo Balestra
 System Engineer
 Torino Italy
Sent via Deja.com 
http://www.deja.com/
Before you buy.

 il file ha l'attributo "executable" (x), quale può essere il problema?
Dato che proviene da una macchina Windows molto probabilmente lo script
ha la sequenza cr+lf per il ritorno a capo (che su uno Unix e'
scorretta, si usa solo il cr).
Ci sono delle utilita' per convertire i testi da dosa a unix, oppure se
usi ultraedit per scrivere gli script puoi farlo molto semplicemente (
meglio ancora usare vim per windows :-)
-- 
Lorenzo Pulici - 
sno...@tiscalinet.it
  - Web Design
http://milanohockey.virtualave.net
 
http://snowdog.cjb.net
http://verdebaggio.freeweb.org
 
http://members.xoom.com/Ramones/
   PGP ID: 1D33 3DE6 635E D192 F648  74D9 28A7 E921 3E1A 44F2

Newsgroup: it.comp.lang.perl
Titolo: Aiuto!!! - Data

Sto sviluppando uno script, in cui la data , richiamata con la funz gtime(),
mi arriva nel formato americano 15/1/02. C'è possibilità di riconvertirla
nel ns classico 15/1/02 ? Come ?
Grazie Simon

 wrote in message
ExX08.1142$Qu1....@news2.tin.it...

Usa localtime anziche` gtime.
In un contesto scalare restituisce una stringa tipo:
Tue Jan 15 13:37:24 2002
In un contesto di lista invece un vettore di questo tipo:
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
Un tipico idioma per fare quello che ti serve e`:
my ( undef, undef, undef, $day, $month, $year, undef, undef, undef, undef )
= localtime;
$year += 1900;    # Per ragioni misteriose il conto degli anni parte da 1900
$month++;            # I programmatori cominciano a contare a pugno chiuso
:))
print "$day/$month/$year\n";
ciao
Stefano

 Usa localtime anziche` gtime.
Oppure, se possibile[1], usa strftime.
use POSIX qw(strftime);
$date = strftime "%d/%m/%y", localtime;
+++
[1] Su un sistema *nix. Mi pare anche su un WinNT.
Bye,
 Emmanuele.
-- 
Emmanuele Bassi (Zefram)           [ 
http://www.radiance.d2g.com/~zefram
 ]
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4
Newsgroup: it.comp.lang.perl
Titolo: Output di sistema

ho uno script con le istruzioni di lettura file:
         open (FILED,"<$filearchivio") || die  &emergenza;
che esegue la procedura emergenza se non riesce ad aprire o trovare il
file.
Il mio problema e' che nell'output dello script compaiono gli
avvertimenti del sistema:
         1 at /usr/people/daniele/public_html/hit/banner.cgi line 177.
Vorrei invece far comparire solo quello che voglio io, cioe' l'output
della procedura emergenza.
Come posso fare?
Ci sono istruzioni per disabilitare i messaggi del sistema?
Preferirei pero' una soluzione "locale".
Grazie e ciao!!!!!
daniele

della procedura emergenza.
Fai cosi':
	open(FILED,"<$filearchivio") || &emergenza;
sub emergenza {
	...
	print STDERR "messaggio di errore";
	exit(-1);
}
L'unico problema che puoi avere e' che non puoi utilizzare SIG{__DIE__} per
intercettare la fine del programma e puoi avere anche con eval().
-- 
Ciao.
-----[ Roberto Lupi ]------------------------------------------------------
	mailto: 
lupex...@ascu.unian.it
  As of 24 Oct 1997, I will be charging for the receipt of unsolicited
  email.  The rate is simple.  Once I receive unsolicited email, you
  have sold your soul to me.  Sending me unsolicited email means that
  you implicitly agree to these terms.  Have a nice day.  =)
---------------------------------------------------------------------------

Newsgroup: it.comp.lang.perl
Titolo: Mysql.sock?!

Ciao a tutti.
Sto tentando di installare mysql sulla RH7 ma continuo ad avere
problemi.
Ho seguito tutte le indicazioni trovate sulla rivista Linux Journal di
questo mese, va tutto bene ma quando lancio il monitor
mysql o ./mysql
mi appare il seguente messaggio di errore:
ERROR 2002: Can't connect to local MYsql server through socket
'/tmp/mysql.sock' (111)
Se cerco il file lo trovo nella cartella /proc/6/fd
Questa cartella e' protetta e inaccessibile anke se entro come root.
Allora seguendo un consiglio su questa mailing list mi hanno detto di
digitare il comando:
ln -s /proc/6/fd/myql.sock   /tmp/mysql.sock
Mi crea un file nella cartella /tmp ma non funziona.
Help me! please
Thanks Corrado

 problemi.
 [...snip...]
Ma hai provato a leggere la documentazione di MySQL? A cercare le paroline
magiche 'mysql.sock' nel manuale?
C'e' tutto quello che avresti voluto sapere su mysql.sock e anche di piu'.
C'e' scritto come definire la socket per il client e per il server.
C'e' scritto come definire la socket all'apertura della connessione DBI, 
informazione c'e' anche nella pagina di manuale di DBD::mysql.
Copiare il file non serve a nulla ( e non si puo' fare) perche' non e' un 
file 'vero'.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)
Newsgroup: it.comp.lang.perl
Titolo: campo nascosto

Ho un database cgi scritto in perl, con il quale aggiungo, rimuovo, modifico
i record. Ogni record è contraddistinto da un numero (univoco) chiamato ID.
Vorrei che, nel form di aggiunta, il campo di questo ID rimanga non
modificabile rimanendo comunque sempre visibile. Il problema è che ho un
form unico per tutte queste operazioni sul db (contenuto in un file .cgi):
se modifico il campo dell' ID (per esempio in "hidden") ovviamente il form
sarà diverso anche per le altre operazioni (di modifica, eliminazione,
ricerca.....etc etc). Come posso fare? Aiuto!
Ciao (e grazie lo stesso) da Miki (
michel...@libero.it
)
-- 
Posted from 
smtp1.libero.it
 [193.70.192.51] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Non ho ben capito il problema,
se ho capito bene Tu vuoi renderlo visibile ma non modificabile.
In questo caso la hidden te lo nasconde e non lo fa più vedere a meno che non
vai a visualizzare
il codice html.
A mio parere se vuoi renderlo visibile basta che fai una semplice print della
variabile senza usare
il form.
Cioè per tutti i campi che devono essere modificati usa la "input form" e quelli
che non vuoi modificare
e rendere soltanto visibili fai una print "$nomevariabile";
Spero di aver ben compreso quello che ti serve ...
ciao e buon lavoro


Caro Gioachino, il mio problema l'hai capito bene. Si tratta di cambiare
qualcosa in questa parte del form:
 <TR><TD ALIGN="Right" VALIGN="TOP" WIDTH="150"><$font>ID:</FONT>
          </TD>
          <TD VALIGN="TOP" WIDTH="475">&nbsp;<INPUT TYPE="TEXT" NAME="ID"
                   VALUE="$rec{'ID'}" SIZE="3" MAXLENGTH="3">
          </TD>
</TR>
Penso che la modifica sia da operare sostituendo la seguente parte di
codice:
<INPUT TYPE="TEXT" NAME="ID" VALUE="$rec{'ID'}" SIZE="3" MAXLENGTH="3">
con una parte di codice che mi mostri un campo dove si visualizza
automaticamente il numero ID (che dev'essere però non modificabile
dall'utente, al momento dell'aggiunta di un nuovo record). Se come dici tu,
devo usare il comando PRINT, qual'è la sintassi esatta? Sei sicuro che
operando questa modifica, quando effettuo una ricerca di un particolare
record contenuto nel db, possa inserire (come parametro della ricerca) il
numero ID del record che cerco? Ti ricordo infatti che utilizzo un unico
form per tutte le operazioni sul db. Trasformando il campo, da TEXT a un
campo non di input, non potrò più introdurre il numero ID in nessun modo,
non potendo più utilizzarlo come parametro di ricerca.
Ciao da Miki (
michel...@libero.it
)


Ciao
Dovresti usare questa sintassi :
print " <$font>ID:</font> $rec{'ID'} ";
E così avresti risolto il problema di modifica dato.
MA se come dici tu usi un modulo x fare sia input che output allora
dovresti modificare qualcosa mediante degli if o x semplicità ti consiglio di
usare 2 form ... di più "n'in so :-)"
Spero di esserti stato utile

Newsgroup: it.comp.lang.perl
Titolo: Calcolare i Bytes letti da un file

Sono nuovo del NewsGroups. Ho cercato senza risultati perciň mi affido a
voi.
Come da oggetto come posso calcolare i bytes letti da un file?
SO come ottenere la size di un file ma non come ottenere i byte letti riga
per riga.
Ringrazio tutti per la collaborazione.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 per riga.
Forse ti puo` andar bene tell: perldoc -f tell
ciao
Stefano

Newsgroup: it.comp.lang.perl
Titolo: s/////////////////////////

Richiestina:
mettiamo che invio a uno script perl un'istruzione di questo tipo:
http://www.sito.com/cgi-bin/pl.pl?textfield=riga1%0D%0Ariga2%0D%0A&searchstr
ing=**ADD+RECORD**
dopo la funzione parse, il campo textfield contiene:
riga1
riga2
ora... come posso sostuire gli accapo con le tag <br> ?
GRAZIE

Hai provato con 
$riga=~s/\n/<br>/; ?
-- 
Posted from 
smtp1.libero.it
 [193.70.192.51] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

ora... come posso sostuire gli accapo con le tag <br> ?
Beh, questa e` abbastanza semplice. ;-)
$a =~ s/\n/\<br\>/g;
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> FAQ di it.comp.lang.perl: 
http://www.borders.it/perl/faq/
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

>$riga=~s/\n/<br>/;
 In questo modo sostituisci solo l'ultimo (metti che nella stringa ce ne sia
piu' di uno )!
$riga=~s/\n/<br>/g;
Alex
"Mecarelli Giorgio" ha scritto nel messaggio
<001b01c07be7$4e7f47c0$0501a8c0@dvd>...

Newsgroup: it.comp.lang.perl
Titolo: come testare gli script??

Salve a tutti
sto cercando di imparare il Perl ma sono completamente inesperto e non so
come testare gli script.
Ho installato l'ActivePerl build 517 per sistemi windows (io ho Win 98)e sto
facendo questo semplice esperimento
Documento HTML:
<form method="get" action="c:/perl/bin/
script.pl
">
<input type="text" name="T1" size="20"></p>
<input type="submit" value="Invia" name="B1">
<input type="reset" value="Reimposta" name="B2"></p>
</form>
SCIPT.PL
#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print "<html><h1>Hello!</h1></html>\n";
$variabile = $form{"T1"};
print "<h1> Hai scritto $variabile\n";
print "</head><body></body></html>\n";
Ma quando lo provo, una volta cliccato su INVIA il browser mi chiede se
voglio scaricare il file 
SCRIPT.PL
Utilizzo inoltre il DZSoft Perl Editor ma da quel poco che ho capito posso
solo fare il debug dello script e non testarlo come voglio io.
Scusate per la domanda probabilmete banale ma vi sarei molto grato se
qualcuno potesse chiarirmi le idee.
    ciao
        Roberto

 wrote in message
Cp1G4.65011$pn3.7...@news.infostrada.it...

Ciao!
Con l'ActivePerl (che č un interprete Perl) puoi eseguire file PERL dal
linea di comando con "perl 
nomefile.pl
". Per poter eseguire CGI (script PERL
richiamati da browser internet), devi installare un server web sul tuo
computer ... es. Apache.
Altrimenti ne il browser ne ActivePerl si preoccuperanno di interpretare il
tuo script Perl, e l'unica soluzione rimane il download .... che non č certo
ciň che vuoi!
Ti consiglio di installare un WebServer sul tuo PC, ce ne sono molti free
anche per win 9x. Trovi delle informazioni in italiano su come installare
Apache e ActivePerl qui:
http://myweb.3q.to/docs/cgi_win9x.html
Spero che possano esserti d'aiuto.
Ciao a tutti, blavoro ....
Ezio BOnsi
PS: cmq penso che lo script sia sbagliato .... %form quando l'hai caricato
con i valori in arrivo dal form?
Newsgroup: it.comp.lang.perl
Titolo: Grafici con Perl

Qualcuno sa se e come è possibile creare grafici con Perl prelevando dati da
un database Access o SQL??

certamente;
la cosa più semplice che mi viene in mente è fare un CGI che (tramite DBI)
preleva i dati dal DB e sputa fuori un file gif;
a questo punto basta mettere come rsc dell'immagine il suddetto script e siamo
a posto...
o almeno spero...
ciao
G


> un database Access o SQL??
Prova a guardare su CPAN, dove ci sono dei moduli tipo Chart::
Naturalmente devi anche avere i dati, ma con DBI non dovrebbe essere un
problema.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

chiedo scusa... con il mio lavoro il perl è univocamente legato ai CGI, e poi ero
convinto di  rispondere a it.comp.www.cgi.....
consiglio comunque al buon maurizio una bella camomilla, 'che questa non è la
maniera di rispondere ad una persona che cerca di aiutare chi così gentilmente ne
ha fatto richiesta.
G.


Grazie a tutti, ma cosa č DBI???
Sapreste indicarmi un bel programmino in Perl a cui do dentro il database e
la query e lui mi sputa fuori un grafico???
Io non conosco molto il Perl per cui....
Fino ad ora ho fatto tutto VBScript e Out Of Process Component facendo query
in VBScript, chiamando poi Excell e quindi facendogli creare un grafico che
poi esporto in GIF.
Il tutto funziona molto bene :-)), che per una cosa di Microsoft č tutto
dire, ma vorrei vedere se utilizzando il Perl l'operazione si velocizza.

Newsgroup: it.comp.lang.perl
Titolo: Download di files

Ho incollato da un vecchio messaggio di Alex il seguente pezzo di codice:
#!/usr/bin/perl
print "Content-type: application/msword\n\n";
binmode STDOUT;
open(FILE_DOC,"./man.doc");
print while(<FILE_DOC>);
close(FILE_DOC);
Fa' proprio al caso mio, ma adesso ho due problemi:
1) Come faccio per il nome del file?
Mi spiego, io lo chiamo tramite
http://www.host.dom/cgi-bin/get.cgi?nomefile.est
uso QUERY_STRING per vedere il nome del file, lo apro e vado avanti, il
problema e' che quando mi appare la finestra salva/esegui il file si chiama
sempre get.cgi
come faccio a dargli il nome corretto?
2) esiste un mime generico in modo di non dover specificare di volta in
volta il Mime-type?
Mille grazie a chi vorra' rispondere

 volta il Mime-type?
sě e no ...
per i file da scaricare basta un
print "Content-type: application/binary\n\n";
o qualcosa del genere, perň non va bene per il testo e l'html

sempre get.cgi
Oltre al metodo descritto da Andrea, ce n'e` un altro che funziona con
tutti i browser recenti (MSIE 4.0+ e tutte le versioni di Netscape
credo), che consiste nell'utilizzare l'header content-disposition. Ad
es.:
print "Content-disposition: attachment; filename=\"nomefile.ext\";\n";
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!
Newsgroup: it.comp.lang.perl
Titolo: win32::gui messaggio di attesa

Buongiorno. Non riesco a trovare una soluzione per mandare un
messaggio di "Attendi" fra la fine di un $W->Dialog()  ed un altro.
Esempio:
  while ($Trasferimento eq 0)
  {
    $exitcd = $wftp->Dialog();
MESSAGGIO "Attendi"
............... Codice per ricreare i dati della finestra $wftp
  }
Grazie.


direi che la cosa più sensata è usare $wftp->DoEvents() nel loop al
posto di $wftp->Dialog().
cheers,
Aldo

Newsgroup: it.comp.lang.perl
Titolo: Posso inviare comandi al prompt del dos?

Salve a tutti,
come da oggetto mi chiedevo se posso avviare un .exe da uno script perl e se
si come. In realta non ho trovato in "Perl. Guida di Riferimento" nulla a
proposito, ma ho qualche dubbio...
Un grazie a chi avra' voglia e tempo per rispondermi.
Grazie.

 di Riferimento" nulla a proposito, ma ho qualche dubbio...
	$ perldoc -f system
	Alla prossima,
		Marco

...

Sono un principiante!
Potresti spiegarmi cosa significa la tua stringa?
Ho capito che fai riferimento alla guida, ma... ?????
grazie, ciao!

 Potresti spiegarmi cosa significa la tua stringa?
  Dal menu "Avvio", vai su "Programmi" e fai partire la shell del DOS.
Da li`, se il Perl e` istallato e configurato correttamente, potrai
utilizzare la sua guida testuale /perldoc/.
  Per sapere come funziona, ovviamente:
	$ perldoc perldoc
	Alla prossima,
		Marco

 proposito, ma ho qualche dubbio...
perldoc -f system
perldoc -f exec 
(occhio che sembrano uguali ma non lo sono!). Puoi provare anche con
`comando` (sono apici inversi, non postrofi) ma non ti assicuro che su
win funzioni.
Ciao
M.
-- 
:wq
Newsgroup: it.comp.lang.perl
Titolo: Cellulari a prezzi d'ingrosso su http://www.villaggio-globale.it

Cellulari a prezzi d'ingrosso su 
http://www.villaggio-globale.it



Newsgroup: it.comp.lang.perl
Titolo: localtime(time)

restituisce i mesi da 0 a 11, giusto? se non ricordo male è così, ma non
riesco a trovare la documentazione della funzione

riesco a trovare la documentazione della funzione
perldoc -f localtime
-- 
It must be in the basement; I'll go upstairs and get it. M.C.Escher
Maurizio - Tannoiser - Lemmo
Founder Member of ERLUG (Emilia Romagna Linux User Group)
http://erlug.linux.it


Grazie !!
ricordavo bene

Newsgroup: it.comp.lang.perl
Titolo: FTP cambiare directory locale in perl

Dovrei trasferire diversi file dal mio pc ad un server. Nello script
dovrei dire a perl dove si trovano i files sul mio pc e dirgli dove
metterli.
Sul dove metterli so come fare, ma non so come dirgli vai nella mia
directory e trasferisci quel file, vai nella mia seconda directory e
trasferisci il secondo file ecc....
Come posso farlo ???

 Come posso farlo ???
Riporto da perldoc Net::FTP
put ( LOCAL_FILE [, REMOTE_FILE ] )
Put a file on the remote server. LOCAL_FILE may be a name or a
filehandle. If LOCAL_FILE is a filehandle then REMOTE_FILE must be
specified. If REMOTE_FILE is not specified then the file will be stored
in the current directory with the same leafname as LOCAL_FILE. Returns
REMOTE_FILE, or the generated remote filename if REMOTE_FILE is not
given.
Quindi, basta che passi di volta in volta la path dei file (o un
filehandle) che devi mandare al server FTP e il gioco è fatto.
Spero che sia questo il problema.
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

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

Qualcuno mi sa indicare un sito (oltre Bravenet) che offra dei servizi che
di solito si gestiscono con i CGI (search engine, guestbook), magari senza
banner??
E poi vorrei sapere se siete a conoscenza di server gratuiti che mettano a
disposizione la directory cgi-bin per usare i propri script.
Grazie,
Sergio

Saremmo OT...
Servizi gratuiti senza banner è impossibile!...
Altrimenti tanto varrebbe che venissero a installarti gratuitamente un
server a domicilio, con tecnico a disposizione 24h/7 ;o))
Comunque l'italianissimo 
http://italia.hyperbanner.net
 dovrebbe andarti
bene, no?
Quanto ai server gratuiti, mi dicono che 
www.virtualave.net
 lo permette.
Ciao,
Umberto Meroni
[
http://www.ubi1k.com
] [
http://www.ubi1k-vb.net
]
[Come contattarmi: 
http://www.ubi1k.com/meroni
]
---
In a world without fences, who needs gates?
---

Newsgroup: it.comp.lang.perl
Titolo: Formmail con attach

CIAO!
Sto cercando uno script in Perl per fare un formmail (che richieda i dati
classici) che permetta di fare l'attach di files...
Conoscete qualcosa di gratuito? Grazie
BYE
Zizzo



Io ho usato MIME::Lite e devo dire che funziona alla grande. Ho imprecato
un po' per capire alcune cose, ma se ti applichi ci levi le gambe
abbastanza tranquillamente. :))
Ciao
				Nicola

io ho usato mail::sender che è una figata paurosa.
Max

Dove lo posso trovare? E' facile da usare?
BYE
Zizzo