mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: text around a circle

Hi,
I'm looking for a piece of code to generate a text around a circle.
I appreciate any idea.
Thx.

I appreciate any idea.
Non è chiarissimo che cosa voglia dire, in ambito perl, "generare un testo
intorno a un cerchio", né l'uso dell'inglese in un gruppo italiano.
Direi che dipende, innanzitutto, da come e dove dev'essere prodotto il
testo (perl di per sé non ha capacità grafiche). In secondo luogo non si
capisce se la linea base del testo deve girare intorno al cerchio; o si
vogliono scrivere delle righe di testo orizzontali, che contornino il
suddetto cerchio.
It's no clear what should mean, in perl, "generate a text around a circle":
in which context, by which device? perl doesn't have any graphical ability,
so you need something between perl and... what? the screen? a printer? And
do you want the text to be curved around the circle; or a paragraph of
text, shaped so that to have a blank, circular hole? And, by the way, why
are you using English in an Italian newsgroup?
Ciao.

 writes:
Abdel> Hi,
Abdel> I'm looking for a piece of code to generate a text around a
Abdel> circle.
just a thought (ometto le ottimizzazioni per renderlo piu` comprensibile):
#!/usr/bin/perl
$PI=3.1415926;
$text="a text generated around a circle";  $lt=length($text);
$lines=16; $large=$lines;
for ($i=0,$oj=$j=0; $i<$lines; $i++,$oj=$j,$j+=int($lt/2/$large)) {
  $angle=$PI*$i/$lines;
  $sl=$large*(1-sin($angle));
  $sc=$large*(2*sin($angle));
  print( (' ' x $sl)
	.(substr($text,$lt/2-$j,$j-$oj))
	.(' ' x $sc)
	.(substr($text,$lt/2+$j,$j-$oj))."\n");
}
Abdel> I appreciate any idea.
how much?
take a look at  
http://mar.i.am/?usiclp1
move the mouse over the MM logo and you generate a text around a circle.
Abdel> Thx.
Saluti,
MARco
-- 
x(t),y(t) = th(3t-34.5)*e^[-(3t-34.5)^2]/2-4.3+e^(-1.8/t^2)/(.8*atg(t-
3)+2)(t-1.8)-.3th(5t-42.5),(1.4e^[-(3t-34.5)^2]+1-sgn[|t-8.5|-.5]*1.5*
|sin(pi*t)|^[2e^(-(t-11.5)^2)+.5+e^(-(.6t-3.3)^2)])/(.5+t)+1  ; 0<t<14

 writes:
Abdel> Hi,
Abdel> I'm looking for a piece of code to generate a text around a
Abdel> circle.
just a thought (ometto le ottimizzazioni per renderlo piu` comprensibile):
#!/usr/bin/perl #Perl sample by MARco 
mar.i.am
$PI=3.1415926;
$text="a text generated around a circle";  $lt=length($text);
$lines=16; $large=$lines;
for ($i=0,$oj=$j=0; $i<$lines; $i++,$oj=$j,$j+=int($lt/2/$large)) {
  $angle=$PI*$i/$lines;        #current angle 0..$PI
  $sl=$large*(1-sin($angle));  #spaces from the left
  $sc=$large*(2*sin($angle));  #spaces in the center
  print( (' ' x $sl).(substr($text,$lt/2-$j,$j-$oj))
	.(' ' x $sc).(substr($text,$lt/2+$j,$j-$oj))."\n");
}
Abdel> I ap
Abdel>     preciate any idea.
how much?
take a look at  
http://mar.i.am/?usiclp1
move the mouse over the MM logo and you generate a text around a circle,
it was by in perl.

Newsgroup: it.comp.lang.perl
Titolo: Risoluzione del dominio a partire dall'indirizzo IP

Salve a tutti,
ho la necessità di inserire uno script perl per individuare il nome del sito
di provenienza del contatto.
Uso Perl per Windows95 build 316.
Ho provato questo ma non funziona.
--------
#! c:\perl\bin\perl
$ipaddr = "207.200.73.73";
$name = gethostbyaddr ($ipaddr) ;
print $name;
-----
Ho sbagliato qualche cosa?
Grazie in anticipo
Saluti
Marco Graux
gr...@caspur.it

 print $name;
