mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Qualcuno ha un'idea??? (quasi OT)

Salve,
vi pongo una domanda di ordine metodologico più che pratico.
Devo realizzare uno script perl che mi permetta di riversare le righe di un
file di tipo testo su un'altro file di tipo testo, però l'utente deve essere
in grado di scegliere se mantenere o no i record da inserire nel nuovo file.
Come posso fare?
GRAZIE.

in grado di scegliere se mantenere o no i record da inserire nel nuovo file.
open (SRC, "<miofile.txt");
open (DST, ">miofile2.txt");
while ($riga = <SRC>) {
  chomp ($riga);
  print "$riga - vuoi scrivera?";
  if (<STDIN> =~ /^[sS]/) {
    print DST "$riga\n";
  }
}
close (SRC);
close (DST);
Il programma attende una risposta dall'utente per ogni riga. Se inizia per 's'
o 'S' allora scrive la riga, altrimenti no. L'attesa dell'input termina quando
premi enter.
	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!

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

Newsgroup: it.comp.lang.perl
Titolo: Leggere dati dalla porta seriale e scriverli in un file

Salve a tutti.
Non ho mai utilizzato Perl, tranne che per apportare delle piccole 
modifiche a degli script gia' fatti da altri.
Adesso, pero', avrei necessita' di creare uno script che esegua le 
seguenti operazioni:
Deve restare in ascolto sulla porta seriale ttyS0 e quando gli arriva il 
carattere "[" deve copiare tutti i caratteri seguenti su un file fino 
all'arrivo di un carriage return. Poi il ciclo deve ripartire.
Il file cosi' creato, verra' poi letto da un'altro script (richiamato 
ogni 5 minuti da cron) che gia' esiste, il quale passera' a sua volta i 
dati letti a mrtg.
Pensavo di creare un demone e ho trovato il seguente esempio: 
http://www.perl.it/documenti/articoli/2006/12/demoni_e_segnal.html
che sembra fare al caso mio.
Non so pero' (tra le altre svariate cose) come fare a risvegliare il 
demone all'arrivo dei caratteri sulla seriale e sincronizzare la 
scrittura sul carattere di start. Che segnale si deve utilizzare?
C'e' qualcuno che puo' darmi qualche dritta?
Grazie dell'attenzione
Ciao
Giuseppe

 all'arrivo di un carriage return. Poi il ciclo deve ripartire.
Ci sono un paio di moduli in CPAN, forse ti possono servire:
Windows
http://search.cpan.org/~bbirth/Win32-SerialPort-0.19/lib/Win32/SerialPort.pm
Linux
http://search.cpan.org/~cook/Device-SerialPort-1.002/SerialPort.pm

Oreste ha scritto:

Penso sia proprio quello che cercavo.
Grazie
Ciao
Giuseppe

Newsgroup: it.comp.lang.perl
Titolo: INVIO DATI DA FORM

Con una form in html posso inviare i dati a uno script in cgi o perl. Il
problema che mi si pone è il seguente: se volessi inviare allo script altri
dati che non sono compresi nella form, come posso fare?
grazie
Andrea

 wrote in message
HnIJ5.24803$3K3.6...@news.infostrada.it...

Newsgroup: it.comp.lang.perl
Titolo: dimensioni di un HASH

Quante coppie chiave-valore puo' contenere un hash???
grazie,
asast

Quante coppie chiave-valore puo' contenere un hash???
Infinite, AFAIK.
-- 
ciao, | * The Internet is full. Go away.  -- Joel Furr *
Marco | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

 Infinite, AFAIK.
Scusa, ma AFAIK che significa??
grazie,
asast

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

 
http://info.astrian.net/jargon/
 (AKA "RTFM")
1) Scusa, ma AKA che significa??
2) Scusa, ma RTFM che significa??
:-)))))))))))))
Ciao
M.
-- 
:wq

 wrote in message
NA0v5.98$Sm1....@news.infostrada.it...


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

Devo interfacciare Perl con Oracle.
Ho letto di oraperl , dbperl ...
Qual'e' il gateway piu' semplice da utilizzare e quali sono i componenti
che devo installare? Mi potete indicare nomi e versioni ?
Ho un sistema operativo Irix 6.4 con Oracle 7.311 e Perl 5.003
Grazie!
ciao
daniele

 wrote:
: Devo interfacciare Perl con Oracle.
: Ho letto di oraperl , dbperl ...
Sono vecchie interfacce.
Quella migliore per il Perl 5 (e da cio` che posso leggere, la piu`
usata) e` quella con DBI/DBD.
Cerca questi moduli su un sito del CPAN. Quello italiano e`
cis.utovrm.it
-- 
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: Esecuzione di un file

Come faccio ad eseguire un file da uno script CGI in Perl. Il file che
mi interessa è in /usr/local/AC. Che parametri devo impostare usando
chmod? Con che path devo chiamarlo dallo script Perl? Come faccio a
reindirizzare l'output in modo che venga mandato al browser?
Grazie.

 browser?
se l'output lo hai in $output,
print $output;
-- 
$_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572,,($_,$b)=
split?#?;@b=split?;?;map{$c.=$_,$d.=chr$b[$e++]+ord}split??,pack'H24',$b
;chop$d,print$c.chr(32).$d

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

Come si installano i moduli in perl ???
SIMONE 


ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

Ho fatto la procedura sia manuale che con cpan ma mi si blocca su
make: *** [Zlib.o] Error 1
sto cercando di installare Compress-Zlib-1.34
Come mai???
Ho debian woody e perl 5.6.1
Grazie
S

 wrote:

Con Debian potresti usare i pacchetti .deb gia` pronti.
Dovrebbe bastare apt-get libcompress-zlib-perl


Newsgroup: it.comp.lang.perl
Titolo: [Perl + MySQL] Questione di convenienza...

Ciao... un consiglio...
Interrogo un server MySQL remoto con qualche SELECT semplice semplice
che mi ritorna circa duemila record da 6 campi di max 20 caratteri
ciascuno... questi dati vengono utilizzati per creare una certa
struttura di file e cartelle su disco locale in più passaggi
inframezzati da query...
Secondo voi è meglio che faccio le query all'inizio e salvo in file
temporanei da parsare o faccio tutto al volo e tengo i risultati in
array che vengano immediatamente processati senza il passaggio
intermedio del file?
Aspettando consigli parto con la soluzione del parsing... poi si vedrà
:-)))
TIA
Wiz of Id

 wrote in message
news:3A963C8B...@galactica.it...

Dipende dall'algoritmo che usi per creare la tua struttura

 Dipende dall'algoritmo che usi per creare la tua struttura
GOSH!!!! Roberto.... ??? ... vabbè... :-)))))
L'algoritmo (che è ancora troppo acerbo perché te lo possa scrivere come
si deve ;-))) prende i file con delle TAG da sostituire da una directory
template (5 o 6 files...), li parsa e li rivolta, li copia in una
directory appena creata. Il tutto per 2000 volte... e per altre 400 crea
directory analoghe ad un livello sotto alcune delle 2000....
I dati che prenderò dal MySQL serviranno a:
- sostituire le TAG
- Dare il nome alle dir
- Dare il nome ad alcuni dei file
- Sapere che dir creare, dove, e a che profondità
- Eventualmente *spostare* qualche file e/o qualche dir se la struttura
che si evince dal MySQL non corrisponde più perfettamente a quella su
disco (a regime si avrà un controllo/aggiornamento almeno ogni
settimana... ma lo scopo è poterlo fare pure ogni ora, volendo)
ANF... finito... serve altro? :-)
Wiz of Id
Newsgroup: it.comp.lang.perl
Titolo: decriptare

Salve,
come posso decriptare una parola precedentemente crittata e scritta su file di
testo, per poterla poi visualizzare in "versione" originale a video?
Ciao e grazie.
-- 
Posted from  [62.98.215.143] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 video?
Con che algoritmo e' stata criptata? 
Comunque, in genere, i medoti di decriptature delle password, immagino 
vogliate fare questo, non sono invertibili.
-- 
Saluti,
Giancarlo

 wrote in message
news:9onjsv$gho$1...@stargate1.inet.it...

-- 
Posted from  [62.98.214.158] 


 grazie
La funzione crypt puo' usare differenti algoritmi, comunque tutti 
non-invertibili.
-- 
Saluti,
Giancarlo

Newsgroup: it.comp.lang.perl
Titolo: http request

come posso fare uan richiesta http e stampare l'header della pagina?
grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio
news:ahjlf2$fhs$1...@news.newsland.it...


Ti connetti con Socket e sendy:
GET /pagina.html HTTP/1.0\n\n
Ricevi la pagina con gli head. Usi le RE pre prenderle separate dalla
pagina.
Ciao
Newsgroup: it.comp.lang.perl
Titolo: Perl and DB

Ciao a tutti, 
qualcuno sa indicarmi come accedere ad un DB oracle in ambiente UNIX e
quindi effetture una query redirigendo l'output su di un file. 
La shell da dove lancio lo script è una ksh. 
Grazie. 
 
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 La shell da dove lancio lo script è una ksh.
Non per iniziare un flame, ma non ti conviene usare sqlplus dove fai lo
spool verso un file di testo?
# mioscript.sh
./home/pippo/sqlplus @/home/pippo/query.sql
# /home/pippo/query.sql
connect utente/password
set feedback off
spool /home/pippo/risultatoquery
select ...................
spool off
L'unico problema è che ti scrive sul file anche il testo della query (in
teoria lo puoi evitare con un'altra opzione di sqlplus che non ricordo
adesso, ma per esperienza so che non sempre funziona), ma lo puoi rifinire
con awk, perl, ecc
Paulus
--------------------------------
Inviato via 
http://usenet.libero.it

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

 quindi effetture una query redirigendo l'output su di un file. 
Se vuoi seguire la strada sborone (ME LO PROGRAMMO IIIIIIIIIOOOOOO IL
METODO!!!!), leggi la documentazione su DBI
Henryx
-- 
GnuPG fingerprint = 42F9 521B 63C7 89FE 354C  89FA 4E49 3E2D 2EB6 B014
Newsgroup: it.comp.lang.perl
Titolo: strutture complesse

Salve a tutti,
	vorrei chiedervi un paio di cose:
1)sapere come faccio a conoscere la struttura 
di un reference comunque complesso.
Mi spiego meglio:
<CODE>
@Torino=('Moncalieri','Collegno','Avigliana');
%Torino=(	regione=>'Piemonte',
		citta=>\@Torino,
		provincia=>'TO');
$citta=\%Torino;
</CODE>
Come faccio a sapere che $citta è composto da un hash che al suo
interno contene un reference a un array?
2) Sapere come faccio ad usare Storable.
Mi spiego:
<CODE>
use Storable qw( freeze thaw );
my $prova1 = {
    'nome' => 'Lina',
    'citta' => 'Torino',
    'lavoro' => 'segretaria',
};
my $storedValues = freeze( $prova1 );
open FILE, ">storable_archivio.txt";
print FILE $storedValues;
close FILE;
</CODE>
Ora vorrei fare un programma che mi legga tale file e mi ritiri fuori quei valori...
Ho provato a fare così ma non funziona:
<CODE>
use File::Slurp;
use Storable qw( freeze thaw );
open FILE, "storable_archivio.txt" || die "Non c'e' il file!!\n";
$variabile = read_file("storable_archivio.txt"); 
<CODE>
L'ouput è proprio nulla :-)
Grazie per le info.

 Grazie per le info.
Nei programmi in cui uso Storable io faccio cosi':
use Storable;
#dichiaro la variabile
my $hashref = {};
# se il file e' stato creato, leggo i valori
# altrimenti, vado a inizializzare i dati
$hashref = retrieve($archivefile) if -f $archivefile;
# ...
# alla fine del programma, salvo i dati sul file
store $hashref, $archivefile;
Ciao
gmax
-- 
   ____ ____  _____ _   _
  / _  |    \(____ ( \ / )
( (_| | | | / ___ |) X (
  \___ |_|_|_\_____(_/ \_)
(_____|
Sapere, saper fare, fare, far sapere
http://gmax.oltrelinux.com

Ah, la fretta!
Ovviamente il codice corretto e' con "ref" non "$ref" :)
  if (ref($citta))
  {
      if (ref($citta) eq 'HASH')
      {
          # e' un hash,  trattalo come tale
      }
      elsif (ref($citta) eq 'ARRAY')
      {
          # lavoraci su come un array
      }
  }
  else
  {
       print $citta; # e' un normale SCALAR
  }
  Ciao


 $variabile = read_file("storable_archivio.txt"); 
anche qui binmode:
   $variabile = read_file("storable_archivio.txt", binmode => 1);
e poi:
   $prova1 = thaw($variabile);
ma come ti ha già suggerito gmax, usa store e retrieve che sono molto 
più semplici.
cheers,
Aldo

Newsgroup: it.comp.lang.perl
Titolo: Reg expr

Salve gente,
devo modificare tutti link di alcune pagine, ma ho un problema con le
ripetizioni (più link sulla stessa riga).
Ho fatto: 
$file[$i] =~ s/HREF="(.*\.html.*)"/HREF="httpecc...&page=$1"/gi;
Ho messo la g per risolvere questo, ma niente. Suggerimenti?
Grazie!
Ciao David

 $file[$i] =~ s/HREF="(.*\.html.*)"/HREF="httpecc...&page=$1"/gi;
Prova così.
       s/HREF="(.*?\.html.*?)"/HREF="httpecc...&page=$1"/gi;
Ma solo se sei sicuro che ogni attributo href abbia un '.html' dentro.
Altrimenti:
       s/HREF="([^"]*?\.html[^"]*?)"/HREF="httpecc...&page=$1"/gi;
 
Max
Newsgroup: it.comp.lang.perl
Titolo: Aiutino per neofita

print "Inserisci il valore della chiave da eliminare :";
$chi= <STDIN>;
print"\n";
print "Vuoi cancellare $chi\n";
delete($citta{$chi});
Perchè non mi cancella il valore dalla tebella Hash?
A me sembra tutto corretto.
Ho provato a mettere
delete($citta{'chiave'});
e funziona
Dove sbaglio?

Danny wrote:

Se avessi controllato con attenzione cosa contiene effettivamente lo 
scalare $chi, ti saresti reso conto che c'e` un ritorno carrello di troppo.
	$ perldoc -f chomp
