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

Ho il seguente problema:
sto cercando di imparare il Perl ma non riesco a far partire uno script da
Netscape (uso il RH 6.0): lo script dovrebbe generare una pagina html, ma,
dopo che ho premuto sul link collegato al codice, non succede assolutamente
nulla.....
Se faccio partire lo script dalla console, la visualizzazione dei tag
avviene correttamente.
Cosa devo fare ????
Grazie,
Davide Zugna

 Cosa devo fare ????
Vai a guardare nel file di log del server.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Cosa devo fare ????
Spostarti in un newsgroup dove si parli di web server.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

 Davide Zugna
-- 
ASTAT - Istituto provinciale di statistica
viale Duca D'Aosta, 59
I - 39100 Bolzano
tel: 0471/994045  fax: 0471/994008
http://www.provinz.bz.it/astat

 ciao, antonio
No e dalle altre risposte che ho ricevuto, mi sa tanto che è questo il
problema: mi sa che dovrò installare e configurare il caro APACHE.....
Davide

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

Chi mi consiglia un bel counterino?
-- 
***
r3m0v3 "sick." fr0m addie

mon...@sick.mondopc.com
 wrote:
 >Chi mi consiglia un bel counterino?
a++ non va bene? Forse hai sbagliato gruppo.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

Prova lefastcounter (
http://www.linkexchange.com
) non è male e ti fa anche
qualche statistica.
Se poi cerchi il sorgente (ed io non ho capito niente :-)) di qualche
counter
da installarti, prova su 
http://www.cgi-resources.com
, ne ho trovati alcuni
carini.
Saluti,
Valerio
William Maddler ha scritto nel messaggio ...


Newsgroup: it.comp.lang.perl
Titolo: fork in perl

Sto cercando di creare uno script che fork n processi alla volta in
parallelo su m, dove m>n
n=nummax
m=10 (vedi ciclo for)
quello che ho ottenuto per ora é:
$nummax=5;
my $numcorr=0; #processi correnti
my @pid;
  for($i=0;$i<10;$i++)
 {
  $numcorr++;
  defined ($pid[$i] = fork) or die "Cannot fork: $!";
 unless(@pid[$i])
 {
   $a="fork1 @pid[$i] numcorr=$numcorr";
   print "$a \n";
   for($c=0;$c<30000000;$c++) { }   #processo test che dovrebbe girare
nummax alla volta
   $numcorr--;
   print "numcorr=$numcorr\n";
   exit;
 } #unless
if($numcorr >= $nummax)
{
 waitpid(@pid[$i],0);
 print "main @pid[$i] \n";
}
}
fatto cosí partono nummax al primo giro poi il waitpid diviene
bloccante in quanto aspetta che l'i-simo finisca facendomi partire un
processo alla volta e quindi non ne girano n alla volta ma un numero
casuale.
Avete un consiglio per fa si che waitpid controlli tutti gli n
processi e faccia partire un nuovo processo appena uno finisce?
Grazie

 processi e faccia partire un nuovo processo appena uno finisce?
Chiama waitpid con -1 come primo argomento e  WNOHANG come flag. 
Consulta:
      perldoc -f waitpid
      perldoc perlipc
      man waipid
Max
Newsgroup: it.comp.lang.perl
Titolo: conversione date

Nel mio file dat ho salvato la data secondo YYYYMMDD, ma questo è poco 
indicativo, devo stabilire a quale giorno della dettimana è corrisposto. Es 
: 20060214 è  martedi (14 feb 2006).
Avete idea di come si implementi ?

GhanaWay wrote:

http://www.perl.it/documenti/faq/view.html?pag=4&faq=12
usa Time::Local per passare dalla data ai secondi dall'epoch e poi usa
localtime su questo dato.
Newsgroup: it.comp.lang.perl
Titolo: XMLhttp

Da una pagina html devo richiamare tramite
xmlhttp una pagina PERL che mi deve eseguire una query e ridarmi i campi con
i parametri.
la chiamata:
var xmlObj = new ActiveXObject("Microsoft.XMLDOM");
var xmlHTTP = new ActiveXObject("Microsoft.XMLHTTP");
var XMLDoc = new ActiveXObject("Msxml2.DOMDocument.3.0");
Path_WebService="
http://127.0.0.1/query.pl
";
xmlHTTP.Open("Post",Path_WebService, false);
xmlHTTP.Send(sql_query_all);
sul PERL: come faccio a riprendere la stringa che ho spedito sql_query_all.
Qualcuno lo ha mai usato l'XMLhttp?
Saluti e Grazie

> sul PERL: come faccio a riprendere la stringa che ho spedito
sql_query_all.
$ENV{QUERY_STRING}
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

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

