mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: espressioni regolari con variabili

Ciao
E' molto probabile che sia una domanda idiota, ma visto che non riesco a
trovare una risposta:
Ho un programma che deve fare  una grep su un AIX, un esempietto per
capirci:
#!/usr/local/bin/perl -w
#Simula grep
use strict;
my @lista=<STDIN>;
my $pista=001;
my @lista2=grep /^.{14}
                $pista.* #Perche' non valuta pista
                $/x, @lista;
print "grep\n", @lista2;
L'input e' una dir che contiene:
0945181461_E2700144_04689
primo.pl
0945181488_K2700143_00778  
RenMsg
grep.pl
 
secondo.pl
 
L'output  di $>ls |
grep.pl
 is :
grep  
Se sostituisco $pista con 001 l'output is:
grep
0945181461_E2700144_04689
0945181488_K2700143_00778 
...che sarebbe quello che volgio.
Grazie.
-- 
alfano giulio 
alf...@tin.it
g.al...@stserver.conecta.it
           Paranoia isn't an infectious condition, it's a way of life

 wrote:
:)#!/usr/local/bin/perl -w
:)#Simula grep
:)use strict;
:)my $pista=001;
while(<STDIN>)
  print "$_" if /^.{14}$pista/e ;
risparmiando memoria.
Oha
"Ci sono tre tipi di persone al mondo: quelle che sanno contare, 
e quelle che non ne sono capaci."

 my $pista=001;
  ^^^^ $pista qui e' un numero ottale e vale 1, non una stringa "001"
  Quindi
  my $pista = "001";
 
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 risparmiando memoria.
 Continuando a mantenere l'errore ed usando un flag sintatticamente errato
 in un semplice search e che da errore in compilazione come /e ? 


