mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Esecuzione automatica


Si esiste certamente una maniera perche' una persona che conosco lo ha
gia' fatto ! pero' non so come....se lo scopri fammi sapere qualcosa

E' possibile creare in Perl uno script che automaticamente si esegua
diciamo una volta al mese ??
Ne dubito... Bisogna forse poter gestire ampiamente un server ?
Sostanzialmente vorrei mettere online un programmino che mi cancelli un
file di dati una volta al mese (chiaramente sul mio spazio web in
affitto ecc. ecc...)... Cosa ne dite ?? Avete mai dovuto fare nulla del
genere ?
Ringrazio in anticipo
Mattia

 diciamo una volta al mese ??
-- 
-------------------------------------------------------------------------
Hosting professionale a prezzi USA? 
http://www.servitelit.com/prezzi.htm
-------------------------------------------------------------------------

 gia' fatto ! pero' non so come....se lo scopri fammi sapere qualcosa
Di solito per fare cose di questo genere si usano i servizi del sistema
operativo. Tutti quelli seri hanno qualche meccanismo per fare esecuzioni
periodiche. In Unix si usa "cron".
Programmarsi da se una cosa del genere non e' semplicissimo perche'
occorre tenere conto che nel mese fra un run e l'altro il computer
potrebbe venire spento e riacceso piu' volte.
Io farei una cosa del genere:
for(;;) {			# loop infinito
	sleep 60;		# dormi per un minuto (oppure per 10 o
				# per 60, dipende dalla precisione
				# richiesta sull'ora di esecuzione
	@tm = localtime(time);
        .... Verifica l'ora ... (qui dipende dall'intervallo richiesto)
        .... @tm contiene il tempo attuale che va confrontato con il
        .... valore a cui si vuole l'esecuzione automatica.
 
        <programma da eseguire>
}
 
Poi bisogna ricordarsi di lanciare automaticamente lo script al bootstrap
							l.f.
--------------------------------------------------------------------------
       -- )     Luca Fini                            Tel: +39 055 2752 307
 ___    |\      Osservatorio Astrofisico di Arcetri  Fax: +39 055 2752 292
