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

Chi sà dirmi come fare a controllare in un file quali sono
le righe vuote e poi eliminarle?
Grazie a chi mi aiuta.

 le righe vuote e poi eliminarle?
 Vuote?
 
   perl -ni.bak -e 'print unless /^$/;'
potrebbe fare al caso tuo.
   perl -ni.bak -e 'print unless /^\s*$/;'
se per caso vuoi eliminare anche le righe di soli spazi.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

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

Salve,
sto sviluppando un'applicazione CGI in Perl che consente di proteggere
l'accesso alle directory di un server tramite interfaccia web.
Il problema è questo:
La password criptata con la funzione 'crypt' e scritta nel file .htpasswd
della directory non viene riconosciuta in fase di autenticazione da parte
del server.
Ho scoperto infatti che la stessa password, codificata dalla funzione
'crypt' e codificata dal programma htpasswd del server vengono criptate in
maniera diversa.
Ho qualche strumento per fare in modo che la funzione 'crypt' codifichi la
password esattamente come fa 'htpasswd'?
Grazie in anticipo,
Daniele

 password esattamente come fa 'htpasswd'?
Devi usare lo stesso 'salt', ovvero le prime due lettere della password gia'
criptata.
Quindi, se hai la password in chiaro:
  1) prendi le prime due lettere della password criptata
  2) cripti la password in chiaro usando queste due lettere come 'salt'
  3) confronti il risultato con la password criptata completa.
 
L'esempio della funzione crypt() (in perlfunc) fa esattamente questo. Usa la
password completa come 'salt', ma in effetti solo i primi due caratteri sono 
trattati come salt.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 criptata.....
Grazie mille, non sapevo che venivano usate solo le prime 2 lettere come
salt. 
Comunque il problema non č risolto visto che non funziona neanche ora, ma a
questo punto penso sia un problema di configurazione del web server, anche
se mi sembra tutto a posto. Infatti in access.conf ho impostato la root
delle cartelle web cosě:
<Directory /home/sites/>
Options All
AllowOverride All 
order allow,deny
allow from all
AuthFailDelay 2000000
</Directory>
ma non c'č verso che funzioni, comunque l'argomento non č molto inerente al
tema di questo news...
Grazie comunque.
Daniele


okkio che puň darsi che hai abilitato le password MD5.
Prova a fare cosě
htpasswd -mc /dove/metti/il/file/delle/password/file utente
cosě dovrebbe andare
Perň credo che nel <Directory> dell access.config vada usato
AllowOverride AuthConfig
altrimenti non funzia !
-- 
-------------------------------------------------------------------------
Hosting professionale a prezzi USA? 
http://www.servitelit.com/prezzi.htm
-------------------------------------------------------------------------

 cosě dovrebbe andare
Questo appunto abilita le password MD5. Normalmente, se vuoi usare crypt,
devi usare le password tradizionali, ovvero non mettere -m (solo -c se si
deve creare il file)
Ma a questo punto non e' piu' un problema Perl.
Maurizio

Newsgroup: it.comp.lang.perl
Titolo: Ancora array

Per es.
#!/usr/bin/perl
@a=('casa', 'scuola');
print "@a[0]\n";
print "@a[1]\n";
Come faccio a stampare a video le lettere (as) dell'array @a[0] ????
Vorrei prelevare le singole lettere, mi serve per lavoro, chiaramente lo
script è molto più complesso.
Grazie

script è molto più complesso.
Che cosa vuoi fare esattamente: estrarre una sottostringa (funzione substr)
o esplodere tutti i caratteri della stringa?
Nel primo caso:
   print substr($a[0], 1, 2);
Guarda anche la funzione unpack.
Nel secondo:
   @caratteri = split(//, $a[0]);
Sono tutte cose comunque iperdocumentate, se non faq. Un'occhiata alla
documentazione (in particolare, a perlfunc) può risolvere questo genere di
problemi molto più rapidamente che una domanda sul newsgroup.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: usare i moduli senza metterli nella dir lib

come si fa a usare un modulo senza installarlo nella directory lib ?
ciao e grazie :o)

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

si.. ai ragione :o)
il titolo del post mi aveva ingannato,,
ciao e grazie :o)

Newsgroup: it.comp.lang.perl
Titolo: exec ?!?!? Chi e' costui?

Ciao,
dalla guida di riferimento Perl non ho cpito un fico secco!
Qualcuno puo' aiutarmi a capire cosa ci faccio con simile comando?
grazie
------
Michele

 Qualcuno puo' aiutarmi a capire cosa ci faccio con simile comando?
Esegue un comando di sistema ed esce dallo script.
Se ad esempio hai:
#!perl
exec("dir");
print "Ciao\n";
sleep(2);
print "Riciao\n";
Lo script eseguirą solo il comando "dir", uscendo senza eseguire i print
e lo sleep.
Ciao
M.
-- 
:wq

Newsgroup: it.comp.lang.perl
Titolo: File di log e format

Ciao a tutti.
Esiste il modo di creare (usando i format) un file di log di operazioni
(quindi scritto in sequenze successive) in modo che abbia una testata?
Se faccio un write(FORMATO) avendo definito un FORMATO_TOP ovviamente mi
scrive la testata ogni volta che appendo qualcosa al file; finirą che la
scriverņ a mano senza usare FORMATO_TOP, ma mi chiedevo se esisteva una
soluzione piu' elegante.
-- 
Ciao
Nico

 wrote:


L'unica cosa che mi viene in mente e' che il FORMATO_TOP venga usato se e solo
se il file aperto era vuoto, ovvero se stai scrivendo in un nuovo file.
In tutte le altre occasioni, presupponi di stare appendendo e quindi usi
solo FORMATO.
Se il log e' lungo, ti serve ancora la testata?
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 
Avrei una mezza voglia di implementare la rotazione dei log; se sono
ispirato ci provo.
Grazie della risposta.
-- 
Ciao
Nico
Newsgroup: it.comp.lang.perl
Titolo: Moduli NET:: IO::Socket ecc

