mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Estrazione valori da stringhe

ORFN:Q0045 COX1, Chr Mito from
13818-13986,16435-16470,18954-18991,20508-20984,21995-22246,23612-23746,25318-25342
dovrei estrarre i valori 13818-13986,16435-16470, etc. e metterli in
colonna.
Quale approccio mi suggerite?
grazie
stefano
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

per estrarre, usa una RE, per "metterli in colonna"... non so nemmeno cosa
vuoi dire :-)
--
-.. --- -- .. --.. .. ---
-.. . -- .. -.-. .... . .-.. .. ...

Newsgroup: it.comp.lang.perl
Titolo: Grande DB

Sto costruendo e testando un database Postgresql di grandi dimensioni 
sia come numero di record (per ora 80000 di prova, ma fra breve saranno 
2,6 milioni) che come numero di colonne (100). Ovviamente uso perl con 
DBI e DBD per i test.
Al riguardo, stante che 96 colonne (campi) di una tabella si chiamano 
banalmente: let1,let2,...., let95, let96 come posso passare questo 
argomento a handle con istruzioni SELECT, UPDATE o INSERT senza dover 
scrivere materialmente tutti i nomi dei campi?
Ciao
Vittorio


Assumo che tu, per una qualche ragione (magari di efficienza) non possa 
selezionare banalmente tutti i campi:
SELECT * FROM mia_tabella;
e poi utilizzare solo i campi che ti occorrono, altrimenti non avresti 
fatto la domanda.
In questo caso non hai altra scelta che generare programmaticamente la
tua query. Peraltro in uno statement handle DBI puoi trattare
parametricamente i *valori* dei campi ma non i nomi dei campi medesimi
(a dire il vero con alcuni driver puoi farlo, ma e` sconsigliato e
ridurrebbe comunque la portabilita` del tuo codice.)
Nel tuo caso la generazione del codice SQL non sarebbe complicata, ma ti
sconsiglio ugualmente di adottarla, dal momento che la costruzione da
programma di stringhe SQL ha un impatto devastante sulla
leggibilita`/manutenibilita` del codice.
Diciamo che te la presento per puri scopi didattico/esemplificativi ;-)
my $lista_campi = join ', ', map {'let' . $_} (1..96);
quindi per costruire ad esempio una query di selezione:
my $query = "SELECT $lista_campi FROM mia_tabella";
la stringa $query la puoi poi utilizzare in un handle DBI,
(concatenandovi se occorre un'eventuale clausola WHERE,) e la stringa 
$lista_campi la puoi riutilizzare in qualsiasi altra query.
Invece sarebbe molto meglio fare ricorso a qualche soluzione che ti
permette di incapsulare l'SQL in strutture di dati Perl, tipo SQL::Abstract:
http://search.cpan.org/~nwiger/SQL-Abstract-1.17/
o, nella peggiore delle ipotesi, ad un qualche catalogo SQL tipo
SQL::Catalog, SQL::Snippet etc. (ce ne sono molti altri,) che ti
permette comunque di separare il codice SQL dal codice Perl.
Una soluzione ancora più sofisticata e` l'incapsulamento dell'SQL in
oggetti Perl (Class::DBI, Alzabo, Tangram, SPOPS etc.,) ma li` si
aprirebbe tutto un altro discorso...
Ciao,
Emanuele Zeppieri.
Newsgroup: it.comp.lang.perl
Titolo: come leggere questo array?

Vorrei leggere un array in un programma che vi riporto alla fine
(sorgente e output)
nella variabile  $node->{children} ci dovrebbe essere un array 
ma... come leggere questo array?
Ho provato con:
   @lista=$node->{children};
    print"-@lista-";
ma non funziona: il programma stampa:  "ARRAY(0x8175d3c)"
Vi ringrazio in anticipo per il vostro aiuto, Mario.
---------------------------------------------
program----------------------------------------
-----------------------------------------------
use SNMP;
$SNMP::save_descriptions = 1; # must be set prior to mib initialization
SNMP::initMib(); # parses default list of Mib modules from default dirs
# read dotted decimal oid or symbolic name to look up
# partial name will be searched and all matches returned
$val = shift || die "supply partial or complete object name or identifier\n";
$SNMP::use_long_names=1;
if ($node = $SNMP::MIB{$val}) {
    print "-$node:$node->{label} [$node->{objectID}]\n";
    while (($k,$v) = each %$node) {
	print "\t$k => $v\n";
    }
    @lista=$node->{children};
    print"-@lista-";
    print"------------- -\@node->{children} - --------------";
} else {
    while (($k,$v) = each %SNMP::MIB) {
	print "+$v->{label}-> [$v->{obj}]\n" #accepts unique partial key(objectID)
	    if $k =~ /$val/ or $v->{label} =~ /$val/;
    }
}
---------------------------------------------------
output-----------------------------------------------
---------------------------------------------------
-HASH(0x8175ce8):dod [.1.3.6]
	varbinds => ARRAY(0x8175d54)
	parent => HASH(0x8175d6c)
	description => 
	objectID => .1.3.6
	syntax => 
	nextNode => HASH(0x8175d9c)
	indexes => ARRAY(0x8175dcc)
	hint => 
	units => 
	textualConvention => 
	status => 
	children => ARRAY(0x8175de4)
	defaultValue => 
	access => 
	label => dod
	subID => 6
	enums => HASH(0x8175e2c)
	type => 
	ranges => ARRAY(0x8175e44)
	moduleID => SNMPv2-SMI
-ARRAY(0x8175d3c)-------------- -@node->{children} - -------------

 ma non funziona: il programma stampa:  "ARRAY(0x8175d3c)"
$node->{children} è un reference ad un array.
 my $arr_ref = $node->{children};
 print join "\n", @$arr_ref; # nota '@$'
Suggerisco la lettura della sezione perlref del manuale (Perl
references and nested data structures):
  perldoc perlref
Ciao,
Max

print @{ $node->{children} }
# anche interpolato in una stringa
-- 
Posted from 
mail7.galactica.it
 [212.41.208.24] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.perl
Titolo: (promo) cerco programmatore perl

Cerco programmatore perl per togliere bug a uno script molto complesso.
E' un anno che cerco e i bug non sono stati tolti tutti.
Ma è mai possibile che i programmatori perl bravi
non esistano?
Mi raccomando se siete dei novellini o poco esperti
non rispondete.
Mi serve un programmatore che conosca il perl
benissimo e che riesca a correggere i bug di questo
script in modo perfetto.
Astenersi perditempo e persone che "fuggono" dopo
aver visto lo script.

presente! Spero non sia un lavoro gratis, perché altrimenti sono ASSENTE :-)
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

 ha scritto nel messaggio
