mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: ottenere la data dal server

questo è il mio problema:
ho un script per raccogliere i commenti dal mio sito e scriverli su un file.
vorrei scrivere sul file, oltre ai commenti, la data (e possibilmente l'ora)
in cui il commento viene scritto.
Ora: non so quale funzione rileva l'ora del server!!!!
qualcuno potrebbe indicarmela?
Molte e grazie! :-)
Andrea

Ora: non so quale funzione rileva l'ora del server!!!!
Ci sono alcune possibilita`:
1) time()
ti torna una unix timestamp (numero di secondi dal 1/Gennaio/1970) GMT.
2) gmtime()
ti torna una struttura completa per data ed ora GMT
3) localtime()
come sopra, ma la timezone e` quella del server (o della macchina in cui
gira il programma comunque)
Per maggiorni informazioni sulla struttura tornata da gmtime() e localtime()
dai il comando:
perldoc -f gmtime
	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: convertire numeri del tipo 395.0910+03

devo importare da un file di testo numeri floating del tipo
395.0910+03
c'è un modo di convertirli in numero senza elaborazioni? Chessò
usando pack/unpack?
Grazie,
Filippo


Uhm... potresti provare con il modulo Number::Format

Newsgroup: it.comp.lang.perl
Titolo: leggere contenuto hash

Salve,
        ho la seguente variabile:
$self->{headers} = {};
$self->{headers}->{key} = val;
come faccio ad ottenere tutte le chiavi ed i relativi valori di 
$self->{headers} ??
ho provato con:
   for my $key ( sort keys $self->{headers} ) {
      print "$key => " . $self->{headers}->{$key} . "\n";
   }
ma non mi restituisce niente...
grazie

Larry wrote:

for my $key ( sort keys %{ $self->{headers} } ) {
     print "$key => " . $self->{headers}->{$key} . "\n";
}
Ciao,
Emanuele.

Newsgroup: it.comp.lang.perl
Titolo: aiuto campi NULLI

come si gestiscono i campi nulli in perl? vorrei che se l'utente che deve
inserire 3 dati in un form non ne inserisce uno obbligatorio
viene rimandato alla pagina errore.html che lo avvisa di inserire tutti i
dati, mentre se inserisce tutto allora viene richiamata la pagina
grazie.html che lo ringrazia per essersi iscritto, mi potete aiutare? grazie
in anticipo.

Tosto73 wrote:

   *Se* stai utilizzando il modulo CGI.pm la funzione /param/ 
restituisce /undef/ se il paramtero con il nome specificato non esiste.
<code>
	#!/usr/bin/perl
	use CGI header,param;
	print header;
	$myparm=param 'pippo';
	unless (defined $myparm) {
	  print "<h1>Paramenter not defined</h1>"
	}
	else {
	  print "<h1>Parameter defined: <em>$myparm</em></h1>"
	}
	exit;
</code>
   Se non stai utilizzando CGI.pm, ti consiglio *vivamente* di farlo. ;)
