mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Dove trovare perl per winNT o win95??

Ciao sto cercando il perl per Win95 e WinNT, qualcuno sa dove posso
trovarlo???
grazie a tutti....
	   Pierre
--
                         ^
                       ^^^^^ 
                       (o o)
___________________oOO__(_)__OOo________________________________________
 
  Nasini Daniele                WebMaster al DSI Via Comelico 39 Milano
  Milano (Italy)                E-Mail: 
w...@dsi.unimi.it
  [Suzuki DR650 Djebel]                 
pie...@psycho.usr.dsi.unimi.it
 
           -=> 
http://psycho.usr.dsi.unimi.it/~pierre
 <=-

trovarlo???
Lo puoi trovare all'indirizzo:   
http://www.ActiveState.com/
L'ultima versione dovrebbe essere la "build 313".
Ciao.

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

Per quale motivo la redirezione dell standard input non
funziona su questi due esempi?
# 
leggi.pl
# 
# legge i dati da stdin
# una riga alla volta
$i = 0;
while($riga = <STDIN>)
{
	$i++;
	print "$i) $riga";
}
--------------------
# 
leggi2.pl
# 
# legge i dati da stdin
# per intero
@riga = <STDIN>;
for($i = 0; $i<=$#riga; $i++)
{
	print "$i) $riga[$i]";
}
in pratica se io eseguo con "perl 
leggi.pl
 (
leggi2.pl
) < <nomefile>"
non succede nulla mentre se li eseguo normalmente funzionano
-- 
Lawrence "Rhymes" Oluyede (
rhy...@myself.com
)
"Per cambiare, per diventare un'altra
cosa dobbiamo prima sapere cosa siamo"
(Bruce Lee)

 funziona su questi due esempi?
A me un:
perl 
leggi2.pl
 < nomefile
funziona benissimo. I programmi sono a posto, potrebbe essere un problema 
della shell, anche se faccio fatica ad immaginare quale. ;-)
        Michele.

della shell, anche se faccio fatica ad immaginare quale. ;-)
beh io lo uso su Windows 2000


 beh io lo uso su Windows 2000
Sotto GNU/Linux funziona alla grande. In effetti ora l'ho provato sotto 
Windoz XP e mi funziona solo lanciato "da solo". Con un redirect o una pipe 
mi torna subito il prompt senza stampare nulla. Non saprei dire perche' fa 
cosi`, non me ne intento tanto di Windoz.
        Michele.

 }
Questo esempio, benche` molto simile, non e`
equivalente. Il file viene letto tutto in un colpo: l'Input Record
Separator viene usato per spezzare il file in piu` righe, che
finiranno nei vari elementi dell'array @riga. Il file viene letto
tutto insieme, fino al carattere di End Of File (se lanci questo
script da shell, devi digitare Ctrl+D per terminare il file; Ctrl+Z
se usi Windows e il prompt DOS).
Inoltre, ma si tratta di una questione puramente stilistica,
anziche` usare un ciclo "alla C", ti conviene in generale scrivere
qualcosa come
foreach( @riga ) { ... }
in maniera tale da evitare a priori la possibilita` di compiere
errori off-by-one. Visto che in questo caso volevi scrivere anche
il numero di riga, avrei scritto qualcosa come
foreach( 0 .. $#riga ) {
    print "$_) $riga[$_]\n";
}
ciao
Stefano
Newsgroup: it.comp.lang.perl
Titolo: perl per linux

Dove posso trovare il perl per linux ?
Ciao e grazie

Dove posso trovare il perl per linux ?
www.perl.com
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

spor...@yahoo.com
 wrote:
 >Dove posso trovare il perl per linux ?
In qualsiasi distribuzione.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

Newsgroup: it.comp.lang.perl
Titolo: trucchetti con Perl...

ciao ragà, esiste un metodo più "sporco" di implementare:
if (!($r = $ARGV[0])) {
  $r = <STDIN>;
}
in qualcosa tipo
$r = ($ARGV[0] | <STDIN>);
grazie!
--------------------------------
Inviato via 
http://usenet.libero.it

 ha scritto nel messaggio
news:131Z114Z11Z52Y1...@usenet.libero.it...


dimenticavo: posso fare qualcosa tipo
$r = $ARGV[0] || print "scrivi il nome", <STDIN>;
??


Newsgroup: it.comp.lang.perl
Titolo: stabilire se uno script è in esecuzione...

