mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Piccole (molto) cose in Perl...

Salve a tutti!
Sto cercando di apprendere l'uso del Perl e mi ritrovo a fare piccoli
esperimenti. In particolare ho creato un piccolo script che dovrebbe aprire
in lettura un file di testo, leggere tutto quanto vi è dentro sino alla fine
del file e fare un confronto. Vi riporto il codice:
#!D:\Perl\bin\perl.exe
open (FILE, "<dati.txt"); || die "dati.txt -> Impossibile aprire il file";
while (!eof(FILE)){
      $riga && "gioia"
      print "Lo script funziona bene\n";
}
Non credo di aver fatto grossi errori, ma proprio non vuol saperne di
funzionare a dovere. Il problema potrebbe stare nella forma del file da
aprire?
Quale forma dovrebbe avere, eventualmente?
Grazie Mille a tutti
Lex

 }
  Probabilmente lo script funziona bene, ma non ottieni il risultato che
speri. Lo scalare /$riga/ non e` inizializzato a nulla, per cui un
confronto logico con la stringa "gioia" non conduce a nulla. Tra
l'altro, la comparazione tra stringhe non si esegue con l'operatore
/and/ ma con l'apposito /eq/. Infine, esiste l'operatore /diamond/ per
leggere il contenuto di un file.
  Se vuoi verificare che all'interno di un file sia contenuta una certa
stringa puoi operare come segue:
<code>
	open FILE,'<dati.txt' or die "unable to open: $!";
 
	while (<FILE>) {	# uso funzionale dell'operatore diamond
		print "Trovata!\n" if /gioia/
	}
	close FILE
</code>
  Nota come la sintassi possa essere offuscata. Ti consiglio l'ottimo
"Learning Perl--2nd Edition" di Schwartz e Christiansen, e` un perfetto
punto d'inizio.
	Alla prossima,
		Marco

Newsgroup: it.comp.lang.perl
Titolo: Perl e R

Ciao
qualcuno di voi ha mai usato Perl con il linguaggio "R" ?
Si puo' fare agilmente e crossplatformamente ? ;)
 Raffaello

 Si puo' fare agilmente e crossplatformamente ? ;)
Scusa la non-risposta.
Cos'è il linguaggio "R"? Hai qualche link che spiega?
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

 Cos'è il linguaggio "R"? Hai qualche link che spiega?
"
R: a language and environment for statistical computing and graphics. R is
similar to the award-winning S system, which was developed at Bell
Laboratories by John Chambers et al. It provides a wide variety of
statistical and graphical techniques (linear and nonlinear modelling,
statistical tests, time series analysis, classification, clustering, ...).
"
Nell'istituto dove lavoro (Max Planck Institute of Molecular Genetics,
Berlin) viene utilizzato da alcuni bioinformatici.
 Raffaello

 Berlin) viene utilizzato da alcuni bioinformatici.
Figata. Complimenti per il lavoro. (Qualsiasi cosa tu faccia lì dentro,
anche lo spazzino, sarebbe il mio sogno lavorare in qualche istituto).


 anche lo spazzino, sarebbe il mio sogno lavorare in qualche istituto).
Se hai una laurea decente e voglia di vivere all'estero (sapere
l'inglese e' sufficiente), basta che cerchi bene e trovare non sara'
impossibile.
 Raffaello
P.S.: e si guadagna meglio che in italia! :p
Newsgroup: it.comp.lang.perl
Titolo: ancora comandi di sistema

Ciao a tutti
siccome siete stati gentilissimi a rispondere alla mia domanda su come
lanciare comandi di sistema con Perl vorrei chiedere un altra cosa
ho un file .pl che con la system fa il dump di un db mysql
system('mysqldump -ppassword --add-drop-table nomedb > nomedb.dump');
se eseguo il file da telnet
./
file.pl
tutto bene, crea il file con il dump  ma se lo chiamo da una pagina
web crea un file con lo stesso nome ma completamente vuoto...
qualche idea?
grazie
manuel

l' utente proprietario dei processi cgi (tipicamente nobody) ha i diritti
di accesso per eseguire mysqldump?
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

E' vero grazie!
spiegazione:
e' bastato inserire un utente "nobody" al database
grazie mille ancora per lo spunto
Ciao
Manuel
On Mon, 23 Apr 2001 08:09:37 +0000 (UTC), 
f.ga...@e-mind.it
 (fe)
wrote:


Newsgroup: it.comp.lang.perl
Titolo: creare una GUI

Ho scritto un programma in perl (una serie programmi) che sembrerebbero
funzionare. Si eseguono tutti dalla shell (stiamo in linux). Vorrei
procedere con la creazione di una GUI per questo programma ma non ho idea di
come muovermi. Ci sono delle librerie per questo? Qualcuno ha da
consigliarmi come procedere?
Del resto io non sono un programmatore e men che meno ho mai creato una
interfaccia grafica...
dawe
--------------------------------
Inviato via 
http://usenet.libero.it

 dawe
Sotto linux utilizzo il modulo Gtk-perl. Ma ciò è dettato solo da un
gusto personale. Sono abbastanza semplici da usare e se su 
www.google.it
cerci 'gtk-perl tutorial' dovrebbe uscirti un link ad un'ottimo
tutorial.
Altre possibilità sono i moduli WxWindows (o WxPerl) e lo stra-testato e
diffuso Perl-Tk. Questi due sono portabili, sono cioé multipiattaforma.
(In soldoni puoi usarli sia sotto Winzozz che sotto Linux).
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \


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

 userò questi moduli portabili.
gtk2-perl[0] è usabile anche sotto Windows.
C'è un messaggio[1] sulla mailing list di sviluppo[2] da parte del
maintainer in cui spiega come fare l'installazione.
+++
[0] 
http://sourceforge.net/projects/gtk2-perl
[1] Datato 9 luglio 2003.
[2] 
gtk-pe...@gnome.org
Ciao,
 Emmanuele.
-- 
Emmanuele Bassi (Zefram)           [ 
http://digilander.libero.it/ebassi/
 ]
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

 maintainer in cui spiega come fare l'installazione.
Questa è una notizia fantastica :). Avevo chiesto qui tempo fa se si
poteva fare, ma non ho mai ottenuto risposta. Grazie mille!


Newsgroup: it.comp.lang.perl
Titolo: Comando per inviare mail

Qualcuno conosce il corrispondente in win 32 del comando "sendmail" in Unix
da inserire in uno script Perl che prende i dati da un form e li invia per
posta elettronica.
Grazie in anticipo

posta elettronica.
Non è un comando, bensì un programma. In Unix viene installato di
default, su windows devi scaricarti un mailserver.
Ciao
Andrea
Newsgroup: it.comp.lang.perl
Titolo: Miglior editor PERL?