news:1mJE9.57003$744.2...@news1.tin.it...

Presente! Fammi sapere retribuzione e tipologia dello script

lavoro già terminato :-)



Ma sei una scheggia! :-)
Nids
Newsgroup: it.comp.lang.perl
Titolo: Illuminazioni su Perl

Per quanto possa sembrare paradossale, sono insoddisfatto del testo
Programming  Perl di Larry Wall. Non riesco ad "entrare" nel
linguaggio e sono piuttosto sorpreso e contrariato dalla cosa, anche
perche' ne colgo le potenzialita' e la forza. Paradossalmente ho
trovato a suo tempo facile cogliere lo spirito del C (un amore
indimenticato!) e sto trovando adesso semplice (nonche' interessante
da matti) cogliere lo "spirito" di Java studiando sull' Eckel e sulla
documentazione Sun.
Non capisco cosa ci sia di sbagliato nella mia testa per cui non
riesco a entrare in sintonia con il Perl che per me rimane un panorama
frammentario di cose di per se interessantissime (le espressioni
regolari sono una cosa che da sola vale lo studio) ma disgiunte, non
armonicamente integrate, che non riesco a riusare. Insomma, mi manca
l' illuminazione (e questo e' ovviamente un mio limite, non un limite
del Perl).
A suo tempo avevo avuto una cortese indicazione da parte di Alex
Garbagnati su un testo che approfondiva particolarmente i moduli Perl
e, prima ancora, altrettanto cortesemente Nando Santagata mi aveva
consigliato Perl Resource Kit. Esito a prendere quest' ultimo per via
del costo e delle dimensioni, riservandomi di farlo appena avro'
certezza che io e il Perl ci intendiamo e che facciamo sul serio.
Prima di procedere all' acquisto (Amazon non ha risolto tutti i miei
problemi, ma alcuni decisamente si :-)) volevo raccogliere qualche
idea da tutti voi.
Qualcuno sa indicarmi la strada per l' illuminazione?
Grazie e ciao.
Daniele
Togliere canc. dall' indirizzo per eventuali repliche in privato.

 Qualcuno sa indicarmi la strada per l' illuminazione?
Programming Perl e' sostanzialmente un Reference, e come tale proabilmente
manca dell'organicita' di un tutorial.
Probabilmente 'Learning Perl' e' al contrario troppo tutorial, pero' ho
letto buoni commenti di 'Perl: The Programmer's Companion' di Nigel Chapman,
che dovrebbe essere proprio il tipo di libro per il programmatore che vuole
conoscere Perl.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

!
Credo di capire il tuo problema: cerchi un libro discorsivo che ti
spieghi tutto il Perl in maniera chiara e coerente, come l'ottimo
"Thinking in Java" di Bruce Eckel che tu nomini fa appunto per il Java.
In realta` il libro piu` discorsivo che ho trovato sul Perl e`
proprio "Programming Perl" di Wall, che pero` in effetti dopo
qualche preambolo diventa piu` che altro una reference. Sia chiaro,
io lo considero una bibbia, ma forse manca qualcosa di piu`
"Eckeliano" per il Perl. Ci sarebbe "Learning Perl", ma e` per i
programmatori alle prime armi. 
E` recentemente uscito il "Perl Black Book". Non ho la minima idea di
come sia strutturato, magari prova a cercarlo su Amazon o su Fatbrain.
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/
Newsgroup: it.comp.lang.perl
Titolo: e-mail

ordine tramite una form)
Se sei su un server unix lanci sendmail, ma ricorda che devi dargli,
cioe' devi crearteli tu, anche tutti gli headers...
Saluti
       \||/
--oOOo--@ @--oOOo--
Squa
kra...@libero.it.CUT.TH.IS
http://www.poli.studenti.to.it/~s93146/
"per aspera ad astra"

Newsgroup: it.comp.lang.perl
Titolo: funzione che si attiva ogni tot secondi

Ciao a tutti,
esiste una fuzione che permette di attivare automaticamente un'altra
funzione ogni tot secondi?
Grazie a tutti
-- 
Posted from 
mta13-acc.tin.it
 [212.216.176.44] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

while (1) {
	sleep $tot_secondi;
	mia_funzione();
	# qui metti una condizione di uscita
	# perchè il loop è infinito
	last	if $voglio_uscire_dal_loop;
}
-- 
Posted from qmailr@[195.223.140.135] 


ma non devi metterla su uno script CGI per webserver.
Pena grosse pene e grossi peni!
Max

Newsgroup: it.comp.lang.perl
Titolo: migrando da php a perl

qualcuno può indirizzarmi a qualche tutorial, manuale o qualsia altra cosa
per imparare perl il meglio possibile..
(non quotare la documentazione perl)
(posso codare in PHP)
-- 
www.iuz-lab.info

 (posso codare in PHP)
Il fatto che tu possa gia' programmare in PHP, ti rendera' piu' facile.
Non per il PHP in se', ma per il fatto di aver esperienza di
programmazione tout-court.
Per il resto non vedo perche' tu non debba consultare le FAQ:
 
http://www.perl-it.org/faq/
e i vari siti del perl (anche quelli italiani).
Buon Perl.
 Raffaello

  
http://www.perl-it.org/faq/
Segnalo che le FAQ del newsgroup sono qui:
http://www.perl.it/documenti/faq/iclp_list.html
Per la domanda di iuz, direi che come hai detto anche tu, i siti perl 
canonici vanno bene, tra gli altri:
www.perl.com
www.perldoc.com
www.perl.it
www.perlmonks.org

 
http://www.perl.it/documenti/faq/iclp_list.html
Oops, hai ragione.
Ma sul manifesto del NG ho trovato quel link (che non ho verificato).
 Raffaello

Raffaello Galli wrote:

grazie a tutti..
comunque non è che non volevo consultare la documentazione ufficiale, volevo
solo sapere se esistevano risorse più complete o complementari..
grazie ancora
-- 
www.iuz-lab.info

 solo sapere se esistevano risorse più complete o complementari..
Le risorse ufficiali (in rete) _sono_ _complete_.
Il passo ulteriore e' comprare i libri.
 Raffaello

 Il passo ulteriore e' comprare i libri.
Quoto
Ciao,
-- 
+--------+ | ASCII ribbon campaign ( ) | 
www.autistici.org/kral
|  kral  | |  - against HTML email  X  |
+--------+ |              & vCards / \ | my gpg id = 0x7C946947
Newsgroup: it.comp.lang.perl
Titolo: Perl e SQL