/   |   | |-_   L.go E.Fermi, 5 +-----------------------------------------
(___|___//___)  50125 Firenze  /   WWW: 
http://www.arcetri.astro.it/~lfini
 (_)      (_)   Italia        / e-mail: 
lf...@arcetri.astro.it
-----------------------------+--------------------------------------------
                              In a world without fences - who needs GATES?
Newsgroup: it.comp.lang.perl
Titolo: come zippare un file in perl??

Ciao a tutti, volevo sapere se qualcuno di vuoi conosce un modo per poter
zippare un file o piů in perl.
So che ciň č possibile, ma in rete non sono riuscitio a trovare nulla!!!!
:-(
Holaz

So che ciň č possibile, ma in rete non sono riuscitio a trovare nulla!!!!
Come no? :-)
C'č  l' eccellente: archive::zip su cpan e/o activestate. 
use Archive::Zip;
Per di piů funziona.
Ciao

va bene anche su piattaforma Windows??

 va bene anche su piattaforma Windows??
devi installare il modulo Archive::Zip

 
trova il comando unix (gzip?,tar?,zip?) e poi fai una chiamata al system...

Ho installato Archive Zip, ma il mio problema è che devo scaompattare il
file in una determinata directory, e a quanto pare non c'è un comando che mi
permette di determinare la posizione dei file estratti.
In pratica, scompatta il file da dove viene lanciato il file pl.
Grazieeeeee


bhe, ma puoi cambiare la dir in cui sei da dentro il perl, provato a
fare cosi?

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

Esatto, è proprio quello che crecavo, ma purtroppo non funziona :-((
Grazie mille per la gentilezza!!!

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

Newsgroup: it.comp.lang.perl
Titolo: Dimensioni di un file

Ciao a tutti,
non ho trovato niente che mi possa permettere di conoscere le dimensioni di
un file.
qualcuno può darmi una dritta???
Ciao,
    Ivan

 qualcuno può darmi una dritta???
  perldoc -f -X
Esempio:
  my $path = '/percorso/del/file';
  my $size = -s $path;
MM

( $dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime,
$ctime, $blksize, $blocks )=stat(\"$file\");
Newsgroup: it.comp.lang.perl
Titolo: Distinguere un file da una directory (sembra facile)

Come faccioa  sapere se un elemento restituito dal comando ls e' un
file o una dorectory? Devo usare il comando stat($filename) ?
Grazie

Tre soluzioni che mi sovvengono (non penso le uniche esistenti data la
natura di Perl):
1) come indichi, stat sull'output di ls parsato
2) ls -la e test sulla stringa del modo (p.e. drwxr-xr-x)
3) (l'unico che ti consiglio) opendir/readdir, che è più portabile: 
my $dir="/var";
opendir (DIR, $dir);
while ($_ = readdir(DIR)) {
   if (-d "$dir/$_") {
      print "$_ e' una directory\n";
   }
}
closedir(DIR);


------------------------------------------
Davide Migliavacca - Inferentia, Milano IT
Phone +39 2 59928.1 Fax .221
(from 1998/06/19, 
+39 02599281
)
------ Standard disclaimer applies -------

 file o una dorectory? Devo usare il comando stat($filename) ?
Dovrebbe bastare un'operatore di test sul file
  print "$file e' un file\n" if ( -f $file );
  print "$file e' una directory\n" if ( -d $file);
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@tuttocitta.it
 
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 wrote:
: Tre soluzioni che mi sovvengono (non penso le uniche esistenti data la
: natura di Perl):
TMTOWTDT (There's More Than One Way To Do This :-)
C'e` anche File::Listing che serve a fare il parsing di liste
generate da ls. E` utile per le liste che si trovano di solito
sui server ftp (i files con nome ls-lR per intenderci).
-- 
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: estensione dei file

Ciao a tutti qualcuno di voi conosce un tipo di file in estensione .cff?


-- 
"Nothing on earth stays forever
but none of your deeds were in vain
Deep in our hearts you will live again
you're gone to the home of the brave"
-- Hammerfall, "Glory to the Brave" --

non lo trovo


-- 
"Politicians hide themselves away
They only started the war
Why should they go out to fight
They leave all to the poor"
-- Black Sabbath, "War Pigs" --
Newsgroup: it.comp.lang.perl
Titolo: Si può cambiare l'user agent in LWP::Simple?

Cercato, provato, testato, ma non sono ancora riuscito a cambiare
l'user agent predefinito di lwp simple: libwww-perl/5.68
Da qualche parte, qualcuno ha detto anche che non si può...
--
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

 Da qualche parte, qualcuno ha detto anche che non si può...
...
use LWP::UserAgent;
my $ua = new LWP::UserAgent;
$ua->agent('Lo spiderone - versione uno punto tre :-)');
...
come sempre perldoc LWP::UserAgent per maggiori info
by
	- Enrico

$ua->agent('Lo spiderone - versione uno punto tre :-)');
e ma non va da dentro lwp::simple, per cambiare l'user agent poi devi
fare la richiesta con lwp::useragent
io invece sto usando lwp simple e volevo cambiare quello di
lwp::simple
siccome nella doc di lwp simple dicono che user agent è esportato su
richiesta
me ne ero uscito con qualcosa del tipo
use LWP::Simple;
use LWP::Simple qw($ua);
$ua  = LWP::UserAgent->new(agent => 'spider_zozzo/1.0');
ma non cambia l'agent
anche se l'export c'è stato
print $ua->_agent;
riesco a vedere l'user agent usando l'oggetto $ua esportato
Il punto è che vorrei rimanere su simple dato che fa quello che deve
fare ed evitare di passare a lwp o lwp:ua... anche se alla fine sono
solo 2 righe in più...
thx in advance


 solo 2 righe in più...
Benissimo. Allora fai semplicemente:
...
use LWP::Simple qw($ua);
$ua->agent('Lo spiderone - versione uno punto tre :-)');
...
by
	- Enrico

$ua->agent('Lo spiderone - versione uno punto tre :-)');
Ha funzionato ^_^ e credo funzionasse sin dal primo momento... solo
che guarda qua
use LWP::Simple;
use LWP::Simple qw($ua);
$ua->agent('Lo spiderone - versione uno punto tre :-)');
print $ua->agent . "\n";
print $ua->_agent;
a seconda del tip di chiamata, da user agent differenti e io no so per
quale motivo stavo usando il secondo metodo per controllare :)
Grazie


 Corretto. $ua è esattamente un'oggetto LWP::UserAgent
                               ^^^  
Chiedo venia, data l'ora... ho scritto 'oggetto' ma pensavo 'istanza'...
:-)
by
	- Enrico

Chiedo venia, data l'ora... ho scritto 'oggetto' ma pensavo 'istanza'...
details :)


 quale motivo stavo usando il secondo metodo per controllare :)
da perldoc LWP::UserAgent:
$ua->_agent
Returns the default agent identifier.  This is a string of the form
"libwww-perl/#.##", where "#.##" is substituted with the version number
of this library.  
ma in realtà poi non è proprio così. 
E' possibile infatti impostare uno user-agent nullo con:
	$ua->agent('');
e se l'agent termina con almeno uno spazio ci viene appiccicata la stringa
suddetta (questo sinceramente non so perchè):
	$ua->agent('Lo spiderone - versione uno punto tre :-) ');
	print $ua->agent;
stampa:
Lo spiderone - versione uno punto tre :-) libwww-perl/5.74
by
	- Enrico
Newsgroup: it.comp.lang.perl
Titolo: ftp difettoso

Ciao,
ho problemi nel fare l'upload di alcuni files da locale a remoto.
Nei nomi di file (immagini gif) non ci sono spazi. Il codice:
use Net::FTP;
$tmpfile = 'c:\DMSfiles\Tmp\Trunks.txt';
$localimgdir = 'c:\DMSfiles\Immagini\\';
$ftp = Net::FTP->new("
stat.netpeople.it
", Debug => 0);
$ftp->login("login",'password');
$ftp->get("Trunks.txt", "$tmpfile");
$ftp->cwd("prova");
open(TRUNKS, "$tmpfile");
while ( $coppia = <TRUNKS> ) {
 chomp($coppia);
 ($key, $val) = split('=',$coppia);
      $ftp->put("${localimgdir}${val}_P_d.gif");
 $ftp->put("${localimgdir}${val}_P_w.gif");
 $ftp->put("${localimgdir}${val}_P_m.gif");
}
$ftp->quit;
non tutti i files vengono trasferiti e quelli che lo vengono sono rovinati,
sono troncati e quando cerco di visualizzarli vedo solo la "fetta"
superiore.
Potete aiutarmi? Magari mi sfugge qualcosa.
Grazie in anticipo.
Claves do Amaral

 use Net::FTP;
[snip]


Newsgroup: it.comp.lang.perl
Titolo: qualcuno mi da un'esempio di utilizzo di next ?!

Qualche esempio di next ?! non ho trovato altro ?!
grazie
carlo

 Qualche esempio di next ?! non ho trovato altro ?!
$perldoc -f next
e trovi un esempio
-- 
Saluti,
Giancarlo

# legge una serie di file di configurazione in @files
# salta le linee che iniziano con un commento #
# interrompe l'elaborazione di un file se incontra FINE
# conta le linee che sono commenti
my $linee = 0;
FILE:
for my $file (@files) {
	# apre il $file in F
	LINEA:
	while (<F>) {
		next LINEA if /^#/;
		# o semplicemente
		# next if /^#/
		next FILE if /^fine$/i;
		# qui processa la linea di dati
	}
	continue {
		# dopo un next il controllo
		# viene passato al blocco
		# continue corrispondente, 
		# se esiste
		$linee++
	}
}
-- 
Posted from 
mail6.galactica.it
 [212.41.208.23] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.perl
Titolo: variabili speciali in Perl

Salve a tutti,
vorrei sapere se in Perl esiste una variabile speciale,($qualcosa) che
mi restituisce il valore della linea del programma che viene
interpretata. Il sistema operativo è unix.... non so quali altre
informazioni darvi.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

informazioni darvi.
__LINE__

 wrote in message
news:ehh1eukfooqoblf4j...@4ax.com

Grazie infinite, 
l'avrei voluto provare da alcune reminescenze di C
ma sai, non sono un avventuriero.




dal manuale: "Not interpolated into strings."
quindi:
print "sono alla linea __LINE__\n";
non dovrebbe funzionare,
print "sono alla linea " . __LINE__ . "\n";
invece si.
Non testato.
Newsgroup: it.comp.lang.perl
Titolo: perl e UDP

Salve,
       so che una delle caratteristiche di udp è la distribuzione 
simultanea di informazione verso un gruppo di destinatari (IP) ora 
vorrei sapere se è possibile in un solo colpo distribuire una 
informazione simultaneamente verso un solo numero ip ma su diverse 
porte, quindi ad esempio se ho in un host 10 server in ascolto dalla 
porta 9000 alla porta 9010 posso spedire un dato a tutti questi server 
in un colpo solo senza collegarmi ad uno ad uno...tutto questo in perl 
naturalmente?
grazie

 naturalmente?
Guarda la documentazione per IO::Socket::INET ed avrai tutto quel che
ti serve per mandare pacchetti UDP da Perl.
Ciao,
   Flavio.
Newsgroup: it.comp.lang.perl
Titolo: Moduli ed RMP (help)

Sto installando moduli (DBI e DBD) in RH6 e la procedura non mi funziona:
c'è una procedura diversa se perl è stato installato usando rpm ?
Se no, come faccio ad installare perl in modo che si possano installare i
modili con la normale procedura ( perl Malefile.PL,make,make test,make
install) ?
Ho provato uno lo script 
makerpm.pl
 per fare rpm con i moduli, ma richiede
il modulo 
tar.pm
 che non ho e quindi sono punto a capo.
Grazie a chiunque voglia aiutarmi.
Ciao

 install) ?
Prendi il sorgente di Perl, lo compili e lo installi.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

...


Newsgroup: it.comp.lang.perl
Titolo: problemi di chomp

Salve a tutti,
ho un piccolo problema che non riesco a risolvere. Ho un file con campi
separati da ; e nello specifico una riga come la seguente:
1;2;3;4;5;6;7;8;9;10;
(con andata a capo finale). Ora il seguente pezzo di codice, che dovrebbe
leggere la riga, separare i campi, e riordinare la riga (che in questo è
già ordinata):
    @parts =  split(";", $line);
    chomp( @parts );
    foreach $element (sort (@parts) ){
        print "$element;";
    }
    print "\n";
produce la riga di uscita:
2;3;4;5;6;7;8;9;
e dove sono finiti 1 e 10??????
Sono sicuro che sto sbagliando una qualche cavolata, ma non capisco cosa.
Grazie,
Luca

 ha scritto:

Aspetta un attimo, perché non applichi chomp a $line come prima istruzione?
Dal tuo codice sembra che prima spezzi la singola riga nei campi e poi 
applichi chomp a tutti questi, il che non mi sembra avere molto senso.

 molto senso.
Ho provato anche così, ma comunque 1 e 10 vengono rimossi ugualmente. Il mio
sospetto è che sia un problema derivante dal fatto che il file di input
arriva da una macchina windows, quindi con \r\n invece che \n. In effetti
se anziché fare:
chomp( $line );
faccio
$line =~ s/\r\n//;
ottengo la linea pulita con tutti gli elementi. A questo punto mi viene da
pensare che l'elemento 10 ci sia, ma che produca un ritorno di carrello \r
che sovrascrive in stampa l'elemento stesso con il prossimo (ossia 2).
Maledetto Windows!
Luca

Ciao Luca,
ho provato il tuo codice al volo e a me funziona cosi`:
---
$ perl -e 'my $s="10;2;4;5;6;3;1;9;8;7;"; chomp $s; my @a=split(/;/,
$s); foreach my $i (sort {$a <=> $b} @a) { print "Element: " . $i .
"\n" };'
Element: 1
Element: 2
Element: 3
Element: 4
Element: 5
Element: 6
Element: 7
Element: 8
Element: 9
Element: 10
---
Il chomp() prima della split() (come suggerito da Icestorm) e alla
sort() ho aggiunto l'ordinamento numerico
ascendente (se usi *NIX, lo vedi con `perldoc -f sort`).
Ciao.
ff0000

Maledetto Windows!
A parte che mi sembra che non abbia un gran senso, puoi leggere qualunque
file di qualunque origine da qualunque piattaforma: si tratta di
selezionare i layer di lettura corretti e applicare la codifica appropriata
(oltre, naturalmente, a poter cambiare il valore di $/).
Per esempio, potrebbe bastare aprire il file con:
    open HIN, '<:crlf', 'file.txt';
Guarda perlopentut e PerlIO, e anche chomp.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: grafici con perl

Ciao a tutti, sono un neofita di perl, ed avrei bisogno di un consiglio.
Devo fare dei grafici di dati provenienti da file di testo.
Ho cercato su google ma non ho trovato granchč....
Ho provato Graph e Chart::Plot scopiazzando script in giro ma non 
sono riuscito a produrre grafici perchč non capivo il codice e gli
errori prodotti.
Qualcuno puň indicarmi qualche documento da studiare e/o prendere ad
esempio?
Secondo voi devo comprarmi un libro?
PS uso linux redhat
Ciao
Fede
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Ho cercato su google ma non ho trovato granchè....
Per una volta, comunque, il posto migliore su cui cercare non è Google, ma
CPAN. Di moduli per generare grafici ce ne sono parecchi.
Ciao.

 esempio?
Prova GD::Graph
Ecco un paio di articoli a riguardo:
http://www.linuxgazette.com/issue81/padala.html
http://www.linuxgazette.com/issue83/padala.html
Anche questo modulo sembra interessante:
http://www.seva.net/~msolomon/MSGraph/

>Devo fare dei grafici di dati provenienti da file di testo.
Ciao,
prova queste librerie:
http://www.advsofteng.com/
sono molto potenti e semplicissime.
Gratutite per uso personale.
-- 
-- Marco Allegretti --
http://www.shishii.com

Newsgroup: it.comp.lang.perl
Titolo: spider web in perl

so che la domanda è già pssata, ma voglio vedere se salta fuori qualcosa di
nuovo.
Mi piacerebbe programmare un parser di pagine web. Che estrare e conta le
parole contenute in una pagina html.
Sapete indicarmi qualche link? So che c'era un libro della Apogeo, è valido?
ciao

 Sapete indicarmi qualche link? So che c'era un libro della Apogeo, è valido?
Ti ho risposto in "programmare", dimmi cosa non comprendi riguardo ai
link seguenti:
http://search.cpan.org/~gaas/libwww-perl-5.837/lib/LWP.pm
http://search.cpan.org/~jfearn/HTML-Tree-4.0/lib/HTML/TreeBuilder.pm
hai tutte le informazioni necessarie

hai tutte le informazioni necessarie
ho visto e ti ringrazio. Volevo perň vedere se c'č dell'altro prima di 
mettermi a studiare tutto.
ciao
Newsgroup: it.comp.lang.perl
Titolo: conoscere info su visitatori

Qualcono č in grado di farmi avere il codice (perl o java) adatto ad 
estrapolare quante piů info da chi visita le pagine ? mi č essenziale 
conoscere almeno la nazione da dove viene visitato il sito......e meglio, 
conoscere anche la sua mail od account.
Grazie
Simon 

 conoscere anche la sua mail od account.
Ahem.
Supponiamo tu stia parlando di software che gira su un server web.
Tenendo conto di come funziona il HTTP, tutte e sole le informazioni
che puoi ottenere (a meno di sfruttare buchi di sicurezza nel browser)
sono quelle che l'utente ti dà sua sponte, più quelle che il browser
ti fornisce di protocollo.
Per le prime ci sono le form (ma questo lo sai già di sicuro).
Le seconde sono limitate a:
- indirizzo IP di origine della connessione
- stringa identificativa del browser
- tipi di contenuti accettabili
- lingue accettabili
- qualche cookie che è stato impostato dallo stesso server che sta contattando
In pratica, non hai molto a disposizione. Esistono dei moduli sul CPAN
per tentare di indovinare la nazione in cui sta un IP, ma è il massimo
che puoi fare. Peraltro, non è neppure tanto preciso: ci sono sempre i
proxy e vari sistemi di redirezione. Tutti gli altri dati, poi, sono
sotto il controllo dell'utente, che può impostarli come vuole.
In poche parole: non è possibile...
Curiosità: a che ti serve?
-- 
  dakkar



... e magari anche la sua password e il numero di carta di credito ?
;)
  Raffaello

 ha scritto nel messaggio 
news:Pine.OSF.4.62.05...@harry.molgen.mpg.de...


 ha scritto nel messaggio 
news:877jk77...@nautilus.cocaine.it...


 Simon
http://awstats.sourceforge.net/cgi-bin/awstats.pl
o in alternativa vai su 
sourceforge.net
selezioni "software map" > "internet" > "Log Analisys" 
e prendi quello che ti piace di più.
Buon lavoro

 visitano il mio sito aziendale.
Sono contento non siano "loschi fini" ;-))
Cmq il meglio che puoi fare è sperare che te lo dicano in una form o
per posta. Non esiste niente di automatico: sarebbe un problema di
sicurezza / riservatezza non piccolo.
Appro': tieni conto che se chiedi poco più che nome o ragione sociale
devi tenere conto della legge sulla riservatezza dei dati personali
(675/96 e successive modificazioni).
-- 
  dakkar

 (675/96 e successive modificazioni).