Ciao ragazzi!
Ho sentito spesso parlare dei moduli NET:: e IO::Socket ( e se non
ricordo male anche
di NET::Raw ! ) ..in particolare sono rimasto impressionato dalla
sinteticita delle
istruzioni necessarie per un collegamento tcp/ip tramite l'uso di questi
moduli!
Ho visto anche un programmino malizioso ,ma molto interessante che
utilizzava i 
rawsocket con una facilita' sorprendente! Questo fatto mi ha molto
colpito anche perche
so per certo che fare la stessa cosa in C costerebbe tantissime
istruzioni e complicazioni!
E' incredibile che in perl si possano mandare dei pacchetti con
l'indirizzo mittente dato
a piacere con una immediatezza disarmante ( credo sia tramite NET::Raw
se non sbaglio! ). 
Io non sono un bravo conoscitore di questi moduli ( come avrete
sicuramente notato ) e 
gradirei qualche info a riguardo  o magari qualche tutorial o manuale
dedicato 
( ovviamente in italiano altrimenti sarei gia' stato su
http://www.perldoc.com
 o simili! ).
Grazie per l'attenzione!
                                      Majin

Forse saro' un po troppo rompi pxllx a chiedere sempre info solo e
soltanto in italiano,ma
e' molto triste sapere che per un italiano la carriera  da informatico
puo' iniziare solo
dopo svariati anni di corsi di lingua inglese ( quindi almeno dopo i
primi 
anni di superiori! ) e sara' sempre carica di difficolta a capire testi
di perse'
gia' complessi e difficilissimi ma per di piu anche in un altra lingua!
Un qualsiasi bambino americano puo' leggere i tutorial inglesi (che io
fatico tanto a
capire) gia' all'eta di 6 7 anni ( ossia quando inzia a leggere e
scrivere bene! ) e 
logico poi che quando arrivano a 14 anni sono gia' degli hackers
affermati e con un mondo 
di conoscenze in tasca!!
Un italiano a quelle eta non sa quasi assolutamente niente di inglese
perche
al massimo l'avra' studiato a scuola per pochi anni!
Sono dopo l'universita' ,dopo vacanze passate all'estero e dopo svariati
corsi di lingua costossissimi un povero italiano inizia a leggere
l'inglese quasi con la stessa naturalezza
di un ragazzino inglese di 15 anni ( magari anche di quelli teppistelli
e ignoranti! ).
Tutto cio' e' troppo triste!:°-(
Io vorrei che tutti venissero messi alla stessa situazione di partenza (
pari condizioni!)!
Per fare questo c'e' bisogno di lavoro e accanimento, non bisogna
accettare di 
accontentarci delle versioni inglesi dei manuali ma esigere il piu
possibile quelle italiane di modo da stimolare gli editori a produrle e
i traduttori a lavorare con piu entusiasmo!
Scusate per il brutto OT!
Grazie per l'attenzione!
                                       Majin

Newsgroup: it.comp.lang.perl
Titolo: Eclipse, epic e PadWalker

Ciao a tutti. Mi piacerebbe utilizzare Epic in Eclipse ma non riesco a
fargli "vedere" PadWalker. Non ho trovato grandi note d'installazione
di PadWalker e sto usando Eclipse 3.2 + epic <ultima stable> +
PadWalker 1.2 + ActivePerl su MacOSX 10.4. Il problema e' che sembra
non vedere i moduli PW (nel senso che il debugger non li carica) anche
se ho aggiunto la /lib sotto ActivePerl ad @INC.
Altra cosa strana: se in un source Perl metto uno stop mi dice qualcosa
del genere "Invalid line number".
Grazie per ogni suggerimento, ciao.
--
genge'

Non sono molto ferrato su Mac Os X. Per installare PadWalker in Windows 
XP ho utilizzato il tool ppm di Active State. Se esiste anche per Mac Os
dovrebbe preoccuparsi lui del tutto (o forse sono stato semplicemente 
fortunato ;-))
Simone
Vitangelo ha scritto:


 se ho aggiunto la /lib sotto ActivePerl ad @INC.
Probabilmente il problema č dovuto al fatto che Eclipse non sta 
adoperando il perl di ActivePerl installato da te (e quindi neanche le 
sue librerie), in quanto di default adopera il perl fornito in bundle 
con Tiger.
Per controllarlo, in Eclipse vai sul menu:
Window/Preferences.../Perl EPIC
e controlla qual č il valore assegnato a "Perl executable": se č 
"/usr/bin/perl" allora ovviamente si tratta del perl "di sistema" 
preinstallato in Tiger. A quel punto cambia il valore in
/path/to/activeperl/perl
e dovrebbe (dico "dovrebbe") andare tutto a posto.
Ciao,
Emanuele.
-- 
What does VISTA mean?
Viruses, Infections, Spyware, Trojan horses & Adware.
Newsgroup: it.comp.lang.perl
Titolo: ma porc...!

Ciao a tutto il NG.
Mi sono perso un attimino, spero che possiate aiutarmi.
In pratica non riesco più ad aprire un 
file.pl
 con notepad mi spiego.
Prima di fare la caxxata avevo impostato il file con estensione .pl in modo
che se gli cliccassi sopra, si apriva il file con notepad, dandomi la
possibilità di lavorarci su.
Adesso invece se faccio doppio clic sul 
file.pl
, mi parte lo script, e per
poterlo modificare sono costretto ad aprire notepad, cercafile e quindi
trovare il 
file.pl
 per poterlo aprire.
Ricordo, non so per quale motivo di essere andato in
visualizza-opzionicartella-tipidifile e di aver cancellato il file di tipo
perl.
Il fatto è che se cerco di creare una nuova associazione file/editor, sempre
da visualizza-opzionicartella-tipidifile, mi dice che l'estensione .pl è già
associata al file perl.
Ma come mai in tipi di file il file perl non esiste?.
Boh?
E come mai non posso creare un tipo di file perl, perchè secondo il sistema
il file con estensione perl esiste già, ma in tipi di file non lo vedo?
Oddio, spero di essere stato chiaro, forse è una cosa da niente, ma mi sono
proprio perso.
Grazie dell' aiuto.

 In pratica non riesco più ad aprire un 
file.pl
 con notepad
Click con tasto destro del mouse e shift premuto: scegli "Apri con...". 
E la tua domanda sul Perl e`?...
-- 
Baci,
Mony

 wrote in message
a5vebh$eoh$1...@newsreader.mailgate.org...

Si...scusa, più che altro sembrava una domanda tecnica di windows, ne ho
approfittato un attimino.
Chiedo scusa a tutti.
Grazie e baci anche a te!

 Chiedo scusa a tutti.
&forgive('msx');
---
Mario Rizzuti
Newsgroup: it.comp.lang.perl
Titolo: sort di chiavi di un hash

code:
------------------------------------------------------------------------
#!/perl
my %hash = ();
for(0..10) {
   $hash{$_} = rand(1000);
}
foreach my $k ( sort {$hash{$a} <=> $hash{$b}} keys %hash )
{
print "$k $hash{$k}\n";
}
------------------------------------------------------------------------
questo codice mi ordina le chiavi in base ai valori associati ad esse .. 
io vorrei ordinare le chiavi in base alle chiavi: quindi $hash{0} , 
$hash{1} , $hash{2} etc... 
grazie

 $hash{1} , $hash{2} etc... 
Allora basta scrivere
  foreach my $k ( sort keys %hash ) { ... }
[ Il fatto che le chiavi siano numeri e` puramente a titolo
di esempio, vero? ]
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

 di esempio, vero? ]