On 16 Dec 1999 15:12:03 GMT, 
mmmu...@netscape.net
(Maurizio M. Munafo`) wrote:
:)> risparmiando memoria.
:) Continuando a mantenere l'errore ed usando un flag sintatticamente errato
:) in un semplice search e che da errore in compilazione come /e ? 
vuoi mettere quanta memoria si risparmia, cosi? :)


Newsgroup: it.comp.lang.perl
Titolo: Interazione fra Perl e MySQL

Salve a tutti
vorrei fare uno script in perl che inserisca in un database MySQL
tutte le linee di un file di log. Qualcuno ha qualche consiglio o
qualche riga di script da mostrarmi? Sto tentando invano da 15 gg
ormai :-(
grazie
Saluti


Perche' non ci fai vedere uno dei tuoi tentativi e almeno un formato del log
che vuoi memorizzare?
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: costrutto do {} while

Esiste in PERL?
Su internet trovo degli esempi, sul manuale no, e se provo ad usarlo
ottengo un errore di sintassi.
-- 
                     Dona i tuoi cicli di clock alla ricerca!
 
http://boinc.berkeley.edu/
 
                          --------------------
           This signature was automatically generated with
           Signify v1.14.  For this and other cool products,
           check out 
http://www.debian.org/
 


 
 
  perl -e 'my $a=5; do { print "$a\n" } while($a--)'
 
 


Funziona.
 
in effetti l'errore non era nel ciclo
--8<---------------cut here---------------start------------->8---
#!/usr/bin/perl
 
use strict;
 
my $stopper = 0;
 
do {
print "$stopper ";
} while ($stopper)
print "\n";
--8<---------------cut here---------------end--------------->8---
piuttosto nell'ultima istruzione, ma non capisco cos'ha che non va, è un
semplice "a capo".
 
syntax error at 
dountil.pl
 line 11, near ")
print"
Execution of 
dountil.pl
 aborted due to compilation errors.
 
-- 
                     Dona i tuoi cicli di clock alla ricerca!
 
http://boinc.berkeley.edu/
 
                          --------------------
     Legge di Williams e Holland:
     	Se si raccolgono abbastanza dati, qualsiasi cosa puo' essere
     	dimostrata con metodi statistici.


 
il ; dopo il while è mancante

Newsgroup: it.comp.lang.perl
Titolo: Problemi con Opera

Ciao,
mi è capitato a volte che Opera mi facesse dei grossi casini nell'eseguire 
degli script cgi scritti in perl. In particolare capita che quando si 
devono aggiornare dei db, questo browser commetta degli errori. Qualcuno 
sa da cosa potrebbe dipendere? Sono io che sbaglio gli script?
Grazie per qualsisasi aiuto
+CROCE+
-- 
Creato con M2, il rivoluzionario client e-mail di Opera: 
http://www.opera.com/m2/

 Grazie per qualsisasi aiuto
AFAIK Opera puo' avere problemi di compatibilita' rispetto a HTML o
Javascript o Applets eseguiti sul lato client.
Se scrivi un CGI in PERL, questo e' eseguito nel server (di norma),
per cui al tuo browser non cambia niente.
Dico bene ?
 Raffaello
Newsgroup: it.comp.lang.perl
Titolo: configuarare il Perl sotto Windows per Apache

Ciao a tutti,
    qualcuno mi sa dare una dritta su come far capira ad Apache di eseguire
gli script CGI in Perl?
Faccio notare che per alcuni motivi non ho configurato Windows affinche
quando si clicca su un file con estensione .pl o .cgi venga eseguito
automaticamente l'interprete Perl.
Con PHP ci sono riuscito facilmente, ma quando do in pasto al mio webserver
un CGI Perl mi esce un internal server error.
Andando a vedere il file di log degli errori trovo:
(2)No such file or directory: couldn't spawn child process: c:/documents and
settings/administrator/documenti/testserver/cgi-bin/test.cgi
Sapete aiutarmi?
Grazie,
B.D.
www.softwareplanet.net

 ha scritto nel messaggio
news:3dlE6.70818$s93.7...@news.infostrada.it...


 ha scritto nel messaggio
news:9bt75l$g9q$1...@serv1.albacom.net...


prova a cambiare la prima riga di ogni script in
#!c:\dove\hai\messo\perl\bin\perl.exe
e vedrai che va
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

si, ma gli script devono poi girare anche sotto Linux e non voglio cambiare
quella riga ogni volta...


crea una cartella usr sotto c:, all'interno della quale crei una cartella
bin dove andrai a mettere una copia dell'eseguibile perl.exe
Il percorso diventerà:
#!/usr/bin/perl
ciao.
-- 
Posted from 
relay3.inwind.it
 [212.141.53.74] 


Newsgroup: it.comp.lang.perl
Titolo: domanda molto semplice per degli esperti!

Salve, vorrei sapere come è la sintassi che fa a scrivere un file in una
determinata directory con il perl
Marco

 determinata directory con il perl
perldoc perlopentut
Bye,
 Emmanuele.
-- 
I ... Owe ... You ... Pain! -- Willow, "Tough Love"
GnuPG Key ID: 0x788E3A3A
GnuPG Key FP: 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

 wrote in message
9jupsn$ilg$1...@lacerta.tiscalinet.it...


Saluti.
Qualche aggiustamento.
AutoMAX wrote:
 > $file = "\nome\della\directory\nomefile.txt"
$file="\\nome\\della\\directory\\nomefile.txt";
 > open(FILE1, ">$file");
open(FILE1, ">$file") or die("Errore su apertura file:$!");
 > print FILE1 $record;
 > close(FILE1);
close(FILE1) or die("Errore su apertura file:$!");
E perlopentut lo leggerei comunque.
Cheers,
alf
Newsgroup: it.comp.lang.perl
Titolo: dati in tempo reale e input da tastiera

Dovrei fare in modo che il mio programmino, che riceve e visualizza dati in
tempo reale, abbia sempre pronto il prompt per ricevere input da tastiera,
ma se mi appare il prompt sospende la visualizzazione dei dati (perché
aspetta l'input) come risolvere ? : )



Su che sistema stai lavorando?
Io con windows non ci sono riuscito.
Volevo far comunicare 2 script ramite sockets implementando la cosa
come vuoi fare tu.
Ci sono riuscito barando.
Ora o era windows e in questo caso devo ancora provare perl 5.8.
Oppure so io che non ho capito un cassio... mi sono aiutato con il
perl cookbook che evidentemente da per scontanto che l'ambiente di
lavoro sia linux.
--
www.pigmalion.info
www.pigmalion.info/perl/

 Su che sistema stai lavorando?
anche io sto lavorando sul windows : | e non ho idea di come fare hai
qualche suggerimento su come 'barare'?
P.S. anche il mio č per motivi si socket : ) aspetto i dati in arrivo sulla
sock ma nel frattempo vorrei poter inviare i miei.

sock ma nel frattempo vorrei poter inviare i miei.
Guarda mo devo scappare al lavoro.
Qui trovi gli esperimenti che ho fatto in proposito.
http://www.pigmalion.info/perl/repository.cgi?dir=network
http://www.pigmalion.info/perl/repository.cgi?dir=
^my_scripts
tra client e server
Il 'baro' non mi ricordo dove l'ho fatto di preciso, sono mesi che non
guardavo questo codice, ad ogni modo in teoria, uno dei 2 script o
entrambi aspettano un delimitatore, un segnale, un fine linea.
Insomma comunicano ma devono sempre passarsi la palla.
Dagli esempi dai quali ero partito c'era fork e la creazione di child
process.
A fra 7,8 ore :)
--
www.pigmalion.info
www.pigmalion.info/perl/

 ha scritto nel messaggio
news:mDgaa.22898$pG1.5...@news1.tin.it...

Usi i threads: ne fai due per programma (uno che legge e l'altro che
scrive).
ciao,
Nids



Non su windows, l'ultima volta che ho dato uno sguardo era ancora
sperimentale.
Forse con le ultime versioni del Perl sono riuscito a supportarlo.
Io non riuscii a fare manco un file di test.
--
www.pigmalion.info
www.pigmalion.info/perl/

Newsgroup: it.comp.lang.perl
Titolo: help perl e eseguibili....

    ...qualcuno sa se si puo' rendere eseguibili i programmi scritti in
perl5, cioe' se oltre all'interprete esiste un vero e proprio compilatore?
Grazie, Federico
PS: sotto Windows!??


Scarica perl2exe
P.S. La prossima volta rileggi i messaggi precedentemente postati sul
ng.
Ciao
Andrea Busia
No Spam, Grazie.
Newsgroup: it.comp.lang.perl
Titolo: crypt?

Non ho capito (neanche dal camel book) come funziona
crypt PLAINTEXT, SALT
in particolare, non ho assolutamente capito cos'e il parametro SALT
Grazie mille

 in particolare, non ho assolutamente capito cos'e il parametro SALT
crypt() e' una funzione che, avendo in ingresso una stringa in chiaro (ad
esempio "pippo") e una stringa di controllo e di permutazione (il salt),
ritorna una stringa cifrata. Ambedue le stringhe di ingresso (PlainText e
Salt) devono contenere caratteri Ascii appartenenti a questo insieme:
    "./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";
Il campo Salt, di dimensione di due byte, permette di avere 4096 stringhe
cifrate tra loro diverse avendo in ingresso la stessa stringa in chiaro.
Ad esempio, modifica la tua password su un sistema Unix utilizzando la
stessa stringa (la password) e analizza il file contenente la stringa
cifrata (/etc/passwd o /etc/shadow). Se il binario utilizza la funzione
crypt() in modo opportuno (generando, ovvero, in modo randomico i due
caratteri Salt), la stringa cifrata e' diversa.
E questo per l'analisi di cifratura.
Per il discorso inverso, la verifica che la password in chiaro (data
dall'utente, da una form, da un programma, etc etc) sia effettivamente
quella impostata dall'utente stesso in origine, si utilizza la funzione
crypt() utilizzando la stringa in chiaro (quella da verificare) estrapolando
dalla stringa cifrata i primi due caratteri che rappresentano la stringa
Salt e cifrare il tutto. Se le due stringhe coincidono la password e' quella
giusta, altrimenti e' sbagliata.
Di seguito una estrapolazione da un sorgente (sviluppato da me per far
proprio questo, implementato in un eseguibile CGI su un server Unix, tempo
fa), scritto in C ma facilmente modificabile in codice Perl:
----------
/*
 * Crypt the string passed to function.
 * See "man crypt" for further information
 */
char *GetPasswd (char *Pass, char *Salt)
{
  static unsigned char itoa64 [] =
    "./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";
  unsigned long  shift;
  static char  SaltB [3];
  char *cp;
  srand (time (0));
  if (Salt)
    memcpy (SaltB, Salt, 2);
   else
    for (cp = SaltB, shift = (rand () & 0xfff); shift; shift >>= 6)
      *cp++ = itoa64 [shift & 0x3f];
  if (cp = crypt (Pass, SaltB))
    cp = strdup (cp);
  return cp;
}
----------
La stringa di ritorno della funzione crypt() e' lunga 13 byte (o 11? non
ricordo, sono a casa e non ho sottomano un sistema Linux/Unix), i cui primi
due caratteri rappresentano il codice Salt.
Spero di essere stato sufficentemente chiaro e di non aver detto castronerie
(vista l'ora...).
Hope this Help.
 Julius
Newsgroup: it.comp.lang.perl
Titolo: liste

Ho bisogno di un sistema veloce per ottenere gli ultimi n elementi di
una lista di lunghezza arbitraria (anche < n, quindi splice non basta),
idee?
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

 idee?
Tipo? 
Se ci fai un esempio forse si capisce meglio e ti si puo' aiutare.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

mmmu...@usa.net
 wrote:
 >> Ho bisogno di un sistema veloce per ottenere gli ultimi n elementi di
 >> una lista di lunghezza arbitraria (anche < n, quindi splice non basta),
 >> idee?
 >Tipo? 
@a=(1,2,3,4,5);
@b=("a", "b");
e voglio ottenere gli ultimi tre elementi, cioe` rispettivamente:
3 4 5
a b


 wrote:
: Ho bisogno di un sistema veloce per ottenere gli ultimi n elementi di
: una lista di lunghezza arbitraria (anche < n, quindi splice non basta),
: idee?
perl -e '@lista=qw(a b c d e f); print splice(@lista, -2, 2), "\n"'
Non funziona per un numero di elementi maggiore di quelli della
lista: in questo caso devi aggiungere un test tipo:
if(n < @lista)
-- 
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) ns (dot) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nandos

 a b
