mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: perche' non scrive

Perche questo codice non scrive su un file?
#!/usr/bin/perl
open (INPUT,"/etc/group");
open (OUTUT,">group");
#percorri tutto il file
while (<INPUT>) {
        # fai quello che vedi fare
        #butti in OUTPUT la riga corrente (manipolata o meno)
        @riga = split(/:+/, $_);
        print OUTPUT @riga;
        print "$riga[0]:$riga[1]:$riga[2]\n";
}
#Chiudi i files
close (INPUT);
close(OUTPUT);
Ma se stampo a video tutto funziona.....
PERCHEEEEEEEEEE??????????????????
PS. Questo e' il mio pripro script in perl..
--
Maximiliano Bonfiglio
mailto:
mbon...@flextel.it
FLEXTEL S.p.A.
http://www.flextel.it
Corso Vercelli 328
IVREA 10015 TO Italy
tel 39-125-235319
fax 39-125-252067

 open (OUTUT,">group");
  Prova a controllare se l'esito delle open() e` positivo
<code>
	open INPUT,'path' or die "AAARGH: path: $!"
</code>
	Alla prossima,
		Marco

Marco Natoni wrote:

La INPUT penso di so perche' le print le fa, la OUTPUT no so, crea un
file vuoto (ma lo crea)
Il codice che mi hai dato tu mi da errore (anche se metto le parentesi):
Ora il codice e' cosi':
#!/usr/bin/perl
#open (OUTUT,">/tmp/group");
open (INPUT,"/etc/group");
<code>
        open (OUTPUT,'>group' or die "AAARGH: path: $!");
</code>
#percorri tutto il file
while (<INPUT>) {
        #group_number
        @riga = split(/:+/, $_);
        print OUTPUT @riga;
        print "$riga[0]:$riga[1]:$riga[2]\n";
        #group_user
        @utenti = split(/,+/, $riga[3]);
        for ($i = 0; $i < $#utenti; $i++) {
                print "$riga[2]:$utenti[$i]\n";
        }
}
#Chiudi i files
close (INPUT);
close(OUTPUT);
E l'errore e' questo:
syntax error at 
prova.pl
 line 7, near "open "
syntax error at 
prova.pl
 line 14, near "print"
Array found where operator expected at 
prova.pl
 line 14, at end of line
        (Missing operator before ?)
syntax error at 
prova.pl
 line 21, near "}"
Execution of 
prova.pl
 aborted due to compilation errors.


</code>
Ommiodio che tocca vedere......
<code> e </code> ovviamente nel codice non ci va....
e quella linea forse e' meglio scriverla:
open (OUTPUT,'>group') or die "AAARGH: path: $!";
Ma almeno uno straccetto di documentazione sulla sintassi delle funzioni la
sappiamo leggere.
Uno che inizia a guidare si chiede cos'e' il pedale centrale prima di
schiantarsi contro un muro!!!!!!!
-- 
Saluti,
Giancarlo

 </code>
  Non e` che hai lasciato intatti '<code>' e '</code>' nel codice, vero?
E poi, le parentesi sono messe male.
	open (OUTPUT,'>group') or die ("AAARGH: $!");
	Alla prossima,
		Marco
Newsgroup: it.comp.lang.perl
Titolo: upload di file

Salve a tutti,
premetto che sono un programmatore Perl sotto Unix in ....erba!
Ho creato un programma di form-mail che funziona benissimo, ora ho
l'esigenza che il visitatore invii attraverso il form un file (tipo
immagine) verso il mio server.
Quindi il campo nella pagina html sarà:
... <input type="file" name="immagine" size="20"> ....
l'utente cliccando sul pulsante "Sfoglia" che appare automaticamente a
fianco del campo farà aprire una finestra di Windows per cercare il file da
inviare.
Una volta spedito, il campo "immagine" conterrà il percorso del file sul
computer locale del visitatore
(es: C:\lavori_grafici\vacanze2000\nuovo-1.jpg).
A questo punto per "prelevare" il suddetto file e allocarlo in una directory
del mio server web come devo fare?
Un grazie anticipato a tutti.
Daniele

del mio server web come devo fare?
Il modulo CGI.pm ti permette di fare tutto cio` in maniera molto semplice:
perldoc CGI
	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!


Grazie, dove trovo tale modulo?
Lo devo installare nella dirtectory CGI-bin del mio web provider?

 Lo devo installare nella dirtectory CGI-bin del mio web provider?
No.
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: Copy dir ?

use File::Copy;
copy ($dirA,$dirB) ;
questa sintassi è corretta?.. non funge su win98!!
grazie

 questa sintassi č corretta?.. non funge su win98!!
cosě su due piedi, *forse* sono i backslash che vanno quotati:
c:\win98\windows
deve essere scritto come
c:\\wind98\\windows

> cosě su due piedi, *forse* sono i backslash che vanno quotati:
non funge nemmeno sul server:-/

 non funge nemmeno sul server:-/
bho! In effetti il backslash NON serve, ma su windoze questo:
################
use File::Copy;
$file1="c:/windows/desktop/a/a.txt";
$file2="c:/windows/desktop/b";
copy("$file1","$file2");
################
fa quello che dovrebbe fare: sposta a.txt nella directory b posta sul 
desktop
A sto punto la domanda sorge spontanea: ma hai i giusti provilegi????

 A sto punto la domanda sorge spontanea: ma hai i giusti provilegi????
Credo di non essermi spiegato.. io voglio copiare l'intera directory
non *un* file... ma credo che non sia possibile...
Potrei  lanciare  un comando unix?..
se si:
dovrei creare una copia di una dir. con tutte le sotto dir.
dandogli  un nome diverso e sovrascrivendo la precedente copia

 non *un* file... ma credo che non sia possibile...
potresti usare file::find per attraversare ricorsivamente la dir e
mentre
lo fai usi file::copy e l'analogo per creare directory (ma puoi usare
sempre un system("mkdir dir") )
oppure cerca su 
http://search.cpan.org
  a prima vista c'è File::List per
attraversare le dir
comunque tramite google ho trovato

 non *un* file... ma credo che non sia possibile...
potresti usare file::find per attraversare ricorsivamente la dir e
mentre
lo fai usi file::copy e l'analogo per creare directory (ma puoi usare
sempre un system("mkdir dir") )
oppure cerca su 
http://search.cpan.org
  a prima vista c'è File::List per