cosi` funziona
-----------------------------------------
#!/usr/bin/perl -w
use Socket;
$ipaddr = inet_aton("207.200.73.73");
$name = gethostbyaddr($ipaddr, AF_INET) ;
print $name;
------------------------------------------
-debe
.................................................................
No kings, no presidents, just a rough consensus and running code.

 wrote:
: ho la necessità di inserire uno script perl per individuare il nome del sito
: di provenienza del contatto.
: Uso Perl per Windows95 build 316.
: Ho provato questo ma non funziona.
: --------
: #! c:\perl\bin\perl
: $ipaddr = "207.200.73.73";
: $name = gethostbyaddr ($ipaddr) ;
: print $name;
: -----
: Ho sbagliato qualche cosa?
Si, la gethostbyaddr vuole due valori, l'indirizzo sotto forma
binaria e il tipo di indirizzamento:
gethostbyaddr ADDR,ADDRTYPE
il modo piu` semplice di fare quello che ti serve probabilmente e`
quello di usare il modulo Socket:
use Socket;
@addr = gethostbyaddr inet_aton("207.200.73.73"), AF_INET;
print "$addr[0]\n";
o se ti piacciono i one-liners:
perl -MSocket -e '@a=gethostbyaddr inet_aton("207.200.73.73"),AF_INET;print "$a[0]\n"'
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E

Newsgroup: it.comp.lang.perl
Titolo: [OT] In arrivo?

Ehi ragazzi, scommetto che è in arrivo un nuovo messaggio dell'ormai famoso
"guru bastonato" , perché ho visto un messaggio di prova in it.comp.www.cgi
che contiene solo una 'x', che di solito precede un posting su questo NG.
:-)
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"


Ciao Domizio,
questo post forse poteva essere risparmiato... :-/
Così non fai altro che lanciare la provocazione
innescando magari altri inutili thread (che come
accade troppo spesso ultimamente) che rendono questo
NG una piazzetta di paese. ;-)
by
   - Enrico
--------------------------------
Inviato via 
http://usenet.libero.it

> Così non fai altro che lanciare la provocazione
mah... almeno nelle mie intenzioni, lo scopo era quello di scoraggiare
ulteriori battibecchi, rendendo ridicolo (con annunciarlo in anticipo) ogni
successivo intervento in tal senso.
chissà, come spesso mi accade, il risultato sarà diverso dalle intenzioni

Newsgroup: it.comp.lang.perl
Titolo: Problema su formato data

uso
    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
    $date_string=localtime;
    $mon = $mon + 1;
    $year = $year + 1900;
per ottenere la data odierna
il problema è che questo script restituisce le date e i mesi anche in una
cifra singola, mentre a me servirebbe sempre a due cifre;
ad esempio
9/9/2001 deve diventare 09/09/2001
come posso fare?

AutoMAX wrote:

$mon=sprintf('%02d',$mon);
(idem x il giorno)
-- 
Saluti,
Giancarlo

 wrote in message
news:GlDB7.90294$1H1.9...@news.infostrada.it...


Newsgroup: it.comp.lang.perl
Titolo: problema di sicurezza?

ho bisogno di eseguire il seguente script perl:
!/usr/bin/perl -U 
use Net::Ping;
   $host = "192.168.1.160"; 
        $p = Net::Ping->new("icmp");
        print "$host is alive.\n" if $p->ping($host);
        $p->close();
# print "prova\n";   
 
i diritti di questo file sono:
-rwsr-sr-x   1 root     users         198 Dec 16 14:57 
provaping.pl
Se tento di eseguirlo come un normale utente
mi da l'errore: Can't do setuid
Come posso fare?
Pinella
 





La tua versione di Perl sembra non essere abilitata per eseguire script setuid
e/o il programma suidperl non e' installato o raggiungibile.
Verifica la versione di perl che stai usando.
Io ho verificato il tuo script su un Linux RedHat5.2 con perl 5.004_05
e mi funziona.
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: Facilissimo!

$S;   # e' una stringa  comprendente piu' linee con \n come fine riga...
devo fare un loop che passi tutte le righe una alla volta.
Come posso fare??
Grazie
Oxy

Oxy wrote:

qualcosa del tipo:
foreach $linea (split(/\n/,$S)) { }
-- 
Saluti,
Giancarlo


	foreach $line (split /\n/,$S) { do_something_with $line }
-- 
Alla prossima,
Marco

 foreach $linea (split(/\n/,$S)) { }
   Qualcuno dovrebbe scrivere un algoritmo per controllare le race 
condition sulle domande facili... :)
-- 
Alla prossima,
Marco

Grazie 1000... Contavo su di voi!:-)
Ciao
Oxy

o senza usare split, puoi agire direttamente sul contenuto ogni linea usando
semplicemente i modificatori 'm' e 'g' delle RE
In pratica:
    $string =~ /RE/mg:
$string viene presa una linea alla volta, e la RE viene applicata
direttamente alla linea. Qualche esempio pratico:
=========== CODE ==========
$_ = << '__EOS__';
line 1 uno
line 2 due
line 3 tre
line 4 quattro
line n niente
__EOS__
# legge una linea alla volta. $1 contiene la linea già chomp(ata) :-)
print $1 while /(.*)/mg;
# legge una alla volta e definisce $_ con la linea
# con for o foreach senza variabile di assegnazione
# $1 è assegnata a $_
for (/(.*)/mg) {print}
# usi direttamente il comando che vuoi sulla parte di linea che ti interessa
# questo ad esempio estrae e stampa la parola dopo il numero
print /\d\s(\w+).*/mg;
======== END CODE ============
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

e dimenticavo gli esempi più semplici di tutti:
    print  /(.*)/mg;
    @array = /(.*)/mg;
il cui effetto è identico a:
    @array = split /\n/;
solo che permette di estrarre quello che vuoi subito invece di splittare, e
poi estrarre le cose che ti servono dalla linea una per una.... come già
detto.



Grazie Domizio, troppa grazia...  me li copio subito negli appunti! :)
Oxy
Newsgroup: it.comp.lang.perl
Titolo: ritornare un array multidimensionale

Ciao ragazzi,
non sono esperto di perl ma mi trovo ad affrontare questo problema:
Devo far ritornare ad una funzione un array multidimensionale e poi 
lavorarci sopra, ma non riesco nemmeno a stamparlo!!
Sicuramente il problema è nel passaggio di parametri anche perchè se la 
stampa la faccio all'interno della sub è tutto ok, potete aiutarmi?? 
sotto c'è il codice.
Grazie
Nino
#!/usr/bin/perl -w
use HTML::TreeBuilder;
my @img=exlink("<html><head></head><body><img src=\"
www.nino.it
\"><img 
src=\"
http://z.about.com/f/lg/abT.gif\
" height=\"54\" width=\"154\" 
border=\"0\" alt=\"About.com\" />Ciao</body></html>");
for (@img }) {
       my($link, $element, $attr, $tag) = @$_;
       print
         "Hey, there's a $tag that links to ".
         $link.", in its $attr attribute, at ".
         $element->address().".\n";
   }
sub exlink{
my $tree = HTML::TreeBuilder->new();
$tree->parse(shift);
@img=$tree->extract_links('img');
return (\@img);
}

C'è una graffa di più, ma non è quello il problema, ecco il codice corretto.


   }
my @img;
push(@img, exlink("...."));
foreach $buf (@img) {
    my ($link, $element, $attr, $tag) = @$buf;
         print
           "Hey, there's a $tag that links to ".
           $link.", in its $attr attribute, at ".
           $element->address().".\n";
}
 sub exlink {
my @img=HTML::TreeBuilder->new()->parse(shift)->extract_links('img');
return \@img;
}
Non so.....prova cosě.
Mi sono limitato ad usare un push invece che una assegnazione.
Provare assegnare un indirizzo array ad un array non č che sia tanto chiaro
in un contesto lista. Questa č solo una mia visione dell'insieme.
Spero funzioni, ciao

in un contesto lista.
Infatti, ma non č che un push risolva le cose. L'unico modo di restituire
un array č... restituire un array:
        sub crea_array;
        my @array = crea_array();
        for my $el (@array) {
                print $el, "\n";
        }
        sub crea_array {
                my @array;
                for my $ind (1..100) {
                        push @array, $ind;
                }
                @array;
        }
Se si vuole restituire un reference, bisogna dereferenziarlo al momento
dell'assegnazione all'array:
        sub crea_array;
        my @array = @{crea_array()};
        for my $el (@array) {
                print $el, "\n";
        }
        sub crea_array {
                my @array;
                for my $ind (1..100) {
                        push @array, $ind;
                }
                \@array;
        }
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: stampare dei dati..

Salve a tutto il NG,
il mio problema è questo, sto  facendo un programma di gestione inventario,
tutto viene gestito da script cgi in una intranet, sono arrivato al punto di
generare i risultati a video e tutto funziona.
Adesso però dovrei dare la possibilità di indirizzarli alla stampante,
ovviamente avendo utilizzato un'interfaccia grafica per il programma, non
posso semplicemente utilizzare la funzione stampa del browser, avrei bisogno
di un metodo per inviare i dati da stampare direttamente alla
stampante.....oppure utilizzare un metodo alternativo..........come potrei
fare?
grazie a tutti
Claudio Bellucci

 fare?
Hai provato con il modulo Win32, come ti ho suggerito in risposta a un tuo
analogo post?
Ciao
MjdP

Newsgroup: it.comp.lang.perl
Titolo: solo numero......

come faccio a verificare se una stringa contiene solo un numero [una 
cifra] e non caratteri?

 cifra] e non caratteri?
if not ($stringa =~/\D/) {ecc.}
ciao.

 wrote:

danghiu

Gabriele Baldi wrote:

unless ($stringa =~/\D/) {ecc.}
oppure
if ($stringa !~/\D/) {ecc.}
oppure
if ($stringa =~/^\d+$/) {ecc.}
mi sembrano piu' "eleganti"
-- 
Saluti,
Giancarlo

Come si dice, "la classe non è acqua"...
;-)

 ;-)
Come dice Larry Wall:
TMTOWDTI
(There's more than one way to do it)
-- 
Saluti,
Giancarlo

Newsgroup: it.comp.lang.perl
Titolo: AIUTO!!! Per favore datemi una mano...

Non so assolutamente operare con il Perl, ma avrei bisogno di inserire nel
mio sito un programmino affinché alcuni visitatori possano usufruire di una
sezione a password con login...ho scaricato un programmino che pare
interessante (Htpasswd Password Manager V1.0) ma non lo so proprio
programmare...
Sarei davvero grato se qualcuno mi darà una mano, anche perché, sebbene con
qualche conoscenza arrivi a modificare alcune variabili, non so cosa voglia
dire chmod 777....
AIUTO, please!!
Grazie a tutti quelli che prenderanno in considerazione questo msg...
CIAO CIAO
NEO
"How do you know the differences between the dream world and the real
world?"

 programmare...
  Ti consiglio caldamente di acquistare uno degli infiniti libri su
(PERL|CGI|JavaScript|web|UNIX)*. Ce n'e` anche di fatti bene ed a poco
prezzo: potrebbero essere (come e` stato per molti, me compreso) un
ottimo punto di inizio.
	Alla prossima,
		Marco

dire chmod 777....
Indica i permessi di un file: 1=esecuzione 2=scrittura, 4=lettura.
Se metti 7 (che e` la somma di tutti) vuol dire che il file ha
tutti i permessi. "chmod 777" ne ha 3 consecutivi poiche' il primo
indica i diritti dell'owner del file, il secondo quelli del gruppo
ed il terzo quelli di tutti gli altri.
In questo caso e` probabile che ti venga richiesto di creare una
directory accessibili in lettura/scrittura da tutti. Solitamente
ad uno script si da invece la mask 755 (tutti lo leggono e lo
eseguono, ma solo l'owner puo` scriverlo).
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
 *updated!*