Micro-correzione: Il D.Lgs. da tenere in considerazione č il 196/2003, il 
vecchio 675/96 č stato abrogato :-)
Newsgroup: it.comp.lang.perl
Titolo: [OT] - stand alone  routine su "public server" server

scusate la domanda OT (per certi versi), ma secondo voi, un server che 
offere spazio disco gratuito, potrebbe accettare di mantenere attiva una 
routine vita natural durante, che ad intervalli di tempo, mi prelevi dati 
dalla rete ?
Esistono altri sistemi che mi evitino, in questa fase, si acquistare una 
connessione stand alone ? A quali domini che "dispensano" spazio disco 
gratuito, con funzionalità perl, mi potrei riferire ?
Grazie 

 dalla rete ?
Dal un punto di vista tecnico non c'è nessun problema.
Basterebbe sfruttare Cron (se sotto Linux) o le "operazioni pianificate" 
(sotto Windows).
Da un punto di vista pratico però dubito che accetteranno di farlo.
Se invece fai un hosting a pagamento la cosa è molto più probabile.

Newsgroup: it.comp.lang.perl
Titolo: Problema logico

Ho un problema di "INESPERIENZA"!!!
Devo creare uno scipt che legga il file di testo e lo riutilizzi
File di txt
user,pass,dati
Il mio problema non č il perl ma il testo infatti ogni utente deve avere
varie coipie di dati
davide,fiorani,dato1,dato2
E non posso sapere quanti ne hanno
MI conviene fare un file per ogni utente?
Cioč
davide,fiorani,utente3229.txt
o si riesce a fare tutto in un file?
(Ho molti utenti quindi credo che non mi convenga creare un file per ogni
utente!)
Grazie in anticipo

