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

Salve a tutti
dovrei progettare un newsgroup per un mio sito e penso che in javascript non
lo si possa fare..
vi chiedo  se si puo' realizzare in perl e nel caso affermativo , mi
potreste dare qualche informazione ..
ciao da antonio

potreste dare qualche informazione ..
Che tipo di informazione !!! Ce ne sono alcuni gratis da personalizzare in
giro. Se non conosci il perl e' la cosa piu' opportuna. Se invece conosci il
Perl programmalo pure, ma dimmi che informazione ti serve, o meglio cosa ti
manca, cosa non sai fare !
Io ne feci uno, dopo una settimana che avevo iniziato a studiare il Perl. E'
fatto piuttosto male, su piu' files, mettei risultati in un file di testo,
ha una interfaccia grafica ridicola etc... ma e' MOLTO semplice da fare,
quindi dacci un occhio:
http://cgisamples.virtualave.net/cgi-bin/bb_forum1.cgi
Da qui puoi capire come con le query string si puo' rispondere ad un dato
messaggio piuttosto che ad un'altro. (prendi solo spunto, visto che e' molto
mal fatto, ripeto !!)
Ah simula soltanto una gerarchia di messaggi che in realta' non esiste !!!
Volendo posso anche dirti come farne uno molto piu' serio, ma non mi sembri
abbastanza pronto :-)
Se invece non vuoi farlo, non vuoi insomma programmarlo, allora ce ne sono
tantissimi gratis in giro.
ALex

Newsgroup: it.comp.lang.perl
Titolo: Libri, Libri, Libri...

Salve a tutti gli appassionati del Cammello.
Vorrei acquistare alcuni testi della O'Reilly, tra cui il fantastico
Programming Perl, 3rd Edition, ma ho difficoltà a trovarlo. C'è qualche
bookstore italiano dove ordinarlo? Vorrei pagare in contrassegno.
 Nella mia città è un casino. Sono quasi 2 mesi che ho ordinato Programming
Python 2nd Edition ed ancora niente. Sono disperato.
Ciao
Giuseppe.
ps: A me interessano la versione in lingua inglese.

 Python 2nd Edition ed ancora niente. Sono disperato.
www.gorilla.it
ciao
Stefano

Newsgroup: it.comp.lang.perl
Titolo: Problema strano con inclusione cgi...

dunque un semplicissimo cgi che scrive  e quindi visualizza una immagine:
print "Content-Type: text/html\n\n";
print "<p><a href=\"$link[1]\" target=new><img src=\"$img[1]\" border=0
width=\"467\" height=\"65\"></a></p>";
che funziona...  se lo includo con un include php:
<? include("../cgi-bin/prova.cgi");?>
"Warning: Failed opening '../cgi-bin/prova.cgi' for inclusion
(include_path='.:/usr/local/lib/php') "
non funziona!... idem in shtml.
eppure sono quasi sicuro che all'inizio funzionava!?
Boh!
Qualche consiglio?
Grazie
Oxy

problema risolto:
in  php ho dovuto mettere l'url completo
in shtml campiare in :
<!--#exec cgi="/cgi-bin/prova.cgi" -->
Ciao:)
Newsgroup: it.comp.lang.perl
Titolo: mysql_insertid

Ciao a tutti,
usando DBI, faccio una inserimento di un record in una tabella mysql
dopo utilizzando la funzione mysql_insertid ne recupero l'id
dell'inserimento appena effettuato.
questo funziona correttamente fino a quando i record nella tabella non
superano il numero di 65535 infatti  dopo questa cifra la funzione
mysql_insertid mi restituisce sempre il valore 253.
Come mai???
come posso ovviare a questo problema???
SIMONE


Mi servono alcune informazioni per valutare la tua richiesta:
- versione DBI
- versione DBD::mysql
- struttura della tabella su cui hai il problema.
$ perl -MDBI -MDBD::mysql -le 'print "$DBI::VERSION $DBD::mysql::VERSION"'
$ mysql -e 'show create table nome_database.nome_tabella\G'
Ciao
gmax
-- 
 _  _ _  _