se non hai niente in $ENV{QUERY_STRING}  allora dubito che arrivi qualche
query al cgi, quindi devi prima verificare che quel
xmlHTTP.Send(sql_query_all); invii qualcosa (esempio:
http://127.0.0.1/query.pl?questa_è_la_query) in $ENV{QUERY_STRING} ci
troveresti "questa_è_la_query"...
Credo che il problema sia a monte di perl.


 troveresti "questa_è_la_query"...
Assumendo che la richeista deve arrivare ad uno script CGI (cosa che però
l'OP non ha detto), non è certo nella QUERY_STRING che troveremo il testo
XML trasmesso. (Non sarebbe ragionevole che venisse usato un GET, e poi
nelle chiamate alle API di xmlHTTP compariva la parola "Post".)
Ipotizzo che xmlHTTP (come accade con SOAP) effettui un POST con
content-type "text/xml".
Pertanto, o usiamo i metodi appropriati del modulo CGI per recuperare il
body della richiesta, oppure leggiamo da STDIN una quantità di dati pari a
$ENV{CONTENT_LENGTH}.
Se, invece, non si tratta di CGI, useremo le API che la tecnologia
adottata ci mette a disposizione.
Max

vero! Non avevo notato il post!
Allora SICURAMENTE non è in QUERY STRING
:-D


Newsgroup: it.comp.lang.perl
Titolo: errore: make_sock:failed to get a socket for port80

Questo errore avviene quando lancio il server apache 1.3.12.
make_sock:failed to get a socket for port80
Da cosa dipende?
i miei software:
win95 (con aggiornati attraverso un download e messi in c:\windows
ws2_32.dll e ws2hepl.dll)
apache1.3.12
Non capisco proprio, ringrazio TUTTI, ciao
Andrea 
dema...@iol.it

 dipende?
  Non dal PERL, evidentemente. 
  Prova a chiedere in qualche gruppo/lista di discussione relativo/a a
Win95 se le Windows Socket hanno problemi di adattamento all'uso di
Apache o su qualche gruppo/lista di discussione relativo/a ad Apache se
esso stesso soffre quando sotto ha le Windows Socket. Alternativamente,
prova a cercare nelle FAQ di Apache.
	Alla prossima,
		Marco
Newsgroup: it.comp.lang.perl
Titolo: undef , 0 , ''

Mi e' venuta una curiosita' ....
che differenza c'e' in PERL tra
1 . undef
2 . 0
3 . '' (stringa vuota)
 Raffaello

 3 . '' (stringa vuota)
   Sempre nel contesto della tua domanda, rappresenta cio` che non e` 
definito (ma, curiosamente, non il risultato della undef-inizione di una 
variabile). Anch'esso, come lo 0 numerico, assume il significato di 
falsita` logica.
-- 
Alla prossima,
Marco

Raffaello Galli wrote:

Direi che "dipende dal contesto"... 
dentro un if son tutti "falsi", ma in altri "posti" di comportano 
diversamente.
-- 
Saluti,
Giancarlo

 diversamente.
A questo punto la domanda nasce spontanea:
ma "undef" libera o no la memoria occupata dalla variabile?
altra domanda:
undef $a; è la stessa cosa di $a = undef; ??
qui immagino la risposta sia "no"...
Ciao,
Guido.
Newsgroup: it.comp.lang.perl
Titolo: printare piu' variabili su un unica riga!

Buongiorno, desidererei conoscere se esiste un metodo per forzare il print
di piu' variabili su un UNICO rigo di un file testo. Sembra banale ma il
seguente codice:
-------
open (UPDATE, ">$source");
   for ($line=0; $line<$i; $line++) {
   if ($data[$linea][4] eq
{ 
   $data[$linea][4]='prova';
   }
 
 print UPDATE "$data[$line][0]\|$data[$line][1]\|$data[$line][2]\|$data[$line][3]\|$data[$linea][4]";
 }
close UPDATE;
------
si ostina a printarmi in questo modo:
dato1|dato2|dato3|dato4
|dato5
PERCHE' ???????
Non c'e' un terminatore di rigo!!!!
Un Grazie a chi avra' il tempčo e la voglia di aiutarmi.
Bye, bye 
Loris

 Non c'e' un terminatore di rigo!!!!
Senza conoscere il contenuto di @data, l'unica risposta e' che
$data[$line][3] contenga un'andata a capo in fondo.
Fai un chomp su tutti gli elementi dell'array, per essere sicuro che non ci
siamo CR in fondo.
Pero' dovresti programmare in Perl, non in C.
La print verrebbe molto meglio usando una join 
 print UPDATE join('|',@array);
E l'if e' inutile nel for, dal momento che testa una condizione su una
variabile che non dipende dal for.
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: Questione di ip...

 ovviamente in Perl :)
Io userei una cosa sporca: andrei su un sito che me lo dice, ad esempio 
http://www.chisono.it
 :
use strict;
use warnings;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => '
http://www.chisono.it
');
my $res = $ua->request($req);
if ($res->is_success) {
	$_=$res->content;
	m%<td align="center" bgcolor="#33AA33">(.*?)</td>%;
	print "$1\n";
} else {
	print "Errore\n";
}


http://www.chisono.it
 :
[cut]
Be, questa soluzione sporca l'avevo già considerata
http://www.pigmalion.info/?screen=whatsmyip
E' che volevo capirci di più, perciò grazie delle info e del tuo tempo
:)
--
http://www.pigmalion.info/
Internet è uno dei veicoli più validi per la difesa della libertà,
poiché offre la verità a chi vuole vederla e intenderla...
Vinton G. Cerf
Newsgroup: it.comp.lang.perl
Titolo: 50 file.txt!

Ciao al NG.
E' possibile fare uno script perl che crei un certo numero di file di testo
creati da me, in una directory di mia scelta?
In pratica vorrei che lo script mi creasse un file.txt e quindi ne
producesse un numero a mia scelta di file uguali al file.txt da me creato.
Credo che bisogna usare un ciclo, ma non ci sono riuscito.
Grazie e ciao!

 producesse un numero a mia scelta di file uguali al file.txt da me creato.
prova con:
use strict;
my $dir="c:\\windows\\desktop\\prova\\";
my $nome='pippo';
my $estensione='.txt';
my $file=$dir.$nome.$estensione;
my $numero_copie=50;
open (FILE,">$file") or die "Non posso scrivere $file: $!";
print FILE "contenuto";
close FILE;
foreach my $numero (1 .. $numero_copie) {
	system 'copy '.$file.' '.$dir.$nome.$numero.$estensione;
}
o in omaggio a 'pix' (che farebbe senz'altro meglio!) :
map{system"copy $file
".join('',$dir,$nome,$_,$estensione)}(1..$numero_copie);
;)))
Newsgroup: it.comp.lang.perl
Titolo: modulo cgi per il controllo di sessione

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

 
 Apache::Session:*
 
http://search.cpan.org/search?dist=Apache-Session
E' fatto per mod_perl, ma usabile in buona parte anche sotto CGI.
Max
Newsgroup: it.comp.lang.perl
Titolo: editor con una buona sintax highlightning

Salve a tutti,
               sto usando da un mese il perl per fare dei cgi.
Finora ho usato mcedit sotto linux per scriverli. Finora mi
e' andato bene ma facendo uno script in cui vi era un /\'/
e' impazzita completamente la sintax highlightning. Mi chiedevo
se esiste un editor da usare in console migliore da questo punto
di vista. Ah, per favore non consigliatemi emacs che decisamente
non fa per me.
-- 
Ciao
     Marco Innocenti

Finora ho usato mcedit sotto linux per scriverli. Finora mi
vim.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *
      | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

 vim.
Condivido e sottoscrivo: per chi (come me) ami l'operazione
"modale" tipica del vi, non c'e` nulla di meglio di vim (e gvim),
almeno per Linux, Win95, e Win/NT.
Chi il "modale", invece, non lo sopporta, forse preferirebbe una 
qualche versione di emacs!-)
Alex

> vim.
Anche HomeSite non e' male.
Benedetto.
--
logan@voi_vitsi.pulp-fiction.com
 (To mail me, take away voi_vitsi.)

 wrote in message
" > >Finora ho usato mcedit sotto linux per scriverli.
" > vim.
" 
" Condivido e sottoscrivo: per chi (come me) ami l'operazione
" "modale" tipica del vi, non c'e` nulla di meglio di vim (e gvim),
" almeno per Linux, Win95, e Win/NT.
Mi accodo alla lista :-)
.mau.
Newsgroup: it.comp.lang.perl
Titolo: Help funzione grep

Ciao a tutti,
mi trovo nella seguente situazione all'interno di uno script effettuo
una grep su un array pilotandola con 4 parametri ( l'array contiene
stringhe) :
   @rest = grep {/$initimesearch/
                 && /$router/
                 && /$endtimesearch/
                 && /$index/} @{$rh_ium};