Qual'è secondo voi il miglior editor di programmi PERL? Sto usando
Ultraedit ma non mi sembra molto efficente nella colorazione della sintassi
(e non è free)
--------------------------------
Inviato via 
http://usenet.iol.it

 Inviato via 
http://usenet.iol.it
vi :)

 vi :)
ed :P

 ha scritto nel messaggio
news:194Z153Z173Z158...@usenet.iol.it...

Se lavori sotto Linux ti consiglio emacs.
ciao,
nids

 ha scritto nel messaggio
news:194Z153Z173Z158...@usenet.iol.it...

Newsgroup: it.comp.lang.perl
Titolo: Sostituzione file in tree

C'è qualcuno che è riuscito a fare uno scriptino che
sostituisce un file con un altro in una albero di directory?
esempio:
sostituzione di fileA con fileB in una struttura tipo
\data\fileA
\data\varie\fileA
\data\test\fileA
Poi se funzione pure su WinXP .... :)
Ciao e grazie 
Manuel
--
e-mail: manuel at 8000 dot net 
Inviato da 
www.mynewsgate.net

 sostituisce un file con un altro in una albero di directory?
 use File::Find;
 find( sub { 
                if( $_ eq "fileA" ) 
                { rename $File::Find::name, $File::Find::dir . "/fileB"; 
                } 
        }, 
     "/data/" );
 
Per maggiori informazioni:
 
   perldoc File::Find
Max

Newsgroup: it.comp.lang.perl
Titolo: se volete potete



Newsgroup: it.comp.lang.perl
Titolo: Array di record

Ciao,
  non riesco a trovare niente che riguardi gli
array di record o array di array.
L'unica cosa in perl analoga ai record (struct in
c) sono gli hash? E come posso fare un array di
hash?
Avrei bisogno di un array nel quale ogni elemento
contiene due elementi.
Cosa c'è di sbagliato in questo?
$rec = {
   a => 'elemento 1',
   b => 'elemento 2',
};
print $rec{a};
Non riesco a farlo funzionare.
Riesco a far funzionare solo
$rec{a} = 'elemento 1';
$rec{b} = 'elemento 2';
E poi, una volta che ho il mio hash rec, come posso
metterlo dentro un array, senza che questo venga
interpretato come array, ma come elemento.
L'unica soluzione che mi viene in mente è costruire
un oggetto rec, ma mi sembra strano che non si possa
fare senza tirar fuori la oop.
Grazie mille per l'aiuto.
Ciao.

