mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Lo script non va!!!

`basename $i .pod`.html
done
Putroppo mi da' un errore del genere ***PER OGNI FILE DEFINITO NEL FOR***:
Scanning for sections in input file(s)
scanning for item cache
scanning directories in pod-path
/usr/bin/pod2html: error opening directory IO: No such file or
directory   
Credo che sia dovuto al fatto che mi mancano alcune directory nella
/usr/lib/perl5/
Cosa faccio?
1) Tolgo le directory mancanti dallo script e lo rilancio;
2) NON le tolgo e mi tengo la documentazione cosi' com'e';
3) Reinstallo Perl ?
4) Altro ?
Vi riporto la lista di dir che ho in questo path (/usr/lib/perl5), di modo
che abbiate la situazione chiara:
drwxr-xr-x  27 root     root         2048 Oct 12 10:48 ./
drwxr-xr-x  18 root     root         4096 Sep 23 11:06 ../
drwxr-xr-x   2 root     root         1024 Mar 23  1998 Bundle/
drwxr-xr-x   2 root     root         1024 Mar 23  1998 CGI/
drwxr-xr-x   2 root     root         1024 Mar 23  1998 CPAN/
drwxr-xr-x   2 root     root         1024 Mar 23  1998 Class/
drwxr-xr-x   2 root     root         1024 Mar 23  1998 Devel/
drwxr-xr-x   2 root     root         1024 Mar 23  1998 ExtUtils/
drwxr-xr-x   2 root     root         1024 Mar 23  1998 File/
drwxr-xr-x   2 root     root         1024 Mar 23  1998 Getopt/
drwxr-xr-x   2 root     root         1024 Mar 23  1998 I18N/
drwxr-xr-x   2 root     root         1024 Mar 23  1998 IPC/
drwxr-xr-x   2 root     root         1024 Mar 23  1998 Math/
drwxr-xr-x   2 root     root         1024 Mar 23  1998 Net/
drwxr-xr-x   2 root     root         1024 Mar 23  1998 Pod/
drwxr-xr-x   2 root     root         1024 Mar 23  1998 Search/
drwxr-xr-x   2 root     root         1024 Mar 23  1998 Sys/
drwxr-xr-x   2 root     root         1024 Mar 23  1998 Term/
drwxr-xr-x   2 root     root         1024 Mar 23  1998 Test/
drwxr-xr-x   2 root     root         1024 Mar 23  1998 Text/
drwxr-xr-x   2 root     root         1024 Mar 23  1998 Tie/
drwxr-xr-x   2 root     root         1024 Mar 23  1998 Time/ 
drwxr-xr-x   2 root     root         1024 Mar 23  1998 User/
drwxr-xr-x   3 root     root         1024 Mar 23  1998 auto/
drwxr-xr-x   3 root     root         1024 Mar 23  1998 i586-linux/
drwxr-xr-x   3 root     root         1024 Mar 23  1998 man/
drwxr-xr-x   2 root     root         2048 Oct 12 10:20 pod/  
Vi ringrazio mille per tutto l'aiuto e a presto risentirci. :)
							Chris

mu...@icbe51.unife.it
 wrote:
 >/usr/bin/pod2html: error opening directory IO: No such file or
 >directory   
Ignoralo, evidentemente non hai installato moduli IO::*.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *
Newsgroup: it.comp.lang.perl
Titolo: aiutooo ... caratteri strani ....

mi sapreste spiegare chiaramente il motivo per cui se scrivo uno script con
l'"EDIT" del DOS di Windows, caratteri strani come la "è è ø " ecc. mi
vengono convertiti in altri caratteri strani se l'output dello script è
indirizzato ad una pagina Web o se lo stesso script lo apro con il "NotePad"
di Windows , mentre se lo scrivo originariamente col "NotePad" non ci sono
problemi di caratteri strani ????
grazie.
.

indirizzato ad una pagina Web o se lo stesso script lo apro con il "NotePad"
E` un problema di codice di carattere, alcuni di quelli usati da DOZ sono
diversi di quelli da WINDOZE. Per le pagine web dovresti usare le codifiche
come:
&egrave; per la 'e' accentata grave
&agrave; per la 'a' accentata grave
...e via dicendo.
	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!

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

piccola defaince....da parte mia.. ovio.
perchè inserendo la presente riga di codice :
.....
@data =
([1,229,220,146,20.0,21.9,19.5,2645,2652,2597],[2647],[2,235,226,155,19.8,20.0,18.3,2633,2645,2585],[2637]);
.....
mi restituisce un vettore a 4 puntatori , mentre :
@ree = qq($ree);    ,  no ?
ricavato da :
@set = ();
while(!eof(AA)){
    $riga = <AA>;    # $riga è cosi costituita: 1,2,3 od 3,9,12
    @riga = split/,/,chop $riga;
    @in = @riga[0..1];
    @out = @riga[2];
    $in = &array(@in);
    push(@set,&array(@in));
    $out = &array(@out);
    push(@set,&array(@out));
}
$ree = join ',',@set;
@ree = qq($ree);
sub array{
    $er = '['.join(',',@_).']';
    return $er;
}
Grazie
Simon

 
E perché dovrebbe? 'qq' equivale alle virgolette doppie ("). Non c'č nessun 
motivo per cui il contentuto di $ree debba essere interpretato come un 
array, e non capisco perché tu te lo aspetti.
Non capisco nemmeno perché generi una stringa contenente un'espressione 
Perl, anziché popolare direttamente un array man mano che leggi i valori da 
AA.
Max
PS: 
nota terminologica: non ci sono i "puntatori" in Perl, quelli lě si 
chiamano "reference"

 chiamano "reference" 

 chiamano "reference" 

 i "reference" (puntatori sono reminiscienze!) ai vettori 
Salvo refusi, cosě dovrebbe andare. 
Nota l'uso del 'my' e dell'operatore '\'.
  my @set = ();
  while( <AA> )
  {
    chomp;
    my @riga = split/,/
    my @in = @riga[0..1];
    my @out = @riga[2];
    push @set, \@in  ;
    push @set, \@out ;
 }
Max
Newsgroup: it.comp.lang.perl
Titolo: generazione di codici univoci

 nuovo processo con lo stesso id una volta terminato il precedente?).
Beh io risolvo il problema usando la funzione rand.
Sebbene restituisca un numero compreso tra 0 e 1 io uso una cosa del tipo
$id = int(rand()*10000000)
e uso questo $id come nome file per alcuni file che mi servono per tutto il
processo.
Sebbene sia sempre possibile che due processi generino lo stesso $id ,
questa ipotesi e' abbastanza improbabile...
Uso questo metodo da circa 2 mesi e non mi si e' mai verificato un caso
simile , spero che possa andare bene anche per il tuo problema.
(Se servono realmente codici univoci allora lo sconsiglio! le leggi di
murphy ci sono sempre contro!)
Valerio Verde

cop...@cirfid.unibo.it
 wrote:
 >Devo generare dei codici univoci, che debbono restare tali anche alla fine del
In una situazione simile ho creato un hash MD5 (con il modulo apposito) della
data e di altri valori. Non e` crittograficamente sicuro, ma per le mie
esigenze e` sufficiente[1].
sub makehash {
        use MD5;
        my ($Rphdr,$Rpheaders,$Rpbody)=@_;
        my $mdhash = new MD5;
        $mdhash->reset();
        $mdhash->add(time);
        $mdhash->add($Rpheaders);
        $mdhash->add($Rpbody);
        return $mdhash->hexdigest();
}
 >processo (non va bene quindi il process id, chi mi assicura che non parta u 
 >nuovo processo con lo stesso id una volta terminato il precedente?).
Nessuno, e` molto facile il contrario.
[1] Le persone attente a cosa succede in it.* nei prossimi mesi vedranno a
cosa serve... :-)
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

 


 con lo stesso id una volta terminato il precedente?).