Newsgroup: it.comp.lang.perl
Titolo: [URGENTE] Invio E-Mail

Ciao a tutto il newsgroup.
Ho un problema urgente da risolvere. Ho scritto un
CGI che riceve i dati di un form e li invia ad un
indirizzo di posta elettronica tramite Sendmail.
Come faccio a farlo funzionare sotto Windows
(dove ovviamente non c'e' Sendmail)?
Il codice da cambiare e' il seguente:
$mail = '/usr/sbin/sendmail';
$destinatario = '
mia....@provider.com
';
open (MAIL, "|$mail -t") or die("Non trovo $mail!\n");
print MAIL "To: $destinatario\n";
print MAIL "Reply-to: $HASH{email} ($HASH{nome})\n";
print MAIL "Subject: Modulo di richiesta informazioni\n\n";
print MAIL "--- Dati dell'emissario ---\n";
print MAIL "Nome: $HASH{nome}\n";
print MAIL "Cognome: $HASH{cognome}\n";
print MAIL "--- Inizio Messaggio ---\n";
print MAIL "$HASH{messaggio}\n";
print MAIL "--- Fine Messaggio ---\n";
close(MAIL);
Per favore aiutatemi!!!
Grazie anticipatamente, Carmelo.

 (dove ovviamente non c'e' Sendmail)?
   Soluzione: utilizzare il modulo SMTP.pm.
-- 
Veri pirati noi siamo       Ma cosa c'e` di male?
Contro il sistema lottiamo  Ma cosa c'e` di strano?
Ci esercitiamo a scuola     Facciamo un gran casino
A far la faccia dura        Ma in fondo lavoriamo
Per fare piu` paura         Per capitan Uncino

    Soluzione: utilizzare il modulo SMTP.pm.
Saresti cosi' gentile da farmi un esempio di
come usarlo?
Ciao, Carmelo.

Carmelo wrote:

<code>
	use Net::SMTP;
	my $conn=Net::SMTP->new('dsthost.dstdomain.tld') or
		die 'Unable to connect to dsthost.dstdomain.tld';
	$conn->mail('me\@srcdomain.tld');
	$conn->to('you\@dstdomain.tld');
	$conn->data(
		"subject: Read the fucking manual\r\n\r\n".
		"Good bye!\r\n"
	);
	$conn->quit()
</code>


 $conn->quit()
STRA-GRAZIEEEEEEEE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Fin troppo semplice.
Ti saro riconosciente a vita. :-)))
Ciao, Carmelo.

Newsgroup: it.comp.lang.perl
Titolo: Sono stupido?

Perche` questo non funziona?
ftn@wonderland:2:~/outb$ls -l /usr/lib/ifmail/ifpack
-rwxr-xr-x   1 root     root        61576 Sep  3 15:13 /usr/lib/ifmail/ifpack
ftn@wonderland:2:~/outb$perl
system '/usr/lib/ifmail/ifpack' or print "$!\n";
No such file or directory
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

No such file or directory
Per ottenere l'exit status di un processo usa $? oppure l'intero
restituito da system()/256. Nel tuo caso dovresti scrivere
system('/usr/lib/ifmail/ifpack') and print "Execution failed\n";
perche' se tutto funziona (ifpack restituisce 0) system()
restituisce 0.
$! si riferisce ad errno del TUO processo, non di quello figlio
ottenuto da un fork(): la exec e' fallita nel figlio.
Il messaggio 'No such file or directory' si riferisce quindi a
qualcosa che e' successo *prima* della system() nel tuo programma.
lupus
-- 
------   
--      Molaro Paolo  
lu...@dei.unipd.it
 
lu...@maya.dei.unipd.it
------  Mamge', mange': nu sei chi ve mangia'. [FdA]
Newsgroup: it.comp.lang.perl
Titolo: Inserire una data in uno script

    Salve a tutti. Vorrei che uno script perl salvasse su un file di testo,
