mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: problema POST e GET

Allora, vi descrivo il problema:
ho trovato su internet un ASP (
www.freesms.net/freesmsSQL.asp
) che permette
di inviare messaggi ai cellulare in modo gratuito.
Adesso lo script funziona in modo POST benissimo. Il problema č che io non
voglio creare una pagina HTML che mi permette di mandare messaggini, ma
voglio che il mio programma perl me li mandi automaticamente (il tutto ad
una certa ora). Il problema č che se io utilizzo un GET e cioč:
http://www.freesms.net/freesmsSQL.asp?MfcISAPICommand=SendText&origin=adva&i
ntlPrefix=%2B39338&TELEPHONE=%2B39338xxxxxx&EMAIL=
armi...@bccmp.com
&SMSTEXT
=PROVA+GET+2&num=129&Send=Send+Free+Sms+Now%21
il programma NON FUNZIONA. Devo utilizzare quindi un POST in automatico.
Come posso fare??
Grazie a tutti,
aldo

 Come posso fare??
Usi LWP::UserAgent, prendendo spunto dall'esempio di POST che c'e' in lwpcook
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 Come posso fare??
dai un'occhiata ai moduli LWP::*
-- 
It's now the GNU Emacs of all terminal emulators.
        -- Linus Torvalds, regarding the fact that Linux started off as a
	terminal emulator

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

Spero di trovare qualcuno disposto ad aiutarmi anche se non ho letto le FAQ
e cose del genere, ma purtroppo non ho il tempo....
Ho accettato un lavoro, ma ho scarsa pratica con il perl, e poco tempo devo
consegnarlo tra un mese e mezzo........
Devo fare un programma per consultare le email online su di un sito, tipo
quelli di tiscali, tin ecc... dove posso trovare degli script già fatti da
consultare che possano fare al caso mio?? Vi imploro aiutatemi!! E' il mio
primo incarico importante e NON posso fallire..... perfavor......
Ringrazio e saluto....
Nicola Del Mutolo

Sull'ultimo numero di internet news c'era un articolo in cui si illustravano
dei programmi già fatti per leggere le web-mail, forse qualcuno potrebbe
fare al caso tuo... lo so che è più bello scriverli i programmi, ma quando
il cliente soffia sul collo :-)))
Newsgroup: it.comp.lang.perl
Titolo: hash con valori inseriti da una variabile

Sto creando la seguente funzione che mi deve restituire un hash con i
valori di una query che ha 2 colonne ed n righe.
Se per prova faccio uscire un print %hash_box2 cosi come il print
nella funzione funzionano e mi danno come output una cosa del tipo;
"2=>valore1 altrotestovalore1,3=>valore2 altrotestovalore2 ,4=>valore4
altrotesto valore4,"
se invece richiedo un singolo valore per esempio  print
$hash_box2{'2'} il print non mi restituisce nulla.
Ho provato tutte le combinazioni con apici singoli, con virgolette sia
nella definizione della variabile $valori sia nel  print
$hash_box2{'2'} ma il valore singolo non mi viene restituito.
Qualcuno potrebbe aiutarmi a capire dove sbaglio?????
Saluti
Segue il codice della funzione:
sub restituisci_hash_box {
$ls_bpc2="SELECT DISTINCT box.id_box, box.nomebox FROM archivi LEFT
JOIN k_commerciali ON
archivi.id_commerciale=k_commerciali.id_commerciale LEFT JOIN box ON
box.id_box=archivi.id_box";
$ex_ls_bpc2=$connect->query($ls_bpc2);
$num_righe=$ex_ls_bpc2->numrows();
$valori="";
while(@results_ls_bpc2 = $ex_ls_bpc2->fetchrow()){
       $valori=
$valori."$results_ls_bpc2[0]".","."$results_ls_bpc2[1]".",";
}
%hash_box = ($valori);
print "\n--------------------------------\n";
print %hash_box;
print "\n--------------------------------\n";
return %hash_box;
}
%hash_box2= &restituisci_hash_box();
print "\n+++++++++++++++++++++++++++++++\n";
#FUNZIONA print %hash_box2;
# NON FUNZIONA print $hash_box2{'2'};
print "\n++++++++++++++++++++++++++++++++\n";

%hash_box = ($valori);
Puň anche darsi che quello che hai scritto abbia qualche senso, in qualche
convoluto meandro sintattico di Perl (sebbene io non abbia idea di quale
possa essere e se abbia qualche relazione con quello che vuoi fare) ma non
č piů semplice cosě?:
 my %hash_box;
 while(@results_ls_bpc2 = $ex_ls_bpc2->fetchrow()){
        $hash_box{$results_ls_bpc2[0]} = $results_ls_bpc2[1];
 }
 
Ciao.

 Ciao.
Grazie mille Giovanni,
ho iniziato ieri a scrivere un po di cavolate in perl, speriamo che
non ne faccia altre!!!! :-)
Saluti Alessandro

Newsgroup: it.comp.lang.perl
Titolo: #!usr/bin/perl?

Ho creato una cartella in c chiamata usr con all'interno una chiamata bin
con all'interno perl.exe. Quando però ho provato uno script, apache mi ha
segnalato che mancava un file dll. Allora ho provato a scrivere nel file cgi
invece di #!usr/bin/perl - #!perl/bin/perl e ha funzionato. Come mai?
A proposito, per modificare il cgi ho usato notepad! Ho fatto bene?
--
Antonio
ICQ#: 64543177
e-mail: 
antonio...@inwind.it
 o 
antonio...@hotmail.com
Personal Web Site: 
http://antonio.dalweb.it

lo script ti funziona perche' è quello il percorso all'interno del tuo pc.
per modificare gli script vai su 
www.volftp.it
 e ricerca con perl+editor e
scegli quello che vuoi. Io ti consiglio perlbuilder o dzsoft
--
Posted from 
relay2.inwind.it
 [212.141.53.73] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.perl
Titolo: Aiuto!!! HTML --- Lettere accentate "è" "ì" "ù" ecc..

Sto imparando a creare pagine HTML perň ho un piccolo problema.
Usando il carattere "English111 Vivace BT" le lettere accentate tipo "č" ,
"ě" ,"ů" non vengono visualizzate bene con il browser. Praticamente nella
frase, nel momento in cui c'č una lettera accentata il font viene cambiato
con un altro.
Nel codice ho scritto questo:  per la lettera "č" = &egrave;
e per "ě"=&igrave;
Esiste un modo per visualizzare a video con il browser le lettere in modo
corretto?
Vi ringrazio anticipatamente per la vostra attenzione
ciao da Fabrizio