Un metodo classico e' la combinazione data e ora correnti +
id del processo.
-am

 wrote:
: Ho visto che molte delle persone che mi hanno risposto, generano codici univoci 
: per creare nomi di files temporanei. Ebbene esiste una funzione che fa' 
: esattamente questo. Probabilmente il valore ritornato da quella funzione va 
: bene anche come codice univoco per qualsiasi altra cosa.
: La funzione fa parte di una libreria standard Unix (Standard IEEE 1003.1, 
: implementata in tutti i sistemi Unix ed anche su WindowsNT) che si chiama 
: "posix" e permette l'accesso attraverso metodi standard al sistema operativo.
Ho dato un'occhiata la manuale dello Standard C: la tmpnam() e`
definita in stdio.h ed e` garantito che generi file names univoci per
le prime TMP_MAX volte che e` chiamata.
Inoltre devi tenere anche conto di come e` implementata la funzione:
viene detto solo che il nome generato non deve entrare in conflitto con
nessuno dei files esistenti...
-- 
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: Tutorial !!

ciao a tutti,
dove posso trovare dela buona documentazione in Italiano sulla
programmazione Perl  sotto Linux ???
grazie a tutti
!Neo .

programmazione Perl  sotto Linux ???
Ce n'e` uno su:
http://www.html.it
ed uno (non ancora completo) su:
http://www.perl-it.org
il magico sito di questo newsgroup, in costruzione.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
 *updated!*

Newsgroup: it.comp.lang.perl
Titolo: Errore di compilazione

Salve a tutti,
sono nuovo alla programmazione in perl.
Non riesco a compilare uno script, infatti durante la compilazione mi appare
il seguente
messaggio d'errore;
"Can't modify reference construction in list assignment... etc..."
tale errore mi viene segnalato in corrispondenza di una chiamata di un
metodo.
Qualcuno sa dirmi come risolvere tale problema?
Grazie a tutti anticipatamente.

messaggio d'errore;
Devi dare più informazioni.
Posta il codice, menziona la versione del perl e la piattaforma su cui
lavori.
Ciao
Newsgroup: it.comp.lang.perl
Titolo: Estrarre link

Il codice sotto riportato provvede aa estrarre gli indirizzi URL da una
pagona e registrarli n Indirizzi.txt
Io non conosco bene il perl in quanto il codice mi è stato spedito. Qualcuno
mi può dire quale riga devo modificare affinchè nel file Indirizzi.txt oltre
al url estratta sia inserito all'inizio di ogni riga, LA DICIYURA
LINK: seguito dal link estratto.
Lo so che è banale la domanda ma per me è molto importante.
Grazie
Inizio:
@Attuali = "";
print "Inserisci il nome del della pagina Web : ";
$scelta =<stdin>;
chop $scelta;
$filel = "$scelta.html";
$file = "$scelta.htm";
if ($scelta eq "") {
goto Inizio;
}
open(INFO, $file) || open(INFO, $filel) || goto Inizio;
@extra = <INFO>;
close(INFO);
print "\n";
open(INFO, "Archivio.txt") || open(INFO, "archivio.txt") ;
@archivio = <INFO>;
close(INFO);
open(INFO, "Indirizzi.txt");
@indirizzi = <INFO>;
close(INFO);
$Numline = 0;
NuovaLinea:
$a = $extra[$Numline];
Inmezzo:
$b = index $a,"\"http://";
if ($b >= 0) {
$b = $b +8;
$a = substr $a, $b;
$b = index $a,"\"";
if ($b < 0) {
$d = $a;
chop $d;
++$Numline;
$a = $extra[$Numline];
$b = index $a,"\"";
$e = substr $a,0,$b;
$c = "$d$e";
}
else {
$c = substr $a,0,$b;
}
$Spazioc = index $c,"%20";
if ($Spazioc >= 0){
$c = substr $c, 3;
}
if ($c eq ''){
$non = "non";
goto Inmezzo;
}
$non = "";
foreach $mialine (@indirizzi) {
chomp $mialine;
if ($c eq $mialine){
$non = "non";
print "$c   <Gia' presente in Indirizzi>\n";
goto Inmezzo;
}
}
foreach $mialine (@archivio) {
chomp $mialine;
if ($c eq $mialine){
$non = "non";
print "$c   <Gia' presente in Archivio>\n";
goto Inmezzo;
}
}
foreach $mialine (@Attuali) {
chomp $mialine;
if ($c eq $mialine){
$non = "non";
print "$c   <Gia' trovato nella Pagina>\n";
goto Inmezzo;
}
}
if ($non ne "non"){
print "$c\n";
push @Attuali,$c;
}
goto Inmezzo;
}
++$Numline;
if ($extra[$Numline]){
goto NuovaLinea;
}
open(INFO, ">>Indirizzi.txt");
foreach $mialine (@Attuali) {
print INFO "$mialine\n";
}
close(INFO);
print "\nVuoi Controllare un altra Pagina (s/n): ";
$scelta =<stdin>;
chop $scelta;
if ($scelta eq "s"){
print "\n\n\n\n";
goto Inizio;
}

LUIGI ha scritto:

OT .. cmq il tutto ridotto (tranne scrittura su file) tiè :)
  require HTML::LinkExtor;
  $p = HTML::LinkExtor->new(\&cb, "
http://www.perl.org/
";);
  sub cb {
      my($tag, %links) = @_;
      print "$tag @{[%links]}\n";
  }
  $p->parse_file("index.html");
altrimenti documentazione su : 
http://search.cpan.org/~gaas/HTML-Parser-3.50/lib/HTML/LinkExtor.pm
Newsgroup: it.comp.lang.perl
Titolo: Come assegnare un array associativo?

Vi rubo un minuto soltanto... Ho un problemino (da principiante, tanto per
cambiare):
E' possibile assegnare valori ad un array associativo mediante un ciclo for,
o sono proprio costretta ad elencare i valori e le rispettive chiavi una ad
una?
E' più che altro una curiosità, ma vi sarei grata se vorrete rispondermi.
Ciao!
       Silvia

 le rispettive chiavi una ad una?
  Se le chiavi della lista associativa hanno un ordine collazionale (1)
congruente con l'ordine dei dati della lista sorgente e` possibile
operare in questo modo:
<code>
	@my_array=( ... );
	$counter=0;
	foreach $key (sort keys %my_hash) {
		$my_hash{$key}=$my_array($counter++);
	}
</code>
altrimenti no, poiche` non e` dato sapere come le coppie chiave/valore
siano ordinate in un contesto di lista semplice all'interno della hash.
	Alla prossima,
		Marco
(1) La collazione e` l'operazione di ordinamento lessicografico della
lingua corrente come, per esempio, l'ordinamento alfabetico nella lingua
italiana (Anselmo < anselmo < Fabio < ... < zefirina).

 </code>
C'e' di peggio... 
se le chiavi sono in una lista ordinata e i valori sono in un'altra lista
ordinata, li puoi mettere nell'hash con un colpo di mano :)
 @my_keys = qw/uno due tre quattro/;
 @my_values = qw/primo secondo terzo quarto/;
 
 @my_hash{@my_keys} = @my_values;
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: Aggiornamento automatico di un sito. Come fare ?

Premetto (ma si capirą anche dalla mia domanda)
che sono abbastanza alla prime armi con perl.
Siccome devo aggiornare mensilmente una
pagina di un sito contenente un calendario,
ho scritto un piccolo script che legge un file
di testo con le nuove info e aggiorna automaticamente
il sito.
Attualmente lavoro offline, nel senso che lancio
il mio script dal mio computer, aggiorno
la pagina web (offline sul mio computer) 
e poi eseguo l'upload.
La domanda che mi pongo č se č molto complesso
fare in modo che loggandomi con un password ad
una pagina del sito, sia l'interprete perl che sta
sul server a leggere il file di testo con le info che
si trova sul mio computer e aggiorni automaticamente
il sito.
Grazie.
____________________________
Alessandro Antonucci
af...@NOSPAMinwind.it
www.ilfarorosso.com

 il sito.
   Certo che si puo`: basta uno script CGI che esegua questo l'algoritmo
	1. Ottieni le credenziali (login & password);
	2. Se non sono esatte, stampa una pagina di errore e finisci;
	3. Aggiorna il sito;
	4. Se l'aggiornamento e` andato a buon fine stampa una
	   pagina confermativa;
	5. Altrimenti stampa una pagina di errore;
	6. Stop.
-- 
Veri pirati noi siamo       Ma cosa c'e` di male?
Contro il sistema lottiamo  Ma cosa c'e` di strano?
Ci esercitiamo a scuola     Facciamo un gran casino
A far la faccia dura        Ma in fondo lavoriamo
Per fare piu` paura         Per capitan Uncino

 il sito.
Se il tuo computer e` collegato in rete con un IP statico non ci dovrebbero 
essere problemi. Scrivi un programmino che gira sul server preleva, ad 
esempio via FTP con il modulo Net::FTP, il file di testo dal tuo computer e 
aggiorna la pagina.
Puoi anche optare per la soluzione opposta: continui ad usare il programma 
sul tuo computer, solo che (sempre tramite Net::FTP) gli fai poi fare 
l'upload della pagina modificata.
Michele.

Newsgroup: it.comp.lang.perl
Titolo: hosting cgi - perl che sia ottimo

Ho letto alcuni post con consigli sull'hosting per  cgi e interprete perl.
Spesso la prima preoccupazione è il prezzo.
Io avrei una necessità più specifica: trovare un ottimo hosting -
possibilmente su connettività italiana - con le medesime caratteristiche,
indipendentemente dal prezzo ma affidabile e veloce - per pubblicare siti
con script per il Content Management.
Sapete consigliarmi?
Grazie.
anto



www.tol.it
<AVVISO> L' email presente nella intestazione del messaggio e' falso
(per evitare spam). Se volete contattarmi via email l' indirizzo è
inmodis at (chiocciola) tiscalinet punto it. </AVVISO>
Newsgroup: it.comp.lang.perl
Titolo: Xitami web server e script perl.

Salve, 
dovrei iniziare a programmare in Perl (per sfida personale),
per applicazioni web
Fino ad ora ho sviluppato in PHP/MySQL, provando gli script
su server web Xitami.
Qlc di voi utilizza questo server per provare i propri
script perl? Potreste darmi info su come settarlo e su ciň
che mi serve per provare gli script?
 
-- 
WEbdOM webmaster di
Metronic.It mobile phone philosophy
www.gadgetpoint.it
 serigrafia on line

 
Ho trovato la risposta. La posto per chi si č posto la
stessa domanda.
In pratica non bisogna fare nulla!
Xitami, quando trova in uno script perl la riga
!#path/to/perl , la passa al perl.exe che trova nella path
di sistema (ovviamente bisogna avere perl installato).
In tal modo, non bisogna modificare questa riga prima di
uploadare gli scripts sul proprio server di produzione,
anche se č un server unix_like .
Saluti.


Newsgroup: it.comp.lang.perl
Titolo: chiedo aiuto su una regexp

Ciao,
ho scritto un po di rozzi script perl per un sito scientifico,
l'ultimo problema l'ho risolto in maniera veramente becera
e vorrei snellirlo un po.
Ho un form html in cui l'utente può fare l'upload di un documento,
che è perciò inviato allo script come STDIN; la stringa BOUNDARY l'ho 
estratta dalle variabili %ENV:
BOUNDARY: ---------------------------145325176571377754035568919 
STDIN:
-----------------------------145325176571377754035568919
Content-Disposition: form-data; name="upfile"; filename="prova.txt"
Content-Type: text/plain
...prima riga del file
...ciccio....
...ultima riga del file
-----------------------------145325176571377754035568919--
ora, per tagliare l'"interno" tra un boundary e l'altro, e per
eliminare le righe content-*, la prima vuota e l'ultima vuota,
ho fatto tipo 10 passaggi astrusi: è possibile farlo con
un numero basso di passaggi, magari comprensibili?
(presumo di si...)
ciccio

(presumo di si...)
C'è un modulo Mail::MIME, se questo è quello che stai cercando di
fare. Funziona sia per creare che per analizzare documenti composti.
Se no, puoi dare un'occhiata alla documentazione sull'operatore range
(..), ci si possono fare delle cose a cui a volte non si pensa; e
forse alla variabile $/ , per leggere l'intero blocco degli header,
invece che una riga alla volta.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Parsing serie numeriche

Ho delle serie numeriche (estratte da un gestionale abbastanza penoso!)
in formato:
51 112-115+156+201-202
51 63-64
51 21+33
51 31A-34+36
51 118
dove il primo 51 è un semplice codice identificativo (che non muta mai)
ed il secondo campo è formato da una sequenza numerica dove il "-"
indica "da ... a" e il "+" indica "e".
Spiego meglio:
112-115+156+201-202
significa:
da 112 a 115, 156, da 201 a 202
o meglio:
112, 113, 114, 115, 156, 201, 202
Ora, dovrei fare in modo di creare, per ogni riga che inizia con 51,
un'ulteriore riga 52 che contenga la serie espansa con i termini
separati da un "+". Per capirci (ogni tanto mi spiego meglio a disegnini
che con l'italiano!!):
51 112-115+156+201-202
mi deve diventare
51 112-115+156+201-202
52 112+113+114+115+156+201+202
e via via per ogni riga.
L'ulteriore inghippo è che alcuni di questi numeri contengono anche una
lettera (non più di una e sempre maiuscola), ad esempio per una serie
51 1A-3
dovrei ottenere
52 1A+2+3
Idem se la lettera si trova nel secondo termine:
51 1-3A
diventa
52 1+2+3A
Sto impazzendo di regexp, split e compagnia, ma non sono ancora riuscito
a scrivere qualcosa che funzioni!
Qualcuno ha voglia di darmi una mano?
TIA
--ev

 Qualcuno ha voglia di darmi una mano?
Ecco qua.
 
 while(<STDIN>)
 {
	my( $head, $tail ) = split ' ';
	my @seq = split/\+/, $tail;
	my @newseq;
	for( @seq )
	{	my( $a, $b ) = split /-/;
		push @newseq, $a;	
		if( $b ) 
		{ 	for ( $a + 1 ..  $b - 1  ) 
			 { push @newseq, $_; 
			 };
			push @newseq, $b;
		}
	}
	print $head, " ", ( join '+' , @newseq ), "\n";
 }
Max

 Ecco qua.
[...]
 
Fatte le modifiche del caso per inserire il codice nello script che fa
anche un sacco di altre cosette, e tutto funziona alla stra-perfezione!
Grazie ... non 1000, di più! :-)
Ciao
--ev
Newsgroup: it.comp.lang.perl
Titolo: Un aiutino sulle stringhe

Abbiate pazienza (ci riprovo) sto aspettando che mi arrivi una guidina
(Apogeo) che non arriva!!!
nel frattempo se mi date una mano comincio con qualche script!
qualche semplice domanda:
$riga="aaa,bbbb,yut,45,85";
 @_=split /,/,$riga;
    $cod = shift @_;
1) se mi servisse la seconda o la terza sobString con divisore ","?
2) come si scrive: se in "riga c'è il carattere "y" allora ....else ......
3) come formo una stringa con i caratteri dal 6 al 10?
4) traduzione di:(stringhe) if($a ==$b) print ... else print ...
5) conversione in int o float di una stringa
Grazie a tuti per la collaborazione,
Fulvio.