fra le altre cose, la data (ed eventualmente l'ora) della sua esecuzione;
diciamo che voglio fare un append ad un log file ogni volta che lo uso.
    Ora il problema e': esiste un modo facile (cioe' senza usare moduli
esterni) che permette una cosa simile? Denghiu'
_dave_

 ha scritto nel messaggio
news:8uumme$pce$3...@nslave3.tin.it...


 _dave_
open FH, ">> logfile.log";
$tm=gmtime; # oppure $tm=localtime;
print FH "$tm\n";
close FH;

Newsgroup: it.comp.lang.perl
Titolo: operazioni su immagini jpeg

esiste qualche modulo o programma perl da utilizzare per effettuare ad
esempio un ''resize'' di un'immagine?
grazie per eventuali indicazioni, anche generiche

 esempio un ''resize'' di un'immagine?
So che le ultime versioni di GD gestiscono anche i JPEG (ma non la
compressione dei GIF), ma non sono in grado in questo momento di darti
indicazioni migliori.
Pero' se le tue esigenze sono limitate (resize a poche scale fisse) e lavori
sotto unix esiste una coppia di programmi complementari che fa al caso tuo:
'cjpeg' e 'djpeg' (inclusi ed installati di default con linux, almeno con la
slackware e la red-hat).
Sono molto efficienti e si usano cosi':
[CODE]
  $cjpeg    = "/usr/bin/cjpeg -optimize";
  $djpeg    = "/usr/bin/djpeg -maxmemory 1024";
  [...]
  $image = "/path/del/file.jpg";
  $scale = 4 # Valori ammessi: 1, 2, 4, 8
  @img = `$djpeg -scale 1\/$scale $image |$cjpeg`;
  print "Content-type: image/jpeg\n\n";
  print @img;
[/CODE]
In effetti entrambi i programmi fanno molto piu' di questo, per cui ti
consiglio:
'man cjpeg' e 'man djpeg'
ciao, marco
--
Marco Cacchiani                                
e-mail:ma...@sirius.pisa.it
Public pgp key:         
http://www.sirius.pisa.it/marco/pgp_public_key.asc
Sirius Servizi Informatici                     e-mail: 
in...@sirius.pisa.it
Parco Teatro Pasolini, 1                       Phone:  +39 (50) 865120
I-56019 - Vecchiano                            Fax:    +39 (50) 860260
(Pisa - ITALIA)                                
http://www.sirius.pisa.it/

 grazie per eventuali indicazioni, anche generiche
use Image::Magick;
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

Newsgroup: it.comp.lang.perl
Titolo: Form -Menu a Discesa Scelta Multipla

Ciao a tutto il NG,
ho un piccolo problemino:
Sto facendo un programmino che ad un certo punto prevede un form di
inserimento dati che contiene un menu a discesa con l'opzione scelta
multipla, dopo l'invio dati al CGI, e quindi dopo il parse form, invece di
riportarmi tutti i valori selezionati nel menu a scelta multipla, mi rimane,
attribuito alla chiave, solo l'ultimo dei valori selezionati.... come posso
fare?
Aiutatemi sono in crisi....!!!
Grazie in anticipo da Emanuele.


Usa CGI.pm e fatti mettere da param() il valore in un array. Semplice.
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: perl & Microsoft Access

Ciao,
utilizzo Active State come interprete perl in winNT. Mi piacerebbe poter
utilizzare perl per automatizzare le operazioni con MS Access: accedere alle
tabelle, effettuare ricerche, trattare i dati in generale, insomma. Avete
qualche idea in proposito?
Grazie in anticipo.
Claves do Amaral
claves.d...@netbusiness.it

 Grazie in anticipo.
OK,
ci sono già arrivato: DBI. Grazie lo stesso.
Ciao
Claves do Amaral
claves.d...@netbusiness.it

qualche idea in proposito?
Ebbi tempo fa simile problema e lo risolsi radicalmente abbandonando Access
e passando a Mysql ed a Perl sotto Linux.
L' inizio e' un po' faticoso ma ora maneggio dati e tabelle anche senza
DBI: e' sufficiente far transitare le query in perl su un file ed usare
mysql in batch mode.
Velocita' , affidabilita'  ed elasticita' di programmazione mi paiono ora
molto superiori.
-- 
     Vallini Daniele
dval...@tiscalinet.it
vallini...@interfree.it

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

Linux:
Ma cosa è precisamente il Tk per Perl?
Dove posso scaricarlo?
E' vero che serve per generare applicazioni grafiche, insomma X?
Esiste una versione Windows che permetta di usare lo stesso sorgente?
GRAZIE 1000!
dan...@mindless.com

 ha scritto nel messaggio