Beh. Ti ha gia' risposto Nando nell'altro thread. Usa splice con un if
 @result = ( @a > 3 ? splice(@a,-3) : @a );


Newsgroup: it.comp.lang.perl
Titolo: estrarre $ da righe di testo grazie alle regexp (non il solito split!)

naturalmente non intendo splittare una linea di testo
in varie variabili a seconda, ad esempio, di un & ecc..
intendo qualcosa tipo:
dividimi (?split?) la riga tal dei tali impostando le variabili
ad esempio cosě:
/\s$pippo\s.*[$topolino]\s+[0.9].*\s\?\d$minni/
che all'incirca in una riga del genere:
 bla uesjkdhfksjdhfs[tra] 674773722 ?7yaa
corrisponderebbe ad impostare
$pippo="bla"
$topolino="tra"
$minni="yaa"
č possibile in qualche modo con un unica istruzione?
altrimenti dovrei separare di volta in volta con criteri
differenti e la cosa sarebbe piů lunga!
grazie
--
Ciao
The Bos
the-bos#
axelweb.com
http://the-bos.axelweb.com

 $minni="yaa"
Usa la RE in un contesto di lista con le adeguate parentesi: ottieni
l'assegnazione dei valori di $1,$2 ecc. direttamente alle variabili che vuoi.
$line = "bla ccc ddd eee";
($pippo,$topolino,$minnie) = $line =~ /(\w+)\s+(\w+)\s+\w+\s+(\w+)/;
per avere $pippo="bla", $topolino="ccc", $minnie="eee"
Occhio che la RE deve matchare TUTTA CORRETTAMENTE per avere l'intera
assegnazione.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 assegnazione.
ma è bestiale il  Perl!
grazie mille
__

Newsgroup: it.comp.lang.perl
Titolo: Moduli CVS

Ciao a tutti,
sto utilizzando i moduli CVS trovati in CPAN per eseguire comandi CVS
da Perl, ma li ho trovati, oltre che datati, mancanti di alcune utili
opzioni.
Qualcuno mi sa dire se esiste qualche libreria free più recente ?
Grazie
ciao
ennio

 opzioni.
Non mi sono mai occupato della cosa, ma direi che forse
lo sviluppo si è fermato in favore dei moduli per l'interazione
con sistemi più moderni di CVS, come Subversion (senza contare
quelli al momento "nel radar" degli sviluppatori Perl che
conosco: git, darcs, e così via...)
ciao,
S.

Newsgroup: it.comp.lang.perl
Titolo: IPaddress --> DNS name con script Perl

Ciao a tutti,
quale espressione regolare potrebbe rappresentare la notazione degli
indirizzi IP (aaa.bbb.ccc.ddd)?
Per esempio mi servirebbe per processare il file hosts passando un
indirizzo IP e recuperando il relativo nome DNS
Cioe`:
   151.98.55.16 
nsf12.orfeo.univer.it
Dopo lo script Perl (a cui passo 151.98.55.16 come argomento):
 
nsf12.orfeo.univer.it
 
Piu` in generale come posso descrivere la seguente famiglia di
espressioni regolari (sempre per il pattern matching):
   234
   234.5
   234.5.10006
    ...
Cioe` sequenze numeriche di dimensione libera intervallate dal simbolo
di punto?
Grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG



 indirizzi IP (aaa.bbb.ccc.ddd)?
   In forma semplicistica:
	(\d{1,3}\.){3}\d{1,3}
   In forma piu` complessa:
	(((1|2)?\d)?\d\.){3}((1|2)?\d)?\d\
-- 
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

Newsgroup: it.comp.lang.perl
Titolo: Secondo voi perchè non funge?!

Ciao a tutti,
allora ho fatto un modulo per cui ad un certo punti il numero di campi campi
che si inseriranno ($in{'numero'}) viene deciso da chi compila il modulo.
Fin qui tutto ok, mi appaiono correttamente tot input text che si possono
riempire. Ognuno di questi input ha il nome pian$i (dove $i č dato da un
ciclo for limitato da $in{'numero'}). Ora casca l' asino se io faccio
successivamente un ciclo for cosě strutturato:
for ($i = 0;$i < $in{'numero'}; $i++) {
print "$in{'pian$i'}";
}
non visualizza nulla!!!!!
PERCHE'? C'E' SOLUZIONE?!
Grazie anticipatamente a tutti coloro che mi risponderanno!
Ciao
+CROCE+

}
Devi usare:
print $in{"pian$i"};
Se non metti i doppi apici all'interno delle parentesi graffe il contenuto
non viene interpolato, quindi anziche' avere:
pian0
pian1
pian2
...
hai sempre:
pian$i
Puoi invece tranquillamente omettere gli apici esterni visto che stampi solo
la variabile, oppure utilizzare una sintassi tipo:
print "Numero $i".$in{"pian$i"}."\n";
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!
Newsgroup: it.comp.lang.perl
Titolo: URGENTE: MATRICI !!!!

Salve ragazzi,
        intanto auguro a tutti voi buon pomeriggio e poi....
        vi chiedo se in Perl esistono le matrici (un pņ come avveniva in Turbo
Pascal ) ed eventualmente come sono strutturate.
Fiducioso in una vostra risposta,
a presto,
Paolo
Grazie.
-- 
Posted from  [212.171.126.16] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 
  perldoc perldsc
Max

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