no, infatti:
foreach my $k ( sort { $a <=> $b } keys %dati ) { ... }
grazie lo stesso.

 foreach my $k ( sort { $a <=> $b } keys %dati ) { ... }
Oops. Vero. sort() usando il criterio lessicografico se
non viene specificata una sub o un blocco. 
Sorry, mi confondo sempre.


 usi una hash anziche` un'array ? Hai dati sparsi ?
Beh, non sei il primo che me lo chiede.
Ho un hash di tipo: $hash{1}[0], $hash{1}[1], $hash{1}[2] .. etc .. 
insomma non sapevo cosa mettere come chiave.
Ciao

 insomma non sapevo cosa mettere come chiave.
Questo e` un buon indizio che dovrebbe portare a pensare che
una hash non serve. Oltretutto dovresti guadagnarne in 
prestazioni, passando ad un "semplice" array. 


Newsgroup: it.comp.lang.perl
Titolo: problemi STDIN

Ciao a tutti,
ho un piccolo problema da neofito.
Sto scrivendo un programmino che accetta in input solo dei valori ben
prestabiliti e dichiarati in un array.
La lunghezza dell'array può essere variabile e non deve essere
definita a priori.
Ora, se quello che viene immesso via STDIN non è presente nell'array,
il programma torna nuovamente alla richiesta di un'ennesimo valore,
tuttavia devo evitare che lo STDIN possa essere un ENTER dato magari
per sbaglio che per assurdo è accettato dai controlli che faccio.
Vi riporto la parte di controllo.
@vers = qw (1 2 3 4 5 6 7 ESC);
print "\nDefinire il tipo di operazione da svolgere[]:";
	chomp ($versus = <STDIN>);
	$i = 0;
	$correct = "no";
	while ($correct eq "no") {
		if ($vers[$i] eq $versus) {
			$correct = "yes";
			if ($versus eq $vers[$#vers]) {
				die "\n\nUSCITA IMMEDIATA.\n\n";
			}
			} elsif ($i < $#vers+1) {
				$i = $i + 1;
			} else {
				print "\nATTENZIONE! Scelta errata.";
				print "\nReinserire valore[]:";
				chomp ($versus = <STDIN>);
				$i = 0;
			}
	}
Dando, come detto un ENTER a vuoto, nella prima if $versus è uguale a
$vers[$i], lo script imposta la variabile $correct a "yes" ed esce dal
ciclo di while.
Come posso evitare che questo accada?
Grazie in anticipo
HellviSPQR

 Come posso evitare che questo accada?
if (($versus ne '') and ($vers[$i] eq $versus)) {
ovvero verifichi che $versus sia diverso dal valore vuoto che tu gli
passi dando invio e basta.

Grazie Andrea,
ottimo aiuto!!!
Andrea Maestrutti ha scritto:

Newsgroup: it.comp.lang.perl
Titolo: Perl per IIS 3.0

 Salve a tutti,
sto cercando informazioni riguardo l'esistenza o meno del linguaggio Perl da
poter fare girare su un Windows Nt Server con IIS 3.0
Chiunque mi possa aiutare mi risponda pure su News group o preferiblmente
tramite e-mail
Grazie
Fabrizio

 poter fare girare su un Windows Nt Server con IIS 3.0
L'interprete Perl e' disponibile praticamente su tutte le piattaforme
esistenti, tra le quali Windows NT/95.
Ti consiglio una visita alla "sede" ufficiale:
http://www.perl.com
-am

no...)
Veramente c'č una versione specifica per 	IIS chiamata PerlIS.
E' una DLL che usa l'ISAPI, quindi quando viene eseguito lo script non
viene lanciato un nuovo processo.
E' piů veloce ma occorre fare qualche modifica (all'intestazione) e
non č compatibile con tutti gli script.
Piů informazioni le trovate qui:
www.activeware.com

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

Salve,
qualcuno di voi ha notizie di moduli perl per convertire file MSword in
html?
Grazie in anticipo
Marco
--
Marco Graux
m.g...@FfLlAaSsHhNnEeTt.it
Attenzione togliere le MaIuScOlE dall'indirizzo per le risposte

 MSword in html?
  Magari... Pero` in commercio esistono svariati tool di conversione da
DOC ad HTML.
	Alla prossima,
		Marco

DOC ad HTML.
Avevo visto da qualche parte un programmino gratuito che converte i
.doc di Word97 in HTML, ma non l'ho mai provato.
Alternativamente c'e` rtf2html, che converte i file RTF (che si possono
creare sempre con Word) in HTML: il risultato non e` spettacolare, ma
comunque soddisfacente. Si tratta di un programma commerciale, che
pero` ha un costo contenuto.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/

 Grazie in anticipo
Ti posso dare solo delle indicazioni: Tutti gli applicativi MS sono visibili
dall' esterno come oggetti COM e ActivePerl e' in grado di gestire tali
oggetti. Guarda nelle pagine di help a:
C:/Perl/html/Perl-Win32/perlwin32faq12.html#print_word
Poi dovresti sfruttare la possibilita' di Word di salvare i doc direttamente
in formato HTML. Good Luck!
--
    Fabrizio Carrai
e-mail: 
f.carra...@libero.it

Newsgroup: it.comp.lang.perl
Titolo: CRON senza CRON !!!

Come implementereste la CRON in sistemi sprovvisti di questo Demone ?
E' possibile mandare in loop un CGI in modo che a determinate scadenze
temporali svolga dei compiti ???
Massimo

man 2 select

Newsgroup: it.comp.lang.perl
Titolo: inserimento mssql