le quattro variabili contengono rispettivamente una data, il nome di un
router, altra data, e un numero. Il risultato di questo blocco è
corretto, ad esempio se l'array contiene 100 righe con i paramentri che
passo  ottengo 2 righe come risultato, ma se faccio la negazione cioè
questa funzione:
   @elementi = grep {!/$initimesearch/
                 && !/$router/
                 && !/$endtimesearch/
                 && !/$index/} @{$rh_ium};
Con gli stessi paramentri passati alla precedente, mi aspetavo di
trovare (sempre facendo riferimento all'esempio precedente) in
@elementi 98 righe. Invece i conti non tornano.
Avete dei suggerimenti ?
Grazie,
Mirko.

@elementi 98 righe. Invece i conti non tornano.
Non sono sicuro di aver capito il discorso, e non so se funzioni con grep,
m'č venuto in mente, perň, da quel poco di logica che cercarono con scarso
successo di insegnarmi a suo tempo, "il not degli and č uguale all'or dei
not": non č che devi fare un OR dei NON MATCH, per avere il complemento?
Ciao.

 Ciao.
Grazie... quel poco di logica te la insegnarono bene.... :-) con me non
ci sono riusciti! :-(.
Effettivamente ho provato a fare l'OR dei non metch e funziona.
Grazie.

 not": non è che devi fare un OR dei NON MATCH, per avere il complemento?
Che nostalgia: il teorema di De Morgan!
Ciao
Roberto.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Effettivamente ho provato a fare l'OR dei non metch e funziona.
Oppure piů semplicemente puoi utilizzare il negato dell'intera 
espressione, come del resto suggeriva implicitamente lo stesso Giovanni:
@elementi = grep
     {
         !(
             /$initimesearch/
             && /$router/
             && /$endtimesearch/
             && /$index/
         )
     }
     @{$rh_ium};
Ciao,
Emanuele.
-- 
What does VISTA mean?
Viruses, Infections, Spyware, Trojan horses & Adware.

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

Ho una lista di file e devo trovare l'ultimo che abbia dimensione > x
Adesso ho fretta e provo a vedere se funziona con
  for($i=$#dir;($i>=0)&&(stat($dir[$#dir])[7]>1024);$i--);
Comunque non mi piace molto ed accetto suggerimenti :-)

   for($i=$#dir;($i>=0)&&(stat($dir[$#dir])[7]>1024);$i--);
Bel programma C !!! :)
Perche' continui a controllare la dimensione dell'ultimo file dell'array?
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 Perche' continui a controllare la dimensione dell'ultimo file dell'array?
Cosi' dovrebbe funzionare:
  for( $i=$#dir; ($i>=0)&&( ((stat($dir[$i]))[7]) < $MINSIZE); $i--) {};
Newsgroup: it.comp.lang.perl
Titolo: Moduli in Perl

Ho installato Apache sul mio pc, quindi ho installato perl e se scrivo uno
script e lo metto nella cartella /cgi-bin/ funziona....
Che cosa serve allora il modulo mod_perl ?
Se mi funziona il perl sotto apache vuol dire che l'ho gia' installato ?
Grazie a tutti
--------------------------------
Inviato via 
http://usenet.libero.it

 Se mi funziona il perl sotto apache vuol dire che l'ho gia' installato ?
No. Ci sono vari modi di vedere se l'hai installato.
Innanzitutto fai:
	httpd -l
e vedi se tra la lista hai anche la linea mod_perl.c.
Se non c'è ma c'è la linea mod_so.c, mod_perl potrebbe essere installato come
modulo dinamico (DSO). In tal caso controlla il contenuto della directory
libexec sotto la root di installazione di Apache. Se c'è la libreria 
libperl.so allora puoi caricarlo ed attivarlo in httpd.conf aggiungendo le 
linee:
LoadModule perl_module libexec/libperl.so 
AddModule mod_perl.c 
(probabilmente già ci sono).
Puoi testare anche da script o da modulo se il mod_perl è installato ed attivo 
verificando che il valore della variabile di ambiente 'GATEWAY_INTERFACE' sia
'CGI-Perl/1.1'
Bye
	- Enrico

Ti ringrazio per la precisione della tua risposta, stasera provero' a
casa....
Un'altra cosa, hai accennato il modulo html::mason...in effetti la mia
domanda era nata proprio per questo, devo sviluppare per la tesi un portale
web usando mason, ho appena cominciato e sto cercando di capirci
qualcosa...se lo usi sai dirmi dove posso trovare dei validi aiuti ( a parte
il sito 
masonhq.com
) ?
Grazie ancora


il sito 
masonhq.com
) ?
Probabilmente lo sai gia`, ma la O'Reilly ha appena pubblicato 
un libro proprio sullo sviluppo di applicazioni web con Mason.
  "Embedding Perl in HTML with Mason"
  di Dave Rolsky e Ken Williams
 
http://www.oreilly.com/catalog/perlhtmlmason/
 
http://www.masonbook.com/
ciao
Stefano

 il sito 
masonhq.com
) ?
Ti hanno già risposto (è appena uscito il libro) e la
documentazione POD è comunque ben fatta.
	- Enrico

 - Enrico
Ho controllato e ho il valore CGI 1.1, quindi dovrebbe funzionarmi il
mod_perl...
Pero' non riesco a far funzionare HTML::mason, sul sito masonhq mi dicono di
installare dei moduli, come si fa ?
Ed inoltre devo modificare un'altra volta il file httpd.conf di apache
oppure no ?
grazie


 grazie
Sì. Puoi farlo tramite le opportune direttive PerlSetVar 
oopure (consigliato) configuri Mason in uno script
che lanci all'avvio di Apache tramite la direttiva in httpd.conf
	PerlRequire /path/to/
mason-startup.pl
Ma anche qui la documentazione di HTML::Mason è ottima.
	- Enrico

 
Anche 
	%> perldoc perlmodinstall
	- Enrico
Newsgroup: it.comp.lang.perl
Titolo: Test su script gia' in esecuzione

Ciao,
In uno script avrei la necessita' di controllare che non sia gia' in
esecuzione. Lo script deve girare su una macchina UNIX. E' possibile farlo
direttamente in perl?
Grazie



La tecnica normalmente usata e' un file di lock mediante la funzione
flock().
(vedi man perlfunc).
Quando il processo perl viene lanciato, chiama la flock() con operazione
LOCK_EX. Quando termina la richiama con LOCK_UN.
						l.f.
--------------------------------------------------------------------------
       -- )     Luca Fini                            Tel: +39 055 2752 307
 ___    |\      Osservatorio Astrofisico di Arcetri  Fax: +39 055 2752 292
/   |   | |-_   L.go E.Fermi, 5 +-----------------------------------------
(___|___//___)  50125 Firenze  /   WWW: 
http://www.arcetri.astro.it/~lfini
 (_)      (_)   Italia        / e-mail: 
lf...@arcetri.astro.it
-----------------------------+--------------------------------------------
                              In a world without fences - who needs GATES?

 direttamente in perl?
Si, ad esempio confrontando se esistono in esecuzione processi con il tuo
stesso nome ma con un PID diverso, oppure imponendo che lo script crei un
file di lock, per cui l'esecuzione sia inibita se il file esiste gia' ed e'
bloccato.
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: Help... modifica!

Ciao a tutti, io ho il seguente problema:
ho scritto questo codice per gestire dei punteggi (per un quiz su IRC), e 
funziona benissimo se inizzializza l'array in questo modo... @array = ();
Poi per esigenze ho deciso di salvare i dati per non cancellare i punteggi.
Non ha fatto niente altro che sostituire (almeno per l'apertura) @array = 
(); con :
open(PUNTI, $afile);
        @score = <PUNTI>;
        close(PUNTI);
Ora se non funzia piů come si deve! 
Codice:
( la variabile $ptn vale random da 1 a 25)
 
sub update_score {
        my $updated = 0;
        if (@score == ()) {
                push(@score, $_[0], $ptn);
        } else {
                for (my $i=0; $i <= $#score; $i=$i+2) {
                        if ($score[$i] =~ $_[0]) {
                                $score[$i+1] = $score[$i+1]+$ptn;
                                $updated = 1;
                        }
                }
                if ( $updated == 0 ) {
                        push(@score, $_[0], $ptn);
                }
        }
}
Tipo di errore: Quando il punteggio č zero, vengono aggiunti correttamente 
x punti. Perň se il punteggio č diverso da zero, esempio 20, non vengono 
piů aggiunti x punti della variabile $ptn alla $score[$i+1], ma il 
punteggio di $score[$i+1] scende a due, da li in poi ogni risposta corrette 
viene incrementa di uno ogni volta.
Ripeto se l'array lo dichiaro @array = (); al posto di aprirlo da un file 
funziona!!!
Grazie a tutti! 

        my $updated = 0;
	my $score=@score;
	if ($score == ()) 
		{
		push(@score, $_, $ptn)
		} 
	else
		{
		for (my $i=0; $i <= $score; $i=$i+2)
			{
			 if ($score[$i] eq $_) 
				{
				 $score[$i+1] = $score[$i+1]+$ptn;
				 $updated = 1
				 }
			}
		if ( $updated == 0 ) {push(@score, $_, $ptn)}


Newsgroup: it.comp.lang.perl
Titolo: ordinamento dati da file

sono un novizio di perl e vi pongo un problema che forse è banale (spero) ma
di cui non ho trovato accenno nelle pubblicazioni che ho letto
io voglio leggere da un file una serie di righe del tipo:
dato1a,dato2a,dato3a,.....
dato1b,dato2b,...
e poi le voglio stampare (solo quelle che rispondono ad alcuni criteri)
seguendo un certo ordine (ad esempio ordine alfabetico dei rispettivi
"dato1")
come posso fare? (spero di essermi spiegato bene)
grazie

dp,

<code status="not tested">
        use locale;	# allows sorting with extended characters
 
	$SORT_NDX=...;	# sorting field number
	$GREP_NDX=...;	# grepping field number
        print (
		sort { 
			(split /,/,$a)[$SORT_NDX] cmp 
				(split /,/,$b)[$SORT_NDX]
		} (
			grep (split /,/)[$GREP_NDX]=~/your_condition/,
				<>
		)
	)
</code>
	Alla prossima,
		Marco
Newsgroup: it.comp.lang.perl
Titolo: Compilazione Perl

Ciao
Scusate la domanda un po' banale, ma del Perl non so praticamente niente.
Discutendo con un amico programmatore mi è stato detto che il Perl è
compilabile.
Da quanto mi risultava si tratta di un linguaggio interpretato.
Qualcuno mi può illuminare in merito?
Ammesso che esista un compilatore, per quali piattaforme esiste?
Gli eseguibili sono in p-code o in codice nativo?
Sono decompilabili facilmente, cioè mantengono sufficienti informazioni
all'interno da permettere di risalire facilmente al sorgente che li ha
generati?
Grazie
Ciao
GG

 Gli eseguibili sono in p-code o in codice nativo?
   E` anche possibile pre-compilare un programma Perl in p-code e poi 
esegurilo successivamente, in pratica separando le due azioni del 
programma perl sopra esposte.
   Per questo, e per molto di piu`, consultare:
	$ perldoc perlcc
-- 
Alla prossima,
Marco

 Da quanto mi risultava si tratta di un linguaggio interpretato.
Non è del tutto esatto: un programma in Perl è semi-compilato, ovvero
compilato per una macchina virtuale che poi lo interpreta.
Ciao,
 Emmanuele.
-- 
Emmanuele Bassi (Zefram)           [ 
http://www.radiance.d2g.com/~zefram
 ]
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

 esplicitato come accade in Java o nell'architettura .NET.
Se non vado errato, immagino che debba per forza mantenere molte
informazioni all'interno dello pseudocompilato, ad es. nomi di variabili e
funzioni "pubbliche" (scusate la terminologia se errata nel contesto Perl).
Come Java (e .NET) da quel che ne so.
Quindi tali informazioni possono essere usate per risalire ai sorgenti
originali, o almeno a buona parte di essi, come succede con Java (e .NET).
In tal modo il proprio lavoro è praticamente di pubblico dominio.
Giusto?
Ammesso di operare in un contesto in cui la riservatezza del codice è
importante, se non altro per rendere arduo il cracking dei programmi o la
comprensione degli algoritmi usati, come si potrebbe conciliare questa
esigenza con l'uso del Perl quale linguaggio/ambiente di sviluppo?
Ve lo chiedo perchè nella mia esperienza lavorativa mi sono trovato più
volte a decidere quale linguaggio adottare e a dover escludere linguaggi
molto interessanti e ricchi quali Perl, PHP, Python, Java, ecc per mancanza
di "protezione" del lavoro.
Ciao
GG

esigenza con l'uso del Perl quale linguaggio/ambiente di sviluppo?
Cripti il sorgente. Non so se sia una protezione particolarmente efficace,
ma comunque e' possibile.
Ciao.

 di "protezione" del lavoro.
   Dipende cosa intendi per "protezione" e cosa per "mancanza".
-- 
Alla prossima,
Marco

 reverse engineering di qualsiasi applicazione,
Questo è vero, è solo una questione di complessità e quindi di tempo e
costo.
Grazie a tutti per le delucidazioni.
Ciao
GG
Newsgroup: it.comp.lang.perl
Titolo: Database e Web

Ciao a tutti.
Forse non so' piu' fare le ricerche su Google o C-Pan... Per cui ho 
bisogno di un vostro consiglio.
Cosa esiste di FREE e valido per sviluppare procedure sul WEB?
Ora uso delle basi dati in ASCII e apprezzo le ricerche con le 
"Espressioni Regolari" ma andando avanti le cose si complicano.
Ecco che mi servirebbe qualcosa di semplice, magari con l'SQL delle DBI, 
anche se non ho i dati in chiaro(testo sigh).
Qualcosa come un modulo o due che gestiscano tutto: tabelle relazionate, 
sessioni, utenti, interfaccia web ma che nello stesso tempo posso 
cambiare e personalizzare a piacimento dal mio script.
Sapete se esiste qualcosa del genere o sto' chiedendo la luna?
Un sincero saluto a tutto lo stupendo e impareggiabile it.comp.lang.perl!
Andrea

 Un sincero saluto a tutto lo stupendo e impareggiabile it.comp.lang.perl!
Un saluto a te.

 farlo) forse ti si può dare qualche dritta.
Ho un DB con tabelle di prodotti, tabella fornitori, sconti, listini, etc.
Su WEB voglio visualizzare in varie forme i dati, e chi ne ha i 
'permessi' puo' modificarli a livello di campo o di record.
Queste procedurine sono diverse per ogni sito che gestisco.
Pensavo a dei moduli perl da aggregare, ma non voglio scrivere molto 
codice e nello stesso tempo non vorrei qualcosa che fa tutto lui. 
Qualcosa che sia facile da capire e che il LOW-level (come le sessioni, 
ecc.) se lo gestisca lui.
Che dite mi iscrivo a "Chi vuol essere Milionario?".
Saluti a tutti.

arf wrote:

Direi che non ce n'è bisogno: gestione delle sessioni, 
dell'autenticazione e delle autorizzazioni è il minimo che si debba 
chiedere ad un qualsiasi web-framework.
Invece non mi è ancora chiaro cosa intendi per /facile da capire/, né se 
ti serve un'applicazione CRUD generica o un'applicazione più 
specificamente di e-commerce.
Vediamo, cito un po' di keyword... Hai familiarità con gli ORM, con il 
paradigma MVC, con la programmazione OO in Perl (o hai un po' di tempo 
da investirci)?
Se sì, ci sono una serie di soluzioni (molto potenti), altrimenti ce ne 
sono altre (più semplici ma meno potenti).
Anche qualche ulteriore dettaglio sul dominio applicativo sarebbe utile 
(e-commerce, gestionale, altro?)
Saluti.

 Saluti.
Saluti Andrea

 Gestionale con poche tabelle in piu' altre cose varie con i DB.
Se invece ti serve proprio un gestionale, prova con SQL-Ledger, 
Ledger-SMB, Oratio:
http://www.sql-ledger.com/
http://www.ledgersmb.org/
http://www.oratio-project.org/
sono tutti e tre web-based, e si tratta di variazioni dello stesso 
progetto originario (SQL-Ledger: gli ultimi due sono dei fork).
Ciao.

 Ciao.
Tutto molto, molto interessante.
Lavorando....Ero rimasto un po' indietro, ora studio e mi aggiorno.
Inutile dormire la notte ;-)
Ti ringrazio vivamente di tutto Emanuele.
Andrea

 Ledger-SMB, Oratio:
http://www.sql-ledger.com/http://www.ledgersmb.org/http://www.oratio-project.org/


 Ottobre :-)
Un incubo piů che altro ;-)

 Un incubo più che altro ;-)
Anzi! A fine talk venivi circondato da eccitatissime conigliette di
Playboy!
Newsgroup: it.comp.lang.perl
Titolo: Leggere ultima parte di file

Su un server ho un file logs.txt che contiene gli accessi ad un sito; 
Il file è cosi' strutturato: (viene scritto in append) 
:Int(++):time:ip:user_agent:\n; 
Sto scrivendo un'applicazione Client che preleva il file e lo porta sul 
mio PC,poi 
faccio il loro split e stampo i dati. 
Ora ad ogni nuovo lancio dell'applicazione lo script ri-preleva il file 
logs.txt 
dal server etc... 
Io invece vorrei che mi leggesse [u]solo[/i] i nuovi accessi rispetto 
alla vecchia chiamata dello script e non tutto il file per intero! 
Cosi' da poter risparmiare banda,tempo di download etc... 
Avete qualche idea al riguardo?


Un file di testo chiaramente non e' quello che fa per te.
Sarebbe ora di considerare un database.
Anche un semplice file DBM ti renderebbe la vita piu' facile.
Volendo tenere il file di testo, puoi usare il comando tail, se il tuo server e'
in Unix, ma questo significa che la tua applicazione deve avere l'autorizzazione
ad eseguire comandi shell, e questo sarebbe un inutile aggravio di sicurezza.
Buttati su un database, va!
Per esempio:
http:
search.cpan.org/perldoc?DBD::SQLite
Ciao
gmax
-- 
   ____ ____  _____ _   _
  / _  |    \(____ ( \ / )
( (_| | | | / ___ |) X (
  \___ |_|_|_\_____(_/ \_)
(_____|
MySQL Certified Professional
Sapere, saper fare, fare, far sapere
http://gmax.oltrelinux.com

Newsgroup: it.comp.lang.perl
Titolo: /usr/bin/sendmail

IIS che cosa usa per spedire l'email!?!
Poi basta che cambio la riga con scritto /usr/bin/sendmail e metto il nuovo
prog che usa iss o devo scrivere altre cose
Grazie in anticipo

 wrote:
Spedisci direttamente via SMTP.
-- 
Ciao, Maurizio.

 ha scritto nel messaggio
news:8rpb1a$ph2$1...@pegasus.tiscalinet.it...


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

Newsgroup: it.comp.lang.perl
Titolo: script per socket

su piattaforma win32 vorrei realizzare uno script che mi colleghi ad
un server pop3, faccia il log e cancelli tutti i messaggi di un
account.
E' piu` semplice in perl o python? Posso scegliere in quanto non
conosco nessuno dei due.
ciao e grazie
Manfry

 account.
Nell'altro linguaggio non so, in Perl *dovrebbe* bastare questo (non
l'ho testato):
#######
use Mail::POP3Client;
use strict;
my $pop = new Mail::POP3Client( USER     => 'me',
                                PASSWORD => 'mypassword',
                                HOST     => 'pop3.do.main' 
			      );
foreach my $indice_email ( 1 .. $pop->Count() ) {
	$pop->Delete( $indice_email )
}
$pop->Close();
#######
Per installare il modulo pop3client, basta dare:
ppm install pop3client
da prompt di dos, quando sei collegato ad internet.
Una volta installato da prompt di dos puoi consultare la documentazione
con un:
perldoc mail::pop3client
oppure dal file html che *dovrebbe* avere questo path:
C:\Perl\html\site\lib\Mail\POP3Client.html
-- 
$_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572,,($_,$b)=
split?#?;@b=split?;?;map{$c.=$_,$d.=chr$b[$e++]+ord}split??,pack'H24',$b
;chop$d,print$c.chr(32).$d
Newsgroup: it.comp.lang.perl
Titolo: data precedente o successiva...

Se ho una data in formato gg/mm/aaaa, come faccio a trovare la data
precedente (o successiva) tendendo conto dei bisestili?
Mi devo costruire io la funzioncina (non difficilissimo per la verita', ma
se avete suggerimenti...) o c'e' qualcosa di gia' fatto (non ho trovato
nulla nelle librerie ne nelle built in functions)?
Grazie
Maurizio C.

 data precedente (o successiva) tendendo conto dei bisestili?
  Consulta la manualistica del modulo Date::Calc (ed, eventualmente, di
Date::Manip). C'e` tutto quello che ti serve: in particolare, concentra
la tua attenzione sulle funzioni Add_Delta*. ;)
	Alla prossima,
		Marco