ci sono diversi font True Type che semplicemente NON HANNO le lettere
accentate, perché pensati solo per la lingua inglese.
e guarda caso... il tuo font si chiama "english..."
ciao!
fabrizio ha scritto:

--
---------------------------------------------------------------
Visual Vision - 
http://visualvision.it/
 
http://visualvision.com
I leader del software ipertestuale.
Prova iPer Hyper Publish PRO: un'unica soluzione per realizzare
sia pagine Internet che CD-ROM!               [ASP, ESC member]

 wrote in message
38A35BDC...@visualvision.it...

Grazie, sto per visitare il vostro sito ciao!!!!
Newsgroup: it.comp.lang.perl
Titolo: Differenza tra l'operato And - &&

Ciao a tutti ,
    per curiosità qualcuno mi sa dire che differenza esiste tra l'operatore
'&&' ed 'And'
Grazie anticipatamente per eventuali risposte

 tra l'operatore '&&' ed 'And'
  Semanticamente, nessuna, se non che l'operatore '&&' ha una precedenza
piu` alta dell'operatore 'and'.
  Presumo che l'esistenza dei "doppioni" letterali degli operatori
logici sia giustificata dal fatto che Larry Wall volesse strutturare il
Perl il piu` simile possibile ad un linguaggio naturale:
	if $a eq $b and unless open FILE, '<path' do { ... }
	Alla prossima,
		Marco


La precedenza.
Da perlmod:
       As more readable alternatives to && and ||, Perl provides
       "and" and "or" operators (see below).  The short-circuit
       behavior is identical.  The precedence of "and" and "or"
       is much lower, however, so that you can safely use them
       after a list operator without the need for parentheses:
ciao, marco
 --
Marco Cacchiani                                
e-mail:ma...@sirius.pisa.it
Public pgp key:         
http://www.sirius.pisa.it/marco/pgp_public_key.asc
Sirius Servizi Informatici                     e-mail: 
in...@sirius.pisa.it
Parco Teatro Pasolini, 1                       Phone:  +39 (50) 865120
I-56019 - Vecchiano                            Fax:    +39 (50) 860260
(Pisa - ITALIA)                                
http://www.sirius.pisa.it/

Grazie infinite ragazzi
by tony

'&&' ed 'And'
Il significato logico e` uguale, pero` "&&" ha priorita` molto alta (superiore
a quasi tutti gli altri operatori), mentre "and" ha priorita` molto bassa.
Se usi le parentesi dappertutto puoi usare che operatore vuoi, pero` se impari
un po' a gestirli puoi quasi sempre fare a meno di esse. ;)
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

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

 
In Perl sono entrambi short-circuit. Una curiosità: ma quali linguaggi
hanno entrambi gli operatori "&&" e "and" che si differenziano rispetto al
comportamento short-circuit?
Max

 comportamento short-circuit?
Non li ho specificati perche` non ne ero certo, nella selva di linguaggi
e linguaggetti visti fino a oggi... Me lo ricordo per certo nello
pseudopascal didattico usato a TAMC (Teoria e Applicazione delle
Macchine Calcolatrici, a Informatica) ma sono convinto di averlo
ritrovato anche in seguito. Dove... -e qui potrei sbagliarmi- in uno a
scelta tra Lightspeed Pascal, Logo, Autolisp, WP Scripting, HyperTalk,
Scripting di Toolbook, FutureBasic  e chissa` cos'altro; non si trattava
di Clipper, Lingo ed AppleScript, ma potrebbero essere anche altri.
Mi ricordo del problema posto dalla differenza tra "&" e "&&" nel caso
di un file, per testarne l'esistenza ed una proprieta`: esiste & prop
dava errore se il file non esisteva, mentre con esiste && prop filava
tutto liscio.
Ecco perche', trovandomi davanti alla doppia forma, avevo pensato
immediatamente alla differenza gia` vista.

Newsgroup: it.comp.lang.perl
Titolo: Sicurezza degli script

Vorrei avere alcuni consigli su come proteggere gli script perl, in
particolar modo in relazione ad eventuali esecuzioni degli script dalla
location window del browser.
Inoltre vorrei sapere se è possibile (ed eventualmente in che modo) risalire
da un IP address al provider di accesso.
Grazie
Nicola


Prego
ciao
Davide
_________________________
Davide Giansoldati
D.G. Line - Servizi informatici
http://www.dgline.it

 spiegati meglio
Cioè, se lanciando uno script.cgi scritto in Perl non da un apposito
pulsante (e relativo FORM...) su una pagina ma direttamente dalla casella di
immissione indirizzo http del browser, magari aggiungendo dei comandi che
possano danneggiare il sistema.
Grazie,
Nicola

 possano danneggiare il sistema.
Andando a caso...
1) Usa solo POST, cosi' non e' possibile chiamare lo script dalla riga di
Location del browser. Verifica che il metodo di richiesta sia stato POST e
non accettare i GET (tutto prima ancora di guardare le variabili passate).
2) Controlla HTTP_REFERER. Se non erro dovrebbe esser vuoto se lo script e'
chiamato dalla riga di Location. Al limite, imponi che HTTP_REFERER sia
la tua pagina HTML, cosi' lo script non puo' essere chiamato che dalla tua
pagina.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

On 31 Aug 1999 09:06:09 GMT, 
mmmu...@netscape.net
 (Maurizio M.
Munafo`) wrote:
| 2) Controlla HTTP_REFERER. Se non erro dovrebbe esser vuoto se lo script e'
| chiamato dalla riga di Location. Al limite, imponi che HTTP_REFERER sia
| la tua pagina HTML, cosi' lo script non puo' essere chiamato che dalla tua
| pagina.
sono tutte protezioni poco efficaci. e se piu' generalmente generassi
ogni tanto un numero casuale e accettassi solo chiamate che contengono
quel numero casuale?
oha

 da un IP address al provider di accesso.
quello lo trovi dentro $ENV{REMOTE_ADDR}
(almeno sotto apache)
-- 

 pagina.