news:1J1WWIC5$GA....@news1.galactica.it...


 sorgente?
  Si`.
	Alla prossima,
		Marco

Dove posso scaricarlo?
http://search.cpan.org
o, per la versione Windoze:
http://www.activestate.com
	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!

Esiste una versione Windows che permetta di usare lo stesso sorgente?
Certo, devi anche avere il Tcl per Windows.
-- 
The Hitman - 
http://members.xoom.it/hitman
 
e-posta : sonicblast (at) 
tiscalinet.it
 
Powered by Debian 2.2 (frozen) on a AMD K6-II machine - Wintel Free
-----> Le risposte stanno spesso in /usr/doc e in man comando <----

anche io non  ho capito perchè cosa bisogna avere per far
funzionare tk su win???
Primo tcl dove lo si può scaricare(indicando l'url completo
cioè non magari solo 
www.cpan.org
 ma tutto l'url che ti
porta già alla pagina di download).
E il perl/tk perchè nella prima pagina di
www.activestate.com
 noin trovo niente.
Grazie
* Sent from AltaVista 
http://www.altavista.com
 Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping.  Smart is Beautiful

www.perl.com
"lancinhouse" <jpbenoit...@libero.it.invalid> ha scritto nel messaggio
news:353a40e0...@usw-ex0108-061.remarq.com...

Newsgroup: it.comp.lang.perl
Titolo: Una parentesi graffa che non dovrebbe esserci...

Il mio interprete mi dice ciň:
C:\DOCUME~1\Erix>perl -w Erixmail.pl
Missing right curly or square bracket at Erixmail.pl line 315, at end of
line
syntax error at Erixmail.pl line 315, at EOF
Execution of Erixmail.pl aborted due to compilation errors.
Ora, il pezzo di codice incriminato č questo, ma perchč diavolo gli
mancherebbe una parentesi?!?
###### Appends messages in folders files ######
sub store {
my ($tmp, $file) = @_;
open (FH, '$file') or die "Can't open file for reading: $!\n";
$i = 1;
while (<FH>) {
 if (/^::.::$/) {
  $i++;  #Checks which mail number we are storing
 }
}
close FH;
open (FH, '>> $file') or die "Can't open file for appending: $!\n";
print FH "::$i::\n";
while (<$tmp>) {
 print FH "$_";  #Copies the message to $file (starting ::X:: ending
::END::)
}
print FH "::END::\n";
close FH;
}
--
bye
Erix    UIN: 72432400
http://erix.cjb.net

mancherebbe una parentesi?!?
Infatti non gli manca: è una segnalazione spuria  L' errore è un altro
e l' interprete si è imballonato.
Ciao


Fuochino: 
print FH "::END::\n";
Troppi punti ...

 mancherebbe una parentesi?!?
Non mi sembra che il tuo pezzo di codice abbia 315 linee, ma solo 19, 
quindi e' molto difficile rispondere.
Verifica le parentesi graffe su tutto lo script, magari te la sei 
"mangiata" in un altro punto, ma il perl segnala l'errore a fine script 
quando il conto delle parentesi non gli torna: non ha altro modo per 
indovinare dove te la sei dimenticata :-)
-- 
Saluti,
Giancarlo

Troppi punti ...
Non riesco a capire che cosa intendi. A me la parte di codice pubblicata
sembra a posto. Dal punto di vista sintattico, dico, che poi faccia quello
che dovrebbe fare non sono in grado di dirlo, perche' non so che cosa
dovrebbe fare.
Ciao.

 syntax error at 
altro.pl
 line 19, near "::END::)
Ciao

 quindi e' molto difficile rispondere.
Ne mancava una 150 righe prima :-)
Sorry


 
Ma quello era un pezzettino di un commento. :-)
Max

> syntax error at 
altro.pl
 line 19, near "::END::)
No, quella e' ovviamente una riga di commento spezzata dal mail reader. La
risposta dell'interprete al pezzo di codice pubblicato e ricostruito e':
 
erixmail.pl
 syntax OK
L'errore e' evidentemente in un altro punto.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: ora

raga, ho un problema col mio Orologio Esadecimale
io per prendere l'ora uso 
use POSIX qw(strftime);
$ora = strftime "%H:%M:%S", gmtime ;
pero' e' un'ora indietro, e quindi sono costretto a fare, prima
@orario = split(/:/,$ora,3);
$ore = @orario[0];
$minuti = @orario[1];
$secondi = @orario[2];
poi gli faccio
$ore = $ore + 1;
ma quando e' mezzanotte lui printa le 24, cosa sbagliata dato che
dovrebbe segnare 00
io ho risolto per adesso cosi'
$ore=~tr/24/0/;
print "$ore:$minuti:$secondi in decimale\n";
(non so se funziona devo provare la mezzanotte di domani ^_^)
pero' quando si cambiera' l'orario, si passa da solare a legale, o
viceversa (non l'ho mai capito) dovro' eliminare la riga
$ore=~tr/24/0/;
e la cosa non va bene, come posso risolvere????
bau

 $ore=~tr/24/0/;
Bello. Le 2 diventano le 0, le 12 le 10, le 23 le 03, le 14 le 10...
controlla cosa fa VERAMENTE tr//
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 
t'ha ragion...
l'ho scritto senza pensarci troppo, e oggi non ho fatto in tempo a
provarlo dato che sono uscito verso le 10 e tornato adesso :))))

Newsgroup: it.comp.lang.perl
Titolo: lanciare cgi da shell

Volevo porvi un piccolo quesito!
Come posso passare le variabili esterne al codice se lancio un file cgi da
shell?
GRAZIE


Puoi vedere il manuale di CGI alla sezione DEBUGGING, comunque in breve
basta semplicemente:
 
mio_script.pl
 name1=value1 name2=value2 name3=value3
oppure
 
mio_script.pl
 name1=value1&name2=value2&name3=value3
-------------
Marco Gazerro
Newsgroup: it.comp.lang.perl
Titolo: rimuovi duplicati: out of memory!

Ciao, uso questo script per eliminare duplicati da un file di testo, solo
che quando il file ha dimensioni > di 4 mb, ricevo un messaggio di errore:
out of memory
Infatti il processo perl arriva fino a 128 mb!
Come posso modificare lo script per evitare questo inconveniente?
ps. dove posso trovare programmini free (che non siano cgi)?
grazie
giorgio
#!/usr/bin/perl
open(FILE,"gio") ;
@FILE = <FILE>;
close(FILE);
foreach(@FILE){
push(@clean_names,$_) unless $seen{$_}++;
}
print $#clean_names;  # numero di elementi
#open(LOG,">>$logfile"));
open(LOG,">>gio1");
print LOG "@clean_names\n";
close (LOG);

close (LOG);
E fallo subito il print nel file nuovo non serve pasare per un altro array
print LOG unless $seen{$_}++;
}
close LOG;
close FILE;
cosi' dovrebbe risparmiare un bel po' di memoria cosi' su 2 piedi non mi viene
in mente nulla per evitare %seen.
Andanto off topic, se sei su unix
$ sort gio | uniq > gio2
a riga di comando e' piu' semplice
In ogni modo su file grossi sono operazioni che pesano.
-- 
Saluti,
Giancarlo

 close (LOG);
 my %seen;
 open FILE, "gio";
 open LOG,  ">>gio1";
 ++$seen{$_} while( <FILE> );
 print LOG keys %seen;
Max

  print LOG keys %seen;
sono allibito:
e' quattro volte piu' veloce, due volte piu' compatto e due volte meno
affamato di ram del migliore che era venuto in mente a me.
ciao, marco
--
Marco Cacchiani                                
e-mail:ma...@sirius.pisa.it
Public pgp key:         
http://www.sirius.pisa.it/marco/pgp_public_key.asc
Sirius Servizi Informatici                     e-mail: 
in...@sirius.pisa.it
Parco Teatro Pasolini, 1                       Phone:  +39 (50) 865120
I-56019 - Vecchiano                            Fax:    +39 (50) 860260
(Pisa - ITALIA)                                
http://www.sirius.pisa.it/
Newsgroup: it.comp.lang.perl
Titolo: Filtrare un file

Sono alle prime armi di perl perciň chiedo un po' di pazienza:
vorrei che il codice sottoriportato, filtrasse le righe di commento del file
di configurazione di Apache...
#!/usr/bin/perl
$file="/etc/httpd/httpd.conf";
open (HTTPD,"$file");
@lines= <HTTPD>;
close(HTTPD);
$sizeinline=@lines;
print "$sizeinline\n";
open (HTTPD,">$file");
for ($a=0; $a<=$sizeinline;$a++){
 $_=$lines[$a];
    if ($_=="^#")  {
         print HTTPD "\n";}
 else {
        print HTTPD $_;
         }
}
close (HTTPD);
Perň indipendentemente da tutto, il prg non filtra niente: Molto
probabilmente č errata la sintassi della condizione dell' IF.
Vorrei che se la stringa inizia con # il commento venga tagliato...perň come
dovrebbe essere?
Grazie in anticipo.
Angelo Gelmi
NB. Non preoccupatevi, ho una  copia di backup del file ;-)

 dovrebbe essere?
Tu programmavi in C, vero? Di vede dal for (sbagliato, oltretutto, perche'
conta una linea di troppo). E perche' contare le rige se non ti serve
l'indice?
Comunque il controllo che vuoi fare tu deve essere
  if (/^#/)
dal momento che == serve per i soli numeri, eq per le stringhe e =~ per
applicare le Regular Expression.
Inoltre stai sostituendo le righe di commento con righe bianche, che non mi
sembra migliori particolarmente la leggibilita' del file di configurazione.
Tra l'altro, l'operazione che vuoi far tu si fa in una riga sola (e dalla
riga di comando!)
 perl -ni.bak -e 'print unless (/^#/);' nomedelfile
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 come dovrebbe essere?
Prova qualcosa del genere:
--------------------------------------------------------
#!/usr/bin/perl -w
$file="httpd.conf";
open (CONF, "$file") || die "Can't open $file";
@lines = <CONF>;
close (CONF);
print "Prima della cura: ", scalar @lines, "\n";
open (CONF, ">$file") || die "Can't open $file";
$count = 0;
for (@lines) {
                $count += print CONF unless (/^#/);
}
close CONF;
print "Dopo la cura: $count\n";
--------------------------------------------------------
Ciao ciao,
Andrea
-- 
"...Unix, MS-DOS, and Windows NT (also known as the Good, the Bad, and 
 the Ugly)."
(by Matt Welsh)
Newsgroup: it.comp.lang.perl
Titolo: DIFFERENZE FRA SERVERS

Differenze fra servers
ecco due casi: 
1 sto su server f2s , dove nella mia cartellina 'cgi-bin' metto i miei
scripts Perl e documenti html e immagini gif,jpg......
tutto funge..... 
2 sto su un server di un mio amico 'unix,apache che costa pure...' nella mia
cartellina 'cgi-bin' metto i miei scripts Perl e FUNZIONANO, ma i documenti
html e le mie images gif,jpg NON FUNZIONANO, perche si autoeseguono, e
quindi mandano il classico errore 500.....
Dopo avere controllato i chmod...blablabla.....non sono arrivato a nessuna
conclusione........che si fa?

kryno2001 wrote:

   Hai due possibilita` che pero` non si autoescludono:
   1) Chiedi in un newsgroup dove si discuta la configurazione dei
      web server e di Apache in particolare;
   2) Controlli che la configurazione dell'Apache del tuo amico--che
      tra l'altro, a differenza della tua, e` corretta--non
      consideri tutto cio` che e` contenuto nella directory
      /cgi-bin/ solo come eseguibile.