PS Date::* e` distribuito con l'ActiveState PERL, altrimenti lo trovi
nel CPAN.

Newsgroup: it.comp.lang.perl
Titolo: Altra urgenza estrazione da zip o tar

azz...  comprimo e ok!.. ma poi  non capisco come si estraggono i file!!
 Help!!...
Grazie infinite.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.465 / Virus Database: 263 - Release Date: 25/03/2003

 Grazie infinite.
Anche qui credo di aver capito, grazie.:)
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.465 / Virus Database: 263 - Release Date: 26/03/2003

Anche qui credo di aver capito, grazie.:)
Be, potresti renderci partecipi, visto che hai fatto tutto da
solo...finisci :)
Condividi il tuo sapere con le future generazioni...
un pigmalion filantropo
--
www.pigmalion.info
www.pigmalion.info/perl/

 
www.pigmalion.info/perl/

               # $zip->extractMember($memberName);
ecco come estrarli tutti :
     my $zip = Archive::Zip->new();
     my $status = $zip->read($zipFile) ;
     my @membersA =$zip->memberNames();  //  nomi
     my @members = $zip->members();  //  alternativa
     foreach my $memberName (@membersA){
             print "Extracting $memberName\n";
             $zip->extractMember($memberName);
        }
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.465 / Virus Database: 263 - Release Date: 25/03/2003

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

Ciao a tutti.
Quando digito il comando ./mysqld mi appare il seguente messaggio di
errore:
ERROR 2002: Can't connect to local MYsql server through socket
'/tmp/mysql.sock' (111)
Questo file in /tmp non esiste, e se dovessi crearlo come si deve
procedere?
2. Come si puo' impostare l'ip del proprio server anziche' localhost in
Mysql?
Grazie a tutti
Corrado

 procedere?
esiste ma non lě
find / -name mysql.sock
e poi crea un link simbolico in /tmp
Wiz of Id

Grazie.


Newsgroup: it.comp.lang.perl
Titolo: Leggere un file al contrario

Vorrei leggere un file partendo dall'ultima riga fino alla prima !
Ma come si fa ?
Grazie

 Ma come si fa ?
Hai già posto questa domanda. Ti ha risposto Michele Beltrame. Se il suo
suggerimento non ti soddisfa, è meglio che ne spieghi il motivo, anziché
riproporre la stessa domanda.
Max

 wrote in message 3AD050B4...@usa.net...

Newsgroup: it.comp.lang.perl
Titolo: STATISTICHE CON GCI

volevo realizzare e capire come funzionava un gci per il conteggio delle
statistiche di un sito.. qualcuno mi può fornire il codice di un gci che
svolga il seguente compito???
per caso esiste un decompilatore ei cgi??? o sono come gli eseguibili che
non puoi decomplilare??
grazie
Ravara Stefano
Supporto Tecnico Stileitalia
www.stileitalia.it
sup...@stileitalia.it
ICQ 36389650
-------------------------------------

 non puoi decomplilare??
A parte che, a schiaffi, decompili anche gli eseguibili, ma ..... Jai
mai visto un CGI?
#!/usr/bin/perl
print "Contant-type: text/html\n\n";
print "Ciao mondo\n";
Cosa c'è da decompilare? Forse intendi i CGI in C, ma ne trovi veramente
uno su diecimila!!!
Ciao
M.
-- 
:wq

in che senso splitti a go-go?? che intendi??
intendi che realizzo io direttamente un db con i campi che voglio e
incremento secondo le caratteristiche del client??
ciao e grazie



Esempio: una linea di access.conf di Apache:
127.0.0.1 - - [01/Oct/2000:15:55:37 +0200] "GET /index.html HTTP/1.0" 200 1406
(ok, non è molto dettagliato ma per un server locale non è che mi
interessi!)
Su tale linea, esegui degli split il più intelligenti possibli in modo
da avere (ad esempio, non è riferito al pezzo di log lì sopra):
l'IP del richiedente, la pagina richiesta, l'user_agent (browser e via
di seguito).
Poi ti registri i dati e se, ad esempio, hai già la riga con il browser
netscape e ritrovi un altro netscape, incrementi la riga cn il numero di
volte che un browser netscape ha inoltrato una richiesta al tuo server.
Cmq, ci sono moltissimi script che fanno quello che chiedi, magari
vattene a leggere qualcuno così vedi come funziona in profondo.
Ciao
M.
-- 
:wq

 di seguito).
    Ma il caro vecchio %ENV, non si usa piu'?
_dave_

     Ma il caro vecchio %ENV, non si usa piu'?
Non per tutto (e se guardi un file di log di un server lo capisci)
Ciao
M.
-- 
:wq

Newsgroup: it.comp.lang.perl
Titolo: Staus bar

Ho una status bar con scritto "Stato" come faccio a modificare questa
scritta!?!
Grazie in anticipo

 scritta!?!
Vuoi cambiare "Stato"? Emigra.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 scritta!?!
Vuoi cambiare "Stato"? Emigra nel newsgroup corretto (probabilmente
it.comp.lang.vb).


Newsgroup: it.comp.lang.perl
Titolo: Download file personalizzato

Ciao a tutti,
ho un problema in Perl... purtroppo non sono ferratissimo..ma nella
vita occorre imparare sempre!
Gestisco un'intranet aziendale e occorrerebbe che ogni utente entrando
nel sito, nell'area "Download buste paga" troverebbe ovviamente
soltanto la sua..
La cartella che le contiene è unica nel server ed in questa si trovano
i file in pdf.
Tramite username e pw accede alla home e da lì tramite il link "Buste
paga" dovrebbe essere richiamata la sua.
Tutto ciò era stato realizzato in asp, adesso valutavo la possibilità
di utilizzare il cms igsuite e quindi il perl!
Posso fare questo? E se si (come credo) da cosa dovrei partire?
Grazie anticipatamente.


puoi partire da:
http://www.perl.it/
Newsgroup: it.comp.lang.perl
Titolo: ERROR 500 internal server.....

ogni volta che tento di fare una OPEN.
I permessi sembrano a posto :((
che fare???
HELP ME :)
webm...@apollocere.it
--
_____________________________________________
Cereria  Apollo Arte & Magia  
http://www.apollocere.it
UIN 25694147   IRC # esoterismo  #misteri
_____________________________________________

...


 wrote:
: ogni volta che tento di fare una OPEN.
: I permessi sembrano a posto :((
: che fare???
Il CGI gira se eseguito da linea di comando?
Fai il log degli errori, del tipo:
open FILE, "file" or die "Non posso aprire $file: $!";
se si`, cosa leggi nei log del server?
Tieni conto che lo script viene eseguito con i permessi dell'utente con
cui gira il server. Di solito su un sistema *nix e con Apache (non dici
ne` quale sistema operativo usi, ne` quale server web... non e` un po'
poco per una richiesta di aiuto?) l'utente e` qualcosa come www-data.
-- 
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: Finestre, cornici etc tipo ncurses

Salve,
volevo sapere se esiste qualcosa di simile per gestire finestre, cornici,
campi evidenziati per menu etc,
modello ncurses o dialog per perl, ambiente linux console.
Vorrei riscrivere dei programmi da bash a perl.
Grazie mille.

 modello ncurses o dialog per perl, ambiente linux console.
Hai provato a cercare sul CPAN?
http://search.cpan.org/search?query=ncurses&mode=all
dove trovi diversi moduli che potrebbero fare al caso tuo (Curses,
Cursers::UI, ecc)
by
    - Enrico
--- have fun with 
www.perl.it
 ---
Newsgroup: it.comp.lang.perl
Titolo: windows e Perl

Salve a tutti, ho un problema con i moduli del perl.
Ho bisogno di installare i seguenti moduli:
    Crypt::CBC
    Crypt::Blowfish
    Crypt::Dijndael
Ho provato a seguire i consigli dati su 
www.perl.it
 ma non sono stato in
grado di installarli. Uso Active Perl 5.0.8 e windows xp.
Qualcuno potrebbe darmi un buon consiglio?
Grazie

 grado di installarli. Uso Active Perl 5.0.8 e windows xp.
Ciao, credo che tu stia parlando di Perl 5.8.0 :)
Allora, vista questa mail:
http://aspn.activestate.com/ASPN/Mail/Message/ppm/1817334
alcuni moduli non possono più essere conservati sui server ActiveState.
Dunque fai così:
1) apri una console
2) digita ppm
3) dentro la shell ppm digita
rep add uwinnipeg 
http://theoryx5.uwinnipeg.ca/ppmpackages/
4) dentro la shell ppm digita
s crypt
(s sta per search, fai help se dovessi aver bisogno)
5) dentro la shell ppm digita
i [numero del modulo]
(i sta per install)
Nel tuo caso ad esempio io avrei
7,1,58 (Rijandel)
Cosa hai trovato di poco chiaro su 
perl.it
?
Ciao :)

 grado di installarli. Uso Active Perl 5.0.8 e windows xp.