attraversare le dir
comunque tramite google ho trovato:
http://aspn.activestate.com/ASPN/Mail/Message/perl-NTAdmins/486067
con (mi pare) uno script all'uopo.

 sempre un system("mkdir dir") )
io devo copiare diverse dir ciascuna con molti files e molte soto dir ad
albero..
preferirei evitare di copiare file per file...
mi piacerebbe se possibile copiare tutto l'insieme in un colpo solo...

 mi piacerebbe se possibile copiare tutto l'insieme in un colpo solo...
copiare una dir con tutti i file comunque significa copiare file per 
file! Il file system va aggiornato nel descrittore dei file e copiando
fisicamente nei cluster!
"in un colpo solo" (...) allora fai col tar: 
tar cvf pippo.tar pippo/
mv pippo.tar nella dir PADRE della nuova pippo/
tar xvf pippo.tar
rm pippo.tar
tutti col system

Andrea Maestrutti wrote:

Per farlo via chiamate di sistema mi sembra piu' rapido 
cp -a pippo1/ pippo2/
-- 
Saluti,
Giancarlo
Newsgroup: it.comp.lang.perl
Titolo: Aprire un file

Ciao entro in questo Newsgroup per la prima volta.
Ho installato il server WEB OMNIHttp 2.0 su Windows 95.
NOn riesco ad aprire un file.txt per leggerlo dal browser: di segiuto
l'esempio.
 
#!/usr/local/bin/perl 
require("
cgi-lib.pl
");
&ReadParse;
open(pippo, "utenti.txt") || die "open: non aperta";
close pippo;
- La funzione ReadParse va bene
- la open non so se non trova il file o la funzione stessa.
	Potreste dirmi da dove parte nella ricerca del file?
	La directory del server settata per raggiungere il 
	compilatore Perl č c:\perl\bin.
Ho provato a lanciarlo dal prompt del DOS come un eseguibile normale e se
non trova il file mi da il messaggio di errore altrimenti va bene.

 close pippo;
Probabilmente non hai i permessi per scrivere nella directory corrente.
Ciao.
Alessandro

secondo me è perchè devi specificare la dir in cui si trova



OMNIHttp 2.0 è un ottimo web server per Win95
da alcuni anni lo uso (dalla ver 1.0) e mi ha dato ottime
soddisfazioni per testare tutti i miei script perl che poi
utilizzo (con piccole modifiche) su server UNIX, Linux e AIX
Nell'ultima versione, poi, è stata ulteriormente potenziata
aggiungendo caratteristiche anche più professionali.
Devi tener conto una cosa: la fase più "scocciante" del  settaggio
degli script perl è proprio l'esatto riferimento alle PATH dei file
oggetto dello script (file di testo o html da aprire, scrivere ecc.).
Essendo poi in ambiente Win non hai altun problema di permessi
di scrittura, mentre riportando poi i tuoi perl testati e funzionali
da Win in ambiente UNIX dovrai far attenzione (RICORDATI BENE)
dell'esatta collocazione dell'interprete Perl sul server  (mi
riferisco alla prima riga #!/usr/local/bin/perl )
nonchè dei permessi da dare ai file (chmod) ed alle
maiuscole-minuscole dei nomi es: se richiami cgi-/bin/Script.PL
è diverso che cgi-/bin/
script.pl
Ciò premesso, il file di testo "utenti.txt", così come hai scritto,
il perl lo và a ricercare nella stessa dir dove hai collocato lo
script perl  ad es. se lo inserisci in cgi-bin/ del server lo cerca in
cgi-bin/
Se vuoi inserire il perl in cgi-bin e il file di testo in una
sottodirectory (ad es  cgi-bin/utenti/utenti.txt)
allora devi scrivere:
open(pippo, "utenti/utenti.txt") 
 __/ __/ __/ __/ __/ __/ __/ __/ __/ __/ __/ __/ 
Pasquale Annunziata WebDesigner 
and Webmasters' Guild Member.
e-mail:  
pasq...@mclink.it
 
My Personal Home Page:
http://www.mclink.it/personal/MC0414
 
Mondo JavaScript:
http://www.aspide.it/freeweb/JS
__/ __/ __/ __/ __/ __/ __/ __/ __/ __/ __/ __/
Newsgroup: it.comp.lang.perl
Titolo: problemi con Net::Smtp e ADSL

Ho scritto un programma perl (usando Net::Smtp) che invia in automatico
delle email statistiche ad indirizzi predefiniti.
Tutto funzionava bene finchč la macchina (win2000) era connessa in rete con
Router e accesso ISDN con provider libero (utilizzavo il server SMTP
mail.libero.it
).
Poi abbiamo cambiato in SMART 5 (ADSL) con IP statico di TIN...e, dopo
alcuni giorni, sono iniziati i problemi !!!
Ho cambiato vari sever SMTP (
MAIL.TIN.IT
 , 
MAIL.191.IT
 ed altri server
"free"), ma ad un certo punto non mi accetta piů i messaggi in uscita.
In pratica, quando richiamo
****
use Net::SMTP;
$smtp = Net::SMTP->new('
mail.191.it
'); # connect to an SMTP server
$smtp->mail('
autos...@tin.it
'); # use the sender's address here
        $smtp->to($destinatario); # recipient's address
        $smtp->data(); # Start the mail
... etc ...
****
la shell del perl si chiude, altre volte invia regolarmente le email.
IL SERVER 
MAIL.191.IT
 richiede quindi l'autenticazione del server
necessaria: come devo fare?
Forse
$smtp = Net::SMTP->new('
mail.191.it
', Hello => 'quale parametro???');
dove e come metto user e password dell'account email ?
Grazie anticipatamente a tutti.
Daniele.

: delle email statistiche ad indirizzi predefiniti.
con tutto il discorso sullo spam, adesso questa frase mi suona alquanto
sospettosa :-))))
--
________________________________________________________________________
"If I had my life to live over again, I'd make the same mistakes, only
sooner. - tallulah bankhead"

 
$smtp->auth(user,passwd);
	- Enrico

 
Sinceramente mi sembra una caccia allo spammer eccessiva... :-o
Ora non si può più parlare di mail, smpt e quant'altro 
che subito viene fuori la parlo 'spam', anche se la tua 
replica è palesemente scherzosa.
Direi in generale di applicare un po' di buon senso, se vogliamo rispondere 
si risponde ma senza incorrere nel 'pericolo' di essere bollati come
spam-favoreggiatori 
	- Enrico

: anche se la tua replica è palesemente scherzosa.
più che scherzosa, direi proprio ironica, in quanto se leggi i miei post
sull'argomento, vedrai che hai la mia stessa posizione sull'argomento :-)
dd
--
________________________________________________________________________
"Make it too tough for the enemy to get in and you can't get out."

 ha scritto nel messaggio