-- 
Veri pirati noi siamo       Ma cosa c'e` di male?
Contro il sistema lottiamo  Ma cosa c'e` di strano?
Ci esercitiamo a scuola     Facciamo un gran casino
A far la faccia dura        Ma in fondo lavoriamo
Per fare piu` paura         Per capitan Uncino
Newsgroup: it.comp.lang.perl
Titolo: bigint, bignum...?

Salve a tutti,
stavo calcolando la dimensione totale dei file di una directory... ma dato 
che sono centinaia di GB, gli integer a 32 bit non mi bastano. Come faccio 
ad ottenere il valore totale, ma tenendolo come intero (senza passare a 
float)? Googolando un po' ho trovato quelle due librerie, am non ho capito 
se ci sono effetti collaterali (biging trasforma tutti gli scalari in 
integer? Io voglio tenere in float i miei float, semplicemente poter 
rappresentare come integere esatti numeri >2^32).
Thx,
Pleg 

 rappresentare come integere esatti numeri >2^32).
Se la precisione dei tipi nativi è sufficiente per i tuoi scopi, come 
già detto semplicemente non devi preoccuparti di nulla: perl farà la 
cosa giusta (e per l'output puoi utilizzare le funzioni predette).
Se la precisione non è sufficiente puoi passare a BigInt, o attraverso 
l'uso /esplicito/ di Math::BigInt o attraverso il pragma bignum (quale 
preferire tra i due, dipende dal contesto e dai tuoi gusti).

Thx.
Cmq non era un problema della variabile, ma della stampa a video:
my $TiB = 1099511627776;
print $TiB."\n";
printf "%lld bytes\n", $TiB;
la "print" stampa il valore corretto, la "printf" stampa sempre -1 (sia con 
%Ld che con %lld), mentre "%qd" proprio non lo capisce.
Poco male, sono passato a "print" ed e' tutto a posto.
Pleg 

Pleg wrote:

Quasi sicuramente č dovuto al fatto che il tuo perl non č stato 
compilato col supporto per gli interi a 64 bit (nel qual caso gli 
specificatori q, L e ll non funzionano).
Per verificarlo puoi eseguire:
use Config;
print
     $Config{use64bitint} eq 'define' || $Config{longsize} >= 8
     ? "64-bit OK!\n"
     : "Solo 32-bit :-(\n";
(se ne era parlato giusto qualche messaggio fa).
Comunque per formattazioni pių sofisticate puoi sempre usare delle regex 
oppure il modulo CPAN Number::Format:
http://search.cpan.org/dist/Number-Format/
Ciao.

 
http://search.cpan.org/dist/Number-Format/
Ecco stavo appunto sperimentando quello, ma non mi riesce di cambiare i 
separatori di migliaia e decimali. In testa al file ho
use Number::Format qw(:subs :vars);
$THOUSANDS_SEP   = '_';
$DECIMAL_POINT   = ',';
ma una sempre le virgole per separare i gruppi di 3 cifre. Provero' con 
l'interfaccia a oggetti, magari cosi' mi viene.
Approp: si puo' avere l'unita' di misura spaziata rispetto al numero? Es 
"615 GiB" invece di "615GiB"?
Pleg 

 "615 GiB" invece di "615GiB"?
Puoi aggiungere esplicitamente lo spazio alla proprietà corrispondente:
use Number::Format;
my $f = new Number::Format(
     -thousands_sep => '.',
     -decimal_point => ',',
     -giga_suffix   => ' GiB' # Spazio!
);
print $f->format_bytes(1234567891); # 1,15 GiB

 print $f->format_bytes(1234567891); # 1,15 GiB
Perfetto, grazie! Risolto con:
 my $f = new Number::Format(  # oggetto di formattazione
      -thousands_sep => '\'',
      -decimal_point => '.',
      -kibi_suffix => ' kiB',
      -mebi_suffix => ' MiB',
      -gibi_suffix => ' GiB'
 );
 print $f->format_bytes($size, mode => "iec")." 
(".$f->format_number($size)." bytes)";
Pleg
PS: vedo che ancora non supporta "tebi_suffix".. questione di (poco) tempo 
spero :))
Newsgroup: it.comp.lang.perl
Titolo: OT aiuto per un server

ho dello spazio su un server e provo a far girare (inutilmente) dei prg in
pl perfettamente funzionanti in locale (win) e su altro server (linus).
Dopo svariati tentativi ho chiesto al supp. tecnico il quale mi ha risposto
in modo un po' sconvolgente......
Siccome in questo NG gira un po di gente in gamba, anche se ot provo a
postare qui    ecco il testo della risposta:
Gentile utente avete fatto una entrata sconosciuta nel file htaccess.
[Tue Jun 17 18:20:40 2003] [alert] [client 202.60.233.8]
/home/host17/xxyz/cgi-bin/.htaccess: Invalid command
'ScriptInterpreterSource', perhaps mis-spelled or defined by a module not
included in the server configuration
[Tue Jun 17 18:20:40 2003] [alert] [client 202.60.233.8]
/home/host17/xxyz/cgi-bin/.htaccess: Invalid command
'ScriptInterpreterSource', perhaps mis-spelled or defined by a module not
included in the server configuration
Controllando i htaccess archivi in /home/host17/xxyz/cgi-bin/  ha una linea
sconosciuta con "ScriptInterpreterSource". Non abbiamo visto mai questo
ordine prima e l'assistente inoltre non conosce che cosa è.
Saluti
se avete dritte, sono MOLTO ben accette
ciao e grazie

 ha scritto nel messaggio
news:y6LIa.106295$Ny5.3...@twister2.libero.it...


 wrote in message 3ef96...@news.dada.it...


Newsgroup: it.comp.lang.perl
Titolo: richiesta http dietro vpn

Salve ragazzi,
vorrei effettuare da perl una chiamata http su un servizio,
considerando che dalla mia macchina per accedere a questo servizio
passo da una vpn.
Sapete aiutarmi??
Grazie mille

Mi sembra un po' poco su cui lavorare. Ci hai già provato? Quali
problemi hai incontrato? Per la "chiamata HTTP" puoi provare a vedere
LWP::UserAgent
(
http://search.cpan.org/~gaas/libwww-perl-5.803/lib/LWP/UserAgent.pm
).

Newsgroup: it.comp.lang.perl
Titolo: [Q] Password MD5

Ho bosogno di creare uno script che mi crei una password cryptata con
MD5, la sintassi della funzione crypt() e' la seguente:
crypt($plaintext, $encrypted)
ma come faccio ad avere la entrypted? io la encripted ho bisogno di
generarla? qualcuno sa come fare?
-- 
 __            ___                        
|  \. _ _  _    _/ _  _ _ _  _. _ |_|_ _  
|__/|(-(_)(_)  /__(_|(_(_(_|| |(_)|_|_(_) 
       _/                                 





Ciao


Il modulo MD5 non va con crypt ... crypt lo puoi 
usare indipendentemente da MD5


e potresti usarlo come la mia sub sotto.....gli 
devi passare solo una plain


 


Ti ricordo che non puoi ricavare  una plain 
password da una crypted password.... ma puoi fare confronti


 


MINOS


ICS-POZZUOLI


 


sub encrypt_password
{
local $salt = 
chr(int(rand(26))+65) . chr(int(rand(26))+65);
return crypt($_[0], 
$salt);
}



# la sintassi č
if ( crypt($plain,$crypted) eq $crypted) {
	# ok
} else {
	# no
}
# e usa la crypt(3) di sistema che dovrebbe usare DES come algoritmo
# per MD5 -> 
http://cpan.valueclick.com/modules/by-category/14_Security_and_Encryption/MD5/
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.perl
Titolo: nascondere il codice perl-cgi

devo realizzare un cgi scritto in perl, vorrei sapere cosa devo fare per
''criptare'' il codice perl in modo da renderlo non riutilizzabile da altre
persone (non suggeritemi di compilarlo perchč non posso)
grazie

perlcc o B::Bytecode per la compilazione (perlcc , perldoc perlcc , perldoc B::Bytecode)
Byteloader per l' esecuzione (perldoc Byteloader)
se non sei in grado di usare questi, non sei neanche in grado di utilizzare altri sistemi (Source Filters)
altri non ne conosco
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:200103281533...@mail.mailgate.org...


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

C'è una regexp  
(trunc|truncate|round)\s*\([^\)]*?,\s*0
che vuole trovare righe in cui ad esempio si ha
trunc ( ............... , 0 )
round(...........,0)
Lo 0 deve venire prima della chiusura della parentesi.
Vorrei aggiungere che nella zona dei puntini non ci deve essere la
stringa kg (k e g attaccate e in questo ordine) .
Per dire che nella zona dei puntini non voglio la ) ho fatto [^\)], come
faccio ad aggiungere che non voglio neanche "kg"?
Grazie.
-- 
giu...@pobox.com

 C'č una regexp

(trunc|truncate|round)\s*\([^\)(?!kg)]*?,\s*0
--
------------------------------------------
Roberto Congiu
        Alchemy Communications
                LA California USA

(trunc|truncate|round)\s*\([^\)(?!kg)]*?,\s*0
Non mi funziona.
Comunque se non sbaglio quella sarebbe negative-lookahead, e in quel
modo kg non sarebbe sullo stesso piano della ).
In pratica con [^abcdef], io posso dire che non voglio i singoli
caratteri abcdef, in qualsiasi ordine essi siano.
Mi interesserebbe sapere come fare la stessa cosa con delle stringhe
invece che singoli caratteri.
Grazie.
-- 
giu...@pobox.com
Newsgroup: it.comp.lang.perl
Titolo: sendmail e win32

Ciao,
sono disperato. Ho sempre lavorato su sistemi Unix e mandare mail non era un 
problema.
Ora però sto programmando su WinNT e sto preparando uno script in Perl per 
mandare mail (solo testo, niente allegati).
Ho provato a interfacciarmi con Outlook via Win32::OLE ma non riesco.
Ho provato anche con NET::Sender ... niente da fare.
Sto pero' lavorando con Perl ActiveState per Windows (ci sono 
controindicazioni? e se si', c'e' una cura?)
Qualcuno ha un piccolo script che funzioni per mandare mail? (l'ideale 
sarebbe comunque utilizzare Win32::OLE)
Ogni aiuto sara' apprezzato.
Federico Vezzani
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at 
http://www.hotmail.com
.
Share information about yourself, create your own public profile at 
http://profiles.msn.com
.
--
Posted from [213.255.20.35] by way of 
f262.law4.hotmail.com
 [216.33.148.140] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 sarebbe comunque utilizzare Win32::OLE)
Se non erro (ma non credo!) nella gioda fornita con Activestate c'č una
pagina di FAQ che spiegano come fare; in ogni caso, devi utilizzare i
moduli (tipo Mail::SMTP e simili, non gli OLE!). E' spiegato per bene,
ma purtroppo no ricordo la pagina precisa (che al 99% hai sul disco,
comunque!)
Ciao
M.
-- 
:wq

Purtroppo nesssuno degli esempi contenuti nella documentazione di ActivePerl 
funziona ...
Il problema e' che non ho accesso che all'SMTP di Exchange Server ...
Federico
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at 
http://www.hotmail.com
.
Share information about yourself, create your own public profile at 
http://profiles.msn.com
.
--
Posted from [213.255.20.91] by way of 
f122.law4.hotmail.com
 [216.33.149.122] 


 Il problema e' che non ho accesso che all'SMTP di Exchange Server ...
Assurdo: ci sarà pure un server a cui invierai la posta, no?
Ciao
M.
-- 
:wq
Newsgroup: it.comp.lang.perl
Titolo: Pulsante SUBMIT

Salve, c'e' un modo di far partire un javascript, legato all'evento onClick
di un pulsante submit, che controllati alcuni requisiti puo' decidere di non
effettuare l'operazione?(quindi come se non si fosse premuto niente)
Grazie, Giuseppe


Nel form definisci un pulsante come
<form name="provacontrollo">
  [...]
  <input type="button" value="Clicca" onClick="controlla()">
</form>
Crea poi la funzione controlla() per controllare/elaborare tutti i dati che 
vuoi. Alla fine della funzione fai cosě:
function controlla() {
  [...]
  if (condizione) {
    document.provacontrollo.action = "/cgi-bin/nome_cgi.cgi";
    document.provacontrollo.submit();
  }
  return;
}
Volendo l'action lo puoi impostare direttamente nella definizione del form. La 
condizione dell'if potrebbe anche essere generata da una domanda posta 
all'utente, tipo "Continuare?", in questo modo:
[...]
  if (confirm("Continuare?")) {
    [...]
  }
[...]
Ciao
Wizzent
Programmatore
----------------------------
http://thexfails.cjb.net
http://robotstream.cjb.net
_________________________________________________
"Odio le citazioni al fondo delle e-mail"
                                 Aristotele
Newsgroup: it.comp.lang.perl
Titolo: NET::Smtp e strict

Cioa a tutti,
mi sto cimentando con NET::Smatp per scrivere un piccolo client SMTP da
command line. Sono partito da questo esempio trovato nella documentazione.
    #!/usr/local/bin/perl -w
    use Net::SMTP;
    $smtp = Net::SMTP->new('mailhost');
    $smtp->mail($ENV{USER});
    $smtp->to('postmaster');
    $smtp->data();
    $smtp->datasend("To: postmaster\n");
    $smtp->datasend("\n");
    $smtp->datasend("A simple test message\n");
    $smtp->dataend();
    $smtp->quit;
Ma aggiungendo "use strict;":
Global symbol "$smtp" requires explicit package name at ./
mailer.pl
 line
5.
Ho cominciato con perl leggendo una guida che da come buona norma "use
strict;" sempre. Quindi le questioni sono due:
1) DAvvero è utile e corretto usare "use strict;"?
2) Perche' con "use strict;" il codice di cui sopra si lamenta.
grazie
ciao
Luca

 2) Perche' con "use strict;" il codice di cui sopra si lamenta.
Investi un po' di tempo nella lettura di questo articolo
 
http://www.perl.it/documenti/articoli/namespaces/index.html
e tutto ti sara` chiaro.
Nel frattempo ti anticipo che usando 'strict', tra le altre cose,
fai in modo che l'interprete si lamenti se anche una sola delle 
variabili usate nel programma non rispetta almeno una delle regole
seguenti (in altre parole, _DEVE_ valere una della condizioni
seguenti):
    i. e` una variabile lessicale
   ii. e` una variabile globale completamente qualificata
  iii. e` una variabile globale dichiarata con our() o con 
       use vars.
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

2) Perche' con "use strict;" il codice di cui sopra si lamenta.
3) Perché non hai proseguito sulla buona strada intrapesa, leggendo
nella guida anche che cosa vuol dire "use strict;"?
Il codice, o meglio l'interprete Perl si lamenta, perché usi una
variabile senza averla "dichiarata", come impone la direttiva "use
strict;".
Il problema si risolve dichiarando la variabile:
    #!/usr/local/bin/perl -w
    use strict;
    use Net::SMTP;
    my $smtp = Net::SMTP->new('mailhost');
    ....
Ciao.

 e tutto ti sara` chiaro.