Ciao, credo che tu stia parlando di Perl 5.8.0 :)
Allora, vista questa mail:
http://aspn.activestate.com/ASPN/Mail/Message/ppm/1817334
alcuni moduli non possono piů essere conservati sui server ActiveState.
Dunque fai cosě:


 Cosa devo fare adesso?
Ti chiedo scusa, il repository che ti ho segnalato è per Perl 5.6.x
Quello per 5.8 è 
http://theoryx5.uwinnipeg.ca/ppms/
per cui devi:
1) da ppm digita
rep
che ti mostra l'elenco dei repository
2) digita rep delete [numero di uwinnipeg]
3) aggiungere 
http://theoryx5.uwinnipeg.ca/ppms/
 come ti ho descritto 
precedentemente
Ciao :)

 ha scritto nel messaggio
news:bnug9u$6r5$1...@news.ngi.it...

Newsgroup: it.comp.lang.perl
Titolo: fprintf

Vorrei inserire in un file html le variabili contenute in @lista, mi spiego
meglio:
ho creato un file fatto pressappoco cosi'
<HTML>
<TITLE>%s</TITLE>
......
e una cgi perl che mi prende i valori inseriti in una form e li mette in
@lista, ora vorrei
che non solo mi venisse visulizzato nel browser il file ma che esso venisse
modificato
stabilmente, ho provato con
$file = "/qualcosa/altro.htm"
open(FILE, ">$file");
@file_old = <FILE>;
sprintf @file_old, @lista;
printf FILE @file_old;
close(FILE);
ma non funziona, penso che il problema sia nella sprintf, mi servirebbe
qualcosa come
fprintf di C, ma non mi risulta che ci sia in Perl.
Grazie per l'aiuto.
Saluti
Mario