-- 
Baci,
Mony

Grazie 1000
Ciao

Newsgroup: it.comp.lang.perl
Titolo: Cancellare un file

Ciao a tutti. Proseguendo nell'impresa di impararmi il Perl, mi sono trovato
di fronte al problema di cancellare un file. Non dovrebbe essere cosi'
difficile, ma se faccio:
	local($nomefile)=$_[0];
	open (FILEDATI,$_[0])

difficile, ma se faccio:
Devi usare:
unlink $nomefile;
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.italpro.com/mb/

 wrote:
Ok, slrn + joe (+ il sottoscritto) hanno fatto casino. Riposto il tutto:
------
Ciao a tutti. Proseguendo nell'impresa di impararmi il Perl, mi sono trovato
di fronte al problema di cancellare un file. Non dovrebbe essere cosi'
difficile, ma se faccio:
        local($nomefile)=$_[0];
        open (FILEDATI,$_[0])

Riproviamo da Win95. Scusate.

open (FILEDATI,$_[0]) || die ("Impossibile aprire il file");
[...]
close (FILEDATI);
print "</TABLE>\n";
print `rm $nomefile 2>&1`;
#	unlink("$nomefile")|| print "non riesco a rimuovere il file csv";
}
Solo in questo modo mi cancella il file, con unlink() non ci riesce.
Preciso che la procedura gira come cgi in un web server.
Ogni suggerimento sarà ben gradito. Scusate per i post mutilati.
-- 
Ciao
Nico

 Preciso che la procedura gira come cgi in un web server.
E fuori dal webserver cosa fa?
Cheers,
	Alessandro

 
L'ho testato togliendo tutto cio' che c'e' in mezzo (una chiamata via
DMS ad un altro programma che tra l'altro crea il file che dovrei
cancellare) e funziona bene (ovviamente creando il file
artificialmente). Ho controllato che il programma lanciato chiuda bene
il file, ma per ora non ho trovato niente di buono.
-- 
Ciao
Nico

 wrote:
: Ciao a tutti. Proseguendo nell'impresa di impararmi il Perl, mi sono trovato
: di fronte al problema di cancellare un file. Non dovrebbe essere cosi'
unlink $file;
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) ipers (dot) net   for my PGP public key

il file, ma per ora non ho trovato niente di buono.
Tieni presente che normalmente i cgi vengono eseguiti dal webserver come
"nobody", per cui se il file da cancellare non ha i permessi di scrittura
adeguati, non riuscirai a rimuoverlo, al cotrario fuori dal webserver non
dovresti avere problemi, a patto che tu sia logato come root o come
proprietario del file.
Ciao
Roberto Montanari
Newsgroup: it.comp.lang.perl
Titolo: cerco aiuto remunerato

