mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: settare password su sistemi unix

ciao, 
volevo sapere se è possibile settare delle password su sistemi Unix
(Linux, Hp-Ux, Aix) utilizzando uno script in perl o bisogna per forza
ricorrere a un programma in c.
grazie
Newelski
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Newelski

se intendi per il web allora dovrebbe andare bene un .htaccess file (vedi
apache docs.)
ciao
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************

 ***************************************
No.Grazie cmq ma Io parlo di impostare la password di sistema. Quella
che si imposta pramite il comando unix 'passwd'....
se qualcuno ha un'idea...
Ludo

 ricorrere a un programma in c.
Puoi:
* se lo script perl gira da root
- aprire /etc/passwd, scorrerlo e sostituire la passwd
my $username, $new_password;
$new_pwd_crypt=crypt($new_password, $qualche_random_salt);
open (PWD, '/etc/passwd');
open (NEWPWD,'/etc/passwd.tmp');
while (<PWD>) {
        /^\S+?:\S+?:/$username:$new_pwd_crypt:/ if /^$username:/;
        print NEWPWD;
}
close PWD;
close NEWPDW;
rename ('/etc/passwd.tmp','/etc/passwd');
 
Attenzione: agli accessi concorrenti, magari studia un buon modo di 
lock-are i file; se usi le password shadow (su linux) devi lavorare 
similmente, ma non allo stesso modo, con il file /etc/shadow; se usi 
password cryptate in MD5 devi passare un salt che inizi con $1$ a crypt.
- usare una qualche utiliy di sistema che cambi la password accentando 
i parametri a riga di comando o da STDIN
system ("utility-command-line $username $password");
system ("echo $username:password| utility-stdin");
open (CHPW,' | utility-stdin');
print CHPWD "$username:password\n";
close CHPW;
Attenzione: le utility cambiano da OS a OS, su Debian Linux c'e' 
chpasswd che puoi usare da STDIN, su AIX c'e' 
/usr/local/lib/tools/chpass (se e' installato non so piu' quale 
package) da riga di comandi, etc etc.
* se lo script non gira da root
- lo puoi setuid-are a root, ma ti crei un sacco di problemi di taint 
check
- puoi usare una piccolo daemon che gira da root e un tool lanciato 
dal' utente che comunichino con una named pipe. Il tool scrive nella 
pipe il daemon legge la pipe ed ricadi nel coso di script che gira da 
root.
Poi ovvimante ci sara' anche qualche altro metodo semplicissimo di cui 
non sono a conoscenza :-)
-- 
Saluti,
Giancarlo