Regola numero 1: Usare il flag -w
Ci sono almeno 3 errori o inesattezze nel tuo codice.
1) Se apri il file in scrittura, dubito che tu riesca a leggerci (provare)
2) sprintf deve pur mettere il risultato in una variabile, altrimenti a che
   serve?
3) sprintf considera il primo elemento della sua lista di argomenti il
   formato: se gli da un array in cui hai letto le righe del file, considera
   come formato solo la prima riga e le altre come argomenti!
Quindi, presupponendo che il file di formato e quello di uscita siano
distinti...
  $frm = "formato.frm";
  $file = "uscita.out";
  open FRM,"<$frm" 
      or die "Non posso aprire $frm: $!";
  { local $/ = undef;       ### Per leggere tutto il file in una stringa
    $file_frm = <FRM>;
  }
  close(FRM);
  open FILE,">$file" 
      or die "Non posso aprire $file: $!";
  $new_file = sprintf $file_frm, @lista;
  print FILE $new_file;
  close FILE;
Se vuoi lavorare con lo stesso file, le cose si fanno molto molto piu'
incasinate.
A spanne direi: leggi per righe, e per ogni riga se ci sono placeholder %x 
fai una sprintf estranendo da @lista il numero giusto di parametri da passare,
consumandoli a poco a poco.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 fprintf di C, ma non mi risulta che ci sia in Perl.
Ah.
la fprintf del C e'
  printf FILE format,@lista;
 