E non posso sapere quanti ne hanno
Non so se ho ben capito il problema. Comunque sia potresti usare un array
bidimensionale. Ad es.:
while ($riga = <MIOFILE>) {
  @campi = split (/,/, $riga);
  push @dati, [ @campi ]
}
A questo punto puoi accedere a qualsiasi elemento in maniera abbastanza
comoda, ed in base alla lunghezza degli array interni puoi capire quanti
capi ha ciascuna riga (utente). Potrebbe essere ancora piu` comodo
utilizzare un hash di array, cosicche' tu possa trovare un utente grazie
ad una chiave (ad esempio il nome) anziche' specificando il numero di riga.
Per maggiori informazioni batti:
perldoc perldsc
perldoc perllol
	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!

 ha scritto nel messaggio
news:slrn8uas...@karma.italpro.to...


oppure utente,passutente,fileutente(include i dati utenti)
Beh, penso ti convenga la prima soluzione.

Newsgroup: it.comp.lang.perl
Titolo: file parsing ...

Come posso dire al mio programma di scrivere,
non appena trova il pattern di espressione /xxxx/,
tutte le righe fino alla fine del file, senza un ulteriore
riconoscimento dello stesso pattern ?
Grazie per la collaborazione.
Antonello Romani
Dipartimento di Medicina Sperimentale
Universita' degli Studi di Parma

 riconoscimento dello stesso pattern ?
Devi scrivere righe prima del pattern o solo e solamente quelle dopo?
M.
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

riconoscimento dello stesso pattern ?
Io fare una cosa tipo:
while (<FILE>) {
     (/xxxx/) && ($found=1);
     print if $found;
}
-- 
Saluti,
Giancarlo




Questo fa comunque il matching su tutte le righe.
Maurizio


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

Questo fa comunque il matching su tutte le righe.
Giusto...
aggiungi un unless $found
-- 
Saluti,
Giancarlo

 
Un'altra idea...
 while( <FILE> ) 
 {  
      print if /xxxx/ .. eof();
 }
Oppure, se si vuole escludere la riga che soddisfa il pattern:
 while( <FILE> )
 { 
      next if 1 .. /xxxx/;
      print;
 }

  ...dovrebbe andar meglio.
Scusa, perche' non semplicemente
  while (<FILE>) { last if /xxx/ }
  print if $_; # se vuoi stampare la riga di match
  while (<FILE>) { print }
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/

Newsgroup: it.comp.lang.perl
Titolo: Admin basics

Perche' non fare semplicemente un backup dei file del registro prima di
provare? la Microsoft e' diarrea, ok, ma sta al buon admin evitare il
bordello causato da una piccola svista...
Frater Sinister (che non e' un admin)

Infatti ho scazzato =) IL messaggio era destinato ad Alessandro
Forghieri ma ho sbagliato l'invio, che me lo ha trasformato in un nuovo
thread... infatti non saro' mai un buon admin %D
Frater Sinister (The King Of Diarrea Fotonica)

 Perche' non fare semplicemente un backup dei file del registro prima di
Be my guest. E' esattamente quello che va fatto.
Il mio disclaimer sull'editing del registry ha solo il significato di
lavarmi bellamente le mani delle conseguenze che possono derivare
dall'usare regedit senza le debite 3*10^6 cautele.
I miei post sono gia' troppo lunghi, non posso anche inserire elementi
di
"System Admin 101"...;) 
Cheers,
	Alessandro
Newsgroup: it.comp.lang.perl
Titolo: Accesso ad un MSSQL

Salve salvino. Avrei la necessita' di accedere ad un DB MSSQL. Ho preso ed
installato DBI, DBD::ODBC e le librerie ODBC prese dal cpan. Il fatto e'
che quando tento di fare una connessione al DB (DBI->connect per
intenderci) il programma resta fermo per un minuto buono e poi esce con un
segmentation fault. Chi mi aiuta?
Grazie.
La vita e' come un treno: c'e' sempre una mucca davanti.
--
Michel <ZioBudda> Morelli		  
mic...@enter.it
 
http://ziobudda.enter.it
Italian Linux FAQ		   
http://ziobudda.enter.it/FAQ/
Italian Linux Press                
http://ziobudda.enter.it/ILP/

 segmentation fault. Chi mi aiuta?
Giusto per essere sicuri: hai preso le librerie ODBC o hai solamente il
driver manager iODBC? Guarda che quest'ultimo funziona solo se hai gia'
le librerie 'proprietarie' per accedere al sistema!
Io ci ho messo un casino a capirlo :(
Credo che per accedere a MSSQL tu debba ricorrere al driver ODBC-ODBC Bridge 
della Easysoft, che ti fa comunicare tra una macchina Unix e un NT su cui
ci sia un server ODBC.
Prova a dare un occhiata a 
http://genix.net/unixODBC/
 o a
http://beta.easysoft.com/
Occhio che la settimana scorsa l'ultima beta della Easysoft aveva un baco
per cui c'erano problemi di buffer nella comunicazione con il client.
Potrebbero averla corretta, oppure la versione corretta e' quella sul loro
server ftp.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 ci sia un server ODBC.
hmm...
Ecco comunque l'errore (parte):
   DBI 1.13-nothread dispatch trace level set to 4
    Note: perl is running without the recommended perl -w option
    -> DBI->connect(dbi:ODBC:mi...@xxx.enter.it:yyy, aa, pippo)
    -> connect for DBD::ODBC::dr (DBI::dr=HASH(0x814f404)~0x8176c00
'mi...@xxx.enter.it:yyy' 'aa' 'pippo' HASH(0x8177fd8))
    New DBI::db (for DBD::ODBC::db, parent=DBI::dr=HASH(0x8176c00), id=)
    dbih_setup_handle(DBI::db=HASH(0x8176cd8)=>DBI::db=HASH(0x81b2aa4),
DBD::ODBC::db, 814cc5c, Null!)
    dbih_make_com(DBI::dr=HASH(0x8176c00), DBD::ODBC::db, 92)
connect 'mi...@xxx.enter.it:yyy', 'ss', 'pippo'dbd_error: err_rc=-1 rc=0
s/d/e: 0/136009664/136008040
dbd_error: SQL-IM002 (native 0): [unixODBC Driver Manager]Data source name
not found, and no default driver specified (SQL-IM002)
dbd_error: err_rc=-1 rc=0 s/d/e: 0/0/136008040
E' successo: WinErr 815: Insufficient Memory - Only 50,312,583 Bytes 
available.


 dbd_error: err_rc=-1 rc=0 s/d/e: 0/0/136008040
  Appunto: "no default driver specified"
  Di una cosa sono abbastanza sicuro: sul lato Unix non bastano DBD:ODBC e
  unixODBC (o iODBC). Serve una libreria (driver) in grado di comunicare 
  con il server dall'altro lato, poiche' unixODBC e' solo un gestore di
  driver, non un driver.
  Prova ad installare ODBC-ODBC Bridge della Easysoft (per ora e' una
  beta-version gratuita). So quasi per certo che funziona perche' l'ho usato
  per accedere ad un database Access da Unix.

Newsgroup: it.comp.lang.perl
Titolo: perl TK

Salve.
Dove posso trovare (libri o anche siti web) una buona guida per il PerlTk?
E visto che mi trovo, dove trovo tutti i moduli necessari per Linux e per
Win?
Grazie
--
Byez,
       Alsedo...

 Win?
ActiveState Perl per Win32 contiene anche Perl/Tk. Altrimenti, guarda su CPAN.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 Se c'e' qualcosa, la trovi indicizzata su 
www.perl.com
Un ottimo libro e` "Learning PerlTk", pubblicato da O'Reilly.
Alex