Salve devo fare una semplice mascherina via web che inserisca dei dati
in un db di MS SQL Server...
Purtroppo il CGI non da alcun errore fornendo l'output che c'e' nel
print ma non mi inserisce i dati...
Qualche idea del motivo? E' una giornata che ci sto sbattendo la testa
ma non capisco...
<CODE>
use CGI qw/:standard/;
use DBI;
use DBD::ODBC;
..
print 	$q-> varie_caselle_di_testo...
..
if (param()) {
 
	print 
	      "<br>Hai inserito<br>",
		"NumPrt ",em(param('numprt')),
		hr;
	$dbh = DBI->connect('dbi:ODBC:fax',$user, $passwd) or die "Non riesco a
connettermi!!\n";
 
	$in=$dbh->prepare("INSERT INTO $tabella VALUES (?, ?, ?, ?, ?, ?, ?, ?,
?)");
	$in->execute(param('numprt'), param('datain'), param('orain'),
param('dataon'), param('oraon'), param('dataoff'), param('oraoff'),
param('esito'), param('note'));
}
-- 
Per risposte private: 
vitto....@SPAMMAREtiscali.it
sito: 
http://nathanvi.it
FAQ OpenOffice: 
http://openoffice.nathanvi.it
Centro Studi Raffaello:
http://centrostudiraffaello.it/sito/
Inviato da 
www.mynewsgate.net

 param('esito'), param('note'));
Prova ad aggiungere un " || die $DBI::errstr;" in fondo alla riga con 
execute per vedere se trovi qualche indizio in più.

 execute per vedere se trovi qualche indizio in più.
Ci ho provato ma purtroppo non succede nulla di differente.
Non da errori...
Ed e' questa la cosa maggiormente strana. Nessun errore.
Eppure non mi sembra che ci sia nulla di strano...
Qualche altra idea? 


 Qualche altra idea?
Ne provo una stupida (ma non si sa mai, con Oracle mi dimentico spesso, non 
ricordo se serve anche a SQLServer): "Manca il COMMIT?"

 ricordo se serve anche a SQLServer): "Manca il COMMIT?"
Francemente non lo so. Sto usando da pochissimo, mio malgrado, questo server
SQL. Ho chiesto al nostro amministratore e mi ha detto che non ve ne è
necessità. Lui, utilizzando VisualBasic da un "go" dopo la stringa di insert.
Forse è proprio il commit...
Mi sapresti dire come si fa?
Devo scrivere:
$in->commit()?
o $dbh->commit()?
Grazie per l'aiuto... 


 o $dbh->commit()?
Buona la seconda:
$dbh->commit();

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

Salve,
ho installato il perl sul mio pc....
purtroppo non so usarlo ma voglio imparare.....
vorrei sapere se ci vuole il C++ per usare il perl.....
o qual'è il file che mi permette di avviare l'editor dei programmi.
Grazie.

o qual'è il file che mi permette di avviare l'editor dei programmi.
Non c'e` un editor nella distribuzione standard. Puoi scrivere i tuoi
programmi con il Blocco Note o qualsiasi altro editor di testo ASCII.
	A presto, Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!
Newsgroup: it.comp.lang.perl
Titolo: data in perl