print $rec{a};
E` sbagliato: con questa sintassi non ottieni un hash ma una reference
ad un hash, quindi per stampare i dati devi dereferenziare cosi`:
print $$rec{a};
o cosi`:
print $rec->{a};
Alternativamente puoi ottenere direttamente l'hash con:
%rec = (
   a => 'elemento 1',
   b => 'elemento 2',
);
(occhio che ora le parentesi sono tonde).
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

 array di record o array di array.
E' tutto spiegato dettagliatamente in 'perldsc'.
perldoc perldsc
Max

 fare senza tirar fuori la oop.
NOOOO!!!! Niente OOP
 PerlLoL spiega tutto chiaramente.
In generale, comunque, puoi costruire un bell'array di hash con
 
  @array = (
    { a => "riga 0 - elemento a", 
      b => "riga 0 - elemento b" },
    { a => "riga 1 - elemento a",
      c => "riga 1 - elemento c" }
   );
 Poi potrai accedere a $array[0]{a} o $array[1]{c}.
 
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 
Quindi se io ho un array
@a = (1,2);
per assegnarlo come elemento ad un array di array faccio
$aa[0] = [@a];
Le parentesi quadre sevono a dire che @a è un elemento.
Se invece faccio
$aa[0] = @a;
come viene interpretato?
Ciao.

 
Azz... hai ragione... mi era proprio
sfuggito. Mi ero impuntato su perldata
e credevo che fosse tutto lě!
;)

 come viene interpretato?
  Array in contesto scalare. Ti assegna la dimensione dell'array @a.

Newsgroup: it.comp.lang.perl
Titolo: Continuo ad avere problemi con i CGI :-I

Nel tentativo di vedere cosa contiene lo scalare $FORM che mi è stato detto
dovrebbe contenere il risultato inviato dal form ho usato CGI.pm e ho
scritto così:
#!/usr/local/bin/perl
use CGI;
print "Content-type: text/html\n\n";
print <<EOF;
<html>
<head>
<title>
Ecco quello che hai scelto
</title>
</head>
<BODY BGCOLOR="#FFFFFF">
<H2>TUE SCELTE...</H2>
<p>
EOF
;
print $FORM{'poe1'};
print $FORM{'poe2'};
print $FORM{'poe3'};
print $FORM{'poe4'};
print $FORM{'poe5'};
print $FORM{'poe6'};
.......
Il form è il seguente:
<FORM ACTION = "\cgi-bin\poesia.cgi" METHOD = "POST">
<div align="center"><center>
<table border="0" cellpadding="2">
    <tr>
        <td>Art1</td>
        <td><input type="checkbox" name="poe1" value="ON"></td>
    </tr>
    <tr>
        <td>Art2</td>
        <td><input type="checkbox" name="poe2" value="ON"></td>
    </tr>
    <tr>
        <td>Art3</td>
        <td><input type="checkbox" name="poe3" value="ON"></td>
    </tr>
    <tr>
        <td>Art4</td>
        <td><input type="checkbox" name="poe4" value="ON"></td>
    </tr>
    <tr>
        <td>Art5</td>
        <td><input type="checkbox" name="poe5" value="ON"></td>
    </tr>
    </table>
</div>
<p>
<INPUT TYPE = "SUBMIT" VALUE = "I N V I A" NAME = "INVIA">
<INPUT TYPE = "RESET" VALUE = "cancella tutte le selezioni" NAME = "RESET"
</FORM>
Nel Browser ancora nessun risultato ad eccezione di una pagina html
contenente "Ecco quello che hai scelto" e basta :-? Qual'è la variabile o
l'hash che devo usare... Continuo a non capire nonostante abbia speso altri
soldi per comprare "Perl e Internet" di Alessandro Bellini e Andrea Guidi e
il costoso mattone "Guida di riferimento al Perl di O'Relly". (In mio
possesso avevo già il {mal scritto o mal tradotto} "Perl 5" di Crish Bellow,
Michah Brown, Dan Livinston - Tecniche Nuove)
# Mi sorge un dubbio... vista le lacune dei testi didattci che sembrano
trascurare il fatto che molti si dedicano al perl solo per scrivere CGI, si
può davvero imparare il linguaggio in modo atodidatta come sto tentando di
fare io?

Mi sono aiutato da solo!
Finalmente qualche risultato lo sto ottenendo...
==> Ho modificato così l'inizio delllo script e qualcosa è uscito fuori.
Dove le casele erano spuntate è comparso ON - Evviva. Penso a molti ciò sarà
utile.
#!/usr/local/bin/perl
use CGI;
$query = new CGI;
print "Content-type: text/html\n\n";
print "<html><body>\n";
$articolouno = $query->param('poe1');
$articolodue = $query->param('poe2');
$articolotre = $query->param('poe3');
$articoloquattro = $query->param('poe4');
print "Nome: $articolouno <BR> Cognome: $articolodue\n";
print "Art4 è $articoloquattro <br> Art3 è $articolotre\n";
print"<p>da qui env...</p>";
# Se aggiungete questo vedrete apparire tutto quello che il server remoto
registra... Provate
foreach (sort keys(%ENV))
                {
                print "$_: $ENV{$_}<BR>\n";
                }
print "</body></html>\n";
Ciao,
http://poetidazione.it
Newsgroup: it.comp.lang.perl
Titolo: ActivePerl finita la festa

http://tinyurl.com/3kruvr7
ActivePerl Community Edition 5.8 and 5.10 are no longer available for free download.
Questa novità indebolisce Perl e darà ancora più forza a PHP?

 Questa novit� indebolisce Perl e dar� ancora pi� forza a PHP?
In realt�, dice che le versioni 5.8 e 5.10, non essendo pi� supportate 
dalla community, diventano a pagamento per chi vuole usare quelle versioni.
Chi non vuole, pu� passare a ActivePerl Community Edition 5.14, o 5.12, 
che restano gratuite (infatti, sto giusto scaricando).

Hai ragione al seguente indirizzo
http://www.activestate.com/activeperl/downloads
Mi preoccupa il fatto che il mio host a pagamento usa ancora la versione 5.8, in locale sono costretto a sviluppare con quella versione per la compatibilità.


Se il problema è quello, tieni più copie dell'installer del 5.8, così 
sei a posto.
Puoi comunque anche usare il 5.14, stando *molto* attento ai requisiti 
di compatibilità dei pacchetti.

 Mi preoccupa il fatto che il mio host a pagamento usa ancora la versione 5.8, in locale sono costretto a sviluppare con quella versione per la compatibilità.
eventualmente se sviluppi in Windows potresti installarti una macchina
virtuale con Linux ed installarti tutte le versioni che vuoi in
parallelo, non è proprio immediato ma se stai disperato è comunque una
soluzione valutabile.
Luca

Newsgroup: it.comp.lang.perl
Titolo: AIUTO!!! FREEWAIS e WINNT

Qualcuno mi sa dare indicazioni su come scrivere un form per interrogare
waislook.exe da web? Ho provato con questo script in perl, ma non mi
funziona, devo forse modificare il contenuto MIME della cartella cgi-bin? Se
si, in che modo. GRAZIE
Alfonso
# 
waisquery.pl
#
$CRLF = "\n";
$br="<br>\n";
print "Content-type: text/html\n",$CRLF,$CRLF;
$qu=$ENV{"QUERY_STRING"};
if($qu ne ""){
#
#  ---  inserire  il path giusto per waislook.exe
#
 $outmsg=`c:\inetpub\wwwroot\cgi-bin\waislook.exe -http -h localhost $qu `;
 print $outmsg
}else{
  print "<html>query <isindex>",$CRLF,$br;
   print $qu;
}

  $outmsg=`c:\inetpub\wwwroot\cgi-bin\waislook.exe -http -h localhost $qu `;
 `` (backtick) interpola il suo contenuto. Quindi interpreta i backslash come
 sequenza di escape. Per mettere i backslash, raddoppia tutto.
 
 $outmsg=`c:\\inetpub\\wwwroot\\cgi-bin\\waislook.exe -http -h localhost $qu `;
 
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: uso di cpan

ciao a tutti, ho avuto un po' di problemi nell' installare un modulo che
richiedeva altri moduli che a loro volta richiedevano altri moduli
ecc... e quindi mi sono chiesto se per caso non ci fosse un programma
tipo apt-get della debian che, dato il nome di un modulo, cerca, compila
e installa il modulo ed eventuali dipendenze. Questo mi sarebbe utile
per duplicare una configurazione un po' arzigogolata su piu' macchine
molto velocemente
Grazie
Ivan

Ivan wrote:

prova:
perl -e 'use CPAN;shell'
-- 
Saluti,
Giancarlo

 ha scritto nel messaggio
news:3A968637...@rtsystem.com...

Newsgroup: it.comp.lang.perl
Titolo: valore di ritorno della find

vi espongo il mio problema:
ho bisogno di sapere se una dir contiene dei file o meno... va bene
anche se contiene delle cartelle che a loro volta contengono dei file
e cosě via..
Il metodo che ho in mente č quello di fare una find nella dir per
cercare se ci sono files, ma non riesco a trovare su nessun manuale
come ricevere un valore di ritorno che mi dica solo se ha trovato o
meno dei files.
Si salvare il risultato della ricerca e poi vedere se questo non č
vuoto... ma non c'č un metodo alternativo e piů banale.
Spero di essere stato in qualche modo chiaro...
Grazie

 Grazie
Non ho capito una cosa: tu vuoi solo sapere se ci sono o meno file in
una directory (ed eventuali sottodirectory) o vuoi sapere quali file ci
siano per poi salvare *l'albero* dei file?
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

 Ciao,
Esatto, a me basta sapere se nella directory ed eventuali
sottodirectory ci sono dei file (solo file, se una cartella contiene
un'altra cartella vuota non mi interessa...).
Quali siano o quandi non mi interessa assolutamente.
Grazie per l'interessamento

 Grazie per l'interessamento
Non è la soluzione + elegante, ma funziona:
<CODE>
use strict;
use warnings;
my @dirs = ( 'C:/Windows', 'C:/Temp', 'C:/Pippo' ) ;
my @files = ();
foreach ( @dirs ) {
  chdir $_;
  @files = glob '*.*';
  # Queste due righe si possono riunire in una sola? <-- DOMANDA X TUTTI
  print "La cartella $_ e' "; 
  ( @files > 0 ) ? print "piena\n" : print "vuota\n";
}
</CODE>
Volendo così dentro a @files hai anche tutti i file trovati in quella
cartella. Cmq glob non sarebbe indicato per fare questo (lista dei file)
ma si può forzarlo con '*.*'.


 $cisono = `find . -type f -name pippo.txt | grep -c pippo.txt`;
[CUT]
Hai dimenticato di scrivere 'Se usi un sistema unix-like' ;)


 sorry, tra linux e Mac ormai dimentico che esista Win :-)
Beato te, io contro Win e i suoi utenti (me compreso) combatto ogni
giorno :(.


 Ciao,
Risolto tutto, grazie mille per l'aiuto!
Abbiamo usato l'istruzione che ci hai suggerito "$cisono = `find .
-type f -name pippo.txt` ? 1 : 0;" ed ha funzionato.
Noi avevamo provato una cosa simile perň facento $cisono = system "
find ecc... " ma cosě non riuscivamo ad avere nessun valore di ritorno
significativo per le nostre esigenze...
Grazie ancora e ciao.

Newsgroup: it.comp.lang.perl
Titolo: Gestire File con Perl sotto Win95

Ciao a tutti ho un problema con l'utilizzo delle funzioni Unlink Rename e
Flock per la gestione dei File sotto win95,sembra che non
funzionino.Funzionano sotto NT?Che altre funzioni posso usare?
Flock non ho ben capito a cosa serve.
Grazie  Ciao

 Flock non ho ben capito a cosa serve.
bloccare (lock) un file; se il tuo script lo apre, altri
script o altri programmi non possono aprirlo, cancellarlo,
etc. finché il tuo script ce l'ha aperto.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
Newsgroup: it.comp.lang.perl
Titolo: Richieste da user agent in Perl

Da activestate Perl 5.6 sotto windows 2000  mi capita di avere il
seguente problema.
Vorrei inviare diverse request HTTP a un server allo scopo di
verificare la capacita' di reggere accessi simultanei a un sito e
vorrei  simulare questa situazione di accessi contemporanei
infittendo il numero di richieste (GET o POST) per unità di
tempo.
Per fare questo sto pensando di scrivere un agente utilizzando i
moduli User Agent e  HTTP già ampiamente noti e disponibili;
tuttavia, da quanto capisco, i metodi disponibili per gli oggetti
Request e Response sono blocking; ovvero non posso emettere una
ulteriore richiesta fino a quando non è stata data risposta a
quella precedente.
Qualcuno e' a conoscenza di metodi per poter fare ulteriori
richieste senza attendere le risposte? 
O trovate che l' idea sia di per se scema?
Grazie a quanti vorranno cortesemente rispondermi
Daniele

 richieste senza attendere le risposte? 
 
http://search.cpan.org/search?dist=ParallelUserAgent
Max

Newsgroup: it.comp.lang.perl
Titolo: Unire due immagini

Ciao,
di quale modulo avrei bisogno se volessi allineare orizzontalmente due
immagini png (in due files) in una sola (in un solo file) ? Sono su
Linux.
Grazie,
--
Colossus
Xarchiver, a GTK2 only archive manager -
http://xarchiver.sourceforge.net
Cpsed, a Linux OpenGL 3D scene editor - 
http://cpsed.sourceforge.net
Mizio, a QT proxy hunter scanner tool - 
http://mizio.sourceforge.net

 Linux.
Image::Magick è il più semplice. Se non sbaglio lo trovi come parte del 
pacchetto quasi-omonimo, in cui ci sono anche programmi autonomi che ti 
permettono di manipolare le immagini circa come vuoi.
-- 
   dakkar
Newsgroup: it.comp.lang.perl
Titolo: Ditemi se è possibile...

Fare uno script in perl che apra tutti i files in una determinata dir
tipo /prova e tutte le sue sub-dir, per poi prendere da questi
files(tutti con estenzione uguale) il contenuto di una riga(p.e. la
numero 5) successivamente scrivere tutte le righe n.5 in un file nuovo,
però aggiungendo prima delle righe, in nome della sub-dir da cui
provengono le righe n.5 .....
E' un'po un casino, non ditemi come fare(voglio imparare da solo),
ditemi solo se per fare ciò(ambiente linux) è il Perl il linguaggio che
fa per me....
Grazie
Ciao
Teo
·· e-mail «
aven...@libero.it
» ··
    ð ICQ number 42325926 ð
   Linux (kernel 2.2.10) user

 fa per me....
Si e' un po' un casino, ma a dirlo e spiegarlo, piu' che a farlo.
Ti consiglio di guardare File::Find un modulo che credo sia parte integrante
della distribuzione standard.
Ti permette di eseguire una subroutine per ogni elemento trovato all'interno
di una directory e successive subdirectory (a meno che specificato in modo
differente)... credo sia esattamente quello che fa per te !
    Hope this helps,
    Best regards,
        Kazuma
--
Alex Garbagnati, 
agarb...@removethis.decisive.com
Sr. Lead Engineer, Product Development
Decisive Technology Corporation
Mountain View, CA  94043

 Mountain View, CA  94043
-- 
Ciao
Teo
·· e-mail «
aven...@libero.it
» ··
    š ICQ number 42325926 š
   Linux (kernel 2.2.10) user

Newsgroup: it.comp.lang.perl
Titolo: mod_perl 2

Ciao, esiste qualche tutorial sul mod_perl 2? Non ho trovato nulla di 
recente, mi interesserebbe in particolare qualche tutorial con la 
configurazione su Debian/Ubuntu e alcune note sulla modalità Taint, 
chiedo troppo?     :)

Coniglio Sgabbiato ha scritto:

Forse questo:
http://modperlbook.org/pdf/ch25.pdf
abbiamo qualcosa di più veloce in italiano?

Coniglio Sgabbiato ha scritto:

Questa sembra molto meglio:
http://assets.en.oreilly.com/1/event/12/Introduction%20to%20mod_perl%202%20Presentation

Newsgroup: it.comp.lang.perl
Titolo: TUTTI I COMANDI PERL...

dove li trovo in rete?
pol...@freemail.it

dove li trovo in rete?
Nell'ottimo manuale allegato che evidentemente non hai nemmeno
sbirciato.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

 dove li trovo in rete?
man perl
man perlfunc
man perlvar
man perlre
etc. etc. etc.
Valerio
--
-------------------------------------------------------
 
http://www.livenet.it
Hosting - Housing - Accesso ad Internet
                      0815625909
         03395452296 03394733180
-------------------------------------------------------
Newsgroup: it.comp.lang.perl
Titolo: Aiutatemi!!!

Come è possibile interfacciare un database con un cgi in perl?
Considerate che io devo scrivere da zero il database, che non ho fondi a
disposizione (quindi non posso acquistare oracle o simili) e che il server
su cui opero è un server unix, ma non so quali programmi ha a disposizione.
L'ideale sarebbe trovare un programma che mi scriva un semplice database (ho
access, forse va bene),
e quindi trovare un modulo che mi permette l'interfacciamento col database
che non richieda la presenza di altri file sul server se non quella del
database stesso (niente oracle o simili per intenderci).
Grazie a tutti per la disponibilità!!!
Davide :)


Accidenti...
Ti avrei consigliato Postgres o MySql (sono entrambi free) , ma richiedono
una vera e propria installazione.
Ci sono varie possibilita'... a partire dai database su file (tipo DBM)
oppure ai moduli perl che permettono di accedere a file DBase (con o senza
indici). Questi li trovi su 
www.perl.com/reference
 nella sezione database.
Usare un file Access non credo sia possibile, se non tramite ODBC, ma questo
richiede drivers ODBC sulla macchina unix... ce ne sono ma sono o in beta
(easysoft) oppure costosi (merant, openlink).
Un'altra possibilita' e' quella di usare DBI::Proxy. Non e' una soluzione
ottimale, ma ti permette di accedere, ad esempio, ad un file access che
risiede su una macchina NT o Windows. DBI::Proxy e' un modulo che fa parte
di DBI e ti permette di scrivere un codice perl "standard"... Richiede una
parte client sulla macchina che deve interrogare il database e la parte
server sulla macchina che ha il database. In questo caso il codice che
scrivi lo potrai riutilizzare nel caso in cui un giorno avrai abbastanza
soldi per comperare un database serio...
    Hope this helps
    Best regards,
        Kazuma
--
Alex Garbagnati, 
al...@remove.this.messagemedia.com
Manager, Database Development
MessageMedia
Mountain View, CA  94043

Newsgroup: it.comp.lang.perl
Titolo: password in perl

Ciao a tutti,
devo creare uno script perl che consenta di accedere ad una pagina web solo
se si inserisce una giusta password... sembra stupido lo so ma non posso
farlo direttamente dal web server.
Come posso fare ??
Grazie,
claudio

farlo direttamente dal web server.
Devi creare una pagina con un form he cheida all'utente username e password.
Poi devi creare un script Perl che processi i contenuti di tale form,
confrontando username e password con quelle contenute in un database di tua
creazione. Se il confronto e` positivo, allora lo script manda le pagine
richieste, altrimenti ne manda una in cui speiga che l'utente non e`
autorizzato.
Se non sai da dove cominciare prova a vedere se su 
www.cgi-resources.com
 c'e`