Intanto un grazie a Giancarlo Bisso.
Il chiarimento che cerco e' il seguente:
impostato un lock su un file, nel quale per esempio aggiugere un login ed
una pwd, alla chiusura del filehandle dovrebbe anche chiudersi il lock: se a
lock attivato un altro utente tenta di sovrascrivere lo stesso file, e' UNIX
a mettere in coda il processo o devo essere io ad impostare un loop di
verifica?
Da quanto avrei capito dalla documentazione, il seguente codice dovrebbe
essere sufficiente ad evitare problemi:
sysopen (NUOVO_LOGFILE, "dirclo/sum.txt", O_WRONLY | O_CREAT);
                        flock(NUOVO_LOGFILE, LOCK_EX);
                        truncate(NUOVO_LOGFILE, 0);
                        foreach $key (sort keys %hash_pass)
                                {
                                print NUOVO_LOGFILE "$key
$hash_pass{$key}\n";
                                }
                        close NUOVO_LOGFILE;
Il dubbio che mi resta e' se i processi eventaulmente contestuali vengano
messi in coda da UNIX o devono essere gestiti dal mio programma.
Scusate, ma pensavo fosse questione meno complicata ;-)
E grazie
Andrea

 programma.
Il perl non ti da accesso al file flock-ato e aspetta la un-flock-zione 
dello stesso.
Comunque nel dubbio puoi sempre fare delle prove, no?
scrivi un codice banale del tipo (e chiami in file 
flock.pl
)
open (OUT,">> test.txt");
flock(OUT,2);  
# 2 e' per il lock esclusivo (LOCK_EX se hai caricato le costanti)
select OUT;
# selezioni il canale di output cosi'...
$|=1;
# .... lo puoi unbufferizzare e scrivi una linea alla volta
while (<>) {
# cosi' aspetta un input da tastiera
        print;
# non preoccuparti stai scrivendo su OUT.. grazie al select
}
apri 3 bei terminali dove esegui:
1. $ tail -f test.txt
2. $ 
flock.pl
3. $ 
flock.pl
scrivi un puo' su 2 e un po' su 3 , poi dai un Ctrl-d sul 2 e poi su 3, 
intano su 1 vedi che succede.
Provare spesso e' il modo migliore per capire.
-- 
Saluti,
Giancarlo
Newsgroup: it.comp.lang.perl
Titolo: x MIMMO <noname@unknown.com>

Ciao, sono Pierfrancesco. Scusa l'invadenza ma ho capito, dalle
risposte che dai sul NG, che sei particolarmente ferrato ed io avrei
un problemino che sto cercando di risolvere con l'aiuto di altre
persone e che ancora...non ha trovato soluzione.
In breve:
vorrei creare uno script al quale passare un URL ed ottenere il
download del target, sul server dove risiede lo script.
Ho già provato con OPEN $url > $dest, ma la cosa non sembra
funzionare.
Esiste qualche comando al riguardo, o anche qualche soluzione?
Grazie, Loche.
--
----------------------------
pierfranc...@libero.it

 Esiste qualche comando al riguardo, o anche qualche soluzione?
La prima cosa che mi viene in mente и utilizzare il modulo LWP::Simple,
ma conoscendolo pochino non so se sia la migliore!
Lascio il testimone a chi ne sa di piщ!
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

-- 
Ciò non toglie che sei comunque ferrato!
Ciao, Loche.
----------------------------
pierfranc...@libero.it

Newsgroup: it.comp.lang.perl
Titolo: domanda semplice

Ciao,
Ho una stringa di questo tipo  "                Acct-Status-Type ".
Come faccio per eliminare tutti gli spazi iniziali?
Grazie...
    Ivan

Come faccio per eliminare tutti gli spazi iniziali?
$stringa = "                Acct-Status-Type ";
$stringa =~ s/ //g;
Questo toglie TUTTI gli spazi.
Ciao
Dark Wave

Come faccio per eliminare tutti gli spazi iniziali?
Vedi la relativa FAQ a:
http://www.borders.it/perl/faq/
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> FAQ di it.comp.lang.perl: 
http://www.borders.it/perl/faq/
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 Come faccio per eliminare tutti gli spazi iniziali?
 $text =~ s/^\s+//;
Btw, se hai bisogno di qualcosa per fare (come sembrerebbe) il parsing dei
detail di un server Radius, tempo fa scritto un modulino apposta. Fammi
sapere se ti può servire.
Max

Newsgroup: it.comp.lang.perl
Titolo: cambio dir in cerca.cgi

Ciao,
ho scritto un motore di ricerca con l'aiuto di un libro sul perl5.
Ho messo cerca.cgi dentro la dir cgi-bin e vorrei fare la ricerca nella dir
wwwroot, dove ho le mie pagine.
La riga invece che dice al cgi di cercare nella sua stessa dir (cioč dentro
cgi-bin) č:
opendir(DIR, ".");
Ho provato con:
opendir(DIR, "..\miosito");
Ma non funziona proprio.
Cosa devo scrivere??  (Ho apache 2.039,  Win2k,  Perl5)
Grazie, ciao

 Cosa devo scrivere??  (Ho apache 2.039,  Win2k,  Perl5)
Inserisci il percorso completo sostituendo i backslash (\) con gli slash (/)
stile unix
Ciao,
Guido.

Newsgroup: it.comp.lang.perl
Titolo: ordinare array

Ciao a tutti,
Come posso ordinare un array pippo[10][10] in funzione dei primi due campi,
dove il primo è numerico e il secondo è testo.
Ciao e grazie.
Henri


Oltre ovviamente a perldoc -f sort (contiene parecchi esempi)
ciao,
S.
Newsgroup: it.comp.lang.perl
Titolo: CAM::PDF

Saluti a tutti,
qualcuno è per caso riuscito ad installare il modulo CAM::PDF sotto
Linux? Io ho provato con il solito: `perl -MCPAN -e 'install CAM::PDF'`
ma purtroppo muore durante un test con la stringa"Failed to open filter
FlateDecode (Text::PDF::FlateDecode)".
Qualcuno c'è riuscito? Mi sa spiegare come ha fatto? Grazie! :-)

 Qualcuno c'è riuscito? Mi sa spiegare come ha fatto? Grazie! :-)
L'ho fatto ora per vedere se riproducevo il tuo problema. 
E l'ho riprodotto. :)
Apparentemente la shell di CPAN non esegue l'install di Text::PDF. 
Sono andato in ~/.cpan/build/Text-PDF-0.27 e ho fatto un 'make install'. 
Poi ho ripetuto il 'make test' in CAM-PDF-1.07 e ha tutto ha funzionato a 
dovere.
Max

 dovere.