Ciao a tutti.
Qualcuno gentilmente mi sà dire come stampo la data con uno script in perl
in questo formato:
Anno Mese Giorno
io uso:
$hfn=sprintf "%02d%02d%02d",$year,$mon+1,$mday;
ma mi stampa
1020209
cioè.. il 2002 diventa 102 :((
Grazie

 cioč.. il 2002 diventa 102 :((
infatti per descrivere l'anno viene usato il numero di anni dopo il 1900
dunque usa un $year+1900

Newsgroup: it.comp.lang.perl
Titolo: Problema stupido.....

Devo scrivere una print siffatta:
print "<a href="qualcosa">casavola</a> " come la rimedio con le
virgolette???
nel senso come faccio a fargli capire che le virgolette dopo l'uguale si
riferiscono all'href e non alla print? con gli apici??
Ciao
Nicola

Nicola,

  Potresti, per esempio, leggere un buon libro sul Perl, nel quale ti
verrebbe spiegato che
	1. Se non devi interpolare le variabili all'interno 
	   delle virgolette, allora puoi tranquillamente usare gli 
	   apici singoli invece di quelli doppi
		'<a href="
http://www.pippo.com
">Pippo</a>'
 	2. Se devi interpolare all'interno delle virgolette E 
	   devi scrivere anche le virgolette, allora puoi usare 
	   la sintassi
		qq/<a href="$url">Pippo</a>/
	3. Se proprio non puoi fare a meno di usare le virgolette, 
	   puoi usare una sequenza di escape per mantenerle 
	   inalterate:
		"<a href=\"
http://www.pippo.com
\">Pippo</a>"
	Alla prossima,
		Marco

la scrivi cosě:
print "<a href=\"qualcosa\">casavola</a> "
-- 
-------------------------------------------------------------------------
Hosting professionale a prezzi USA? 
http://www.servitelit.com/prezzi.htm
-------------------------------------------------------------------------

                 "<a href=\"
http://www.pippo.com
\">Pippo</a>"
Ciao
--
------------------------------------------
Roberto Congiu
        Alchemy Communications
                LA California USA

Newsgroup: it.comp.lang.perl
Titolo: (select e read) da perl a c

Forse non e' il ng adatto, però io provo lo stesso.
Ho scritto un piccolo server in multiplexing usando l'istruzione
select su un set di socket mentre scrivo e leggo sugli stream usando
come carattere terminatore "\0" (uso flash come FrontEnd e vuole
così).
Ora vorrei portare il mio script in C/C++ per aumentarne le
prestazioni. Il problema è come implementare una select ed una
gestione degli stream analoga al perl.
1) La cosa bella della select perl è che ti restituisce il set di
socket con dati da leggere. Quella C invece sblocca quando una socket
è pronta senza dire quale. La mia idea era di ciclare dopo la prima
select una per ogni socket ma con timeout nullo per vedere quali sono
pronte per la lettura. E' un implementazione sensata o c'e' un modo
migliore?
2) Per gli stream il problema è maggiore. Dovrei saper prima di
leggere quanti byte sono pronti per non bloccarmi in lettura. So che
si può fare qualcosa con la ioctl() ma il nome del comando cambia
secondo il SO. Il mio è linux RH 6.2.
Qualcuno può aiutarmi

Mi scuso con tutti per il post precedente.
Ho trovato le mie risposte rileggendo con maggiore attenzione
man ioctl
man ioctl_list
Me lo dico da solo: RTFM ^__^.
Newsgroup: it.comp.lang.perl
Titolo: [?] variabili e url

Ciao a tutti,
    E' possibile rendere obbligatoria la dichiarazione delle variabili
(qualcosa di simile all'Option Explicit di Visual basic, per intenderci)?
    E' possibile (e se sě come :) ) aprire una pagina web da un cgi in Perl?
    E come fare ad aprirla nella pagina corrente o in una nuova vinestra?
Grazie ancora, ciao

 
-- 
"Time flies like an arrow; fruit flies like a banana."

     E come fare ad aprirla nella pagina corrente o in una nuova vinestra?
scusa, non lo puoi fare indicando l'attributo target nel form?
--
demis magoga
Webmaster and Web Developer
*> project realizer <*
http://www.e-tree.com
____________________
E-TREE S.r.l.
Via Fonderia 93
31100 Treviso
pho  
+39.0422.3107
fax  
+39.0422.310888
____________________

 demis magoga
L'attributo target forse risolve in parte il problema ovvero per quando
Zanna chiede di aprire la pagina in quella corrente ma non capisco bene
la soluzione alla prima parte del problema: visualizzare una pagina web
da cgi.
Ho un problema analogo. Il mio script cgi in perl elabora un file html
che vorrei alla fine venga aperto dal browser dell'utente. Come si fà
-- 
Stefano

 che vorrei alla fine venga aperto dal browser dell'utente. Come si fà
Definire "aperto dal browser".
Se significa "visualizzato nella finestra corrente, al posto del form",
bisogna semplicemente produrre l'output in formato opportuno.
Se significa "visualizzato in una finestra diversa da quella corrente", basta 
assegnare un target all'HTML prodotto: se non esiste nessun frame o finestra
con quel nome, dovrebbe essere aperta una finestra nuova (non ci metto la
mano sul fuoco). Pero' il form non puo' essere 'normale', ma deve
intercettare il submit tramite del javascript (e farlo dalla funzione
javascript), altrimenti poi si lamenta di non ricevere risposta dal server.
Comunque sei largamente off-topic in questo newsgroup, perche' Perl non
c'entra niente con i problemi di come aprire le finestre di un browser.
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: Problemi con Mail::MboxParser

Ciao a tutti!
 
Per uno script che, fondamentalmente, deve poi inoltrare E-Mails ricevute
per altre via, uso Mail::MboxParser installato dai repositories di Ubuntu
Server 10.04 alla versione 0.55-2.
 
Ora, ho questo strano problema: se l'E-Mail contiene un'immagine PNG (e
solo quelle! Con altri files in attachment non ci sono problemi!) l'E-Mail
inoltrata contiene un'immagine invalida.
 
Mi preme far notare che il mio programma non modifica in alcun modo il
contenuto dell'E-Mail, oltre ad aggiungere un paio di Headers.
 
Qualcuno ha lo stesso problema?
 
Grazie
Luca Bertoncello
(
luca...@lucabert.de
)
 
-- 
 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
 
 
 

 Server 10.04 alla versione 0.55-2.
 
Ciao,
 
considerando che il modulo che hai citato è del 2005, che ha una decina 
di bug segnalati e mai risolti, direi che ti conviene cambiare modulo: è 
probabile che non sia più manutenuto.
 
Prova 
http://search.cpan.org/~markov/Mail-Box-2.101/
 o cerca meglio su CPAN.
 
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: aiuto per un form mail

Salve a tutti, ho scaricato diversi script cgi per mandare dal mio sito due
soli campi : il nome e l'email direttamente al mio indirizzo.
Ho tentato di configurarli secondo le istruzioni riportate dagli autori, ma
non sono riuscito a spedire nessuna email
Qualcuno mi puň aiutare ?
Grazie anticipatamente
Roberto

 
Ciao,
nella sezione CGI del mio sito trovi le info perconfigurare ed istallare 
FormMail.pl
-- 
-- Marco Allegretti --
http://www.shishii.com
Newsgroup: it.comp.lang.perl
Titolo: Perl per COM

Ciao,
ho scritto un componente in-process COM all'interno di una dll di
windows(tutto standard). Volevo sapere se c'e' la possibilita' con il Perl
di interfacciarci con la COM. In particolare di richiamare le varie
interfacce e i metodi della COM.
grazie
Roberto
---------------------------------------------------------------------------
Messaggio inviato attraverso 
http://www.trucchiperpc.it
 - sezione newsgroup

 interfacce e i metodi della COM.
   Il modulo Win32::OLE, nella distribuzione standard di ActiveState, 
supporta un sotto-insieme del protocollo di comunicazione OLE: consulta 
la manualistica del modulo per sapere quali debbano essere le specifiche 
del tuo componente per poter essere acceduto dal Perl.
-- 
Alla prossima,
Marco

 del tuo componente per poter essere acceduto dal Perl.
Un altro metodo potrebbe essere usare WSH, che ti fornisce un "contenitore"
per il tuo script perl, che in questo modo può comunicare con gli altri
componenti OLE.
Paulus
--------------------------------
Inviato via 
http://usenet.libero.it
Newsgroup: it.comp.lang.perl
Titolo: Ancora su orario e-mail

Salve,
spero di non abusare della vostra pazienza (specie di Alex), ho bisogno
ancora di aiuto.
Come si fa a realizzare uno script perl che controlli l'ora e, se supera un
certo valore, non permette ad un utente di compilare un form oppure gli
comunica che il tempo e' scaduto e non puo' inviare i dati?
Grazie per tutti gli aiuti che potete darmi, anche url di riferimento, se
esiste gia' qualcosa in merito.
Ciao
Alberto

 esiste gia' qualcosa in merito.
Se ci dici ANCHE cosa stai cercando di fare, forse ti si aiuta meglio.
Dalla tua domanda, mi azzarderei a dire che vuoi qualcosa tipo 'esame
on-line via form entro tempo limite' :)
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)
Intanto grazie,
quello che devo realizzare e' uno script che controlli la data di invio di
un e-mail tramite form perche' i dati contenuti non avrebbero piu' valore se
inviati dopo un certo orario ed in determinati giorni.
Faccio un esempio: tizio invia i dati giorno venerdi' 20/08/1999 alle ore
16.30. Bene lo script li accetta. Caio vuole inviare i dati sabato
21/08/1999 alle ore 18.00. Allora lo script deve comunicare che non e'
possibile inviare i dati.
Inoltre lo stesso script dovrebbe inviare e-mail di risposta con la conferma
dei dati (se l'esito e' positivo) ed in ogni caso dovrebbe mantenere un file
di log dell'identita' di chi compila il form (l'identita' e' comunque
accertata preventivamente, quindi nota).
Mi serve una mano soprattutto per la prima parte.
Spero di essermi spiegato.
Ciao
Alberto

 Spero di essermi spiegato.
Ci dici che tipo di configurazione hai (tipo: c'ho uno script con il form
sul server web remoto e mando il mail ad un altro server di posta dall'altra
parte del mondo da cui voglio fare il controllo ecc. ecc.)?


parte del mondo da cui voglio fare il controllo ecc. ecc.)?
Lo script, che ancora non ho fatto :-(  si trovera' su di un server Solaris
con il suo server di posta, in America, ed il server di posta ricevente
dipende dall'utente.
Il controllo deve essere fatto sul server di partenza, ovviamente.
Da dove cominciare?
ciao
Alberto

 Da dove cominciare?
Dalla pagina Web con il form e dallo script che dovrebbe quantomeno
interpretarne la richiesta?


Maurizio
Ok, ti ringrazio.
Mi metto al lavoro e, se non scoccio, poi ti faro' sapere.
Ciao
Alberto

 Mi sbaglio?
Ma la data nel mail la mette il TUO sendmail che glielo manda, nel campo
Date: dell'header.

Newsgroup: it.comp.lang.perl
Titolo: Due domande

Ciao a tutti. Ho due domande da porre. Ringrazio gia' da adesso tutti
coloro che mi daranno qualche indicazione. Premesso che sto cominciando
ad imparare il Perl, i quesiti sono questi:  1) Derco degli esempi di
script che creano una connessione al DB, Oracle in particolare, e fanno
una query.  2) Devo generare una semplice pagina statica HTML. Siccome
vorrei evitare noiosissime cose del tipo "print ("<BODY>.......etc")",
esiste qualche modulo che abbrevia una scrittura di questo tipo?(ossia
una qualcosa come: "title("TITOLO PAGINA WEB");  h1("BLA BLA BLA"); 
..."  Ciao.

 wrote in message news:aoea9i$jsp$1...@gossip.excite.it...


 una qualcosa come: "title("TITOLO PAGINA WEB");  h1("BLA BLA BLA");
use CGI;
oppure ti fai un template HTML e usi uno dei vari moduli per amministrarli
(il più bello dai quali è mio :-))) Text:MagicTemplate.
http://search.cpan.org/author/DOMIZIO/Text-MagicTemplate-1.25/MagicTemplate
.
pod
In questa settimana (tempo permettendo) uscirà pure una versione dedicata
specificamente all'HTML che si chiamerà HTML::MagicTemplate, e ti permette
anche di creare automaticamente tabelle HTML e riempire automaticamente i
campi di un form.
ciao


 una qualcosa come: "title("TITOLO PAGINA WEB");  h1("BLA BLA BLA"); 