qualcosa che fa al caso tuo.
	Miky.
-- 
Michele Beltrame
mi...@skm.to
http://www.italpro.com/mb/
They can take your life, but they can't take your pride.
Newsgroup: it.comp.lang.perl
Titolo: regexp: problemi col \b

Gulp e stragulp:
se la mia regexp è: m/^.*?\bfran\b.*$/
'francesco' NON fa giustamente matching mentre 'françois' si! ???
Ad esempio:
$a='il fran vola';
$b='il françois vola';
$c='il francesco vola';
if ($a =~ m/^.*?\bfran\b.*$/) {print "\n$a è ok\n";}
if ($b =~ m/^.*?\bfran\b.*$/) {print "\n$b è ok\n";}
if ($c =~ m/^.*?\bfran\b.*$/) {print "\n$c è ok\n";}
mi dà ok sia con fran che con françois !!!
Cosa è successo ??

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

 considerato, alla stregua di ' ', un separatore di parola.
E' una questione di "locale". 'ç' non è in condizioni "normali"  
considerato un carattere di una parola, ma questo comportamento, come
pure, ad es, i criteri di ordinamento (quale lettera viene prima), può
essere modificato agendo sull'impostazione del locale.
Per informazioni dettagliate suggerisco di consultare perllocale (i.e.
perldoc perllocale).
Max 

 E' una questione di "locale". 'ç' non è in condizioni "normali"