per questo invece gli servirebbe anche HTTP::Headers :)
sintetizzo con un esempio:
--------
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->agent("Mozilla/10.5"); #per dire...
# qui frego POST...
$req = new HTTP::Request('POST', '
http://www.pippo.it/cgi-bin/main.pl'
);
$req->content_type('application/x-www-form-urlencoded');
$req->content('pippo=valorefasullo');
#qui frego HTTP_REFERER ....
$req->header('Referer' => '
http://host.fasullo.com
'); 
$res = $ua->request($req);
if ($res->is_success) {
         print $res->content;
} else {
         print "Error: " . $res->status_line . "\n";
}
------
ripeto, per me l'unico sistema minimamente sicuro è quello di validare
(in maniera intelligente) _tutti_ i parametri utilizzati.


Se uso lo switch -T nell'intestazione dello script
es. #!/usr/local/bin/perl -T
questo può modificare il contenuto delle variabli che uso?
Nicola

 questo può modificare il contenuto delle variabli che uso?
No, semplicemente ti impedisce di usare imput non validato (tainted)
-- 
- Claudio Della Ciana <pynhqvbq...@rznvy.pbz>
- apply a rot13 to get real address
Newsgroup: it.comp.lang.perl
Titolo: Help e-mail...

Come posso fare uno script perl che invii una e-mail con un attachment?
Grazie

Come posso fare uno script perl che invii una e-mail con un attachment?
Prova a usare i moduli MIME::*
Ciao
Andrea

 Grazie
Vai su 
http://www.perl.com/reference
 nella sezione Mail e trovi una serie
di ottimi moduli. Il piu' semplice da usare e', senza dubbio
Mail::Sender... che funziona egregiamente su NT, Solaris e Linux (io posso
confermare Linux e Solaris)...
Questo e' l'indirizzo:
 
http://jenda.krynicky.cz/#Mail::Sender
	Hope this helps,
	Best Regards,
		Kazuma
-- 
Alex Garbagnati, 
al...@remove.this.messagemedia.com
Sr. Application Engineer, MessageMedia
Mountain View, CA  94043

Newsgroup: it.comp.lang.perl
Titolo: Package che utilizza altro package...

Ciao...
ho un problema...
ho un file "
principale.pl
"
che effettua le require di due package: "
pack1.pl
" e "
pack2.pl
"
da principale se voglio usare una sub di pack1 uso semplicemente
MIOPACK1::primasub();
ma se devo usare in una sub di  
pack2.pl
 una sub di pack1 come
faccio??
ciao e grazie :)

 wrote in message
8e849ug6cn6omkonp...@4ax.com...

uguale, al limite fai require anche da li.
---
Mario Rizzuti

 faccio??
In quella sub di pack2, aggiungi:
	require '
pack1.pl
';
A quel punto, il package sara` visibile solo all'interno della sub e
non dell'intero package (se e` questo che ti interessa).
Se non vuoi fare le cose sporche, esporta la sub in un terzo package,
che sara` utilizzato solo da pack1 e pack2 in modo trasparente.
Bye,
 Emmanuele.
-- 
Emmanuele Bassi (Zefram)           [ 
http://www.radiance.d2g.com/~zefram
 ]
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

ciao, grazie per la risposta... ma ho comunque problemi... infatti
facendo la require sia nella index che nella lib mi genera errore:
Too many arguments for DB::connettiDB at
lib/cambiopwd/
cambiopwd.lib.pl
 line 84, near "])"
Too many arguments for DB::eseguiQUERY at
lib/cambiopwd/
cambiopwd.lib.pl
 line 85, near "$dbh)"
Too many arguments for DB::disconnettiDB at
lib/cambiopwd/
cambiopwd.lib.pl
 line 86, near "$dbh)"
Compilation failed in require at ./
index.pl
 line 20.
sembra quasi che non voglia 2 require identiche...
esiste un modo per fare require senza farlo vedere tra una lib e
l'altra ??
ciao e grazie ancora!!



 wrote in message
ekbb9u0sr3n7edamd...@4ax.com...

Non dipende da require.
Se posti un po di codice (es. sub connettiDB) si puo' capire meglio
comunque.
Forse stai chiamando la funzione con DB->connettiDB(@args) e il package
prevede DB::connettiDB(@args).
---
Mario Rizzuti

 Compilation failed in require at ./
index.pl
 line 20.
Questo e` un errore di sintassi: stai chiamando il metodo connettiDB
della classe DB con troppi argomenti.

Newsgroup: it.comp.lang.perl
Titolo: Errore ActivePerl