Innanzitutto grazie per la dritta.
Effettivamente sembra anche a me che CPAN non riesca ad installare
correttamente Text::PDF. Infatti dopo una prima prova se gli dico
'install Crypt::RC4' mi risponde 'Crypt::RC4 is up to date', mentre
ogni volta che chiedo 'install Text::PDF::File' riesegue tutte le
operazioni ...
Il risultato è che purtroppo non ne vuole sapere, nonostante abbia
seguito i tuoi consigli: il 'make install' in Text-PDF-0.27 ha dato
come messaggio:
   Writing /usr/local/lib/perl/5.8.4/auto/Text/PDF/.packlist
   Appending installation info to
/usr/local/lib/perl/5.8.4/perllocal.pod
ma il 'make test' in CAM-PDF-1.07 ha dato sempre lo stesso errore ...
cosa può essere?
Per scrupolo l'ho provato sia sul mio desktop che sul server di prova
(rispettivamente una Debian Sid e Debian Stable), ma succede *sempre*
la stessa cosa.
Ce l'avrà su con me?!?
Ema.

Newsgroup: it.comp.lang.perl
Titolo: "Casting" stringa -> intero

Ciao a tutto il ng,
sto iniziando a imparare il perl e mi son trovato di fronte a questo problema:
Leggo 3 byte da un file binario
read(INFILE, $VAR, 3);
e devo usare i valori letti come offset all'interno dello stesso file:
seek(INFILE, $VAR, SEEK_SET);
Il problema č che il valore che mi viene restituito da $VAR č 0. Eppure contiene, ad es., 0x025858 come posso vedere usando sprintf("%vx",$VAR).
Ho provato con hex($VAR) e int($VAR) ma non funziona.
L'unica strada che sembrava andare era:
$TMP = hex(sprintf("%*vx", "", $VAR));
cosě in $TMP mi trovavo il valore decimale del numero, ad es., 0x025858. Ma con numeri tipo 0x025805 non funziona perchč mi viene interpretato 0x02585!
Come posso fare? C'č un modo per non tirare in ballo sprintf?
Grazie mille.

 Come posso fare? C'è un modo per non tirare in ballo sprintf?
Ho trovato un modo:
$VAR = ord(getc(INFILE));
$VAR *= 0x100;
$VAR += ord(getc(INFILE));
$VAR *= 0x100;
$VAR += ord(getc(INFILE));
mi era sfuggita l'ord() <:). Ma c'è qualche altra via?
Ciao

mi era sfuggita l'ord() <:). Ma c'è qualche altra via?
Guarda unpack e pack. Non ho capito bene qual è il formato dei dati letti,
ma con unpack risolvi comunque.
Ciao.

 ma con unpack risolvi comunque.
Grazie, queste funzioni non le conoscevo ancora.
Ciao
Newsgroup: it.comp.lang.perl
Titolo: Manuale veloce Perl

 creare Interfaccie utente grafiche (GUI)?
Si`, ma purtroppo non sono abbastanza esperto da poter dare dei consigli.
La scelta della soluzione dipende dalle tue esigenze specifiche (tanto
per fare un esempio, dall'ambiente in cui l'applicazione deve girare).
Un esempio di modulo per GUI cross-platform e` Wx:
 
http://wxperl.sourceforge.net/
ciao,
S.
[1] 
http://search.cpan.org/~timb/DBI-1.38/
-- 
http://larsen.perlmonk.org

 Scusa per l'ignoranza, ma che e' DBI.pm e come si usa?
   "DBI - Database independent interface for Perl"
E` un'interfaccia che astrae i dettagli dei singoli motori di database,
permettendo di lavorare allo stesso modo qualunque sia il database che
"sta sotto" all'applicazione. Nella gia` citata documentazione trovi
tutto. Un altro URL utile per avere una lista di idiomi utili:
 
http://www.perlmonks.org/index.pl?node_id=284436
ciao,
S.
-- 
http://larsen.perlmonk.org

 creare Interfaccie utente grafiche (GUI)?
Sì, ecco i moduli disponibili:
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/
Quale scegliere? Se sei alle prima armi e devi fare GUI multipiattaforma 
allora direi Tk che è semplice da programmare. Se usi solo Windows 
allora prova Win32::GUI . wxPerl è ottima ma non semplice da programmare.
Newsgroup: it.comp.lang.perl
Titolo: "about SQL"