news:20021122103508....@sorcinelli.it...


:   RINGRAZIO PUBBLICAMENTE ENRICO PER LE UTILI INFORMAZIONI,
:   NON HO MAI ESEGUITO SPAM, QUESTE EMAIL RIGUARDANO STATISTICHE
:  INTERNE DI SERVIZIO CHE OGNI NOTTE VENGONO INVIATE AI NOSTRI
: COLLABORATORI ESTERNI.
se era per me, non c'era bisogno di specificare cosa ci fai con le mail che
mandi... il mio era un commento ironico, tant'è vero che (cito da un mio
precedente messaggio) io credo che "ci sono mezzi MOLTO più semplici e
preconfezionati per fare spam, che non contemplano minimamente l'uso di
programmi perl auto-costruiti".... quindi... tranquillo, ok? :-)
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"
Newsgroup: it.comp.lang.perl
Titolo: dimensioni directory

sto cercando un sistema "veloce" per testare l'occupazione dei files in
una directory. Mi spiego, vorrei fare un prg che scandisce una directory
+ eventuali subdirectory e ne calcola il contenuto in bytes.
Questo perchč non voglio mettere il quota che bloccherebbe l'upload di
nuovi files al raggiungimento dello spazio assegnato.
Qualcuno mi sa dare una dritta ?
-- 
-------------------------------------------------------------------------
Hosting professionale a prezzi USA? 
http://www.servitelit.com/prezzi.htm
-------------------------------------------------------------------------

 wrote:
| sto cercando un sistema "veloce" per testare l'occupazione dei files in
| una directory. Mi spiego, vorrei fare un prg che scandisce una directory
| + eventuali subdirectory e ne calcola il contenuto in bytes.
| 
| Questo perchč non voglio mettere il quota che bloccherebbe l'upload di
| nuovi files al raggiungimento dello spazio assegnato.
| 
| Qualcuno mi sa dare una dritta ?
in linux: 
	$_=`du -bs`);
	s/ *.$//;
per altr info: du(1)
oha



Perň questo funziona solo linux/unix. Non mi sembra molto portabile.
Ciao
Andrea

nuovi files al raggiungimento dello spazio assegnato.
Soptto Unix puoi usare il comando "du", altrimenti da Perl puoi usare
stat() in una funzione ricorsiva, ma non mi pare il massimo dell'efficienza.
Molti pacchetti per la gestione di quota permettono tuttavia la creazione
di limiti "non stretti", superati i quali viene cioe' generato un avviso
e non bloccato l'upload di altri file. Al limite puoi provare questo
metodo....
	A presto, Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

grazie a tutti !
Ho risolto facendo uno scriptino perl che lancia du, crea un file con il
risultato e genera la pagina html.
Non avevo mai usato du !!!!


Newsgroup: it.comp.lang.perl
Titolo: Blocco di file

Salve alla ML.
Ho fatto uno script in perl di iscrizione ad una mailinglist utilizzando le
funzioni su file open, print e close (utilzzo un file .txt). Funziona, fin
qui tutto bene, però mi è sorto un piccolo dubbio: nel caso di due
iscrizione contemporanee che succede? Si mischiano i dati, rendendo
incomprensibile il record? Devo usare la funzione lock per bloccare
l'accesso al file? E' un medoto affidabile? Autatemi vi prego !!!!!!!!!!!!!
Peppe

 l'accesso al file? E' un medoto affidabile?