Mi cospargo il capo di cenere e vado a leggere il fine manuale :)
grazie
ciao
Luca

Newsgroup: it.comp.lang.perl
Titolo: ActivePerl e W98

Ho installato su due pc con W98 ActivePerl ultima versione
ma al primo tentativo di lanciare il perl 
makefile.pl
 di un qualsiasi
modulo il Pc si pianta.
Che cosa puo' essere?
Carlo

succede anche a me:-/...
Ciao
Newsgroup: it.comp.lang.perl
Titolo: modifica una lista

problema:
ho una lista contenente parole, vorrei creare un'altra lista identica alla
prima ma al fondo di ogni parola vorrei uno spazio (blank)
$lista[0]=io $lista[1]=tu $lista[2]noi .... ecc...
es: print @lista      iotunoivoiessi
    print @lista2     io tu noi voi essi
ho la lista 1, come posso ottenere la lista 2?
grazie.

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

 ho la lista 1, come posso ottenere la lista 2?
Tu non vuoi @lista2. Mi sembra poco ragionevole volere degli spazi in fondo
ai nomi della lista. Sono sicuro che tu non vuoi @lista2. :)
Tu vuoi poter stampare @lista in maniera che appaiano gli spazi, e questa
e' un'altra cosa!
  print "@lista";    #   io tu noi voi essi
Il trucco sta nella definizione di $", che definisce il separatore degli
elementi di array quando interpolati in stringhe. Di default $" e' uno spazio.
Se VERAMENTE vuoi duplicare la lista, per ottenere una copia con gli spazi
in fondo (ma a che ti servirebbe?)
 @lista2 = map { $_ . " " } @lista;
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 O ancora:
.......
Altro:
for(@lista1) { push(@lista2, "$_ "); }
Inoltre
@lista2 = map ( { "$_ " }, @lista2 ) ;
E chi piu' ne ha piu ne metta.
Ciao
--
 Massimo Balestra
 System Engineer
 Torino Italy