raga, tra qualche giorno devo partire per una settimana..
ho fatto un programmino che gestisce gli eventi, vorrei
che ogni accesso ad una pagina verificasse se questo è in esecuzione
nel caso non lo sia avviarlo, ma non so come fare la verifica:(
chi mi aiuta ne avrei devvaro bisogno?
grazie
oxy


Quando il programma viene avviato scrivi in un file di testo "1" altriementi
"0"
Quando fai la verifica guarda se esiste il file di testo con la variabile
Ti consiglio ti guardare cosa è la tecnica del Lock file... potrebbe rendere
tutto il sistema più robusto
Saluti Lorenzo
--
[moderatore] it.comp.appl.macromedia
----------------
www.kemen.it
web-solution
----------------

Newsgroup: it.comp.lang.perl
Titolo: INFO CHMOD

Devo settare il chmod per il mio file guest.cgi a 755, ma il server mi dà
un'errore 500 unknown command, dopodichè tutto resta invariato...
Come posso fare??
Ciao e grazie.

un'errore 500 unknown command, dopodichè tutto resta invariato...
"Server"? Server di che? In che ambito stai usando chmod?
Ciao.


wrote:

mi sa che sta bazzicando sull'ftp :)
--
Non preoccuparti di venire nell' UK e soffrire di nostalgia..
Gli ospedali inglesi e la British Telecom ti faranno sentire a casa.
http://www.pigmalion.info/


Presumibilmente l'OP sta parlando del server FTP. Quella risposta indica 
che il server non implementa il comando 'chmod', che (per inciso) ha senso 
sostanzialmente in ambito Unix. Ora, le informazioni disponibili sono 
troppo scarse per poter dare suggerimenti ragionevoli. Ciò nondimeno, anche 
se si disponesse di maggiori informazioni, la questione (non avendo 
minimamente a che vedere con il Perl) sarebbe comunque OT in questo 
newsgroup.
Max

 ha scritto nel messaggio
news:p87u30d68303bd567...@4ax.com...


esatto sto bazzicando sull'ftp...
Allora temo che tu debba leggere la pagina informativa mostrata da quel
server alla connessione, tentare eventualmente un HELP, leggere la
documentazione dell'isp o comunque di chi ti ospita su quel server, e
insomma informarti altrove (tentativamente dove l'informazione è
disponibile e autorevole) piuttosto che bazzicare inutilmente qui.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: come far aspettare un secondo al programma?

vorrei creare un programma che ha la necessità di attendere qualche
secondo o millesimi di secondo prima di fare una cosa:
come fare?
Grazie in anticipo, Mario.

Io userei sleep.
Ciao Enrico
Dalla documentazione ( perldoc -f sleep )
=item sleep EXPR
=item sleep
Causes the script to sleep for EXPR seconds, or forever if no EXPR.
May be interrupted if the process receives a signal such as
C<SIGALRM>.
Returns the number of seconds actually slept.  You probably cannot
mix C<alarm()> and C<sleep()> calls, because C<sleep()> is often
implemented
using C<alarm()>.
On some older systems, it may sleep up to a full second less than what
you requested, depending on how it counts seconds.  Most modern
systems
always sleep the full amount.  They may appear to sleep longer than
that,
however, because your process might not be scheduled right away in a
busy multitasking system.
For delays of finer granularity than one second, you may use Perl's
C<syscall()> interface to access setitimer(2) if your system supports
it,
or else see L</select> above.
See also the POSIX module's C<sigpause()> function


sleep oppure la sleep del modulo HiRes che permette di settare l'interevallo
di tempo in millisecondi anziche secondi.



Per i secondi:
sleep(Numero_secondi_di attesa);
HTH

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

Ciao a tutti,
Sto cercando di creare uno script che mi permetta
di indicizzare il
contenuto di un server semplicemente
digitando 
www.miodominio.it
 , lo
script dovra' partire da questo
indirizzo per indicizzare tutto il
contenuto del disco fisso
del server che ospita quel sito.
So che devo
usare LWP ma non ho la piu' pallida di
dove iniziare per collegarmi,
potete aiutarmi ?
Grazie
Joseph
--------------------------------

Non puoi indicizzare il disco fisso !
Al massimo puoi indicizzare tutti i files che vengono collegati direttamente
o indirettamente da una pagina.
Se ad esempio da 
www.miosito.it/index.html
 io lancio il mio programma, lui
scendera' (ricorsivamente o iterativamente) a leggere tutte le pagine
contenute nei HREF, IMG, ACTION, open etc.... Di tutte queste pagine trovate
scendera' ancora e cosi' via !!!
Questo credo sia il massimo (a meno che tu non sia un genio delle reti),
indicizzare tutto il contenuto di un disco rigido risulta impossibile, visto
che tutti i server web fanno di tutto per evitarlo !!!
Alex

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

Salve a tutti,
vorrei configurare un forum sul mio sito, possibilmente in Perl.
Qualcuno conosce una risorsa free o anche un programma non caro ed efficace.
Il tutto, magari di non difficile configurazione: sono un Perl-erba:-))
Grazie anticipatamente e ciao,
                                                Rocco.
--

Il tutto, magari di non difficile configurazione: sono un Perl-erba:-))
In Perl c'e` un software simpatico e semplice a:
http://awsd.com/scripts/webbbs/index.shtml
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!
Newsgroup: it.comp.lang.perl
Titolo: E' il momento di compilare...

Mi sto divertendo da matti ad usare Perl su win2k(Pro)!!!
Prima di tutto con PPM installo ogni tipo di modulo che voglio in meno 
di 5 secondi...Cosi' che la mia "sete" di perl aumenta in modo 
esponenziale!!! per non parlare di perl/Tk ,mi si aprono nuovi 
mondi...(perl + win32 vanno a braccetto...roba da matti!!!) cose che con 
MacOs9 mi sognavo solamente.
Ora però credo che sia venuto il momento di compilare ciò che programmo 
per piattaforma win cosi
da poter scambiare le mie apps
Lo faccio non tanto per proteggere il codice ma per impacchettare il mio 
script e moduli che usa in un tuttuno eseguibile...e poterlo fare girare 
a chi non ha perl installato (parlo sempre di win)
Ho sentito parlare per lo più  di Perl2exe* che so non essere 
freeware...mi sapete indicare altri
metodi per compilare perl sotto win?
(*) Ma quindi Perl2exe è il migliore?? compila tutto?? (intendo anche 
ogni tipo di modulo che chiamo...ad esempo tk) quanto costa?? Quanto 
pesano gli eseguibili?? e in termini di velocità del programma 
compilato??
Spero di ricevere molte info da voi...ciao!!!!!!!!

 metodi per compilare perl sotto win?
http://www.perl.it/documenti/faq/iclp_view.html?pag=2&faq=5
Nella mia personale esperienza, perl2exe fa degli ottimi eseguibili, che 
non si piantano. A volte (con wxPerl ad es.) fare un eseguibile diventa 
un affare lungo.
Con perlapp compili senza problemi ma a volte gli eseguibili non sono 
esenti da difetti.
PAR è un'ottima alternativa Open Source.

 
tu che versione hai?
Credi che quella da 49 dollari sia sufficiente?
http://www.indigostar.com/ordperl.htm
Grazie....

 Grazie....
sembrerebbe di no. Nel senso che ci vuole quella da 149 per fare
applicazioni con GUI
-- 
-- Marco Allegretti --
http://www.shishii.com

>
la -gui option dovrebbe essere per non far proprio vedere la console al 
momento dell lauch dell'applicazione (personalmente: preferisco fare 
vedere per un po la consolo ,magrari con una scritta loading , e poi 
farla sparire con il modulo win32)
poi i comando -smal e -tiny non credo essermi utilissimi al momento...
pero aspetto un vostro  commento prima!

 MacOs9 mi sognavo solamente.
[cut]
scusa se mi intrometto
potresti dirmi se su windows utilizzi activeperl ?
o esiste qualche altra versione del perl ?
cd.

 
si...uso activeperl5.8.4 e spacca!

Larry wrote:

in che senso "e spacca" ?
Newsgroup: it.comp.lang.perl
Titolo: Leggere dati binari