La funzione è flock(), ed è affidabile!
perldoc -f flock
per leggere come funziona e gli esempi (un po' scarni!)
Ciao
-- 
___________________________________
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

 wrote in message 9j4nm8...@127.0.0.1...


> ML?? Questo loco dicesi "nresgroup"!!
                            ^^^

Newsgroup: it.comp.lang.perl
Titolo: ****Aiuto stringhe***

Esiste una regular expression che permette di fare una sostituzione nel
contenuto di due delimitatori a patto che in essa non ci sia
$nontoccare?



supponendo che i delimitatori siano '<' e '>'
$s=~s/<([^>]*)>/($1 eq $nontoccare)?"<$1>":'[SUB]'/e;
Oha
ps: a cosa servono gli asterischi nel subject?
-- 
#include <disclaimer.h>

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

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

Vorrei sapere se è possibile inviare un'email tramite uno script in perl.
Grazie a tutti
        Giuseppe

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

 Vorrei sapere se è possibile inviare un'email tramite uno script in perl.
man Net::SMTP
-- 
   __   _                  General Failure Error:
  / /  (_)__  __ ____ __   M$ Windows found on this system!
 / /__/ / _ \/ // /\ \ /   Remove it? (Y/y)
/____/_/_//_/\_,_//_\_\                    netamdin@.
MAPS.ON.sedes.net

Newsgroup: it.comp.lang.perl
Titolo: Perl e Pi3 WebServer

Ho installato recentemente Pi3 WebServer per Windows (uso Win98) e
l'implementazione del Perl della ActiveState; non essendo però molto pratico
nella loro configurazione non riesco a far girare i miei scripts.
In IIS 4.0 sotto NT non ho avuto problemi , è bastato associare
all'estensione .pl l'interprete Perl  dell'ActiveState; in Pi3 WebServer mi
aspettavo di trovare qualcosa di simile , ma da quello che ho potuto vedere
l' unica cosa che posso configurare per l'ambiente CGI è il mapping ossia la
corrsipondenza tra directory utilizzate nella lina URL del browser e quelle
reali sull'host.
Il problema è che quando richiamo ad esempio lo scipt dal browser (IE5) con
http://locahost/cgi-bin/prova.pl
 mi viene aperta per un istante una sessione
MS-DOS in cui parte probabilmente perl.exe , ma il browser non mi
restituisce nulla:
ho provato a mettere anche in testa allo script la riga
"#!c:/perl/bin/perl;" (sebbene con IIS 4.0 non sia necessario)   per
indicare la posizione dell'interprete ma non c'è stato nulla da fare!!
Sapreste indicarmi LA RETTA VIA !!
Grazie a tutto l'NG per un eventuale aiuto.
Federico PRoietti

 wrote in message
7mdc6v$o5o$1...@nslave1.tin.it...

Non conosco Pi3 WebServer ma visto che non vedo altre risposte alla tua
domanda cerchero' di aiutarti.
Per prima cosa, il fatto che IE5 ti lancia una finestra DOS dipende dal
fatto che probabilmente hai associato alla estensione .pl il programma perl
(come se cliccassi sul file .pl con il mouse).
Questo perche' nel file di configurazione di un qualsiasi server devi dire
cosa definisci per cgi.
Di solito e' una directory fissa tipo cgi-bin, e quindi tutto cio' che ci
metti dentro viene eseguito.
Altrimenti potresti dire tutti i files con estensione .cgi e/o .pl sono cgi
e devono essere eseguiti dal perl.
Il #perl serve SOLO a unix. Per il DOS e' un commento.
Per il resto, ti consiglio vivamente il web server Apache, facile da
installare e bene documentato.
Nando.
Newsgroup: it.comp.lang.perl
Titolo: info print all files

Ciao a tutti volevo sapere cortesemente come poter stampare tutti i file e
le relative sottodirctory data  semplicemente una directroy principale. Con
la possibilità di visualizzare ogni directory con i relativi file. Per tanto
è possibile modificare il listato che io vi invierò affinchè sia possibile
farlo?
#!/usr/local/bin/perl
print"Quale directoy devo stampare?";
chomp($MyDir=<STDIN>);
opendir(HOMEDI,"$MyDir");
my @files = readdir(HOMEDI);
closedir HOMEDI;
foreach (@files) {
  print STDOUT $_,"\n";
  }
grazie anticipatamente

 la possibilità di visualizzare ogni directory con i relativi file. Per tanto
Un modulo che ti permette di fare questo è File::Find, che si trova nei 
moduli distribuiti con il Perl. Dunque con perldoc File::Find hai la 
documentazione e gli esempi d'utilizzo.

Newsgroup: it.comp.lang.perl
Titolo: [newbie] Classico problema con regexp

Ciao a tutti,
ho cominciato a programmare in Perl da 2 settimane, e non riesco a
fare alcune cose. Dovendo scrivere una specie di 'javadoc' per Gimp
(per un corso all'Uni),
devo catturare i commenti C e generare codice HTML che li organizzi
bene.
Ecco i problemi:
* Ecco come catturo i commenti di piu' righe:
 
   while(($comm =~ /\/\*/) and
	  ($comm !~ /\*\//) and
	  (defined($next_line=<IN_FICH>)))
	     {$comm=$comm.$next_line;
   Questa grezza tecnica non funziona bene per vari motivi, il piu'
grave dei quali è che non cattura SOLO i commenti, ma tutto cio' che
c'è sulla riga. Io vorrei in una sola REGEXP leggere il commento e
ripulirlo dai '/*,*,*/'.
* Devo "catturare" le dichiarazioni di funzioni per organizzare i
commenti, ma in C non c'è una parola chiave per funzioni. Come posso
fare?
* Se voglio controllare che in una stringa ci siano tre parole, ad
esempio:
'copyright','gnu', e 'gpl', come posso fare? In pratica vorrei
scrivere una cosa come /(copyright|gnu|gpl)/i ma in AND anziché in OR.
Scusate ma già provato a cercare documentazione ma ho le idee un po'
confuse sulle regex.
Ciao e grazie

scrivere una cosa come /(copyright|gnu|gpl)/i ma in AND anziché in OR.
Se non sai in che ordine compaiono, direi che l'unica è fare un and fra più
espressioni regolari successive che cerchino le differenti parole.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Help!!

 numerica con il valore medesimo (esempio: $valore_numerico=254)???
Non si fa perche' non ce n'e' bisogno, dal momento che Perl non distingue
particolarmente tra stringhe e valori numerici (ok, ok, a volte distingue, 
ma non stiamo a sottilizzare!!! :)
Se proprio si e' disperati si scrive 0+$valore (si legge ZERO + $valore).
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

numerica con il valore medesimo (esempio: $valore_numerico=254)???
La conversione stringa<->numero e` automatica in Perl.
	Michele.
N.P. Nine Inch Nails: Somewhat Damaged
-- 
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!

Qualcuno sa indicarmi come si fa in perl a convertire il contenuto di una
variabile stringa che sia un numero (esempo:$valore="254") in una variabile
numerica con il valore medesimo (esempio: $valore_numerico=254)???
Grazie.





Newsgroup: it.comp.lang.perl
Titolo: Librerie grafiche

Ciao.. qualcuno mi sa dire se per win32 ci siano delle librerie grafiche 
un pò più carine (*non inorridite*) delle TK ??
Lo so che averle è già una benedizione, ma in quanto a look and feel 
sono un pò carenti.
Grazie in anticipo.
Annibale

Hannibal ha scritto:

..sono di nuovo io :)) .. mi autorispondo dopo 4 ore a caccia su internet :
modulo : Gtk2
repository PPM : 
http://www.lostmind.de/gtk2-perl/ppm/
documentazione : 
http://forgeftp.novell.com//gtk2-perl-study/documentation/html/index.html

Hannibal wrote:

Benissimo!
Ma ci sono anche wxPerl:
http://search.cpan.org/dist/Wx/
http://wxperl.sourceforge.net/
(scritta da Mattia Barbon)
Prima:
http://search.cpan.org/dist/Prima/
http://www.prima.eu.org/
TkZinc:
http://search.cpan.org/dist/tk-zinc/
http://www.tkzinc.org/tkzinc/index.php
(e ancora altri widget Tk che ora non mi ricordo...)
Ed altro ancora...
Come toolkit portabili.
Poi se devi fare un'applicazione solo per Windows c'è Win32::GUI.
Scritta dal /nostro/ Aldo "dada" Calpini :-)
Ed ha perfino un GUI builder wysiwig:
http://www.darserman.com/Perl/Loft/
(ma anche le altre librerie ne hanno).
Ciao,
Emanuele.
Newsgroup: it.comp.lang.perl
Titolo: come fare finire un processo perl

non sono certo se il problema sia qua o nella parte C, ma inizio da qua
perche` mi siete piu` simpatici :-)
Ho un programma C che spawna (fork + execl) tante copie di un programma
perl. Il guaio e` che quando il programma perl esce, mi rimane un processo
<defunct> che ovviamente mi occupa spazio inutile.
Che mi consigliate di fare? cosa devo chiudere ?
ciao, .mau.




Child reaping.
Se fai dei fork, il genitore deve avere definito un signal handler per
rispondere a SIGCHLD, altrimenti il figlio rimane zombie (<defunct>) finche'
non muore il padre.
Perlipc contiene informazioni su come farlo in Perl. Se devi farlo in C
credo sia equivalente usando le funzioni wait() o waitpid()
(o potrebbe bastare settare l'handler di SIGCHLD a IGNORE).
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: problema !!!!

Ciao a tutti,
sto cercando di realizzare uno script che mi
permetta di elencare tutti i file contenuti in un server 
semplicemente digitando un l'indirizzo di un sito
contenuto in quel server.
Sono in possesso di uno script  che fa questo ma il
problema e' che deve risiedere sul server del quale
voglio elencare i files.
Si puo' fare (in Perl ovviamente) ? Devo usare il modulo LWP 
o il Robot ? Ringrazio tutti anticipatamente per l'aiuto.
Joseph

E' una cosa terribile, a cosa ti serve ???
Alex

o il Robot ? Ringrazio tutti anticipatamente per l'aiuto.
Da remoto non puoi vedere (o almeno, non e` detto che tu possa) le
liste delle directory, dovresti entrare via telnet o FTP utilizzando
gli appositi moduli.
Alternativamente puoi prelevare con LWP la pagina principale e poi
fare il parsing ricorsivo dei tar <A HREF>, <IMG>, <FORM> e via dicendo.
	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!

Newsgroup: it.comp.lang.perl
Titolo: etichetta di un floppy

c'e' un modo in perl prendere dentro una variabile l'etichetta di un
floppy formattato con winsux??? mi servirebbe un programma che genera
una dir su hard disk con lo stesso nome dell'etichetta, pero' non so
come estrapolare l'etichetta
ciau



 Win32API::File::GetVolumeInformation
oppure
 my $output = ` dir a: `;
ed estrai l'informazione desiderata applicando una regexp appropriata.
Max
Newsgroup: it.comp.lang.perl
Titolo: Perché mi tronca il file?

Ho fatto questo semplice script per aggiornare una pagina tramite una
semplice form in cui inserire il codice html (in una textarea di nome testo)
ma non capisco perché il file che viene generato viene troncato dopo poche
righe (20-30) anche se inserisco del semplice testo.
Il codice è:
#!/usr/bin/perl
  if ($ENV{'REQUEST_METHOD'} =~ 'GET') {
    $buffer = $ENV{'QUERY_STRING'};
  } else {
    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  }
  @pairs = split(/&/, $buffer);
  foreach $pair (@pairs) {
          ($name, $value) = split(/=/, $pair);
          $value =~ tr/+/ /;
          $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
          $FORM{$name} = $value;
  }
   $text = $FORM{'text'};
 open (DATA, "> data/file.htm");
 print DATA "$text";
  close (DATA);
 print "Content-type: text/html\n\n";
 print "<center><H1>PAGINA AGGIORNATA<H1></center>\n";
Qualcuno può aiutarmi?
Grazie
                                      Alessio

 righe (20-30) anche se inserisco del semplice testo.
Explorer Windows taglia le righe piu' lunghe di 256 caratteri. devi cambiare
il wrap (da virtual a physical) oppure dire agli utenti di mettere un a capo
ogni tanto!
bye
silvio

Newsgroup: it.comp.lang.perl
Titolo: errore installazione perlmagick

Salve a tutti,
	sto provando a installare perlmagick ma ho qualche problema.
Prima di tutto il OS è debian SID.
Versione perl 5.8
* Scarico
* tar xvfz
* perl Makefile.PL
* make
a questo punto ho una serie di erroracci riportati qui:
http://www.nathanvi.it/tmp/errors2.txt
Come mai?
Cosa mi manca??
Grazie per ogni aiuto :-)

 Cosa mi manca??
Ti manca questo, ad esempio. 
 Magick.xs:63:24: magick/api.h: No such file or directory
Quindi ti manca, presumibilmente, il package "devel" della libmagick, 
oppure gli header sono installati in una locazione speciale.
Visto che usi una Debian. esegui
  apt-cache search libmagick
e installa il package "*-devel" con "apt-get install".
Comunque 'perlmagick' esiste come package giŕ pronto. Probabilmente fai 
prima a installare quello (sempre con 'apt-get', o con i vari 'dselect' e 
compagnia).
Max

Newsgroup: it.comp.lang.perl
Titolo: <!--#exec cgi="" -->

Ciao a tutti, sono proprio alle prime armi e vi chiedo, il comando (quello
dell'oggetto) che mi é stato suggerito su di un altro newsgroup dovrebbe
lanciare uno script CGI scritto in Perl che gira su di un altro sito,
qualcuno mi sà dire come inserirlo nella pagina html (con quale sintassi) e
se devo inizializzare qualcosa di particolare (variabile o altro).
Io ho provato in una mia pagina html ma non riesco ad utilizzarlo.
Ciao e grazie a chiunque mi aiuterà
Steve
--
Visita la Home Page dei Clandestino
Progetto Musicale d'Insieme
http://digilander.iol.it/iclandestino
icland...@libero.it

 ha scritto nel messaggio
news:xKff5.45048$sE5.4...@news.infostrada.it...


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

 ha scritto nel messaggio
news:1eec6pb.9lp0lznosy1jN%bale...@mac.com...

Newsgroup: it.comp.lang.perl
Titolo: un favore su Solaris

Chiedo scusa per la richiesta piuttosto offtopic, ma ho un problema
urgente.
Avrei bisogno che qualcuno mi compilasse sotto Solaris 2.6 (ma
probabilmente anche 2.5 va bene) un piccolissimo modulo Perl, perché
sulla macchina su cui opero non c'è gcc ed è un bel problema
installarlo -- tanto più che il modulo in oggetto è di pochi byte.
Ah, dimenticavo di dirlo, la piattaforma ovviamente è una Ultra-Sparc.
Se qualcuno può aiutarmi, il modulo si trova su
http://www.perl.com/CPAN/authors/id/S/SO/SOENKE/String-CRC32-1.2.tar.gz
Grazie e scusate ancora l'intrusione
				Ciao
					Guido
-- 
      |\      _,,,---,,_       Guido Notari
ZZzz  /,`.-'`'    -.  ;-;;,_   e-mail: 
not...@hal.varese.it
 
     |,4-  ) )-,_..;\ (  `'-'  
http://www.hal.varese.it/~notari/
    '---''(_/--'  `-'\_)       ICBM: 45.73°N, 8.10°E

 
http://www.perl.com/CPAN/authors/id/S/SO/SOENKE/String-CRC32-1.2.tar.gz
Ho inviato il compilato all'indirizzo e-mail.
						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?
Newsgroup: it.comp.lang.perl
Titolo: FORM+script cgi in perl: dove sto sbagliando?

Il mio scopo è quello di creare una pagina HTML di output tramite
l'inserimento di dati via FORM.
Ho copiato un esempio di script in perl ma non riesco ad adattarlo alle mie
esigenze, cioè quando
invio lo scritp, esso mi crea la pagina HTML con un nome che gli assegno io,
ma in output mi ricopia tutto
il contenuto dello script senza che mi inserisca nella pagina HTML di output
alcunchè di quello
che ho inserito via FORM.
Spero di essere stato chiaro. Se mi potete dare una mano, ve ne sarò grato
Dove sto sbagliando?
Ciao Riccardo
Questi i settaggi:
------------------
Ho un form HTML con i seguenti campi
Titolo (name=titolo e cosi per gli altri........)
Sottotitolo
Autore
Email
Nome da dare al file: (name=nome)
ed il seguente script cgi in perl:
print "Content-type:text/html\n\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;
}
print "<html><head><title>$titolo</html></head></title>";
foreach $key (keys(%FORM)) {
 print "$key = $FORM {$titolo},{$sottotitolo}, {$autore}, {$email}, {$nome},
{$articolo}<br>";
}
print "</body></html>";

 che ho inserito via FORM.
Evidentemente lo script non viene eseguito, ma considerato un file di
testo e rimandato come tale.
Innanzitutto lo script viene eseguito SOLO se si trova su un server,
ovvero la URL che specifichi come  ACTION nel form deve essere del tipo
http://....
Poi dipende anche da come e' configurato il server http. Devi chiedere al
gestore del server come possono essere eseguiti i programmi CGI. Puo'
essere necessario: a) averli in una particolare directory; b) che i file
abbiano particolari estensioni (.pl, .cgi, .exe, e simili); c) che debbano
essere lanciati con una procedura specifica; d) che il server accetti solo
il METHOD=POST nel form; e) etc...
Buon lavoro,
					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?