ok grazie controllerò subito. In effetti il "workaround" era di
utilizzare 3 regexp... ma funziona solo
perché so già quali delimitatori di parola ho... e non va bene in
generale.
Grazie ancora.
AM

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

Chi mi fa un esempio di grafico (es. torta o torre) con perl e cgi ???
Non so come concatenare il tutto ed avere un esempio.
Grazie.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Grazie.
In GD::graph mi pare, ci sono dentro gli esempi istituzionali :)
nella doc a corredo intendo
--
http://www.pigmalion.info/
Internet è uno dei veicoli più validi per la difesa della libertà,
poiché offre la verità a chi vuole vederla e intenderla...
Vinton G. Cerf

Non ho capito come funzionano, fa un miscuglio di esempietti e non so da
dove cominciare. Per lavoro dovrei costruire dei grafici (ho già gli
script perl), dammi una mano, per favore.
grazie


 script perl), dammi una mano, per favore.
Ecco un esempio di grafico a torta:
----CODE BEGIN-----
use strict;
use GD::Graph::pie;
my @data = (
	 ["cani","gatti","topi","marmotte","gufi"],
	 [    10,    10,    55,    5,    8,  12  ],
	);
my $grafico = new GD::Graph::pie(400, 300);
$grafico->set(
            title             => 'Grafico a torta',
           ) or die $grafico->error;
my $gd = $grafico->plot(\@data) or die $grafico->error;
open(my $gfile, '>pie.png');
print $gfile $gd->png();
close ($gfile);
-----CODE END-----
Il set di dati e` in @data, un array che contiene due altre array: il
primo contiene le diciture che appariranno a fianco alle fette della
torta, l'altro i valori percentuali di ciascuna fetta.
A presto, Michele.

 A presto, Michele.
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************
Newsgroup: it.comp.lang.perl
Titolo: MSDN Originale Vendesi

MSDN January 1999 (3 CDs) a partire da 15.000 lire
http://www.qxl.com/cgi-bin/qxl.filereader?214632400+IT/products/Q1003137047/
_6953962
Fai la tua offerta!
(L'indirizzo è tutto anche le righe non evidenziate (colpa di Outlook...))

 MSDN January 1999 (3 CDs) a partire da 15.000 lire
  E` il quarto tuo messaggio di questo tenore che circola su UseNet.
/Complain/ in arrivo al tuo provider.
	Alla prossima,
		Marco

Newsgroup: it.comp.lang.perl
Titolo: non riesco ad installare actviperl

Salve chi mi puo dire perche quando provo ad installare
activeperl-5.6.0.613.msi mi compare questo messaggio di errore"impossibile
installare il pacchetto di installazione installare un service pack che
contenga una versione più aggiornata di windows installer

Newsgroup: it.comp.lang.perl
Titolo: Come usare Perl su Windows98 ?

Ciao a tutti,
ho cominciato da poco a programmare in Perl. Volevo chiedervi se era
possibile  configurare PERL su una macchina Windows98 per eseguire gli
script, inoltre dove e' possibile reperire il compilatore?
grazie  Sandro... e a buon rendere

 wrote in message
87hnve$rvp$1...@pegasus.tiscalinet.it...


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

Newsgroup: it.comp.lang.perl
Titolo: Ritorni a capo sotto win

Sono costretto ad usare win per un progetto. Qulacuno mi sa dire se è
possibile obbligare il perl a salvare i file di testo in formato UNIX
anzichè WIN (quindi con i semplici "\n" invece di "\r\n")?
Finora ho dovuto salvare in formato win, ma alla lettura dovevo far
precedere all'elaborazione della riga un
s/\r//g;
Se è possibile vorrei evitare proprio che i \r vengano inseriti.
Qualcuno mi può aiutare?
Grazie
Ciao
Andrea Busia
No Spam, Grazie.