Salve,
sto impazzendo nel tentativo di far leggere ad uno script dati binari.
Conosco il principio secondo cui perl non ha tipi ma, a seconda del
contesto, le variabili vengono interpretate come numeri o stringhe.
Ma io devo leggere e lavorare sui bit di byte letti da un file.
Il primo byte del file che sto leggendo è 0x31, cioè l'ascii "1".
Ma è solo un caso, a me serve il valore numerico 49, su cui fare
operazioni di and e or.
my $buf;
open($fh,...nomefile...);
binmode($fh);
read($fh,$buf,1);
print $buf # mi da 1
printf("%d",$buf) # mi da 1
printf("%X",$buf # mi da 1
E, ovviamente tutte le operazioni di & e | con $buf sono fatte con il
valore numerico 1, invece che 49, che in binario è 00110001 e non 00000001.
Come devo fare? Devo passare al C?
Grazie per l'attenzione.

 Grazie per l'attenzione.
Ciao
Roberto
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Come devo fare? Devo passare al C?
Anche in C, il significato da attribuire a quello che leggi è una tua
scelta arbitraria. In C useresti, immagino, la funzione fscanf() o simile;
l'equivalente Perl è unpack.
Ciao.

 Ciao.

PS: come mai questo ng č cosě poco frequentato? Pochi ma buoni?
Mah???... "Una volte il lupo andava come il pane, adesso il lupo el va no!"
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: Annuncio: Lingua::IT::Numbers

Salve,
  In un momento di profondo scoramento, mi sono dilettato a scrivere
il modulo in oggetto. Si tratta della versione italiana di
Lingua::EN::Numbers e permette di convertire i numeri nella loro
scrittura in lettere (in italiano, ovvio:)).
Si tratta di una versione molto beta, tra le altre cose non gestisce 
numeri superiori a 999.999.999.999 semplicemente perchè non so' (non
ricordo) la regola _esatta_ da applicare in italiano per numeri più
grandi: 1.000.000.000.000 è 'mille miliardi', 'un biliardo' o
'un bilione'???
Il modulo lo trovate su cpan;
http://www.cpan.org/modules/by-authors/id/H/HO/HOBBIT/
Commenti e aiuto (soprattutto con la grammatica...) benvenuti.
Leo
-- 
Leo "TheHobbit"
One Ring to rule them all, One Ring to find them,
One Ring to bring them all and in the darknes bind them
In the land of Mordor where the Shadow lie.

Commenti e aiuto (soprattutto con la grammatica...) benvenuti.
Non sono sicuro di aver capito la necessità di richiedere perl 5.8.2 (non
basta 5.8, o magari anche solo 5, essendo tutto perl puro?), e ho qualche
perplessità sull'uso di Regexp::Common.
Per la grammatica, non ho ancora provato il modulo, ma vedo che non accenta
(come ritengo corretto) i numeri che finiscono con "tre" ("ventitré",
"trentatré", ecc.). Capisco che farlo in modo indipendente dalla codifica è
un po' complicato, ma allora metterei almeno una nota nella documentazione.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Incolonnare dati

Salve a tutti,
ho una serie di voci e valori relativi, voglio stamparle come
voce1     valore1
voce2     valore2
...
incolonnate; dato che le voci sono stringhe di lunghezza diversa, devo
inserire un numero di tab differente, voce per voce, per far venire la
seconda colonna "incolonnata". Ho scritto questa cosa mooolto C-style:
print $cat;
for(my $i = 0; $i < (2 - length($cat) / 8); $i++) {print "\t";}
print $total."\n";
C'e' un modo "perl" di farlo?
Thx,
Pleg

Pleg wrote:

Direi di s� (funzionerebbe anche in C):
printf "%-16s %6d\n", $cat, $total;
In mancanza di specifiche pi� dettagliate, ho fatto le seguenti
assunzioni: $cat pu� contenere una stringa lunga al pi� 16 caratteri (�
la limitazione che si evince dal tuo codice); essendo una stringa la
vuoi allineata a sinistra; $total � un intero decimale, lungo al pi� 6
cifre (compreso il segno); essendo un numero lo vuoi allineato a destra.
Se vuoi cambiare qualcosa, basta giocare sulle specifiche di formato:
http://perldoc.perl.org/functions/sprintf.html
Nota che (s)printf usa gli spazi e non le tabulazioni (nell'output su
media che te lo lasciano scegliere, ricordati di usare un font non
proporzionale).
Se ti servono proprio le tabulazioni, ripensaci perch� � quasi sempre
sbagliato.
Ma se proprio insisti:
print $cat, "\t" x (3 - length($cat)/8), $total, "\n";
che produce esattamente l'output del tuo codice.
Se vuoi pure l'allineamento a destra nella colonna dei numeri,
sostituisci $total con: sprintf("%6d", $total) (che ovviamente sarebbe 
space-padded).
Infine per report pi� sofisticati, Perl ha anche i format:
http://perldoc.perl.org/perlform.html
Ciao.

Grazie!
Pleg
PS: comunque a me piacciono i tab :)

 PS: comunque a me piacciono i tab :)
Piacevano anche a me.
Per cui volevo risparmiarti il mio errore ;-)
Newsgroup: it.comp.lang.perl
Titolo: Aiuto per getpwnam()

Il seguente programma
---------------------------------
#!/usr/local/bin/perl
$a=join ':',getpwnam('lfini');
print $a,"\n";
---------------------------------
stampa il "password record" relativo all'utente "lfini" sul computer
(Unix) ospite.
Es:
hercules-lfini:perl 
test.pl
 
lfini:SHvsaXcpw4Xe6:10:20::Luca Fini:Luca Fini:/home/hercules/lfini:/bin/tcsh
Purtroppo se viene installato il sistema delle "shadow password" la
password crittografata non compare e viene sostituita dal carattere "x".
Es:
zeus-lfini:perl 
test.pl
lfini:x:10:20::Luca Fini:Luca Fini:/home/hercules/lfini:/bin/tcsh
Qualcuno conosce un modo di accedere alla password crittografata anche su
sistemi con le "shadow password" installate?
Grazie anticipatamente,
						l.f.
--------------------------------------------------------------------------
       -- )     Luca Fini                            Tel: +39 055 2752 307
 ___    |\      Osservatorio Astrofisico di Arcetri  Fax: +39 055 2752 292