check
?? Io credevo di aver capito che non si puo` proprio suidare uno script.
Ciao.

 script.
Si, si puo' devi usare suidperl come interprete e usare una serie di 
accorgimenti, non e' bellissimo ma funziona.
-- 
Saluti,
Giancarlo

 ricorrere a un programma in c.
Webmin fa questo (oltre ad altre dieci mila cose). Webmin è scritto in
perl.
Potresti vedere quale metodo ha usato l'autore id webmin e prenderlo
pari pari (webmin è GPL).
-- 
|f(x)-f(y)|<=L|x-y|
Per le risposte in mail, occhio all'antispam!
Newsgroup: it.comp.lang.perl
Titolo: SSI e Apache: sul computer NO e sul server SI, come mai?

Ho istallato Apache (tutto funziona bene). Noto che alcuni script, in genere
i counter, per essere richiamati ed avviati necessitano di comandi SSI del
tipo <-- #exec cgi=".................."--> e purtroppo noto che nulla si
avvia sul mio computer mentre sul Server lo script, richiamato con tali
stringhe, funziona benissimo. Quindi giungo ad una conclusione, cioč che ho
configurato male le righe per il SSI. Io di default ho settato la directory
prove_ssi come da how-to reperito in rete ma non so se bisogna anche
aggiungere altro nel file httpd o altrove.
Potete darmi una mano?
grazie a tutti
Riccardo

 aggiungere altro nel file httpd o altrove.
Prova, nella directory prove_ssi, a metterci un .htaccess con un
AllowOverride "da paura" (in modo che sia possibile bypassare eventuali
rules settate in access.conf) e permetti l'esecuzione dei SSI.
Casomai, prova a vedere che access.conf non sia troppo "restrittivo" (ad
esempio, il mio di default non lascia eseguire chiamate SSI ... e ci ho
messo un secolo a capirlo!)
Ciao
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

Newsgroup: it.comp.lang.perl
Titolo: Come installare Perl5 su Win98?

Salve a tutti, per testare gli script perl sul mio computer
ho installato il Personal Web Server di Windows 98 e ho
scaricato da Internet la versione 5 del Perl. Gli script,
peÿfffff2, non vengono eseguiti;il browser (IE 5) mi restituisce
il seguente errore: Impossibile eseguire lo script Errore
di Win32=87. Quali impostazioni devo cambiare all'interno
del Registry affinchÿffffe8 il Perl funzioni correttamente?
Grazie anticipato per l'interessamento.
e-mail 
fugg...@tiscalinet.it
* Sent from AltaVista 
http://www.altavista.com
 Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping.  Smart is Beautiful

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

Newsgroup: it.comp.lang.perl
Titolo: Form e Fax

Qualcuno se dirmi se è possibile inviare i dati di un form direttamente su
un Fax?
Se è possibile mi dite come si fa o comunque dove posso trovare una
risposta?
Grazie mille, Fabio.

,

--
 Massimo Balestra
 System Engineer
 Torino Italy
Sent via Deja.com 
http://www.deja.com/
Before you buy.

 wrote in message
02Hg4.25047$D3.1...@news.infostrada.it...

Newsgroup: it.comp.lang.perl
Titolo: ecommerce in perl

Hola,
mi piacerebbe poter realizzare un piccolo sito per un negozio, tutto in
perl, ed evitare il pur simpatico e utile php.
Ho mysql, DBI e DBD per mysql installati, e - prima ancora di pensare a
carrelli e transazioni varie - mi interesserebbe qualcosa che via perl e
CGI estragga dati da una tabella  del db (tipo: codice,
descrizione_prodotto, categoria, prezzo, prezzo_scontato), li presenti
su una pagina web (in una tabella o lista), in modo che cliccando su una
riga di prodotto si apra una pagina dettagliata con immagine, dati e
possibilità almeno di ordinare (poi magari anche con carrello acquisti).
Ovviamente mi interesserebbe una soluzione che poi sia anche possibile
modificare e aggiornare anche dal lato grafico (html, javascript,
css...). In questo senso alcuni preferiscono php, con tag sparsi tra le
varie parti di html o viceversa. Ma io vorrei farlo in perl :)
Da dove comicio, se è possibile? 
E` una soluzione semplice, o debbo per forza rivolgermi a php?
grazie, ciao,
salvo m.
-- 
CAPaCE: Comitato per l'Abolizione della Parola "Chiocciola" nelle Email
@ si legge "at"; lasciamo in pace le chiocciole :-)
[§alvomi©]

 E` una soluzione semplice, o debbo per forza rivolgermi a php?
Se hai Perl, PHP puoi buttarlo ;-)
Ciao,
Emanuele.

 Se hai Perl, PHP puoi buttarlo ;-)
già :)
Non lo faccio perché ho un paio di siti già fatti (e consolidati) in
php, ma da un po' di tempo ho deciso di fare le cose nuove in perl, solo
che, a parte le poche cose programmate da me, non ho ancora provato
tools di template (tipo phpnuke in php), come quelli che citi o Mason,
ecc.
Bene, grazie mille, mi metto al lavoro, e intanto studio queste risorse
:)
-- 
salvo m.
Newsgroup: it.comp.lang.perl
Titolo: 3 domandine facili (?)

Salve a tutti... avrei tre domande da fare :)
1) come faccio un controllo incrociato su un array?
vorrei controllare che nessuna variabile coincida con un altra dello
stesso array, eventualmente se coincide vorrei cambiarla (ovviamente
poi va controllato di nuovo il suo valore in rapporto alle altre)
2) come faccio a trovare una data stringa in un file di testo, se questo
e' gzippato? (devo prima estrarre il file e poi leggerlo?)
3) che regexp devo usare per scoprire se una stringa contiene solo
numeri? (ho usato /[0-9]/ ma se uso pippo4 me la considera valida comunque...
e invece non dovrebbe...)
grazie a tutti per l'attenzione e (speriamo) per l'aiuto :)
-- 
Gilberto *Veleno* Ficara
___________________________
e-mail: 
g.fi...@fastnet.it
ICQ UIN: 11891959
http://veleno.cjb.net
___________________________
Webmaster di 
www.bestiario.com
 e 
www.hyleg.it
Designer di 
www.icq99.net
Ideatore e mantainer di 
www.3dinfinity.net
Membro dello staff di 
bbk.org
 (designer)
Collaboratore di Html Point, Netnews e 3dRevolution

 comunque... e invece non dovrebbe...)
Certo che dovrebbe, è così che vengono applicate le regexp in Perl. Se
vuoi che la stringa contenga soltanto numeri devi usare un quantificatore
e un paio di àncore: /^[0-9]+$/, oppure (che è la stessa cosa): /^\d+$/.
Per ulteriori informazioni: perldoc perlre
Max

Newsgroup: it.comp.lang.perl
Titolo: script che crea file con diritti a volte sbagliati

Ciao,
ho un problema con i diritti dei file creati da uno script Perl: alcuni
utenti creano regolarmente i file con diritti 644 (corretti e
leggibili), ma altri 300 (illeggibili via rete).
Il codice è:
open(NEWFILE,"pippo") || die $!;
print NEWFILE "<html>\n";
...
print NEWFILE "</html>\n";
close (NEWFILE);
Ho provato ad agginugere in fondo un:
chmod 644, "pippo";
Ma mi ha fatto una pernacchia...
Questo script lo uso da anni, ma fino a pochi giorni fa avevo l'hosting
su server Windows2000 e funzionava: ora con Linux mi sono trovato a
cozzare con il mitico CHMOD... E non so che mi combina!
Sono nei guai, ringrazio in anticipo per l'aiuto!
Emiliano
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Ma mi ha fatto una pernacchia...
Non ho trovato "una pernacchia" nei codici di errore riportati da perl.
Esattamente, che cosa succede (o non succede), e che messaggio viene
generato?
Ciao.

 generato?
ha continuato a mettere accessi 644 e 300, a seconda di non ho capito
bene cosa...
Non capisco qual'è la discriminante tra gli utenti di un sito internet e
soprattutto come risolvere la cosa...
ciao
e


soprattutto come risolvere la cosa...
Dipende come viene eseguito lo script.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: ! Dove trovo un compilatore PERL ????

Salve,
Attualmente so programmare in Visual Basic, C, Pascal, VBScript, VBA e
scrivere pagine HTML.
Sono realmente interessato ad inparare il PERL, ma purtroppo non so nulla di
questo linguaggio, non so se e' disponibile un compilatore freeware e se
esiste da dove scaricarlo, non so se esiste un buon Tutorial su internet o
se devo necessariamente comprarmi un libro.
(c'e' qualche libro che mi potete consigliare, che parta dalle basi e che
arrivi fino ad una programmazione avanzata?)
Vi sarei molto grato se poteste rispondermi sul newsgroup o per e-mail.
Vi ringrazio anticipatamente,
Tommy
spac...@tin.it

 arrivi fino ad una programmazione avanzata?)
Per cominciare, probabilmente conviene "Learning Perl" (che esiste anche
nella versione Win32).
Il testo di riferimento e' "Programming Perl"
Dettagli sempre sul sito di Perl. 
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@tuttocitta.it
 
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Newsgroup: it.comp.lang.perl
Titolo: Data e ora in Perl

So che sembrera' una caxxata, ma non so che variabile di sistema utilizzare
per avere in un Perl la data e l'ora in cui sta girando lo script.
Grazie.


Dalla documentazione Perl (perldoc perlfaq)
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)
=                                                            
localtime(time);
-- 
Reinhard Spisser                
spi...@bigfoot.com

 wrote:
: So che sembrera' una caxxata, ma non so che variabile di sistema utilizzare
: per avere in un Perl la data e l'ora in cui sta girando lo script.
Se intendi l'ora in cui lo script e` partito (man perlvar):
       $BASETIME
       $^T     The time at which the script began running, in
               seconds since the epoch (beginning of 1970).  The
               values returned by the -M, -A, and -C filetests
               are based on this value.
 
Altrimenti man perlfunc(1) (cerca localtime), oppure man Time::Local(3),
oppure man POSIX(3) e man strftime(3).
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E

Newsgroup: it.comp.lang.perl
Titolo: www.programmazione.it 3.0

Salve,
    rubo pochi K per comunicare a tutti gli interessati che finalmente è on-line la nuova versione di 
www.programmazione.it
Non stò qui ad elencare tutte le novità dato che vorrei evitare di essere bollato come spammer al 100% :-D
Abbiamo comunque un'area interamente dedicata al Perl che ci piacerebbe far crescere col contributo di tutti (come del resto è cresciuto Programmazione.it fino ad oggi).
Grazie per l'attenzione, buona giornata.
Marco Abis
Http://www.programmazione.it
ab...@programmazione.it
-- 
Posted from [212.177.19.137] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
5.0.2.1.2.200104...@10.254.0.191...