usa binmode sul file di output.
cheers,
Aldo
__END__
# Aldo Calpini
%_ = split undef, join ' ', qw(fahokem
xritajbugne csuctawer jhdtlrnpqloevkshpr
); print map $_{$_}, sort keys %_;

usa binmode sul file di output.
Credevo che andasse usato solo con file binari in senso stretto,
grazie


Newsgroup: it.comp.lang.perl
Titolo: Domanda su ricerca carattere

Ciao a tutti ho una domanda forse banale:
in una stringa di caratteri(con lunghezze sempre differenti) separati
da tab devo selezionare tutto quello che si trova dopo il 4 tab per
esempio.
Finora ho utilizzato index ricavandomi la posizione del 1 tab,2tab,
etc etc fino ad arrivare al 4.
Ma esiste un modo che mi pemetta di specificare: cerca direttamente a
partire dalla 4 occorrenza trovata?
grazie
Guido

Guido Leoni wrote:

$ perl -e '$stringa="aaa\tbbb\tccc\tddd\teee\tfff\tggg\thhh";
$stringa=~/^(?:[^\t]*\t){4}(.*)/;
print "$1\n"'
eee     fff     ggg     hhh
Oppure non ho capito cosa intendi.


Prendendo a prestito un pezzo del codice di antani:
$ perl -e '$stringa="aaa\tbbb\tccc\tddd\teee\tfff\tggg\thhh";
my @parts = split /\t/, $stringa, 5; # dividi in cinque parti
print "$parts[4]\n";                 # prendi la quinta
'
eee	fff	ggg	hhh
Probabilmente un po' meno ostica della regex, si potrebbe provare a
fare un benchmark.
Ciao,
   Flavio.
Newsgroup: it.comp.lang.perl
Titolo: ? cgi PERL con IIS ???

Gentili colleghi,
ho recentemente provato ad utilizzare uno script PERL per la gestione di
banner ma non riesco ad attivarlo da una pagina WEB.
Questa è la situazione:
1 - il server WEB è un MS-Windows NT Server con IIS versione 4;
2 - nel server è installato e perfettamente funzionante il sw PERL rel.
5.003
3 - chiamando manualmente lo script da un browser remoto tutto funziona
regolarmente (es. 
http://www.dominio.it/banner/script.pl
) mentre inserendo
la stringa di comando <!--exec cgi="/banner/script.pl--> in una pagina WEB
(sw utilizzato: FrontPage) ed eseguendo la pagina stessa non si ottiene
nulla a video!
Ho tentato in diversi modi, anche ad impostare dal server NT le permission
della pagina htm in FULL, come suggerito da alcuni messaggi letto in un
altro
newsgroup, ma non cambia assolutamente nulla.
Qualcuno può aiutarmi?
Grazie per la cortesia!!!
Ghost


devi impostare un percorso relativo.
Ad esempio se il tuo server web si chiama 
http://pippo
 (localhost) e il tuo
script.pl
 si trova nella directory 
http://pippo/cgi-bin/banner/script.pl
allora devi scrivere:
<!--#exec cgi="/cgi-bin/banner/
script.pl
"-->
(non trascurare # e ")
Altre informazioni le trovi nell'help di iis:
http://localhost/iishelp/iis/htm/asp/iisiexec.htm
Ciao,
Alberto

E' proprio ciň che ho fatto correttamente, ma non funziona!


 wrote in message 7vrj30$ee4$1...@serv1.iunet.it...


Newsgroup: it.comp.lang.perl
Titolo: script via POST

Salve,
vorrei evitare che un mio script cgi/perl possa essere richiamato dalla
barra degli indirizzi del browser, ma solo da form via POST.
E' sufficiente che lo script esegua un controllo su
$ENV{'REQUEST_METHOD'}?
Grazie,
Nico

Nicola wrote:

si
bye
Newsgroup: it.comp.lang.perl
Titolo: manipolare file di testo (2) (un po' lungo, scusate)

Vi ricordate che tempo fa (una settimana?) vi chiesi come:
[]
in pratica dovrei prendere il log file, vedere tutte le linee
e restituire (in un file) solo le linee dove ci sia un.. qualcosa
ecco, qui non so come fare:
una riga di log file è qualcosa tipo:
ge1-659.dialup.tiscalinet.it
 - - [data] "GET /urlinternofile" 200 27917 "url file" "browser"
oppure
100.100.100 - - [data] "GET /urlinternofile" 200 27917 "url file" "browser"
in pratica io devo "tenere" tutte le righe in cui c'è scritto qualcosa tra le due - -
tipo così:
100.100.100 - blabla - [data] "GET /urlinternofile" 200 27917 "url file" "browser"
[]
grazie ai vostri suggerimenti sono arrivato nella mia completa ignoranza a fare
questo scriptino:
#!/usr/bin/perl -w
# 
depurator.pl
open(INF,"access_log") or &dienice("Errore file");
@log = <INF>;
close(INF);
foreach $riga (@log){
        if( $riga =~ /- \w+ -/o){
        print "$riga\n";
        }
}
salvo poi accorgermi testandolo che.. non restituiva nessuna linea e capire
poi di essere un imbecille che in realtà le righe che devo tenere sono quelle
del tipo:
213.213.32.53 - blabla [data] "GET /urlinternofile" 200 27917 "url file" "browser"
(cioè dove al posto del secondo trattino c'è scritto qualcosa..)
ora mi potreste dire come fare uno dei due metodi che mi sono venuti in mente (o suggerirmene altri)?:
- o prendo tutte le righe dove NON C'E' "- -"
- o prendo tutte le righe dove C'E' scritto qualcosa di diverso da un trattino
e basta tra "il primo trattino e la parentesi ["
mi date un bagliore? :-)
grazie mille
The Bos

$riga !~ /^- -/o
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

grazie

scusami, volevo dire
$riga !~ /- -/o


 wrote in message
Km_z6.8478$k53.1...@news1.tin.it...

Newsgroup: it.comp.lang.perl
Titolo: Aiuto configurazione script

 mandare velocemente 2/3000 msg alla volta agli indirizzi della mia ML.Non
dai un'occhiata a questo
http://www.pixzone.com/dev/src/spammer-0.3.tar.gz
dovrebbe fare al caso tuo
/federico

 ma nel file zippato non c'č una guida che spieghi il suo funzionamento.
Nel readme leggo:
usage:  spammer -m <message_file> -a <addresses_file>
dunque deduco che:
1) devi aver fatto un file contenente il messaggio
2) devi aver fatto un file contenente gli indirizzi
3) da telnet, il comando da dare č, ad es.
perl spammer -m file_messaggio.txt file_indirizzi.txt
oppure se dai un "chmod +x spammer", il comando diventa:
./spammer -m file_messaggio.txt file_indirizzi.txt
Devi poi configuare spammer: c'č un file spammer.conf
I file .conf in genere stanno per "configuration", dunque
configurazione.
La riga importante č
smtp_server 
che va riempita con uno o + indirizzi di server smtp che tu puoi
utilizzare.
Nel readme leggo anche:
# MORE INFO
Bugs and suggestions can be sent to:
	[mail snip]