in Perl.
M.


Grazie !!!!!
Mario
ma...@net4u.it

Newsgroup: it.comp.lang.perl
Titolo: Sono disperato!!!

Ragazzi, aiutatemi voi! Non riesco assolutamente ad eseguire script cgi
sulla mia macchina dotata di sistema win95 e server apache 1.3! Ho letto di
tutto e scaricato dalla rete l'impossibile per configurare apache per
l'esecuzione degli script in perl. Per favore, qualcuno sarebbe cosě gentile
da potermi inviare i propri file di conf di apache
(htpd.conf,access.con,srm.conf) cosě da poterli
confrontare???????????!!!!!!!!!!!!!! Ve ne sarei infinitamente grato!!!
--
Toni

...

Newsgroup: it.comp.lang.perl
Titolo: Intepretare del testo come variabile

Salve,
mi rendo conto del subject un po' "oscuro", ma e' quello che dovrei fare.
Ho il (solito?) problema di dover recuperare dei valori di variabile da
alcuni file contenenti definizioni di variabili BASH. Purtroppo per un
discorso di priorita' di questi file, mi sono reso conto di non poter
esaminare lo stream del comando bash "set". Il problema l'ho quasi risolto
esaminando i file in sequenza ed estrapolando i valori dopo il segno di
uguale, se non fosse per il fatto che alcune variabili sono del tipo:
VAR1=/usr/location
VAR2=${VAR1}/location2
Tramite l'uso di operatori quali tr/// e s///, riesco ad ottenere:
$var1/location, ma una volta che la mia funzione mi ritorna questa
stringa, $var1 non viene interpretata come variabile, bensi' come puro
testo. Come potrei ovviare al problema?
grazie,
-- 
= active @ actisystem =
GIT d- s:+>: a-- C+++ UL++++ P++ L+++ E--- W+ N+ 
o? !K w-- O-- M- V? PS+(++) PE Y+>++ PGP++ !t 5? 
X++(+) R(+) tv+(++) b+>++ !DI D+ G e>++ h! r++ x*