Newsgroup: it.comp.lang.perl
Titolo: compatibilita' mod_perl e DB_File

Salve a tutti,
utilizzando i moduli DB_File in mod_perl registro l'errore:
	DB_File needs compatible versions of libdb & db.h
        you have db.h version 3.1.17 and libdb version 2.4.14
se invece uso gli stessi moduli con perl a riga comando la 
cosa non succede. (versione 5.6.1)
Vorrei capire innanzitutto se mod_perl e perl accedono a 
librerie diverse, ma non so dove guardare.
Ho verificato che il problema e' noto in parte, ma le soluzioni 
proposte non  sono sufficienti nel mio caso.
Ho provato a rinominare le libdb*.a e libdb*.so che sembravano
fare riferimento alla versione 2, ma senza successo. 
Ho compilato mod_perl 1.25 all'interno del binario httpd.
Potete aiutarmi?
Stefano

 fare riferimento alla versione 2, ma senza successo.
Hai fatto anntenzione a fare questo? Se qualche programma cercava le 
librerie cha hai cancellato?
-- 
Saluti,
Giancarlo

 librerie cha hai cancellato?
Grazie... si' avevo fatto attenzione :-)
Stefano

 linkare le libdb in modo statico?
Guarda il Makefile relativo per capire come e' stato costruito l'httpd 
o il mod_perl.so.
-- 
Saluti,
Giancarlo

 statiche  incluse nell'eseguibile.