Posso scrivere in Perl degli script per utilizzare DBMS come MySQL o
postgreSQL? Qualcuno lo fa già? In alternativa esiste un DBMS che va
proprio d'accordo con Perl?
dawe

proprio d'accordo con Perl?
Il modulo DBI.
Poi i vari DBD come DBD::mysql...
--
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



Sia per PostgreSQL che per MySQL esistono tre metodi per infterfacciarvisi
via perl:
1) backend apposito;
2) DBI;
3) driver ODBC.
Personalmente preferisco la seconda, poi sono gusti
Henryx
-- 
Valentina: "Mi piace inventare gli spettacoli che voglio... quelli
che non riesco a vedere, cerco di sognarli..."
                                          Guido Crepax (1933-2003)

Newsgroup: it.comp.lang.perl
Titolo: Chat sul proprio sito?

Qualcuno puo' spiegermi come mettere una chat sul mio sito?
In Perl (o comunque tramite interfaccia CGI) lo puoi fare, tuttavia viene
abbastanza grezzo: la pagina con le "battute" viene ricaricata di tanto
in tanto e comunque ad ogni nuova battuta immessa. Risultato: rallentamenti
a palla. Fino all'anno scorso c'erano parecchi chat fatti cosi`, ora sono
passati all'applet Java, che in questo caso e` molto vantaggioso. 
	Miky.
-- 
Michele Beltrame
mi...@skm.to
http://www.italpro.com/mb/
They can take your life, but they can't take your pride.

 wrote:
: >Qualcuno puo' spiegermi come mettere una chat sul mio sito?
: In Perl (o comunque tramite interfaccia CGI) lo puoi fare, tuttavia viene
: abbastanza grezzo: la pagina con le "battute" viene ricaricata di tanto
Diciamo "tramite CGI".
In Perl ci sono mille altri modi per farlo decentemente, compreso
l'uso di Penguin, piu` sicuro e facile da usare di Java. Unico
inconveniente: non esistono browsers Penguin enabled (e cio` e` male
:-)
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E

Newsgroup: it.comp.lang.perl
Titolo: moduli e script in un file solo

Salve,
     avrei la necessità di distribuire uno script che richiama due 
moduli in un solo file perl. Non posso distribuirlo con la dir "lib" con 
dentro tutte i moduli necessari. sapete se si possa fare?
Nel mio caso i moduli che voglio incorporare sono: Proc::Daemon e 
Proc::PID::File.
A tal proposito mi domando come funziona Perl2Exe a inglobare file 
moduli e interprete perl in un file solo...
grazie

dentro tutte i moduli necessari. sapete se si possa fare?
Il modo più semplice è par.
Ciao.

 Il modo più semplice è par.
l'ho provato, ma cercavo una soluzione molto più semplice. Credi che 
possa copiare/incollare il contenuto del 
modulo.mp
 nel mio script per e 
poi usare le sue subs?

,
scriveva:

Se risolvi tutte le dipendenze, ed è solo Perl puro, senza librerie
dinamiche, e usi opportunamente la dichiarazione package, certo che
puoi mettere tutto in un file.
Ma non è "molto più semplice". E non è molto diverso da quello che fa
par.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Problema con x