(_|| | |(_|><  The Data Charmer
 _|
http://datacharmer.org/


... e magari anche una porzione del codice Perl che usi per gestire la faccenda, non sarebbe male
ciao


Newsgroup: it.comp.lang.perl
Titolo: seek e altro su file

come funziona la seek in perl?
mi voglio spostare di riga in riga in un file di testo...
posso aggiungere in testa? come?
ciao e grazie! :o)


Bye, EB

Newsgroup: it.comp.lang.perl
Titolo: Convertire una stringa

Ho una stringa di marco e la devo trasformare in MARCO come faccio?
Marco /*-*\

 Ho una stringa di marco e la devo trasformare in MARCO come faccio?
$str = 'marco';
print $str =~ tr/[a-z]/[A-Z]/; 
# Oppure:
print uc($str);
Ciao
--ev
Newsgroup: it.comp.lang.perl
Titolo: apertura file lettura e scrittura

Ciao,
se scrivo:
open (FILE, "+<file");
leggo il file ma poi quando vado a scrivere e' come se facessi un append,
io vorrei che una volta letto il file sia vuoto,
suggerimenti ?
Andrea



chiudilo
close FILE;
e riaprilo in scrittura
open (FILE, "+>file");
attenzione, con la seconda istruzione sovrascirivi il file ex novo...
se è quello che vuoi, assicurati di aver fatto tutto quello che volevi
con i dati precedenti...
--
pigmalion at home
http://www.pigmalion.info/

 ha scritto nel messaggio
news:p036d09i4b9f5qc3d...@4ax.com...

Ciao Pigmalion,
grazie ma temo di non capire,
se devo aprire e chiudere 2 volte il file,
quale e' l' utilita di aprire come "+<" ?
Comunque la mia domanda sarebbe questa,
posso aprendo una sola volta il file leggerlo prima
e poi sovrascriverlo,
l' obiettivo finale sarebbe quello di modificare alcune righe di un file,
ho anche visto che il modulo Tie::File in proposito fa' questo.
Grazie
Andrea

e poi sovrascriverlo,
si, una volta aperto usi seek per spostarti all'interno del file e ci
scrivi quello che vuoi...
perldoc -f seek




Ciao!
Invece di usare '+<' usa '+>': questo ti permettere di leggere dal file e,
se provi a scriverci, crea il file se non esiste o se gia' esiste lo
cancella. Credo faccia al caso tuo. 
Mithenks

 Mithenks
Ciao,
quando apro il file con '+>' svuoto il file,
quindi non riesco piu' a leggerlo,
Andrea

 ha scritto nel messaggio
news:ba4ad01268hm29ur3...@4ax.com...

Ciao,
era proprio quello che mi serviva seek :))
Grazie
Andrea

 Andrea
Allora fai come suggeriva pigmalion, usando seek (o sysseek).
Per tornare all'inizio del file:
seek FILE,0,0;
Pero' in questo caso, anche tornando all'inizio del file, il documento in
se' non si cancella, ma i caratteri scritti ad esempio dall'inizio del
file in poi vanno a sovrascrivere quelli che gia' sono presenti nel file. 
Ad esempio de hai un file con scritto 'Ciao!', fai il seek all'inizio del
file e poi un semplice print FILE 'M', il file dopo conterra' 'Miao!'.
Mithenks

 Mithenks
Si infatti,
nel mio caso volevo modificare alcune righe di un file,
quindi riscrivendo non avevo questo problema perche' la lunghezza e' la
stessa,
Grazie,
Andrea

 Grazie,
A questo punto usa Tie::File! :^)
Ciao,
-- 
+--------+ | ASCII ribbon campaign ( ) | 
www.autistici.org/kral
|  kral  | |  - against HTML email  X  |
+--------+ |              & vCards / \ | my gpg id = 0x7C946947

 ha scritto nel messaggio
news:2joqucF...@uni-berlin.de...

Ciao Kral,
grazie per la segnalazione,
me ne sono accorto dopo,
comunque stavo lavorando su un sistema in cui e' installato perl 5.6.1,
e Tie::File e' installato dalla 5.8.0,
Andrea

 5.6.1, e Tie::File e' installato dalla 5.8.0,
Puoi cmq installare il modulo Tie::File!
Dai una letta a perldoc perlmodinstall.

Newsgroup: it.comp.lang.perl
Titolo: usare win32::api e wavein api

Salve,
        volevo sapere se secondo voi inceve di ripiegare su c++ potessi 
usare il modulo win32::api e l'api di windows waveform per registrare 10 
secondi di audio dal microfono incorporato del pc (windows vista).
� fattibile oppure visual c++ rimane l'unica scelta per gestire la cosa?
grazie 


probabilmente ce la puoi fare con Win32::API, ma dal momento che su
CPAN c'e' gia' Win32::SoundRec, direi che non ne vale la pena.
cheers,
Aldo

 CPAN c'e' gia' Win32::SoundRec, direi che non ne vale la pena.
Ok, volevo sapere se questi moduli (tra cui anche Win32::Sound) usano la 
"Waveform Audio Interface API" per gestire l'audio.
Sarei molto interessato a fare il tutto in Perl in quanto c++ � molto pi� 
ostico per me, per adesso.
Trovo molto interessante il modulo Win32::Sound (scritto 10 anni fa!) che mi 
ritorna i DEVICES e le informazioni relative!

 mi ritorna i DEVICES e le informazioni relative!
use strict;
use warnings;
use Data::Dumper;
use Win32::Sound;
my @devices = Win32::Sound::Devices();
my $device  = {};
foreach my $dev (@devices)
{
   my %device = Win32::Sound::DeviceInfo($dev);
   foreach (keys %device)
   {
       $device->{$dev}{$_} = $device{$_};
   }
}
print Dumper(\$device);
__END__;
con questo codice trovo infatti tutti i device installati! Quindi mi 
basterebbe in teoria prendere ad esempio "WAVEIN1" e passarlo all'altro 
modulo per la registrazione...
mi domando se con il modulo "SoundRec" posso creare una specie di callback, 
ovvero invece di salvare il file su disco mi ritorni ogni tot di bytes una 
parte del buffer, cos� che posso manipolare il raw audio data (magari 
convertirlo in mp3) o salvarlo io con altri metodi
Newsgroup: it.comp.lang.perl
Titolo: Perche' non rieco a sostituire "enter-invio" ?

$comm=~ s/\n/<br>/g;
dove "$comm"  č stringa di testo passata con un form (POST)
perche' non mi viene sostituito il carattere "enter-invio"
non č forse giusto "\n"?
Grazie e scusatemi per la domanda probabilmente banale.
P.s sprono sia arrivato il precedente msg simile, ma non dovrebbe!
Bye
F.

 non è forse giusto "\n"?


 non è forse giusto "\n"?


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

 s/[\r\n]{1,2}/<br>/g;
Non ho parole se non "mitico" come sempre!
Grazie.
P.s Ho un'altro problemino ma prima di scocciare
farò altri tentativi.
F.

Newsgroup: it.comp.lang.perl
Titolo: AIUTO con PERL. Non mi esegue le CGI

Non riesco proprio a far funzionare un programma che ho in CGI.
Avevo ActivePerl 5.63.qualcosa installato, l'ho disinstallato e ho
installato l'ultima versione, la 5.8.
Ho un server IIS 5.0
Ho controllato tutte le impostazioni (nel pannello di controllo>variabili
d'ambiente; nel server IIS il .pl risulta e anche il .cgi compilati
rispettivamente con perl.exe %s %s e perl.exe
NIENTE. Almeno prima mi interpretava il cgi come txt. Ora invece mi dice
proprio IMPOSSIBILE TROVARE LA PAGINA.
Ho postato questo problema anche qui
http://forum.html.it/forum/showthread.php?s=&postid=5912911#post5912911
 ma
per ora nessuno ha risposto. Ci sono le cose spiegate, forse, un po' più
chiaramente.
AIUTOOOOOO :((((
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

ho provato a compilare il file install.cgi dal dos con perl.exe e il msg che
mi da è questo:
can't locate lib/
date.pm
 in @INC<@INC contains: c:/perl/lib c:/perl/site/lib
.> at d:\poll2\cgi-bin\poll\install.cgi line32
che #€$£&% vuol dire????????


ho provato a compilare il file install.cgi dal dos con perl.exe e il msg che
mi da è questo:
can't locate lib/
date.pm
 in @INC<@INC contains: c:/perl/lib c:/perl/site/lib
.> at d:\poll2\cgi-bin\poll\install.cgi line32
che #€$£&% vuol dire????????
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

che #€$£&% vuol dire????????
Che non è installato 
date.pm
, come ti hanno già detto sul forum web.
Probabilmente non si tratta di un pacchetto a sé stante, ma di un file di
un qualche pacchetto, che avrà, come tutti, un suo nome. Si tratta di
rintracciare il pacchetto a cui appartiene; controlla la precedente
installazione di perl, o cerca con google, o altro.
Ciao.


--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.lang.perl
Titolo: confronto tra file

Ciao, Vorrei sottoporre un problema a chi sicuramente è piu' esperto di me.
Premetto che sono alle prime armi.
Ho bisogno di fare un confronto tra due file:in questi di file ci sono delle
liste di nomi , alcuni comuni ad entrambi ,altri diversi. Vorrei confrontare
i 2 file (file A e file B) e modificare il file A aggiungendo i nomi
presenti solo su B e cancellando i nomi presenti solo su A.
Spero di essermi spiegato, accetto tutti i consigli possibili.
grazie ,francesco
--------------------------------
Inviato via 
http://usenet.libero.it

presenti solo su B e cancellando i nomi presenti solo su A.
Per costruire una procedura ad hoc bisognerebbe avere più informazioni. Ci
sono comunque diversi moduli per calcolare la differenza tra due testi; in
particolare, DiffLine ha un nome promettente. 
Considera anche la possibilità di usare diff (GNU o qualche altra sua
incarnazione), o qualche programma dedicato per il controllo di revisione
(cvs o chi per lui).
Ciao.

presenti solo su B e cancellando i nomi presenti solo su A.
Scusa, ci ho fatto caso solo adesso e forse capisco male la descrizione,
ma: (A intersecato B) unione B non è semplicemente B?
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: URGENTE UTILIZZO SOUPERMAIL O SIMILI

Sto cercando di utilizzare in qualche modo il CGI di SOUPERMAIL.
Io dovrei creare un form-mail per l'invio quindi di e-mail dal web a
più utenti che saranno sempre gli stessi e con la possibilità di
allegare un file.
Con questo CGI non sto capendo, anche se mi hanno detto che è
possibile a fare ciò.
Come devo configurarlo. Qualcuno me lo sa spiegare bene?
Se esistono altri modi più semplici, potete indicarmeli?
Grazie mille già ora se mi aiutate.
Ho urgente bisogno.
Ciao




Newsgroup: it.comp.lang.perl
Titolo: cerco programmatore perl

Salve,
cerco un programmatore perl per correggere un bug di una modifica su uno
script che però và in timeout.
Bisogna scoprire perchè và in timeout e correggere.
Per favore rispondano solo programmatori bravi ed esperti e con tempo libero
in modo da risolvere il problema possibilmente entro lunedi sera.

Timeout non è una impostazione dell'interprete perl?

Salve,
cerco programmatore perl bravo per piccole modifiche
a un programma di scambio banner.
E' richiesto tempo libero e bravura!

 E' richiesto tempo libero e bravura!
... e disponibilità a lavorare a prezzi delle patate! :-)
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

Eh no!
Sei tu che chiedi troppo hehehe :P

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

it's slightly out of topic, anyways ..
i assume mod_perl is up and doing fine
mkdir /home/user/perl		--> cgi-bin like directory, but mod_perl enabled
then in httpd.conf :
Alias   /perl/  /home/user/perl/	--> map /perl/test.cgi to /home/user/perl/test.cgi
PerlModule Apache::Registry		--> preload apache registry module
<Location /perl>
    SetHandler perl-script		--> within /perl , use mod_perl
    PerlHandler Apache::Registry	--> mod_perl cgi emulation
    Options ExecCGI			--> execute files
    PerlSendHeader On		--> send http headers
</Location>
you may want  to www-search "+apache +configuration +mod_perl" to learn howto
tweak this standard conf to fit your needs
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.perl
Titolo: LWP::Simple

Salve,
       Uso questo codice per prelevare un file da server...purtroppo 
questo server vuole un valore di http_referer o altrimenti non concede 
il download. Come posso settare un valore di referer?
Grazie!
#!/usr/bin/perl
use strict;
use LWP::Simple;
my $url = "
http://host/file.txt
";
my $file = "file.txt";
getstore($url, $file);
exit;

 il download. Come posso settare un valore di referer?
Dalla doc di LWP::Simple:
  This module is meant for people who want a simplified view of the
  libwww-perl library. It should also be suitable for one-liners. If you
  need more control or access to the header fields in the requests sent
  and responses received, then you should use the full object-oriented
  interface provided by the LWP::UserAgent module.
Quindi direi che devi ripiegare su LWP::UserAgent.
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org/blog
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it

 ciao,
Credi che questo codice possa andare bene? E sopratutto come gestisco la 
variabile che si becca 130Mb in entrata?
#!/usr/bin/perl
use strict;
use LWP::UserAgent;
use HTTP::Headers;
my ($ua,$req,$res,$h);
$h = HTTP::Headers->new;
$h->header('Extension' => 'Security/Remote-Passphrase');
$h->header('Accept-Language' => 'en');
$h->header('Accept' => '*/*');
$h->header('Connection' => 'Keep-Alive');
$h->header('Referer' => '##');
$ua = LWP::UserAgent->new;
$ua->agent('Mozilla/4.0 (compatible; MSIE 5.17; Mac_PowerPC)');
my $url = '##';
$req = HTTP::Request->new(GET => $url, $h);
$res = $ua->request($req);
if ($res->is_success) {
   open(SAVE,">##") || die "$!";
   print SAVE $res->content;
   close(SAVE);
 
} else {
   print $res->status_line, "\n";
 
}
ciao!

 $ua = LWP::UserAgent->new;
Ho notato però che questo modulo mi mette cose strane nell'header 
finale, nei campi che iniziano con asterisco ho "TE:" che non conosco e 
"Connection: Keep-Alive, TE, close"
GET /index.html HTTP/1.1
*TE: deflate,gzip;q=0.3
*Connection: Keep-Alive, TE, close
Accept: */*
Accept-Language: en
Host: ##
Referer: ##
User-Agent: Mozilla/4.0 (compatible; MSIE 5.17; Mac_PowerPC)
Extension: Security/Remote-Passphrase
ciao

 
Non sono "cose strane", sono header previsti dal protocollo HTTP/1.1 
L'RFC 2616 ne spiega la funzione.
Max

Newsgroup: it.comp.lang.perl
Titolo: grafica2 AIUTTTTTTI!

Mi consola il fatto di non essere il solo a non essersi ancora cimentato in
elaborate interfacce grafiche in perl... e ad essere ancora abbastanza
imbranato, quindi vi pongo una domanda (semplice semplice) da perfetto
ignorante in questione:
una volta scaricato il Tk da 
perltk.org
, bisogna installarlo in qualche modo
o basta copiarlo nella dir 'lib' ?
E con questo il livello del newsgroup è sceso sotto zero :)
grazie comunque!
pit

 wrote in message
news:sT0q9.23047$RO.5...@twister1.libero.it...

Newsgroup: it.comp.lang.perl
Titolo: server news

Vorrei avere sul mio sito un "forum" che visualizzi e permetta di inserire
messaggi su un newsgroup. Poichè non sono riuscito a tovare un cgi già
pronto ho provato a scrivere il seguente programma preso dagli esempi nella
trattazione del modulo NNTPClient su 
www.perldoc.com
Ho caricato lo script seguente nel mio server remoto (f2s), ho caricato il
modulo NNTPClient, ma lo script non viene eseguito (Bad host server è il
messaggio fornito). Perchè?
#!/usr/bin/perl -w
use News::NNTPClient;
$c = new News::NNTPClient;
($first, $last) = ($c->group("test"));
for (; $first <= $last; $first++) {
   print $c->article($first);
}

 }
Un'altra cosa, piu' che altro una questione di stile. In Perl e' piu' usata
una forma del genere per il codice qui sopra:
for( $first..$last) {
    print $c->article( $first );
}
E' piu' leggibile, e' piu' breve da scrivere e meno "prone to errors" e ai
miei occhi anche piu' "matematico". Ovviamente IMHO.
Attento pero' che questo operatore ha questo comportamento solo in un
contesto non scalare. Occhio!
ciao
Stefano

Newsgroup: it.comp.lang.perl
Titolo: Boh: $comm=~ s/\n/<br>/g; ???

 "$comm"  č stringa di testo passata con un form (POST)
perche' non mi viene sostituito il carattere "enter-invio"
non č forse giusto "\n"?
Grazie e scusatemi per la domanda probabilmente banale.
Bye
F.

Grazie e scusatemi per la domanda probabilmente banale.
Cos'e` che accade di preciso? Comunque sia prova:
$comm =~ s/\r\n/<br>/g;
E` infatti possibile che tu riceva anche i CR oltre ai NL, quindi devi
rimuoverli.
	A presto, Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!
Newsgroup: it.comp.lang.perl
Titolo: Inesperto cerca aiuto

Qualcono gentilmente puņ aiutarmi per uno script?
Sto cercando di capire come funziona lo script delle "Ferrovie dello Stato"
perchč dovrei realizzarne uno per scopi personali e non commerciali, ma non
riesco a capire come fare.
Devo dire che non conosco nulla di cgi/perl
Lo script dovrebbe funzionare su server apache e con perl 5

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

Mica ti ha posto un ultimatum!!
Domandare è lecito rispondere è cortesia!
Ciao





Bah!
Bravo, allora rispondigli.
Fallo dopo che si e' lamentato della tua scarsa disponibilita' e della
tua scarsa cortesia perche' non gli hai risposto di domenica.
Non e' questione di ignoranza ma di scarsa tolleranza dell'arroganza,
e chiaramente parlo a mio titolo senza pretendere _mai_ di
rappresentare nessuno che non sia me stesso. Frequento sia iclp che
icljs, due dei ng "interessati" alla questione, ed ho xpostato su icwc
(che non conosco) solo per informare anche chi lo segue, e questo e'
il mio ultimo xpost.
Inoltre anche nella risposta a chi mi (e ti e ci) accusa di scarsa
gentilezza e disponibilita' non ho offeso nessuno, cosa che
evidentemente non ti preoccupa affatto (infatti mi dai senza problemi
e senza conoscermi dell'ignorante e del frustrato).
Se davvero credi che la mia reazione fosse esagerata mentre reputi
appropriata e pacata la tua nei miei confronti... Beh, forse allora
chi ha dei problemi comportamentali non sono proprio io.
Con cortesia, Marco.


Domandare è lecito rispondere è cortesia!
Vero, infatti avevo gia' pronto il msg di risposta su
it.comp.lang.perl, in cui gli chiedevo lumi su cosa dovesse fare
esattamente. Messaggio che ho cancellato quando ho letto le sue
rimostranze per il fatto che nessuno si era scapicollato a
rispondergli di sabato: sono (come tanti altri quanto e piu' di me)
disponibile ad aiutare, ma non mi va giu' che ci sia chi questo aiuto
lo pretende e anche di corsa, lamentandosi altrove perche' su un ng
non e' stato preso in considerazione totale e immediata... come hai
giustamente riportato, "rispondere e' cortesia".

Newsgroup: it.comp.lang.perl
Titolo: Aiuto...

Qualcuno mi potrebbe spiegare queste istruzioni :
use strict;
use vars qw($client);
local $SIG{ALRM} = \&procedura;
scalar <NOME_FILE>
%vett = (ATC => {'DB1' => 1}, BMX => {'DB2' => 1});
Ciao e razie.
Alessandro

bogg...@ariadne.it
 wrote:
 >use strict;
 >use vars qw($client);
Queste sono ampiamente spiegate nella documentazione.
 >local $SIG{ALRM} = \&procedura;
Questo significa che &procedura diventa l'handler del segnale SIGALRM (cioe`
che viene richiamata ogni volta che il processo riceve il segnale).
 >scalar <NOME_FILE>
L'handle NOME_FILE viene letto tutto nella variabile a cui assegni il
risultato. Se non ci fosse "scalar" ti verrebbe restituita una lista.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

 wrote:
: Qualcuno mi potrebbe spiegare queste istruzioni :
: use strict;
: use vars qw($client);
: local $SIG{ALRM} = \&procedura;
: scalar <NOME_FILE>
Queste te le ha gia` spiegate Marco D'Itri.
: %vett = (ATC => {'DB1' => 1}, BMX => {'DB2' => 1});
Questa costruisce un hash le cui chiavi sono 'ATC' e 'BMX' (nota che
le stringhe poste prima del '=>' non hanno bisogno di apici) e i
valori sono delle references ad altri hash anonimi: il primo ha
chiave 'DB1' e valore 1, il secondo ha chiave 'DB2' e valore 1.
Per analizzare queste strutture dati puoi usare anche il debugger:
nanux:~/tmp>perl -d -e 1
Loading DB routines from 
perl5db.pl
 version 1.01
Emacs support available.
Enter h or `h h' for help.
main::(-e:1):   1
  DB<1> %vett = (ATC => {'DB1' => 1}, BMX => {'DB2' => 1})
  DB<2> x %vett
0  'ATC'
1  HASH(0x80c6c98)
   'DB1' => 1
2  'BMX'
3  HASH(0x81dd358)
   'DB2' => 1
-- 
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: Domanda più specifica

Ciao, sono di nuovi qui!
Mi potete indicare il comando Perl per spostare un file da una directory ad
un'altra?
Grazie di nuovo!
Manuel

un'altra?
Se le due directory si trovano sullo stesso filesystem puoi utilizzare la
funzione rename():
rename "/varie/prova.txt", "/usr/varie/documento.txt";
Se invece hai bisogno di spostare file da un filesystem ad un altro devi
chiamare un comando esterno, ad esempio "mv" sotto Unix.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 ha scritto nel messaggio
news:slrn9gmt...@leah.italpro.net...


Newsgroup: it.comp.lang.perl
Titolo: the bat ed html

certi messaggi in html leggibili con OE, the bat proprio non vuol saperne di
leggerli... idee?

leggerli... idee?
Non so, chiedere in un gruppo appropriato?
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: problema regex!

Salve a tutti, sto facendo un piccolo script che dato in ingresso un 
file .java con una classe gia' definita con i suoi bei campi e metodi, 
mi aggiunga alla fine del file i metodi get/set per ogni campo.
Il file di test che do in pasto al mio script e' questo:
///// CODE /////
class Test {
     private static final float PI = 3.1416;
     private String nome;
     private int numero;
     private int matricola;
     private Vector data;
     protected static int count = 0;
     public Test(String nome, int matricola, int numero) {
         this.nome = nome;
         this.matricola = matricola;
         this.numero = numero;
         count++;
         data = new Vector();
     }
     public void aMethod() {
         System.out.println(nome);
         System.out.println(numero);
         System.out.println(matricola);
     }
}
///// END CODE /////
Lo script che ho tirato fuori fino ad ora invece e' questo:
///// CODE /////
#!/usr/bin/perl -w
use strict;
use diagnostics;
my $file = $ARGV[0];
open(F, "<$file") or die "cannot open $file\n";
while (<F>) {
     if (m{
           [(abstract|static|final|public|private|protected)\s+]+
           (\w+)\s+(\w+)\s*=?\s*\w*.?\w*;
        }x)
     {
         print "$_";
         print "$1 $2\n\n";
     }
}
close(F);
///// END CODE /////
La mia idea e' questa: un riga-campo puo' essere formata da una delle 
parole chiave (abstract|static|etc...) seguita da uno o piu' spazi, il 
tutto ripetibile una o piu' volte; vengono poi il tipo (\w+) seguito da 
uno o piu' spazi \s+ e dal nome del campo (\w+).
Il resto della regex si preoccupa di eventuali segni di uguale seguiti 
da valori (numerici o meno).
Il problema e' che con quel file in input, quello che ottengo e':
prompt$ ./
getsetwizard.pl
 Test.java
     private static final float PI = 3.1416;
t PI
     private String nome;
String nome
     private int numero;
t numero
     private int matricola;
t matricola
     private Vector data;
Vector data
     protected static int count = 0;
t count
Io vorrei vedere, ad esempio nella prima riga, "int PI" e invece mi 
matcha solo l'ultima lettera di "int"...mentre le parole che iniziano 
con una maiuscola vengono matchate come si deve.
Qualcuno sa spiegarmi dove sbaglio??
Grazie,
~Asami~

 }
 
     if( m{
           ((abstract|static|final|public|private|protected)\s+)+
           (\w+)\s+(\w+)\s*(=\s*\w+\.?\w*)?;
        }x )
     {
         print "$_";
         print "$3 $4 [$5]\n\n";
     }
Max

        }x)
Come già corretto da altri, per raggruppare gli elementi si usano le
parentesi tonde, le parentesi quadre hanno tutt'altro significato.
Se ti interessa solo raggruppare e non catturare, e non vuoi perderti nei
conteggi delle parentesi per sottocampi ${n} che in realtà non ti servono,
puoi usare l'espressione (?:pattern) che ha lo stesso significato di
(pattern), ma non produce campi aggiuntivi:
     if (m{
           ((?:abstract|static|final|public|private|protected)\s+)+
           (\w+)\s+(\w+)\s*=?\s*\w*.?\w*;
        }x)
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Estrapolazione stringa.

Ho circa 100 file dai cui devo estrapolare determinate stringhe e metterle 
tutte in output.html.
Ho provato questo codice ma non mi funziona.
L'espressione regolare è giusta perchè l'ho verificata con Komodo.
Il punto è che con $string = <FILE>; non riesco a beccare il contentuto del 
file.
Chi mi sa dare una giusta indicazione?
Grazie
$out_file = "output.html";
open (OUT, ">$out_file") or die "Can't open $out_file: $!\n";
opendir(DIR,".");
@a = readdir(DIR);
closedir(DIR);
 for (@a)
 {
 if ($_ =~ /eml/)
  {
    {
    $in_file = "$_";
    open (FILE, "<$in_file") or die "Can't open $in_file: $!\n";
    $string = <FILE>;
    $string =~ /<!--_{13}\sCONTENUTO.*?_-->(.*?)FINE.*?-->/s;
    print OUT "\n$1";
    close FILE;
    }
  }
 }
close OUT; 

 close OUT; 
Ok, capito il problema, la soluzione. Il metodo "idiomatico" sta nel
modificare il significato di "riga". Una riga termina quando si
incontra una stringa uguale al valore della variabile speciale $/
(input record separator). Se $/ vale undef, viene letto l'intero file
in una sola "riga", come serve a te. Per cui puoi mettere un
  undef $/;
prima del 'for', e riesci a leggere tutto.
Complimenti per il modificatore '/s' sulla regexp, sarebbe stato il
prossimo errore prevedibile.
-- 
  dakkar

 Chi mi sa dare una giusta indicazione?
Sul "giusto" veditela tu. Per leggere l'intero file in una volta, comunque,
devi fare cosě.
Ciao.

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

CERCO qualcuno che mi insegni, chiaramente a pagamento, a programmare in
PERL sono nella zona di Viareggio.
Se qualcuno della zona mi puņ aiutare mi contatti via e-mail al seguente
indirizzo.
vers...@freemail.it
GRAZIE

Newsgroup: it.comp.lang.perl
Titolo: R: Una curiosità

 ЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,И

chiede se la directory esiste, il significato ш questo:
a meno che la directory $directory esiste fai .....


Newsgroup: it.comp.lang.perl
Titolo: usare e rimuovere elemento da un array

Ho scritto:
        for $i (@$documents) {
             if ($i->{title} =~ m/^cover.(jpg|jpeg|png|tif|tiff|gif)/) {
                 $s.= " ".$i->{filename};
		last;		
                 }
         }
Ora vorrei, prima di uscire dal ciclo for, rimuovere dall'array 
@documents l'elemento $i che ha matchato. Come faccio?
E.

?manu* wrote:

In generale, col builtin splice():
http://perldoc.perl.org/functions/splice.html
(che perï¿œ vuole l'indice dell'elemento).
Ma nel tuo caso eviterei anche il ciclo, ricorrendo alla funzione 
firstidx di List::MoreUtils:
use List::MoreUtils qw(firstidx);
my $i
     = firstidx { /^cover\.(?:jpg|jpeg|png|tif|tiff|gif)/ } @$documents;
$s .= " $documents->[$i]{filename}";
splice @$documents, $i, 1;

     = firstidx { /^cover\.(?:jpg|jpeg|png|tif|tiff|gif)/ } @$documents;
Scusa, era:
my $i = firstidx {
     $_->{title} =~ /^cover\.(?:jpg|jpeg|png|tif|tiff|gif)/
} @$documents;

 [...]
Ti ringrazio per entrambe le questioni!
E.
Newsgroup: it.comp.lang.perl
Titolo: begin....

Ho trovato su uno script questa riga ma non capisco cosa significa :
BEGIN { @AnyDBM_File::ISA = qw(DB_File GDBM_File NDBM_File SDBM_File) }
sopratutto BEGIn che lo vedo da tutte le parti ma non riesco a capire a cosa
serva...
Mi aiutate??
Grazie infinite

 wrote:
: Ho trovato su uno script questa riga ma non capisco cosa significa :
: 
: BEGIN { @AnyDBM_File::ISA = qw(DB_File GDBM_File NDBM_File SDBM_File) }
: 
: sopratutto BEGIn che lo vedo da tutte le parti ma non riesco a capire a cosa
: serva...
BEGIN indica che il blocco seguente viene eseguito all'atto
dell'inizializzazione (cioe` prima di processare il file)
::ISA dovrebbe essere un metodo speciale per i moduli object oriented, ma
confesso la mia ignoranza.
ciao, .mau.




Leggilo come "is a" :) Serve ad indicare l'ereditarieta'.
Detto in parole povere, indica che la classe e'derivata da quelle indicate,
per cui ogni metodo che non definisce va cercato in quelle classi
(nell'ordine) prima di essere cercato in UNIVERSAL come ultima spiaggia
prima di generare un errore.
Piuttosto, mi sembra strano che Alessandro abbia visto in giro quella riga,
dal momento che e' chiaramente contenuta in AnyDBM_File.pm , tra i moduli di
sistema di Perl, e non mi verrebbe mai in mente di andare a leggerne il
codice (a parte poi usare AnyDBM_File invece di DB_File direttamente) :)
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 wrote:
: > ::ISA dovrebbe essere un metodo speciale per i moduli object oriented, ma
: > confesso la mia ignoranza.
: 
: Leggilo come "is a" :) Serve ad indicare l'ereditarieta'.
In effetti lo leggevo come "is a" (ai tempi riuscii persino a dare un esame
di Elaborazione dell'Informazione Non Numerica, che era pieno di ISA). E`
proprio che ho una idiosincrasia :-)
ciao, .mau.
Newsgroup: it.comp.lang.perl
Titolo: Newbie

Ciao a tutti,
sono un newbie del Perl e vorrei sapere dove trovare (su Internet) un buon
documento sulle "Espressioni Regolari" che spieghi un po' tutto.
Se č in italiano č meglio, ma non ho problemi se č in inglese.
Grazie e ciao
Alessio "Gazza" Galli

http://dmoz.org/World/Italiano/Computer/Programmazione/Perl/
-- 
Valter Mazzola -  Software/Databases for Enterprise Web Internet Sites
PHP, Java Servlets, Applets, Jsp, ASP, PERL, Mod_Perl, Apache, IIS,SQL
* 
HTTP://SITIDINAMICI.COM/?nttp
 ----- 
http://italia.LinSwap.com/?nttp
 
Phone:(+39) 347/129-07-16.  Fax:(+39) 02/700-539-403

 documento sulle "Espressioni Regolari" che spieghi un po' tutto.
Basta cercare un po' con un motore di ricerca. Ad esempio, velocemente
con google:
http://www.html.it/perl/perl_11.htm
http://www.webinn.it/programmazione/pattern_matching.htm
http://www.valdocco.edu/xborg/doc/perl/perl-tutorial-11.html
+ generale
http://linuxdidattica.org/informatica_commercio_elettronico/a2ice1.html
-- 
$_=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

Grazie a tutti delle risposte
Alessio "Gazza" Galli

 č in italiano č meglio, ma non ho problemi se č in inglese.
Volendo c'e` anche un libro piuttosto interessante che spiega teoria e
pratica delle espressioni regolari:
Mastering Regular Expressions
(
http://www.oreilly.com/catalog/regex/
)
risale al 1997, pero` e` piuttosto ben fatto.
	Michele.
-- 
Michele Beltrame
http://www.italpro.net/mb/
ICQ# 76660101 - e-mail: 
m...@italpro.net
Newsgroup: it.comp.lang.perl
Titolo: Perl e FoxServ su XP

Premessa: non so nulla su perl
Perchè devo usarlo?: vorrei installare in locale awstats, che è scritto 
in perl.
Seguendo le istruzioni contenute in awstats, non riesco a venirne a capo 
perchè quando lancio un file pl mi viene proposto il contenuto del file 
(che ovviamente non viene eseguito), questo sia se provo via browser sia 
se provo dal prompt.
Qual'è il problema?
Grazie, Paolo

 Qual'č il problema?
questa la so pure io (quindi potevi davvero arrivarci da solo)!
Perl non č installato sul tuo sistema.
3pi

 3pi
Uhmmm, FoxServ mi ha installato apache, php, mysql e non ha installato 
perl? (per il quale peraltro non è presente documentazione, cosa che ho 
cercato, perchè magari non era installato o dovevo configurare qualcosa, 
ma visto che non c'è uno straccio di documentazione ho pensato che fosse 
già tutto ok)
quindi venendo al dunque, avendo installato FoxServ, come faccio ad 
installare perl?
Grazie

 installare perl?
Ammesso che FoxServ non voglia distribuzioni particolari di
Perl che si integrino in maniere "strane" con i componenti da
lui installati, allora potresti installare la versione
di ActiveState.
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

 
Paolo

Qual'è il problema?
Apache sotto windows?
Generalmente Apache tratta i files di perl come script solo se sono in
una directory elencata negli "scriptaliases".
Verifica nella configurazione di Apache (http.conf) quale directories
sono impostate con scriptaliases e prova a mettere un semplice script
in perl in una di esse e vedi se funziona.
Di solito c'e' almeno una di queste, la cgi-bin impostata cosi':
ScriptAlias /cgi-bin/ "disk:\path_alla_directory"
Per aggiungerne un'altra basta  che metti:
ScriptAlias /nome_alias/ "disk:\path_alla_directory"
I tuoi script li metti in disk:\path_alla_directory e vi accedi con
http://tuoserver/nome_alias/script.pl
Ricordati che Apache cerca nei files di script la linea "shebang" per
sapere come eseguirli. Una shebang e' la prima linea di uno script con
primo carattere "#" seguito da "!" e dal percorso del programma per
eseguirlo, in caso di perl installato in c:\programmi\perl con
l'eseguibile in [...]\perl:
#!c:\programmi\perl\bin\perl
L'alternativa in caso tu abbia nel registry l'associazione per i files
di script in perl (ad esempio se usi active perl) e' di impostare
nella configurazione di Apache "ScriptInterpreterSource registry" che
di solito non e' attiva (c'e' # che la commenta), in questo caso non
viene usato il metodo precedente ma viene interrogato il registry per
sapere quale programma puo' eseguire gli script con quell'estensione.
'bye

Newsgroup: it.comp.lang.perl
Titolo: Modifica file Excel esistente

Ciao a tutti, esiste un modo per modificare un foglio Excel ESISTENTE con uno script perl?
------------------------------------------------------------------------
Questo messaggio e` stato inviato da 
http://www.inwind.it

 
Su cpan si trova un modulo per gestire i file di Excel, anche se non l'ho 
mai usato e quindi non so se fa al caso tuo.
Ciao
Newsgroup: it.comp.lang.perl
Titolo: differenza fra Edit e NotePad ?????

la mia richiesta di chiarimenti nasce dal fatto che provando a creare, a
semplice scopo didattico, uno script che inviasse un email con relativo
allegato, mentre la spedizione avveniva in modo corretto, il testo che
veniva inviato presentava al posto dei caratteri accentati dei simboli che
non avevano nulla a che vedere con i caratteri accentati. La mia sorpresa
era giustificata visto che nel codice dello script, il testo da spedire
veniva processato dal metodo MIME::QuotedPrint::encode() e successivamente
decodificato dagli headers '"Content-Type: text/plain; charset="ISO-8859-1"'
e "Content-Transfer-Encoding: quoted-printable".
Dopo numerosi tentativi, mi sono accorto che il metodo "...encode()" mi
generava una codifica dei caratteri che no era quella corretta, cioč ad
esempio, la presenza di un carattere "č" veniva codificato dal metodo
MIME::QuotedPrintable::encode() come "=8A" che nel charset ISO-8859-1 non
corrisponde al carattere "č" ma fa parte di una delle porzioni di codice che
non vine utilizzato da questo insieme di caratteri specifico.
Faccio notare, e questo č il punto, che il codice e il relativo testo da
inviare , l'avevo creato tramite l'Edit del DOS ........... . Utilizzando
invece il NoterPad del Windows lo stesso script e lo stesso corpo del
messaggio mi venivano invece codificati/decodificati correttamente !!!!!!.
Perchč tramite l'Edit del Dos mi si creava questo problema, mentre tramite
il NotePad tutto funziona regolarmente ????

 messaggio mi venivano invece codificati/decodificati correttamente !!!!!!.
Sinceramente non lo so, ma hai provato a forzare un encoding a 8 bit?
Ciao
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

il NotePad tutto funziona regolarmente ????
Perche` il DOS non usa ISO-8859-1.
-- 
ciao, |
Marco | * The Internet is full. Go away.  -- Joel Furr *
      | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it
Newsgroup: it.comp.lang.perl
Titolo: Help con array

Ciao a tutti!
Volevo sapere una cosa, se possibile:
ho due array, ponimao @array1 ed @array2.
Ora, $#array1 è x, $#array2 è y.
Non sapendo il numero di elementi presenti in entrambi gli array (è per
quello che li ho indicati con "x" ed "y") vorrei sapere come implementare
in uno script una funzioncina che, partendo da $#array1 e $#array2 mi
dica qual'è il più grande, ossia quale contiene più elementi.
Avevo pensato a qualcosa del tipo
if ($#array1 > $#array2) {
   print "Array1 è maggiore id Array2\n";  # giusto per fare un esempio!
}
ma non lo posso fare per il semplice motivo che il numero di array da
controllare è maggiore di due (e di molto!).
Qualcuno ha qualche idea?
TIA
Mimmo

 
 sub get_biggest_by_ref {
   my $max_count = 0;
   my $biggest_ref = undef;
   for( @_ )
   {
     next unless ref eq 'ARRAY';	   
     if( @$_ >= $max_count )
     {
         $biggest_ref = $_;
         $max_count = @$_;
     }
   } 
   return $biggest_ref;	
 }
 my @array1 = ( 1 ,2 ,3 , 4 );
 my @array2 = ( 1 ,2 , 5 );
 my @array3 = ( 1 ,2 , 4 ,7, 8, 9, 0 );
 my @array4 = ( 1 ,2 ,3 , 4 ,6 ,7 );
 my $ref = get_biggest_by_ref( \@array1, \@array2, \@array3, \@array4 );
 print join ":", @$ref;

 Mimmo

Newsgroup: it.comp.lang.perl
Titolo: estrarre id da link

Salve,
      avrei bisogno di estrarre da una pagina html tutti i link nella 
seguete forma ed a sua volta estrarre il numero id riportato da ID (in 
questo caso "0")
http://myhost.com/index.cfm?fuseaction=user.viewprofile&ID=0
c'è una comda RE per fare questo?
grazie

 
http://myhost.com/index.cfm?fuseaction=user.viewprofile&ID=0
/ID=([0-9]+)/ poi accedi all'ID com $1

 /ID=([0-9]+)/ poi accedi all'ID com $1
ok, credo di aver capito, ma mi sbagliavo non era con il link, in 
pratica ho un documento html come questo:
<html>
<div friendid="0">
<div friendid="1">
<div friendid="2">
<div friendid="3">
...etc..
</html>
e vorrei avere un array tipo questo: @friendids = (0,1,2,3, etc)
grazie

 e vorrei avere un array tipo questo: @friendids = (0,1,2,3, etc)
una cosa così forse:
use strict;
use warnings;
my $file = do { local $/; <DATA> };
my @friendids;
while ($file =~ /<div friendid="(\d+)">/g) {
	push @friendids,$1;
}
print "@friendids\n";
__END__
<html>
<div friendid="0">
<div friendid="1">
<div friendid="2">
<div friendid="3">
</html>
Newsgroup: it.comp.lang.perl
Titolo: make install + directory

ciao all,
ho una domanda: per un generico modulo perl scaricato da CPAN (per 
esempio), quali sono le operazioni eseguite dal make install ?
Mi interessa perche' non riesco a risolvere il problema
di far riconoscere automaticamente la directory nella quale il
mio modulo risiede (linux _e_ MSDOS).
  Raffaello

Raffaello Galli wrote:

perldoc -l <modulo>
eg perldoc -l XML::Parser
non so si perldoc e installato en MSDOS.
-- 
mirod

Raffaello Galli wrote:

Ce un module que lo fa: Module::Locate 
http://search.cpan.org/dist/Module-Locate/
-- 
mirod



Gracias. ;)
  Raffaello

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

Qualcuno ha fatto esperienze con php3?
come si fa una connessione a un db?
saluti
Patrik
w...@jazzascona.ch
--
---------------------------------------------------
SPAN The Swiss and European Internet Access Network
http://www.span.ch/
 
http://www.eurospan.com/
===================================================

come si fa una connessione a un db?
Fai una domanda precisa!
Alberto
[
webm...@singular.SPAMUSTDIE.it
]




Ho un grosso problema nell'utilizzo del PHP con Adaptive Server
Enterprise 11.5 di Sybase.
Ho una tabella con un campo identity.
Nel momento in cui inserisco un record  in questa tabella, vorrei sapere
il valore del campo identity. Per fare questo utilizzo una transazione
tipo questa
<?
$insert =sybase_query ("begin transaction insert into TABELLA (nome)
values (\"Nome\") select @@identity commit transaction");
$array=sybase_fetch_row($insert);
?>
E l'errore che ottengo e' il seguente
Warning: 0 is not a Sybase result index
tale errore me lo da alla riga corrispondente alla sybase_fetch_row
Errori simili li ottengo ogni volta che racchiudo in una sybase_query
piu' di un comando
Qualcuno sa come posso risolvero
Sent via Deja.com 
http://www.deja.com/
Share what you know. Learn what you don't.
Newsgroup: it.comp.lang.perl
Titolo: [tk] intercettare movimento finestra

Salve,
        con il seguente codice disegno tramite Tkx una finestra su schermo
principale:
#!/wperl
use strict;
use warnings;
use Tkx;
Tkx::package_require("BWidget");
my $mw = Tkx::widget->new(".");
   $mw->g_wm_title('my_window');
   $mw->g_wm_geometry("400x250-5+5");
   $mw->g_wm_resizable(0,0);
Tkx::MainLoop();
__END__;
c'� un modo tramite "binding" di intercettare le nuovi posizioni a schermo x
e y della finestra? C'� una sorta di callback che viene invicata a seconda
di questo evento (onmove) ??
grazie 

 di questo evento (onmove) ??
Quando sei al di fuori della tua finestra, ovvero vuoi fare intercettare 
qualcosa di esterno ad essa (tipo appunto la sua posizione sul desktop), 
credo tu debba consultare Tk::Wm
perldoc Tk::Wm
Per gli eventi "interni" c'�
perldoc Tk::Bind
in particolare l'elenco "EVENT TYPES".
Io al massimo ho usato l'evento Configure, non so rispondere alla tua 
domanda.

 domanda.
beh, al massimo mi accontenteri di intercettare il close (quit) della 
finestra cos� che posso leggere la posizione corrente tramite /gemotry/ e 
salvarla... 

 e salvarla...
$mw->protocol('WM_DELETE_WINDOW' => \&Window_Terminate);
sub Window_Terminate {
	my $e = $mw->XEvent;
	return if !$e;
	my $mw_w=$mw->width;  #oppure $e->w
	my $mw_h=$mw->height; #oppure $e->h
	# blabla
}

 }
ho provato il codice ma ho dovuto fare subito una modifica in quanto 
$mw->protocol non lo leggeva, ma solo $mw->g_wm_protocol
poi nella sub non riconosce ne width ne height, neanche se li chiamo con 
$mw->g_mw_width, al contrari mi restituisce il valore di geometry tramite 
$mw->g_wm_geometry; nella forma widthXheight-top+left, mi domando se c'� un 
modo tramire reg di estyrapolare questi 4 valori ($1 $2 $3 $4)
grazie mille!
Newsgroup: it.comp.lang.perl
Titolo: Gestione utenti con Login in ambiente W2000 Server

Salve,
sono un programmatore Perl abbastanza capace,
anche se ogni tanto mi blocco anche io di fronte a
qualche problema. Devo realizzare uno script che
faccia autenticare gli utenti, e qui nessun problema.
Mi occorre poi che a seconda dell'utente autenticato
si peschino alcuni dati dal database. Che soluzione
avete già provato ? Io ho provato libweb, dcprotect
un po' di queste cose ma senza successo. A questo
punto mi conviene scrivere qualcosa con i cookie ?
Grazie a tutti
--
Marco Santullo
Ganesh Domains
ICQ 107779618

 punto mi conviene scrivere qualcosa con i cookie ?
Scusa, non ho capito: parli di identificazione web a livello di sessione
del browser?
C'è un login su di una form html e l'autenticazione si basa su dati 
presenti su un database?

Newsgroup: it.comp.lang.perl
Titolo: Apache per Win32 e localhost come configurare?

Sto tentando di istallare Apache 1.3.12 sul mio computer, tutto ok, ma
quando lo lancio mi dice che non riesce a trovare il nome dell'host. Non
dovrebbe apparirmi un file html di benvenuto? Cosa devo mettere come nome
dell'host, si parla di host virtuale ma non ne capisco nulla. Vorrei usare
Apache per testare i miei script .cgi e .pl senza ogni volta dovermi
connettere al server 
www.virtualave.net
 potete aiutarmi?
Grazie
Riccardo

 wrote in message
8h68tn$otv$1...@nslave2.tin.it...

Ciao,
prova a settare la direttiva ServerName in httpd.conf:
ServerName localhost
oppure
ServerName 127.0.0.1
Per config. Apache x CGI leggi qui (se sei Windoze user):
http://myweb.3q.to/docs/cgi_win9x.html
Bye, EB

Dovrebbe esserci un file chiamato httpd.conf, aprilo e setta a manina la
variabile ("localhost" va benissimo)

Newsgroup: it.comp.lang.perl
Titolo: aiuto!!! semplice programma DBM

per esercizio ho creato un piccolo script che mi gestisce le operazioni piů
comuni (inserimento , verifica esistenza, eliminazioni chiavi .. .) di una
variabile hash che č associata ad un file DBM tramite il codice:
dbmopen(%HASH, "nome_file_DBM", 0644);
ora, nello script č presente una funzione che mi verifica la presenza di una
coppia nell'hash tramite la funzione "exists()". Questa funzione č
richiamata in piů punti dello script. Il suo codice č:
sub ricerca_voce
{
 my $key = $_[0];  # la chiave da ricercare
 if (exists $HASH{"$key"})
 {
  return $HASH{"$key"};
 }
}
quando eseguo lo script, dopo avere inserito la chiave da ricercare mi si
presenta il seguente messaggio d'errore:
AnyDBM_File doesn't define an EXISTS method at  #riga intestazioe funzione
ricerca_voce.
Perchč ?? Se escludo per un attimo l'associazione con il file DBM (commento
# dbmopen ....... ) lo script mi funziona perfettamente, anche se poi le
modifiche non mi vengono piů salvate.  ..........
grazie.

 ricerca_voce.
L'AnyDBM non supporta exists. Usa 'defined'.
Ciao,
Valerio

ti ringrazio per il consiglio visto che nel contesto del mio script di prova
è servito ...... però se ho capito bene, comunque la funzione "defined()"
usata su un elemento di un hash, determina solo se il valore associato alla
chiave è definito e non se esiste la chiave dell'hash. Quindi con un hash
associato ad un file DBM come faccio a determinare se esiste nell'hash una
determinata chiave (non mi interessa sapere se il valore associato alla
chiave è definito o meno)  ???
ciao, dritta.


 chiave è definito e non se esiste la chiave dell'hash.
Credo che in un array associativo un chiave con valore undef non esista.
Però non sono ferrato in materia, qua ti dovrebbe aiutare qualcun altro.
Ciao,
Valerio