Salve a tutti.
in questi giorni un quesito mi blocca:
so che è possibile inserire dati binari all'interno di un database, che esso
sia Access, MSSQL, mySQL
o qualunque altra cosa, so che si puo' fare. Ad esempio inserire un'immagine
o un file wave.
Il problema è: come si fa in SQL?
Veniamo nello specifico: Perl e Win32::ODBC;
una volta stabilita la connessione con un database Access, una volta creata
la tabella
con un campo di tipo "Oggetto OLE" (su altri dbms si chiama in un altro modo
ma sempre quello è),
e una volta aperto e letto il file binario, com'è possibile inserirlo nel
db?
Per saltare l'ostacolo avevo pensato di inserire il file codificato in
base64 in questo modo:
<code>
use MIME::Base64;
sub adjust_sql { my $data = shift; $data =~ s/\'/\'\'/g; return $data }
open FILE, "file.wav"; binmode FILE;
while (<FILE>) { $data .= $_ }
close FILE;
$DATA64 = encode_base64($data);
# $db è l'oggetto Win32::ODBC già creato
$db->Sql("INSERT INTO [tabella] ([wave_files]) VALUES
('".adjust_sql($DATA64)."')");
</code>
Ma la cosa non va, molto probabilmente a causa della lunghezza del
risultante comando SQL (forse eccede il buffer?)
Qualcuno conosce la soluzione?
Grazie,
Guido.

 Inviato via 
http://usenet.libero.it
--------------------------------
Inviato via 
http://usenet.libero.it

Newsgroup: it.comp.lang.perl
Titolo: Net::FTP quale la sintassi???

salve,
non riesco ad uplodare i file con il metodo put() . Io ho provato con:
$ftp->put(/directory/nomefile.txt);
Per quanto riguarda il metodo get(), mi posiziono nella directory dove
risiede il mio file e scrivo
$ftp->get(nomefile.txt);
risultato: mi mette il file nella cartella cgi-bin, dove risiede il mio
script.
Sarei grato se mi si spiega la sintassi di questi due metodi, possibilmente
con degli esempi.
Grazie
-- 
Posted from 
smtp5.libero.it
 [193.70.192.55] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

potresti postare lo script completo almeno per quanto riguarda FTP
Interessa anche a me!
grazie
F.
Newsgroup: it.comp.lang.perl
Titolo: Installazione automatica moduli

Immaginando un sistema Linux "vergine"
se volessimo realizzare uno script che automaticamente verifica ed
installa
Net::SSLeay
a me verrebbe in mente una cosa tipo:
#!/usr/bin/perl
$Net_SSLeay = system("perl -MNet::SSLeay2 -e 1");
if ($Net_SSLeay != "0") {
system("wget 
http://www.cpan.org/authors/id/S/SA/SAMPO/Net_SSLeay.pm-1.25.tar.gz
");
system("tar xzf Net_SSLeay.pm-1.25.tar.gz");
system("rm -rf Net_SSLeay.pm-1.25.tar.gz");
system("cd Net_SSLeay.pm-1.25 && ./Makefile.PL && make install");
system("cd .. && rm -rf Net_SSLeay.pm-1.25");
}else{
print "Net::SSLeay : OK\n";
}
ma se esiste un sistema più diretto sarebbe meglio.

$Net_SSLeay = system("perl -MNet::SSLeay2 -e 1");
I metodi di CPAN sono accessibili anche programmaticamente:
    # install my favorite programs if necessary:
    for $mod (qw(Net::FTP Digest::MD5 Data::Dumper)){
        my $obj = CPAN::Shell->expand('Module',$mod);
        $obj->install;
    }
Non chiedermi che cosa voglia dire in dettaglio, ma il succo è che si può
fare.
Immagino che qualcosa del genere sia possibile anche con PPM, anche se non
ho trovato documentazione al riguardo.
Ciao.



Ho provato con:
#!/usr/bin/perl
use CPAN();
 for $mod (qw(Net::Cmd)){
        my $obj = CPAN::Shell->expand('Module',$mod);
       $obj->install;
   }
###########
funzionare funziona ma non autonomamente, purtroppo si stoppa quando
chiede:
Do you want to modify/update your configuration (y|n) ? [no]
ed attende che qualcuno risponda.
Io dovrei infilarlo in una pagina CGI e dopo un controllo dei moduli
mancanti dovrebbe "teoricamente" autoinstallarli dalla rete.

ed attende che qualcuno risponda.
Ci sarà immagino qualche opzione da passare per fargli processare i comandi
senza chiedere conferma (l'interfaccia programmatica non avrebbe altrimenti
molto senso). Guarda nella documentazione del modulo CPAN.
La prima volta che viene eseguito, poi, CPAN crea un file (o più file) di
configurazione; controlla che il messaggio non si riferisca a questo, più
che all'installazione del modulo.
In ogni caso, dovrai anche assicurarti di poter svolgere questa operazione
sul server che ospita il tuo cgi.
Ciao.

 operazione sul server che ospita il tuo cgi.
In realtà non sono esattamente CGI nel senso stretto del termine, non
dipendono da Apache e girano con i permessi di root (ovviamente con le
dovute precauzioni).
In pratica sono moduli di webmin che dovrebbero servire ad un utente
winzozziano (per intenderci) a fare determinate cose, che varaino a
seconda delle esigenze del cliente, quindi se all'occorrenza mi servisse
un modulo sarebbe comodo caricarlo automaticamente senza dover dare al
cliente la password di root del suo server.
Suona strano lo so, ma in realtà i server sono di nostra proprietà e
sono in comodato d'uso presso i clienti che li dedicano a lavori specifici
ed ai quali non diamo la password di root per ovvi motivi, si sa mai che a
qualcuno venga voglia di "imparare linux" su un server di produzione.
Newsgroup: it.comp.lang.perl
Titolo: contatore e multitasking

ho scritto del codice [1] che ogni volta richiamato legge in un file una
variabile intera gli somma uno, scrive il file con il nuovo valore e lo
restituisce in STDOUT
tutto funzia bene, poi un giorno questo "contatore" si resetta e ci resto un
poco di sasso (dopo ca 60000 accessi)
mi viene il dubbio che per un motivo strano lo script legga e scriva in
short int ma ora faccio dei test e verifico che NON e' cosi'.
penso quindi che ci siano stati piu' d'un accesso simultaneo e qualcosa sia
andato storto.
devo fare un flock al file prima di scriverlo o che altro?
-- [1]
#!/usr/bin/perl
$incoming=$ENV{'QUERY_STRING'};
if ($incoming eq "") { $incoming=$ARGV[0]; }
if ($incoming eq "") { $incoming="default"; }
$CT= "Er01";
if (open (CTRD, "/www/cgi-bin/counter/$incoming") ) {
        $CT= <CTRD>;
        close CTRD;
        if (open (CTWR, ">/www/cgi-bin/counter/$incoming") ) {
                print CTWR ++$CT;
                close CTWR;
                }
        }
print "$CT\n";
. . . . . . . .
One man's error is another man's data.

 devo fare un flock al file prima di scriverlo o che altro?
 Si. Devi fare un flock. Inoltre aprire e chiudere il file due volte ti
 espone al fatto che non solo qualcuno puo' accedere al file mentre tu l'hai
 aperto, ma anche tra un apertura e l'altra...
 
 La risposta alla tua FAQ sta in perlfaq5, alla domanda 
 "I still don't get locking.  I just want to increment the number in the
 file.  How can I do this?"
 con tanto di codice di esempio.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

...
: La risposta alla tua FAQ sta in perlfaq5, alla domanda
visto e capito. solo non riesco a far girare lo script
dato che sono un utente ho cercato di aggirare il problema e mi e'
funzionato usando open(FH, "+<file") ma mi resta un dubbio:
'flock(FH,8);' va' prima o dopo 'close FH;' ?

 'flock(FH,8);' va' prima o dopo 'close FH;' ?
Non ci va. Le ultime direttive CEE dicono che la chiusura del filehandle
rilascia automaticamente il lock.
Altrimenti andrebbe prima, ma ci potrebbero essere rischi su cosa succede
tra il rilascio del lock e la chiusura, a causa di possibili ritardi legati
al buffering.
M^3


...
:> visto e capito. solo non riesco a far girare lo script
: ???
non so dirti di piu'. il comando sysopen sul server sul quale dovrei
lavorare non va.
:> dato che sono un utente ho cercato di aggirare il problema e mi e'
:> funzionato usando open(FH, "+<file") ma mi resta un dubbio:
:> 'flock(FH,8);' va' prima o dopo 'close FH;' ?
:Non ci va. Le ultime direttive CEE dicono che la chiusura del filehandle
:rilascia automaticamente il lock.
bene
:Altrimenti andrebbe prima, ma ci potrebbero essere rischi su cosa succede
:tra il rilascio del lock e la chiusura, a causa di possibili ritardi legati
:al buffering.
infatti, o pensato anch'io cosi, ma supponevo pure che se lo avessi messo
dopo non avrebbe trovato l'handle al file.
grazie
Newsgroup: it.comp.lang.perl
Titolo: compilatore perl???

Leggendo, in questi giorni, Guida di Riferimento al Perl, ho appreso con
piacere che è ora disponibile un compilatore perl, che permette di scrivere
eseguibili per diversi sistemi operativi partendo dal codice perl. E'
vero???
Se si, si trova su CPAN??
Sarebbe una gran bella cosa per chi e' abituato a sviluppare in perl, o no??
Come sempre, grazie a chi risponde.
Fabio

 ha scritto nel messaggio
news:72Fd5.7942$sE5....@news.infostrada.it...


...


 andrea
Ho capito il tuo problema (*credo*). Vediamo, tu fai uno script di Gateway
per il sito di un tuo cliente, pero' il sito e' ospitato su un server web
non tuo, amministrato quindi da un altro admin. Tu vorresti che lo script
funzionasse ma non fosse visibile, per garantirti un rapporto di
collaborazione continuata che consista in aggiornamenti. Se e' così, io
credo che tu non abbia altra soluzione che stipulare un contratto o
proteggere i tuoi script con il copyright.
Forse mi sbaglio e non sara' cosi', ma sai, il root di un sistema e' per
antonomasia colui che regola i permessi ai file depositati nel suo sistema,
quiondi se vuole vederli dipende solo da lui. Questo e' il superuser.
Ricapitolando, tre soluzioni:
1) ti fai un web server tuo con relativo servizio di hosting e gestisci i
file come ti pare;
2) fai un contratto di collaborazione continuata con il cliente (lascia
stare l'amministrartore di sistema) per un anno o che so io, aggiornando
periodicamente; [Scelta Consigliata!!!]
3) Copyright sugli script??? bah!
Spero di averti aiutato.
Ciao fabio
Newsgroup: it.comp.lang.perl
Titolo: GREP - help me

 Scusate, sono un neofita e ho un problema che mi fa diventare matto:
 Più che altro per imparare ho scritto un programmino che legge due file di
testo e in base ai valori riscontrati nel primo dovrebbe restiruire il
numero delle occorrenze trovate nel secondo.
Lo script andrebbe ad integrarsi con il noto bannerplus (scambio banner)
rendendo possibile le statistiche delle esposizioni in tempo reale nelle
ultime ore.
questo è lo script (e scusate se è poco elegante)
 open (ALL, "+<$bpdata/websites.txt") || die "Impossibile aprire il
file1\n\n";
 @accounts = <ALL>;
 close (ALL);
 foreach $total(@accounts)
 {
  ($url,$nome) = split(/\|/,$total,2);
  push (@url, $url);
  push (@nome, $nome);
  }
 open (ADURLS, "+<$bpdata/ads/adurls.txt") || die "Impossibile aprire il
file2\n\n";
 @adurls = <ADURLS>;
 $n = @adurls;
 close (ADURLS);
  print "<HTML>", "\n";
  print "<head><title>Statistiche</title></head>\n";
     print "<body><center><h1>STATISTICHE</h1></center>\n";
    print("<font face = verdana><font size = 2>Nelle ultime 24 ore sono
state prodotte $n esposizioni<br>\n\n");
 while (@nome) {
   $account = shift @nome;
 $url = shift @url;
 @found=grep(/$account/,@adurls);
 $i = @found;
 print("<font face = verdana> <font size=1>Esp. : $i <font color = blue><A
HREF =\"$url\" target=\"_blank\">$account</a></font><br>\n");
 $i=0;
   }
Il problema che ho è questo: non riesco a passare alla funzione grep il
valore della variabile $account
Se semplicemente sostituisco ad $account, manualmente, uno dei nomi (es.
TIZIO) trova tutte le occorrenze di "TIZIO" nell'array @adurls e me le
riporta in $i
Cosi' com'è non funziona (eppure $account, una riga sotto, viene
regolarmente stampato...)
PERCHE?

 PERCHE?
il problema non è grep, ma $account :-)
il valore della variabile $account viene letto da un file, quindi
contiene il carattere di a capo finale. te ne saresti accorto, molto
probabilmente, guardando il sorgente HTML generato dal tuo script, che
dovrebbe essere qualcosa del tipo:
    <font face = verdana> <font size=1>Esp. : 1 <font color = blue><A
    HREF ="..." target="_blank">TIZIO
    </a></font><br>
una possibile soluzione è cambiare la seconda riga del tuo script in:
    chomp @accounts = <ALL>;
in questo modo rimuovi tutti gli a capo dalle righe del file <ALL> mentre
le metti nell'array @accounts.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

GRAZIE MILLE per l'aiuto.
Se a qualcuno interessa vedere lo script funzionante:
http://www.sacom.net/bp/
 (lo script viene chiamato da un pop-up javascript)
Ciao - Roberto

Newsgroup: it.comp.lang.perl
Titolo: Esempi di programmi in perl

ma che tipo di programmi si possono fare in perl??
volevo inziare a vedere di impararlo ma che programmi puoi fare?? puoi
gestire la grafica come il C e VB?? che tipo di lang č??
P.S. volevo impararlo perchč penso di passare a PHP da ASP
Grazie...
-------------------------------------
Ravara Stefano
Supporto Tecnico Stileitalia
www.stileitalia.it
sup...@stileitalia.it
ICQ 36389650
-------------------------------------

P.S. volevo impararlo perchč penso di passare a PHP da ASP
A questo punto puoi utilizzare il Perl al posto di PHP.
	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!

 P.S. volevo impararlo perchè penso di passare a PHP da ASP



Allora impara il PHP. Oppure impara il Perl e usa il Perl. Imparare il
Perl per usare il PHP, mi sembra poco logico.
Max

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

Newsgroup: it.comp.lang.perl
Titolo: perl + porta seriale + linux

Avrei bisogno di scrivere un programma in perl che prelevi dati da un
sistema remoto tramite il modem. C'è un modo per colloquire con la
porta seriale; riesco a scriverci i comandi per il modem ,ma il problema
è la lettura: non si riesce a capire quando ci sono dati presenti dalla
seriale in modo da andarli a leggere.  Qualcuno mi puo' aiutare, mia
andrebbe bene anche qualle comando della shell linux.
-- 
                                  Ciao. Gigis.

Mi rispondo da solo perchè ho risolto con un programma esterno: dcon.
-- 
                                  Ciao. Gigis.
Newsgroup: it.comp.lang.perl
Titolo: FOR 'mbriaco?

se faccio
for ($i = 0; $i <= $#order; $i++) {...}
se $i vale 11 prima di questo for, lo salta (il vettore order ha 4 elementi)
ma non l'ho inizializzato a 0?
se metto $i = 0; prima di questo ciclo for va...
che stranezza!
--------------------------------
Inviato via 
http://usenet.libero.it

ho risolto, scusate x la cazzata.
modificavo $i all'interno del for!

Newsgroup: it.comp.lang.perl
Titolo: informazioni

Salve a tutti ,
ho appena cominciato a usare il perl e nel realizzare un piccolo script ho
un piccolo problema e per questo vi scrivo per chiedervi un consiglio :
Esiste un comando per arrotondare un numero ( che non sia  int (numero) ) al
prossimo decimale ???
Dove posso trovare dei manuali da scaricare ????
Grazie a tutti
ciao

 wrote in message
news:LQmm9.36615$Eu.8...@twister1.libero.it...

I manuali li hai già installati con il perl. Scrivi da linea di comando: perldoc
perldoc
La funzione che cerchi non esiste direttamente in perl (buuuuuuuuuuu), non so se
nella 5.8 è stata aggiunta, ma non mi sembra. Comunque puoi usare sprintf e
printf come surrogati di arrotondamento (che in realtà non arrotondano nel senso
stretto del termine, ma troncano a un certo numero di decimali).
Ci dovrebbero essere di moduli che lo fanno, e li puoi trovare su CPAN, ma se
non hai proprio una necessità MOLTO particolare, direi che potrebbe bastare
sprintf e printf.
leggi:
perldoc -q round
perldoc -f printf
perldoc -f sprintf
ciao
dd

 stretto del termine, ma troncano a un certo numero di decimali).
Scusate, ho detto una cazzata!
printf("%.3f", 6.831582163);
stampa 6.832, quindi arrotonda come uno si aspetterebbe.
dd

 wrote in
news:ancvn8$dhtbn$
1...@ID-159100.news.dfncis.de
: 

Altrimenti si puo' utilizzare POSIX::floor e POSIX::ceil
use POSIX;
$x = POSIX::floor( 123.5 );
usa "perldoc POSIX" per ulteriori informazioni.
Ciao
Mattia

Newsgroup: it.comp.lang.perl
Titolo: Problema con modulo  dbi (mac)

Ciao,
ho scaricato il modulo DBI, make, make test, make install...
Ora, quando faccio 'use dbi' il terminale restituisce un sacco di 
errori, simili a
Subroutine DBI::SQL_UDT redefined at 
/Library/Perl/5.8.6/darwin-thread-multi-2level/DBI.pm line 159.
ecc.
Cosa posso fare? ...
grazie!
k.

Klein wrote:

Probabilmente ci sono delle dipendenze non soddisfatte: è meglio 
installare i moduli mediante cpan, che gestisce automaticamente le 
dipendenze, anziché scaricarseli a manella.
Detto questo, da utente Mac ti consiglio però di non usare né tantomeno 
/toccare/ il perl di sistema.
Invece prova ad usare il perl di MacPorts:
http://www.macports.org/
che tra l'altro è più recente di quello di Mac OS (5.8.8 vs 5.8.6).
Inoltre troverai parecchi moduli CPAN già pacchettizzati in MacPorts.
Funziona benissimo e puoi farci tutti gli esperimenti che vuoi, senza 
correre il rischio di modificare i moduli del perl di sistema.
Alternativamente a MacPorts, puoi usare Fink (oppure puoi installarli 
entrambi, come ho fatto io).
Ciao,
Emanuele.
Newsgroup: it.comp.lang.perl
Titolo: CEPU-ladri Corsi do Informatica 60.000!

Cortesi amici della ml
oggi incuriosito da tanta pubblicità fatta da CEPU (
www.cepuweb.it
) sono
andato ad una loro sede per informarmi meglio.
Bene, il corso di Web Engineer della durata di un anno costa 60.000.000.000!
Sì, avete letto bene sessantamilioni di lire italiane. Al colloquio mi hanno
detto per darsi delle arie ovviamente che i corsi erano a "numero chiuso" e
la classe di una quindicina di persone. La "consulente" (così si è
qualificata) mi ha subito detto, essendo io prossimo ai trenta anni che
forse avrei preferito fare un corso meno impegnativo e cioè quello di Web
Master della durata di sei mesi (anche quattro o cinque nel caso avessi io
voluto aumentare la periodicità delle lezioni). 2 lezioni individuali a
settimana di un'ora-un'ora e mezza circa. Il tutto alla modica somma di
18.000.000.000 (didiottomilionidilireitaliane) Facendo due conti... 2 ore di
lezioni settimanali per sei mesi fa  48 lezioni. 
18.000.000.000/48
 = poco
meno di £. 400.000.000. Costano molto meno le puttane e non danno vaghe
prospettive di lavoro dopo il corso. Spero tanto che qualcuno primo o poi
hakeri il loro sito e al posto della pubblicità dei loro corsi metta la foto
di Arsenio Lupin. Anzi penso che da qui a qualche mese sarà questo il modo
col quale imparerò ad usare il Web in modo "professionale" come dicono loro.
---------
Oggi la libertà è la libertà della diffusione-ricezione della
conoscienza-informazione e Internet può essere uno dei mezzi per la
diffusione di informazioni e saperi fuori dalla logica dei centri di
monopolio che riducono la conoscienza a merce e strumento d'oppressione
individuale. Internet può e deve essere la crecita della propria mente senza
maestri censori e bacchettoni al servizio delle oligarchie del potere
dominante. {questo lo ha scritto un mio amico poeta}

 meno di Ł. 400.000.000.
diciottomiliardi diviso 48 uguale quattrocentomilioni. Non oso pensare che
arrosti riuscirai a fare con l'Euro.
A parte gli zeri, č ben risaputo che il Cepu č uno spenna-gonzi spudorato.
...e comunque siamo mostruosamente off-topic!

Newsgroup: it.comp.lang.perl
Titolo: [?] MySQL + perl (primi approcci)

Ciao a tutti,
ho RH6.2 ed ho configurato apache(1.3.12) + mysql(3.22.22) + php(3.0.8)
(con gran fatica ma alla fine ci sono riuscito).
Adesso mi manca solo una cosa che chiedo a questo gruppo.
Per interfacciare mysql con il perl di cosa ho bisogno?
Ho letto che devo installare il supporto DBI ed ho usato il pacchetto
DBI-perl-bin-0.93-1 ma se uso perl -e "use DBI;" mi da errore.
Grazie,
            Manrico
P.S siccome mi connetto col cellulare a 9600 e consulto le news da mailgate,
potreste rispondermi personalmente?
-- 
Posted from 
ns.omnitel.it
 [194.20.65.11] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 DBI-perl-bin-0.93-1 ma se uso perl -e "use DBI;" mi da errore.
Installa DBI e DBD::mysql direttamente da CPAN.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)