Newsgroup: it.comp.lang.perl
Titolo: Funzione length e lettere accentate

Ciao a tutti.
Qui [1] si dice che
"length: Returns the length in characters of the value of EXPR."
Il seguente programma dovrebbe scrivere 5, invece scrive 10. 
#!/usr/bin/perl
print length('àèìòù');
Dove sbaglio/cosa dovrei scrivere per avere il numero di caratteri della 
stringa?
Grazie
Matteo
[1] 
http://perldoc.perl.org/functions/length.html

 Come hai salvato lo script? In UTF-8 senza "use utf8" all'inizio?
Esatto: non ho usato "use utf8", anche se poi in realtà le lettere 
provengono dallo STDIN.
Sapevo che le accentate fossero una sequenza di due caratteri (ho 
trafficato un pò con ReadKey), ma leggendo la descrizione della funzione 
ho associato carattere=simbolo :(
Grazie
Matteo

Newsgroup: it.comp.lang.perl
Titolo: Modulo per perl win32 per usare database access

Esiste un modulo per interfacciare un db di Ms access con perl?
Grazie Stefano

 Esiste un modulo per interfacciare un db di Ms access con perl?
Win32::ODBC oppure DBI + DBD::ODBC
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: numeri interi

Ho realizzato uno cgi in perl e mi sono trovato davanti un problemino che ho
aggirato ma che vorrei risolvere: dovevo eseguire delle moltiplicazioni e
delle divisioni che mi dovevano arrotondare il risultato al numero intero
più vicino. Ho usato
($a  + ($b- (((10*$a) % (10*$b))/10))) / $b;  per la divisione e
(($a * $b)  - (((10*($a * $b)) % (10))/10)) ; per la moltiplicazione
che non mi arrotondano però mi restituiscono un numero intero abbastanza
vicino al risultato reale.
Considerando che le operazioni mi riportano o un numero intero o un numero
x.5 c'è un modo per semplificare e sistemare il tutto?
Ho guardato nelle varie guide ma non ho trovato niente (anche perché non ho
manuali ma solo piccole guide).
Qualcuno può aiutarmi?
Grazie
--
                                      Alessio

 Qualcuno può aiutarmi?
Per arrotondare si usa sprintf o printf.
Per esigenze durante il calcolo, puoi usare ceil() o floor() dal modulo POSIX.
Dettagli in perlfaq4 " Does Perl have a round() function?  What about ceil()
and floor()? "
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 Qualcuno può aiutarmi?
prova con
$c = $a / $b;
print int ($c + .5 *( $c/abs($c)));
--
------------------------------------------
Roberto Congiu
        Alchemy Communications
                LA California USA

 wrote in message
39EF7624...@pacbell.net...
Newsgroup: it.comp.lang.perl
Titolo: Struttura della directory Perl

Ciao a tutti, vorrei cominciare a lavorare in Perl e chiaramente
nascono dubbi atroci, abbiate pazienza....
Una delle cose che mi ha "bloccato" e' l'organizzazione delle
directory del linguaggio: esiste uno standard (tipo include, bin,
src del C)? Oggi, per fare una prova, ho compilato una libreria
per gestire dei menu' con ncurses, mi ha messo il "prodotto finito"
in queste directory locali (ero in /temp/srcperl):
.:
total 3
drwxr-xr-x   3 root     root         1024 Jun 29 18:54 arch
drwxr-xr-x   3 root     root         1024 Jun 29 18:54 lib
drwxr-xr-x   2 root     root         1024 Jun 29 18:57 man3
arch:
total 1
drwxr-xr-x   3 root     root         1024 Jun 29 18:54 auto
arch/auto:
total 1
drwxr-xr-x   2 root     root         1024 Jun 29 18:57 Curses
arch/auto/Curses:
total 76
-rw-r--r--   1 root     root            0 Jun 29 18:57 Curses.bs
-rwxr-xr-x   1 root     root        76067 Jun 29 18:57 Curses.so
lib:
total 19
-r--r--r--   1 root     root        16748 Mar 16  1996 Curses.pm
drwxr-xr-x   3 root     root         1024 Jun 29 18:54 auto
lib/auto:
total 1
drwxr-xr-x   2 root     root         1024 Jun 29 18:54 Curses
lib/auto/Curses:
total 0
man3:
total 25
-rw-r--r--   1 root     root        23660 Jun 29 18:57 Curses.3
posso mettere i file e dir sotto il path di Perl e va tutto bene
oppure devo rispettare delle regole?
Come mai la data di creazione delle directory e' giusta ma
quella dei file ottenuti e' ferma al 1996?
Potete consigliarmi della documentazione in lingua italiana
che sia un po' piu' "avanti" rispetto agli ottimi Appunti Linux.
Scusate la lunghezza del msg e grazie a chi vorra' rispondermi.
Ciao Francesco.
 

 quella dei file ottenuti e' ferma al 1996?
Fai fare tutto a Perl. Lui sa.
Di solito basta seguire la sequenza naturale:
perl Makefile.PL
make
make test
make install
e ritrovarsi tutto installato al posto giusto senza avere NESSUN problema.
Se proprio non e' possibile installare i moduli nella directory di sistema,
puoi indicare in Makefile.PL, se ricordo bene, dove li vuoi installati.
In ogni caso, fai sempre fare tutto a lui, anche perche' a volte ci sono dei
riferimenti interni nei file che devono essere risolti dal makefile durante
l'istallazione.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)


Ciao Maurizio, grazie per i chiarimenti e per la velocita'
con cui hai risposto! 
Effettivamente guardando con piu' calma (e confortato dal tuo reply)
ho trovato che c'era il modo per passare i paramentri di installazione
chiamando il make e indicando il path di Perl, di default il make
installava la libreria nella subdir /blib. Funziona alla grande.
Ancora grazie, ciao Francesco.
Newsgroup: it.comp.lang.perl
Titolo: Accessi

Salve, ho un mio sito e vorrei sperimentare un sistema residente su server
che automaticamente mi faccia aumentare il numero di accessi ma non so
neanche da dove cominciare!
Sperando che qualcuno possa darmi una mano ringrazio anticipatamente
bye
guruSyS

 che automaticamente mi faccia aumentare il numero di accessi
a che pro?
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

 ha scritto nel messaggio
news:b08tvv$n8le1$1...@ID-159100.news.dfncis.de...

semplicemente per verificare un sw che ho sviluppato che gestisce le
statistiche!

 statistiche!
se "gestisce le statistiche" allora basta che modifichi i files log su cui
si basa, senza fare un programma per "aumentare gli accessi"


Newsgroup: it.comp.lang.perl
Titolo: Spazi free con cgi

Salve sono sempre io... e ci sto prendendo gusto a "giocare" con i cgi.
Vorrei chiedere se mi potete indicare degli spazi free che offrono il
servizio cgi per poter fare qualche esperimento.
Grazie a tutti
Mario



Ciao,
la cosa più semplice che potresti fare è installarti l'ambiente direttamente
sul tuo PC ad esempio usando Apache e... Perl ovviamente :-)
Su Linux già ci sono, mentre su windows è assai semplice installarli.
Vedi anche il bundle 
http://www.wmcreation.it/Index.php?action=wmservertools
(solo win)
by
	- Enrico