La libreria standard CGI fa questo (perldoc CGI).
Per un ottimo tutorial che ti puň guidare alla scelta del template
engines a te piů adatto:
 
http://www.perl.com/pub/a/2001/08/21/templating.html
	- Enrico

 pod
mmm... "not found... whatever it was you were looking for, it's not here.
This may be due to...
You made a typo in the URL ... può darsi
What you are looking for no longer exists on CPAN ... un così bel
template???
You followed an invalid link. If this is the case, please inform the
mantainer of the referring page... Domizioooooooo? :)"
pit

Grazie 1000!!!!  Ciao.

 here. This may be due to...
1. Non vedi che c'è un pezzetto di URL che è finito a capo?
2. Su CPAN c'è anche un motore di ricerca di ricerca.
Max

 What you are looking for no longer exists on CPAN ... un cosě bel

Newsgroup: it.comp.lang.perl
Titolo: [beginner] manipolazioni di testo

Salve a tutti,
avrei la necessità di eseguire delle manipolazioni di files di testo
e vorrei farlo in Perl ma sono alle prime armi....ahime!
1) Dovrei effettuare una sostituzione di questo tipo:
le Stringhe con l'underscore del tipo:
product_id
dovrebbero diventare:
productId
Ossia sostituire l'underscore e rendendo maiuscola la lettera
successiva. C'e' qualcuno che sa dirmi come fare ?
2) Qual'e' il modo piu' veloce per eliminare tutte le occorrenze
di un carattere all'interno di un file ?
Grazie 1000 in anticipo
Francesco

 carattere all'interno di un file ?
Prima cosa che mi viene in mente.  
 perl -i.bak -pe "tr/X//d" data.txt  
Elimino carattere 'X' da data.txt (mantenendo copia di backup in
data.txt.bak).
 
Max

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

Newsgroup: it.comp.lang.perl
Titolo: SAI CONQUISTARMI CON LE PAROLE ?

 ha scritto 
  nel messaggio 
news:8j7q89$i7k$9...@fe2.cs.interbusiness.it
...




SAI CONQUISTARMI CON LE PAROLE 
  ?


 


SE VUOI TROVARE L'ANIMA GEMELLA E SEI BRAVO A 
  CHIACCHIERARE


 


VIENI SUL SITO 
www.just2minutes.com
  E VEDIAMO 
  CHE COSA SAI FARE !!!!


 


Luana



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

Newsgroup: it.comp.lang.perl
Titolo: sequenze non ordinate con ripetizione

sembra una cavolata ma proprio non riesco ad implementare sta  fuck
function in modo semplice (vero Davide?)
Il problema è questo: devo realizzare un algoritmo che mi calcoli
tutte le combinazioni con ripetizione di N elementi presi k a k.
Cioè, se ho gli elementi: s=(a,b,c,d) quindi con N=4, e voglio
prenderli 2 a 2, cioè k=2
voglio che salti fuori:
aa
ab
ac
ad
bb
bc
bd
cc
cd
dd
naturalmente l'algoritmo deve essere abbastanza generale da poter
variare a piacere N e k.
qualcuno mi sà dare una dritta?
ciao
Fuli