-- 
Veri pirati noi siamo       Ma cosa c'e` di male?
Contro il sistema lottiamo  Ma cosa c'e` di strano?
Ci esecritiamo a scuola     Facciamo un gran casino
A far la faccia dura        Ma in fondo lavoriamo
Per fare piu` paura         Per capitan Uncino

 autoeseguono, e quindi mandano il classico errore 500.....
Apache e' gratuito, la directory cgi-bin e' configurata con la direttiva 
ScriptAlias ed e' corretto che se il file richiesto non e' eseguibile il 
server ritorni un errore.
La cosa che puoi fare e mettere i tuoi file in un'altra directory 
appositamente creata (sotto la documentroot) e aggiungere questa direttiva 
ad httpd.conf:
<Directory full_path_to_directory>
        Options +ExecCGI
</Directory>
in questo modo apache considerera' come CGI solo i file eseguibili mentre 
gli altri file verranno restituiti normalmente.
-- 
/federico

Newsgroup: it.comp.lang.perl
Titolo: Stringhe e sottostringhe

Ciao!
Eccomi con un nuovo quesito :o)
Come si fa a controllare se una stringa contiene una certa sottostringa?
E' qualcosa del tipo:
if ($stringa eq /$sottostringa/) { ... };   ?
Grazie in anticipo,
Manuel
ps: scusate la mia ignoranza, che so abissale!

if ($stringa eq /$sottostringa/) { ... };   ?
Quasi giusto. ;-)
if ($stringa =~ /$sottostringa/) { ... }
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 ha scritto nel messaggio
news:slrn9lr9...@leah.italpro.net...


Newsgroup: it.comp.lang.perl
Titolo: Non mi funziona sotto Linux ! - Aiuto

 ICQ# 1980563

 Se lancio "/usr/bin/perl Hello.cgi" tutto funziona.
Ammazza, qui ti servono lezioni di Linux!
Per prima cosa, non funziona se lo lanci come Hello.cgi per il semplice
fatto che tale script non risiede nel path (ed č giusto che sia cosě!).
Devi invocarlo come ./hello.cgi, e vedrai che funziona!
Invece, chiamandolo tramite l'interprete (treamite il quale non ti serve
la riga "/usr/bin/perl"), funziona, ed č ovvio!!! Perň, sappi che fai
proma a dare "perl 
hello.pl
", senza tutto il percorso dell'interprete.
Ciao
Edo
Newsgroup: it.comp.lang.perl
Titolo: Banca Sella, qualcosa già fatto?

avete notizia di qualcosa di già fatto per Banca Sella?
anche a pagamento, ma funzionante.
grazie
--
Ciao
The Bos
the-bos#
axelweb.com
http://the-bos.axelweb.com

 wrote in message
TS5s6.24856$x3.4...@news2.tin.it...


 Mi sa che non sia facile interfacciarla a uno script Perl.
mmmh non lo sapevo, mi faro una capatina sul sito allora.


...


Newsgroup: it.comp.lang.perl
Titolo: Creare una chat sul Web! Cosa devo usare?

Scusate,
devo creare una chat sul Web e volevo sapere se qualcuno può darmi un
consiglio su che tipo di linguaggio utilizzare!
Ho Win NT Server 4!
Dove posso trovare il software necessario?
Esistono dei programmi per scivere le cgi fatti tipo frontpage?
grazie

consiglio su che tipo di linguaggio utilizzare!
Ciao, potrei darti questo consiglio. Vai a vedere la chat del mio sito
(
http://tecnositi.com
) clikkando su Let's chat. Se questa ti soddisfa,
troverai il sorgente su 
http://cgi-resources.com
, nella sezione dei
Perl scripts.
Spero di esserti stato utile.
Ciao.
Angelo.

Newsgroup: it.comp.lang.perl
Titolo: Excel?

Esiste un modo per leggere un file excel protetto da password? 
Conoscendo la password!
-- 
...............................
  ThorOdinoAltair
  FreeTheBikers#Harley.Davidson
  T...@FTB.HD
...............................

 Conoscendo la password!
http://groups.google.it/groups?hl=it&lr=&ie=UTF-8&th=2831cb7573143b13&rnu
m=1

Newsgroup: it.comp.lang.perl
Titolo: Re: Leggere Google Groups offline

 thread del mondo.
-- 
Ciao, DOCstone

 :-) 
la mettiamo tra le cose da fare, ma non tra oggi e domani :) Se lo 
sistemo, paghi un caffè?
-- 
Ciao, Dmitry
I've a dream... bring usenet to every family 

 paghi un caffè?
E' compatibile con GNU-GPL ? :-)
-- 
Ciao, DOCstone

Newsgroup: it.comp.lang.perl
Titolo: criptare la password

Ciao a tutti,
como posso fare per criptare la password al momento che lo script la
richiede? esiste un modulo o qualche funzione per criptare? mi accontento
anche di non vedere scritto nulla a video!!
Ringrazio tutti per qualunque tipo di aiuto.
Abanero.

Su 
www.perl.org
, cpan, c'e' tutta una serie di moduli che puoi usare per 
criptare
ciao




Ancora un caso di 'use CPAN before posting' :) se cerchy crypt
su 
http://search.cpan.org
 trovi un sacco di moduli che possono
aiutarti. Quale usare dipende da che metodo di crittografia vuoi
o devi usare.
Ciao.
Leo

Newsgroup: it.comp.lang.perl
Titolo: alle prime armi...

scusate non riesco in nessun modo a far arrivare i dati del mio form a un
file .pl o .cgi... qualcuno potrebbe spiegarmi ke devo fare o dirmi dove
posso scaricare qualcosa che mi aiuti??
grazie 1000!





vai sul sito 
www.volftp.it
 e digita sul motore di ricerca 
interno editor+perl. Ti apparirà la pagina con diversi editor per il perl: molto 
buono per il tuo problema è PerlBuilder, anche se è sharware, ma se vuoi...Per 
fare il debug dei tuoi script devi "caricare" un form di una pagina html 
precedentemente creata, riempirlo, e cliccare su run. Quando clicchi su run non 
fai altro che simulare il click su submit.
Newsgroup: it.comp.lang.perl
Titolo: Uso di crontab

Dovrei far girare uno script cgi che ha bisogno, per essere eseguito, di un
tempo superiore al cgi-timeout del server.
Vorrei sapere se potrei aggirare il timeout facendo eseguire lo script cgi
attraverso un processo crontab. In altre parole vorrei sapere se crontab
ignora il limite di timeout impostato dal server.
Grazie,
Nicola


Non mi sembra che crontab possa centrarci qualcosa: serve solo ad eseguire 
programmi ad ore prestabilite. 
Su come aggirare il problema del timeout, dipende da cosa dovrebbe fare il
tuo CGI.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)


Lo script dovrebbe aggiornare settimanalmente delle classifiche. In pratica
dovrebbe aprire un file di dati per ogni utente, eseguire un calcolo sulla
base dei suoi dati e passare all'utente successivo.
Nel caso di un elevato numero di utenti potrebbe impiegare anche 30 minuti
per completare l'aggiornamento.
C'è un modo per evitare che lo script sia interrotto dal timeout del server?
Grazie.
Nicola

 wrote:

Perche' mai chiamare script CGI una cosa che non c'entra nulla e volerla
chiamare tramite un server, non lo so.
Ok. Hai un programma perl che devi eseguire ogni settimana: usare crontab va
bene. Una veloce lettura alla manpage ti potra' aiutare a creare la riga
adeguata nel file di configurazione di crontab.
Ma per favore non mi parlare di eseguire script settimanali tramite CGI. CGI
non serve a questo. Serve a scambiare POCHE informazioni tra il client e il
server WEB e a far generare una risposta adeguata in forma di una pagina Web.

Newsgroup: it.comp.lang.perl
Titolo: CHIEDO UMILMENTE AIUTO

Ho una pagina HTML con tre link collegati al cgi con il seguente URL:
per esempio ALFA č linkato a
http://www.localhost/cgi-bin/cal.cgi?Category=ALFA
Lo script che segue dovrebbe visualizzare la directory chiamata ALFA (tutti
i file in essa contenuti -sono solo files HTML)
***solo solo 8 righe***
#!d:/Apache/usr/bin/perl.exe
#La directory che contiene le directory ALFA, BETA, GAMMA
$BaseDir = "d:/Apache/htdocs/dir";
#La directory in cui risiede il file HTML che lancia il CGI
$BaseURL = "d:/Apache/htdocs/";
#Il file che viene scritto con i link di ALFA o BETA o GAMMA
$link_file = "d:/Apache/htdocs/links.html";
#L'indirizzo del file sopra citato
$links = "
http://localhost/links.html
";
#Le directories ALFA BETA GAMMA
@Categories = ('ALFA','BETA','GAMMA');
if ($ENV{'QUERY_STRING'} ne "") {
@TempCheck = split (/=/, $ENV{'QUERY_STRING'});
$Category = $TempCheck[1];
opendir(FILES,"$BaseDir/$Category");
#Apre la directory col valore dell'url cgi?Category=
@allfiles = grep(!/^\.\.?$/,readdir(FILES));
closedir(FILES);
@allfiles = sort(@allfiles);
open(NEW,">$link_file");
foreach $file(@allfiles){
print NEW "<A href=\"$BaseDir/$Category/$file\">$file</a><br>\n";
}
}
close(NEW);
print "Location: $links\n\n";
exit;
####FINE
PROBLEMI: lo script non da errori... e ciň mi fa cadere in un baratro. La
prima volta che l'ho lanciato ha letto la directory ALFA, adesso, qualsiasi
cambiamento faccia, visualizza sempre tale directory!!!
Anche cancellando il file links.html -inspiegabilmente- si rigenera come lo
ho visto la prima volta...
Cosa ho fatto di sbagliato???
GRAZIE
Miguel Beccari

HO RISCRITTO COSI LO SRIPT:
#!d:/Apache/usr/bin/perl.exe
$BaseDir = "d:/Apache/htdocs/dir";
$BaseURL = "d:/Apache/htdocs/";
$link_file = "d:/Apache/htdocs/links.html";
$links = "
http://localhost/links.html
";
@Categories = ('Alfa','Beta','Gamma');
 @TempCheck = split (/=/, $ENV{'QUERY_STRING'});
 $Category = $TempCheck[1];
 opendir(FILES,"$BaseDir/$Category");
@allfiles = grep(!/^\.\.?$/,readdir(FILES));
closedir(FILES);
@allfiles = sort(@allfiles);
open(NEW,">$link_file");
foreach $file(@allfiles){
 @TempFiles = split (/./, $file);
   print NEW "<A href=\"$BaseDir/$Category/$file\">$TempFiles[0]</a><br>\n";
}
close(NEW);
print "Location: $links\n\n";
exit;
PROBLEMA:
Lo script mi genera *inspiegamilmente* una pagina links.html che č quella
che ho visualizzato la prima volta!!! Nonostante la cancelli, ricompare. E
ciň nonostante abbia cancellato la directory che veniva letta...UN
MISTERO!!! Qualsiasi cambiamento non viene considerato. La pagina links.html
č sempre la stessa (si scrive sempre come la prima volta nonostante non ci
sia piů la dir di riferimento!!!!!!!!)
Perchč???

Perchč???
Non č che Explorer la recupera dalla cache?
Carlo Pellegrini
### Remove NOSPAMPLEASE to answer ###
Newsgroup: it.comp.lang.perl
Titolo: Perl e DBI

Salve 
Ho visto in libreria un libro su perl e DBi.
Ora , *da ignorante*, vi chiedo : secondo voi vale la pena studiare il
dbi o conviene dedicarsi ad altre soluzioni per i database?
Grazie
Marcello

 ha scritto nel messaggio
news:20001217171143....@localhost.localdomain.local...


dbi o conviene dedicarsi ad altre soluzioni per i database?
DBI e` sicuramente la soluzione di elezione per accedere a qualsiasi
database via Perl.
Se e` il libro su Perl e` quello che immagino io ("Programming the Perl
DBI" di O'Reilly), tieni conto che ti serve solo per programmare la DBI
(scrivere driver e via dicendo), non per utilizzarla.
	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!

 (scrivere driver e via dicendo), non per utilizzarla.
Sicuro, sicuro , sicuro? Ti sembra forse che pubblicano un libro per tre
persone? :)
Comunque c'e' on-line un capitolo di esempio 'Programming with the DBI', che
mi sembra contenere tutte le informazioni tipiche per usare la DBI. 
http://www.oreilly.com/catalog/perldbi/chapter/ch04.html
Gli altri capitoli, guardando l'indice, sono il solito inquadramento
storico, un po' di SQL, e poi la roba piu' complicata, tipo il binding delle
colonne e ODBC.
Dal solo indice, non mi sembra proprio che stiano solo spiegando come 
scrivere il driver. Naturalmente se tu il libro l'hai fisicamente letto,
avrai certamente ragione.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