testo. Come potrei ovviare al problema?
Intanto perl comprende la sintassi ${var1}, sicché l'eliminazione delle
graffe non è necessaria.
Per il resto:
   $var2 = "${VAR1}/location2";
Guarda anche la funzione eval, e ho il sospetto che ci sia anche qualche
modulo che potrebbe aiutarti nell'interpretazione del file.
Ciao.

 modulo che potrebbe aiutarti nell'interpretazione del file.
Si avevo pensato anch'io di usare eval, ma non c'e' stato verso di
fargliela prendere. Per quanto riguarda l'uso di moduli aggiuntivi
purtroppo non ne posso utilizzare poiche' lo script dev'essere eseguito su
qualsiasi macchina.
Dopo lungo penare sono riuscito a trovare una soluzione, che sinceramente
la trovo anche banale :) Invece di fare il source di tutti i file
generali, ricerco le variabili che mi servono, le inserisco in un file
temporaneo ed eseguo il source di questo, evitando cosi' la re-difinizione
di variabili settate in files con priorita' maggiore.
grazie comunque,
bye


fargliela prendere.
"Non c'č stato verso di fargliela prendere" mi fa venire in mente uno che
sta tentando di dare le medicina per il cimurro al gatto, piů che una
qualsiasi ragionata tecnica di programmazione. Che cosa dai da interpretare
a eval, e che cosa ne ottieni?
Per restare sull'esempio, se la variabile $var1 contiene '/usr/location', e
la variabile $var contiene '${var1}/location2', l'assegnazione $var2 =  eval
qq("$var") č il modo per "fargliela prendere": 
  $var1 = '/usr/location';
  $var  = '${var1}/location2';
  $var2 = eval qq("$var");
  print $var2; # /usr/location/location2
Ciao.

 a eval, e che cosa ne ottieni?
Si, effettivamente hai ragione. Volevo sottointendere che ero io che
sbagliavo ad usare eval. Infatti ho provato col tuo metodo e funziona.
grazie,

Newsgroup: it.comp.lang.perl
Titolo: GUI e compilatore

ciao, e' tanto che non uso perl, l'ho usato anni fa soltanto per la
creazione di CGI :)
la mia richiesta e' un po' particolare: vorrei sapere se esiste un framework
per lo sviluppo di GUI application in Perl e mi servirebbe anche un buon
compilatore..
ho un sorgente di una console application e avrei bisogno di modificarla
aggiungendoci una GUI..
mi potete aiutare?
grazie :)

 aggiungendoci una GUI..
Come ho scritto in un precedente post, esistono parecchie GUI:
Sicuramente multipiattaforma
=============================
1) Tk     
http://search.cpan.org/~ni-s/Tk804.025
 beta2/
            acuni binari su 
http://www.perltk.org/
2) wxPerl 
http://wxperl.sourceforge.net/
3) Prima  
http://www.prima.eu.org/
4) Gtk2   
http://sourceforge.net/projects/gtk2-perl/
Solo windows
============
1) Win32::GUI 
http://dada.perl.it
 
http://jeb.ca/perl/win32-gui-docs/index.pl/home
http://perso.club-internet.fr/rocherl/Win32GUI.html
Solo *nix?
==========
1) Qt 
http://search.cpan.org/~ggarand/PerlQt-3.008/
Abbandonati?
============
1) Gtk   
http://www.gtkperl.org
2) Fltk  
http://search.cpan.org/~mkennedy/FLTK-0.52/
Per quanto riguarda la creazione di eseguibili, ancora da un precedente 
post:
Commerciali
===========
1) perl2exe 
http://www.indigostar.com/perl2exe.htm
2) perlapp (fa parte del PDK 
http://www.activestate.com/Products/Perl_Dev_Kit/
)
Open source
===========
1) PAR 
http://search.cpan.org/search?query=PAR&mode=module
2) App::Packer 
http://search.cpan.org/search?query=App%3A%3APacker&mode=
module
3) TinyPerl 
http://tinyperl.sourceforge.net/
4) perlbin 
http://perlbin.sourceforge.net
Per quanto riguarda i tool che ti agevolano nella creazione di una GUI:
Win32::GUI
==========
1) 
ftp://ftp.wh.whoi.edu/pub/gb109.zip
2) 
http://www.bahnhof.se/~johanl/perl/Loft/
3) 
http://homepage.tinet.ie/~jmcnamara/perl/dfm2gui.html
4) 
http://search.cpan.org/~bsdz/win32-gui-xmlbuilder/
wxPerl
======
1) wxdesigner 
http://www.roebling.de
 (che però non è free)
2) VisualWx 
http://visualwx.altervista.org/
3) 
http://wxglade.sourceforge.net/
Tk
==
1) 
http://www.18rabbit.com/products/tikiartist.htm
 utilizzabile però
solo da win32 (anche se il codice prodotto è utilizzabile ovunque)
2) 
http://spectcl.sourceforge.net/
 assieme a SpecPerl
http://www.keck.ucsf.edu/~kvale/specperl
3) 
http://guido.sourceforge.net/
Gtk
===
1) Glade: 
http://glade.gnome.org/
assieme a glade-perl:
http://www.glade.perl.connectfree.co.uk/index.html
Infine delle slide che possono aiutarti:
http://jouke.pvoice.org/yapc-europe-2003/index.html

 ha scritto nel messaggio
news:bs70vp$n8e$1...@news.ngi.it...