tutte le combinazioni con ripetizione di N elementi presi k a k.
Arrivo un po' tardi, e non sono neppure sicuro di non aver fatto errori
(per esempio, bisognerebbe verificare che cosa deve succedere se K >= N),
ma questa dovrebbe essere una soluzione ricorsiva (hai detto "semplice",
non "efficiente") del problema:
sub combinazioni;
my @combinazioni = combinazioni(2, qw(a b c d e f g h i));
for my $combinazione (@combinazioni) {
    print $combinazione, "\n";
}
sub combinazioni {
     my ($k, @elementi) = @_;
     if ($k == 1) {
         @elementi;
     } else {
         my @comb;
         --$k;
         for my $ind_elemento (0..$#elementi) {
             push @comb,
             map {$elementi[$ind_elemento] . $_ }
             combinazioni($k, @elementi[$ind_elemento..$#elementi]);
         }
         @comb;
     }
}
Naturalmente, si può fare anche qualcosa di diverso che la semplice
concatenazione degli elementi.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: lettura dati su file di testo

Ciao,
ho un problema:
e' possibile leggere e parsare i dati di un file di testo una riga alla
volta senza dover scaricare l'intero contenuto in una variabile ??
sostanzialmente:
#INIZIO#############################
#magari la sintassi e' sbagliata ma il concetto no...
use Filehandle;
$file = new Filehandle ('dati.txt') || die ('blabla');
while (<$file> != '') {
        if ..qualcosa {
            $riga = <$file>;
            print $riga;
            }
close ($file);
#FINE#############################
Ho provato su winnt con Xitami ma vengono saltate deliberatamente delle
righe.
Grazie
Mattia


wrote:
:)use Filehandle;
:)$file = new Filehandle ('dati.txt') || die ('blabla');
:)while (<$file> != '') {
:)        if ..qualcosa {
:)            $riga = <$file>;
:)            print $riga;
:)            }
:)close ($file);
:)#FINE#############################
:)
:)Ho provato su winnt con Xitami ma vengono saltate deliberatamente delle
:)righe.
credo che legga 1 riga si e una no, questo perche' accedi due volte al
file ad ogni ciclo (hai due <$file> ma solo uno viene registrato in
$riga)
prova
open(FH, "file") || die ('morto');
while(<FH>)
  {
  chop;
  print "$_\n";
  }
close FH;
Oha

 righe.
Occhio. Ogni volta che fai <$file> leggi una riga. Alternativamente la metti
in $_  e in $riga, a seconda di dove lo fai. 
In pratica tu vuoi stampare la riga successiva a quella che soddisfa la
condizione dell'if, giusto?
Inoltre il while su Filehandle esplicito non e' protetto dai valori 'undef'.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 "Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)
grazie

 memorizzare tutto il file di testo in una variabile e poi elaborarla ?
Risparmi un casino di memoria, specialmente se il file che elabori e' grosso.
Sulla velocita' di esecuzione, dovrebbe essere comparabile, dal momento che le
letture sono comunque bufferizzate, quindi il tempo per leggere tutto il
file in un colpo o una riga alla volta dovrebbe essere praticamente lo stesso.

Newsgroup: it.comp.lang.perl
Titolo: problemi kn zip

Salve a tutti intanto ringrazio kiunque possa e voglia darmi qualsiasi
aiuto x il mio problema ke è il seguente. dovendo formattare il mio pc da
stupido ho pensato di portare su floppy tutti quei dati ke dovevo salvare.
i file in questione xò occupavano circa 70 MB xciò ho deciso di
compattarli x portarli su floppy. il primo passo è stato quello di usare
winzip ke mi ha  ridotto il file a circa 15 MB poi xò nn contento ho
deciso di ricompattare tutto kn un altro programma WinAce ke mi ha fatto
risparmiare altri 2MB e ke mi ha diviso il file in + parti in modo tale da
poter copiare ogni file su un floppy. ora ha formattazione del pc conclusa
ho ripreso i floppy e ho cominciato a copiare i file in una directory x
poi decomprimerli e riportarli come all'inizio ma ho scoperto ke i file di
2 (dei 5) floppy erano rovinati xkè mi diceva ke era impossibile leggere
sulla periferica. ho tentato in tutti i modi ho utilizzato il pkunzip il
pkzipfix tutto ma nn ci sono riuscito vi kiedo aiuto!!1 anke x poter
recuperare un piccolo stupidissimo frammento!!!! ringrazio di nuovo tutti
voi e mi scuso anke x il pessimo italiano ma sono tutto un delirio.
SaEmO
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

scusate mi sa ke ho postato la rikiesta nel posto sbagliato mi sono
accorto ke questa parte riguardi la programmazione e il mio problema nn
c'entra niente. scusate l'inconveniente ma ho letto un post kn il titolo
problema kn la formattazione e nn  so xkè l'ho ricollegato al mio di
problema! di nuovo scusa SaEmO


Newsgroup: it.comp.lang.perl
Titolo: modulo ftp e passive mode

Sa da un pc con linux da linea di comando avvio una 
sessione ftp su un'altra macchina con ftp-server attivo
prima di poter puttare un file devo scrivere passive, a
quel punto posso fare tutto.
Proprio questo sul perl mi impedisce di inviare files
tramite lo script che ho creato. Come posso risolvere
questo problema?? Avete uno script di esempio??
Oppure sapete su quale file devo agire su linux per
poter avere l'ftp sempre passive ???
Grazie

questo problema?? Avete uno script di esempio??
Non mi intendo molto del protocollo FTP, ma mi pare che in Net::FTP ci siano
tutti i metodi necessari per il modo passivo (pasv, pasv_xfer ecc.). Si
tratterà di saperli usare (il protocollo è descritto in RFC959). Gli esempi
allegati al modulo sono assai miseri, c'è però un riferimento ad un
programma di cui si dice che può essere un esempio d'uso:
http://www.csh.rit.edu/~adam/Progs/autoftp-2.0.tar.gz
. Altro immagino si
possa trovare con una ricerca su Google.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: quale perl per IIS

Cosa mi conviene installare per far funzionare perl su in server
Windows2003/IIS ?
Ci sono problemi di sicurezza o qualcosa che dovrei sapere prima di
farlo ?
Grazie. Ilic.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

o qualcosa che dovrei sapere prima di farlo ?
Tieni presente che con la distribuzione Activestate Perl hai la scelta
se 
a) mandare in esecuzione l'interprete perl come processo separato dal
web server (mantenendo estensione standard .pl per gli script),
maggiore latenza del tempo di avviamento dello script e maggiore
robustezza (ok per ambiente di sviluppo);  
b) oppure se all'interno del processo del web server mediante perl for
Isapi, estensione tipica: .plx, gratuitamente disponibile all'interno
della distribuzione standard; soluzione più veloce (meglio: con minore
latenza) ma decisamente più critica in caso di errori.
c) un tempo c'era una terza scelta di cui non trovo  traccia sul sito
Activestate, ovvero all'interno del processo del web server mediante
diversi interpreti in esecuzione concorrente, script con estensione
.plex. Nessuno sa che fine ha fatto?
Le soluzioni b) e c) hanno una gestione particolare delle variabili
ambientali che vengono passate  allo script solo su esplicita
richiesta. 
InModis

 Isapi, [...] ma decisamente più critica in caso di errori.
In che senso ?
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org/blog
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it