--- have fun with 
www.perl.it
 ---

 ha scritto nel messaggio
news:20031121144505....@sorcinelli.it...


Newsgroup: it.comp.lang.perl
Titolo: base path....

come faccio a trovare il base path di una mia cartella ????
scusate della mi ignoranza ma non lo so proprio
Max


ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it


ciao, te ne sono grato... ma non ho proprio le basi per capire di cosa
parla.
Magari esiste un file pl i php che magari mi restituisca in qualche modo il
valore ???
Grazie 1000 ugualmente

valore ???
Certo, in perl è possibile ottenere il valore anche senza ricorrere ad una
funzione di un modulo, ma allora il codice diventa dipendente dal sistema
operativo. Di php, legittimamente, non ne so nulla.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: perldoc da root

Se eseguo perldoc da root mi da questo errore.
perldoc telnet
Superuser must not run /usr/bin/perldoc without security audit and taint  checks.
Così sono costretto a diventare un utente ed eseguirlo.
Come posso fare in modo da usare perldoc come un qualsiasi utente ???
Grazie

 Grazie
   perldoc -U <module_name>
perldoc perldoc (non č un gioco di parole...) per
approfondimenti.
   - Enrico
--------------------------------
Inviato via 
http://usenet.libero.it
Newsgroup: it.comp.lang.perl
Titolo: HELP: modifica di una stringa