-- 
$_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572,,($_,$b)=
split?#?;@b=split?;?;map{$c.=$_,$d.=chr$b[$e++]+ord}split??,pack'H24',$b
;chop$d,print$c.chr(32).$d

Grazie tante!
Credo di aver capito abbstanza bene cosa devo fare! ora mi metto all'opera e
provo ad autoinviarmi un msg, vediamo se ci riesco...
Dovrò dare il permesso di esecuzione al file spammer e di lettura agli altri
immagino...
A.

Nel file conf c'č:
smtp_server 10.31.172.23:10.31.172.24:10.31.172:25
devo mettere i numeri di un smtp server diverso? Quello dell'e-mail indicata
in TO?
Ad esempio se la mail č 
giu...@tin.it
 devo mettere 
smtp.tin.it
 o cosa?
Grazie
A.

 Ad esempio se la mail č 
giu...@tin.it
 devo mettere 
smtp.tin.it
 o cosa?
No. In un file metti tutti gli indirizzi a cui vuoi mandare la mail, es:
prim...@primosito.it
secon...@secondosito.it
Nel .conf invece metti l'indirizzo del TUO smtp server (del provider
con cui ti connetti o di quello della ditta che ti fornisce l'hosting,
ecc...)
Scusa ma siamo pesantemente off topic.


 Scusa ma siamo pesantemente off topic.
Si tratta sempre di perl, perchè sarei/saremmo off topic?
Amico, ti ringrazio ancora per l'aiuto e la pazienza, va beh, non ti
disturberò più!
A.
Newsgroup: it.comp.lang.perl
Titolo: Verifica lo stato di un file

Ho la necessità di verificare che il file su cui devo intraprendere un'azione non sia in uso, aperto anche in sola lettura, da un altro script o programma.
Esiste il modo, come si applica.
Grazie.
Beppe
-- 
Questo articolo e` stato inviato dal sito web 
http://www.nonsolonews.it

 script o programma. Esiste il modo, come si applica. Grazie.
Puoi usare il "flock"
http://www.devx.com/tips/Tip/5479
  Raffaello

o programma.
La cosa più sicura è tentare di fare quello che devi fare, e vedere che
succede, trattando eventuali eccezioni.
Il punto è che, se lo controlli, sei sicuro dello stato nel momento in cui
lo controlli, ma fra il momento in cui effettui il controllo e il momento
in cui intervieni sul file lo stato potrebbe essere cambiato. Invece,
cerchi di ottenere un accesso esclusivo al file (eventualmente, come
suggerito, con flock, che però funziona veramente bene solo se lo usano
tutti) e, se ci riesci, a quel punto puoi fare quello che vuoi; se non ci
riesci, intraprendi qualche azione sostitutiva.
Ciao.

ti consiglio la lettura del testo seguente:
http://www.unix.org.ua/orelly/perl/cookbook/ch07_02.htm
Ciao
Oreste

 ti consiglio la lettura del testo seguente:
[snip]
No link a warez, per favore.
-- 
.           .  | 
| , ,-. ,-. |  | "In girum imus nocte et consumimur igni."
|<  |   ,-| |  |
' ` '   `-^ `' |

Non è un warez è l'estratto di un libro con esempi di script Perl.

 
E' un libro sotto copyright, e metterlo online non e' legale. Ergo, e' warez.
Inoltre, c'e' il manuale legalmente consultabile:
http://perldoc.perl.org/perlopentut.html
ciao
gmax
-- 
 _  _ _  _