/   |   | |_   L.go E.Fermi, 5 +-----------------------------------------
(___|___//___)  50125 Firenze  /   WWW: 
http://www.arcetri.astro.it/~lfini
 (_)      (_)   Italia        / e-mail: 
lf...@arcetri.astro.it
-----------------------------+--------------------------------------------
                              In a world without fences - who needs GATES?

sistemi con le "shadow password" installate?
Dubito sia possibile: le shadow password sono fatte apposta per impedire
a qualsiasi utente che non sia root di accedervi. Se fai girare il
programma con uno user qualunque non c'e` verso, se lo fai girare da
root allora puoi aprire /etc/shadow e cercarti la password che ti
interessa.
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

Newsgroup: it.comp.lang.perl
Titolo: Apache, Windows & Perl

Salve!
Problema:
Su un Windows Me installo Apache server 1.3. Tutto ok.
(Il fine è usare un server locale per testare offline i miei script in
perl).
I programmi semplici funzionano (sia .cgi sia .pl).
Se provo però ad usare qualche script che usa il comando flock() ottengo un
bel Error 500:
"[error] [client 127.0.0.1] flock() unimplemented on this platform at
source/
miofile.pl
 line 145."
Cerco una persona di buon cuore che possa aiutare questo umile neofita.
Ps se la domanda è cretina capitemi: sono agli inizi.
TnX by CyPo

 source/
miofile.pl
 line 145."
se semplicemente traduci quello che ti scrive il server, avrai la risposta:
flock() non è implementato su questa piattaforma (errore prodotto dal file)
source/
miofile.pl
 linea 145
Se vai a vedere dentro il file nella linea 145 troverai che è stata usata la
funzione flock che su windows produce un fatal error.
documentati sulla funzione scrivendo in command line:
perldoc -f flock
Puoi aggirare l'ostacolo mettendoci qualcosa tipo
if($^O !~ /Win/i){flock(....)}
che ti evita il flock su WinOS, mentre lo lascia invariato su altri OS.
ciao
--
-.. --- -- .. --.. .. ---
-.. . -- .. -.-. .... . .-.. .. ...

Hei, davvero grazie, sai sono un neofita.
Tnx anche per il uggerimento del newsgroup it.comp.www.cgi
A presto
Newsgroup: it.comp.lang.perl
Titolo: Perl e scrittura file

Salve a tutti,
è possibile, in Perl, scrivere su file record di lunghezza fissa, come si fa
in C con fwrite?
Ho provato con syswrite ma se la variabile ha ad esempio tre byte ed io
chiedo di scriverne 5 lui me ne scrive comunque tre.
Grazie,
Sergio B.

perldoc -f printf  <-- quello che ti serve
perldoc -f sprintf <-- documentazione
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

in C con fwrite?
In che formato? Testo o binario?
Per il testo, basta formattare la stringa con il consueto printf e
compagni. Per scrivere dati in formato binario o comunque per un uso più
generale, bisogna rompersi un po' la testa su pack.
Ciao.

 Ciao.
Intendevo, ovviamente, in formato binario, printf è dunque da escludere a
priori.
Ho cercato l'istruzione pack (e relativa unpack) e sembra faccia al caso
mio...vedrò di utilizzare questa.
Grazie molte per la risposta,
Saluti,
Sergio

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

Ciao a tutti, 
qualcuno di buon cuore potrebbe spiegarmi perchč per il semplice script:
Sotto Windows XP con installato ActiveState ActivePerl 5.8
#!/usr/bin/perl
#convertihex_Dec.pl
use warnings;
use strict;
use socket;
my $address=gethostbyname('
www.perl.com
');
print inet_nota($address), "\n";
ottengo il seguente errore:
Undefined subroutine &main::inet_nota
Grazie!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Undefined subroutine &main::inet_nota
Perche` la sub inet_nota non e` definita. Credo ci siano due
problemi:
  i. ti sei dimenticata di scrivere use Socket all'inizio dello
     script
ii. hai scritto inet_nota anziche` inet_ntoa
HTH,
S.

Newsgroup: it.comp.lang.perl
Titolo: chmod [URGENTE]

Provando la riga:
chmod 0600 , "nomefile" ;
ottengo, invece, che i permessi diventano 130 anzichč 600...
Grazie per l'aiuto... sono in deadline per lunedě mattina.
--
Alberto Fossati
[
fos...@idea.RIMUOVI.it
]

fos...@idea.it
 wrote:
 >chmod 0600 , "nomefile" ;
 >ottengo, invece, che i permessi diventano 130 anzichč 600...
130 oct = 600 dec.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

Newsgroup: it.comp.lang.perl
Titolo: AIUTO INSTALLAZIONE modulo DBI sotto WINDOWS

Ciao a tutti,
    sarei veramente grato se qualcuno mi aiutasse a capire come installare
il modulo DBI sotto Windows. Ho provato anche leggendo il readme, ma non mi
funziona nulla. Tra l'altro alcune istruzioni da lanciare suggerite dal file
readme non funzionano (make, o dmake o nmake!!?). Qualcuno potrebbe
perfavore darmi una mano???
    Grazie,
            Federico Bari.

Se usi Windows devi avere il perl installato x windows e quindi scaricarti la
versione del
modulo DBI x Windows.
Puoi trovare tutte queste informazioni su 
http://www.activestate.com
saluti e buon lavoro...


dirò di più... se installi activestate-perl lo ha già!
Max
Newsgroup: it.comp.lang.perl
Titolo: Help XML::Parser

Ciao a tutti,
mi serve una mano, devo estrarre dati da XML, quindi ho scritto questo
script:
--------------------------------
use XML::Parser;
use Data::Dumper;
  $p1 = new XML::Parser(Style => 'Tree');
my $tree = $p1->parsefile( shift @ARGV );
print Dumper($tree);
-------------------------------------------------
l'output è:
$VAR1 = [
          'tdRequests',
          [
            {},
            0,
            '
',
            'tdRequest',
            [
              {
                'uri' => 'http%3A/'
              },
              'tdStartTime',
              [
                {},
                0,
                '9:22:25.772'
              ],
              0,
--------------------------------------------------
come estraggo un solo tag, tipo uri??
non so la sintassi...

   $p1 = new XML::Parser(Style => 'Tree');
Non penso que utilizare directamente XML::Parser e una buona idea. Ci
sono altri moduli, basati su XML::Parser o su libxnl2 que sono multo piu 
facile da utilizare.
Per estrarre dati da XML, se il XML non a "mixed content", il piu facile 
e d'usare XML::Simple, se il XML a "mixed content" XML::LibXML o 
XML::Twig sono recomendati (svilupo XML::Twig, quindi non sono 
totalmente imparziale).
-- 
mirod

Newsgroup: it.comp.lang.perl
Titolo: Case in Perl

Salve a tutti,
vorrei sapere se esiste l'equivalente del case in Perl.
Nel libro Programmare in Perl non mi pare di averlo letto, ma potrebbe essere
stata implementata in qualche nuova versione.
Qualcuno sa dirmi qualcosa? A parte il fatto che posso tranquillamente fare
delle if consecutive.
Ciao
	Pirla
Per rispondere in E-mail the (punto) pirla (chiocciola) 
flashnet.it
*** un bacio ai pupi ***
---> Linux user since yesterday <---

 
 perldoc -q switch.+case 
Max

vorrei sapere se esiste l'equivalente del case in Perl.
In Perl non c'e` una vera e propria struttura "case", ma li si puo`
implementare in piu` modi (documentati peraltro in Programming Perl,
di cui il libro che hai tu e` la traduzione):
SWITCH: {
  /^abc/ && do { $abc=1; last SWITCH; }
  /^def/ && do { $def=1; last SWITCH; }
  $nothing = 1;
}
oppure:
SWITCH: {
  if (/^abc/) { $abc=1; last SWITCH; }
  if (/^def/) { $def=1; last SWITCH; }
  $nothing = 1;
}
oppure:
SWITCH: {
  $abc=1, last SWITCH if /^abc/;
  $def=1, last SWITCH if /^def/;
  $nothing = 1;
}
oppure ancora molti altri. Nota che "SWITCH" e` una semplice label,
quindi puoi scrivere qualsiasi cosa al suo posto.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!
Newsgroup: it.comp.lang.perl
Titolo: Info su Perl, libri etc.

Ciao a tutti,
sono nuovo in questo gruppo e sono nuovo anche per il linguaggio perl.
Mi rivolgo principalmente a chi ha diversi anni di eseprienza nella 
programmazione in perl.
Lavoro da diversi anni in ambiente windows con tools della microsoft.
Per quel poco che ho sentito dire mi sembra che il perl sia un linguaggio 
molto simile ad uno di scripting e/o interpretativo
molto adatto alla manipolazione di stringhe di caratteri e in ambiente
windows ci dovrebbero essere delle dll simili ad un supporto a 
runtime/motore che eseguono cio' che scrivi in perl.
Potreste indicarmi un buon libro introduttivo ed uno avanzato da leggere 
subito dopo?
Cosa bisogna fare per avere un ambiente di sviluppo? (ad esempio c'e' 
qualche add-on da integrare in visual studio?).
Il punto che vorrei ragigungere poi sarebbe quello di richiamare delle 
funzionalita' esportate da alcune dll scritte in c/c++ e magari in c#.
Il perl puo' ad esempio richiamare delle funzioni esportate da dll win32, in 
cui le funzioni sono esportate con convezione di
chiamata c? e funzioni esportate con convezione c++ (__declspec(dllexport))? 
e nel caso di c++ posso richiamare anche classi esportate, sempre dal perl?
Per quanto riguarda le nuove tecnologie di microsoft, .NET, c#, sempre in 
relazione a dll fatte con quest'ultime, e' possibile
richiamarle dal perl?
grazie tante
roberto 

robbio wrote:

Già che c'eri, potevi chiederci anche del terzo segreto di Fatima.
Prova a riformulare una domanda alla volta (o almeno un argomento alla 
volta), e prima ancora da' un'occhiata a questo:
http://www.catb.org/~esr/faqs/smart-questions.html
Le risposte sarebbero grossomodo affermative, ma ognuna di esse 
richiederebbe un thread a parte.

 richiederebbe un thread a parte.
----------------------------------------------------------------------
ops,
mi dispiace, ma non pensavo che fossero eccessive e che ognuna richiedesse 
un thread a parte.
Mi serviva solo qualche dritta per evitare di prendere qualche strada 
sbagliata e perdere tempo
tutto qua, ecco perche' mi rivolgevo a qualcuno che avesse un po' di 
esperienza.
Ad ogni modo ho risolto gia' da me, grazie della smart-risposta.
roberto
Newsgroup: it.comp.lang.perl
Titolo: HELP! Upload file da CGI.

ciao
programmo CGIs in Perl.
Non mi riesce di far funzionare un file upload.
ho preso uno script da
http://www.muquit.com/muquit/software/upload_pl/upload_pl.html
Il file di destinazione risulta sempre vuoto, questo perche'
non sembra leggere il file di origine.
Qualcuno ha dei suggerimenti ?
 grazie
Raffaello

 Non mi riesce di far funzionare un file upload.
   Non ho letto lo script, pero` un buon motivo di malfunzionamento 
potrebbe essere dovuto al web server che utilizzi: MS IIS, per esempio, 
fino alla versione 4 presentava problemi con l'upload. Leggi la 
documentazione di CGI.pm per maggiori informazioni.
-- 
Alla prossima,
Marco



La documentazione l'ho letta, ed e' piuttosto "fumosa" su questo punto.
Il fatto e' che proprio non ne vuole sapere di leggere il file ...
Il server non utilizza MS IIS.
 Raffaello



Ho fatto prima di voi. ^_^
dovevo mettere
$q->start_form(undef,undef,'multipart/form-data')
invece di
$q->start_form()
che di default da'
enctype="application/x-www-form-urlencoded"
Questo rendeva impossibile l'upload.
 Raffaello

Newsgroup: it.comp.lang.perl
Titolo: codici in perl per cgi

Ho l'esigenza di dare un'occhiata al codice di script cgi che gestiscano
database e siano volti all'e-commerce. Su 
cgipoint.it
 ho visto che sono
presenti alcuni freeware gia' pronti da installare per creare dei "carrelli
spesa". Sicuramente funzioneranno...e puo' darsi che decida anche di
servirmene...
ma dove posso trovare un codice in perl per una applicazione del genere.
Attendo qualche consiglio.
Grazie, Fabio

ma dove posso trovare un codice in perl per una applicazione del genere.
appunto su cgipoint o su altri siti che mettano a disposizione script
in perl. Vai sul sito, ti scarichi gli script e poi li apri con un
editor di testo (occhio alle differenze tra il testo dow/win e il
testo unix se poi vuoi farli girare sotto *nix)
ciao

 Attendo qualche consiglio.
Beh, se la ci sono te li scarichi (magari uno solo, visto che spesso
sono belli grossi) e ti leggi il codice!
Ciao
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

 ha scritto nel messaggio
news:hqm4l8...@127.0.0.1...

Grazie ;-), avevo disertato questa ipotesi nella speranza di trovare qualche
cosa di più snello, come un tutorial ad esempio......
Ciao fabio

 ciao
Idem come sopra...e grazie
Ciao Fabio
Newsgroup: it.comp.lang.perl
Titolo: Dov'e' la differenza?

Ciao,
oggi mi sono trovato in una particolarita' delle quale mi sfugge la 
motivazione. Ho semplificato tutto in questi due spozzoni di codice: il 
primo funziona correttamente (esce un bel Ok!), il secondo cade nella 
die e ritorna quindi un errore. Nel dubbio ho provato anche su Mac OSX 
oltre che su Win.
Com'e' possibile? Grazie!
ESEMPIO FUNZIONANTE
$fname='896.def';
open(DEF,$fname) or die("Err $fname");
print "Ok!\n";
close(DEF);
ESEMPIO NON FUNZIONANTE
$td="869";
$fname=$td.'.def';
open(DEF,$fname) or die("Err $fname");
print "Ok!\n";
close(DEF);
ps. chiaramente nella dir dello script e' sempre presente il file "896.def".

 "896.def".
okkio al typo! il secondo cerca di aprire "869.def"
-- 
Under construction

> okkio al typo! il secondo cerca di aprire "869.def"
...con la mia faccia sotto i vostri piedi! ;-)
Grazie!
Daniele

 ha scritto nel messaggio 
news:e6j9rt$4mu$1...@nnrp-beta.newsland.it...


L'unica differenza che osservo sono le doppie virgolette unite alle
virgolette singole nel secondo spezzone di codice, mentre nel primo
spezzone ci sono solo virgolette semplici. In Perl non dovrebbe essere
un problema, in altri linguaggi lo è.
Forse l'interprete lo considera un errore?
riassumendo
$fname='896.def';
diventa
$td="869";
$fname=$td.'.def';
prova
$td='869';
$fname=$td.'.def';

Newsgroup: it.comp.lang.perl
Titolo: calcoli su tempo/data

Volevo sapere se esiste qualche funzione (o libreria) in Perl che esegue
operazioni su tempo e data, ad esempio:
- giorni trascorsi
- tempo trascorso
- giorni rimanenti ad una data
etc...
Grazie a tutti !!!
Danny.

 ha scritto nel messaggio
news:FPKl8.42579$1S3.1...@twister1.libero.it...


Newsgroup: it.comp.lang.perl
Titolo: OSAMA SECRET FILES !!!!!!!!!!!!!!!!!!!!

www.lollypop.cjb.net
Newsgroup: it.comp.lang.perl
Titolo: FTP on DEMAND: raga A I U T A T E M I !!!!

Ragazzi, qualcuno di voi puo' aiutarmi per realizzare per un provider un FTP
on demand sotto UNIX? O anche sotto NT4.
Mi spiego:
1) su una pagina html uno puo' inserire un url da downlodare. Naturalmente
l'accesso a quella pagina sarebbe riservato ai soli utenti registrati sul
database del provider.
2) di notte, a una certa ora il server inizia il download.
3) il giorno dopo l'utente va nella pagina dei file ftp on demand scaricati
e puo' downlodare il file alla max velocità, naturalmente solo se è del
provider.
my site: 
http://www.sky-net.com
Inoltre qualcuno sa come si puo' rendere un normale programma un servizio di
NT4?
grazie

 wrote:
: 1) su una pagina html uno puo' inserire un url da downlodare. Naturalmente
E qui usi CGI.pm o CGI-modules.
: l'accesso a quella pagina sarebbe riservato ai soli utenti registrati sul
: database del provider.
Per questo usi il modulo DBI e il relativo driver DBD per il database in
questione.
: 2) di notte, a una certa ora il server inizia il download.
La libnet contiene il modulo Net::FTP.
: 3) il giorno dopo l'utente va nella pagina dei file ftp on demand scaricati
: e puo' downlodare il file alla max velocità, naturalmente solo se è del
: provider.
Scrivere una pagina HTML non penso sia un problema ;-)
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) ipers (dot) net   for my PGP public key
Newsgroup: it.comp.lang.perl
Titolo: problemi di fork con database connessi

Salve. Il mio problema è il seguente: su di un mio programma ho un handler
di database (DBI) connesso ed a un certo punto "forko" creando un figlio,
che dopo una breve elaborazione (ma non usando il database) termina
lasciandomi una situazione alquanto strana. Infatti su DB2 il padre continua
normalmente ad utilizzare l'handler di database senza problemi, mentre lo
stesso codice su PostgreSQL (ovvero dove sto portando il mio codice) a
volte, ed in modo aleatorio, mi dice che la connessione al database è
terminata inaspettatamente. Leggendo il mio libro di Perl e DBI (e leggendo
anche alcuni precedenti messaggi su Google) ho trovato l'attributo di classe
"InactiveDestroy" da applicare o sul padre o sul figlio, ma non sembra avere
nessun effetto. Per il momento l'unica cosa che ho trovato è di
disconnettere prima di forkare e poi riconnettermi, con gli ovvi disagi. Ho
sbagliato qualche cosa io o non è implementato "InactiveDestroy" sul driver
DBD::Pg? Qualcuno ha qualche cosa da consigliarmi? GRAZIE.



Hai considerato la possibilita' di "forkare" al di fuori della connessione
al DB ? Intendo o prima o dopo la connessione ?
 Raffaello

 ha scritto nel messaggio
news:Pine.OSF.4.31.02120...@harry.molgen.mpg.de...


Newsgroup: it.comp.lang.perl
Titolo: .. da array a scalare

Devo far passare dei valori da un array ad uno scalare unendoli
esiste una funzione che faccia questo ?
Es:
@pod[0]="Ciao";
@pod[1]="come";
@pod[2]="va";
L'output dovrebbe essere uno scalare che contenga 'Ciaocomeva'.
Grazie in anticipo

 Grazie in anticipo
perldoc -f join
Bye,
 Emmanuele.
-- 
I ... Owe ... You ... Pain! -- Willow, "Tough Love"
Italian Buffy Resource Site (Beta) - 
http://www.ibrs.f2s.com
GnuPG Key ID: 0x788E3A3A
GnuPG Key FP: 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

Ho risolto il problema, era una cazzata !!
hehehe

Newsgroup: it.comp.lang.perl
Titolo: Voglio imparare il PERL!!!!!!!!!!!!!

Come, faccio? Esiste qualche guida, che programmi miservono, che
potenzialità ha questo linguaggio?
Vi prego rispondetemi.
--
estizi - 
est...@iol.it
HOLY METAL
http://members.xoom.it/holymetal

 ICQ# 1980563

 Vi prego rispondetemi.
In italiano:
http://www.isinet.it/~marco/perl/
 
-- 
**************************************
Duke Of Hell - Lord Of Chaos
Computer Science Undergraduate Student
http://www.cs.unibo.it/~tasso
**************************************
Newsgroup: it.comp.lang.perl
Titolo: ~regular expression

Salve a tutti,
ho poca dimestichezza con quanto in oggetto:
come posso ottimizzare il codice qui esposto?
$chunk=file_html
$chunk =~ /<!--body1-->/;
$chunk = $';
$chunk =~ /<!--body0-->/;
$chunk = $`;
print $chunk;
Grazie in anticipo.

 print $chunk;
questo stampa $chunk, ma non credo il risultato sia quello che ti aspetti
--
-.. --- -- .. --.. .. ---
-.. . -- .. -.-. .... . .-.. .. ...

 ha scritto nel messaggio
news:apk1dh$29oc2$1...@ID-159100.news.dfncis.de...


 ha scritto nel messaggio
news:apk1dh$29oc2$1...@ID-159100.news.dfncis.de...


 essere condensato in una regular expression.
Certo!
m|^<!--body1-->(.+)<!--body2-->|
$chunk = $1;
Jop

Se lo spiegavi cosě subito, allora ti avrei scritto:
$chunk =~ s/<!--body1-->(.+)<!--body0-->/$1/;
(se sai esattamente i nomi dei commenti)
ciao

Newsgroup: it.comp.lang.perl
Titolo: MSDN Originale Vendesi

Vendo i seguenti numeri di MSDN Library Originali:
-MSDN July 2000 (3 CDs) 70.000 lire
-Component Source MSDN 10/99 Edition (1 CD) 6.000 lire
-Component Source MSDN 04/2000 Edition (1 CD) 8.000 lire
-MSDNnews (opuscolo) January/February 2000 4.000 lire
-L.W. Beethoven Sinfonia N. 9 in Re Minore Op. 125 Corale 4.000 lire
Component Source MSDN, MSDNnews e Beethoven se associati a un numero di MSDN
Library a
metà prezzo.
Spese di spedizione a carico del destinatario.
Scrivete a 
fran...@yahoo.it

E' la quarta o quinta volta che posti questo messaggio di PUBBLICITA'
completamente OFF-TOPIC in questo newsgroup, che dell'MSDN o di Beethoven
non gliene puo' fregare di meno.
Fortuna che c'è 
AB...@YAHOO.COM
Ciao.


NNTP-Posting-Host: 62.98.124.181
X-Trace: 
nread2.inwind.it
 979914808 29306 62.98.124.181 (19 Jan 2001
14:33:28 GMT)
X-Complaints-To: 
ab...@inwind.it
NNTP-Posting-Date: 19 Jan 2001 14:33:28 GMT
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Xref: 
news.infostrada.it
 it.comp.lang.javascript:39061
it.comp.lang.pascal:7575 it.comp.lang.perl:9189


Beh... se ha messo come indirizzo per le risposte, al termine del messaffio,
fran...@yahoo.it
 sarà perché è quello vero.
Almeno penso.
Ciao

Si, ma non e' con quello che ha fatto spam (spam l'ha fatto con il server
delle news di inwind) !!! Ed inoltre e' un account gratuito che non gli
cambia nulla se gle lo chiudono, probabilmente l'ha aperto aposta per
l'occasione.
Invece WIND credo sia il suo ISP, quindi gli scoccia di piu', e su wind
avra' anche la sua vera casella email !!
Ad ogni modo la mia e' solo una leggera intuizione. Passo e chiudo,
Alex


metti un annuncio su portobello e non rompere i coglioni
Newsgroup: it.comp.lang.perl
Titolo: Find su Windows

Ciao a tutti! Ho realizzato un'applicazioncina in perl che fa uso dei CGI e
che trovate su: 
http://www.nautilus-mp.com/cgi-bin/cartoline.pl
Premetto che il tutto gira su Linux e Server Apache ma l'applicazione è
stata sviluppata su un PC con Windows 95 e Perl per Windows, server
OmniHTTPD. Adesso volevo costruire un piccolo motore di ricerca utilizzando
la stessa tecnica, lo faccio in locale su Windows, vedo se funziona e poi
lo adatto per il remoto. Questo motore di ricerca dovrebbe usare il package
find. Adesso la mia domanda è: il find funziona solo su Linux/Unix o c'è
qualche speranza che funzioni allo stesso modo sul mio Windows 95?
E ancora, come esiste un package find che restituisce i files, è possibile
trovare qualcosa che restituisca tutte le directory di un sottoalbero, cioè
se io ho una struttura del genere:
/www
   Vari files
   /www/dir1
      Vari files
      /www/dirbo
          Vari files
è possibile trovare qualcosa che mi restituisca:
/www
/www/dir1
/www/dirbo
cioè tutte le directory da un certo nodo in poi (per nodo intendo il nodo
dell'albero delle directory)?
Grazie a tutti anticipatamente.
Aldo.
P.S. Togliete le x prima e dopo la @ nell'indirizzo...
armi...@mclink.it

 /www/dirbo
Ecco qua. Scritto al volo per te:
@DirList = ();
RecurseSubDir ("/usr/local");
print join "\n", @DirList;
sub RecurseSubDirs {
	$d = shift;
	push @DirList, $d;
	opendir DIR, $d;
	my @files = grep /^[^\.]/, readdir DIR;
	close DIR;
	map {
		if (-d "$d/$_") {
			RecurseSubDirs("$d/$_");
		}
	} @files
}
Salvo refusi, dovrebbe andare.
Ciao, Max

 	$d = shift;
Per ovvie ragioni qui ci vuole un 'my':
	my  $d = shift;
Ciao a tutti,
Max 

 Max 
Grazie, lo proverň. Adesso perň mi chiedo: questa sub come l'uso del
package 
find.pl
 funziona su un sistema Windows 95?
Grazie, aldo.
Rimuovere le x prima e dopo @
armi...@mclink.it

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

Salve volevo porvi alcune domande
1- PHP e Perl sono la stessa cosa o no?
2- Il Perl è compatibile con LINUX?
3- Dove posso trovare info sul Perl? Conoscete qualche libro?
4- Mi consigliate poi un compilatore Perl
Squaloxp
-----------------------
"Nothing is impossible"

 4- Mi consigliate poi un compilatore Perl
L'argomento compilatori Perl e` da trattare con cautela.
Puoi farti qualche idea cominciando a leggere questa FAQ
e questo vecchio post:
 
http://www.perl.it/documenti/faq/view.html?pag=3&faq=22
 
http://snipurl.com/7jtz
ciao,
S.
[1] 
http://www.cpan.org/ports/
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

 "Nothing is impossible"
Dopo sta mail lo penso anch'io. :)
Ciao,
-- 
+--------+ | ASCII ribbon campaign ( ) | 
www.autistici.org/kral
|  kral  | |  - against HTML email  X  |
+--------+ |              & vCards / \ | my gpg id = 0x7C946947
Newsgroup: it.comp.lang.perl
Titolo: OO Perl - metodi privati

Salve,
nel package che ho scritto voglio distinguere
metodi privati da metodi pubblici.
Come posso fare ?
 Raffaello

Come posso fare ?
Non me ne intendo molto di programmazione ad oggetti, ma forse il modulo
Exporter fa qualcosa di simile a quello che chiedi:
  package ModuleName;
  require Exporter;
  @ISA = qw(Exporter);
  @EXPORT = qw(...);            # symbols to export by default
  @EXPORT_OK = qw(...);         # symbols to export on request
  %EXPORT_TAGS = tag => [...];  # define names for sets of symbols
O puoi scriverti un tuo metodo import nel tuo modulo.
Mi sembra di capire perň che non sia possibile ottenere veri e propri metodi
privati nel senso inteso in altri linguaggi: i simboli non esportati sono
comunque accessibili attraverso una qualificazione completa. E` bensě
possibile creare una funzione privata, con un trucchetto del genere:
   my $subref = sub { ... };
   &$subref;
ma non puň poi essere richiamata come metodo.
Ciao.

 Exporter fa qualcosa di simile a quello che chiedi:
[cut]
Mi pare una inutile complicazione, speravo ci fosse qualcosa di
predefinito.
Comuqnue ho guardato nelle varie e caotiche documentazioni di OO Perl e
ho scovato solo che come convenzione i nomi dei metodi (e degli
attributi) privati vengono preceduti da un "_" (underscore). Mi pare
una tecnologia un po' povera ...
Vabbe' ....
Grazie comunque
 Raffaello

predefinito.
Il modulo Exporter è appunto il "qualcosa di predefinito" per
l'esportazione di simboli. Per la creazione di metodi privati non ci può
essere nulla di predefinito, perché questi non sono previsti dal
linguaggio.
Un sistema che si può usare (e che viene usato da diversi moduli) è
costruire un modulo di interfaccia con tutti i metodi che si vogliono
rendere pubblici, e "seppellire" i metodi che si vogliono proteggere da
sguardi indiscreti in un sub-modulo. Gli utenti del modulo use-ranno il
modulo interfaccia, e perciò non avranno accesso diretto ai metodi del
sub-modulo. Le procedure interne del modulo invece possono importare
esplicitamente il sub-modulo e così accedere ai metodi interni.
Ciao.

 linguaggio.
Per "predefinito" intendevo appunto previsto dal linguaggio. In realta'
devo ingegnarmi e importare un modulo aggiuntivo.
 Raffaello



Il prolema di base è che in Perl NON c'è modo di rendere 'privata' una
funzione: la sub è sempre accessibile dando il nome completo. 
L'unico modo è qualcosa come:
my $private_sub = sub {
...
}
e poi ne codice:
$private_sub->(@args)
Ma nn funziona bene col paradigma oggetto, perchè non sono acceesibili cia
l'interfaccia
Package::Name->method....
o
$blessed->method
Leo TheHobbit
Newsgroup: it.comp.lang.perl
Titolo: OOP classe protette, private e pubbliche

Ciao a tutti,
secondo voi è esatto dire che una classe inserita in un modulo .pm (quindi
con un unico package) e priva di AUTOLOAD corrisponde ad una classe
protetta, mentre una fornita di subroutine AUTOLOAD corrisponde ad una
classe pubblica?
questo in quanto l'unico modo, in assenza di AUTOLOAD, per accedere agli
attributi è tramite il costruttore o metodi espliciti. Mentre tramite
AUTOLOAD è possibile modificare gli attributi durante l'esecuzione
dall'esterno.
e come si costruirebbe una classe privata?
-- 
-- Marco Allegretti --
http://www.shishii.com

 e come si costruirebbe una classe privata?
cosa intendi precisamente per "classe privata"?
cheers,
Aldo

 Aldo
Grazie.


 scalare. Mi sbaglio?
Infatti tutto quello che si può dire in generale è "un oggetto è un
reference". Lui però ha detto "per come sono implementate normalmente le
classi in Perl", sicché l'affermazione è ragionevole: "normalmente" si usano
reference ad un hash (anche perché è il modo più semplice per costruire e
riferire oggetti con un minimo di complessità).
Ciao.

 stessa, comprese dalle classi derivate.
immaginavo una cosa del genere. i moduli CPAN fields e Class::Declare 
sembra che abbiano funzioni del genere, ma di più non so dirti.
cheers,
Aldo

Newsgroup: it.comp.lang.perl
Titolo: $CNF

Salve a tutti,
ho trovato in uno script perl ripetuta piu' volte un'assegnazione di questo
genere:
$nome = $CNF {'nome'};
Che cosa significa CNF e a cosa serve?
Grazie a chi mi risponde!
Ciao
Alberto

 Che cosa significa CNF e a cosa serve?
Per quesso che ne so, a me sembra un hash come tanti altri. Non mi risulta,
infatti, che CNF sia qualcosa di riservato.
	Hope this helps,
	Best Regards,
		Kazuma
-- 
Alex Garbagnati, 
agarb...@removethis.decisive.com
Sr. Lead Engineer, Product Development
Decisive Technology Corporation
Mountain View, CA  94043

a sensazione... cerca CNF.pm tra le librerie del perl e troverai la
soluzione...
ciao Ezio

 wrote in message 37A965...@jia.it...

Newsgroup: it.comp.lang.perl
Titolo: Modificatori delle regexp

Ciao a tutti,
mi servirebbe un chiarimento:
si sa che in fondo alle espressioni regolari possono essere aggiunti dei
modificatori opzionali (/giomsx) che ne cambiano il comportamento.
Quello che non sono riuscito a capire bene è l'uso di /m e /s, cioè
qual'è la diffrenza fra:
$stringa =~ /pattern/
$stringa =~ /pattern/m
$stringa =~ /pattern/s
di /m ho trovato scritto: "Tratta la stringa come composta da più
righe";
di /s ho trovato scritto: "Tratta la stringa come una singola riga",
però non riesco a capirne il funzionamento nella pratica.
Grazie in anticipo a chi mi chiarirà questo dubbio.
Gabriele

 
Il manuale mi sembra chiaro:
       m   Treat string as multiple lines.  That is, change "^"
           and "$" from matching the start or end of the string
           to matching the start or end of any line anywhere
           within the string.
       s   Treat string as single line.  That is, change "." to
           match any character whatsoever, even a newline, which
           normally it would not match.
Esempio:
  my $testo =  "A\ntesto\n";
  $testo =~  /^testo$/m;  # SI
  $testo =~  /^testo$/;   # NO
  $testo =~  /A.testo/s;  # SI
  $testo =~  /A.testo/;   # NO
Max


...
Beh, in effetti lo è, solo che ho un piccolo problema: sembra incredibile,
ma non mi funziona il comando "perldoc"!
Grazie dell'aiuto :)
ciao
Gabriele

 ma non mi funziona il comando "perldoc"!
perldoc e' in /usr/bin
se hai il percorso errato, crea piuttosto un alias su '/usr/bin/perldoc'
oppure vai su:
http://www.perldoc.com
funziona sempre.
Ciao
Carlo

 incredibile, ma non mi funziona il comando "perldoc"!  Grazie dell'aiuto
Non č che sei dentro in root?
Se si ti segnala:
Superuser must not run /usr/bin/perldoc without security audit and taint
checks.
e niente perldoc :)
ciao