Scusate la mia ignoranza sul Perl,
Se ho una stringa del tipo
c:\temp\prova.txt
e voglio estrapolare solo il filename (prova.txt) senza percorso
come devo fare?
Grazie a tutti,
Alessio.
-- 
                                            \\\|///
                                          \\  - -  //
                                           (  @ @  )
+----------------------------------------oOOo-(_)-oOOo---+
| Ing. Alessio Alessandretti                             |
|--------------------------------------------------------|
| Spazio ZeroUno S.p.A.                                  | 
| Via Grandi 21 - 20090 Vimodrone (MI)                   | 
| Tel.+39-2-25071336 Fax.+39-2-25071374  ooo0            |
| 
http://www.spaziozerouno.it/
          (    )   0ooo    |
+----------------------------------------\  (----(   )---+
                                          \_)     ) /
                                                 (_/
--
Posted from 
mindseal.comm2000.it
 [194.133.0.6]
via Mailgate.ORG Server - 
http://www.mailgate.org

On 17 Sep 1999 11:24:23 +0200, 
alessio.al...@spaziozerouno.it
(Alex) wrote:
| c:\temp\prova.txt
| 
| e voglio estrapolare solo il filename (prova.txt) senza percorso
 $_='c:\temp\prova.txt';
 m#.*\\(.*)$#; 
 $filename=$1;
Oha

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

On Fri, 17 Sep 1999 11:28:49 GMT, 
bale...@antispam.dada.it
 (Marco
Balestra) wrote:
| > m#.*\\(.*)$#; 
| Ma la RE scritta /\\([^\\]+)$/ non ti piaceva?
effettivamente. :-7
| Cioe', se . matcha anche \ e' un bel casino...
	m#\\(.*)$#; 
cosi e' meglio.
| BTW gliela riposto un po' piu' simile a quello che trova su perlop ;)
non avevo /usr/doc a disposizione.
| $path='c:\\temp\\prova.txt'; # scrivendolo tu devi segnare \
| $path =~ /\\([^\\]+)$/;
| $nome =~ $1; # $1 matcha il primo () nell'ultimo m// o s///
non e' '$nome = $1;' ???
Oha