persone? :)
Non l'ho letto, avevo solo visto una breve recensione su un sito e mi sono
fidato... chiedo quindi scusa per l'errato consiglio dato a chi ha
originariamente posto la domanda.
	A presto, Michele.


DBI" di O'Reilly)
Credo che sia la traduzione in italiano. L'ho visto solo dalla
vetrina, comunque c'era un animale in copertina(una lince?) 
in puro stile O?Reilly
Ciao 
e Grazie per la risposta

 avrai certamente ragione.
Letto......
E' un manuale per chi vuole impiegare la DBI.
-- 
Ciao, Maurizio.

Maurizio M. Munafo` wrote:

Il libro in questione ho avuto occasione di leggerlo ed e'
un ottimo libro, con molti consigli utili sull'ottimizzazione
delle query. E' un ottimo libro anche per principianti e spiega
molto bene nei dettagli l'utilizzo di DBI.
Newsgroup: it.comp.lang.perl
Titolo: Test su esistenza di un file remoto

Ciao a tutti, stò entrando nel mondo perl e ho già un quesito da porvi:
Ho la necessità di testare l'esistenza di un determinato file dentro la
home di un utente su un server remoto che viene creato alla fine di una
determinata elaborazione.
I due server sono *nix.
Avete qualche suggerimento?
P.S.
Vorrei evitare di montare la cartella in locale.
Grazie mille.
-- 
Linux user #332385

 Vorrei evitare di montare la cartella in locale.
Se hai un accesso FTP alla cartella dell'utente puoi utilizzare Net::FTP,
se hai un accesso telnet Net::Telnet. In questo modo, dopo il login, puoi
testare l'esistenza del file con un semplice "ls".
Michele.

 se hai un accesso telnet Net::Telnet. 
Se hai una accesso SSH, Net::SSH::Perl.
Max

Newsgroup: it.comp.lang.perl
Titolo: perl e cgi

raga, ho letto le faq, pero' i miei script in perl non vanno sul mio
server web, ho redhat 6.2 con apache 2.qualcosa, ho installato CGI.pm,
una cosa che non ho capito e' dove devo mettere il file .pl, se la metto
nella dir /home/httpd/html e carico il file mi fa vedere il codice, lo
legge come un normale file di testo, se lo metto nella dir cgi-bin mi
dice che non ho i permessi per leggerlo, in effetti la dir cgi-bin e'
cosi':
drw-rw-rw-    2 root     root         4096 set  7 10:52 cgi-bin/
ho provato anche a cambiargli i permessi ma non va
il mio dubbio e' l'apache server, questo ha bisogno di essere
configurato in qualche maniere???, allora ho guardato il file
/etc/httpd/conf/httpd.conf e ad un certo punto dice questo :
# Extra Modules
LoadModule perl_module        modules/libperl.so
#LoadModule php_module         modules/mod_php.so
LoadModule php3_module        modules/libphp3.so
da cui deduco che carichi il supporto per il perl, o sbaglio?
mi potete aiutare?? oppure dare un link ad un doc che parli di questa
roba, di doc ne no ho trovati, anche perche' ho cercato poco, dato il
mio tempo libero limitato
bau
(se volete guardatevi 
http://gecco.mobilia.it
 il mio sito stupido sul
perl)

 LoadModule perl_module        modules/libperl.so
Scambi la CGI con mod_perl, sono due cose diverse: se vuoi usare la
prima non ti serve la seconda.........
-- 
Ciao, Maurizio.

 Ciao, Maurizio.
ecco, io non so cosa mi serve, voglio caricare gli script per dal web,
cosa devo caricare????

ma e' piu' utile se sono "-rwxr-xr-x"
Certo cosi' il server web, che gira normalmente con uid e gid > 0, non riesce a
leggere il file! come fa ad eseguirlo allora?
Idem per l'esempio sopra, che e' una directory, senza qualche x vicino a r e w
difficile che il server web acceda li dentro.
-- 
Saluti,
Giancarlo