Newsgroup: it.comp.lang.perl
Titolo: Un modulo in cerca di un namespace

Ciao *,
sto scrivendo un modulo (tramite XS) che consenta a perl di
interfacciarsi con CHMLib, una libreria libera che implementa un
parziale supporto per la gestione di file .chm (MS Windows HtmlHelp).
Nelle mie (molto) lungimiranti idee, il modulo dovrebbe essere il
primo mattoncino per la scrittura di un programma che converta i file
.chm in altro formato.
Il problema che mi si presenta ora è la scelta del giusto
namespace; su comp.lang.perl.modules mi hanno consigliato HTML::CHM,
ma non so se questa sia effettivamente la scelta più indicata.
Aspetto i vostri consigli.
Ciao,
nico


    per chi vuole andarselo a leggere.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

HTML compilato possa essere definita un dettaglio.
Be', dal punto di vista tecnico non so, ma è un fatto che il
compilatore Microsoft si chiama "HTML Help Workshop". Chiunque abbia
qualche familiarità con il formato, troverà naturale una collocazione
sotto HTML.
Inoltre, HTML Help Workshop permette anche di decompilare un file .chm
nei documenti HTML originali. Mi pare che anche questo deponga a
favore di una prossimità (culturale, se non tecnica) tra i due
formati.
Altrimenti si potrebbe pensare a qualcosa di più generico: CHM è in
fondo un ipertesto; potrebbe essere ragionevole allora anche una
collocazione sotto (Hyper)text::CHM. Anche se nessuno a pensato di
fare lo stesso per HTML (ma c'è un Text::PDF).
Oppure, copiando i moduli per HTML, CHM::Qualcosa. Il "Qualcosa"
dipendendo da che cosa dovrebbe fare il modulo (Text, API, ecc).
Ciao.

  >>>>> "GZ" == Giovanni Zezza 
  >>>>> "SR" == Stefano Rodighiero 
  SR> Ma non conosco il formato CHM, e non so in che misura la sua
  SR> natura di HTML compilato possa essere definita un dettaglio.
In pratica, il formato CHM non è altro se non il risultato della
compressione di una directory, con qualche piccola aggiunta (dei file
che si occupano dell'indice del documento, uno che facilita la ricerca
di parole all'interno dello stesso, ecc...). Oltre ai file html,
comunque, contiene anche immagini, fogli di stile e quant'altro sia
necessario a mostrarne correttamente il contenuto.
[...]
  GZ> Altrimenti si potrebbe pensare a qualcosa di più generico:
  GZ> CHM è in fondo un ipertesto; potrebbe essere ragionevole
  GZ> allora anche una collocazione sotto (Hyper)text::CHM. Anche se
  GZ> nessuno a pensato di fare lo stesso per HTML (ma c'è un
  GZ> Text::PDF).
Ecco, quest'idea mi ispira assai di più rispetto ad HTML::CHM, un
bel Text::CHM potrebbe essere la soluzione. La accendiamo? (Nel senso:
sono l'unico a sentirsi ispirato da questa proposta?)
Ciao,
nico
PS: Mi scuso con Giovanni, ho erroneamente risposto per e-mail,
    anziché sul gruppo.
Newsgroup: it.comp.lang.perl
Titolo: ora = nome file

Come posso realizzare uno script da lanciare in cron che mi restituisca un
file con nome la data (aaaammgg) di creazione? es. 20020404.log se lo script
è stato lanciato il 4/4/2002
tnx,
fRANz

Come posso automatizzare (tramite cron) uno script che mi restituisca un
file con nome la data (aaaammgg) di creazione? es. 20020404.log
tnx,
fRANz



Andrea Francesconi ha scritto nel messaggio ...

forse non è il massimo, ma io farei questo ...
my @data = localtime( time );
$data[5] += 1900;
$data[4] = "0$data[4]" if $data[4] < 10;
$data[3] = "0$data[3]" if $data[3] < 10;
my $nomefile = "$data[5]$data[4]$data[3]";
open( FILE, ">$nomefile.log" );
print FILE "qui scrivo il log\n";
close FILE;
Ciao!

 file con nome la data (aaaammgg) di creazione?
touch `date +%Y%m%d`
Nota le virgolette rovesciate (`). Man date per maggiori info.
Davide

 my $nomefile = "$data[5]$data[4]$data[3]";
Cosa ti ha fatto di male [s]printf? ;-)
my $nomefile = sprintf "%4d%02d%02d",
  $data[5] + 1900,
  $data[4],
  $data[3];
ciao
Stefano

Stefano Rodighiero scripsit:

Ancora meglio, cosa vi ha fatto di male POSIX::strftime ?
Ciao
-- 
 Leo TheHobbit  | A computer without Windows is  |
 IRCnet #roma2  |  like a fish without a bycicle |
 ICQ 56656060   |                                |   Non. Apr. MMDCCLV a.U.C.

 Ancora meglio, cosa vi ha fatto di male POSIX::strftime ?
Touche` ;)
Grazie
ciao
Stefano

Newsgroup: it.comp.lang.perl
Titolo: Server Side Include

Io uso Macromedia Dreamweaver.
Non riesco a capire cosa sono le Server Side Include  e come le posso
utilizzare.
E' un servizio che mi permette di provare in locale un CGI o che?
Ciao

 wrote in message
aqKlONjOQjQpJHVXg9DWs=Isku=i...@4ax.com...

Un web server abilitato all'utilizzo di SSI effettua un parsing (lettura)
delle pagine con una determinata estensione alla ricerca di tag particolari
che permettono l'esecuzione di comandi il cui risultato verra' inserito in
quella posizione.
L'estensione dei file, i tag e i comandi sono relativi al tipo di "servizio
che includi a lato del webserver".
saluti
Mario

comunque sia con il NG non ci azzecca un gran che...

Newsgroup: it.comp.lang.perl
Titolo: Aprire socket su com1

Dovrei fare uno script in perl o bash che legge il buffer dalla com1
(ttyS0) (vi arrivano dei dati da un apparato) e lo mette in un file.
So che è una cavolata, chi mi può aiutare ????
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 So che è una cavolata, chi mi può aiutare ????
C'è una faq sul come leggere e scrivere su seriale.
http://www.perldoc.com/perl5.8.0/pod/perlfaq8.html#How-do-I-read-and-write-the-serial-port-
In italiano:
http://www.perl.it/documenti/faq/faqview.pl?pag=8&faq=10
(sorry per la formattazione e per evenutali errori nella traduzione, c'è 
un lavoro di revisione da fare)


Allora, puoi utilizzare il modulo Device::Serialport che permette la
gestione delle seriali e dei segnali di controllo( RTS,CTS etcc..);
opuure le funzioni:
system(....),
open(....),
syswrite(...),
sysread(...).,  molto piu' veloci.
Ciao,
Maurizio
Newsgroup: it.comp.lang.perl
Titolo: INVIO nelle CGI

Ho un form dove all'interno ho inserito un textarea.
Adesso, dovendo creare un file di testo su una sola riga, come faccio a
cambiare il carattere invio in un carattere riconoscibile? Esempio un |
E dopo come faccio a riscompattare il tutto inserendo al posto dell'| il
classico invio? Tenete presente che lo devo splittare già per le coppie
nome, valore.
Grazie
Marco

Marco /*-*\\ wrote:

   A parte il fatto che puoi parametrizzare la textarea del form in modo 
da "convincere" l'utente a *non* usare il ritorno carrello, puoi 
semplicemente sottoporre a /parsing/ la stringa passata con una RE del tipo:
	$text=~s/\n/QUESTO_SIGNIFICA_INVIO/g
e ritornare poi alla versione originaria con:
	$text=~s/QUESTO_SIGNIFICA_INVIO/\n/g
   Probabilmente, ti conviene usare un segnaposto diverso da 
"QUESTO_SIGNIFICA_INVIO": lascio a te la scelta. ;)
-- 
Alla prossima,
Marco

 "QUESTO_SIGNIFICA_INVIO": lascio a te la scelta. ;)
 
 
RITORNO_A_CAPO
:-)
Ok, solo per aprire un ulteriore discorso: spesso, si vede il carattere
| utilizzato come separatore ....
Contando che nelle textarea (o in qualunque altro posto dove un utente
possa scrivere) uno può scrivere quello che vuole, ed aggiungendo anche
che alcuni caratteri è comunque meglio evitare che vengano passati al
server, quale può essere una buona idea per un carattere da utilizzare
come segnaposto e/o come separatore?
Spesso ho utilizzato il carattere ^@ (fatto come un vero Ctrl-V @, qui
l'ho riportato normale perchè sai mai cosa può succedere!), da voi cosa
si usa? :-)
Ciao
--ev

 ha scritto nel messaggio news:s8bps9...@127.0.0.1...


Newsgroup: it.comp.lang.perl
Titolo: Differenza tra Perl Python PHP e ASP

Come da oggetto,
potreste dirmi le caratteristiche dei suddetti linguaggi?
Ovviamente non chiedo di scrivere decine di pagg. ma sono brevi descrizioni 
tipo:
"Con xx fai yyy, con zzz non puoi fare kkkk"
In breve, quali sono i pro i contro e i campi d'applicazione di questi 
linguaggi?
grazie
-- 
Luigi

 wrote in message
lFoA6.2513$XQ2.2...@news.infostrada.it...


> luca
Spero di non essere l'unico che farà un simpatico followup all'abuse di
tiscali per questo crostaceo che si appiccica in maniera oscena ai post
altrui, rendendo il NG illeggibile!
Ciao
M.
-- 
rm -rf 
and be happy


Gentile utente,
desidero informarLa che abbiamo verificato che l'account segnalato
aveva compiuto spamming e che pertanto abbiamo ammonito l'intestatario
dell'account, nel caso in cui dall'account segnalato provengano altre
scorrettezze provvederemo a disattivare tale contratto.
cordiali saluti
Valentina Vacca
Tiscali S.p.A
ab...@tiscalinet.it
secu...@tiscali.it
--
Ciao
The Bos
the-bos#
axelweb.com
http://the-bos.axelweb.com
Newsgroup: it.comp.lang.perl
Titolo: Auito GD!!!!!!!!!!

Salve,
sto cercando di installare il modulo GD-2.12 ma ci riesco, questo è l'erore
che ricevo:
cannot fing -lpng
collect2 : ld returned 1 exit status
make: ***[lib/arch/auto/GD/GD.so] Error 1
ho fatto tutti gli aggiornamenti richiesti (credo)!!!!

 ho fatto tutti gli aggiornamenti richiesti (credo)!!!!
Sembra che durante la compilazione il linker non trovi la libreria png. Di solito è libpng.so, teoricamente. Prova a verificare se ce l'hai installata, altrimenti...
Ciao,
-- 
+--------+ | ASCII ribbon campaign ( ) | 
www.autistici.org/kral
|  kral  | |  - against HTML email  X  |
+--------+ |              & vCards / \ | my key id = 0x7C946947

In pkShc.140730$
Kc3.4...@twister2.libero.it
, Andrea,


Devi installare, nell' ordine zlib, poi libpng e poi le librerie Gd

Newsgroup: it.comp.lang.perl
Titolo: Manuali Perl

Vorrei sapare dove posso trovare manuali perl, dalla base all'avanzato.
Grazie
re...@inwind.it
-- 
Posted from 
ppp-234-71.15-151.iol.it
 [151.15.71.234] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 all'avanzato.
 
http://www.perldoc.com/
Newsgroup: it.comp.lang.perl
Titolo: gestione dei file SNP (snapshot viewer file) con perl

 
Ciao a tutti. Una applicazione esterna (fatta in access) produce come output
due file SNP che recepisco con la mia applicazione PERL. Avrei bisogno di
rendere questi due file una unico file, in pratica appendendo il contenuto
del secondo sul primo.
Esiste un modulo per la gestione di questi file? lo avete provato? per PDF
ho trovato di tutti e di più, ma per il formato SNP non ho trovato nulla?
 
Grazie in anticipo per l'aiuto.
--Gabriele
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

ho trovato di tutti e di più, ma per il formato SNP non ho trovato nulla?
Puoi, tramite Win32::OLE, accedere ai metodi dello Snapshot Viewer, o a
quelli di Access. Se questo, come credo, non basta, potresti pensare di
riunire i due report in un documento PDF.
D'altra parte, non si può usare un formato proprietario chiuso, e
pretendere che siano disponibili utilità libere di terze parti. O riempi di
botte la moglie andando a messa, o ti ubriachi mangiando babbà fatti in
casa.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Conoscere i moduli caricati

Salve,
     Quando carico un modulo con "use" a volte il modulo caricato 
richiama a sua volta altri moduli. vorrei sapere se c'è un modo per 
sapere la totalità dei moduli caricati in uno script.
grazie


 for my $m ( keys %INC )
 {
 print $m, ": ", $INC{$m},"\n";
 }
M

 wrote:

Puoi sfruttare il fatto che i moduli gia` caricati vengono registrati
nella hash predefinita %INC. Sapendo questo, si puo` scrivere uno
one-liner del genere (in questo caso applico la tua domanda al 
modulo Catalyst):
  $ perl -MCatalyst -e 'END { print join "\n", keys %INC }' | sort
  AutoLoader.pm
  CGI.pm
  CGI/Cookie.pm
  CGI/Util.pm
  Carp.pm
  Catalyst.pm
  Catalyst/Base.pm
  Catalyst/Dispatcher.pm
  [...]
 
re.pm
 
strict.pm
 
vars.pm
 
warnings.pm
  warnings/
register.pm
Tieni presente pero` il modulo potrebbe includere altro, in maniera
condizionata, durante la sua esecuzione, usando require(): in questo
caso la hash %INC assumerebbe valori diversi.
Alternativamente puoi esaminare i prerequisiti del modulo, che si 
trovano in Makefile.PL, nel pacchetto di installazione. Si tratta pero`
di informazioni molto meno precise, visto che da li` non vedrai le
dipendenze ricorsive di ciascun modulo richiesto.
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org/blog
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it

 nella hash predefinita %INC.
Aggiungo, per sfizio, un piccolo trucchetto che è passato su
perlmonks.org
 (sito che consiglio a tutti quanti di seguire, è una vera
miniera) usando il pragma lib:
---8<---8<---8<---
use strict;
use warnings;
use lib sub { print pop() ."\n"; undef };
use Net::FTP;
my $n = 1;
if( $n ) {
  require SOAP::Lite;
}
---8<---8<---8<---
Ovviamente se $n == 0, SOAP::Lite non sarebbe richiesto e non
comparirebbe nella lista dei moduli.
Una domanda a chi ne sa più di me: il pragma lib serve appunto a
manipolare la lista @INC.
Infatti perldoc lib dice:
"The parameters to use lib are added to the start of the perl search
path. Saying
  use lib LIST;
is *almost* the same as saying
  BEGIN { unshift(@INC, LIST) }"
E' quell'"almost" che mi perplime... qualcuno sa dove starebbe la
differenza?
Ciao,
-- 
.           .  | "...And I am dumb to tell the hanging man
| , ,-. ,-. |  | How of my clay is made the hangman's lime."
|<  |   ,-| |  |                            -- Dylan Thomas
' ` '   `-^ `' |<uggc://jjj.gurqvenpfrn.bet>

 differenza?
Credo si riferisca al paragrafo successivo:
    For each directory in LIST (called $dir here) the lib module also
    checks to see if a directory called $dir/$archname/auto exists.
    If so the $dir/$archname directory is assumed to be a
    corresponding architec- ture specific directory and is added to
    @INC in front of $dir.
Cosa che invece non avviene con unshift().


 Cosa che invece non avviene con unshift().
Sě, infatti. Sempre la mia solita fretta! :)
Grazie del chiarimento,

Newsgroup: it.comp.lang.perl
Titolo: HELP debug

Esiste, nel debugger, un modo per visualizzare strutture dati più
complesse?
Ho visto che con 'x' posso controllare la struttura di un hash, ad
esempio così:
DB<13> x \%data
	0  HASH(0x8194bc4)
	   'Hello World' => 'zip'
	   'jerry' => 'welcome'
	   'this' => 'that'
	   'tom' => 'and'
	   'welcome' => undef
Ma se volessi fare una cosa simile con una matrice m×n?
Grazie in anticpo.
-- 
                     Dona i tuoi cicli di clock alla ricerca!
 
http://boinc.berkeley.edu/
                          --------------------
             E l'inferno e' piu' di un mezzo paradiso.
             		-- Edwin Arlington Robinson, "Luke Havergal"

 Ma se volessi fare una cosa simile con una matrice m×n?
Esattamente come hai fatto sopra:
x $root
ti dumpa ricorsivamente l'intera struttura di dati radicata nel 
reference $root.
Opzionalmente puoi dargli anche il livello massimo fino a cui 
discendere; ad es.:
x 3 $root
dumperebbe soltanto i primi 3 livelli della struttura.
Alternativamente puoi dumpare la struttura mediante moduli quali:
http://search.cpan.org/dist/Data-Dumper/
http://search.cpan.org/dist/Data-TreeDumper/
(quest'ultimo formatta meglio per la stampa).
Ciao
-Emanuele
Newsgroup: it.comp.lang.perl
Titolo: Determinare la nazionalità da un'EMail?? Come???

Come si fà a determinare la nazionalità di chi visita la mia homepage
con un CGI in Perl??
Grazie Gianluca	

zang...@hi-net.it
 wrote:
 >Come si fà a determinare la nazionalità di chi visita la mia homepage
 >con un CGI in Perl??
Non e` difficile, il primo passo consiste nel ripetere la domanda in
it.comp.www.cgi.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

Newsgroup: it.comp.lang.perl
Titolo: Una cosa che non so come si fa..

Premesso che non so nemmeno se si puo' fare...
Mettiamo un caso:
$command = "for (\$i=0; \$i<10, \$i++) { print \"Questo è il numero:
\$i\\n\"; }";
Ora se faccio print $command, viene fuori:
for ($1=0; $i<10; $i++) { print "Questo è il numero: $i\n"; }
Che puo' essere (anzi, è!) una riga di codice Perl.
E se invece ne volessi visualizzare l'output?
C'è un modo per, diciamo cosi', valutare il contenuto della variabile
$command?
Scopo del gioco:
open FILE, $filename;
while (<FILE>) {
    $_ =~ s/\<\%(.+)\%\>/ QUI CI DOVREBBE ESSERE L'OUTPUT /meg;
    print;
}
close FILE;
E nel file ci dovrebbe essere qualcosa del tipo:
<html>
<%
$my_name = "PiPPo";
print $my_name. " BauDo";
%>
</html>
E quindi l'output della pagina HTML (interpretata dallo script sopra)
verrebbe visualizzato: PiPPo BauDo.
Insomma... diciamo che è come se volessi implementare una sorta di
interprete ASP :-)
Come si puo' fare?
Ciao,
Guido.

 interprete ASP :-)
Consiglio: cercare "embedded perl" con Google... ;)
-- 
Baci,
Mony

 Consiglio: cercare "embedded perl" con Google... ;)
Ottimi consigli, Mony.
Il problema è che non posso usare "embedded perl" perché questa cosa mi
serve solo in alcune parti del mio programma.
Con EVAL avevo già fatto parecchi esperimenti, ma ho constatato che l'output
di alcuni comandi non è quello che mi aspetto.
Mi spiego:
print eval { print "Ciao"; }
non scrive "Ciao" ma scrive "1";
$string = "use Perl;";
print eval { substr($string, 0,3); }
scrive "use".
Ora provo le tue soluzioni ei ti faccio sapere.
Ciao!

 scrive "use".
Falso Allarme!! Ho trovato la soluzione:
open PAGE, $page;
while (<PAGE>) {
    $_ =~ s/<%(.+)%>/eval($1)/meg;
    $html .= $_;
}
close PAGE;
print $html;
con "print" restutuiva "1" perché già c'è un "print". In pratica era come se
scrivessi: print print "stringa"; <-Errore!
Se uso "return" invece di "print" va tutto benissimo.
Risolto il problema :-)
Ciao!
Guido.
Newsgroup: it.comp.lang.perl
Titolo: Help compilazione modulo

 ma mi da il seguente
errore.
CGI Error
The specified CGI application misbehaved by not returning a complete set of
HTTP headers. The headers it did return are:
In string, @email now must be written as \@email at
D:\home\nti26f156\cgi-bin\
ntformmail.pl
 line 541, near "$tosto73@email"
Execution of D:\home\nti26f156\cgi-bin\
ntformmail.pl
 aborted due to
compilation errors.
Potere aiutarmi? grazie.

 Potere aiutarmi? grazie.
Ma hai letto querllo che dice l'errore?
"In string, @email now must be written as \@email"
"In una stringa, @email adesso deve essere scritto \@emali"
Quindi apri il tuo bel editor, vai alla riga 541 (dubito pero' che tu, 
che non capisci un errore cosi' banale abbia scritto uno script cosi' 
lungo.....) e aggiungi il \ davanti alla @.
-- 
Saluti,
Giancarlo

Newsgroup: it.comp.lang.perl
Titolo: Come far funzionare il Perl sotto Linux

Salve a tutti, ho installato SuSE Linux 5.3 e vorrei sapere
come far eseguire gli script perl. Quali file di
configurazione dovrei cambiare e come? Una volta creata la
pagina (ad es. con Netscape Composer) in quale directory
devo copiare i file affinché vengano "eseguiti" dal server
web? Scusate se le domande sono un po' banali.
Grazie anticipato a tutti per l'interessamento.
email 
fugg...@tiscalinet.it
* Sent from AltaVista 
http://www.altavista.com
 Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping.  Smart is Beautiful

 web? Scusate se le domande sono un po' banali.
Stai parlando di script CGI, giusto? E' importante specificarlo, perchè
"script Perl" è un espressione generica che copre qualsiasi tipologia di
script realizzati in questo linguaggio di programmazione.
Si tratta, quindi, di configurare opportunamente il server Apache, o
adeguarsi alla configurazione standard del tuo sistema. La questione è
generalmente considerata off-topic in questa sede perchè non attinente
alla programmazione in Perl. Rapidamente: la soluzione più semplice è
rendere lo script eseguibile e metterlo nella directory cgi-bin, la cui
ubicazione esatta è definita nella direttiva ScriptAlias della
configurazione del server. Per informazioni più dettagliate:
 man httpd
 
http://www.apache.org/docs/
 
http://www.perl.com/pub/doc/FAQs/cgi/perl-cgi-faq.html
Max
Newsgroup: it.comp.lang.perl
Titolo: Cookies con CGI::Cookies

Saluti a tutti,
nei miei CGI sto cercando di usare i cookies; costruisco il cookie con:
$tutto=new CGI;
...
$cookie=new CGI::Cookie(-name=>'login', -value=>"$login_arrivata");
print $tutto->header(-cookie=>$cookie);
...
ma, quando lo script è eseguito, pur non essendoci errori, sulle 
macchine client non compare nessun cookie.
Se in un altro script voglio prelevarlo, uso:
$tutto=new CGI;
$log=$tutto->cookie(-name=>'login');
ma $log non contiene niente.
Devo modificare il file di configurazione di Apache?
Qualcuno può dirmi dove sbaglio?
Grazie a tutti
Stefano

$cookie=new CGI::Cookie(-name=>'login', -value=>"$login_arrivata");
prova ad utilizzare questo:
$cookie=$tutto->cookie(-name=>'login', -value=>$login_arrivata);


Newsgroup: it.comp.lang.perl
Titolo: Aiutate un profano!

Ragazzi, mi sto avvicinando da pochissimo al mondo Perl: scusatemi
quindi se
le mie domande potranno sembrarvi molto strane.
Vi chiedo:
ma se uno vuole lavorare in ambiente Windows e vuole fare dei programmi
in
Perl cosa deve fare? E' possibile?
Inoltre se il server web del mio sito è un server Apache, posso fare
programmi in Perl per il mio sito anche se io lavoro in Windows?
Grazie!

programmi in Perl per il mio sito anche se io lavoro in Windows?
Scarica Apache per windows da 
www.apache.org
P.S. La prossima volta rileggi i messaggi precedentemente postati sul
ng.
Ciao
Andrea Busia
No Spam, Grazie.

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

CIAO!
Sto cercando urgentemente qualcuno che utilizza il software di e-commerce
ClickCartPro.
Contattatemi 
zi...@rallycompany.com
Grazie
BYE
Zizzo

Possibile che nessuno usa questo software?
Zizzo

 ha scritto nel messaggio
news:ZBWy7.1648$V75....@news1.tin.it...


Newsgroup: it.comp.lang.perl
Titolo: Formattare una cifra eliminando i decimali.

Ciao ragazzi,
ho un problema:
vorrei convertire ilprezzo da euro a lire, ma non so come posso eliminare i
decimali (lire 100.000 e non 100.000,00)
Scrivo queste righe:
$price = &format_price($display_me);
$price = &display_price($display_me);
$price = &display_price($cart_fields[$display_index]);
$product_euro = &format_price(($cart_fields[$display_index])*1936.27);
print qq!<TD $cart_item_def>$cart_font_style$price<br>Lire
$product_euro</FONT></TD>\n!;
Come posso risolvere?
Grazie
Alex


Prova con:
$lire=int($price);  
$euro=int($product_euro);
print qq!<TD $cart_item_def>$cart_font_style$lire<br>Lire
$euro</FONT></TD>\n!;
HTH
Newsgroup: it.comp.lang.perl
Titolo: ActivePerl 521 non espande argomenti con * -- errore di istallazione...?

Ho istallato ActivePerl build 521, sia su NT 4 SP 6 sia su di un
altro PC con Win98 2a ed, e ho UN dannato problema...:
C:\users>perl -e "foreach(@ARGV){print qq($_\n);}" *.pl
*.pl
C:\users>
(quoting strano x aggirare le stranezze di Cmd.Exe/Command.Com:-).
In altri termini, gli argomenti contenenti * non vengono espansi
in una lista di filename, quindi poi non funzionano while(<>) ecc.
perlglob.exe c'e` ed e` sulla path e funziona benissimo:
C:\users>perlglob *.pl
p.pl
 
toidl.pl
 
whicl.pl
C:\users>
Avrei bisogno che *.pl si espandesse automaticamente alla lista
dei file .pl nel directory corrente, come sotto Unix, altrimenti il
port degli script perl esistenti (tutta roba di trattamento di file di
testo, intrinsecamente molto portatile) diventa un drammone...
Ho sbagliato l'istallazione?  Ho omesso qualche switch o variabile
d'ambiente?  Mi pareva di ricordare che sotto un qualche Perl
antico per Windows e/o Dos tutto andasse liscio...
Grazie anticipate per qualsiasi aiuto/consiglio/puntatore...!
Alex

 Grazie anticipate per qualsiasi aiuto/consiglio/puntatore...!
E' uscita da poco la Build 522. Verifica se per caso questo era un problema
noto.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 noto.
Grazie del suggerimento, ma questo problema non e` nelle
release notes della 522.  Comunque scarico l'aggiornamento
(alcuni altri fix fanno comunque comodo) e verifico, non si sa
mai.  Ma sospetto che si tratti di altro.
Alex

 *.pl
L'espansione della riga sopra e' a cura della "shell" sotto Unix, cioe'
avviene PRIMA che venga lanciato  perl ed eseguito lo script. Per cui
ritengo improbabile che possa funzionare in Windows.
Suppongo che se devi trasferirti da Unix a Win/xx avrai numerose delusioni
di tipo analogo.
Buona fortuna,
					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?

 di tipo analogo.
'Perl significa non dovere mai dire "la delusione me la tengo"', o
roba del genere:-).  Grazie comunque per il tentativo di aiuto.
Alex
Newsgroup: it.comp.lang.perl
Titolo: [Fwd: Re: [Re: telnet]]

 wrote:
Allora se stai intercettando l'output di telnet, puoi cercare di filtrarlo
eliminando le sequenze di escape, prima di mostrare il tutto sullo schermo.
Per prima cosa verifica il formato delle sequenze (di solito e' ESC-]XX),
poi cerca di eliminarle esplicitamente da quel che ricevi. Non ho sotto mano
il tuo esempio per poter esser piu' preciso.
Tra l'altro, questo cercare di interfacciarsi ad un programma remoto via
telnet mi sembra molto strano. Sei sicuro sia la cosa giusta da fare?
Ah. A meno di messaggi strettamente personali, ti conviene rispondere sul
newsgroup: lo consulto piu' di frequente che questa mailbox, l'eventuale
risposta puo' essere utile ad altri, e magari qualcun'altro e' in grado di
rispondere e aiutarti.
Saluti,
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net

 certo innamorato di telnet io, lo tradisco volentieri.
Beh. Visto il problema, direi che potresti lasciare l'approccio telnet ed
avventurarti in un vero client-server.
Mi spiego.
Su AIX, se ovviamente hai accesso al sistema (e secondo me dovresti riuscire
ad averlo), puoi scrivere un programma server che ascolta le richieste su
una porta ben definita e poi usa questi dati per richiamare gli script SAS
locali (tramite system() o qw//) e rispedire al client i dati cosi' ottenuti.
Il client puo' connettersi al server, fare le richieste opportune e poi
elaborare i risultati ottenuti.
Non dico che sia facile. Si tratta di fare programmazione con i socket (cosa
non immediata, probabilmente), ma credo che qualche esempio del Perl
Cookbook potrebbe venirti incontro.
Ovviamente il requisito e' avere accesso a unix, ma se ti serve per il
lavoro, non vedo perche' debbano negartelo. Tra l'altro, il server non deve
poi neanche dover essere eseguito con tanti privilegi, dal momento che puo'
stare su una porta 'alta'. 
L'altra soluzione, come ti ho gia' detto, e' intercettare l'output di telnet
prima di stamparlo per rimuovere tutte le sequenza di escape (che pero' devi
essere in grado di riconoscere correttamente).
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: Cerco libro Perl

Mi chiamo Ghisoni Andrea e sono uno studente di Scienze
dell'Informazione e devo fare una tesi in cui devo
sviluppare tra l'altro una CGI per Internet, alcune persone mi hanno
detto che il Perl e' un'ottimo linguaggio per
fare questo, purtroppo non lo conosco affatto, per tale motivo vorrei
alcuni consgli sull'acquisto di un libro
(preferibilmente in italiano) per chiarirmi le idee (in alternativa
andrebbe benissimo anche un tutorial online).
Ringrazio in anticipo chiunque vogli aiutarmi.
Ciao
Andrea Ghisoni
P.S. se volete potete mandarmi una mail, il mio indirizzo e':
Andrea_...@RCM.inet.it

(preferibilmente in italiano) per chiarirmi le idee (in alternativa
La "bibbia" del Perl e` "Programming Perl" il Wall (autore del Perl),
Christiansen (il piu` grande programmatore Perl del mondo) e Schwarz. E` anche
stato tradotto in italiano col nome "Programmare in Perl" (mi pare) ed e`
edito, almeno per quanto riguarda la versione inglese, da O'Reilly &
Associates.
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.italpro.com/mb/



 alcuni consgli sull'acquisto di un libro
Per CGI+perl : CGI programming for the world wide web edito da O'Reilly
(
www.ora.com
)
Per perl: come inizio potresti leggere la documentazione online,
con particolare attenzione alle FAQ. E' parte integrante della
distribuzione, e puo' essere convertita anche in HTML.
Poi c'e' 'il cammello' che si trova in Ingelse da O'Reilly
ed e' anche stato tradotto in Italiano.
La traduzione, come sempre, fa abbastanza schifo.
Cheers,
	Alessandro

 Associates.
Confermo (scusate il ritardo nella risposta), si chiama "Programmare in
PERL" ed è pubbblicato dalla Jackson Libri, costa 75 KL. La traduzione è
passabile (molti termini tecnici rimangono giustamente in inglese ma
poteva andare peggio) ma il contenuto l'ho trovato fin troppo simile
alla ricchissima documentazione che si trova col PERL (reperibile anche
in HTML).
Avevo già studiato il PERL su quella in un paio di settimane e nel libro
ho trovato solo qualche approfondimento e qualche esempio in più.
Ciao ciao,
Fed
Newsgroup: it.comp.lang.perl
Titolo: aggiungere spazi in una stringa...

Ciao a tutti...
io ho una stringa di questo tipo:
"WhoAreWe" or
"SiteBrochures"
etc...
La mia esigenza è quella di ricostruire la stringa
aggiungendo uno spazio prima di una lettera
maiuscola ...che non sia la prima....
in modo da avere...
"Who Are We" ...
"Site Brochures"....
Come è possibile ottenerlo???
Ciao,
    Ivan

Come è possibile ottenerlo???
    s/(\S)([A-Z])/$1 $2/g;
Oppure metti uno spazio anche nella prima occorrenza, e poi lo cancelli:
    s/([A-Z])/ $1/g;
    s/^\s//;
Al posto di [A-Z] è possibile usare [[:upper:]] o eventuali altri
determinatori di classe che tengano conto della localizzazione attuale.
Ciao.

    s/(\S)([A-Z])/$1 $2/g;
O anche:
    s/(?<=\S)([A-Z])/ $1/g;
Ciao.

 >>Come è possibile ottenerlo???


Mi spieghi ques'ultima...???
     s/(?<=\S)([A-Z])/ $1/g;
Cerca, come l'altra, un qualsiasi carattere nell'intervallo A-Z (cioè un
carattere "maiuscolo"), che sia preceduto da un carattere non spazio
(rappresentato dalla sequenza \S); questo per non aggiungere uno spazio
all'inizio della stringa, e nella ragionevole ipotesi che tu non voglia
mettere un altro spazio dove già ce ne fosse uno.
La differenza è questa: l'espressione precedente
    s/(\S)([A-Z])/$1 $2/g;
sostituiva il carattere non spazio trovato ((\S)) con il carattere non
spazio trovato ($1): un lavoro non particolarmente produttivo, se ci pensi
su un attimo (ma necessario per ottenere il risultato voluto).
L'espressione (?<=pattern) invece chiede soltanto che "pattern" (\S, nel
nostro caso) preceda quello che si sta cercando, ma non cattura "pattern":
il primo gruppo catturato ($1) è quello che segue, e non è più necessario
sostituire una cosa con se stessa.
La convenienza dell'una o dell'altra espressione è tutta da verificare, e
si tratterà probabilmente di differenze di prestazione a malapena
misurabili, ma la seconda espressione esprime più correttamente quello che
si vuole fare.
Per ulteriori informazioni e spiegazioni, consultare perlre e perlretut.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: spazi a fine stringa

Salve,
cerco una funzione perl che data una stringa
restituisca la stessa senza gli spazi finali.
Esempio
trim: 'pippo    '  -> 'pippo'
Si usa spesso per lavori con database, ma
non la trovo.
Grazie

 trim: 'pippo    '  -> 'pippo'

perlfaq4 " How do I strip blank space from the beginning/end of a string?" 
           $string =~ s/^\s+//;
           $string =~ s/\s+$//; 
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 trim: 'pippo    '  -> 'pippo'
$stringa =~ s/\s//g;
o, meno bello, 
$stringa =~ s/ //g;
Ciao
M.
-- 
____________________________________________________
    Life's just a blast, it's moving realy fast    
better stay on top or life will kick you in the ass.
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

 $stringa =~ s/ //g;
Hai appena elimitato tutti gli spazi dalla stringa... opsss. :)


 Hai appena elimitato tutti gli spazi dalla stringa... opsss. :)
Già, avevo letto di fretta il post originario e non mi ero accorto che
vlesse togliere solo quelli alla fine!
Ma tanto, la mia sfera magica dice che non aveva spazi bianchi
all'inizio! :-P
Ciao
M. (vedo, vedo ....)


trim: 'pippo    '  -> 'pippo'
s/ +$//;

 all'inizio! :-P
All'inizio? Il problema e' nel mezzo!!!


 All'inizio? Il problema e' nel mezzo!!!
Nella sua stringa non c'erano spazi nel mezzo (ti prego, basta, sto
cercando di salvarmi da una [due] "disattenzioni" come posso, ma ormai
non ce la faccio più!)
:-PPPPPPPPPPPPPPPPPPPP
Ciao
M.


 :-PPPPPPPPPPPPPPPPPPPP
Bisogna essere implacabili :)


 Bisogna essere implacabili :)
Al punto di non leggere i post sul NG ma di parsarli?
;-)
Ciao
M.
-- 
____________________________________________________
    Life's just a blast, it's moving realy fast    
better stay on top or life will kick you in the ass.
ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ
Newsgroup: it.comp.lang.perl
Titolo: Sostituzione righe file

Vorrei utilizzando uno script perl sostituire delle righe all'interno di un file.
La cosa mi risulta estremamente semplice da shell, utilizzando infatti:
perl -pi -e s/VECCHIO_VALORE/NUOVO_VALORE/g NOME_FILE
ottengo esattamente ciò che voglio.
Il problema mi si pone però nell'inserire questa istruzione all'interno di uno script perl.
Come la trasformo?
Ho provato così:
open (FILE, '<+miofile.txt');
while ($riga = <FILE>)
{
	$riga =~ s/VECCHIO_VALORE/NUOVO_VALORE/g;
}
ma non ottengo nulla, questo perchè leggendo un po' di documentazione in giro mi è parso di capire che l'accesso hai file di lettura scrittura di debba effettuare utilizzando seek(FILE;$OFFSET;$PARTENZA).
Come posso fare?
gallus

 Il problema mi si pone però nell'inserire questa istruzione all'interno di uno script perl.
Potresti usare Tie::File . Dalla doc:
             use Tie::File;
             tie @array, 'Tie::File', filename or die;
             for (@array) {
               s/PERL/Perl/g;
             }

}
perché non esegui alcun print, e quello che fai a $riga resta un
segreto ben conservato nella memoria del programma, e neanche tanto a
lungo, perché sovrascritto dalla lettura della riga successiva.
Mettendo insieme le cose:
   while (<>)
   {
 	s/VECCHIO_VALORE/NUOVO_VALORE/g;
        print;
   }
È chiaro che, a questo punto, Perl ha, pur nascostamente, letto e
riscritto per intero miofile.txt?
Sarà che a me le cose fatte di nascosto non piacciono molto, ma io non
ci vedo un gran vantaggio rispetto a scrivere e rinominare
esplicitamente il file.
Diverso è se tu vuoi una vera "modifica sul posto". Allora sì, hai
bisogno dell'apertura '<+' ed eventualmente di seek; ma, soprattutto,
di molta attenzione, perché non è che puoi fare quello che vuoi.
Un altro sistema ancora è utilizzare il modulo Tie::File.
Ciao.

 Ciao.
Ti ringrazio moltissimo per i chiarimenti che mi hai dato
ciao
gallus

ha senso?
No, non in questi termini. La funzione tell() ti dice però a che punto sei
nel file.
Ciao.