Ho bisogno di realizzare un programma gestionale che utilizzi mysql o simili
per la gestione della base di dati.
Non è un lavoro difficile per uno che sa programmare, ma a me servirebbe
troppo tempo per imparare un linguaggio di programmazione, tempo che non ho.
Compenso da pattuire, 50% anticipato 50% alla consegna del lavoro.
Per informazioni e dettagli rispondere in privato, avendo cura di togliere
"odiolospam_" dall'indirizzo.
Garantisco e richiedo max serietà.
Buon anno nuovo a tutti!
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 
Forse questo puo' aiutare a impostare meglio la richiesta.
http://www.soft-land.org/cgi-bin/doc.pl?doc=commenti/lavoro
Buon anno.
Ciao
gmax
-- 
   ____ ____  _____ _   _
  / _  |    \(____ ( \ / )
( (_| | | | / ___ |) X (
  \___ |_|_|_\_____(_/ \_)
(_____|
MySQL Certified Professional
Sapere, saper fare, fare, far sapere
http://gmax.oltrelinux.com

Sono disponibile,
vorrei maggiori dettagli per valutare l'offerta.
Dispongo già di un gestionale sviluppato da me che potrebbe molto probabilmente essere semplicemente riadattato e che è stato sviluppato per un progetto di certificazione iso 9001.
gallus


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

Forse e' un problema banale ma accadendomi quanto segue chiedo dei
suggerimenti che saranno preziosissimi e per questo ringrazio
immensamente fin da ora.
Ho da poco tempo un server sul quale gira WIN NT 4.0. Ho installato
l'information server per attivare una gestione di pagine web. Ho
installato anche il Perl.
Avendo necessita' di gestire le form, mi capita che gli  script Perl che
ho scritto non vengono attivati al momento dell'invio della pagina.
Sembra che tra Perl e Information server non via sia nessun colloquio.
Un carissimo grazie a chi mi potra' fornire un suggerimento.
Saluti. Piero Andresciani.
pier...@fastnet.it

 wrote:
: Avendo necessita' di gestire le form, mi capita che gli  script Perl che
: ho scritto non vengono attivati al momento dell'invio della pagina.
: Sembra che tra Perl e Information server non via sia nessun colloquio.
Non hai dei log da farci vedere?
-- 
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: 2 domande

Salve al Newsgroup,
la prima domanda è come posso fare in una tabella che per i dati da una
directory in base a quanti sono i file creare un sistema a lettura
facilitata
es
1 riga sfondo x
2 riga sfondo y
3 riga sfondo x
.......
ho usato questo ma nulla da fare
$numfiles = @allfiles;
$numfiles = $numfiles +1;
$numototmez=($numfiles/2);
$numototint=int($numfiles/2);
if ($numototmez=numototint) {
 $COLORE = FFFFFF;
 }
else {
 $COLORE = DFDFDF;
}
Seconda domanda:
sapete qualche url dove trovare esempi di paginazione?
Scusate la mia ignoranza in materia perl ma uso ASP di solito.
Grazie
 }

 sapete qualche url dove trovare esempi di paginazione?
Ovvero? Intendi roba tipo "far vedere una lunga lista di dati un po' per
pagina"?
Non ti so aiutare. Mi sembra che l'approccio minimalistico e' legato a tenere 
una variabile-contatore hidden nel form o messa nell'URL e usarla come punto
di partenza nella costruzione della
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: non capisco il risultato ...

Una pagina html con un form (trasmesso con il metodo post)
richiama il seguente codice:
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@coppie = split(/&/, $buffer);
foreach $coppia (@coppie) {
   ($nome, $valore) = split(/=/, $coppia);
    $valore =~ tr/+/ /;
    $valore =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $HASH{$nome} = $valore;
}
print ("Content-type: text/html\n\n");
print "<html>\n";
print "\n";
print "<head>\n";
print "<title>form trasmesso</title>\n";
print "</head>\n";
print "\n";
foreach $key (keys(%HASH)){print"$key=$HASH{$key}<br>"};
print "</body>\n";
exit 0;
Perchè l'ordine delle informazioni stampate non corrisponde a quello del
form di immissione ?
Quali regole segue per l'ordine di stampa?
Ciao e grazie

form di immissione ?
Gli hash non sono strutture ordinate, quindi la stampa avviene appunto a
caso. ;) Se vuoi ordinare la stampa secondo le chiavi puoi scrivere:
foreach $key (sort keys(%HASH)) { print"$key=$HASH{$key}<br>"; }
Questo ti puo` permette di ricostruire l'ordine della pagina se anche
in essa metti gli INPUT in ordine alfabetico. Alternativamente puoi
ricostruire l'esatto ordine modificando la funzione che fa il
parsing dei parametri, in modo tale che essi vengano inseriti ad esempio
in un array anziche' in un hash. Questo funzionera` sempre che il
browser non mescoli a sua volta i parametri prima di inviarli, non
ho mai investigato...
	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: errore can't call method value on an undefined value at ... RawInflate.pm line 64

sistema: Debian Etch - 2.6.18-6-486
Dopo uno spegnimento accidentale, mentre perl stava aggiornando un 
modulo,adesso continua a dare lo stesso errore:
# cpan Bundle::CPAN
CPAN: File::HomeDir loaded ok
Going to read /root/.cpan/sources/authors/01mailrc.txt.gz
CPAN: Compress::Zlib loaded ok
Can't call method "value" on an undefined value at 
/usr/local/share/perl/5.8.8/IO/Uncompress/RawInflate.pm line 64.
ho dato un'occhiata a diverse risposte
e provato alcune, ma senza risultati.
Ho provato a reinstallare perl senza risultato.
Volevo fare una rimozione totale del perl,
ma avrei disinstallato meta' sistema.
qualche idea?
ciao
Beppe

 # cpan Bundle::CPAN
Per quanto mi riguarda, non uso mai cpan con il perl di sistema,
preferendo di gran lunga utilizzare un perl compilato per me solamente
lasciando al sistema il suo.
Nel tuo caso credo che tu sia andato ad installare qualcosa su
pacchetti già pronti per Debian. Proverei a vedere se c'è un modo di
ripristinare questi pacchetti utilizzando apt o qualcosa di simile
piuttosto che farlo "a mano".
Ciao,
   Flavio.

Newsgroup: it.comp.lang.perl
Titolo: significato operazione di sostituzione

Qualcuno sa dirmi che cosa serve questa operazione di sostiuzione?
$buffer =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
Ciao,
--Gabriele


In teoria, serve per prendere due caratteri e trasformarli nel
corrispondente valore decimale.
Ex:
	1A -> 26
	FF -> 255 
Ciao,
-- 
+------------+ ASCII ribbon campaign ( )
|  KRaLizEc  |  - against HTML email  X 
+------------+              & vCards / \

 Ciao,
Forte !!! Sto imparando il perl ed ho quindi imparato una cosa nuova.
my $buffer = "%41%42%43";
$buffer =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
print $buffer . "\n";
Stampa i caratteri ABC
Newsgroup: it.comp.lang.perl
Titolo: Dubbio .pl!

Ciao a tutto il NG!
Vorrei sapere se uno script perl lanciato su un pc che non ha l'interprete
perl venga eseguito lo stesso senza problemi, o se necessita per forza di un
interprete.
C'č un modo per fare questo?
Ciao e grazie!

 C'è un modo per fare questo?
Certo, puoi compilare lo script e renderlo eseguibile. Ne perdi in 
portabilita`, dato che funzionare solo sulla piattaforma per cui l'hai 
compilato, ma non necessitera` piu` dell'interprete.
	perldoc perlcc
-- 
Baci,
Mony


Scusami, ma sono nuovo nel perl.
Potresti essere piů chiara riguardo alla compilazione di un 
file.pl
 per
renderlo eseguibile su una piattaforma tipo windows o unix, senza che esse
abbiamo l'interprete perl?
Grazie tanto.
Ciao!

 esse abbiamo l'interprete perl?
Puoi usare Perl2Exe:
http://www.indigostar.com
	Michele.
-- 
Michele Beltrame
http://www.italpro.net/mb/
ICQ# 76660101 - e-mail: 
m...@italpro.net

 > Potresti essere più chiara riguardo alla compilazione di un 
file.pl
 per

Scusate, ma mi sfugge qualcosa.
Ho scaricato il Perl2exe e l'ho scompattato in c:\ dove uso perl, ma quando
lancio il comando
perl2exe 
file.pl
, mi da questo errore: Perl2exe v5.03 C.....
                                                        ERROR: Invalid
platform: win32.
Che cacchio significa, uso wind98se, la mia versione di perl è la v5.6.1 di
cui ho scaricato il rispettivo Perl2exe per la versione in questione, e mi
esce questo messaggio?
Avete una risposta?
Grazie a tutti.

 platform: win32.
Hai scaricato proprio il file p2x-5.03-Win32.zip ??

 Hai scaricato proprio il file p2x-5.03-Win32.zip ??
Si, il c:\\perl\bin ce l'ho!
E ho scaricato proprio il file p2x-5.03-Win32.zip.
In pratica il perl mi funziona benissimo.
Ma non ho capito cosa hai voluto dire, la domanda l'ho fatta io.
Voglio solo sapere che devo fare.
Grazie.

 Ma non ho capito cosa hai voluto dire, la domanda l'ho fatta io.
Cercavo di capire l'eventuale problema.
Anche io utilizzo perl2exe su W98Se e funziona.
Comunque prova a mettere perl2exe (e TUTTI i file contenuti
nello zip, non solo perl2exe.exe) in una cartella a sé stante 
(es. c:\windows\desktop\perlexe), vai dentro questa cartella
e riprova.
Al limite prova a scrivere due righe in inglese ai produttori:
sup...@indigostar.com

 wrote in message
3C7FF799...@friuli.com...

Acc, funziona!!
Ho risolto mettendo tutto in una cartella come mi hai consigliato tu.
Finalmente!
Grazie ancora dell' aiuto.
Ti saluto, a presto.
Newsgroup: it.comp.lang.perl
Titolo: click counter

sapete se c'č in giro sui internet qualche script perl gratuito che funzioni
come click counter, tenendo conto anche dell'IP di colui che clicca, di modo
che se clicka due volte su di uno stesso link si abbia un solo incremento.
grazie
Luca

 che se clicka due volte su di uno stesso link si abbia un solo incremento.
Ci sono moltissimi siti che raccolgono cgi gratuiti.
Sui contatori ad es.
http://cgi.resourceindex.com/Programs_and_Scripts/Perl/Access_Counters/
http://www.hotscripts.com/CGI_and_Perl/Scripts_and_Programs/Counters/index.html
http://www.scriptsearch.com/Perl/Scripts_and_Programs/Counters/
http://perlarchive.com/guide/Counters/index.shtml
e molti altri.

Ti ringrazio, ma conosco i siti che mi hai indicato ed anche qualcun altro,
ma stavo cercando uno specifico programma che non ho trovato.
ciao
Luca

 ma stavo cercando uno specifico programma che non ho trovato.
Avevi scritto:
<<tenendo conto anche dell'IP di colui che clicca, di modo
che se clicka due volte su di uno stesso link si abbia un solo incremento.>>
Non mi sembra una strategia efficace visto che, se la persona non 
possiede un ip statico (credo la maggioranza), la stessa persona sarebbe 
abilitata a cliccare più volte in momenti diversi della sua navigazione 
(oppure potrebbe usare un proxy, sempre diverso).
Un metodo ragionevolmente sicuro è quello di usare i cookie (ma non 
sicuro al 100%, perché potrebbe non averli abilitati oppure potrebbe 
cancellare quello che utilizzeresti tu.
Insomma non mi pare ci siano metodi sicuri in assoluto ma ritengo che un 
cookie sia quello ragionevolemnte più adatto allo scopo.

Ti ringrazio dell'utile chiarimento, perrò avrei bisogno di sapere se
esistono degli script gratuiti in giro su internet del tipo che tu dici,
sempre relativamente ai click counter
ciao e grazie
luca

 sempre relativamente ai click counter
Scusa, ho capito male. A te serve un click tracker, tipo questi:
http://www.freeperlcode.com/guide/Web_Site_Statistics/Click_Trackers/
http://www.hotscripts.com/Perl/Scripts_and_Programs/Click_Tracking/
http://www.refdev.com/free_scripts/Perl/Click_Tracking/
non i counter dunque ma i tracker. Non so indicartene uno in 
particolare, mi spiace. Leggi però le caratteristiche dei più scaricati 
e votati e scegli :)

ok, grazie,
buon natale
luca
Newsgroup: it.comp.lang.perl
Titolo: Full Screen Editor

	Un saluto a tutti,
	utilizzo da poco il perl per fare degli script su sistemi Aix
e Ux per facilitare le operazioni dell'utenza. 
	Mi chiedevo se esiste un modulo che permetta di creare delle
maschere per l'inserimento facilitato dei campi a tutto schermo (del
tipo di quelle del CICS, RPG, o dei vari database DB3, ACCESS etc.
etc.)
. 	Volevo costruirmele ma se ci fosse qualcosa di gia' fatto (e
standard) ...
	Sapete darmi quanche info in merito?
	Grazie in anticipo!
	Bye.
Enzo Marinacci - Roma   (Italy) 
http://www.bns.it/EMware
*** Rimuovere NO-SPAM per rispondermi in E-Mail! ***

 wrote:
: 	utilizzo da poco il perl per fare degli script su sistemi Aix
: e Ux per facilitare le operazioni dell'utenza. 
: 	Mi chiedevo se esiste un modulo che permetta di creare delle
: maschere per l'inserimento facilitato dei campi a tutto schermo (del
: tipo di quelle del CICS, RPG, o dei vari database DB3, ACCESS etc.
: etc.)
: . 	Volevo costruirmele ma se ci fosse qualcosa di gia' fatto (e
: standard) ...
: 	Sapete darmi quanche info in merito?
Prova Cdk (Collection of Curses widgets), PerlMenu (Curses-based menu
and template system).
Trovi tutto su un sito del CPAN (Comprehensive Perl Archive Network),
ad esempio 
ftp://cis.utovrm.it/CPAN/modules/by-module
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) ns (dot) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nandos

Carissimo Enzo nel tuo post del Fri, 29 Jan 1999 10:29:53 GMT scrivevi:
 EM: 	Mi chiedevo se esiste un modulo che permetta di creare delle
 EM: maschere per l'inserimento facilitato dei campi a tutto schermo (del
 EM: tipo di quelle del CICS, RPG, o dei vari database DB3, ACCESS etc.
 EM: etc.)
 EM: . 	Volevo costruirmele ma se ci fosse qualcosa di gia' fatto (e
 EM: standard) ...
 EM: 	Sapete darmi quanche info in merito?
perlmenu.pm
e` un modulo che utilizza le Curses e ti permette anche di creare facilmente 
delle maschere.
Lo trovi in qualsiasi  mirror CPAN.
-- 
 "Who needs Windows and Gates in a  | Andrea Serafino
  world without walls and fences?"  | e.mail: 
aser...@geocities.com

 wrote:
:  EM: 	Mi chiedevo se esiste un modulo che permetta di creare delle
:  EM: maschere per l'inserimento facilitato dei campi a tutto schermo (del
:  EM: tipo di quelle del CICS, RPG, o dei vari database DB3, ACCESS etc.
:  EM: etc.)
:  EM: . 	Volevo costruirmele ma se ci fosse qualcosa di gia' fatto (e
:  EM: standard) ...
:  EM: 	Sapete darmi quanche info in merito?
: 
perlmenu.pm
: e` un modulo che utilizza le Curses e ti permette anche di creare facilmente 
: delle maschere.
: Lo trovi in qualsiasi  mirror CPAN.
Ho sentito parlare bene del Cdk (Collection of Curses widgets), ma non l'ho
mai provato.
Nessuno che abbia voglia di recensirlo?-)





Newsgroup: it.comp.lang.perl
Titolo: Un aiuto con LWP, per favore.

Salve,
devo simulare un form HTML con uno script in Perl.
Il form invia i dati ad un cgi. I dati vengono inviati
con la codifica multipart/form-data. Il problema che
ho è che mi ritorna indietro la pagina HTML con tutti
i dati inseriti nei rispettivi campi <input type=> ma non
i risultati. Posto il codice qui sotto:
 
use LWP::UserAgent;
use HTTP::Request::Common;
@content=(program=>"SAGE14",database=>"human|seq",alignments=>"1",sequence=>"ATGTGGCTGCTTTTAACAATGGCAAGTTTGATATCTGTACTGGGGACTACACATGGTTTGTTTGGAAAATTACATCCTG",seqident=>"",matrix=>"blosum62",filter=>"default",expect=>"10",cutoff=>"default",strand=>"default",descriptions=>"20",checkbox=>"1",ignore=>"1");
$ua = LWP::UserAgent->new;
$ua->agent("Expr Level 0.1");
$req = $ua->request(POST 
'
http://tigrblast.tigr.org/tgi/index.cgi/1
',Content_Type=>'multipart/form-data',Content=>\@content);
print $req->content;
Grazie per il vostro aiuto.
Giuseppe

 wrote in message
news:aodva8$lq3ko$1...@ID-154800.news.dfncis.de...


 
 -.. ---    
 -. --- -    
 - --- .--. -....- .--. -- - ... - 
 .--. .-.. . .- ... .
 ---... -....- -.--.-
Max

 wrote in message
news:Pine.LNX.4.21.021014...@localhost.localdomain...


.. -
"MORTO, IL POLSO!", come diceva sempre il mio sergente istruttore. Gli si
dev'essere irrigidito un attimo (il polso, sempre):
 ERRATA:
   - --- .--. -....- .--. -- - ... -
 CORRIGE:
   - --- .--. -....- .--. --- ... -
Quota giusto.
Ciao.

 wrote in message
news:0bolqu0bfova0ga6g...@4ax.com...


---... -....- -.--.-
Il mio corso non arrivò mai ai segni d'interpunzione (tantomeno alla
velocità), nonostante sia durato quasi un mese più del solito: ci hanno
massacrato di servizi e guardie.
Per di più, come ci dicevano all'epoca, il morse si dimentica con una
facilità impressionante, se non si pratica (ed è passata un'enormità
d'anni).
Comunque, è una faccina: :-)  
Non escludo che siano stato elaborati codici appositi con significati
analoghi.
Ciao.

 wrote in message
news:qpnnqugqkc1pdmh76...@4ax.com...


:-)
D'accordo (a parte che io vedo Convert::Morse, e comunque non mi abbasserei
mai: io, premiato terzo migliore marconista nel mio corso, figurarsi...),
ma, anche in chiaro, "quota decentemente":
  --.- ..- --- - .-  -.. . -.-. . -. - . -- . -. - .
  daa daa di daa
  di di daa
  daa  daa daa
  daa
  di daa...
Tanto lo sappiamo che sei capace, mica ce la fai più a passare per lamer.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: copiare file in una stringa

C'ï¿œ una soluzione piï¿œ elegante per rimpiazzare questo codice?
     open(TEMPL,"<miofile.html")
         || print "Errore: impossibile aprire il file miofile.html<br>\n";
     while ($riga = <TEMPL>)
     {
      	$rigares .= $riga;
     }
     close(TEMPL);
# E.

?manu* wrote:

my $rigares = do { local $/; <TEMPL> };
(Convenzionalmente si chiama /slurping/).
Ciao
-Emanuele

>      open(TEMPL,"<miofile.html")
/me piange...

 -Emanuele
Tutto in una riga, compresi apertura, controllo errore e chiusura:
my $rigares = do {local (@ARGV, $/) = ('miofile.html'); <>}
Matt S. Trout docet!

 my $rigares = do {local (@ARGV, $/) = ('miofile.html'); <>}
++
s.
-- 
Stefano Rodighiero      |  
http://www.stefanorodighiero.net
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it

 Matt S. Trout docet!
L'ha scritto pure in maniera che non dia il warning, diavolo d'un Matt :-)

 # E.
$a=`cat /root/file.txt`
open "mn","| Xdialog --title test --msgbox '$a' 0 0";
close "mn";
-- 
Qui si usa Linux.
http://www.puppylinux.org
#296_09

Newsgroup: it.comp.lang.perl
Titolo: per chi conosce anche PHP (non linciatemi!!)

Ciao,
    lo so che molti mi vorranno linciare, ma non so bene come funziona il
pattern matching con PHP
Vorrei tradurre questa istruzione in PHP:
$testo =~ s/<%([a-zA-Z]*)%>/$mioArray{$1}/g;
sapete come si fa?
Provate (se ne avete voglia) a tradurre ad esempio questo script:
#!/usr/bin/perl
$testo = 'Ciao <%NOME%>, come stai? domani vado a <%DESTINAZIONE%> con
<%AMICO%>!';
%mioArray=( 'NOME' => 'Pippo',
   'AMICO' => 'Pluto',
   'DESTINAZIONE' => 'Roma');
print $testo."\n\n";
$testo =~ s/<%([a-zA-Z]*)%>/$mioArray{$1}/g;
print $testo."\n";
L'output è:
Ciao <%NOME%>, come stai? domani vado a <%DESTINAZIONE%> con <%AMICO%>!
Ciao Pippo, come stai? domani vado a Roma con Pluto!

prova su it.comp.lang.php se non ricordo male ...
Ciao


Newsgroup: it.comp.lang.perl
Titolo: Perl Reference Guide

In mano al mio insegnante di informatica ho visto la guida in oggetto che
lui ha scaricato da Internet. Mi ha raccontato che al momento di scaricarla
gli furono chieste le caratteristiche della stampante e se voleva stamparla
in fronte-retro ottenendo cosi' un pratico pieghevole.
Purtroppo non si ricorda dove l'ha presa e io sono solo riuscito a trovarne
l'immagine qui 
http://www.squirrel.nl/people/jvromans/perlref.html
 , e'
quella in alto, la didascalia dice che e' disponibile grati su Internet.
Qualcuno la conosce e sa darmi delle indicazioni piu' precise?
Grazie di cuore
Riccardo Innocenti
g i o c a m e l a @
conmet.it
 Quando Deve essere un file

 Qualcuno la conosce e sa darmi delle indicazioni piu' precise?
Dovrebbe essere quella. E' un file TAR con dentro gli script per generare la
quida nel formato adeguato alla stampante (postscript, ovviamente),
permettendo di tarare la centratura della pagina nel foglio.
Di fatto nella pagina che indichi c'e' il link per scaricarla da CPAN.
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: installare Perl su winXP

Ciao a tutti, potete dirmi dove poter scaricare una versione di Perl per
windowsXP ?
Grazie anticipatamente

 windowsXP ?
Per tutti i win il Perl lo trovi sul sito ActiveState:
http://www.activestate.com/Products/Download/Download.plex?id=ActivePerl
(per Xp non serve l'installer 2.0, per cui ti serve solo il .msi del Perl)
Tra i due: build635 (Perl 5.6.1) e build805 (Perl 5.8.0), credo sia 
ancora preferibile la 635 per numero di pacchetti compatibili. Invece la 
805 se hai necessità di thread e/o Unicode.
IMHO.

Newsgroup: it.comp.lang.perl
Titolo: perl odbc mysql

Salve ragazzi.
Vorrei connettere un macchina windows nt ad un database mysql presente su 
server Linux.
Sul server linux ho mysql perfettamente funzionante.
Su windows nt ho installato l'interprete perl (activestate) e il modulo 
dbi:odbc (con ppm).
Ho già configurato il driver odbc per la macchina remota.
Vorrei fare una prova di connessione con uno script perl ma non so bene da 
dove partire.
Qualche suggerimento o link su cui posso documentarmi ?
Grazie anticipatamente!
Johnny

 Qualche suggerimento o link su cui posso documentarmi ?
   L'ultra-ovvio 
http://dbi.perl.org/
-- 
Alla prossima,
Marco

 dove partire.
Innanzitutto perché fare il giro largo con ODBC quando ti servirebbe
solo DBD::mysql?
	- Enrico

Enrico Sorcinelli wrote:

Il mio vorrebbere essere un primo passo per poi provare con db diversi da 
mysql.
Ho iniziato con mysql perchè è quello che conosco meglio.
Newsgroup: it.comp.lang.perl
Titolo: Conoscete Aruba?...

Ho bisogno di pubblicare alcune pagine su Internet con degli script perl,
conoscete qualche buon provider che sia anche economico? Aruba puň andar
bene?
Grazie...

 ha scritto nel messaggio
news:8hlrck$qc0$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.perl
Titolo: Recupero parametri

Salve,
volevo esporvi un piccolo problema, a cui non ho trovato risposta nei
vecchi post.
Io ho una form HTML che mi richiama uno script cgi,il mio problema e' che
non ho capito  come all'interno dello script prendere i valori che gli 
passo mediante la form.
La form e' cosi' fatta:
...
<FORM METHOD=POST ACTION="ciao.cgi">
<INPUT type="text" NAME="pippo">
<INPUT type="text" NAME="pluto">
<input type=submit value="CONTINUA">
...
Come faccio dentro a ciao.cgi a prendere i valori che ho introdotto
per pippo e pluto ?
Grazie a tutti per l'aiuto.
		Fabio Barboni

Fabio wrote:

use CGI  ;-)
Guarda sotto 
http://www.verysimple.com/scripts/CGI.html
 oppure (se lo trovi
ancora) prova con il semprevivo 20-linee-di-codice &read_parse() (se non lo
trovi, scrivimi  e te lo spedisco)
Ciao,
   Samuele





puoi anche usare il modulo CGI, con la seguente 
sintassi:


 


use CGI param;


 


$a=param ("textfield1");    #$a 
conterrà pippo




$b=param ("textfield2");    #$b 
conterrà pluto


 


se hai pochi valori da passare questo è il modo 
migliore, che cmq puoi utilizzare anche se ne hai molti, 
ovviamente...


 




intanto method="post" post lo metterei tra virgolette :-))
o va anche senza?? mai provato!
poi devi prendere i dati contenuti nel post dal STDIN con una cosa tipo
read (STDIN, $Input, $ENV{"CONTENT_LENGTH"});
ora dentro alla variabile $Input ha una riga di dati tipo
pippo=datoinserito1&pluto=datoinserito2&submit=continua
dove datoinserito1 e 2 stanno per le cose che vengono inserite nei campi
ora viene il bello della gestione dei formulari, cioe' l'affettare i dati
:-)
con il comando split
@Input = split (/&/, $Input);  # metti nella lista Input i vari campi
separatamente
$Input1 ="@Input[0]"; # poi li prendi e li rispezzi per levarci il nome
fastidioso davanti tipo pippo o pluto
@Dato1 = split (/=/, $Input1);
$Dato1 ="@Dato1[1]";
$Input2 ="@Input[1]";
@Dato2 = split (/=/, $Input2);
$Dato2 ="@Dato2[1]";
ora hai nella variabile $Input1 il valore di pippo e in $Input2 quello di
pluto
indubbiamente ci sono anche altri metodi , per esempio con grep, ma dipende
da come vuoi che lavori lo script.
comunque se stai lavorando su un script per formulari io metterei subito
dopo il
read (STDIN, $Input, $ENV{"CONTENT_LENGTH"});
una cosa tipo
$Input =~ tr/+/ /;
$Input =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
per convertire i caratteri speciali tipo gli spazi :-) in dati utilizzabili
Newsgroup: it.comp.lang.perl
Titolo: Perdo le variabili..........AIUTOOOOO!

Ciao a tutti
Ho un piccolo problemino con le variabili:
Supponiamo di avere un form (in un CGI PERL)dove l'utente inserisce il
proprio nome e cognome.
Nel successivo file leggo quello che l'utente ha inserito lo elaboro e
ridirigo il Browser ad un'altra pagina (CGI).
Ora ho perso i valori che l'utente aveva inserito.
Quale altro metodo ci può essere oltre a scrivere le variabili in un file?
Non riesco a trovare nulla che parli di questo.
Grazie a chi può darmi una mano.
Ciao Stefano

 wrote in message
94n5rj$k30$1...@nread2.inwind.it...


Newsgroup: it.comp.lang.perl
Titolo: richiamare un file exe/bat/cmd





Ciao a tutti,


premetto che sono inesperto di perl, volevo sapere 
se era possibile che il codice perl possa richiamare un eeseguibile sul 
server.


 


La situazione è la seguente: voglio che quando un 
client richiami una pagina http questa faccia eseguire un .bat sul 
server.


 


Grazie 





system?
http://perldoc.perl.org/functions/system.html
  Raffaello

 Devo settare qualche altra cosa per grantare i diritti?
Se usi i .bat presumo tu sia su un server Winzozz, sotto *nix il www deve 
poter eseguire il file chiamato.
Mi spiace ma con i server Window$ la mia esperienza e' limitata.
  Raffaello

Tutto Apposto!
Funziona.
A titolo di cronaca bastava grantare i diritti anche ai vari bat che il bat
principale richiamava!

Newsgroup: it.comp.lang.perl
Titolo: Informazioni per iniziare

Salve a tutti,
Vorrei iniziare a studiare il PERL, purtroppo non riesco a trovare
informazioni su libri fatti bene, voevo chiedervi se tra di voi ci
fosse qualcuno che saprebbe indirizzarmi verso un libro che tratti il
PERL partendo dalla sintassi di base, dalla struttura del linguaggio
in modo che possa acquisire una giusta conoscenza che mi permetta poi
di affrontare argomenti successivi come i moduli ecc......
Vi ringrazio in anticipo
Claudio Bellucci

 wrote in message
39e2c2c7...@news.interbusiness.it...


di affrontare argomenti successivi come i moduli ecc......
Programming Perl
Larry Wall, Tom Christiansen, Randal L. Shwartz
O'Reilly & Associates
AKA "Tha Camel Book"
-- 
Saluti,
Giancarlo
Newsgroup: it.comp.lang.perl
Titolo: Passaggio di parametri

Ciao a tutti!
Eccomi di nuovo qui a chiedere il vostro aiuto :o)
Devo passare dei parametri da un file html ad uno perl, ma voglio farlo
attraverso un link, e non attraverso una form... è possibile?
La mia idea è di usare la seguente sintassi:
<a href="http://.../file.cgi?lingua=italiano>file.cgi</a>
dove lingua=italiano è il parametro da passare.
Nel file perl, invece, per leggere i parametri in input uso:
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
Ovviamente non funziona, altrimenti non starei scrivendo questo messaggio!
Avete dei suggerimenti??
Manuel D'Elia

 Ovviamente non funziona, altrimenti non starei scrivendo questo messaggio!
Non funziona perche' se passi i parametri tramite GET (stringa) anziche' 
tramite POST (stringa O form) li trovi nell'environment come 
QUERY_STRING - e una sintassi diversa.
Siccome i tuoi script dovrebbero funzionare con entrambi i metodi 
dovresti guardare nella variabile d'environment che dice se il metodo e' 
stato un GET o un POST e comportarti di conseguenza.
Io però suggerisco:
use CGI;
use strict;
my $q=new CGI;
my $lang;
$lang=$q->param('lingua') or no_language();
....
Che fa tutto automaticamente.
Il che non sotituisce la lettura di un po' di documentazione sul tema in 
esame.
Cheers,
alf
Newsgroup: it.comp.lang.perl
Titolo: regexp (2)

sono alla mia terza regexp (!!!)
stavolta la stringa e' composta da qualcosa come
31231 313 1sdfjnojnao
tab (o 4 spazi)12345678tab(o 4 spazi)1-15cifre/55(tab o altro)
asd asd 3423
etc
avevo provato con
$var = "    29091213    12.233.43/23    pinco pallino"
$var =~ /\t\d{8}(\t{1}|(\s\s\s\s){1})w[1..15](\/)d{2}\D+/;
print $var;
ma non mi funziona (mi stampa tutto)
:(
-- 
Umin
n. p.: Ludovico Einaudi - Fuori dal mondo

:(
Eddagli! il risultato del match non va nella variabile su cui effettui il
match.
Se non specifichi nulla, vengono create le variabili $1, $2, ecc., una per
ogni gruppo. Altrimenti puoi scrivere qualcosa come:
    @trovati = ($var =~ /\t\d{8}(\t{1}|(\s\s\s\s){1})w[1..15](\/)d{2}\D+/);
    print $trovati[0];
    print $trovati[1];
    ...
oppure:
    ($trov1, $trov2, $trov3) = ($var =~
/\t\d{8}(\t{1}|(\s\s\s\s){1})w[1..15](\/)d{2}\D+/);
     print $trov1;
     print $trov2;
     ...
L' espressione non l'ho controllata, e non so se vada bene e che cosa
faccia.
Ciao.

 match.
[...]
negli esempi trovati mi era parso di trovare cose come quelle sopra 
comunque e' proprio una cosa che non mi e' ancora molto chiara
beh, continuero' a studiarmela meglio
grazie comunque
-- 
Umin
n. p.: Yann Tiersen - Le moulin

 grazie comunque
mi quoto e mi rispondo: ho risolto (almeno, funziona)
non so se e' il metodo migliore o piu' efficente ma ho scritto cosi':
dalla stringa:
"19981210	123.456.7.8/19	ALLOCATED PA";
$classe_ip =~ /(\t(\d|\.)+\/\w{2}\t)/;
print "\n$1\n";
123.456.7.8/19
certo che se sei un'attimo distratto, o meglio, se non sei concentrato 
al 100% queste regexp sembrano geroglifici!
-- 
Umin
n. p.: Richard Ashcroft - Everybody

Se devi trovare l'ip in una stringa come questa:
"19981210  123.456.7.8/19  ALLOCATED PA";
puoi fare:
$classe_ip =~ m#\^d+\s+([\d\.]+/\d{2}).*$#
print "\n$1\n";

C'è chi si è preso la briga di implementare le espressioni regolari
per questi compiti più ripetitivi, prova a dare un'occhiata a:
http://search.cpan.org/~abigail/Regexp-Common-2.120/lib/Regexp/Common.pm
Ti faccio inoltre notare che la netmask potrebbe anche avere un solo
carattere (ad esempio, gli indirizzi di "classe A" hanno /8), per cui
dovresti utilizzare \w{1,2} o, meglio, \d{1,2} (come suggerito da
Daniele).
Ciao,
   Flavio.

Newsgroup: it.comp.lang.perl
Titolo: SCRIPT CGI MULTIUSER

ciao a tutti, sono nuovo di questo linguaggio, quindi siate clementi...
ho scaricato uno script per il login di più utenti.
Come faccio a creare il file .htpassword?
che ci devo mettere dentro?
Grazie
Andrea

 che ci devo mettere dentro?
Non ha a che fare direttamente con il perl, è una funzionalità di 
apache. Ecco una pagina con delle istruzioni (trovata con 
google.com
):
http://www.diludovico.it/guide/proteggi.shtml
Visto che sono semplici file di testo, li puoi creare usando la open:
perldoc -f open