Ho creato questo script
if ($prodo eq "") {
 open (intesto,"$file") || do { print "<b>Impossibile aprire $file:
$!</b>\n"; exit;};
  while (<intesto>) { ($prodotto,$genere,$marca,$costo,$foto)=split /,/;
  if ($mar eq $marca ) {
   if ($foto = "no") {print "no\n";}else{print "$foto\n";}
  close FILE;
}
}
}else{
 print "else\n";
}
Io pensavo di creare uno script che :
apriva il file testo
lo splittava
E verificava se la stringa corrente aveva una marca uguale ad un'altra
L'ultimo pezzo doveva verificare se c'erano foto dentro alla selezione
Risultato
Nell'ultimo pezzo [if ($foto = "no") {print "no\n";}else{print "$foto\n";}]
lui rileva sempre no!!!! ma se tu apri il file di testo non sono tutti no ma
la cosa più bella è che se stampi $foto lui stampa l'inidirzzo giusto o il
no come nel file di testo.
Mi potete aiutare !!??!!
Grazie in anticipo


Vuoi direttamente la soluzione, o preferisci un approccio maieutico?
Nel secondo caso, potresti, ad esempio, cominciare con illustrare la
differenza che intercorre tra gli operatori '=', '==' e 'eq'...
Max

 ha scritto nel messaggio
news:Pine.LNX.4.10.101010...@c64.comm2000.it...


 sbagliato!!!!?????!
= : assegnazione
== : comparazione numerica
eq : comparazione stringhe.
Valerio
Newsgroup: it.comp.lang.perl
Titolo: Inet_nota

Ciao a tutti, 
qualcuno di buon cuore potrebbe spiegarmi perchč per il semplice script:
ottenuto dal seguente libro cap 14 pag 496 
http://learn.perl.org/library/beginning_perl/3145_Chap14.pdf
Sotto Windows XP con installato ActiveState ActivePerl 5.8
non mi da l'output desiderato?
#!/usr/bin/perl
use Socket;
use warnings;
use strict;
use socket;
my $address=gethostbyname('
www.perl.com
');
print inet_nota($address), "\n";
ottengo il seguente errore:
Undefined subroutine &main::inet_nota
Grazie!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 [...]
In effetti nel libro c'e` un typo (pero` c'era l'istruzione
use Socket; ho guardato meglio lo script del tuo primo post,
e ho visto che avevi banalmente scritto Socket in minuscolo.
Ad ogni modo, questo script funziona (provato con Perl 5.8.0,
su una Debian)
   #!/usr/bin/perl
   use warnings;
   use strict;
   use Socket;
   my $address=gethostbyname('
www.perl.com
');
   print inet_ntoa($address), "\n";
ciao,
S.

Newsgroup: it.comp.lang.perl
Titolo: CONVERSIONE DI CARATTERI

MAIUSCOLI, COME FACCIO IN PERL?
RTFM!!
(l'operatore e' tr/// )
.......... Vittorio Bertola (v.bertola @ 
studenti.to.it
) .........
.. Per rispondermi eliminate .NO.SPAM dal mittente del messaggio .
http://www.polito.it/~bertola
 - //
www.poli.studenti.to.it/~bertola
*  Problemi? Leggi il manuale! Internet & Computing Italian FAQ  *
PGP Key Available ................. finger 
ber...@giove.polito.it

MAIUSCOLI, COME FACCIO IN PERL?
$minusc='stringa minuscola o mIsTa';
$maiusc=up($minusc);
	Miky.
-- 
Michele Beltrame
Italpro - Power Web Services
mi...@io.com
http://www.italpro.com/mb

 ENRICO
Forse i tuo problema e' la conversione inversa, da maiuscoli
a minuscoli. Se e' cosi', prova a premere il caps-lock. ;-)
-am

MAIUSCOLI, COME FACCIO IN PERL?
puoi usare uc:
$minuscoli="minuscoli";
$maiuscoli= uc $minuscoli;
O se vuoi una cosa piu` selettiva \U:
$_=leonardo;
s/(\w)/\U$1/;
print "$_.\n";' # stampa Leonardo.
kao.
Newsgroup: it.comp.lang.perl
Titolo: Problemi con perl2exe

>
#/!usr/bin/perl 
use strict; 
use warnings; 
use Spreadsheet::ParseExcel; 
my $oExcel = new Spreadsheet::ParseExcel; 
my $oBook = $oExcel->Parse('test.xls'); 
print "FILE :", $oBook->{File} , "\n"; 
print "COUNT :", $oBook->{SheetCount} , "\n"; # Numero di 'fogli' nel 
Workbook... 
print "AUTHOR:", $oBook->{Author} , "\n"; 
my $oWkS = $oBook->{Worksheet}[0]; # Primo foglio 'sport' 
print "--SHEET:", $oWkS->{Name}, "\n"; 
print "--Num Row:", $oWkS->{MaxRow}, "\n\n"; 
my $num_rows = $oWkS->{MaxRow}; # Righe totali nel foglio... 
my ($iR,$oWkC); 
for $iR (0 .. $num_rows) { 
 next if $iR == 0; # Skippa la prima riga che contiene i nomi delle 
colonne... 
 $oWkC = $oWkS->{Cells}[$iR][0]; print $oWkC->{Val} , " "; # colonna 'A' 
 $oWkC = $oWkS->{Cells}[$iR][1]; print $oWkC->{Val} , " "; # colonna 'B' 
 print "\n"; 
} 
my $zz = <STDIN>; 
__END__; 
<<
O forse sono cose fatte a posta da perl2exe perchè è un trial?
Devo anche devo dire che perl2exe non parte subito se lodigito da 
terminal ma devo arrivare nella dir che lo contiene.
Aiuto.

 terminal ma devo arrivare nella dir che lo contiene.
Certo, visto che la directory dove l'hai scaricato non è nel path della 
tua console. Per farla sporca potresti mettere tutto il contenuto dello 
zip di perl2exe dentro c:\perl\bin o comunque nel path del tuo perl.

 zip di perl2exe dentro c:\perl\bin o comunque nel path del tuo perl.
E come si fa "pulita"? (non sono molto pratico di win)
potresti dirmi come hai installato TU perl2exe? (come aggiungo la dir 
nel path della console?)
--
Devo anche dire che PAR (pp da linea di comando) non è niente 
male...trovato nessuno dei problemi riscontrati con
perl2exe ma magari all'avvio dell'exe compilato un pò (troppo) lentino...
Qualche dritta su come velocizzare PAR?
Grazie mille.

 Qualche dritta su come velocizzare PAR?
PAR è lento di suo all'avvio e *credo* non ci sia niente da fare.

 directory, faccio un cd ad essa ed utilizzo perl2exe ;)
sto facendo come te
cmq ti ringrazio...ho aggiunto la riga use math::bigint::calc ed ora va 
bene...ma per il codice della finestra niente da fare...
(credi dhe i programmi che sto compilando fra 30 giorni smetteranno di 
girare?)
grazie ...

 girare?)
Non lo so, ricordo quando l'ho provato anni fa (versione 4) gli exe che 
si andavano a creare mostravano una scritta riguardante il trial che 
scompariva dopo qualche secondo.

 girare?)
No, assolutamente (esperienza diretta). Rimangono ovviamente il 
messaggio "questo e' stato generato con una versione trial ..." ed il 
delay di 2 sec.
Per un uso professionale ritengo pero' necessario (e comunque corretto 
moralmente) l'acquisto della licenza. 
HTH
Byez
Stefano

Newsgroup: it.comp.lang.perl
Titolo: cambio directory

come faccio ad eseguire un file da una directory e fargli leggere files da
altra dir?
oppure come si cambia directory?
Grazie

 oppure come si cambia directory?
 perldoc -f chdir
Max

altra dir?
Quando lo apri usa il pathname, fornisci allo script il percorso al
file da leggere.
Esempio:
pippo.txt
../pippo.txt
../foobar/pippo.txt
/foo/bar/pippo.txt
etc.
'bye
Newsgroup: it.comp.lang.perl
Titolo: aiuto

Sono il webmaster di un sito di fifa99, vorrei sapere come si fa a fare in
modo che una volta inserito un risultato di una partita, esso venga inserito
automaticamente sul sito.
C'è qulacuno che potrebbe darmi una mano?
Ciao
Bob

automaticamente sul sito.
La cosa richiede un po' di lavoro (ma non molto). Si tratta di scrivere un
paio di script che permettano rispettivamente l'inserimento del risultato
(che viene memorizzato ad esempio in un file di testo) e la visualizzazione
dei risultati immessi (memorizzati nel suddetto file di testo). Se hai
un po' di esperienza col Perl non e` difficile, eventualmente se hai
bisopgno di una mano su qualche aspetto chiedi pure.
	A presto, Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

 potrebbe darmi una mano?
  Condizione *necessaria* e` che tu abbia la possibilita` di scrivere
sul file system della macchina host del tuo sito. Cio` e` possibile?
Contatta l'amministratore dell'host per saperlo.
	Alla prossima,
		Marco




impararmelo.
Il Perl non e` difficile da imparare ed e` molto potente. Prenditi un bel
libro, io ti consiglio:
"Programming Perl", Larry Wall, Randal L. Schwartz - O'Reilly & Associates
E` stato anche tradotto in italiano, ma la qualita` della traduzione non
e` esattamente eccellente.


Newsgroup: it.comp.lang.perl
Titolo: nmake comando non valido

qualcuno sà quale può essere il motivo, per cui AS 5.000502 non ha il
file nmake, esso dovrebbe forse essere creato da 
makefile.pl
 o
dovrebbe già esistere?
Ringrazio anticipatamente tutti coloro che mi chiariranno questo mio
problema.


http://www.divinf.it/dada/perl







 file nmake
Nmake fa parte di M$ Visual C++.
Cheers,
	Alessandro
Newsgroup: it.comp.lang.perl
Titolo: Manipolare righe di testo

Ciao a tutti,
ho la necessità di realizzare un CGI PERL che aggiunga una determinata riga
al redirect.txt presente sul mio webserver.
La riga è in questo formato
nomealias 
indi...@e-mail.com
Pensavo: semplice, apro in append e accodo la nuova riga.
Però poi mi è venuto in mente che:
1) devo controllare che l'alias non esista già
2) devo controllare che nomealias non contenga caratteri non validi in
indirizzi e-mail (Ad esempio spazi, / \& etc.)
3) devo controllare che l'indirizzo e-mail sa valido
Come posso eseguire questi controlli?
Il redirect .txt è strutturato così:
nomelias 
indi...@email.com
nomelias 
indi...@email.com
nomelias 
indi...@email.com
nomelias 
indi...@email.com
nomelias 
indi...@email.com
Insomma, ogni riga è fatta così.
Grazie mille per l'attenzione e buona Pasqua a tutti
U m b e r t o    M e r o n i
Software Development & Internet Services
-----------------------------------------------------
Sito servizi internet: 
http://www.ubi1k.com
Sito Visual Basic: 
http://www.vbp.it
Sito personale: 
http://www.umbertomeroni.com
-----------------------------------------------------

3) devo controllare che l'indirizzo e-mail sa valido
A questo proposito guarda la PerlFAQ. In ogni caso una regular expression
piuttosto generica per verificare un indirizzo email e`:
/([\w\-\+\.]+)@([\w\-\+\.]+)\.([\w\-\+\.]+)/
Questo naturalmente verifica che la sintassi dell'indirizzo sia valida,
non che l'indirizzo esista realmente. Funziona solo per il 99.9% degli
indirizzi. Per quelli un po' piu`... esotici serve una regexp molto
piu` lunga, vedi appunto in PerlFAQ.
	A presto e Buona Pasqua, Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 A presto e Buona Pasqua, Michele.
Grazie altrettanto, Michele.
PS Per il sito comune, non sono sparito, ho solo problemi con la posta e,
oltretutto, anche con la mailing list.
Comunque vi leggo, tranquilli!
Ciao!
Umberto

Tipo? (codice, intendo)
Ad es., se vuoi che possa contenere solo lettere e numeri:
if ($alias =~ /^\w+$/) {
...
}
Se vuoi aggiungerci anche l'underscore la regexp diventa:
/^(\w\_)+$/
Idem per qualsiasi altro carattere.
	A presto, Michele.

Newsgroup: it.comp.lang.perl
Titolo: webserver in perl ( help socket!!! )

ciao a tutti... avrei una cosa da chiedervi...
ho trovato un esempio di web-server scritto in perl e non ho chiaro un
passo.
Ad un certo punto viene creato un socket  su una porta per accettare le
richieste di un client :
$server=IO::Socket::INET->new (..........);
subito dopo si entra in un ciclo che serve a mantenere il server attivo in
ascolto ( o almeno credo ):
while ( $client=$server->accept){
 $client->autoflush(1)
 ecc ecc
 close $client;
}
ora non capisco ( o meglio non trovo ducumentazione abbastanza chiara ) su
$server->accept . Perchè non si esce mai da questo while? cosa fa il metodo
accept ( è un metodo o una funzione o qualcos'altro? ) e infine a che serve
autoflush(1)?
Mi basta sapere queste poche cose... se sono stato troppo vago potete
contattarmi anche via mail 
ie...@tiscalinet.it
Grazie per l'eventuale  aiuto e ciao ^____^ a tutti

Dai su.... nessuno mi sa rispondere? non ci credo....
^___^

autoflush(1)?
accept() accetta una connessione dall'esterno.
Il concetto e' che il server gira all'infinito accettando una
connessione alla volta, servendola e quindi rimettendosi in ascolto
della connessione successiva.
Questa e' una implementazione assolutamente elementare di un server
http (e  piu' in generale di un qualsiasi server di rete): il problema
e' che viene gestito un solo utente alla volta.
Le soluzioni per gestire piu' richieste alla volta sono tre:
multiprocessing (fork di un processo figlio per gestire ogni
richiesta), multithreading (spawn di un nuovo thread per gestire ogni
richiesta) e multiplexing (gestione multipla dell'IO da parte di un
singolo processo/thread).
Le tre soluzioni sono in ordine decrescente di semplicita' e in ordine
crescente di scalabilita'.
La mia e' ovviamente un'esposizione che piu' superficiale non si puo'.
Se sei interessato per lavoro/diletto a questi problemi il punto di
riferimento e' sicuramente il libro "Network programming with Perl" di
Stein.
Newsgroup: it.comp.lang.perl
Titolo: Curiosita' sulla dimensione degli array

ciao
Qual'e' il metodo piu' "veloce" per accedere alla dimensione di un array ?
1- $#array + 1
2- scalar(@array)
 Raffaello


Sembrerebbe quella con scalar:
use strict;
use warnings;
use Benchmark qw(cmpthese timethese);
my @array=qw(10 32 3 67 9 0 19 43);
sub con_diesis {
	return $#array + 1
}
sub con_scalar {
	return scalar(@array)
}
my $result=timethese( 1000000, {
   con_diesis => "con_diesis",
   con_scalar => "con_scalar",
} );
cmpthese($result);

 Sembrerebbe quella con scalar:
[cut]
Grazie!
Forse e' per via dell'operazione di somma ...
 Raffaello

Newsgroup: it.comp.lang.perl
Titolo: cgi perl e mysql

per favore, c'é qualcuno che mi sa dare l'elenco dei pacchetti da installare
sotto linux (e sequenza di installazione) per far funzionare script perl
come CGI verso database mysql?
Io ho messo nell'ordine:
1) apache_1.3.19.tar.Z  (Apache)
2) mysql-3.23.37-pc-linux-gnu-i686.tar.gz (mysql)
3) perl5.004_01.tar.gz (interprete perl)
4) mod_perl-1.24.tar.gz (per usare CGI per con Apache)
5) DBI-1.14.tar.gz (interfaccia DBI)
6) Msql-Mysql-modules-1.2216.tar.gz (interfaccia DBD per mysql)
purtroppo gli script di esempio di connessione non mi funzionano.
Grazie anticipatamente a tutti coloro che mi aiuteranno
Marco

Anch'io sto cercando di fare qualcosa del genere: oltre ai pacchetti 
1-6, io ho installato anche CGI.pm-2.753.tar.gz e Data.ShowTable-3.3.tar.gz.
Se può essere d'aiuto ...
Stefano


 purtroppo gli script di esempio di connessione non mi funzionano.
Magari sapendo in che modo "non ti funzionano" potrebbe essere utile.
Comunque probabilmente piu' che un problema di sw installati mi sa che 
sia un problema di configurazione di questi sw.... di nuovo... non e' 
mica un OS Micro$oft .. che fatto quello che vuole lui e tu guardi e 
basta :)
-- 
Saluti,
Giancarlo

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

Ho creato uno script che registra dei dati.
Il problema che ogni volta che modifico il mio documento lui lo doppia.
FILE doc.TXT
Primo testo
Se io inserisco qualcosa
Primo testo
Primo testo
Secondo testo
e via dicendo
Primo testo
Primo testo
Secondo testo
Primo testo
Secondo testo
Terzo testo
Come posso sovrascrivere il file!?!
Cioč
File doc.TXT
Primo testo
File doc.TXT
Secondo testo
Grazie in anticipo!!!

 Cioè


il fatto che sovrascriva il file ogni volta che ci printi qualcosa dipende
dalle impostazioni che hai usato nell'apertura del FILEHANDLE
per esempio
open(FILE,">>miodoc.txt");
print FILE "stringa\n";
in questo caso ogni volta che si scrive nel file, vengono aggiunte nuove
righe e lasciate intatte le precedenti
se vuoi che ogni volta che printi un qualcosa all'interno del file txt
sovrascrivendo i dati contenuti allora devi modificare l'apertura del
filehandle in questo modo:
open(FILE,">miodoc.txt");
print FILE "stringa";
Newsgroup: it.comp.lang.perl
Titolo: pacchetti TCP/IP o UDP con Perl

E' possibile mandare attraverso uno script Perl datagrammi personalizzati ad
un determinato indirizzo IP.
Ciao
Grazie

 un determinato indirizzo IP.
Certo, consulta l' help in 'perlipc' ci sono degli esempi per comunicazioni
TCP e UDP. Anch'io sto facendo delle prove!
Ciao!
    Fabrizio
Newsgroup: it.comp.lang.perl
Titolo: libwww

Finalmente sono riuscito a farmi installare le dannatissime libwww sul mi
oserver web, ecco ora non so proprio cosa cacchio farci, nel senso che non
riesco a trovare manuali o altro perchè sono proprio rinco...
Ecco allora non è che poi mi servano a cosi' tanto, io ho la necessità di
prelevare dal web in pagine protette da username e password un file di
statistiche ed elaborarlo in perl.
quindi mi basterebbe l'istruzione solo per prendere una url completa di
username e password in testa.
Se ce qualche aniima santa che mi puo' aiutare glie ne sarei gato (2
settimane di abbonamento al mio sito va).
Ciao
Luther

 username e password in testa.
Usa come url nel metodo get:
http://valerio:gra...@www.livenet.it/stats/index.html
.
posto che valerio sia la username e granato la password.
Ciao,
Valerio

posto che valerio sia la username e granato la password.
No , non era questo che intendevo, io non riuscivo proprio ad usare la
libwww, per fortuna ho trovato un esempio ed č fantastica quella lib...
Grazie l ostesso comunque
Ciao
Luther
Newsgroup: it.comp.lang.perl
Titolo: Can't locate DBD/InterBase.pm in @INC (... aiuto!

Ho istallato DBD e il modulo per Interbase.
Sembra che l'istallazione sia andata abuon fine ma...
usando un programma che usa la libreria scrive:
install_driver(InterBase) failed: Can't locate DBD/InterBase.pm in @INC (@INC contains: /usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0 /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0
/usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl .) at (eval 4) line 3.
Perhaps the DBD::InterBase perl module hasn't been fully installed,
or perhaps the capitalisation of 'InterBase' isn't right.
Available drivers: ExampleP, Pg, Proxy, mysql.
 at ./
loginuser.pl
 line 18
Come posso risolvere il problema?
Grazie in anticipo, Mario.

Come posso risolvere il problema?
Ma tu ci hai guardato in @INC? DBD/InterBase.pm c'č o non c'č? Se c'č, č
scritto giusto nel programma? E, se non c'č, dov'č?
Ciao.



locate InterBase.pm
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Bundle/DBD/InterBase.pm
/usr/lib/perl5/site_perl/5.6.0/i386-linux/DBD/InterBase.pm
/usr/lib/perl5/site_perl/InterBase.pm
Grazie per avermi risposto!
Mario.

/usr/lib/perl5/site_perl/InterBase.pm
Quindi ha ragione lui (non che sia la scoperta sia particolarmente
sorprendente): InterBase.pm è installato sotto .../5.6.0/..., mentre perl
cerca sotto ..../5.8.0/....
Non ho capito se hai già risolto, comunque, salvo ulteriori problemi, la
soluzione dovrebbe essere installare InterBase.pm nel posto giusto.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: controllo su un Array

Ciao a tutti,
di seguito riporto un semplicissimo script che dovrebbe stampare in caso
negativo una riga con scritto:
"OK, nome errato"
quindi incrementare la variabile $cont e riverificare la condizione fino
alla fine dell'array.
PROBLEMA:
perche' il risultato che ottengo e':
OK, nome corretto
OK, nome corretto
OK, nome corretto
OK, nome corretto
OK, nome corretto
OK, nome corretto
OK, nome corretto
OK, nome corretto
OK, nome corretto
OK, nome corretto
OK, nome corretto
OK, nome corretto
OK, nome corretto
OK, nome corretto
OK, nome corretto
OK, nome corretto
OK, nome corretto
OK, nome corretto
OK, nome corretto
OK, nome corretto
OK, nome corretto
ecc... ecc..
come devo fare per far eseguire un print"OK, nome errato" oppure "OK,
nome corretto" una singola volta?
ciao Corra_
ecco lo script:
#!usr/bin/perl
$cont=0;
$nome='pippo';
@arma=('pippo','pluto','paperino','topolino');
while($cont<=3) {
if($arma[$cont] ne 'topolino') {
print "OK, nome errato\n";
++$cont;
}
else
  {
     print "OK, nome corretto";
      }
}

for (@arma) { $TEST{$_} = ( $_ eq 'topolino' ) }
ehi, vedo che te la cavi piuttosto bene!
bye
silvio

 wrote:
Oppure (se ho ben capito basta che dica una volta se il nome c'e' o meno):
print "Ok, nome ",(grep {/^$nome$/} (@arma))?'corretto':'errato',"\n";
TIMTOWTDT... :-)
-- 
Saluti,
Giancarlo
Newsgroup: it.comp.lang.perl
Titolo: Emulazione invio FORM POST da Perl

Salve a tutti, sono alle prime armi con Perl e stò realizzando un piccolo
script che emuli l'invio di una form in modalità POST verso un
apparecchietto (a tutti gli effetti un serverino linux in rete) adibito
all'invio di sms.
Utilizzo HTTP::Request::Common e LWP::UserAgent che penso facciano al mio
caso.
Allora:
use HTTP::Request::Common;
use LWP::UserAgent;
$psw_smsmachine="pippo";
$testo="test di prova.";
$telefono="347123456789";
 $ua = LWP::UserAgent->new;
 $request = HTTP::Request->new(POST => "
http://192.168.1.6/smssend.cgi
", num
=> "$telefono", text => "$testo", mode => "0", Pwd => "$psw_smsmachine");
 $response = $ua->request($request);
 $testo_risp = $response->as_string();
print "[ESITO INVIO->] $testo_risp\n";
exit;
PROBLEMA:
Errore BAD HEADER ARGUMENT, ovvero non digerisce "=>" dopo POST;
se tolgo "=>"  lo script funziona ma la variabile $testo_risp contiene la
risposta "400 (BAD REQUEST) URL MISSING"
Eppure mi sembra di avere seguito correttamente le istruzioni sull'utilizzo
del modulo.
Esistono altri moduli che facciano lo stesso compito ? Dove sbaglio?
Grazie anticipatamente.
Daniele.

 Esistono altri moduli che facciano lo stesso compito ? Dove sbaglio?
Anche io ho uno script di invio SMS via POST al gateway di SmsItalia presso 
cui abbiamo un contratto.
Questo è un pezzetto di codice (funzionante da vari mesi ^_^):
--- 
use LWP;
my $browser = LWP::UserAgent->new();
my $resp=0;
my $resp = $browser->post("
http://gate.sms.it/gate-http
",
     { USER=>'babbonatale',
       TEXT=>$messaggio,
       DEST=>$celldest,
       CODE=>md5CodeCalc($pwcr,$celldest),
          MITT=>'numero di cell'}
     );
my $risultato = $resp->content;

 Questo č un pezzetto di codice (funzionante da vari mesi ^_^):


 > Questo è un pezzetto di codice (funzionante da vari mesi ^_^):


  print $res->as_string;
Sono contento che ora funzioni, ma non era più elegante un qualcosa del 
tipo:
my $res = $ua->post('
http://192.168.1.6/smssend.cgi
',
      { num=>'3471234567',
        text=>'prova',
        mode=>0,
        Pwd=>'pippo',
    }
);
Newsgroup: it.comp.lang.perl
Titolo: Ultima spiaggia

 close (IN);
dove sbaglio??
Io apro il lettura e scritture myfile.conf, per ogni riga ne cerco una 
che contenga la stringa "numODevs=.*" e in caso affermativo la modifico 
in modo tale da sostituire un numero con un altro contenuto nella 
variabile $ODevs (la stringa infatti ha la forma: numODevs=0, ad esempio).
Se provo a stampare ogni singola $riga su schermo l'output e' corretto, 
ma appena provo
print IN $riga;
ottengo un file completamente sballato!!
Aiutooo!!
caligari.

 sostituzione di una stringa in un file, vi pongo il mio problema.
	Da riga di comando:
	perl -pi -e "s/stringavecchia/stringanuova/" NOMEFILE
	... e passa la paura :-)
	Cordialitą,
	Paolo Lulli	
-- 
                                           _         ______ |                  
  \    The Hacking Pages        \        /   \___-=O`/|O`/__|                  
   \   	     ---                 \_______\          / | /    )                 
   /     
www.lulli.net
           /        `/-==__ _/__|/__=-|               
  /                             /         *             \ | |                  
                                                        (o)                    

 Devo semplicemente cercare una stringa in un file e sostituirla, e per
[CUT]
Per il tuo problema, usa Tie::File.
(Per la documentazione: perldoc Tie::File oppure 
search.cpan.org
 e
cerchi Tie::File). 
Cmq questo problema, con codice allegato, viene affrontato in  una delle
FAQ del perl, basterebbe leggerle.
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

 Ciao,
Ho guardato sulle FAQ, ma alla domanda "Come sostituisco una linea in un 
file?", la risposta e' semplicemente: "usa tie::file".
Grazie!
Allora vado alla ricerca di qualche esempio/tutorial ma non trovo nulla...
Qualcuno sa dove reperire qualche esempio di uso di tie::file ??
Grazie ancora!
caligari.

 nulla... Qualcuno sa dove reperire qualche esempio di uso di tie::file
http://search.cpan.org/author/JHI/perl-5.8.0/lib/Tie/File.pm#SYNOPSIS
oppure 
<CODE>
use strict;
use warnings;
use Tie::File;
# This file documents Tie::File version 0.93
tie my @array, 'Tie::File', "C:\\pippo.txt" or die "$!";
$array[2] = 'blah';    # line 13 of the file is now 'blah'
untie @array;           # all finished
</CODE>


 dove sbaglio??
 Ciao  non sono un esperto ma prova in questa maniera.
 open (IN, '<myfile.conf') || die "Impossibile aprire file";
 $ODevs=0;                # o quello che deve essere
@stringa=<IN>;
close (IN);
open (IN2,'>myfile.conf');
 foreach $riga (@stringa) {
 if ($riga =~ /numODevs=.*/) {
 $riga =~ s/[0-9]/$ODevs/;
 }
 print IN2 $riga;
 }
  close (IN2);
se non ti č d'aiuto cestina tutto
ciao da Alessandro
Newsgroup: it.comp.lang.perl
Titolo: Collegamento database mysql

Non riesco a farlo ne da casa con actionperl pur avendo caricato il 
pacchetto per mysql mi da' errore:
DBI connect('database=Sql59821_3;host=62.149.150.31','Sql59821',...) failed: 
Can't connect to MySQL server on '62.149.150.31' (10060) at G:\prova\
db.pl
 
line 12
Can't connect to MySQL server on '62.149.150.31' (10060) at G:\prova\
db.pl
 
line 12.
e nemmeno vi aweb mi dice:
PerlScript Error error '80004005'
Can't locate DBI.pm in @INC (@INC contains: C:/Perl/lib C:/Perl/site/lib .) 
at (eval 2) line 1. BEGIN failed--compilation aborted (in cleanup) Can't 
locate DBI.pm in @INC (@INC contains: C:/Perl/lib C:/Perl/site/lib .) at 
(eval 2) line 1. BEGIN failed--compilation aborted
Potete aiutarmi?

 failed--compilation aborted
Questo invece indica tutt'altra cosa. Il modulo DBI non viene trovato.
O non è stato installato correttamente o c'è un errore nel path degli 
include (dove vengono cercate le librerie).

 ha scritto nel messaggio 
news:ZNVBi.17049$fb.1...@tornado.fastwebnet.it...


 e non mi ha dato nessun errore.
In questo caso potrebbe essere un problema di configurazione del server.
Evidentemente le librerie HTTP::Request::Common w LWP::UserAgent sono nel 
path mentre la DBI no (magari l'amministratore di sistema si è solo 
dimenticato di installarla).
Newsgroup: it.comp.lang.perl
Titolo: Error - Win32::Process::Info::WMI failed to get winmgs object .....

Ciao a tutti,
sto usando questo modulo per recuperare informazioni dei processi in
esecuzione su una macchina Windows.
Il mio problema nasce dal fatto che la realta' in cui opero e' molto
diversificata... ci sono sistemi operativi Windows da 98 a XP... e
quindi devo riuscire a trovare un modulo che possa andar bene per le
mie esigenze.
Ho trovato:
Win32::ToolHelp , funziona con tutto il mondo tranne che con NT.
Ho allora trovato Win32::Process::Info , funziona anche con XP...
probabilmente non con 95,98 etc....
Ad ogni modo pensavo di utilizzare Win32::Process:Info ad hoc per NT.
Ottengo pero' questo tipo di errore al lancio del mio file 
TEST.PL
Error - Win32::Process::Info::WMI failed to get winmgs object:
Win32::OLE(0.1601) error 0x800401e4: "Invalid syntax"
    after character 0 in
"winmgmts:{impersonationLevel=impersonate}!//./root/cimv2" at
D:\TEST.pl line 8
Error - Variant 'NT' is unsupported on your configuration. Can't
locate Win32/AP
I.pm in @INC (@INC contains: D:/Perl/lib D:/Perl/site/lib .) at
D:/Perl/site/lib
/Win32/Process/Info.pm line 160.
-----------------------------------*-*-*-*-*--*--*-*--*-*-*-*-
Il codice del mio file TEST.pl e' il seguente:
# --- prints names of all processes
use Win32::Process::Info;
$mioFile = "buffer.txt";
my $pi = Win32::Process::Info->new ();
open (FILE,">$mioFile");
foreach $proc ($pi->GetProcInfo()) {
    print FILE "\n";
    foreach (sort keys %$proc) {
 
         print "$_ => $proc->{$_}\n";
         print FILE "$_ => $proc->{$_}\n";
 
 
        }
    };
 
close (FILE);
-----------------------------------------*-*-*-*--*-*-*-*-*--*-*-*-*-*
La versione del PERL che sto' utilizzando e' la 5.6
Qualcuno ha idea di che si tratta?
Buona Pasqua!

 Buona Pasqua!
Grazie, buone feste a te e a tutti!

...


 Qualcuno ha idea di che si tratta?
Il problema, inoltre, è quello di usare le giuste API per l'OS su cui
gira lo script. Le API da utilizzare su Win9x/ME non sono quelle che
vengono utilizzate su Win 2000/XP. Non so se lo faccia già
Win32::Process::Inof ma imho, dovresti scrivere un wrapper che, in base
alla versione dell'OS, richiami uno o l'altro modulo.
Ciao,
-- 
+--------+ | ASCII ribbon campaign ( ) | 
www.autistici.org/kral
|  kral  | |  - against HTML email  X  |
+--------+ |              & vCards / \ | my key id = 0x7C946947

 vengono utilizzate su Win 2000/XP. Non so se lo faccia gi 

Newsgroup: it.comp.lang.perl
Titolo: Problema di aggiunta stringa con le regex...

[perdonane  il subj poco descrittivo ...]
Da NON programmatore Perl :) mi trovo ad affrontare 
questioni di formattazione con le pagine relative ai 
fondi d'investimento scaricabili dal sito televideo, 
lo scopo finale e' di passare i dati a Pg.
I filtri per l'eliminazione dei tag html e connessi 
gli ho scritti .. alla fine ottengo un file  ordinato 
in codesto modo (ho rispettato la formattazione):
   Azionari                         9/9 
                     30-07  02-08  Var.%
 S.PAOLO INTERNAT    15.355 15.355  0.00
 [...]
   Bilanciati                       1/4 
                     30-07  02-08  Var.%
 ADRIATIC MULT FUND  12.216 12.197 -0.16
 [....]
Vorrei inserire un campo identificativo del tipo di fondo 
(AZ per azionario... esempio ), inizio o fine linea non 
importa, in modo che:
   Azionari                         9/9
                     30-07  02-08  Var.%
 S.PAOLO INTERNAT    15.355 15.355  0.00 AZ
 [...]
   Bilanciati                       1/4 
                     30-07  02-08  Var.%
 ADRIATIC MULT FUND  12.216 12.197 -0.16 BL
 [...]
e non ho avuto che idee bislacche .. sin'ora :)
-- 
	Dino

 [...]
Serve il parsing di riga...
Supponiamo che tutto il tuo testo sia in $testo, fai cosi':
@righe=split(/\n/,$testo);
$testo='';
foreach $riga (@righe) {
  if    ($riga =~/^ +Azionari/)   { $tipo = ' AZ'}
  elsif ($riga =~/^ +Bilanciati/) { $tipo = ' BL'}
  elsif ($riga =~/\.\d\d$/)       { $riga .= $tipo }
  $testo .= "$riga\n"  }
undef(@righe);
------
bale...@dada.it
 
http://zap.to/balestra
  ICQ#:14303012
" Ora mai che i baci tuoi piu' non mi sazian
  cerchero' un'altra donna dentro ai sogni di Tarzan... "

Newsgroup: it.comp.lang.perl
Titolo: Test di perl con Win ME e PWS

Salve a tutti,
sono molto neofita di perl. Vorrei sapere se qualcuno sa come configurare
PWS per eseguire .pl e cgi nella directori cgi-bin della mia stazione
windows ME.
Ho gia installato ActivePerl 5.6.1 ma non funziona.
Grazie a chi vorra' rispondermi

Usa l'estensione plx nei tuoi script e mettili nella cartella script di PWS.
Ciao Diego

Newsgroup: it.comp.lang.perl
Titolo: Include file

Ho la necessità di avere un file esterno nel quale sono dichiarate
delle variabili. Questo file poi dovrà essere caricato da tutti i file
pl che avranno necessita di leggere quelle variabili.
Così facendo variando le variabili (scusate il gioco di parole) nel
file esterno, tutti i file che lo includono avranno le variabili
aggiornate senza dover modoficare file per file.
E' possibile? Qualcuno può aiutarmi?
Grazie mille.
Lorenzo Beccati 

pl che avranno necessita di leggere quelle variabili.
Prepara un file esterno ed includilo con:
require '
nomefile.pl
';
	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!

Funziona.
GRAZIE MILLE!!!!