(_|| | |(_|><  The Data Charmer
 _|
http://datacharmer.blogspot.com/

Ero convinto fosse un sito legale, poi però ho notato che il dominio
è .ua, Ukraina se non sbaglio, peccato perchè c'è parecchio
materiale gratuito. Ad ogni modo il capitolo indicato fa parte di un
libro che ho acquistato, forse questo compensa.
Ciao
Oreste

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

Come si fa a fare in modo che un programma si lanci da solo ogni
24 ore (su un server Unix)? Credo che abbia a che fare con un
certo Cron,ma ci ho capito il resto di niente.Se qualcuno
potesse postare qualche riga di codice,sarebbe di grande aiuto.
Grazie
-----------------------------------------------------------
Got questions?  Get answers over the phone at Keen.com.
Up to 100 minutes free!
http://www.keen.com


iQA/AwUBOY5BUK5mw98OphKBEQI5YQCg75Ut2yr1DHT3N3T/0VT8ppKl+9YAnjci
I0ZqgzfFJgzfRMocS5cLA7h5
=ZLe4
-----END PGP SIGNATURE-----

Newsgroup: it.comp.lang.perl
Titolo: [Newbie] Dove sbaglio?

$tasto=<STDIN>;
lc(chop($tasto));
if($tasto == 'y'){
 #codice 1
}else{
 #codice 2
}
Qualsiasi carattere digito viene eseguito SEMPRE codice 1...dove sto
sbagliando?
Mauro



L'operatore "==" si applica a valori numerici,
devi usare l'operatore "eq".
Vedi anche
http://www.emerson.emory.edu/services/perl/perlop.html
per maggiori dettagli.
  Raffaello


Grazie mille! Vengo da C e dal php e questo mi sfuggiva ;-)
Mauro
Newsgroup: it.comp.lang.perl
Titolo: togliere i punti da una stringa numerica

Ciao,
ho delle stringhe formattate tipo 3.458.000
qualcuno mi può indicare al volo l'espressione regolare per togliere i
punti?
(ehm, già che c'è mi farebbe comodo segnarmi anche una per rimetterceli...)
ciao e grazie a chi vorrà aiutarmi
roberto

"roberto" <rob...@saNOSPAMcom.net> wrote in message
news:c8V07.31466$_F1.3...@news2.tin.it...

Il codice che segue risolve i tuoi 2 problemi.
HTH
sub DotInsert($)  {
   my $str = reverse($_[0]);
   $str =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1\./g;
   return (scalar(reverse($str)));
}
sub DotRemove($)  {
   my $str=$_[0];
   $str =~ s/\.//g;
   return $str;
   }
$s="3.458.000,55";
$s1=DotRemove($s);
print "Originale $s  Con punti Rimossi  $s1\n";
$s2= DotInsert($s1);
print "Originale $s1 Con punti Inseriti $s2\n";
exit;

Grazie mille.
Avevo risolto il problema in modo limitato: splittando la stringa in 3 e poi
concatenandola.
Però oltre ad essere poco affidabile come sistema, non era possibile il
procedimento inverso, sul quale mi stavo ancora arrabbattando...
:-) grazie e a buon rendere.
Roberto


Ma non era più semplice?
       $valore1 = $valore;
       $valore =~ s/\./""/ge;
       print "$valore"; (Dato senza punti)
       print "$valore1"; (Dato con i punti)
Ciao
Marco

 Jop

"Marco /*-*\" <marco@!
virtualcom.it
!> wrote in message
news:5df17.9277$rh.2...@news6.giganews.com...

Sarà più semplice, ma non risolve il problema:
Dato un numero, inserire il punto ogni 3 cifre, lasciando intatto il
numero
dei decimali.
Ciao

Newsgroup: it.comp.lang.perl
Titolo: Sostituzione di piu' righe in un file?

Salve, provando a fare questo:
$stringaDaCercare = "aaa\s+bbb"; # \s+ puo' essere anche un ritorno a capo
$stringaDaCambiare = q {
bla bla 
    	oooh
bla bla
};
while (<FILEINPUT>) {
      s/$stringaDaCercare>/$stringaDaCambiare/gmi;
      print FILEOUT $_;
}
solo che non mi cambia la stringa, ma restiuisce il file com'era 
all'origine. Come mai?

$stringaDaCercare = "aaa\s+bbb"; # \s+ puo' essere anche un ritorno a capo
Mi sa che devi scrivere:
   $stringaDaCercare = "aaa\\s+bbb";
Ciao.

    $stringaDaCercare = "aaa\\s+bbb";
Non va lo stesso.

 ha scritto nel messaggio
news:Xns93F181F97EECBG...@193.43.96.1...

"Non va" è un po' poco. Posta uno script minimale completo che possa girare
tal quale, e un esempio di alcune righe o record di dati su cui, secondo te,
dovrebbe "andare" e invece non va.
Per quanto mi riguarda, l'esempio seguente, che dovrebbe essere equivalente
al tuo a parte la questione dei dati multiriga, con dati che soddisfano
l'espressione di ricerca, "va".
$stringaDaCercare = "aaa\\s+bbb"; # \s+ puo' essere anche un ritorno a capo
$stringaDaCambiare = q {
bla bla
    oooh
bla bla
};
while (<DATA>) {
      s/$stringaDaCercare>/$stringaDaCambiare/gmi;
      print $_;
}
__END__
aaa  bbb>
2aaa  bbb>  aakk akk
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: modulo per pdf

Mi servirebbe un modulo (magari, esagerando, con qualche esempio) per 
creare dei semplici pdf contenenti ognuno 1 immagine jpg.
ciao e grazie
Alberto

 creare dei semplici pdf contenenti ognuno 1 immagine jpg.
Cerca su 
cpan.org
PDF::API2::Lite
Dovrebbe fare al caso tuo.
Cya
Angelo

Newsgroup: it.comp.lang.perl
Titolo: Gestione della concorrenza

Mi serve una mano a riguardo: devo gestire la possibile concorrenza tra
utenti che vanno a scrivere su di un file, mentre ci sta lavorando un utente
gli altri che eventualmente volessero modificarlo devono restare in stand by
fino a che il primo non ha terminato il suo lavoro.
Grazie
Paolo

 wrote in message
news:amhrhh$qu$1...@lacerta.tiscalinet.it...

Hai gią considerato l'uso di flock()?
perldoc -f flock
Facci sapere
Domizio Demichelis

, scriveva:

La cosa migliore e` probabilmente lasciar fare al sistema operativo, con
flock, come gia` suggerito, o chi per lui. Anche se mi pare vagamente di
ricordare di aver letto che flock non risolve tutto, e/o ci sono dei
problemi in ambiente Windows.
La seconda cosa migliore e` creare un server, e un protocollo ad hoc (o
sceglierne uno fra i tanti gia` disponibili): scrittura e lettura
avverrebbero solo attraverso il server, che provvederebbe a garantire la
congruenza delle operazioni.
La soluzione piu` complicata (e probabilmente anche piu` fragile) e` la
gestione collaborativa: flag, semafori e quant'altro.
Ciao.

Grazie per le risposte.
C'č ancora qualcosa che mi sfugge, ma devo fare qualche altra prova.
Ciao
Paolo
Newsgroup: it.comp.lang.perl
Titolo: Mini compressione... aiutino

dovendo ridurre delle stringhe di soli numeri e virgole,
non potendo usare la compressione normale non essendo supportata
da J2me ho pensato di codificare le copie di numeri e virgole
per esempio : "2\n"  diventa il carattere 125.
Avrei bisogno due aiutini :
1) suddividere una stringa tipo "234,6584,342\n" in copie considerando
che potrebbero essere dispari e quindi l'ultima potrebbe essere un solo
carattere.
2) dopo aver codificato devo formare una stringa con i valori dei caratterei
corrispondenti, per esempio come posso creare una stringa con i caratteri :
1,10,15 ?
Grazie:)

1,10,15 ?
Non sono in grado in questo momento di dettagliare, ma direi che ce la si
dovrebbe cavare con un hash e qualche pack.
Ciao.

 Ciao.

In pratica mi serve questo :
my $str="124,65,356,45";
my $nuovaStr"";
#loop stringa, prende due caratteri alla volta, uno se l'ultimo e stringa
dispari
loop{
    # prendo la copia di caratteri
    $copiaChar =.... ;
    # trovo il valore (mio) corrispondente alla copia,
    #qui mi arrangio da solo!
     my $valAnsi = &codifica( $copiaChar ):
    # aggiungo il valore , toChar() inventato:)
    $nuovaStr.=  $valAnsi.toChar();


Come si fa ?
Come si fa che cosa? Se la funzione di codifica l'hai già fatta, la stringa
risultante la costruisci già (per quello che capisco) con .= , un loop lo
saprai scrivere.... che cosa mi stai chiedendo?
Per percorrere i singoli caratteri, o le coppie di caratteri di una
stringa, non hai che l'imbarazzo della scelta, fra susbstr, unpack,
espressioni regolari... (posto che sia questo il problema).
Per il loop parimenti non hai che l'imbarazzo della scelta, fra for, while,
map, ecc.
Ciao.
P.S. Per inciso, due caratteri sono una coPPia, sicché non sono neppure
sicuro di aver capito che cosa siano le "coPie", che scrivi, senza alcuna
eccezione, con una sola p.

Cancella tutto!
mi serve solo sapere come si trasforma un numero <255
nella char corrispondente e viceversa.
Grazie:)

 nella char corrispondente e viceversa.
Trovato!
print $num=ord('@'); # valore corrispondente a char
print chr($num); # char corripondente a numero
:-)