Ok, il problema sembra aver preso una sua strada:
ho letto un documento nella distribuzione del DB_File (src/Configuration)
dice che le versioni di Perl precedenti alla 5.6.1 includono le libdb
nell'eseguibile.  
Siccome nella mia macchina le libdb sono aggiornate, cosi' come il db.h,
alla versione 3, il binario perl li carica alla bisogna entrambi e li
trova allineati, mod_perl (che ingloba le 2.4.14) si rifiuta di
proseguire quando accede al db.h 3.1.17.
C'e' una patch per le versioni di perl precedenti la 5.6.1 da applicare
per farlo comportare con le libdb come il 5.6.1. 
Ma sembra distribuita per i sorgenti del perl Perl Core non per mod_perl.
Una seconda soluzione prevede di ricompilare le libdb e... bhe' me la
devo studiare un po' prima di parlare a vanvera.
Grazie 
Stefano

 devo studiare un po' prima di parlare a vanvera.
A mio avviso se ricompili il modulo mod_perl e/o l'httpd con le 
librerie nuove installate sul sistema dovrebbe funzionare.
-- 
Saluti,
Giancarlo

 
Purtroppo e' la prima cosa che ho fatto... 
Idem.
Grazie comunque.
Stefano
Newsgroup: it.comp.lang.perl
Titolo: mongers@perl.it

Salve a tutti,
vi scrivo in qualità di portavoce dei gruppi di Perl Mongers attualmente
attivi in Italia (Nordest.pm, Roma.pm, Bologna.pm, Pisa.pm). Molti
"mongers" sono utenti abituali di questo newsgroup, per chi invece non
sapesse di cosa sto parlando potete captare qualche informazione di più
all'indirizzo 
http://www.pm.org
.
Dato che ultimamente le nostre attività si stanno complessivamente
strutturando ad un livello più alto, ci sembra opportuno cercare di
coinvolgere, anche su questo newsgroup, chiunque sia interessato.
Abbiamo predisposto una mailing list 
mon...@perl.it
 per discutere,
appunto, delle nostre iniziative a livello nazionale. Siete tutti i
benvenuti, il gruppo non è troppo numeroso (almeno per ora) e il traffico
dovrebbe essere piuttosto basso. Più giù trovate il manifesto della
mailing list e le informazioni per iscriversi.
Teniamo a precisare che non vogliamo imporre niente a nessuno, siamo un
gruppo di discussione aperto, né vogliamo in qualche modo sostituirci a
questo newsgroup che ha la sua vita propria e di cui siamo molto fieri.
La mailing list viene da noi intesa come banco di prova per l'efficacia
dei nostri progetti e l'interesse che questi possono suscitare al di
fuori della ristretta cerchia dei "mongers".
Ogni commento sarà oltremodo gradito, e come dice Larry Wall: "have the
appropriate amount of fun".
Segue il manifesto della mailing list 
mon...@perl.it
:
 La mailing list si propone di:
 - discutere progetti di ampio (o medio-ampio) respiro riguardanti il
   Perl in Italia.
 - verificare la necessità di creare un gruppo di mongers "Italia.pm"
   per raccordare e coordinare le attività e i progetti dei mongers
   locali.
 - studiare la creazione di un'associazione non profit (o una qualunque
   altra forma "istituzionale").
 - lo studio dell'organizzazione di una YAPC::IT (e/o di un Perl Day,
   magari da associare ai Linux Day).
 - definizione dei contenuti da pubblicare sul sito 
www.perl.it
.
Per iscriversi alla Mailing List occorre mandare un messaggio
all'indirizzo 
listm...@perl.it
 con la seguente frase nel body:
 subscribe 
mon...@perl.it
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

  subscribe 
mon...@perl.it
Beh, che aspettate, non l'avete già fatto? ;-))
    - Enrico
Newsgroup: it.comp.lang.perl
Titolo: Struttura dati complessa, aiuto !

Sono alle prime armi con il Perl e vorrei fare un piccolo script che 
facesse questo. Dato un file di testo come per esempio il seguente:
[Motori di Ricerca]
"Google", "
http://www.google.com
"
"Altavista", "
http://www.altavista.com
"
"Lycos", "
http://www.lycos.com
"
(..altro..)
Vorrei quindi leggere il file e creare una struttura dati che contenga 
questi dati per poi successivamente "esplorare" la struttura dati e fare
qualche altra cosa.
Il problema e' che non so bene come realizzare la struttura dati !
Mi date qualche aiuto ?? Grazie.

 qualche altra cosa.
Quindi potresti fare il parsing dell'XML ed esplorare la struttura. Per
farlo, in un thread precedente mi hanno consigliato (avevo un problema
simile) XML::DOM (anche se non lo ho ancora provato, mi pare che dovrebbe
risolvere tale problema).
Ciao,
--Gabriele

Il problema e' che non so bene come realizzare la struttura dati !
A parte i moduli detti, che con poco studio si potrebbero anche adattare
(sempre che non sia invece possibile modificare la struttura dati, che
sarebbe anche meglio), o da cui si possono ricavare utili idee, estrarre le
informazioni è comunque molto semplice.
La struttura dati "naturale" per memorizzarli mi sembra che sia un hash di
hash. Dovresti cioè ottenere qualcosa del tipo:
   $db{"Motori di Ricerca"}{"Google"} = "
http://www.google.com
";
   $db{"Motori di Ricerca"}{"Altavista"} = "
http://www.altavista.com
";
   ...
   $db{"Altra sezione"}{"Chiave"} = "Valore";
Ciao.

 Mi date qualche aiuto ?? Grazie.