Nel senso che eventuali seri errori presenti nel tuo codice nel caso
A) sono confinati e quindi vanno a far danni in un processo separato,
quello in cui è in esecuzione con l'interprete che sta elaborando il
tuo script; nel caso B) vanno a fare danni all'interno del processo in
cui è in esecuzione il web server. Non l'ideale per un un ambiente di
produzione.
As far as I know.
Ciao
InModIs

Newsgroup: it.comp.lang.perl
Titolo: Zippare file sul server

Ciao a tutti,
scusate innanzitutto la mia inesperienza.
Ho creato, in perl, un sito per consultare un catologo di 2000 prodotti
memorizzati in mysql db.
La ricerca avviene inserendo dei parametri in modo da non visualizzare
sempre tutti i 2000 articoli.
Vorrei però dare la possibilità di scaricare il sito in forma statica per
essere consultato off-line.
Ho creato allora uno script che invece di visualizzare la pagina con tutti
gli articoli, la crea come file .htm sul server nella directory per il
download.
Fin qui tutto bene ma essendo il file .htm molto grosso, è possibile
zipparlo?
Cosa devo usare?
Grazie di cuore

 Cosa devo usare?
Zip? Archive::Zip? Dipende dai gusti.
Modo A) system per eseguire il comando zip esterno
Modo B) usi un modulo tipo Archive::Zip e crei il file zippato.
Alla fine, comunque, spedisci il file creato attaccandoci l'header html 
con il mimetype adeguato.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 > Fin qui tutto bene ma essendo il file .htm molto grosso, č possibile

Newsgroup: it.comp.lang.perl
Titolo: Script per salvare pagina WEB

Sarei molto felice se qualcuno potesse mostrarmi o mandarmi uno script
che via HTTP, data un'URL, si connette e scarica su un file la pagina
indicata.
Grazie in anticipo.
Ciao

 wrote:
: Sarei molto felice se qualcuno potesse mostrarmi o mandarmi uno script
: che via HTTP, data un'URL, si connette e scarica su un file la pagina
: indicata.
Script? One-liner!
$ perl -MLWP::Simple -e 'getstore shift,shift' 
http://url/
 file
-- 
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

 indicata.
Ci sono alcuni esempi in PerlFAQ 9, "How do I fetch an HTML file?"
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Newsgroup: it.comp.lang.perl
Titolo: librerie socks, info

Salve a tutti. Mi hanno fornito uno script in perl che si avvale dei socks
( use::SOCKS ).
Nel compilarlo mi da errori riguardo librerie mancanti etc...che appunto
penso siano quelle dei SOCKS.  Po treste dirmi se è appunto questo il
problema, e se si dove posso trovare queste librerie, che librerie sono
etc..?
Ringrazio anticipatamente, Andrea


prova con 'use Socket;'. Oppure se si tratta proprio di SOCKS, prova a
www.cpan.org
.
---
Mario Rizzuti

Newsgroup: it.comp.lang.perl
Titolo: GMTIME e funzioni per orario

Come mai la funzione gmtime mir estituisce un' ora sbagliata?
C'e' una funzione che prenda l'ora al moimento in cui il form viene spedito?

 Come mai la funzione gmtime mir estituisce un' ora sbagliata?
  Di quanto sbagliata? Potrebbe derivare dal fatto che alle 18:28 leggo
un messaggio scritto alle 19:13?
	Alla prossima,
		Marco

 un messaggio scritto alle 19:13?
A dir la verita' e' un cgi testato in locale, quindi l'ora e' quella in
teoria del mio pc
Comunque non preoccparti, ho appena trovato la soluzione in un vecchio post
su questo ng :)
Newsgroup: it.comp.lang.perl
Titolo: espressione regolare un po'ostica

salve a tutti,
    stamattina mi sono trovato alle prese con il seguente problema.
Ho una variabile scalare che contiene una stringa composta da caratteri
alfanumerici e di avanzamento riga (\n), in pratica, chiedendo al programma
di stampare il suddetto scalare ottengo, a console, l'emissione di una serie
di righe.
Mi sono posto l'obiettivo di eseguire un pattern substitution a carico di
questo scalare, in modo tale da ottenere come risultato la sottostringa
contenuta tra due specifiche parole, segue l'esempio:
$prova_def= "mela\nstop\npera\narancia\nstop\nmela\nmela";
# qui e' il problema: vorrei "ridimensionare" il suddetto scalare affinche'
contenga la sottostringa compresa tra le # parole "stop" e "stop".
# Ho provato in diversi modi, uno tra i quali (guida di riferimento al
perl):
$prova_def=~ s/stop.*stop//;
# e testando il risultato ottenuto con
print "$prova_def\n";
sortisce l'effetto di stamparmi la stringa, come se non avesse fatto niente.
Vi chiedo un aiuto per risolvere questop problema.
grazie,
asast

print "$prova_def\n";
pero' cosi' ti trovi in $prova_def solo la parte "al di fuori" dei due stop.
Con le parentesi sopra nella regex la parte "dentro" e' in $1
-- 
Saluti,
Giancarlo

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

A coloro che mi hanno risposto (Giancarlo, Marco),
Entrambe le soluzioni da voi prospettate funzionano.
Ora i problema e' farle funzionare all'interno di un ciclo foreach, in
quanto $1, in quel contesto risulta poco digeribile dal programma, ovvero,
piu' tecnicamente: uso di una variabile non inizializzata....
sto provando..
speriamo bene..se avete un'idea attendo lumi
ciao e grazie,
fabio

Newsgroup: it.comp.lang.perl
Titolo: Variabili globali e locali

Se ho una funzione in cui dichiaro una variabile $foo come locale
(usando "local()"), č possibile nel corso della stessa funzione
riferirsi a una variabile chiamata anch'essa $foo dichiarata nel
programma principale?
Per esemplificare:
sub prova {
	local ($foo)=10;
	print $foo;
	print global($foo);		# č questo che mi interessa
}
$foo=5;
&prova();
vorrei che a schermo stampasse "10 5", č possibile?
Per essere ancora piů chiari: devo recuperare il valore da una
variabile globale in una funzione in cui ne ho dichiarato una omonima
ma locale.
Grazie
Ciao
Andrea Busia
No Spam, Grazie.

 dichiarata nel programma principale?
	PERLFAQ #7: "What's the difference between dynamic and 
	lexical (static) scoping? Between local() and my()?"
	Alla prossima,
		Marco

&prova();
Urgh. ;-) Ecco qua:
sub prova {
  my ($foo) = 10;
  print $foo;
  print $main::foo;
}
$foo=5;
&prova();
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

	Michele.
Grazie a entrambi