P.S. Io e Marco Balestra, nonostante l'omonimia (ovvero l'ocognonimia)
non siamo parenti; non ci conosciamo nemmeno.
Sent via Deja.com 
http://www.deja.com/
Before you buy.

Newsgroup: it.comp.lang.perl
Titolo: Perl tradotto in C e compilato con gcc

Cosa ne pensate di questa operazione ?? Qualcuno l'ha gia' provata ? Com'è 
andata ?? 
Ciao
Lyskamm

 andata ?? 
   Cosa intendi? L'interprete perl e` scritto in C e, per quanto 
riguarda Linux e Cygwin, compilato con il GCC, e sembra che funzioni 
abbastanza bene. Se, invece, parli di tradurre in C uno script Perl e 
poi compilarlo, funziona sicuramente (io l'ho provato):
	$ perldoc perlcc
-- 
Alla prossima,
Marco

Marco Natoni wrote:

Esatto, intendo proprio prendere uno script Perl, tradurlo in C e 
compilarlo con gcc invece che con perlcc. Secondo te, uno script compilato 
con gcc è compilato meglio, peggio o uguale allo stesso passato al gcc ?
ciao
Lyskamm

 passato al gcc ? 
  Forse ti sfugge qualcosa: perlcc traduce lo script in C, quindi lo 
compila con un compilatore C (che puo' anche essere GCC).
Ciao
Mattia
Newsgroup: it.comp.lang.perl
Titolo: Aiutatemi!!!

Salve a tutti, coome va???
Mi sono buttato nel Perl ma sono troppo incapace.
Se faccio girare un server sotto Mach tipo Quid pro quo, perche' quando
ho una pagina che usa un cgi scritto in Perl il server mi da un errore e
non lo carica??? anche se il Perl sta girando???
Aiutatemi, grazie a tutti.
                     Livio
 


wrote:
| Salve a tutti, coome va???
| Mi sono buttato nel Perl ma sono troppo incapace.
| Se faccio girare un server sotto Mach tipo Quid pro quo, perche' quando
| ho una pagina che usa un cgi scritto in Perl il server mi da un errore e
| non lo carica??? anche se il Perl sta girando???
il perl funziona? che messaggio di errore da? che server web usi?
ok. chiedi in it.comp.www.cgi [followup]
Oha

Newsgroup: it.comp.lang.perl
Titolo: Confronto stringhe

Ho una stringa $a e un'altra $b
esiste un metodo diretto per confrontarle? come si fa? (sono alle prime armi)
Grazie, Matteo
--
TiscaliFreeNet, libero accesso ad Internet.
http://www.tiscalinet.it
--
Posted from 
twingo.tiscalinet.it
 [195.130.224.85] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

esiste un metodo diretto per confrontarle? come si fa? (sono alle prime armi)
Staimo parlando del linguaggio con uno dei piu' potenti e versatili sistemi di
pattern matching che esistano, quindi la risposta e' si.
-- 
Saluti,
Giancarlo

 esiste un metodo diretto per confrontarle? come si fa? (sono alle prime
armi)
Anche io sono alle primissime armi ma credo di poterti rispondere
per confrontarle devi usare gli operatori di confronte per le stringhe
$a eq $b
eq     uguale
ne     non uguale
lt       minore
gt      maggiore
le       minore uguale
cmp    confronto   restituisce 0 se uguale,1 se $a maggiore di $b, -1 se $b
maggiore di $a
Newsgroup: it.comp.lang.perl
Titolo: file ".core"

Ciao a tutto il NG.
Qualcuno potrebbe per favore spiegarmi cosa sia un file .core che ho trovato
quasi inspiegabilmente nella directory cgi del mio spazio web Unix?
Suppongo che con quel file il Perl voglia dirmi qualcosa... uhm..., ma cosa?
Ovviamente, accolgo anche solo riferimenti all'argomento.
Grazie anticipate.
Emanuele.

 Suppongo che con quel file il Perl voglia dirmi qualcosa... uhm..., ma cosa?
   Che ha richiamato un eseguibile che e` andato in /segmentation/ 
/fault/ oppure che tale evento e` accaduto, per quanto possa sembrare 
incredibile, all'interprete stesso.
-- 
Veri pirati noi siamo       Ma cosa c'e` di male?
Contro il sistema lottiamo  Ma cosa c'e` di strano?
Ci esercitiamo a scuola     Facciamo un gran casino
A far la faccia dura        Ma in fondo lavoriamo
Per fare piu` paura         Per capitan Uncino

A dire il vero pensavo che il .core contenesse info su errori, oppure
overfow di memoria o cose simili...
Tra l'altro mi sono preoccupato che l'applicazione consumasse troppa memoria
fino a crash-are.
C'è un modo per leggere ed interpretare cosa rappresenta un file .core?
Quello che ho trovato, stranamente, era vuoto... almeno se aperto con un
editor di testo...
Dove trovo della documentazione?
Grazie ancora..."capitano..."
"Capitan Uncino" <c.uncino@l'isolachenonc'e`.org> ha scritto nel messaggio
news:a145i4$g4n$2...@fe1.cs.interbusiness.it...


 Dove trovo della documentazione?
	$ man gdb


Newsgroup: it.comp.lang.perl
Titolo: gestione pdf.

Salve.
Utilizzo linux.
E' possibile poter gestire files pdf, leggerli e modificarli, con perl?
Grazie.

qualè il pacchetto da installare per usare il modulo PDF???
Simone 

qualč il pacchetto da installare per usare il modulo PDF???
Il modulo PDF credo che si installi con il pacchetto PDF. Credo
comunque che PDF::API2 sia piů completo.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Dividere una stringa




Quale puo' essere il modo migliore di dividere una

stringa in un array se devo suddividerla basandomi

sulle posizioni e non su un pattern?


Esempio: una linea lunga 190 byte, dove il primo

dato e' dal 1. al 3. carattere,  il secondo dal 4. al 10.,

e cosi' via.


Dato che il file da elaborare e' enorme (440MB),

un modo + veloce di suddividere queste linee aumenterebbe

molto la velocita' di elaborazione (per ora faccio tutto

con dei substring).


Grazie


Reinhard

-- 
Reinhard Spisser

spi...@bigfoot.com

 




spi...@bigfoot.com
 wrote:
 >Quale puo' essere il modo migliore di dividere una
 >stringa in un array se devo suddividerla basandomi
 >sulle posizioni e non su un pattern?
A naso qualcosa tipo:
my ($a, $b, $c) = split (/.{0,5}.{6,10}.{11,15});
Ma ti consiglio comunque di fare delle prove con il modulo Benchmark.
 ><BODY TEXT="#000000" BGCOLOR="#FFFFFF" LINK="#0000FF" VLINK="#FF0000" ALINK="#000088">
Per favore non mandare articoli in HTML.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *


Con l'istruzione pack, unpack usando qualcosa come 
	@Lista = unpack("A3  A6...", $linea);
Matteo Marchelli alias John Theo STIC N.4426 =8|
"Centro di Documentazione Betazoide"
http://www.geocities.com/siliconvalley/park/6856
mailto://
jt...@geocities.com
----------------------------------------
Il vero System Manager patcha il kernel con l'adb
----------------------------------------
- W A R N I N G - La mia arterio galoppa, in caso di mancata risposta entro un giorno, ripostare il messaggio, grazie.

 wrote:
: Quale puo' essere il modo migliore di dividere una
: stringa in un array se devo suddividerla basandomi
: sulle posizioni e non su un pattern?
L'unpack e` piu` efficiente del substr, magari meno leggibile, ma
piu` efficiente.
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E

con dei substring).
Usa unpack(), ad esempio:
($first, $second) = unpack("c3c7",$expr);
$first = primi tre caratteri (1-3)
$second = successivi 7 caratteri (4-10)
PS: vedi anche in perlfaq4 (alla voce 'How do I extract selected
columns from a string?').
--
Roberto Lupi
Electronic Engineering Student - University of Ancona - Italy
Linux/NT System Administrator
Linux/Win32 Developer
Newsgroup: it.comp.lang.perl
Titolo: sort.. reverse

Salve a tutti, ieri, nel tentativo di scrivere una sorta di "classifica"
(quindi con un hash nome/valore), mi č sorto un piccolo dubbio..
Facciamo un esempio del genere: 
$boh{io} = "3"; 
$boh{tu} = "10"; 
$boh{lui} = "1"; 
$boh{lei} = "5"; 
for my $chiave ( sort keys %boh ) { 
print "$chiave $boh{$chiave}\n"; 
} 
E fin qui tutto OK.. il problema c'č, perň, quando provo a ordinare i
valori dell'hash in modo decrescente, con un output simile a questo:
tu => 10;
lei => 5
io => 3
lui => 1
Ho provato questo:
for my $chiave ( reverse values %boh ) 
non va, purtroppo :\
Non so, aspetto una vostra risposta :)
Saluti
Andrea
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 non va, purtroppo :\
Quindi stai cercando di stampare il contenuto della hash ordinato per
valore. A giudicare dal codice che scrivi mi pare che tu stia cercando
di usare i valori per risalire alla chiave. Le hash pero` sono come
funzioni, quindi non e` detto che dato un valore si riesca a risalire
alla chiave corrispondente. Pensa ad esempio ad una hash fatta cosi`:
   my %h = ( pippo => 10, pluto => 10 ); # a quale chiave e` associato
                                         # il valore 10 ?
La soluzione e` dire a sort in che modo vanno ordinate le chiavi.
Ti faccio vedere il codice e poi lo spiego:
   -----------------------------------------------------
   foreach my $k ( sort { $boh{ $b } <=> $boh{ $a } }
                   keys %boh
                 )
   {
       print "$k -> $boh{ $k }\n";
   }
   -----------------------------------------------------
Ho passato a sort() un blocco di codice che viene eseguito per
stabilire quale elemento e` minore in un coppia. Come vedi il criterio
e` "prendi come elemento piu` piccolo quello che si riferisce al
valore piu` piccolo all'interno della hash" (ricorda che gli elementi
$a e $b sono chiavi della hash).
Se invece puoi garantire che tutti i valori della hash siano distinti,
e vuoi evitare di scrivere un sort() complicato (sempre che tu ritenga
complicato quello che ho scritto sopra), allora puoi usare questo
"trucco" per invertire la hash:
   my %reversed_hash = ();
   @reversed_hash{ values %boh } = keys %boh;
In questo modo, in un colpo solo, ho inserito in %reversed_hash
tante coppie chiave-valore, ciascuna delle quali costituita da un
valore della prima hash, e dalla chiave corrispondente.
A questo punto per ottenere lo stesso output di prima basta scrivere:
   --------------------------------------------------------
   foreach my $n ( sort {$b <=> $a} keys %reversed_hash ) {
       print "$reversed_hash{ $n } -> $n\n";
   }
   --------------------------------------------------------
Nota che anche in questo ho spiegato a sort() come ordinare le
chiavi, visto che si vuole un ordinamento numerico e non alfanumerico.
ciao,
Stefano
Newsgroup: it.comp.lang.perl
Titolo: Autenticazione apache-cgi

Ciao a tutti,
da vario tempo sono fermo ad un grosso problema con l'autenticazione
in apache.
Cerchero' di spiegarmi meglio:
- Ho un'area protetta con .htaccess e relativo file users
(home/www/pubdoc/reserved/);
- Se tramite browser accedo all'area, mi viene chiesta loging e pwd;
- Io vorrei avere uno script cgi che, da un input utente form (...
accesso.cgi?login=xxx&password=yyy) faccia l'autenticazione senza che
mi venga poi chiesta login e password se provo ad entrare nell'area
riservata...
1000 variabili a chi mi risolve il problema!! :-)
Saluti
JS

 JS
Prova con un redirect ad
http://user:pas...@www.hostname.it/cgi-bin/accesso.cgi
 - ma in questo
modo hai login e passwd belle visibili, ed hai da ruzzare un po' per
creare uno script ad hoc. Se vuoi usare a tutti i costi questomeccanismo
di autenticazione non hai alternative. Puoi però far sì che lo script
controlli i dati passati e li confronti, ogni volta, con il contenuto
del tuo .htaccess (che quindi ora puoi chiamare come più ti aggrada), o
mettere in un cookie username e passwd e controllarli ogni volta. 
Ciao,
     Samuele
PS: A proposito, qualcuno ha notato la "furbata" dell'insolito
"
http://www...@fiat.com
" nelle pubblicità tv? ;)

"
http://www...@fiat.com
" nelle pubblicità tv? ;)
Bastardi dentro?:-))
Newsgroup: it.comp.lang.perl
Titolo: collaborazione

Si richiede per collaborazione esperto CGI. Il lavoro, semplice, consiste
nell'adattare una procedura CGI esistente su di un nuovo sito.
Retribuzione da concordare, possibilità di telelavoro.
L'annuncio ha
carattere d'urgenza.
http://www.easyprint.it
michele_m...@genie.it
--------------------------------
Inviato via 
http://usenet.iol.it



Vorrei propormi come risolutore del tuo problema in quanto SEMI esperto di
CGI...
Spero in una buona documentazione sulla questione da risolvere...
Sarebbe meglio che scrivessi il tutto qui:
 
http://www.theartofweb.f2s.com/cgi-bin/
(apparte degli eventuali dati privati)
A presto!

Newsgroup: it.comp.lang.perl
Titolo: Accesso a database remoto

Avrei necessità di accedere ad un database Sql remoto attraverso un client 
Perl.
Se ho capito bene dovrei utilizzare l'interfaccia DBI sia per la connessione 
che l'accesso ai dati vero e proprio.
Nessuno di voi ha utilizzato tale metodo e quantomeno potrebbe indirizzarmi a 
dei codici d'esempio ?
Per utilizzare l'interfaccia Perl DBI è necessario installare delle librerie 
particolari nel sistema ospite ?
Ah dimenticavo utilizzo solo piattaforme unix.
  Grazie Geppo 

 Ah dimenticavo utilizzo solo piattaforme unix.
Le librerie DBI, che poi sono moduli perl, vanno installate sul sistema dove
girano gli script perl.
La connessione al database e' uguale sia che si trovi sullo stesso sistema,
sia che si trovi su un altro server: c'e' solo un parametro "host" in piu'.
es.
$dbh = DBI->connect("DBI:mysql:miodb:nomehost",$username,$password);
$q = "SELECT nome,cognome FROM utenti WHERE username='$username'";
$sth = $dbh->prepare($q);
$sth->execute();
$hash = $sth->fetchrow_hashref();
$dbh->disconnect();
Io lo uso abbastanza pesantemente su vari server, uno Linux e gli altri
FreeBSD. Funziona tutto benissimo.
bye
silvio

 particolari nel sistema ospite ?
Oltre, ovviamente, a DBI, sul sistema client dovrai installare il driver
(DBD) appropriato, il quale tipicalmente richiede perlomeno la presenza
delle librerie client del database.
Max

Newsgroup: it.comp.lang.perl
Titolo: Editor per PERL

Esiste un editor PERL che sia completamente FREE, cioč senza limiti di size
scripting, per intenderci che legga script superiori ai 5 o 6 K. Potete
darmi, se esiste, l'indirizzo da dovr scaricarli?
Ciao e grazie
Riccardo

 ha scritto nel messaggio
news:8sboov$agb$1...@nread1.inwind.it...


 ha scritto nel messaggio
news:8sbuac$86s$1...@nread2.inwind.it...


 darmi, se esiste, l'indirizzo da dovr scaricarli?
http://www.vim.org/
-- 
Ciao, Maurizio.
@@@@@@@
Neo:      "I know PERL"
Morpheus: "Show ME !!"

 Esiste un editor PERL che sia completamente FREE
Ti consiglio nedit al sito 
www.nedit.org
E' fantastico!!!!!!!!!!!!!!!!!!!!!!!

 Ti consiglio nedit al sito 
www.nedit.org
vim  
http://www.vim.org
emacs 
http://www.gnu.org
xemacs 
http://www.xemacs.org
-- 
Inquilini, coinquilini, casigliani... (Toto')
Newsgroup: it.comp.lang.perl
Titolo: [newbie] Un buon libro.

Salve un saluto a tutto il NG visto che questo è il mio primo post.
Come da oggetto sto cercando un libro per iniziare a programmare in Perl, ho
letto di "Learning Perl" ma non esiste niente in italiano ? on-line ?
saluti
Antonio

 wrote:

Se inizi da 0 credo che "Perl e Internet" (Bellini Guidi) sia 
obbligatorio...per la sua semplicità e chiarezza,una volta che ti si è 
accesa la lampadina ti puoi spostare verso "PERL Guida di riferimento" 
(Siever e altri)

ma perche', "Programmare in Perl" del buon larry wall no?
ciao
-- 
Sigmund - 1IHPC
.... .--. -.-.

 
.. esiste anche la versione tradotta in italiano ?

 .. esiste anche la versione tradotta in italiano ?
Solo della versione 2 che copre il Perl 5.005
Della versione 3, che copre il 5.6, non esiste la traduzione in italiano.

Newsgroup: it.comp.lang.perl
Titolo: segnalazione sito

 Visual Basic e sull'ASP.
Appunto... fai diventare le sezioni più sostanziose quelle sul Perl e
sul PHP...
Con guascona disapprovazione,
-- 
Wiz of Id a.k.a. William Ghelfi
E-Mail: < mailto:
w...@galactica.it
 >
Web Site: < 
http://web.tiscalinet.it/penguin_rules/
 >

Volevo segnalare solamente che nel mio sito, ho aggiornato tutte le pagine
relative ai linguaggi e le ho implementate in ASP.
Mi piacerebbe avere suggerimenti, le sezioni più sostanziose sono quelle sul
Visual Basic e sull'ASP.
l'url è 
http://www.redangel.it
--
Red Angel
E-Mail: 
red....@libero.it
Home Page: 
http://www.redangel.it
 sito per programmatori: Share your
knowledge
Pagina personale per gli iscritti (iscrizione gratuita) con Forum privato!!

Newsgroup: it.comp.lang.perl
Titolo: Aiuto per installare modulo DBD::Mysql su Win2000

Salve a tutti.
Ho installato senza problemi il modulo DBI e DBD::Mysql sulla ma
macchina Windows usando ppm.
Ho pero' serie difficolta' nell'installarlo su un server Win2000 che
non puo' in alcun modo accedere a Internet. Devo quindi installarlo
localmente. Ho trovato la documentazione del modulo abbastanza carente
di info su come procedere.
Qualcuno di voi l'ha fatto e puo' darmi una dritta?


1. Scarica il package zippato, ad esempio da qui:
http://ppm.activestate.com/PPMPackages/zips/8xx-builds-only/Windows/
(attenzione: questo repository contiene i package per ActivePerl build 
8xx (l'ultimo disponibile): se ne hai un'altra versione vai nel 
repository corrispondente).
2. Porta il package sulla macchina target ed estraine *tutto* il 
contenuto nella stessa dir.
3. Apri una DOS box, cd verso la dir dove hai scompattato il package, 
quindi esegui il seguente comando:
	ppm install DBD-mysql.ppd
Ciao,
Emanuele.

Funziona, perfetto!!
Grazie mille, mi hai risolto un problema!!
Newsgroup: it.comp.lang.perl
Titolo: Come si leggono i cookie scon LWP?

Ho provato questo codice:
my $ua= LWP::UserAgent->new;
$ua->cookie_jar( HTTP::Cookies->new('file' => 'cookie.txt','autosave' => 
1) );
my $req = $ua->get();
if ($req->is_success)
{
 print $req->header("Set-Cookie") or "null cookie"
}
__END__;
Quando faccio la richiesta web sul file "cookie.txt" non viene salvato 
nessun cookie spedito come response dal server, al contrario riesco ad 
accedere ad UN solo cookie (il primo in ordine di apparizione) con 
$req->header("Set-Cookie")...
Come si fa ad accedere a tutta la lista di cookie spediti dal server?
grazie 

 __END__;
mi devo ricredere, forse riesco a leggere i vari cookie anche in un colpo 
solo
Newsgroup: it.comp.lang.perl
Titolo: Match coi numeri

problema:
ho un array di stringhe contenenti una frase con un anno, vorrei
matchare se l'anno e' maggiore di un certo valore:
es:
nell'array ho le frasi: 
1- "ciao sono nato nel 1994 a cuneo"
2- "mi chiamo poldo e sono del 1943 "
3- "nel 1997 ho compiuto 23 anni"
la mia keyword e 1992
voglio il match con la prima e la terza, cioe' le frasi che contengono un
anno maggiore di 1992.
Il problema e' che non riesco ad assegnare il contenuto della frase
ad una variabile, io vorrei assegnare l'anno all'interno della frase
ad una variabile e poi controllare questa.
come posso fare?
grazie.

 come posso fare?
 Prima di tutto dovresti definire cosa consideri per 'anno'? 
 Ipotesi: un numero di 4 cifre che inizia per 19.
#---------
while (<DATA>)
 {
    ($anno) = /\b(19\d\d)\b/; 
    print if ( defined ($anno) && $anno > 1992 )
 }
__DATA__
ciao sono nato nel 1994 a cuneo
mi chiamo poldo e sono del 1943
nel 1997 ho compiuto 23 anni
#---------
 Se invece hai bisogno di una definizione piu' generale ( e non Y2K :-)
 puoi provare
  ($anno) = /\b(\d{4})\b/;
ma a questo punto finiresti per beccare qualsiasi numero di 4 cifre.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 ICQ# 1980563

come posso fare?
for ($i=0; $i<=$#ARRAY; $i++) {
	if ($ARRAY[$i]=~/(\d\d\d\d)/) {
		if ($1 > 1992) {
			print "$ARRAY[$i]";
		}
	}
}
Ciao
Andrea Busia
No Spam, Grazie.

Newsgroup: it.comp.lang.perl
Titolo: evitare dupplicati in un file.

Salve.
Dovrei inserire in un file di testo il contenuto di un array.
Per evitare dupplicati dovrei anche controllare che l'elemento dell'array
non esista gia' nel file di testo.
Come potrei fare?
Dovrei riversare il contenuto di tale file in una altro array
e scorrerlo ogni volta per verificare che l'elemento del primo array da inserire
non sia gia' presente?
Grazie.

non sia gia' presente?
Maglio un hash (eventualmente, un hash legato ad un file su disco, se il
file in entrata è molto grande), secondo il metodo già visto nell'altro
thread. Guarda anche perldoc -q uniq.
Ciao.

Giovanni Zezza wrote:

Ho risolto riversando il file su un array e usando il comando grep ....
grep {foo} @array
Ciao.  

grep {foo} @array
Che cosa c'entra grep con il problema che hai proposto lo sai solo tu,
comunque, se dici che hai risolto, non sarò certo io a contraddirti.
Ciao.

Giovanni Zezza wrote:

Ho un array e un file di testo.
Dovevo verificare che l'elemento dell'arra non esistesse gia' nel file prima
di essere scritto nello stesso file.
Quindi ho riversato il contenuto di tale file in un altro array e ho usato
grep per fare tale verifica.
Non ho qui il programma altrimenti ti avrei pastato le due righe di codice.
Non sei d'accordo? 
Ciao.

Non sei d'accordo?
Se il codice che hai scritto soddisfa le tue esigenze, chi sono io per non
essere d'accordo?
Se invece hai dei problemi di efficienza o altro, posta il codice e
chiarisci meglio il problema, che vediamo se si può migliorare qualcosa.
Ciao.
[1] Codice non verificato.
Newsgroup: it.comp.lang.perl
Titolo: CGI e SSI

Sono cliente di un web hosting italiano che si avvale di servers situati
negli USA.
Ho un problema: i comandi SSI non funzionano se la pagina è generata
dinamicamente da uno script in Perl.
In Hypermart e VirtualAvenue questo funzionava. Come faccio a farlo
funzionare anche sul questo nuovo provider.
Si può via .htaccess ? Bisogna modificare la configurazione del server ?
Grazie 1000 a chi avrà compassione di me e risolverà questo mio problema
vitale.
Filippo
SOS

vitale.
Purtroppo non ti ho potuto aiutare molto
Ciao
Andrea Busia

 Nessuno dei due purtroppo
 Pero'... se si genera la pagina, si puo' anche generare il contenuto che
 dovrebbe essere inserito dal comando SSI.
 
 Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 dall'httpd, ma è un'eccezzione; non è la regola
Si, hai ragione.
Che io sappia, l'unico modo perche' questo avvenga e' utilizzare Apache con
mod_perl o qualche web server simile, che ti permette di gestire i "cgi"
dall'interno del httpd, come handler dello stesso... ed in questo caso devi
intervenire sul file di configurazione del server.
Quindi magari prova a informarti che web server usano.
    Best regards,
        Kazuma
--
Alessandro A. Garbagnati
Sr. Lead Engineer, Product Development
Decisive Technology
Mountain View, CA, 94043

 wrote in message
93032736...@melissa.energy.it...


 > dall'httpd, ma č un'eccezzione; non č la regola


Perchč???
Non puoi dichiarare un file con estensione .cgi sia come file shtml,
sia come programma. MI dispiace.
Ci ho litigato molto anche io, tempo fa e la soluzione č stata
inserire nei cgi quello che sarebbe dovuto essere il risultato degli
SSI, mi dispiace.
Ciao
Andrea Busia

SSI, mi dispiace.
Cosa, peraltro, IMHO molto piu' efficiente.
In pratica ti fai una tua sub similSSI e la usi dove e quando ti
serve.
------
bale...@dada.it
 
http://zap.to/balestra
  ICQ#:14303012
" Ora mai che i baci tuoi piu' non mi sazian
  cerchero' un'altra donna dentro ai sogni di Tarzan... "

 wrote in message
37778a64.28442439@proxy...


conflitti con le estensioni di FrontPage
C'è un modulo che emula gli ssi attraverso perl, su web server Apache;
si chiama Apache-OutputChain, provalo.
Ciao
Andrea Busia

 si chiama Apache-OutputChain, provalo.
In teoria non ce n'e' bisogno, perche' mod_perl gia' fa una cosa simile.
Basta definire in httpd.conf che al tipo di estensione ".cgi" corrispondono
piu' handler, uno e' quello che gestisce il cgi in se, l'altro quello che
si occupa del SSI, magari usando un pacchetto tipo Apache::SSI
es:
<Files *.cgi>
	SetHandler  perl-script
	PerlHandler myCGIHandler Apache::SSI
	Options FollowSymLinks Includes +ExecCGI
</Files>
(ps: ma questi sono piu' problemi legati al web e non al perl... non siamo
un po' tutti OT?)
	Best Regards,
		Kazuma
-- 
Alex Garbagnati, 
agarb...@removethis.decisive.com
Sr. Lead Engineer, Product Development
Decisive Technology Corporation
Mountain View, CA  94043
Newsgroup: it.comp.lang.perl
Titolo: Session tracking

Salve a tutti,
sono un newbie del mondo Perl-finora ho sviluppato applicazioni server in
Java e
volevo fare un onesto confronto con la tecnologia Cgi. In particolare volevo
sapere quali sono
gli strumenti che mette a disposizione il Perl per fare session-tracking,
ovvero memorizzare le informazioni riguardanti la sessione corrente
dell'utente collegato al Web Server. Esistono le variabili di sessione ed
i cookies?
Grazie
Francesco

 i cookies?
Si.
Tipicamente si usano i cookie oppure campi hidden.
il mod_perl ha qualcosa in più, ma non so dirti niente di preciso.
--
Valerio Granato - 
val...@grana.to
FOR KeyMaster - i2000 Usenet Hierarchy
Maggiori informazioni sulla gerarchia i2000?
http://www.i2000.usenet.it
 - 
in...@i2000.usenet.it

 tecnologia Cgi.
Come ho altre volte sostenuto in questo NG, non credo abbia senso fare un
confronto tra tecnologie Java (servlets, JSP, XSP o quant'altro) e CGI
(che, per inciso, non è sinonimo di Perl). Il confronto sarebbe impari.
Potrebbe invece essere sensato il confronto tra tecnologie che offrono le
stesse tipologie di strumenti.
E l'alternativa Perl alle tecnologie Java non è certo CGI, ma qualche tipo
di framework più complesso, come:
 (nel mondo UNIX e Win32)
 - Apache + mod_perl  (
http://perl.apache.org
)
 - AxKit (application server XML per mod_perl, 
http://axkit.org
)
 (nel solo mondo Win32)
 - PerlEx (
http://www.activestate.com
)
 - PerlScript (Perl sotto ASP)
Tanto per citarne alcuni. In tutti questi ambienti sono disponibili le
funzionalità a cui un programmatore di servlets è abituato, come
connessione persistente a database, gestione trasparente delle sessioni e
via dicendo.
Se si vuole poi fare un confronto tra le varie soluzioni esistenti (basate
su Java, Perl, VBScript o quant'altro), alcuni degli aspetti che, a mio
avviso, vanno tenuti in considerazione sono: performance, portabilità tra
piattaforme, possibilità di separare facilmente business logic,
interfaccia utente e contenuti.
L'ultimo, im particolare, è, per il mio modo di vedere, decisamente
importante, quando si ha a che fare con progetti complessi. Per questa
ragione, ad esempio, non amo molto ASP o EmbedPerl.
Max

Newsgroup: it.comp.lang.perl
Titolo: Cerco anima buona per rinominare file...

Ho un file "../xxx.txt"
devo chiamarlo "../yyy.txt"
come faccio?
Per favore non rimandatemi alla guida...
non ho il tempo per capirci...
devo solo aggiungere questo passo
ad uno script (funzionante) che ho già scritto.
Quindi graditissimo un esempio, altrimenti
grazie ugualmente!
Bye
F.

non ho il tempo per capirci...
Ehm, sarebbe bastato un semplice:
perldoc -f rename
;)
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 ha scritto nel messaggio
news:slrn8n9r...@karma.italpro.to...

Newsgroup: it.comp.lang.perl
Titolo: funzione localtime

Salve,
sapete dirmi perche':
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$mon mi restituisce 4 ovvero aprile anziche' maggio ?
Grazie



perchè parte da zero, è una vecchia storia :)
Per avere maggio al 5 occorrerebbe:
++$mon;
perldoc -f localtime
--
www.pigmalion.info
www.pigmalion.info/perl/

 perldoc -f localtime
Ma mi rispondi sempre tu ? :))
Cmq non ho trovato una descrizione di questo problema nella doc,
lo avro' solo per questo mese ?
Andrea

lo avro' solo per questo mese ?
E allora sei pigro,sciatto e non sai l'inglese :))
Come lo vendi poi il pecorino in rete senza inglese?
Ok, Ok.. skerz
da 'perldoc -f localtime'
$mon is the month itself, in the range `0..11' with 0 indicating
January and 11 indicating December. $year is the number of years
since 1900. That is, $year is `123' in year 2023. $wday is the
day of the week, with 0 indicating Sunday and 3 indicating
Wednesday. $yday is the day of the year, in the range `0..364'
(or `0..365' in leap years.) $isdst is true if the specified
time occurs during daylight savings time, false otherwise.
... continua.
Se ne è parlato tempo fa, soprattutto per tirare fuori la data in
formato italiano.
All'epoca feci un paio di esperimenti:
http://www.pigmalion.info/perl/?screen=repository&dir=time&file=lib_time.pl
--
www.pigmalion.info
www.pigmalion.info/perl/


http://www.pigmalion.info/perl/?screen=repository&dir=time&file=lib_time.pl
grazie cmq...

Newsgroup: it.comp.lang.perl
Titolo: Teacher per Sql-ledger....

Ciao,
avrei intenzione di utilizzare Sql-Ledger  ( 
http://www.sql-ledger.com
 )x
organizzare la mia attivita' commerciale.
Pero il software e' scritto il PERL ed io non ne so niente.
C'e' qualcuno che a pagamento mi puo' istruire \ assistere nella
installazione e sviluppo di tale prodotto ?
Ciao
grenzo

, scriveva:

??? Ci sono diverse mailing list (gratuite), di cui una in italiano; c'e` un
servizio di assistenza...
Mi sembra logico rivolgersi innanzitutto a loro.
Ciao.

 ha scritto nel messaggio
news:cjqvjuo10n8reoqeg...@4ax.com...

ehm, mi sai dire come iscriversi ?
--
ciao

ehm, mi sai dire come iscriversi ?
Non so, il mio browser e' piu' grosso del tuo? o forse c'ho il modem piu'
lungo?
Vai sul sito e guardaci tu!
Io 'sto robo e' la prima volta che lo vedo, sicche' ne so molto meno di te;
mi interessa anche tra zero e nulla perche' la lista dei miei debiti la
tiene gia' per me la mia banca. Ho giusto dato un'occhiata veloce al sito,
per pura curiosita', e mi pare di aver visto che la roba c'e', di qui lo
stupore.
Se invece e' tutta roba finta, scusa, come non detto. Avro' forse reso un
po' piu' visibile il thread e speriamo che qualcuno ti risponda.
Ciao.