non e' '$nome = $1;' ???
SI! Ora e' il mio turno di dire ":-7"
Mi perplimo pentito, contrito e redento...


 </CODE>
Se non erro, usare rindex e substr dovrebbe essere tendenzialmente piu'
veloce, in una situazione del genere, che usare una RE.
 $path = 'c:\\temp\\prova.txt';
 $nome = substr $path, 1 + rindex $path,'\\';
Un veloce benchmark mi diche che rindex+substr e' 3 volte piu' veloce della
RE.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 come devo fare?
and now for something completely different ;-)
    use File::Basename;
    $stringa  = 'c:\temp\prova.txt';
    $filename = basename $stringa;
    print $filename;
bye.
__END__
# Aldo Calpini
%_ = split undef, join ' ', qw(fahokem
xritajbugne csuctawer jhdtlrnpqloevkshpr
); print map $_{$_}, sort keys %_;

 
Ed eccone un altro...
 my $basename = ( reverse split /\\/, 'c:\temp\prova.txt')[0];
Newsgroup: it.comp.lang.perl
Titolo: my() e require

Vorrei creare uno script (
defines.pl
) contenente la definizione di 
alcune varibili per poi essere poi utilizzate da un'altro script (
aaa.pl
).
In 
defines.pl
 "dichiaro" la varibile
	my $bar = 'foo';
In 
aaa.pl
 la utilizzo
	use strict;
	require '
defines.pl
';
	print $bar;
ma l'interprete Perl non ne vuole sapere di eseguire lo script 
aaa.pl
; 
in effetti nel manuale c'e' scritto che lo scope di una varibile 
"dichiarata" con my() e' limitato al require-file.
Esiste un modo per poter utilizzare la variabile $bar in 
aaa.pl
 senza 
dover rinunciare a strict?
Il messagio di errore dell'inteprete dice 'Global symbol "$bar" requires 
explicit package name', ma qual e' il package name di $bar?
Grazie
Ciao
MjdP

 requires explicit package name', ma qual e' il package name di $bar?
Non esiste. I nomi delle variabili dichiarate con my non sono nella symbol
table di nessun package.
Ad ogni modo, nel tuo caso, trovo sia preferibile usare delle subroutine:
 in 
defines.pl
  sub BAR { 'foo' }
  sub FOO { 'bar' }
 in 
aaa.pl
    use strict;
    require '
defines.pl
';
    my $foo = BAR;
Max

 my $foo = BAR;
Grazie 1000, ho adottato quest'ultima soluzione; sopratutto perche' 
quella che fa uso di 'our' non l'ho capita. Ho comunque l'impressione 
che se me la rispiegi non la capiro' ugualmente (le mie lacune di Perl 
sono molte vaste), percui fino a quando non mi decidero' a comprare un 
buon libro di Perl (per cercare di colmare qualche lacuna) continuero' 
ad usare la soluzione che mi hai consigliato.
Ciao
MjdP

Newsgroup: it.comp.lang.perl
Titolo: creare finestre in perl: con cosa?

vorrei scrivere un interfaccia grafica per visualizzare dei dati:
cosa si usa in perl per farlo?
grazie in anticipo,Mario.



E' stato già ampiamente discusso ultimamente
http://usenet.libero.it/cgi-bin/SearchNews.epl?KEYWORDS=grafica&HD_NEWSGROUPS=it.comp.lang.perl&GRP_STMODE=1&TABLES=RECENT_MSG
	- Enrico

 cosa si usa in perl per farlo?
GTK, Tk.
Ciao,
 Emmanuele.
-- 
Emmanuele Bassi (Zefram)           [ 
http://www.radiance.ods.org/~zefram
 ]
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

_Mario Latens wrote:

Prova con la programmazione GTK+ (
www.gtkperl.org
).
Ti consiglio anche, se usi Linux, di provare Glade e Glade2Perl (che 
funzionano insieme).
Ciao
Erboro

Newsgroup: it.comp.lang.perl
Titolo: while (-e $nome_file)

Ciao a tutti,
 devo capire se in una certa directory esiste/esistono dei file che
contengono una certa stringa, con la shell funziona il comando:
 if ( -e *$nome_file* ) then.....
in perl ho pensato qualcosa di simile ma:
while (-e *$nome_file*).....
non funziona.
Come posso fare?
Grazie
Andrea
PS: scusate la banalità della domanda

 Come posso fare?
Metti il tutto tra parentesi angolari e butta via il -e.
Si chiama globbing e in un contesto di lista restituisce
tutti i file i cui nomi corrispondono a quelli cercati.
  my @files = <*$nome_file*>
  foreach( @files ) { ... }
Maggiori informazioni in perldoc -f glob
ciao
Stefano
Newsgroup: it.comp.lang.perl
Titolo: Aggiunta in testa o lettura dal fondo...

E possibile fare l'aggiunta in testa di un record su un file, senza
effettuare copie del file stesso o cose del genere?
Altrimenti, è possibile leggere un file partendo dall'ultimo record al
primo?
GRAZIE

 al primo?
  Nemmeno, se non con un artificio:
<code>
	open FILE,"<$myfile" or	die "$myfile: $!";
	print reverse <FILE>;
</code>
  Come sempre, il consiglio e`: controlla la documentazione in linea.
	Alla prossima,
		Marco