5) conversione in int o float di una stringa
E` automatica: se utilizzi la stringa in contesto numerico, viene
convertita al volo in numero, e vicevera.
	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!

 quelli dal 6 al 10) in $1 (per via delle parentesi).
Questa non l'ho capita! ..Potresti essere piů chiaro?
Moltissime grazie.
F.

Questa non l'ho capita! ..Potresti essere piů chiaro?
Se tu hai una regular expression, puoi far memorizzare delle
parti del testo che essa "matcha" nella variabili $1, $2, ...
Per fare cio' devi utilizzare le parentesi, ad esempio con:
/(\w+)-(\w+)-(\w+)/
ti troverai il contenuto della prima coppia di parentesi in
$1, della seconda in $2 e della terza in $3.
Spero di essere stato piu` chiaro. ;-)
	A presto, Michele.


 wrote in message
slrn8ggf...@karma.italpro.to...

Newsgroup: it.comp.lang.perl
Titolo: Sostituzione di testo con iniziale minuscolo e/o maiuscolo

ciao
Nella seguente routine vorrei convertire anche le parole che iniziano con 
una lettera maiuscola. Esempio
liberta --> libert&agrave;
Liberta --> Libert&agrave;
ma non so come fare...
Mi date una mano?
Grazie, Massimo
*** Per cortesia rispondete sia al newsgroup che in CC a 
ms...@lario.com
$_= "gi professionalit qualit capacit unit reversibilit credibilit 
flessibilit modalit citt  render succeder dar sar  fornir cambier verr terr 
dir sembrer occuper crescer";
@parole= split;
foreach $parola (@parole)
{
	$line =~ s/($parola)a'/\1&agrave;/g;
	$line =~ s/($parola)a`/\1&agrave;/g;
	$line =~ s/($parola)a'/\1&agrave;/g;
}
-------------------------------------------------------
Massimo Sala	      MS Certified Product Specialist
Lario Engineering			   email: 
ms...@lario.com
Lecco (ITALY)			    tel.: 0341 222217
--
Posted from 
firewall.larioedp.it
 [195.103.173.132]
via Mailgate.ORG Server - 
http://www.mailgate.org

 }
Forse ho capito cosa vuoi fare... 
 Una soluzione, con la lista di parole e' usare l'equivalente di 'ucfirst'
 per le stringe interpolate.
 
   $line =~ s/($parola|\u$parola)a'/\1&agrave;/g;
 
Pero' solo se hai la lista e solo se l'unica maiuscola e' liniziale.
Se vuoi una funzione generale, continua a leggere.
Io per cambiare gli accenti rappresentati con l'apostrofo
nel corretto (piu' o meno) accento HTML uso la seguente funzione 
sub html_accents {
    my $string = shift;
 
        $string =~ s/(o|O|a|A|i|I|u|U)\'(?=\W|$)/\&$1grave;/g;
	$string =~ s/\b(e|E)\'(?=\W|$)/\&$1grave;/g;
	$string =~ s/\Bche\'(?=\W|$)/ch\&eacute;/g;
	$string =~ s/\BCHE\'(?=\W|$)/CH\&Eacute;/g;
        $string =~ s/(e|E)\'(?=\W|$)/\&$1grave;/g;
 
    return $string;
    }
Apparentemente, finora, mi ha funzionato per qualsiasi parola di una stringa
(anche lunga) che finisca con una vocale e un apostrofo (tenuto conto che
l'ho applicata a cognomi italiani, non mi sono preoccupato del caso di 
"un po' di ..." :)
L'idea e' solo quella di fare il match di sequenze vocale/apostrofo in fondo
alle parole di una frase o a fine stringa. La fine di parola, dal momento che
devo fare il match dopo \' (che per perl non fa parte di una parola) e' 
(?=\W|$)
Occhio che la prima riga server per 'aiou', mentre le altre quattro servono
per i casi particolari piu' comuni di 'e' (copula, particelle in ...che',
altre parole).
Se qualcuno, comunque, ha suggerimenti su come migliorare la funzione, sono
bene accetti.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@tuttocitta.it
 
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)
Newsgroup: it.comp.lang.perl
Titolo: Compilare un CGI

Ciao sono nuovo del ng
Vorrei sapere se è possibile, dato un CGI scritto in perl, inserire su
server
soltanto l'eseguibile.
Ho provato con perl2exe e con perlcc, ma ricevo degli errori.
Perl2exe mi crea un file exe e quando vado a leggerlo da http il browser
tenta di scaricarlo su Hd. PErlcc mi da diversi errori a me
incomprensibili.
Il CGI non compilato messo su server funziona.
Qualche utile consiglio ???
grazie infinite

tenta di scaricarlo su Hd.
normale... devi dire al server di eseguirlo, non di leggerlo
-- 
-----BEGIN GEEK CODE BLOCK-----
Version 3.1 (with proprietary extensions)
GE/M/S/O  d-  s:---  !a  c++++(c)>$  ul p+>+++   l+>++  e->----  w++>$  n++  
o--  k-  w++  o?  m?  v?  ps++  pe-  y+>+++  pgp++  t+  5?  x++(+)  r  tv--  
b++>++++  di++  d++  g--  e  h!  !r  xy**
------END GEEK CODE BLOCK------

> normale... devi dire al server di eseguirlo, non di leggerlo
E come faccio ??
Newsgroup: it.comp.lang.perl
Titolo: Sviluppatore MovableType

Ciao a tutti.
Sono alla ricerca di qualcuno con esperienza nello sviluppo di plugin
per MovableType (scusate se scrivo qui ma non ho trovato posto migliore,
alla fine MT è scritto in perl).
Ho la necessità di realizzarne uno con delle caratteristiche particolari.
Se qualcuno è interessato puo' contattarmi direttamente per i dettagli
tecnici, economici e temporali.
Ciao e grazie.
--
Simone

 tecnici, economici e temporali.
Si tratta del plugin di cui parli anche su ProNet ?
(mi offrirei, ma purtroppo non ho tempo residuo in questo periodo)
S.

Newsgroup: it.comp.lang.perl
Titolo: modulo Win32::Api

Un saluto a tutti .......
Qualcuno ha gia usato il modulo Win32::Api ??
Io non riesco ad installarlo e/o farlo funzionare.
La mia configurazione è:
win XP professilnal
Active perl 5.6.1 build 638
win32-api-0.46
Qualcuno mi puo indicare la corretta procedura di installazione di
questo modulo ?
Grazie 10.000
Fpezzetta

 questo modulo ?
Ecco una faq:
http://www.perl.it/documenti/faq/iclp_view.html?pag=5&faq=2

 questo modulo ?
Dovrebbe essere sufficiente installare il PPM.
Gli ultimi ActivePerl (il 5.6 non so) hanno anche un front-end visuale 
per ppm che (forse) facilita le cose: esegui il comando "ppm" da una dos 
box.
Comunque se hai problemi particolari basta chiedere alla mailing list 
mon...@perl.it
, che è frequentata sia dall'autore (Aldo) che 
dall'attuale maintainer (Cosimo) di Win32::API, quindi nessuno meglio di 
loro ;-)
Ciao,
Emanuele.


Hai ragione, ho commesso degli errori da newbie al quadrato !!!
E' proprio vero, quando si è sotto pressione, non ci si accorge nemmeno 
se la montagna ti sta cadendo addosso...
Ho installato, su un altra macchina, la versione 5.8 ed ho anche 
installato il modulo win32::api tramite PPM, e tutto funziona.
Ora mi si pone un altro problema, e cioè, sulla macchina dove dovrà 
girare l'applicazione NON è possibile collegarla ad internet e quindi 
non posso usare il PPM.
Ma se scarico il modulo PPM "Win32-API-0.46.tar.gz" da Activestate e lo 
copio sulla macchina che sta fuori rete, lo posso far installare al PPM ?
Ma a me non sembra che il PPM permetta di installare moduli in "locale".
Oppure "semplicemente" scompatto il file Win32-API-0.46.tar.gz e sposto 
manualmente i files nelle rispettive cartelle ?
Ancora grazie a tutti
fpezzetta

 manualmente i files nelle rispettive cartelle ?
Potresti farlo, visto che l'installazione dei PPM è una semplice copia 
di file (o poco più). Ma si rischia di commettere errori, perché le 
directory interessate sono molte, e forse ti toccherebbe modificare a 
manella anche qualche file (penso all'indice della documentazione in html).
Meglio usare ppm.
Ciao,
Emanuele.

ecco come è finita la storia ...........
siccome ho avuto problemi con il PPM sulla machina da lavoro:
1) ho installato il Perl 5.8.8 su un altra  macchina ma in rete
2) ho installato il modulo Win32_Api tramite PPM.
3) ho copiato tutta la cartella contenente l'intallazione del Perl +
win32 sulla macchina di lavoro (fuori rerte) mantenendo il path
originale.
ora funziona tutto o almeno pare !
ciao e grazie a tutti !!!!
fpezzetta
Newsgroup: it.comp.lang.perl
Titolo: Esistono delle FAQ sul CGI per sviluppo web?

Sai rispondermi in oggetto?
Grazie

Salve...
Puoi trovare un ottimo faq sul sito del perl 
www.perl.com
, ma una
ricerca su altavisat aiuta davvero moltissimo...

Newsgroup: it.comp.lang.perl
Titolo: [FORM] Quesito di non facile risoluzione .......

Ecco una domanda che mette alla prova le vostre capacità.
Solitamente è così:
<form name="Formulario" onSubmit="true" action="mailto:
pi...@usa.net
"
METHOD="post">
Per impostare il soggetto del messaggio bisogna aggiungere ciò che è dentro
la parentesi quadra attaccato all'indirizzo mail [?il subject che vuoi]
Io invece voglio impostare anche il "corpo" del messaggio, cioè dove io sto
scrivendo.
In più vorrei sapere se è possibile impostare il body del messaggio in modo
che a ogni invio ce ne sia uno diverso [ES: 1°msg: 123123 <> 2°msg:la pizza
453 la birra <> 3°msg: pippo ].
Lo so che non è per niente facile ma mi affido alla vostra conoscenza.
In realtà non credo sia nemmeno possibile !
A presto,
Lion

Anche se teoricamente non è impossibile (dovresti creare degli array con
tutti i soggetti e il corpo del messaggio potresti metterlo in degli <INPUT
TYPE=HIDDEN>; io ti consiglio di lasciar perdere un metodo di questo tipo
perchè sarebbe davvero molto lungo.
Io ti consiglio di procurarti dalla rete uno script per mandare i messaggi
e-mail e prepararti un file dove inserire in ogni riga qualcosa come
[DESTINATARIO]§[SOGGETTO]§[Testo del messaggio]
e creare uno script che funzioni così:
open (STDIN, "nome_file");
$MAIL= STDIN;
while (<$MAIL>)
{
($DESTINATARIO, $SOGGETTO, $TESTO) = split (/::/,$_,3);
Inserisci qui lo script preso dalla rete, adattandolo in modo che usi come
destinatario $DESTINATARIO, come soggetto $SOGGETTO e come corpo del
messaggio $TESTO.
}
P.S. Ora tocca a te, divertiti o lascia perdere
Ciao
Andrea
------------------------------------------------------------------------
Redattore di Ludus (
http://www.ludus.it
)
Recensioni, Trucchi, Soluzioni,
Patch e News per PC e PSX
------------------------------------------------------------------------
Newsgroup: it.comp.lang.perl
Titolo: Windows 95 e Perl

Salve,
sto preparando la mia tesi in Perl sotto W95,
purtroppo mi pare di aver capito, in queste
poche settimane che conosco Perl, che la
maggior parte dei Perl-programmers sono
utenti di Unix o Linux (ho letto la storia
del Perl).
Per adesso sto eseguendo script direttamente
ma infine dovrei sicuramente costruire
stand-alone programs...
E' fattibile?
Qualcuno ha avuto esperienze in quest'ambito?
( ...so che molti di voi odiano W95.... :-)   )
Raffaello

 E' fattibile? Qualcuno ha avuto esperienze in quest'ambito?
  Dipende da cosa intendi per stand-alone. Io ho una piccola collezione
di programmi per l'amministrazione di sistema (tanto per la cronaca:
Windows NT) ma dubito che si possa scrivere qualcosa di piu`, almeno
decentemente...
	Alla prossima,
		Marco


Be' ....
intendo per stand-alone programmi in formato eseguibile che non
abbiano bisogno di essere interpretati ogni volta.
Dei file .exe o .com, insomma.
Inoltre vorrei sapere se e' agevole l'uso delle finestre windows
direttamente con librerie Perl.
Io avevo pensato addirittura a chiamare
gli script da Delphi!
Raffaello

 windows direttamente con librerie Perl.
  Si`: cerca PERL-Tk.
	Alla prossima,
		Marco

Dei file .exe o .com, insomma.
http://www.perl2exe.com
oppure il PDK della ActiveState:
http://www.activestate.com
(PerlApp è quello che ti interessa)
__END__
# Aldo Calpini
print sort {$_{$a} cmp $_{$b}} values %{{split undef,
"xritajbugne fahokem csuctawer jhdtlrnpqloevkshpr"}};

Newsgroup: it.comp.lang.perl
Titolo: Inviare l'email

Per inviare l'email in linux uso sendmail ma adesso mi trovo davanti a nt.
Come faccio a creare uno script che spedisca posta su un server nt!!!
Grazie in anticipo!!!
(Si gradiscono esempi)

 wrote:

se hai a disposizione un server SMTP dovrebbe essere sufficiente il
modulo Net::SMTP, caso mai con l'aggiunta di Mail::Tools se devi creare
allegati...
-- 
 __            ___                        
|  \. _ _  _    _/ _  _ _ _  _. _ |_|_ _  
|__/|(-(_)(_)  /__(_|(_(_(_|| |(_)|_|_(_) 
       _/
Newsgroup: it.comp.lang.perl
Titolo: AIUTO! Perl & Html

Io ho una pagina html che mi chiama un file perl col cgi-bin.
Funziona tutto correttamente ma io vorrei che lo sfondo della pagina html
rimanesse invariato, invece quando visualizza la risposta mi toglie
l'immagine di sfondo.
Come faccio a dirgli di tenere lo stesso sfondo e le stesse immagini?
Nel file perl posso solo inserire parti di testo scritte in html.
Come posso fare?
Grazie.

 wrote in message
Pine.GSO.4.05.9910141519470.29127-100000@evy...

Il testo HTML che inserisci potrebbe iniziare con:
<HTML>
<HEAD>
<TITLE>Tuo Titolo</TITLE>
</HEAD>
<BODY BACKGROUND="URL_della_tua_immagine_di_sfondo">
.....
Mario Protto

 Come posso fare?
Il problema e' che lo script, quando viene eseguito, viene eseguito da una
directory diversa da quella in cui si trova... (nella norma e'
/cgi-bin/....). Quindi devi usare l'indirizzo assoluto e non relativo.
Quindi se il tuo programma genera come output
BACKGROUND="images/immagine.gif", dovresti far si che diventi
BACKGROUND="/miosito/images/immagine.gif"
    best regards,
        Kazuma
--
Alex Garbagnati, 
al...@remove.this.messagemedia.com
Manager, Database Development
MessageMedia
Mountain View, CA  94043
Newsgroup: it.comp.lang.perl
Titolo: bel questito (-T, tainted checks, e open...)

Salve,
	brevemente vi illustro il mio problema. Modifico uno script
Perl ( un CGI)  che faccio eseguire sul server con lo switch -T.
#!/usr/bin/perl -T per intenderci.
	Per questioni di sicurezza lo switch  e' consigliato.
	Il mio problema e' che ho bisogno di aprire dei file,
scriverci dentro, chiuderli e cancellarli... cosa che non mi e'
possibile perche' mi da errore "Insecure dependency in open ....".
Possibili soluzioni?
grazie in anticipo.
							[Enrico]
P.S.
Ho visto su 
perl.com
 che mi consiglia una fork di un processo figlio
con permessi piu' bassi che faccia "il lavoro sporco".
Onestamente non mi pare il caso anche perche' il CGI, nel codice
originale,  fa quello che gli pare anche nelle stesse mie directory.
Mentre il codice che scrivo io (aggiunto nello stesso file) ha
problemi... che fare?
P.S. 2 
La logica del CGI e' buona perche' l'ho sviluppato con IndigoPerl su
un PC con w98, che no nha problemi di permessi, quindi mo sono potuto
concentrare sulle funzionalita'. Adesso ho caricato il tutto sul
server UNIX e c'e' sto problema...
risposte anche in email 
e.lu...@wirecom.it

Il tainting facilita la scrittura di script sicuri perche ti obbliga
ad estrarre, con delle espresioni regolari, dagli input "esterni"
(@ARGV,%ENV,<>,...) l'informazione con cui verrano fatte chiamate
di sistema "sensibili", come la apertura di un file.
#!/usr/bin/perl -T
# questo fallisce per che tenta di usare la variabile $filename direttamente da una
# sorgente non controllabile.
my ($filename) = @ARGV;
open F, "> $filename" or die("non s'apre per che $filename non e' stato controllato");
print "main";
exit;
__END__
#!/usr/bin/perl -T
# questo invece estrae il valore da una variabile non fidata
# attraverso un'espresione regolare cosi' facendo noi
# sappiamo che l'input e' qualcosa di controllato dunque si presupone sicura.
my ($tmp) = @ARGV;
# il filename deve essere di soli caratteri
$tmp =~ /^(\w+)$/ or die("file non accettabile"); 
$filename = $1; # a questo punto $filename e' "sicura"
open F, "> $filename" or die("non s'apre per: $!");
print F "Ciao\n";
close F;
exit 0;
__END__
#!/usr/bin/perl -T
my ($tmp) = @ARGV;  # perl non vieta la
$tmp =~ /(.*)/;     # spericolatezza
$filename = $1;     # esplicita :)
# ma a questo punto ti devi chiedere: Ma ce lo devo proprio mettere il -T ?


$tmp =~ /(.*)/;     # spericolatezza


 

Newsgroup: it.comp.lang.perl
Titolo: uscita dal prg

Ciao a tutti
in questa calda notte estiva, ho ricevuto dal supporto tecnico del mio sito
una email che non ho ben capito.
ecco il teste della email
----------------------------------------------------------------------------
------------------------------
Gentile Utente, Il 
attesa3.pl
 non funziona perché non è scritto
correttamente. All'estremità, non c è "uscita" e generalmente non
funzionerebbe, anche perché i permessi della lima sono "rwxrwxrwx"... cioè
chiunque (tutti i vostri utenti) possono scrivere a quella file. I permessi
del file devono essere regolati in moda da "non potere scrivere altri" e "il
gruppo" al file. Se questo non è fatto, l'assistente non permetterà che
funzioni, perché può indurre facilmente il cliente ad essere inciso
Saluti
----------------------------------------------------------------------------
------------------------------
ecco il listato di 
attesa3.pl
#!/usr/bin/perl;
print "Content-type: text/html\r\n\r\n";
print 'La farfalla';
# sleep(10);
print 'V O L A';
mi dite che uscita  dovrei inserire?
Preciso che il file serve solo a verificare il funzionamento del server che,
aquanto credo, non e' ben funzionante.
Grazie e ancora ciao

 mi dite che uscita  dovrei inserire?
bho, prova:
exit;

Ho hatto le correzioni da te sugg. ma non cambia nulla, continua ad editare
a video il listato del prg.
altri sugg.

 a video il listato del prg.
Allora non è colpa del tuo script ma della configurazione del server, 
oppure del suffisso del tuo script non "riconosciuto" (prova a 
rinominarlo in .cgi o .pl) oppure dal fatto che tenti di eseguire il tuo 
script al di fuori della cartella cgi-bin.
In quest'ultimo caso prova a mettere nella directory che contiene il tuo 
script un file chiamato .htaccess che ha la seguente ed unica riga:
SetHandler cgi-script

GRANDE   con il file .htaccess HA FUNZIONATO.
Grazie ancora
Newsgroup: it.comp.lang.perl
Titolo: occupare tutte le porte aperte

Salve,
   ho bisogno di realizzare uno script in sh o perl che mi occupi tutte 
le porte aperte dalla 49000 in poi con dei socket tcp in ascolto...
se uso un comando tipo:
nc -v -l
ottengo: listening on [any] 49468
e se vado a fare:
netstat -an
otteng: tcp4   0   0    *.49468   *.*   LISTEN
quindi la porta 49468 è occupata.
credete che dovrei mettere "nc -v -l" in un loop? ho paura che pero sia 
una chiamata bloccante, quindi finchè non si chiude quel socket non potr 
passare al successivo...qualche consiglio??
grazie

& ? (e commerciale :) )

 & ? (e commerciale :) )
grazie, ma purtroppo se supero un tot di processi il sistema mi blocca 
tutto...vorrei fare che un solo processo aprisse più porte in 
ascolto...credo che potro farlo solo in perl...qualche aiuto?

 ascolto...credo che potro farlo solo in perl...qualche aiuto?
questo è un pezzo di codice che ho tirato fuori adesso:
#!/perl
use strict;
use warnings;
use Socket;
$| = 1;
my ($usock, $uport);
while (1)
{
($usock,$uport) = &udp_setup("127.0.0.1");
print $uport;
my $buff;
my $lbuff = 1024;
#while ( recv($usock, $buff, $lbuff, 0) )
#{
#  print $buff;
#}
}
sub udp_setup
{     
   my $HOSTNAME = $_[0];
   my $fh;
 
   socket($fh, PF_INET, SOCK_DGRAM, getprotobyname("udp")) or return "";
   binmode($fh);
 
   my $ipaddr   = inet_aton($HOSTNAME);
   my $portaddr = sockaddr_in(0, $ipaddr);
   bind($fh, $portaddr) or return "";
 
   my ($nport, $naddr);
   ($nport, $naddr) = sockaddr_in(getsockname($fh));
 
      return ($fh,$nport);
}
__END__;
naturalmente la parte che poi ascolta <while> l'ho commentata perchè 
bloccante...come faccio con un solo processo a fare più socket in 
contemporanea?
grazie

 passare al successivo...qualche consiglio??
Basta mettere i processi in background:
perl -e 'system "nc -lp $_ &" foreach (49000..49010)'
(credo che pierbrun abbia suggerito la stessa cosa).
Poi ci sono altri n-mila modi, come sempre.
Ciao,
Emanuele.

 (credo che pierbrun abbia suggerito la stessa cosa).
Scusa, non avevo letto la tua risposta a pierbrun.
Allora lascia stare netcat e fallo in Perl.

Larry wrote:

Usa select(.,.,.,.) o, molto meglio, IO::Select.


Select per selezionare senza bloccarti il socket pronto per l'I/O.
Poi hai il problema di fare I/O non bloccante su quello specifico socket 
selezionato, cosa per cui dovrai usare socket non bloccanti (tramite 
IO::Handle è banale) *non* usare I/O bufferizzato e gestire 
letture/scritture parziali.
Capisco soltanto adesso che tu chiedevi lumi solo su quest'ultimo 
aspetto, ma in realtà i problemi li hai entrambi, se devi fare I/O su 
più socket.
C'è un esempio proprio su questo sul Cookbook (quindi lo trovi anche 
on-line su PLEAC Perl).
Ciao,
Emanuele.


Se usi UDP potrebbe tornarti utile anche questa soluzione:
http://perldoc.perl.org/perlipc.html#UDP%3a-Message-Passing
(ma dipende da quello che devi fare...)
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Moduli per data Romana

Salve,
  Ho già inviato un post a questo proposito su cpm. Sto scrivendo un paio di
moduli per manipolare date nel formato del calendario romano (vedi esempio
nella sign). Si tratta di due moduli (o forse uno solo di loro, nsn ho ancora
veramente deciso). Uno, Date::Roman, dovrebbe essere un po' come Date::Maya.
Cioè permlettere di manipolare oggetti che rappresentano date nel formato del
calendario romano. Un altro dovrebbe essere una sottoclasse di Date::Convert,
come Date::Convert::French_Rev per il calendario rivoluzionario francese. 
  Eccoci alle domande.
  1. Qualcuno è interessato? Per "interessato" intendo sia ad usare che a
     testare tali moduli, ed eventualmente ad aiutarmi con il codice e con 
     alcune cose del latino che ho dimenticato :)
  2. Ammesso e nn concesso che (a) io scriva effettivamente tali moduli e (b)
     tali moduli interessino la comunità, mi servirà un conto PAUSE. Come si 
     fa per ottenerlo?
Saluti 
-- 
Leo TheHobbit |  Windows does *not* have bugs.  |
IRCnet #roma2 |It just develops random features.|
ICQ 56656060  |                                 |a.d. VII Id. Apr. MMDCCLV a.U.C.

      alcune cose del latino che ho dimenticato :)
 
http://latino.www7.50megs.com/page14.html
Per la conversione prevedo lacrime e sangue, specialmente per le date 
antecedenti alla riforma gregoriana.
-- 
Baci,
Mony

 antecedenti alla riforma gregoriana.
 
No, anzi.. In realtà poi 'storicamente' il calendario romano si applica
solo dal 45AC (anno della riforma Giuliana) al circa 512 dC in cui si
cominciò ad usare l'era cristiana.
Saluti
-- 
Leo TheHobbit |Computers are like air conditioners - |
IRCnet #roma2 |      They stop working properly      |
ICQ 56656060  |         when you open Windows        |a.d. VI Id. Apr. MMDCCLV a.U.C.
Newsgroup: it.comp.lang.perl
Titolo: Database acess perl e motore di ricerca

Dovrei creare un motore di ricerca che  vada a leggere un file mdb e se
trova l'imput stampa il record.
Mi spiego meglio
Il form è formato da 7 tabelle (Città,indirizzo,email etc)
Mettiamo che l'input sia (milano) lui deve cercare in queste 7 tabelle la
parola milano se la trova deve stampare il record!?!
Si può fare in perl!?! Se si come!
Avevo pensato di usare ASP ma non conoscendolo molto bene ho dovuto lasciar
stare (Mi blocco su la cosa + stupida, la selezione!).
Mi potete aiutare!!!!
Grazie in anticipo

 stare (Mi blocco su la cosa + stupida, la selezione!).
Ah. Mentre con Perl non ti sei bloccato? Guarda che per usare Perl con i
database, bisogna conoscere SQL lo stesso.
A occhio e croce, bisogna fare una select su tutte le tabelle con un where
composto dall'OR di tutti i controlli sulle tabelle adeguate. Ma senza
sapere COME sono le tabelle, puo' benissimo essere una cavolata.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Quello è il problema il select!?! che non riesco a farlo partire!
--
Posted from [194.153.73.220] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Quello č il problema il select!?! che non riesco a farlo partire!
E allora? I comandi SQL che servono dipendono dalla struttura delle tabelle
e da come sono relazionate. No tabelle, no aiuto.
E comunque, a questo punto sei off-topic.

Newsgroup: it.comp.lang.perl
Titolo: problemi con script: far eseguire più di un comando

Salve tutti,
premetto che lo scrpt di cui parlo è in bash però non ho trovato 
newsgroup sulla programmazione in bash cosi spero che qualcuno di voi mi 
risponda. La domanda è veramente stupida ma io sto appena cominciando a 
imparare la programmazione bash
nel libro che sto leggendo ( Guida avanzata di bash scripting) salla 
fine del primo capitolo si richiede, come esercizio di fare uno script 
che salvi uin un file la data corrente , il tempo di uptime e l'elenco 
degli users del sistema . Io ho pensato di usare i comandi date, uptime 
( non ho ancora individuato un comando specifico per gli users ma mi 
pare che questi vengano elencati anche da uptime) poi avrei rediretti 
l'output sul file. Il problema è che non riesco a mettere il comandi in 
modo che la shell li esegua tutti . Infatti esegue solo il primo 
ignorando gli altri.
Qualcuno mi potrebbe gentilmente aiutare?
lo script è qualcosa di simile a
#! /bin/bash
touch mioscrpt
echo 'questo script stampa data , utenti e tempo di uptime del sistema' 
 >mioscrpt
uptime>mioscript
date>mioscupt

 date>mioscupt
Ciao, il problema è nella ridirezione dell'output, i tuoi comandi
vengono eseguiti (a meno che il sistema non li trova nel path)ma
riscrivono ogni volta lo stesso file :-). La forma corretta dello
script:
#!/bin/bash
touch mioscript (non è necessario creare il file....)
echo 'questo script stampa data , utenti e tempo di uptime del sistema'
 > mioscrpt
echo "****UPTIME****>>mioscript
uptime >> mioscript
 echo >> mioscript
 echo "****DATE***">>mioscript
date >> mioscript
 echo >>mioscript
 echo "****USER LOGGED***">>mioscript
who -u >> mioscript
saluti,
Mirko.

Oltre alla soluzione di redirect "append" con ">>" al posto di ">"
(capitolo 16), potresti anche utilizzare una subshell (capitolo 20) per
accorpare i comandi, e redirigere l'output della subshell:
(  # una subshell è un insieme di comandi fra parentesi tonde
   echo 'stampa data, utenti e tempo di uptime del sistema'
   date
   who
   uptime
) > mioscript
Questo ti evita di dover ripetere l'operazione di redirezione, che ti
espone al rischio di sbagliare il tipo di redirezione (mettendo ">" al
posto di ">>") o il nome del file (nel tuo esempio i nomi dei file dove
redirigi sono tutti diversi!).

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

Qualche anima pia me li puo' tradurre in modo comprensibile?
Grazie.
$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$value=~s/<!--(.|\n)*-->//g;

$value=~s/<!--(.|\n)*-->//g;
Mmh... direi a occhio e croce che elimina i commenti html
Spero di non aver sbagliato! ;-)
ciao 
Riccardo