Salve a tuttti,
uso ActivePerl 5.6 sotto Win98SE... fino a qualche giorno fa, tutto
bene, tutto funzionava a meraviglia...
purtroppo a causa di windows (passero' a linux a breve), ho dovuto
reinstallare (cancellando la directory di win vecchia)...
adesso, quando cerco di installare activeperl dal file .msi, mi dice che
la versione dell'installer non e' aggiornata... :((
ho installato anche iexplorer6.0 e office2000 ma non e' cambiato
nulla... non vorrei scaricare qualche aggiornamento dal sito della ms...
anche perche' fino a qualche giorno fa tutto funzionava bene e non ho
mai scaricato aggiornamenti (magari e' stato installato insieme a
qualche prodotto... mah...)
non e' che a quacluno di voi e' capitato lo stesso ?
conoscete qualche soluzione ? (oltre a passare a win2k o linux, tnx :) )
saluti,
Gianni
ps. i servizi di free hosting di asp e php hanno un interprete perl ?

 la versione dell'installer non e' aggiornata... :((
sul sito dell'ActiveState trovi il link all'installer MS:
http://download.microsoft.com/download/WindowsInstaller/Install/2.0/W9XMe/EN-US/instmsi.exe
prova con quello...

Newsgroup: it.comp.lang.perl
Titolo: GET or POST

Ciao,
volevo chedervi se è possibile da un file cgi capire se la form che lo
chiama
lo chiama col metodo POST oppure GET.
E se è col metodo GET come è possibile memorizzare la stinga dell'URL in
questione
con tutta la lista dei parametri.
Grazie...
    Ivan

     Ivan
$TUASTRINGA=$ENV{'QUERY_STRING'};
CIAO!!
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************
Newsgroup: it.comp.lang.perl
Titolo: Mail::Sendmail

Uso questo semplice modulo perché è disponibile anche in ActivePerl
5.8. Ho usato con successo il modulo Mail::Mailer che preferisco, ma
non è disponibile in ActivePerl 5.8.
ActivePerl 5.8 è la release che funziona sotto Vista, quella
successiva 5.10 non funziona, l'ho capito dopo un tot di notti
insonni.
Mail::Sendmail mi da sempre degli errori, al fine di evitare che si
possano vedere pezzi di programma in rete, attivo il comando exit ad
ogni errore.
Qualcuno ha esperienza d'uso di questo modulo? Ho l'impressione che mi
sfugga qualcosa.
il link è
http://search.cpan.org/~mivkovic/Mail-Sendmail-0.79/Sendmail.pm
Ho inserito la chiamata al modulo in una mia 
libreria.pm
 nel modo
seguente:
use Mail::Sendmail;
# ------------------- inizio sub invia_email
------------------------------
# parametri in entrata:
# indirizzo email mittente
# indirizzo email ricevente
# oggetto
# messaggio
sub invia_email {
my $da = shift;
my $a = shift;
my $ogg = shift;
my $msg = shift;
my %mail = ( To=>$a, From=>$da, Subject=>$ogg, Message=>$msg );
$mail{Smtp} = 'mail.server.xxx';
sendmail(%mail) or exit errore('Errore invio emai','La connessione al
server di posta elettronica non funziona');
}
# ------------------- fine sub invia_email
--------------------------------
Sembra tutto regolare ma non funziona.
Saluti
oreste.parlatano.com

In realtà la mia non è una risposta, ma un consiglio.
Dopo aver provato vari moduli, tra cui Mail::Sender e Mail::Sendmail, su 
win32 mi sono trovato bene con Email::Send . Lo trovi con PPM e ... 
almeno a me va ;)


Grazie della segnalazione, lo installo subito.
Peccato per Mail::Mailer funziona molto bene sotto Unix/Linux.
Newsgroup: it.comp.lang.perl
Titolo: exporter di tutte le subroutine

Ciao,
è possibile eseguire l'export di tutte le funzioni di un modulo senza
dichiararle tutte in @EXPORT?
cercando su google ho provato con:
use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(
);
ma non funge.
Ovviamente dichiarandole funziona:
use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(&read_xml, &write_xml, &view_xml);

 č possibile eseguire l'export di tutte le funzioni di un modulo senza

Bella domanda, non c'avevo mai pensato.
Senza uso di ulteriori moduli, questa č la prima soluzione che mi viene 
in mente:
use Exporter;
our @ISA = qw(Exporter);
no strict 'refs';
our @EXPORT
   = grep *{ __PACKAGE__ . "\::$_" }{CODE}, keys %{ __PACKAGE__ . '::' };
Ciao,
-Emanuele

 Bella domanda, non c'avevo mai pensato.
Precisazione: la domanda era senz'altro stimolante, ma è opportuno 
rimarcare che l'esportazione /cieca/ di tutte le subroutine *non* è una 
buona idea, perché va ad inquinare il namespace del modulo chiamante in 
maniera non immediatamente chiara.
Parlo in generale, nel caso ci legga qualcuno che si sta avvicinando a 
Perl per la prima volta.

 -Emanuele
Restringerei lo scope di "no strict 'refs'" ad un blocco:
{
   no strict 'refs';
   our @EXPORT
      = grep *{ __PACKAGE__ . "\::$_" }{CODE}, keys %{ __PACKAGE__ .
'::' };
}
Sono comunque d'accordo che non sia una buona idea esportare tutto,
sia per questioni di inquinamento del namespace da cui si importa, sia
perché ritengo utile mantenere il controllo su quanto si rende
visibile (utilizzando magari @EXPORT_OK).


grazie ad entrambi.
So che è pericoloso , ma in fase di sviluppo dell'applicazione posso
aggiungere funzioni senza dover aggiornare la lista.

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

Come posso realizzare grafici (tipo excel) sfruttando un database?
Ci sono delle funzioni particolari che dovrei conoscere?
Grazie a chi mi risponde

 Ci sono delle funzioni particolari che dovrei conoscere?
Penso che le librerie GD facciano al caso tuo.
Controlla, perň... č un po' che non le uso.
Valerio

 wrote in message
8avh9i$jqq$1...@news2.livenet.it...

Giusto un paio di giorni fa ho trovato in giro:
http://www.fred.net/brv/chart/home.html
Non l'ho provato, ma promette molto bene.
Mi sembra che contenga anche la distribuzione giusta delle GD: quella che fa
ancora i gif con la compressione LZW.
ciao.
Marco Cacchiani 
ma...@sirius.pisa.it
--
Sirius Servizi Informatici                     e-mail: 
in...@sirius.pisa.it
Parco Teatro Pasolini, 1                       Phone:  +39 (50) 865120
I-56019 - Vecchiano                            Fax:    +39 (50) 860260
(Pisa - ITALIA)                                
http://www.sirius.pisa.it/
Newsgroup: it.comp.lang.perl
Titolo: Server da distribuire...

Salve.
Sto tentando di realizzare una versione "locale" di una banca dati, già 
esistente in internet: si tratta di alcuni script Perl che accedono, solo in 
lettura, ad un database (grazie ad una semplice interfaccia Web).
Ora sono a buon punto, e mi è stato molto utile il "Perl2exe" (grazie alla 
segnalazione del newsgroup), che mi eviterà di dover far installare il Perl 
agli utenti (mi riferisco a Windows 95/98).
Non mi resta che risolvere l'ultimo problema, quello del Server...
Di solito utilizzo "Omni Httpd" o "Sambar", di cui apprezzo la semplicità 
d'uso. Ma come fare ad inserirli in un eventuale CD-Rom? (è possibile?)
Oppure esiste in circolazione un server da poter "eseguire" evitando 
installazioni e inserimento di dati nel registro di confgurazione di Windows?
Credo di aver fatto un po di confusione...
Vi ringrazio per l'attenzione
Bruno

Esiste un'ottimo prodotto si chiama I-View: browser web off line:
Ti ringrazio Stefano.
Comunque in privato mi è stato anche suggerito Xitami 
( 
http://www.imatix.com
 ), un freeware, e mi sembra funzionare
bene con il Perl...
Ciao,
Bruno

 installazioni e inserimento di dati nel registro di confgurazione di Windows?
Esiste un'ottimo prodotto si chiama I-View: browser web off line: nella versione
pro supporta i win-cgi e costa relativamente poco. Non mi ricordo l'indirizzo
http, ma non dovrebbe essere difficile trovarlo.
ciao



 installazioni e inserimento di dati nel registro di confgurazione di Windows?
Esiste un'ottimo prodotto si chiama I-View: browser web off line totalmente
funzionante su floppy o cd senza installazioni su hd. Nella versione pro supporta




Newsgroup: it.comp.lang.perl
Titolo: rappresentare decmali

salve!
sto scrivendo un cgi in perl per recuperare da un DB i prezzi
degli articoli in vendita su un online shop, e il mio problema e' che non
so come fare per stampare a video con due cifre decimali, anche se nulle.
quello che accade, per esempio, e' che 13,10 diventa 13,1 
e 45,00 diventa 45.
potete aiutarmi?
ciao!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 e 45,00 diventa 45.
Un modo potrebbe essere:
my $num = '45';
($num = sprintf("%.2f", $num)) =~ s/\./,/;
# $num = 45,00
by
	- Enrico
--- have fun with 
www.perl.it
 ---

 	- Enrico

Newsgroup: it.comp.lang.perl
Titolo: Aggiornare i moduli

Salve a tutti i frequentatori di questo gruppo.
Dopo aver installato i moduli perl come si
aggiornano? Basterebbe ripetere l'installazione con le nuove versioni
ottenendo in questo modo la sovrascrittura?
Preciso di aver utilizzato i classici archivi tarball (*.tar.gz).
Ciao e grazie.
Giuseppe Ricioppo

ottenendo in questo modo la sovrascrittura?
Certo, basta reinstallarli.
	A presto, Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 Preciso di aver utilizzato i classici archivi tarball (*.tar.gz).
Usa il modulo CPAN sia per installarne di nuovi che per aggiornare, e' 
molto comodo.
-- 
Saluti,
Giancarlo

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

Salve,
ho una pagina html che contiene un javascript che, a seconda di quale bottone
premo, mi mostra una immagine diversa sulla pagina.
Volevo sapere: esiste un modo per passare la variabile dell'immagine
selezionata (es. image1.gif) ad uno script cgi richiamato da quella stessa
pagina?
Grazie
-- 
Posted from 
r-fi057-2-35.tin.it
 [62.211.52.35] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 pagina?
   Certo, utilizzando i normali metodi di comunicazione tra client e CGI 
sia nella versione statica
	<a href="
http://my.server.dom/cgi-bin/mycgi.cgi?img=image1.gif
">
che in quella dinamica
	window.location.href="http://...";
   E la tua domanda sul Perl e`?...
--
Alla prossima,
Marco

Newsgroup: it.comp.lang.perl
Titolo: recupero OutPUT

Ciao
Come posso recuperare l'eventuale messaggio di errore generato da una una
chiamata ad un programma esterno, ad esempio pkzip, effetuata con `pkzip` o
system "pkzip"?
Lo so le sintassi sono approsimative.
Grazie

 ha scritto nel messaggio
news:98502f$7mo$1...@fe1.cs.interbusiness.it...


 ha scritto nel messaggio
news:9851io$gl2$1...@fe2.cs.interbusiness.it...


 genio?!?!?!
open (STDERR, ">> OUT.log");
system "pkzipc", "-add", "-move", "$fileZip", "$FileName";
close STDERR;
E cosě nel file OUT.log hai tutto quello che vuoi
Ciao
--------------------------------
Marco Pinna
System & Network Admin
marc...@vaionline.it
--------------------------------
Newsgroup: it.comp.lang.perl
Titolo: cancellare elementi da array

Continuando con i miei "esperimenti...
 
questo il listato di prova:
 
#!/usr/bin/perl
  use strict;
my @array = qw(tizio pippo caio sempronio gino pino lino dino nino);
my $indice = "";
print "@array \r\n";
foreach $indice (0.. $#array) {
        if ($array[$indice] eq 'pippo') {
                delete $array[$indice];
                }
}
print "@array $#array \r\n";
 
e questo l'output:
 
tizio pippo caio sempronio gino pino lino dino nino
Use of uninitialized value in join or string at 
prova2.pl
 line 12.
tizio  caio sempronio gino pino lino dino nino 8
 
la riga incriminata è l'ultima: (print "@array $#array \r\n";) però non 
capisco l'errore, se commento la riga ovviamente l'errore sparisce, ma sarei 
più contento di capire il perchè. L'intento della prova come si nota è di 
cancellare un elemento arbitrario dall'array, nell'uso che ne vorrei fare il 
"pippo" verrà sostituito da una variabile.
 
 
-- 
Fri(END), Boyfri(END), Girlfri(END), Bestfri(END). Everything has an END 
except...Fam(ILY)! It Has 3 Letters that say I LOVE YOU 
 

.

 Ti consiglio funzioni come splice. C'è una buona guida qui:
 
ci butto un occhio...
Ho dato una scorsa sommaria e credo di aver capito che se modifico così:
 
foreach $indice (0.. $#array) {
         if ($array[$indice] eq 'pippo') {
                 $elemento = $indice;
                }
splice (@array, $elemento, 1);
 }
 
ottengo il risultato prefisso, o c'è un sistema migliore?
In ogni caso l'array al massimo potrà contenere qualche centinaio di 
elementi (3-400), anche se non è efficiente come sistema per i miei usi 
basta ed avanza, tanto quello che faccio è un passatempo.
 
Grazie per l'aiuto.


 ottengo il risultato prefisso, o c'č un sistema migliore?
 
Mi rispondo da solo... non funziona :-)
il codice incriminato č questo:
 
foreach $indice (0.. $#database) {
    if ($database[$indice] eq $temp) {  #riga 108
       $elemento = $indice;
  }
  splice (@database, $elemento, 1);     #riga 111
  store(\@database, "$file");
 }
 
il risultato č che ottengo questo: (e l'elemento non viene cancellato)
 
Argument "" isn't numeric in splice at 
prova.pl
 line 111, <GEN0> line 46.
Use of uninitialized value in string 
prova.pl
 line 108, <GEN0> line 46.
 
Quindi dopo miliardi (si ok, erano qualcuna meno...) di ricerche e letture 
di testi piů o meno tutti uguali (č uno dei problemi della rete, un pirla 
scrive un minitutorial, e 3 milioni lo copiano sui loro siti fetenti, e lo 
spacciano per proprio, magari senza nemmeno sapere se funziona...) ho 
trovato quello che mi serviva, qua: 
http://stackoverflow.com/questions/174292/what-is-the-best-way-to-delete-a-value-from-an-array-in-perl
 
ed ho modificato il mio script cosě:
 
my $index = 0;
$index++ until $database[$index] eq $temp;
splice (@database, $index, 1);
 
e pare funzionare! :-)
Avrei un altro quesito, ma apro thread apposito..

Newsgroup: it.comp.lang.perl
Titolo: gzippare una variabile

Salve
   con il comando:
my $gzxml = `gzip -9 -q -c $xml_file`;
gzippo un file in una variabile
c'� un modo per gzippare una variabile al volo?
grazie 

 c'è un modo per gzippare una variabile al volo?
Mi sfugge il senso della cosa, comunque suppongo che questo funzioni:
$gzipvar = `printf "%s" "$var" | gzip`
ma e' veramente molto fragile (ad esempio basta che $var abbia degli apici
doppi e non funziona piu').
Nettamente meglio e' usare uno dei tanti moduli ::gzip che trovi su CPAN.

"antani" <ant...@mail.not> ha scritto nel messaggio 
news:h4220p$9c4$1...@news.eternal-september.org...
Mi sfugge il senso della cosa, comunque suppongo che questo funzioni:
$gzipvar = `printf "%s" "$var" | gzip`
ma e' veramente molto fragile (ad esempio basta che $var abbia degli apici
doppi e non funziona piu').
Nettamente meglio e' usare uno dei tanti moduli ::gzip che trovi su CPAN.
ï¿œ per evitare di fare un file temporaneo al volo da gzippare 

 è per evitare di fare un file temporaneo al volo da gzippare
use Compress::Zlib; 
$gzippped = Compress::Zlib::memGzip("foobar");
etc.etc., le pagine di Compress::Zlib e IO::Compress::Gzip hanno molti
esempi e informazioni.

Newsgroup: it.comp.lang.perl
Titolo: NET:: Ftp

So ke esiste una FAQ e tutta la documentazione relativa, ma non riesco
proprio a capire come funziona il modulo NET::Ftp per uploadare i file da
una pagina HTML  che contiene un campo del tipo:
<input type="file" name="fileField">
Confido nel vostro aiuto.
Un grazie anticipato.

<input type="file" name="fileField">
Per questo non devi usare Net::FTP, ma ti basta CGI.pm!
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> FAQ di it.comp.lang.perl: 
http://www.borders.it/perl/faq/
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 wrote in message
slrn95kh...@karma.italpro.to...


Aiuto che confusione :o)
Per stamaprne il contenuto:
$miofile = $q->param('nomecampofile');
while <$miofile> {
  print;
}
Con:
print $miofile;
ne ottieni invece il nome.


 wrote in message
slrn95o3...@karma.italpro.to...


Va bene anche per i file binari????
Certo. Ah, *assicurati* che il tag FORM contenga un parametro del tipo:
ENCTYPE="multipart/form-data"


 wrote in message
slrn95qp...@karma.italpro.to...

Newsgroup: it.comp.lang.perl
Titolo: exec di una pagina html

Ciao a tutti...
avrei un problemino con l'exec di perl...
Al termine del mio script perl lancio l'exec di una pagina htm...
Lo script parte da un link di una precedentepagina htm..
l'exec funziona aprendomi un nuovo browser in cui visualizzo correttamente
la pagina che lancio con l'exec..
tuttavia mi resta la finestra precedente completamente bianca...
è possibile  evitare che succeda....??
Ciao,
    Ivan

 wrote in message news:3db5029f$0$227$4d4e...@read.news.it.uu.net...


TCAobG9jYWxlPyBzdSBzZXJ2ZXI/KSBpbiBjdWkgZXNpc3RlIHVuIGxpbmsgY2hlIHF1YW5kbyBj
Scusa,
e' una decina di giorni che vedo i tuoi messaggi sempre come l'esempio qui
sopra. E mi spiace perdere le tue risposte, sempre molto utili.
Uso Free Agent e i messaggi li ho sempre visti benissimo: succede solo con
i tuoi, solo da una decina di giorni a questa parte.
Ciao!
Maurizio Mascheroni
-------------------------
Maurizio Mascheroni
http://www.idealmente.com
in...@idealmente.com
-------------------------

 con i tuoi, solo da una decina di giorni a questa parte.
Nei suoi headers c'e' un bellissimo:
Content-Type: text/plain;
        charset="Windows-1252"
Content-Transfer-Encoding: base64
e, ovviamente,
X-Newsreader: Microsoft Outlook Express 6.00.2720.3000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
:-)
-- 
Saluti,
Giancarlo

 wrote in message
news:3db56ecc....@news-central.giganews.com...


 tuttavia mi resta la finestra precedente completamente bianca...
cosa vuol dire? Se la precedente ipotesi è corretta, vuoi dire che la pagina
"mia_pagina.htm", quando attivi il link dello script perl, apre una nuova
finestra (in cui viene mostrato l'output dello script), però la finestra in
cui è visualizzata la "mia_pagina.htm" perde il precedente contenuto?
--


Adesso dovrebbe essere di nuovo ok... (Spero)
Wonderful. Ora e' tutto a posto.
Grazie a te.


 wrote in message
news:ap4hgq$rht5q$1...@ID-159100.news.dfncis.de...


L'interpretazione sarà pure corretta però serve a poco se non specifichi
meglio :-)
Posta l'esempio di quello che non ti funziona (possibilmente semplificato al
massimo, ma che contenga gli elementi chiave per funzionare) e vedremo di
trovare la soluzione.
ciao

Newsgroup: it.comp.lang.perl
Titolo: Richiesta di aiuto

Salve a tutti
ho iniziato da poco col perl........
uso il server apache e a casa tutto bene ma quando provo in remoto esce
sempre qualche prob..
Ci sarebbe qualche anima pia che mi potrebbe aiutare ad inserire un paio di
script e a configurarli ?
Vi potrei riconpensare in spazio + dir cgibin personale...........lo so che
non e' molto....ma..
Saluti
icq 50499705

Vorrei iniziare  programmazione in perl    cgi
come posso iniziare
quale libro
quale sito
grazie
ciao

quale sito
http://www.perl.com
o 
http://www.html.it
 in italiano.
Il CGI poi e` un discorso a parte. ;)
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/

 "Programming Perl", O'Reilly & Associates, c'e` anche in italiano.
!!! Non prendere il libro in italiano, ti prego! 
Qui sotto riporto uno stralcio preso pari pari dal summenzionato (adeguo
il mio
italiano all'opera :))
" [..] un riferimento rigido può identificare un entità (! e
l'apostrofo??) anonima.
Invero tutte le entità anonime sono denotate da riferimenti rigidi,
mentre la conversa
non è necessariamente vera. Se un'entità è associata a un riferimento
rigido, non per questo
deve essere anonima. Potrebbe esistere una variabile che la faccia
riferimento ad essa."
il tutto alle pagine 212 e 213.
... io non commento!
Non ho l'opera in lingua originale ma penso sia più comprensibile :)
I libri in lingua originale della O'Really li trovi ad es. su
www.amazon.co.uk
e in Italia su
www.gorilla.it
Ciao.

... io non commento!
C'e' poco da commentare...
Un consiglio a tutti quelli che hanno intenzione di programmare per il
Web SERIAMENTE (anche se da un semi-profano): lasciate stare
l'italiano e rispolverate il vostro inglese...:))
Newsgroup: it.comp.lang.perl
Titolo: semplice espressione regolare per "split":aiuto.

Dovrei splittare una data che può essere scritta gg/mm/yy oppure gg-mm-yy
oppure gg\mm\yy 
quindi mi serve l'espessione regolare che va nello split!
non riesco a farla!
come è?
@a=split( ???? , $data);
Grazie in anticipo, Mario.

Non ti consiglio di usare RE per date, comunque se la data è del formato che
dici, ed è sempre quello, e non ci fai su dei calcoli strani (per i quali ti
converrebbe piuttosto usare un modulo apposito) allora:
usando split:
my ($giorno, $mese, $anno) = split /[\/\\]/, $data;
--
-.. --- -- .. --.. .. ---
-.. . -- .. -.-. .... . .-.. .. ...

 my ($giorno, $mese, $anno) = split /[\/\\]/, $data;
se in gg, mm ed aaaa ci sono solo cifre, questa:
/\D/ 
e' piu' leggibile.
-- 
Saluti,
Giancarlo

 e' piu' leggibile.
si, ed è anche più estesa, in quanto non identifica solo i caratteri / e \,
ma qualunque carattere non numerico, quindi andrebbe bene anche con "12 10
99" o con "12-10-99" e anche con "12A10B99" :-)
ciao


 @a=split( ???? , $data);
 @a = split /[\/\-\\]/, $data ;
MM

 @a=split( ???? , $data);
split /[\\/\-]/, $data funziona, ma prende anche gg/mm-aa;
altrimenti usa
@ggmmaa = ( ($x=~m{(\d+)([\-\\/])(\d+)\2(\d+)})[0,2,3] );
che dovrebbe fare quello che vuoi.
Ciao
Mattia

 wrote in message
news:Xns929CD0B8236D8...@192.168.9.1...


Newsgroup: it.comp.lang.perl
Titolo: Posso usare il lenguage perl per fare programmi per il mirc - irc?

Ciao, volesse sapere se posso usare il linguaggio perl per fare scripts per
il mirc - irc cioč, per la chat normale e fare programmi per il suo uso
(tipo bot)
                                                Grache.
p.D:Perdonare il mio italiano, ma sono spagnolo e Lei poco della vostra
lingua

 lingua
vedi nel CPAN: se non sbaglio c'e un modulo per IRC nella sezione NET
se non sai cosa e' CPAN vai su 
www.perl.com

Newsgroup: it.comp.lang.perl
Titolo: Aiuto!!

Non conosco molto bene il perl e mi serve uno script! 
Devo vedere se dei file .bmp che stanno su una directory esistano su
un'altra directory xò con estensione .wbmp!
Lo devo fare ogni 5 minuti!! 
Ciao e grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Ciao e grazie

paga qualcuno che sappia scrivere lo script.
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************

Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
--------------------------------
Inviato via 
http://usenet.iol.it

Newsgroup: it.comp.lang.perl
Titolo: Server gratis per CGI...dove????

Salve gente !!!
Sapete dirmi se esiste qualcuno su Internet che offre oltre allo spazio
gratis per pagine html (tipo Geocities.com) anche la possibilita' di
scrivere CGI magari in Perl ???
Grazie,
e, se e' possibile rispondete a:
to...@auselda.it
o
gira...@tin.it

NewsGroups TIN wrote:

  La mia Macchina ....e' fatta per questo
telnet://
195.110.119.190
Ciao Onofrio
Newsgroup: it.comp.lang.perl
Titolo: Re: [info] divisione di array in sottoarray per bytes/caratteri

 @array3="89";
Così, su 2 piedi:
my @array=(0,1,2,3,4,5,6,7,8,9);
 
my $num = 0;
my $i = 0;
 
for(@array) {
    $i % 4 eq 0 and $num++;
    push(@{'array'.$num}, $_);
    $i++;
}
 
print @array1;
print @array2;
print @array3;
e via dicendo a seconda di quanto grande è l'array di partenza!
Ma qualcuno più "perlish" di me ti darà sicuramente una soluzione migliore!
(e io dirò: TMTOWTDI! :-PPP )
Ciao!
--ev

 my @array="0123456789";
Attenzione.  Questo e` in effetti un array, costituito da un unico elemento.
Essendo costituito da un solo elemento, la tua domanda perde di significato. Ne
deduco che intendi una stringa, ovvero
    my $stringa = "0123456789";
Ma poi dici che pack() non ti va bene perche` "tratta le stringhe, e non gli
array". Visto che c'e` un'ambiguita`, trattiamo entrambi i casi. Ecco le
mie proposte.
1. Dividere un array
   ----
    use strict;
    use warnings;
    use Data::Dumper;
    sub ripper
    {
        my $len = shift;
        my @a = @_; # Lavoreremo su una copia dell'array originale.
        my @pieces = ();    # Qui dentro terremo i singoli "pezzetti"
                            # dell'array originale.
 
        while( @a >= $len ) {   # Finche` ci sono abbastanza elementi...
 
            push @pieces, [ splice @a, 0, $len ];   # aggiungi a @pieces
                                                    # una fetta di array.
        }
        push @pieces, [ @a ];   # Infine raccogli le briciole
        return @pieces;
    }
    my @a = qw/0 1 2 3 4 5 6 7 8 9/;
    my @p = ripper( 4, @a );
    print Dumper( \@p );
    print Dumper( \@a );
   ----
2. Dividere una stringa
   ----
    use strict;
    use warnings;
    use Data::Dumper;
    sub ripper 
    {
        my $len = shift;
        my $str = shift;
        my @pieces = ();
        while( length $str >= $len ) {
            $str =~ s/(.{4})//;
            push @pieces, $1;
        }
        push @pieces, $str;
        return @pieces;
    }
    my $stringa = "0123456789";
    my @p = ripper( 4, $stringa );
    print Dumper( \@p );
   ----
Nota la somiglianza strutturale tra le due soluzioni.
Son certo che esiste una soluzione piu` breve per il secondo caso,
ma forse sarebbe un po' meno leggibile.
ciao,
S.
Newsgroup: it.comp.lang.perl
Titolo: Controllo stringhe

Ciao,
il codice del for che vi spedisco esegue dei controlli su di un vettore di
stringhe ed esce dal for non appena trova la stringa che sto cercando.
Il problema del mio script e che lui lascia passare le stringhe uguali o
maggiori a quella ricercata mentre io vorrei che lo facesse solo per le
stringhe uguali.
Per esempio :
se cerco la stringa "AAA"...Lui mi lascia passare anche la stringa,se
dovesse esistere, "AAAbbb".
Non capisco come lui faccia il controllo.Faccio fatica a decifrare il
codice. Il controllo avviene nell'istruzione :
                $in{'ma'} ?
                          ($key_match = ($key_match or
&{$regexp_func[$field]})) :
                          (&{$regexp_func[$field]} or next LINE);
Come faccio a fare in modo che prenda solo le stringhe esattamente uguali a
quella da me cercata?
Questo è il codice del for completo:
         foreach $field (@search_fields) {
                      $_ = $values[$field];   # Reg function works on $_.
                      $in{'ma'} ?
                          ($key_match = ($key_match or
&{$regexp_func[$field]})) :
                          (&{$regexp_func[$field]} or next LINE);
          }
Ciao e grazie a chi può aiutarmi.
    Ivan

          }
In effetti il codice e` difficile da comprendere cosi`
decontestualizzato. Sarebbe bello vedere almeno una decina di linee
di codice in piu`, diciamo 5 prima del for e 5 dopo. L'ideale poi
sarebbe leggere l'intero programma, sempre che tu possa pubblicarlo.
ciao
Stefano

Newsgroup: it.comp.lang.perl
Titolo: Newbee: How to connect through perl

Hi all,
   I am a newbee to Database programming. I am working on a project
where I
have to write some CGI code to interact with database. I am using Perl
for
CGI and the Database is SQL Server.  And I heard that I can Interact
with
the database using ODBC.
   My problem is if the database is on some other machine and how can I
connect to that database using Perl and ODBC.  An example will be really
helpful.
Any help is hugely appreciated.
TIA
srini.
Sent via Deja.com 
http://www.deja.com/
Before you buy.




Newsgroup: it.comp.lang.perl
Titolo: Sotituzioni all'interno di un testo

Ciao a tutti. Sto cercando di convertire in database un file html in
base alla presenza di alcuni tags da sostituire con tabulazioni in modo
da permetterne l'importazione in database.
In particolare ho un file di origine di questo tipo:
<B>Una/Due parole</B>, <I>Due o tre parole</I>, descrizione contenente
anche <I>corsivo e virgole</I>
<B>Una/Due parole</B>, descrizione contenente anche <I>corsivo e
virgole</I>,
In pratica vorrei creare uno scripe che mi permetta di suddividere il
nome iniziale dalla descrizione attraverso l'uso di tasg speciali
(quali, ad esempio, tabulazio ni o barre verticali)...
Ho provato a far cio con comandi di sostituzione del tipo 
$text123 =~ s/\n\n/<p>/g;
$text123 =~ s/\n/<br>/g;
ma non so come impostare lo script in modo tale che nella riga due
dell'esempio non mi inserisca nel nome del campo tutto il testo compreso
fino a "</I>," ma, nello steso tempo, capisca che nella riga uno
dell'esempio deve inserire nel nome del campo tutta la parte compresa
fino a "</I>,"... l'unica soluzione che intravedevo era l'inserimento di
cmpi che specificassero un numero massimo di parole comprese fra i
singoli tags... ma adire il vero non saprei come fare...
qualcuno puņ aiutarmi a risolvere questo problema?
Grazie
Marco

se devo essere schietto, dalla descrizione dell' html non si capisce molto.
prima parli di <b> e <i>, poi nelle sostituzioni spuntano fuori dei <p> e <br>
mah
-- 
Posted from 
mail2.galactica.it
 [212.41.208.19] (may be forged) 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.perl
Titolo: Regex tra più righe

Ho un file di testo di questo tipo:
Nome1        NumeroXX
Nome1        NumeroXX
Nome2        NumeroXX
Nome2        NumeroXX
Nome2        NumeroXX
Nome2        NumeroXX
Nome3        NumeroXX
Nome3        NumeroXX
Nome3        NumeroXX
In pratica le linee iniziano tutte con un nome che viene ripetuto per più 
linee diverse (mai con numero fisso).
Io devo capire quante linee hanno il nome1, nome2 ecc...
Sono veramente a digiuno di Perl però immagino che dovrò con una espressione 
regolare "leggere" il nome e vedere se nella riga dopo è lo stesso, se è 
così incrementare una variabile (associata al nome) fino a che non cambia il 
nome, e così via... Immagino bisognerà usare un array bidimensionale (nome + 
numero) ma non ho la più pallida idea di come fare (e se si possa fare in 
Perl).
Grazie a chiunque mi potrà dare una mano... 

foreach $r (@file) {
    ($k,$t) = split $r;
    $count{$k}++;
}
foreach $key (sort keys %count){
    print "N° $count{$key} DELLA LABEL $key";
}
Zanni ha scritto:


 for (map { m/^([^ ]+)/; $1 } @righe) { $conto{$_}++ }
oppure piu' elegantemente (come anche sostenuto difronte ad un piatto di
porchetta ;)
$conto{$_}++ for map { m/^([^ ]+)/; $1 } @righe;
[LucaS]

 [LucaS]
oppure piu' brevemente: 
my %conto;
$conto{$_}++ for map /^([^ ]+)/, @righe;
[LucaS]


Nun sia mai detto che io me tiro indietro quanno che se parla de 
porchetta! ;)
my %conto;
$conto{(split)[0]}++ for @righe;
Emanuele

 ha scritto nel messaggio 
news:4419e350$0$18293$4faf...@reader1.news.tin.it...

Rispondo qui a tutti.
Innanzitutto grazie mille!
Allora mi sono spiegato veramente male e me ne scuso... Le righe sopra hanno 
sì nomi uguali e/o diversi ma i numeri non sono mai uguali!
 Nome1        NumeroX
 Nome1        NumeroY
 Nome2        NumeroZ
 Nome2        NumeroXX
 Nome2        NumeroYY
 Nome2        NumeroZZ
 Nome3        NumeroZZZ
 Nome3        NumeroYYY
 Nome3        NumeroXXX
Le righe hanno quella forma...
Le soluzioni datemi "tirano" dentro una riga e controllano se quella dopo è 
esattamente uguale ma a me interessa sapere solo se il campo Nome è uguale 
non il resto della riga...
Spero di essere stato abbastanza chiaro...
Grazie mille a chiunque può darmi una mano...


Non capisco come mai ma in un file da 74 righe mi risponde:
N° 74 della label 74...
Boh...
Grazie comunque! 

 è uguale non il resto della riga...
E infatti tutte le soluzioni che ti sono state fornite fanno 
*esattamente* questo: davvero non riesco a capire cosa tu abbia 
letto/eseguito(/fumato).
Se non ci credi esegui il programma *completo* che accludo in calce 
(copia per intero tutto, inclusa la sezione __DATA__) il quale viene 
eseguito sui dati di test *da te* forniti, stampando il seguente output:
Nome3 compare 3 volte
Nome2 compare 4 volte
Nome1 compare 2 volte
che è esattamente quello che volevi, se l'italiano ha ancora un senso.
Ciao,
Emanuele.
#--- Snip here ---
use strict;
my %conto;
$conto{(split)[0]}++ for <DATA>;
while ( my ($k, $v) = each %conto ) {
     print "$k compare $v volte\n"
}
__DATA__