Ecco uno spunto da cui puoi partire. Se non ti è chiaro qualcosa, prima di
chiedere leggiti bene perlref e perldsc.
  sub leggifile
  {
	my $fh = shift;
	my %data;
	my $curr;
	while( <$fh> )
	{
		if( /^\s*\[([^\]]+)\]\s*/ )
		{
			$curr = { };
			$data{$1} = $curr;
		} 
		elsif( /^"([^"]+)"\s*,\s*"([^"]+)"/ && $curr )
		{
			$curr->{$1} = $2;	
		}
	}
	return \%data;	
 }
 open( F, "filepath" );
 my $cfg = leggifile( \*F );
 print $cfg->{"Motori di Ricerca"}->{"Altavista"}, "\n";
Max

 risolvere tale problema).
In questo caso forse e` ancora meglio XML::Simple.
ciao
Stefano

			$data{$1} = $curr;
L'unico problema è se nei dati si ripete un'intestazione di sezione:
  [Una sezione]
  "chiave1", "valore1"
  ...
  [Altra sezione]
  "chiave1", "valore1"
  ...
  [Una sezione]
  "chiave3", "valore3"
Con questo sistema tutti i valori raccolti nella prima occorrenza vengono
cancellati. Può essere un comportamento previsto e voluto oppure no. Nel
caso che si voglia consentire di interrompere e riprendere una sezione, si
potrebbe fare così:
  sub leggifile
  {
	my $fh = shift;
	my %data;
	my $sezione;
	while( <$fh> )
	{
		if( /^\s*\[([^\]]+)\]\s*/ )
		{
			$sezione = $1;
		} 
		elsif( /^"([^"]+)"\s*,\s*"([^"]+)"/ && $sezione )
		{
			$data{$sezione}{$1} = $2;
		}
	}
	\%data;
  }
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Perl e Frame

Vome si effettua la gestione dei Frame (<frameset>) con il Perl?
Vorrei aprire, con un pgm perl, due diversi file html su due Frame definite
:
ES: <frameset cols="140,*" FRAMEBORDER="0" BORDER="0">
      <frame name="indice" border="0"    src="/stellamaris/indice.htm"
scrolling="auto" noresize>
      <frame name="pubbli" border="0"    src="/stellamaris/pubbli.htm"
scrolling="auto" noresize>
    </frameset>
 Come fare per inviare con un solo pgm Perl un html alla
frame 'indice' ed uno a 'pubbli' contemporaneamente?
 

frame 'indice' ed uno a 'pubbli' contemporaneamente?
Con un solo programma non credo proprio sia possibile. In ogni caso per
far si che un CGI invii il suo output ad un determinato frame usa l'header:
Window-target: nomeframe
Se come nome del fremi usi _top, otterrai una pulizia dei frame esistenti
e l'invio di un nuovo documento alla finesta del browser.
Ovviamente funziona solo con Netscape, dalla 3.0 in su. ;-)
	Miky.
-- 
Michele Beltrame
mi...@io.com
http://www.italpro.com/mb/

Newsgroup: it.comp.lang.perl
Titolo: Neofita chiede aiuto.

Saluti a tutti.
Scusate, sicuramente quello che vi sto scrivendo è sul manuale, ma ho perso
diverso tempo a cercare e nulla ho trovato.
Il primo problema è stampare la variabile $risultato che contiene un numero
con virgola tipo 5,876984365894, io con il print voglio stampare solo le
prime 2 cifre decimali, meglio se non troncate ma aprossimate per difetto.
Il secondo problema è che voglio visualizzare con print la variabile $soldi
che contiene 10000000 e voglio visualizzare 10.000.000, esiste il modo per
mettere in automatico i puntini.
Vi prego di dirmi cosa devo cercare sul manuale del perl, sotto quale
capitolo?
Scusate il disturbo, ringrazio tutti anticipatamente per la pazienza e
l'aiuto che saprete darmi.
Ciao Ciao
Alessandro
P.s. ho postato il messaggio sia su it.comp.lang.perl che su
it.comp.www.cgi, spero non ci siano problemi.

 i puntini.
  No, devi scriverti una funzione tua. Oppure cercare su DejaNews (o
analoghi), perche` mi sembra di ricordare che una domanda del genere e`
gia` stata posta.
	Alla prossima,
		Marco

 wrote in message 3A76F6A5...@bar.va...


mettere in automatico i puntini.
Trovi risposta ad entrambe le domande nelle FAQ di it.comp.lang.perl a:
http://www.borders.it/perl/faq/
	A presto, 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
slrn97eh...@karma.italpro.net...

Newsgroup: it.comp.lang.perl
Titolo: perl2exe da 41euro

>
la -gui option dovrebbe essere per non far proprio vedere la console al 
momento dell lauch dell'applicazione (personalmente: preferisco fare 
vedere per un po la consolo ,magrari con una scritta loading , e poi 
farla sparire con il modulo win32)
poi i comando -smal e -tiny non credo essermi utilissimi al momento...
pero aspetto un vostro  commento prima!
posso con la versione da 41 euro compilare anche tk?
Allora si che potrei spendere i denari!

 Allora si che potrei spendere i denari!
Dalle mie parti si dice "tant tu spindis tant tu gjoldis" ovvero tanto 
spendi tanto godi. IMHO e ripeto IMHO, se ne fai un uso professionale 
pensa ad un futuro acquisto del perl2exe pro (affiancato in alcuni rari 
casi da PAR). Se invece vuoi solo "stupire gli amici" allora PAR è un 
buon compromesso (ha solo la latenza all'avvio ma per il resto è davvero 
ok).

Newsgroup: it.comp.lang.perl
Titolo: Apertura nuova finestra browser

Ho un form che passa i suoi parametri a un mio cgi.
Il problema è che questo cgi fa dei controlli sui parametri e:
- se va tutto bene, deve aprire un'altra finestra con una reportistica 
generata
- se c'è qualche problema non deve aprire un'altra finestra ma riproporre il 
form con i messaggi di errore
Mettendo il tag target="_blank" nel form riesco a fare in modo che si apra 
la finestra seperata con i risultati, ma ovviamente non va bene perché se ci 
sono errori il browser si "sdoppia" e il form viene riproposto con i 
messaggi di errore nella finestra sbagliata.
Qualche idea?
P.S.: Purtroppo il controllo sui dati di input non posso farlo con 
javascript per diversi motivi.

Icestorm ha scritto:

se fai generare la pagina dallo script diventa piuttosto semplice.
Lo script genera la pagina con il form.
Riceve il submit.
analizza i dati.
Se c'è un errore ripropone la pagina con il form inserendo nei campi i
valori che aveva inserito l'utente tramite i value=".." e mettendo un
segnale nei pressi dei form errati.
-- 
-- Marco Allegretti --
http://www.shishii.com

 segnale nei pressi dei form errati.
Si quello lo faccio da tempo :-)
Il mio micro-problemino era un altro (aprire pagina diversa simulando 
target="_blank" se i dati erano ok), ma FORSE ho risolto... (ho in'idea ma 
non l'ho ancora applicata in pratica e non so se funziona).
Newsgroup: it.comp.lang.perl
Titolo: Eventi clipboard

Hi all,
questa è la mia domanda. Facciamo finta di essere su una winbox e
supponiamo che ci interessi da matti intercettare un evento di cambio
contenuto della clipboard. Ovvero l'utente ha fatto un bel copy e noi
vogliamo fare un sacco di cose al contenuto della clipboard usando
tutto l'armamentario per il trattamento testi che il perl benignamente
ci mette a disposizione.
La soluzione di un controllo ciclico (girati i pollici - guarda là - è
cambiato qualcosa? - torna a girarti i pollici) è francamente
deprimente. Esiste un evento che posso intercettare dal perl ("This is
perl, v5.8.8 built for MSWin32-x86-multi-thread") mentre sono occupato
freneticamente a fare altro?
Una opzione per i Tk-isti (si dice così?) . Ho visto che su Tk c'è una
gestione astuta di una pluralità di clipboard ma non mi è
perfettamente chiaro se posso ottenere lo stesso risultato, anche
perchè chi scatena l'evento di copia è attivo su un'altra finesta 
Se femm, come si dice qui?
Ciao
Daniele
I miei omaggi ai mai dimenticati  Larsen e Dree

> Esiste un evento che posso intercettare dal perl 
Naturalmente mi vergogno come un ladro. 
La risposta era davanti al naso: $CLIP->WaitForChange();
Ciao

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

Ciao a tutti
Scusate se ripropongo l'argomento, nmke fa parte del c++ di microsoft,
esiste in ming32 ?
C++ di microsoft non è free, credo ?
o esiste qualche versione ridotta utilizzabile con tale comando ?
Forse ci sono troppi ?
Ringrazio tutti anticipatamente

Forse ci sono troppi ?
Forse la domanda non riguarda il Perl.
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.italpro.com/mb/

Newsgroup: it.comp.lang.perl
Titolo: estrazione indirizzi ftp

Salve! Premetto che sono un principiante in materia di programmazione.
Volevo creare uno script capace di estrarre gli indirizzi ftp presenti in
una pagina html. Qualcuno può darmi una mano?



basta che tu faccia un'espressione regolare (il match) per cercare
ogni riga qualcosa che inizi con un <A HREF e contenga "ftp://..."
con un pò di fantasia ce la fai da solo :)

 wrote:

C'e` un modulo chiamato HTML::LinkExtor che potrebbe andarti bene.
 
http://search.cpan.org/author/GAAS/HTML-Parser-3.27/lib/HTML/LinkExtor.pm
Nella documentazione trovi anche un esempio. Non dovrebbe essere 
difficile trarne un pezzo di codice che risolve il tuo problema.
Esiste anche HTML::LinkExtractor. Non mi pare che abbia un'interfaccia
significativamente diversa. E` piu` vecchio di qualche mese.
ciao
Stefano
Newsgroup: it.comp.lang.perl
Titolo: locale

\b non è atomico (non matcha un carattere, ma una posizione astratta tra 2 caratteri) ergo non lo simuli.
volendo (\W\w|\w\W) ma non è la stessa cosa perchè prendi anche il carattere prima e il carattere dopo
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ergo non lo simuli.
lo immaginavo (altrimenti non avrebbero dovuto implementare locale :) )
Pensavo però che con qualche "magia" si sarebbe potuto fare qualcosa! :)
Grazie!

 tra 2 caratteri) ergo non lo simuli.
In realtа \b puт essere riprodotto usando alcune zero-width assertion che
le regexp del Perl hanno a disposizione:
 (?=...) look-ahead assertion
 (?<...) look-behind assertion
In sostanza \b potrebbe essere implementato in questo modo:
 /(?<=\W)(?=\w)|(?<=\w)(?=\W)/
Esempio:
 
 my $slash_w = qr/[\wзаийитм]/;
 my $slash_W = qr/[^\wзаийитм]/;
 my $slash_b = 
        qr/(?:(?<=$slash_W)(?=$slash_w)|(?<=$slash_w)(?=$slash_W))/;
 # notare il qr//
 # notare anche l'uso di '(?:' per raggruppare due alternative senza
 # catturare il risultato in $1, $2 etc...
 my $str = " зa va; bonne journйe ";
 $str =~ s/$slash_b($slash_w+)$slash_b/[$1]/g;
 
Max

         qr/(?:(?<=$slash_W)(?=$slash_w)|(?<=$slash_w)(?=$slash_W))/;
Questo post DOVREBBE essere incorniciato!!! :))
Grazie, questa и la dimostrazione di cos'и un _vero_ hacker! :)))

Newsgroup: it.comp.lang.perl
Titolo: while nidificato

in pratica devo vedere se una riga del file1 č contenuta in una riga del
file2 e in caso positivo stampare la riga del file2 in un nuovo file
il ciclo perņ non viene eseguito come vorrei
grazie
open (filenuovo, ">> filenuovo.txt");
open (file1, "< file1.txt");
open (file2, "< file2.txt");
print filenuovo "testa del file\n";
while(<file1>)
$a= $_;
print $a;
while(<file2>)
$b= $_;
if ($a ==~/$b/) {print filenuovo "$b\n"};
print $b;
};
};
close file1;
close file2;
close filenuovo;

 close filenuovo;
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 il ciclo perņ non viene eseguito come vorrei
Il tuo file non compila neanche, avendo almeno 2 errori visibilissimi e uno


Newsgroup: it.comp.lang.perl
Titolo: screen resolution detection

I'm trying to resize erverthing on my site to allow for users who are
browsing in 640x480, 800x600, 1024x768.
I've built the site on 800x600.
Anyone know how to detect the screen resolution?

!

You should use JavaScript for this.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!