mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: .pl non viene eseguito da browser...

Ciao,
lurko il ng da molto tempo senza disturbare, sto studiando molto ma questa
cosa non la capisco.... chiedo help a chi ne sa più di me! :o))))
Alora:
- cartellla cgi-bin funzionante (c'è un'altro cgi dentro che funziona)
- ci ho messo il mio script (My Guestbook V4.0, un freeware preso da
cgipoint.it
)
- permessi 755 corretti
- link all'interprete perl corretto, copiato dallo script funzionante che ho
citato prima (#!/usr/local/bin/perl)
Risultato:
Se chiamo il 
setup.pl
 o il file .cgi da browser come da istruzioni readme
dello script... non parte lo script ma a video nella finestra del browser
vedo tutto il codice del .pl o del cgi!!! :-OOOOO
Che può essere???
E' possibile che interprete e script perl si vedano, si incontrino, ma non
si capiscano? ...differenti versioni o chissà che altro.......
Attendo lumi dagli esperti!
Ciao e grazie,
M.

vedo tutto il codice del .pl o del cgi!!! :-OOOOO
Lo script che funziona che estensione ha?
	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!

 Lo script che funziona che estensione ha?
...è una webchat che parte da un chat.cgi e lavora con un 
chat-html.pl
 e un
cgi-lib.pl
 ecc ecc.
Può essere che il sysadmin (se c'è ne uno), da i privilegi di esecuzione ai
singoli script? ...per sicurezza, per controllo ecc ecc....
ciao
M.

singoli script? ...per sicurezza, per controllo ecc ecc....
Mah, tutto e` possibile immagino. Io pensavo piu` che altro ad handler
assegnati in base all'estensione, pero` se e` la stessa...
	Michele.
P.S.: Il newsgroup giusto per queste domande sarebbe it.comp.www.cgi
ora che ci penso. ;-)


Scusate l'intromissione e scusate anche se dico una scemenza(nel caso
fatemelo notare non mi offendo):
e' possibile che oltre ai permessi sia da settare anche gruppo  e
proprietario a NOBODY
Ciao
Manuel
On Wed, 02 May 2001 15:27:24 GMT, 
m...@italpro.net
 (Michele Beltrame)
wrote:



No se ha 755 non è un problema di proprietà, (film già pensato più volte)
--------------------------------
Marco Pinna
System & Network Admin
marc...@vaionline.it
--------------------------------

 No se ha 755 non è un problema di proprietà, (film già pensato più volte)
Ciao Ragazzi,
a parte che c'erano delle cosine nel codice (qualche " " " di troppo...), il
vero problema (che poi non era un problema) è che su quel server girano solo
i .cgi, e non i .pl: è bastato rinominare, tutto ok!
Grazie e ciao,
M.
Newsgroup: it.comp.lang.perl
Titolo: Regexp

Ciao a tutti,
come faccio a controllare che una stringa (lunghezza variabile) sia composta
da soli numeri e lettere?
può andar bene
if ($stringa ~=m/[A-Z]|[a-z]|[0-9]/)
{
...
}
??
Grazie!
Salva

if ($stringa ~=m/[A-Z]|[a-z]|[0-9]/)
$s='#@B|q|3jon3' passa quella regexp
      ^---^
tu chiedi che da qualche parte ci sia una sola lettera
maiuscola, seguita da un '|', seguita da una sola
lettera minuscola, seguita da un altro '|', seguita da
un numero
l'uso di '|' come operatore di OR, avviene solo
all'interno delle parentesi (spero qualcuno confermi,
non sono sicurissimo)
[A-Za-z0-9] matcha quello che cercavi tu, ma devi
permettere che siano ripetuti quante volte vuoi, e
devi pure verificare dall'inizio alla fine, con ^ e $
Oha
-- 
#include <disclaimer.h>

 non sono sicurissimo)
Sbagliato, infatti.
La risposta richiesta sarebbe 
   $stringa =~ /^[A-Za-z0-9]+$/
se $stringa contenesse solo e solamente la parola da controllare.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

se $stringa contenesse solo e solamente la parola da controllare.
Non basta un 
$stringa !~ /\W/
Ciao
Andrea Busia
No Spam, Grazie.

 
No. L'unico caso in cui '|' non trattato come metacarattere è quando
compare in una classe di caratteri (ad es, / [a-z|]/).
Max

 wrote in message
VjP3ONFbj3gw32...@4ax.com...


$stringa !~ /\W/
per quello che ho capito io, si.
Oha
PS: forse e' anche meno dispendioso in "silicio"?
-- 
#include <disclaimer.h>
Newsgroup: it.comp.lang.perl
Titolo: Redirector POP3

Ho scritto questo semplice redirector pop3:
<---------------------------------->
#!/usr/bin/perl
use IO::Socket;
select(STDOUT); $| = 1;     # make unbuffered
print "+OK POP3 Redirector by Buttha Ready\n";
chop($input=<STDIN>);
($junk, $dati)=split(/ /,$input);
($user, $server)=split(/#/,$dati);
$conn = IO::Socket::INET->new(
	Proto    => "tcp",
	PeerAddr => "$server",
	PeerPort => "pop3(110)",
	)
	or die "cannot connect";
$conn->autoflush(1);
$junk=<$conn>;
print $conn "USER $user\n";
$kidpid = fork();
# il blocco if{} e' eseguito dal processo padre
if ($kidpid) {
	while (defined ($line = <$conn>)) {
		print STDOUT $line;
	}
	kill("TERM", $kidpid); # spedisce un SIGTERM al figlio
	}
	# il blocco else{} e' eseguito dal processo figlio
	else {
	while (defined ($line = <STDIN>)) {
		print $conn $line;
	}
}
close $conn;
<---------------------------------->
Il principio e' molto semplice (funziona come wingate):
come utente si specifica user#server.pop3
e il redirector fa login come user al server server.pop3
Lo eseguo via inetd. 
Ora, via telnet funziona perfettamente:
user utente#server
pass password
ecc...
(unico problema e' che non riesce a risolvere il nome del server:
bisogna dare l'IP. Non so perche').
Cmq tutto va bene.
L'ho poi testato con outlook, e in questo caso non funziona.
Con netcat ho dato un'occhiata ai comandi che da outlook, e sono quelli
standard:
user ....
pass ....
stat
ma si blocca in fase di autenticazione.
Qualcuno ha qualche idea in merito?
Buttha
-- 
* Per rispondere in email rimuovere la prima i dall'indirizzo
* 
http://members.xoom.it/buttha/
* Non basta poter dare del tu a chiunque, dobbiamo rivendicare la
  possibilita' di dare dell'io a qualcun altro (L.B.)

 Qualcuno ha qualche idea in merito?
chi si blocca, Outlook o lo script?
in ogni caso da' un'occhiata alla RFC 1725, se non l'hai già fatto. Potrebbe
esserti sfuggito qualcosa

Newsgroup: it.comp.lang.perl
Titolo: Una domanda per la validazione di un link

ho notato che su internet esistono diversi programmi per validare un
link di una pagina:
sapete se per caso esiste uno scriptino in perl per validare un link a
riga di comando?
Una cosa tipo:
validate 
http://sunsite.unc.edu/pub/index.shtml
Ok o Not Found
e lo stesso via ftp?
grazie a tutti.
Diaolin
-- 
Vuoi creare un banner: 
http://stone.trew.it/net-fu
 tradotto in
italiano!

La cosa è fattibile utilizzando LWP. In parole povere:
1) Leggi l'input e ne controlli la validità sintattica
2) Generi un messaggio GET
3) Analizzi il messaggio d'errore: se non è 200 (RC_OK) stampi 'URL non
valido'
Spero di essere stato d'aiuto.
Valerio
--
-LiveNET- Virtual Housing & Domain Registration -
 
http://www.livenet.it
     -    
sa...@livenet.it
                      +39   81 5625909
 
+39 348 4209713
 
+39 348 4209754

Newsgroup: it.comp.lang.perl
Titolo: WWW::Facebook::API

Tento di installare il modulo con il Package Manager, ma puntualmente
ad ogni tentativo il programma si interrompe (crash), dunque uso  il
ppm shell, anch'esso si comporta come il Package Manager. A questo
punto mi armo di pazienza ed installo manualmente il modulo. Dopo
l'installazione parto con il mio script, ora chi si interrompe è il
Perl Command Interpreter. Qualcuno fra di voi ha avuto la stessa
brutta esperienza? Lavoro sotto Windows Vista. In alternativa cerco di
usare il modulo WWW::Facebook::FQL ma non mi restituisce alcun
risultato. Qualche consiglio?. Grazie in anticipo.

 risultato. Qualche consiglio?. Grazie in anticipo.
Non riesco a replicare il problema: a me WWW::Facebook (0.4.17) va su 
come una crema con il Package Manager (che poi altro non � che una GUI 
su ppm).
Il package � quello del repository di ActiveState.
ActivePerl 5.10.1.1007 32-bit sia su Windows Vista che su Windows 7.

 Non riesco a replicare il problema: a me WWW::Facebook (0.4.17)
Volevo dire WWW::Facebook::API ovviamente.

On Mar 3, 1:43 pm, Emanuele Zeppieri

Ti ringrazio, il problema potrebbe risiedere nel fatto che uso la
versione 5.8.8.882 che ho installato per compatibilità con il server
dove gestisco lo spazio web, in questo modo ho la stessa versione in
locale ed in remoto. L'installazione del modulo in remoto non ha dato
errori però il sistema operativo del server è Linux mentre in locale è
Vista.
Più tardi proverò un semplice
use WWW::Facebook::API
insieme a
use CGI::Carp 'fatalsToBrowser'
in remoto per vedere se mi blocca il programma così come accade sotto
Vista.

 Non riesco a replicare il problema: a me WWW::Facebook (0.4.17)
L'informazione può essere utile, dopo aver effettuato varie prove ho
scoperto che il problema risiedeva nel modulo LWP, il problema si è
risolto solo dopo averlo aggiornato all'ultima versione.

Newsgroup: it.comp.lang.perl
Titolo: Problema Oracle!! :)

Salve ragazzi ...... ho bisogno di un piccolo aiuto se qualcuno di voi puņ,
o vuole darmelo......
Quando tratto dei dati di tipo long su DB riscontro dei problemi..... ad
esempio :
Error while trying to retrieve text
for error ORA-03106  qualcuno di voi sa aiutarmi ????
GRAZIE!!!



Molto sintetico nella descrizione del problema. 
Versione di Oracle, Perl, DBI e DBD?
Guarda innanzitutto la docs Oracle per la descrizione
dell'errore.
Con i tipi di dati LONG (CLOB, ecc) devi impostare le proprietą 
del driver DBI 'LongReadLen' e 'LongTruncOk'
In particolare:
   "'LongTruncOk' is false and so fetching a
     long value that needs to be truncated will cause the
     fetch to fail. [...]"
=> perldoc DBI, DBD::Oracle per maggiori dettagli.
In sostanza: a priori il driver non sa quanto allocare per ogni 
campo e se deve troncare il valore una volta superato il max limite
di bytes.
	- Enrico
Newsgroup: it.comp.lang.perl
Titolo: time

my $tempo = 1092718042;
ho bisogno di tradurlo in $data e $ora col formato dell'esempio:
$data  #17/08/2004
$ora  #6:58
Grazie!

 ho bisogno di tradurlo in $data e $ora col formato dell'esempio:
 perldoc -f localtime
 
http://www.perldoc.com/perl5.8.4/pod/func/localtime.html

  
http://www.perldoc.com/perl5.8.4/pod/func/localtime.html
Aggiungo per completezza:
http://www.perl.it/documenti/perlfunc/view.html?func=localtime
;)

Newsgroup: it.comp.lang.perl
Titolo: While e redirect

Ciao a tutti di seguito riporto parte di codice che in base alla
verifica di due valori corrispondenti in due array diversi
dovrebbe eseguire il redirect ad un sito piuttosto che ad un altro.
In realta' sia che i valori siano errati o corretti il redirect avviene
sempre a 
http://www.pippo.com
.
Dove sbaglio???
Grazie Corrado.
#!/usr/bin/perl
use CGI;
$query=CGI::new();
read(STDIN,$temp,$ENV{'CONTENT_LENGTH'});
@pairs=split(/&/,$temp);
foreach $item(@pairs)
 {
  ($key,$content)=split(/=/,$item,2);
  $content=~tr/+/ /;
  $content=~s/%(..)/pack("c",hex($1))/ge;
  $fields{$key}=$content;
 }
while($cont< scalar(@arma1)) {   # @arma e @arma di 1  sono due array
che contengono i nomi ed i cognomi su cui andare ed eseguire la verifica
if($arma[$cont] ne 'mario' or $arma1[$cont] ne 'Rossi') {
print
$query->redirect('
http://www.pippo.com
');
}
else
{
print
$query->redirect('
http://www.pluto.com
');
}
$cont++;
}

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

maiuscola... 
scusa cosa significa rischiosissimo ?
-- 
     #@@@ missinglink on slackware 7.1 ###
     ####       member of telug        #@@
 

 scusa cosa significa rischiosissimo ?
Che se per caso hai scritto 'Mario Rossi' non lo beccherai mai...
A meno che non sia una politica aziendale mettere il primo nome sempre in
minuscolo... :)
Piu' sono precise le cose che cerchi, piu' e' difficile trovarle.


Piu' sono precise le cose che cerchi, piu' e' difficile trovarle.
thanks


Newsgroup: it.comp.lang.perl
Titolo: variabile di variabile con direttiva "use strict"

usa la direttiva "use strict" e vorrei utilizzare una variabile di
variabile, cioč
$A = "FW_LAN_EXT";
$RULES_FW_LAN_EXT = "pippo";
$B = "RULES_$A";
print "$$B\n";
allora senza la direttiva ottengo la stringa "pippo", con la direttiva mi
restituisce l'errore:
Can't use string ("RULES_FW_LAN_EXT") as a SCALAR ref while "strict refs" in
use at ./
a.pl
 line 14.
E' possibile rimediare a questo errore, se č un errore?
Grazie
Luca


  print eval('$'.$B), "\n";
Ma č piů pulito usare un hash.
 my %RULES = ( FW_LAN_EXT => 'pippo' );
 print $RULES{$A}, "\n";
Max
Newsgroup: it.comp.lang.perl
Titolo: post





Ciao a tutti, vorrei sottoporvi il mio problema: 
devo invocare un cgi da un cgi (e questo riesco a 
farlo) passando dei 
parametri; il punto è che non voglio che questi parametri siano visibili da 

browser. Ho provato in questo modo ma non mi funziona:


 


`export REQUEST_METHOD="POST"`;


 


print "Content-type: text/html\n";
print 
"Location: 
http://dominio.it/cgi-bin/controllo.cgi?username=$username&password=$password"
;
print 
"\n\n";


 


Sapete come devo fare ?


 


Grazie e ciao.


 


---------------------------------------------


 


Glauco Magnelli
Interfree s.p.a.


 


tel: 0587 287407
fax: 0587 287154
e-mail: 
gmag...@interfree.it
http://www.interfree.it


 


-----------------------------------------------



 Sapete come devo fare ?
Perlfaq9 "How do I automate an HTML form submission?", sezione sul POST.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Newsgroup: it.comp.lang.perl
Titolo: problemi telnet nel perl su server-telnet windows

Andate qui:
http://www.goodtechsys.com/downloads.asp
Inserite i dati e scaricatevi questo server telnet per windows scegliendo
telnet server for win9598me. Sono 300 k,basta cliccare su install ed
inserire un nuovo utente e la sua password ed il gioco è fatto. Se mi
collego con uno script su un telnet server su linux va tutto ok, ma se lo
faccio qui non funziona mi da timed-out waiting for command prompt at
suppo.pl
 line 5:
use Net::Telnet ();
$t = new Net::Telnet (Timeout => 10,
                     Prompt => '/bash\$ $/');
$t->open("192.168.1.2");    #l'indirizzo della seconda macchina
$t->login(supporto, suppo); #utente e password, lo scrip si ferma prima
@lines = $t->cmd("cd ..");  #primo comando
@lines = $t->cmd("dir");    #secondo comando
print @lines;               #mi dovrebbe mostrare l'output a video
Con uno script in php avrei detto una volta inserita la password avanza di
uno spazio finchè non si incontra la lettera > (che corrisponde a c:\>),
ma con il perl come faccio a farlo funzionare su questo server. Se su
linux basta inserire utente e password su questo server telnet dopo aver
digitato la password compaiono una serie di scritte (di ben venuto).
Grazie

 scritte (di ben venuto). Grazie
  devi leggere la documentazione di Net::Telnet e
1 - cambiare il prompt "bash$ " con qualcosa di adatto (tipo ^\w:.*?\> *$
    o qualcosa di simile)
2 - verificare che i propt di login e password corrispondano a quanto
    N::T si aspetta, e, in caso contrario, usa ->cmd e ->waitfor (come 
    suggerito da TFM)
Mattia

Ma come si usa waitfor ??' 
E' possibile avere un esempio completo, metti che dopo la password mi
debbano comparire diverse righe ed alla fine avrò una scritta simile:
c:\
Prima di questo considera di avere:
Benvenuto in questo telnet,
per comprare il prodotto vai su ecc......
Come posso fare per arrivare direttamente al c:\, e saltare le righe
precedenti ???
Grazie
Newsgroup: it.comp.lang.perl
Titolo: Aiuto... problema non banale.

Ritengo sia un problema non banale.
Dunque io ho due array cosi':
@arrayin  = ("a" ,"2468", "b", 2468, "c", "12753", "d","4753", "e","4753");
@arrayout = ("b" ,"2468", "c", 2468, "d", "12753", "e","12753",
"f","12753");
e voglio ottenere un file che per ogni riga riporti:
a, valore_in , valore_out
b, valore_in , valore_out
ect
Eventualmente nel caso di a esiste solo valore in allora valore out si pone
a zero e viceversa per f.
Non sono un mago del perl ma credo che non sia banale.
Se potete aiutarmi ve ne saro' grato.
Grazie





Hai provato a farlo? Dove non funziona il tuo programma? Parliamone... :)
Per altro, se i tuoi array sono VERAMENTE fatti in quel modo, non dovresti
usarli. Il formato che ci hai mostrato grida hash da tutte le parti.
 %in=@arrayin;     # solo perche' i tuoi dati non sono gia' in un hash
 %out=@arrayout;   # idem
 @chiavi{keys %in,keys %out} = ();
 foreach $chiave (sort keys %chiavi)
  {
    print $chiave, " , " ,( $in{$chiave} || 0 ), " , ",
                          ( $out{$chiave} || 0 ), "\n";
  }
Si possono poi aggiungere orpelli aggiuntivi, ma cosi' sembra gia'
funzionare (ovvero mi da un risultato conforme alla tua richiesta e ai tuoi
dati).
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 Non sono un mago del perl ma credo che non sia banale.
#!/usr/bin/perl -w
use strict;
my %VIN  = qw( a 2468 b 2468 c 12753 d 4753 e 4753 );
my %VOUT = qw( b 2468 c 2468 d 12753 e 12753 f 12753 );
# Come prima cosa dobbiamo costruirci un elenco unico che comprenda
# l'unione di tutte le chiavi di %VIN e %VOUT, senza ripetizioni.
my %CHIAVI = ();
for (keys %VIN ) { $CHIAVI{$_} = 1 }
for (keys %VOUT) { $CHIAVI{$_} = 1 }
# fatto, ora le keys di %CHIAVI contengono quell'elenco.
# Siamo pronti ad aprire il file e scrivere:
my($voce, $valuein, $valueout);
open DEST,'>outfile';
foreach $voce (sort(keys %CHIAVI)) {
    $valuein  = $VIN{$ voce} or '0';
    $valueout = $VOUT{$ voce} or '0';
    print DEST "$voce\, $valuein\, $valueout\n";
}
close DEST;
Ci sono modi piu` rapidi, ma questo credo sia uno dei modi piu`
"didattici" di scriverlo.
-- 
Oramai che i baci tuoi piu` non mi sazian
cerchero` un'altra donna dentro ai sogni di Tarzan...

 ....
@arrayin = ("a" ,"2468", "b", 2468, "c", "12753", "d","4753", "e","4753");
@arrayout = ("b" ,"2468", "c", 2468, "d", "12753", "e","12753","f","12753");
%arrayin=@arrayin;
%arrayout=@arrayout;
#oppure subito %arrayin="a" ,"2468", "b", 2468, "c", "12753", "d","4753", "e","4753");
# e %arrayout = ("b" ,"2468", "c", 2468, "d", "12753", "e","12753","f","12753");
foreach $k (sort (keys %arrayout, keys %arrayin)) {
 print "$k ",$arrayin{$k}||0,",", $arrayout{$k}||0,"\n" unless $check{$k};
 $check{$k}++; 
} 
--  
Saluti,
Giancarlo

  $check{$k}++; 
Carino :o)


Siete dei grandi grazie ora ci studio sopra!!

Carino :o)
Resterebbe da vedere se e' piu' efficente formare il "terzo" hash prima (come
avete fatto voi) o formarlo "al volo" come suggerivo io...
Come sempre in Perl: TIMTOWTDT :)
-- 
Saluti,
Giancarlo
Newsgroup: it.comp.lang.perl
Titolo: [Q] out of scope?

Questo e' un problema che mi e' saltato fuori in un log analyzer.
in una sub viene letto il file di log e i dati che mi servono vengono
messi in un hash del tipo: $log[$key]
Dalle altre sub pero' non riesco a leggere $log[$key], la variabile non
e' stata dichiarata con my o local quindi non capisco perche' non venga
vista all'esterno della prima sub...
Se volete dare un'occhiata al sorgente completo che e' sicuramente piu'
esplicativo della mia spiegazione: 
http://squidstat.netogether.it
la sub in questione e' readlog()
-- 
 __            ___                        
|  \. _ _  _    _/ _  _ _ _  _. _ |_|_ _  
|__/|(-(_)(_)  /__(_|(_(_(_|| |(_)|_|_(_) 
       _/                                 

 messi in un hash del tipo: $log[$key]
Qualcosa non mi torna:
 1. Nel sorgente in questione non c'č nessun hash in readlog, ma ci sono
 alcuni array, tra cui @log (riga 132: $log[$i] =  ... ).
 2. $log[$key] non denota l'elemento di un hash, bensě l'elemento di un
 array. Il fatto che tu abbia usato "$key" suggerisce perň che tu
 intendessi scrivere $log{$key}; tuttavia, come č ho detto, non ci sono
 hash in readlog, perciň non capisco a cosa tu ti stessi riferendo. 
Suggerimento: non usare variabili globali. Se readlog deve popolare un
array (o un hash) e renderlo disponibile ad altre parti del programma,
dichiara l'array (o l'hash) con 'my' all'interno della funzione e
restituisci un reference:
   sub readlog
   {
        my @log;       
        # blah blah blah...
        return \@log;  
   }
Max

    }
ok, grazie, provo e poi ti faccio sapere.


Newsgroup: it.comp.lang.perl
Titolo: array: eliminare valori uguali

se per esempio avessi:
@pippo=("pluto","paperino","qui","quo","pluto","quo")
come farei ad ottenere:
@pippo=("pluto","paperino","qui","quo")
avevo visto una spiegazione in perdoc ma l'ho persa e sto
impazzendo a ritovarla..
corollario: l'operazione mi serve per eliminare da un file
le righe uguali.. mi sembra che mettere tutto in un array
sia meglio che usare un while sul file. Correggetemi
se sbaglio o se avete altre soluzioni: lo script dovrebbe
agire spesso e su file che in futuro potrebbero essere
lunghetti, quindi vorrei ottimizzarnel'esecuzione il più
possibile.
grazie mille
--
Ciao
The Bos
the-bos#
axelweb.com
http://the-bos.axelweb.com

 ritovarla..
 perldoc -q duplicate

 Io per evitare duplicati in genere uso le chiavi degli hash
mi faresti un esempietto pratico please?
grazie


grazie a tutti


 
 my  @list = ( "1", "1", "1", "2" );
 my  %uniq;
 my @newlist = grep { $uniq{$_}++ == 0 } @list;
Max
Newsgroup: it.comp.lang.perl
Titolo: Controllo tar.gz

Avrei bisogno di fare uno script che controlla periodcamente se dei backup
(file .tar.gz) sono leggibili.
Ho usato Archive::Tar ma ho ottenuto ben poco (da troppo facilmente errori
di "out of memory").
C'è qualcosa di meglio di Archive::Tar o lo sto usando male io?
Grazie.

 writes:
Icestorm> Avrei bisogno di fare uno script che controlla periodcamente
Icestorm> se dei backup (file .tar.gz) sono leggibili.
Icestorm> Ho usato Archive::Tar ma ho ottenuto ben poco (da troppo
Icestorm> facilmente errori di "out of memory").
Icestorm> C'è qualcosa di meglio di Archive::Tar o lo sto usando male io?
Icestorm> Grazie.
Cosa intendi per "leggibili"?
Noto inoltre che parli al plurale, perche` (quanti sono)?
presumendo la risposta piu` probabile...
usa semplicemente
   warn "qualcosa che non va" if 0<system("gzip -t *.tar.gz");
ottieni l'exit code con l'affidabilita` dell'exec tramite
"/bin/sh -c" del gzip  se hai usato l'asterisco, altrimenti la
valutazione passa direttamente per execvp().
da man gzip
] exit with
] 0 on success,
] 1 if an error occurred,
] 2 if one or more files were not compressed because they
]   would have grown in size (and -f was not specified).
quindi non conviene solo se ci sono impedimenti alla execvp()
o i file sono piccoli da preferire un accesso binmode da perl, ma non
mi sembra proprio il caso.
Saluti,
MARco
-- 
xref: 
http://mar.i.am/~u16654.52802/it.comp.lang.perl,systemgzip,it
x(t),y(t) = th(3t-34.5)*e^[-(3t-34.5)^2]/2-4.3+e^(-1.8/t^2)/(.8*atg(t-
3)+2)(t-1.8)-.3th(5t-42.5),(1.4e^[-(3t-34.5)^2]+1-sgn[|t-8.5|-.5]*1.5*
|sin(pi*t)|^[2e^(-(t-11.5)^2)+.5+e^(-(.6t-3.3)^2)])/(.5+t)+1  ; 0<t<14

 altrimenti la valutazione passa direttamente per execvp().
Grazie del suggerimento.
Alla fine ho usato qualcosa del tipo (trovato su un altro newsgroup):
system("tar tzf $file_da_controllare >/dev/null 2>&1");
if ($?) {
   #errore
} else {
   #ok
}
Ho fatto quindi uno script (messo a cron) che controlla tutti i tar.gz
presenti in una dir specificata, compila una lista dei file (indicando se
sono corretti o meno), prepara una mail e la spedisce all'amministratore di
sistema.

Newsgroup: it.comp.lang.perl
Titolo: se volete sul proprio sito

se qualcuno ha bisogno di bunner pubblicitari si registri qui...
se non lo conoscete gia...
http://www.clickangel.it/index.php?ref=118
ciao Federico

> se qualcuno ha bisogno di bunner pubblicitari si registri qui...
 
siiiiiiiiiiii... avrei giusto bisogno di un paio di kili di "bUnners" :-)))
 
-- 
-.. --- -- .. --.. .. --- 
-.. . -- .. -.-. .... . .-.. .. ... 

Domizio Demichelis wrote:



siiii :)))
ciaz
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************

 siiiiiiiiiiii... avrei giusto bisogno di un paio di kili di "bUnners" :-)))
ROTFL!
 Raffaelo

Newsgroup: it.comp.lang.perl
Titolo: Spedire un file in attach

devo fare un cgi che spedisca una mail con del testo ed un file in attach,
esiste un modo veloce per farlo?

 esiste un modo veloce per farlo?
MIME::Lite	
-- 
Ciao, Maurizio.
Newsgroup: it.comp.lang.perl
Titolo: Testare gli script Perl

Ciao a tutti.
Per cortesia, è possibile, sotto Linux, provare gli script Perl o CGI avendo
configurato Apache ma non disponendo di una LAN?
In altre parole, si può simulare un server sotto una unica macchina Linux,
senza ricorrere ad una scheda di rete?
Potreste spiegarmi come fare?
Grazie infinite,
                       Rocco.

 configurato Apache ma non disponendo di una LAN?
http://localhost/cgi-bin/(ecc
.)

 senza ricorrere ad una scheda di rete?
http://localhost/
Ma questa non e` una domanda da it.comp.lang.perl, bensi' da
it.comp.os.linux.iniziare.
Bye,
 Emmanuele.
-- 
Emmanuele Bassi         |             [ 
http://digilander.iol.it/ebassi/
 ]
emmanue...@iol.it
  |
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4
Newsgroup: it.comp.lang.perl
Titolo: Win + Apache 1.3 + Perl

c:\perl\perl.exe 
test.pl
Content-type: text/html
<HTML><BODY>
prova
</BODY></HTML>
-----------------
* Nell'httpd.conf ho aggiunto:
-----------------
ScriptAlias /perl/ "C:/perl/"
...
AddType application/x-httpd-perl .pl
...
Action application/x-httpd-perl "/perl/perl.exe"
-----------------
* Col PHP è andato tutto OK ed ho seguito lo stesso procedimento!
FazeN

 ha scritto nel messaggio
news:8olans$nl$1...@serv1.albacom.net...



In realtà il file si chiama in tutt'altro modo...
era per rendere più chiare le cose ;-)

 ***Ivan***

 Se vuoi puoi postare lo script e vediamo un pņ cosa puņ essere!
Mmm... se ho capito bene dovrei sostiruire:
| Action application/x-httpd-perl "/perl/perl.exe"
in http.conf.
Con
| Action application/x-httpd-perl "/perl/perl.exe -w "
Bene, restituisce:
| Not Found
| The requested URL /perl/perl.exe -w /cgi-bin/
t.pl
 was not found on this
server.
Cmq se eseguo lo script direttamente (senza webserver) con -w non
restituisce nessun errore o warningi.

 > Se vuoi puoi postare lo script e vediamo un pò cosa può essere!


  ScriptAlias /cgi-miosito/ "d:/apache/sitiweb/miosito/cgi-miosito/" 
                              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Ma ripeto che di win ne so poco o nulla.
   Sicuro che all'inizio dello script ci si  l'indicazione  del  perorso 
corretto per l'interprete perl ?
Fammi sapere.
Ciao
***Ivan***

 in http.conf.
   No, non nella configurazione di  Apache  ma  nell'intestazione  dello 
script ! (almeno in Linux) Tutti i miei script iniziano con :
#!/usr/local/bin/perl -w
 ^^^^^^^^^^^^^^^^^^^^^^^^
 in modo che il server sappia con che linguaggio eseguire il file.
   In  win  penso  sia  uguale,  forse  devi  cambiare   il   path   con 
#!c:\tuopath\perl -w
Ciao.
***Ivan***

No, no è tutto OK, ho risolto il problema, non c'entrano le slash \ e /
Avevo solo configurato male httpd.conf, ora funge tutto.
Grazie, e tu Ivan hai risolto il tuo problema con quell'errore "Premature
end of.. ecc,"???
Fammi sapere se posso darti una mano
Ciao
CLS
Gazza <gazz...@XXXlibero.it> wrote in message 4ft4p8...@ivan.org...


 direttamente nell'httpd.conf di Apache...
Non avevo pensato che PHP e Perl avessero un modo differente di intentendere
gli script.
Infatti il mio errore era stato proprio quello di scimmiottare la
configurazione del PHP.
Ora è tutto OK!
Thanx :-) a Caudio e Ivan!
FazeN
Newsgroup: it.comp.lang.perl
Titolo: Posizionamento di default su primo campo

Ciao, gente. Ancora un suggerimento.
Come si fa (in java, Perl o semplice HTML) a far si che, alla
presentazione di una pagina, il cursore sia gia` posizionato sul primo
campo del primo form presente su quella ben determinata pagina???
Grazie per l'attenzione.
Distinti saluti.
Alex
                          \|/
                         (@ @)
---------------------oOO--(_)--OOo----------------
Alessandro Feltrin - C&M S.p.a. Tel. 011-7767877
		     Torino - C.so Svizzera, 185
		     E-Mail 
afel...@c-m.it

Prima di tutto, scusate il mio italiano. Non sono un italiano vero ;-)
La soluzione piu' facile sarebbe quella di usare JavaScript. HTML 3.2 non
provede un mechanismo per fare quello che vuoi, mentre Perl non servirebbe
comunque nel tuo caso. Si potrebbe usare Java, ma diventa piu' complicato
del neccessario.
Allora, per usare JavaScript si fa cosi.....
Prima, sappiamo che vogliamo una function che si chiama "doFocus" per fare
quello che vogliamo, ma la vogliamo chiamare appena il user ha finito di
downloadare la pagina cosi besogna inserire una chiamata a "doFocus" nella
targa "BODY" cosi:
<BODY BACKGROUND="...." BGCOLOR="...." onLoad="doFocus()">
Poi, alla fine della pagina inseriamo questo:
<SCRIPT NAME="JavaScript">
<!--
function doFocus()
  {
  document.forms[0].elements[0].focus();
  }
// -->
</SCRIPT>
</BODY>
</HTML>
non sono 100% sicuro del "syntax" ma dovrebbe essere giusto. Se ti causa
dei problemi, quarda so 
http://support.netscape.com/
 c'e' una guida per il
JavaScript. Tutto li :)) 
 -Gabriele
Gabriele R. Fariello         | Clotho Internet Consulting
Senior Partner               | Chief Application Developer
gabr...@clotho.com
          | 33 University Square No. 251
608 516-8822
 or 
608 245-9500
 | Madison, WI  53715
Newsgroup: it.comp.lang.perl
Titolo: Datemi un consiglio: Manuale (cartaceo) su Perl 5

Ciao
Secondo voi quale è il miglior manuale su Perl 5 acquistabile in
libreria (possibilmente in italiano) ?
Mi hanno parlato di "Programmare in Perl" di O'Reilly & Associates,
pubblicato in italia da Jackson. Che ne pensate?
Grazie
Massimiliano Lombardi

pubblicato in italia da Jackson. Che ne pensate?
E` il migliore, anche se dello stesso ti consiglio maggiormente la versione
inglese (Programming Perl). ;-)
	Miky.
-- 
Michele Beltrame
mi...@io.com
http://www.italpro.com/mb/

lomb...@TOGLIMIframex.it wrote:
 >Mi hanno parlato di "Programmare in Perl" di O'Reilly & Associates,
 >pubblicato in italia da Jackson. Che ne pensate?
E` il migliore, ma non conosco la qualita` della traduzione.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

 pubblicato in italia da Jackson. Che ne pensate?
Ciao MAX,
ho comperato anche io quel libro e, per quanto sia completo,
devo dire che la traduzione lascia un po' a desiderare, ci sono
diversi errori, (alcuni anche divertenti...)
Anche se tu chiedi un manuale "cartaceo" voglio comunque segnalarti
il seguente sito: 
http://www.mcp.com/personal
si tratta del sito della Macmillian Computer Publishing che ha 
tradotto in HTML e messo on-line circa 150 libri del loro catalogo.
Tra di essi ci sono diversi testi che trattano di Perl (e CGI, HTML,
Java ed altro).  Tutto quello che si deve fare e' registrarsi. 
La consultazione dei libri naturalmente e' gratuita.
So che leggere libri sul monitor e' faticoso ma, d'altra parte,
e' anche immediato provare il codice degli esempi con cut&paste.
L' altro vantaggio e' che ti puoi scaricare solo i capitoli
che ti interessano :-) Io ho trovato utili sia "Perl by examples"
che "Perl unleashed".
Ciao
Ezio.

Newsgroup: it.comp.lang.perl
Titolo: Indirizzo IP

Forse è colpa dell'utente: recentemente ho installato wingate che serve per 
mandare in rete 2 o più pc con la rete LAN e un MODEM, questo funziona come 
un "proxy" (PENSO) e fa in modo che la macchina assuma come IP: 127.0.0.1
Se però tutti gli utenti ti danno questo risultato forse non è colpa di 
WinGate.
Ciao
-- 
Posted from 
community2.interfree.it
 [213.158.72.4] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 colpa di WinGate.
Non vorrei sconvolgere qualche mente ingenua, ma OGNI macchina su una rete 
TCP/IP "assume" l'indirizzo 127.0.0.1 per se stessa.
-- 
Saluti,
Giancarlo

 ha scritto nel messaggio
news:97m401$3mf8$2...@stargate1.inet.it...

Newsgroup: it.comp.lang.perl
Titolo: AIUTO and/or/not

Problema:
devo verificare se in una stringa compare un'espressione del tipo
ad esempio:
 (NOME OP NOME) OP NOME OP .....
dove NOME e' la keyword e OP e' un'operazione booleana AND OR NOT
es:
se ho la stringa:
	"ciao sono lo zio pino e sono un gran lavoratore"
e un'espressione del tipo:
	"(ciao AND zio) OR pasquale"
allora l'espressione e' verificata
mentre:
	"(zio AND peppino)"
non e' verificata.
Come posso fare?
Grazie!


Beh. Parsifichi la stringa booleana, ti costruisci un albero sintattico
equivalente, e poi verifichi se e' valido collassando l'albero (ovvero
facendo il match di ogni singola foglia sull'espressione in questione).
L'efficienza del tutto dipende dal numero di match che devi fare.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 Problema:
 devo verificare se in una stringa compare un'espressione del tipo
 ad esempio:
  (NOME OP NOME) OP NOME OP .....
 dove NOME e' la keyword e OP e' un'operazione booleana AND OR NOT
 es:
 se ho la stringa:
 	"ciao sono lo zio pino e sono un gran lavoratore"
 e un'espressione del tipo:
 	"(ciao AND zio) OR pasquale"
 allora l'espressione e' verificata
 mentre:
 	"(zio AND peppino)"
 non e' verificata.
 Come posso fare?
 Qualcuno ha un programmino in perl che fa al caso mio?
Grazie.
 
 
 
 

  Qualcuno ha un programmino in perl che fa al caso mio?
Purtroppo non serve un programmino. Serve un programmone ad-hoc. 
In generale basta un parser scemo (preso da un libro di compilatori e
adattato a Perl) e una struttura dati ad-hoc adeguata al tuo problema.


 ICQ# 1980563

 codice Perl e dandola in pasto a un "eval".
Ma non mi sembra sia il caso della richiesta di DD, nel senso che io immagino
che la stringa booleana la scriva l'utente. In questo caso, tu non hai
nessuna certezza che la richiesta dell'utente sia sintatticamente corretta
( potrebbe chiedere  "AND OR pippo NOT paperino")
In una situazione del genere il parser mi sembra necessario.


 
--

Newsgroup: it.comp.lang.perl
Titolo: utf8 e print

Ciao,
ho notato che pur usando "use utf8" in script perl su una macchina che 
usa a sua volta l'encoding utf8 (Ubuntu server) la funzione print salva 
comunque le stringhe in formato ascii, è normale?

Coniglio Sgabbiato ha scritto:

Trovato, "use utf8" dice a Perl che il codice sorgente va interpretato 
come UTF-8, ma per forzarlo a trattare STDIN, STDOUT e STDERR come 
flussi UTF-8 bisogna impostare il flag "-C":
#!/usr/bin/perl -C


Con perl 5.10 non basta metter il flag sulla "shebang line":
da man perlrun:
    Note: Since perl 5.10.1, if the -C option is used on the #! line,
          it must be specified on the command line as well, since the
          standard streams are already set up at this point in the
          execution of the perl interpreter.
En piu, se non mi sbaglio, meglio scrivere -CSDA, o qualche variabile
shell possono cambiare il encoding (LC_ALL, LC_TYPE, e LANG)
   A    32   the @ARGV elements are expected to be strings encoded
             in UTF-8
   L    64   normally the "IOEioA" are unconditional,
             the L makes them conditional on the locale environment
             variables (the LC_ALL, LC_TYPE, and LANG, in the order
             of decreasing precedence) -- if the variables indicate
             UTF-8, then the selected "IOEioA" are in effect
e anche:
"-C" on its own (not followed by any number or option list), or the empty string
"" for the "PERL_UNICODE" environment variable, has the same effect as "-CSDL".
In other words, the standard I/O handles and the default "open()" layer are
UTF-8-fied but only if the locale environment variables indicate a UTF-8 locale.
This behaviour follows the implicit (and problematic) UTF-8 behaviour of Perl
5.8.0.
-- 
mirod

Coniglio Sgabbiato ha scritto:

puo anche usare la funzione binmode
binmode(STDOUT,':utf8')

Mmmm... si fa complicato. Considerando mod_perl come faccio? io di 
solito configuro apache così (nota che in produzione sto usando la 5.8):
PerlTaintCheck On
PerlSwitches -C
# Includo le directory delle librerie
PerlSwitches -I/usr/lib/cgi-bin/mieimodulietc...
mirod ha scritto:



Non ti conviene seguire il suggerimento di enoquick a questo punto ed
utilizzare di binmode?

 utilizzare di binmode?
sono un po confuso, -C va evitato, leggendo qua e l� nella 
documentazione sembra che il modo pi� sicuro e comodo di lavorare con 
utf8 su tutto l'IO sia:
use open ':encoding(utf8)';
anche perch�:
"The PERLIO environment variable is completely ignored when perl is run 
in taint mode."


Se volessi tutti gli stream in utf8 potrei scrivere come di seguito?
use open ':encoding(UTF-8)';
mi sembra di capire dalla documentazione che con "UTF-8" scritto così 
Perl faccia dei controlli più rigidi rispetto alla modalità richiamata 
con "utf8".

Coniglio Sgabbiato ha scritto:

Esistono vari modi per impostare la codifica di un flusso , o tutti i 
flussi di input  o di output.
Rimando a 
http://perldoc.perl.org/open.html
 per chi vuole approfondire
Sulla differenza tra utf-8 e utf8:
http://perldoc.perl.org/Encode.html
Newsgroup: it.comp.lang.perl
Titolo: profano

Salve a tutti
Scusate l'ignoranza...
Avendo uno script in perl, cosa e' richiesto per farlo funzionare su un
server come TRIPOD che credo utilizzi Unix.
Ed inoltre per leggerlo come una normale pagina html di cosa si ha bisogno?
Grazie

 ha scritto nel messaggio
news:9agd0m$77e$1...@nreadA.inwind.it...


 wrote in message
9agd0m$77e$1...@nreadA.inwind.it...


Newsgroup: it.comp.lang.perl
Titolo: Password per accesso a DBMS

Ho un'applicazione in Perl/Tk che accede ad un DBMS via DBI::DBD. 
All'utente viene chiesto un identificatore ed una parola chiave che 
devono essere presenti all'interno di una tabella della base dati (e fin 
qui, presumendo che login e password dell'utente risiedano solo nella 
sua testa, non ci sono problemi).
Pero` ho bisogno di memorizzare un utente ed una parola chiave di 
applicazione che le permettano di accedere al DBMS, e qui sorgono i 
problemi, perche` non vorrei memorizzarla in chiaro in un file di 
configurazione ma, d'altra parte, essendo il codice dell'applicazione 
stessa leggibile da chiunque, suppongo che anche qualche forma di 
crittografia sia poco praticabile.
Come potrei fare?
Grazie in anticipo, e...
-- 
Alla prossima,
Marco

 crittografia sia poco praticabile.
Why?
Digest::MD5 potrebbe essere un buon punto di partenza.
---CUT HERE---
use Digest::MD5  qw(md5_hex);
if ( md5_hex($passwd_from_user) eq $passwd_md5_hex_from _txt_file) {
   # OK
   ...
}
---CUT HERE---
Se ha d'altronde timore di mettere la password su file, allora è bene
ricordare che se sono in chiaro i sorgenti c'è magari la possibilità di
agire su di essi per by-passare il controllo... :-)
by
    - Enrico

 Digest::MD5 potrebbe essere un buon punto di partenza.
   Non mi sono spiegato bene o forse non ho capito cosa intendi. 
L'applicazione si deve connettere ad un DBMS e per farlo deve utilizzare 
una password (uguale per tutti gli utenti: il login dell'utente e` 
gestito mediante apposite tabelle). Il problema e`: dove mettere questa 
password? Se la metto in chiaro in in un file di testo, per esempio in u 
.rc o in un .ini, risulta presumibilmente leggibile da chiunque. Se la 
cripto e la metto nei medesimi posti, l'analisi del codice 
dell'applicazione potrebbe comunque condurre alla sua decrittazione.
-- 
Alla prossima,
Marco
Newsgroup: it.comp.lang.perl
Titolo: Editor per windows

Salve
        volevo sapere se usavate un editor in particolare per scrivere i 
vostri scripts in perl su windows (Vista)
Ho trovato in rete vari programmi, Komodo Edit:
http://www.softmania.sk/screenshots/Komodo-Edit-0.png
e DZsoft Perl editor:
http://www.dzsoft.com/images/perl-editor-screenshot.gif
Voi che consigliate? Mi server qualcosa in atlernativa al notepad...magari 
ci fosse un BBEdit per win! 

io uso 
http://www.perl-express.com/
mi trovo bene



Newsgroups: it.comp.lang.perl
Sent: Monday, March 09, 2009 12:09 AM
Subject: Re: Editor per windows
io uso 
http://www.perl-express.com/
 

Confermo, gira su Vista


Ok li ho provati tutti...KOMOD EDIT č il migliore! ed č quello che 
assomiglia di piů a BBEdit per mac...
Ora perň ho un problema: eseguire i files perl! se uso il "perl command line 
interpreter" mi lancia una finestra stile prompt che fa il run del programma 
ma poi si chiude subito e non risco a vedere il risultato a schermo! Per 
ovviare a questo mi tocca mettere un <STDIN>; alla fine del file perl.
Posso anche usare il terminale vero e proprio (prompt) ma in quel caso devo 
scrivere tutto il percorso al file!
Come posso ovviare a questo?
Si potrebbe scrivere un file bat che se ci droppi sopra un file perl te lo 
esegue nel prompt?
grazie

Newsgroup: it.comp.lang.perl
Titolo: Eseguibile per NT

Ciao
devo rendere eseguibile un file perl per NT
il comando è c:/per/bin
ma non so come si faccia.
Cosa significa entrare nella directory del programma e digitare..?
Io uso FTP
Scusate se ve lo chiedo ma ho provato a cercare delle risposte ma non
riesco.
Qualcuno gentilmente può chiarirmelo?
Grazie
Cristina

Io uso FTP
..? Non credo succeda nulla. Ad esempio pero` con:
cd ..
vai nella directory di livello superiore.
Probabilmente avro` dato le risposte alla domande sbagliate, al
limite precisami qual'e` il tuo problema. ;)
	A presto, Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
Newsgroup: it.comp.lang.perl
Titolo: Autenticazione su server Apache

Per un sito ho la necessità di autenticare una serie di utenti. 
Il server web è un apache, che è già in grado di fare questo; però mi
compare una finestra "realm esterna" che provvede all'autenticazione;
vorrei invece farlo io inserendo nella pagina html un campo text
username e uno password che venga poi gestito in qualche modo dal mio
script perl.
Qualcuno sa darmi 2 dritte ?
zenc iu...
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Qualcuno sa darmi 2 dritte ?
vuoi evitare l'utilizzo degli .htaccess (i.e. non usarli del tutto)
e fare SOLO un login via pagina?
Nel mio script
http:/
www.solution4web.com/mysqlwdb
versione 1.2.1 trovi un semplice metodo per fare un login
via form web. Se cerchi in giro su siti di CGI free ne troverai
tanti di form login.
Se invece vuoi appoggiarti al realm, allora devi prima
fare una pag web che richiede login e pwd e con quei dati
chiami con LWP la pagina con il realm e fai un redirect.
Ma per la seconda delle due , non penso valga la pena!
-- 
$_=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

 chiami con LWP la pagina con il realm e fai un redirect.
Però mi sembra la + sicura, 
in quanto cmq il tuo script fa girare le 
passw , anche se criptate, come campi hidden del form.
ciao e grazie


Newsgroup: it.comp.lang.perl
Titolo: Ridimensionamento Immagine

Ciao,
ho questo problema:
Chiedo all'utente un'immagine, questa viene uplodata sul server,
ora, dovrei convertirla sempre nello stesso formato (.gif o .jpg)
ma in una dimensione proporzionale piu' piccola, magari con
larghezza fissa di tot pixel.
In questo modo posso fare vedere una schermata con tutte
le foto piccole e leggere e poi cliccandole aprire quella piu'
pesante.
Come faccio?
Grazie a tutti,
Diego.
Risposte in email please.
di...@osiride.com

Come faccio?
Mah, se usi un Macintosh e' sufficiente utilizzare AppleScript e
scriptare GraphicConverter o (meglio) DeBabelizer.
Il bello e' che lo puoi fare anche da dentro uno script Perl (e
torniamo miracolosamente InTopic).
------
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... "

 ho questo problema:


Newsgroup: it.comp.lang.perl
Titolo: Abilitazione cookie

Ciao
come si fa a individuare se un browser ha i cookies abilitati?
Bisogna per forza settarne uno e controllarne il valore se e'
non nullo?
 Raffaello

 sì
Grazie
 Raffaello
Newsgroup: it.comp.lang.perl
Titolo: Modulo Perl per server Apache 2.0.43 .

Ciao a tutti, come da Subject del mio post vi volevo chiedere dove trovare
il modulo che mi mantiene sempre avviato l'interprete Perl (rendendo
l'esecuzione veloce almeno quanto quella del php).
Utilizzo un server Apache 2.0.43 son distribuzione Perl Activestate su
Windows 2000 Professional/Server.
Ringrazio anticipatamente per le risposte.
Saluti.

 Windows 2000 Professional/Server.
Se usassi IIS, allora forse ti basterebbe usare ISAPI:
http://cgipoint.html.it/tutorial/03/5.htm
Oppure PerlEx di 
www.activestate.com
 (PDK) ma costa.
Oppure FastCGI: 
http://www.fastcgi.com
Se invece usi apache hai 2 alternative: sempre FastCGI o mod_perl
Per mod_perl il sito è 
http://perl.apache.org
 , in particolare:
http://perl.apache.org/docs/2.0/os/win32/install.html#PPM_Packages
ma NON si tratta di classici CGI per cui potresti andare incontro a
problemi.
Newsgroup: it.comp.lang.perl
Titolo: la storia infinita del GD

Salve a tutti,
	qualche tempo fa provai a installare il L<GD> sulla mia macchina.
Attualmente, avendo cambiato distribuzione linux sul PC, ho riprovato a
installare questo modulo ma senza successo.
Procedura:
1) Scarico L<GD> #tutto ok
2) tar xvfz Gd-2.12.tar.gz #tutto ok
3) perl Makefile.PL   #tutto ok
4) make    #problema
Mi da una serie di righe di errore tra le cui ultime ci sono le
seguenti.
Cosa desidera questo carissimo modulino che non ne vuole sapere di
installarsi!?
GD.c: In function `XS_GD__Image_setAntiAliasedDontBlend':
GD.c:3386: error: parse error before "image"
GD.c:3392: error: `image' undeclared (first use in this function)
GD.c:3392: error: called object is not a function
GD.c: In function `XS_GD__Font_Small':
GD.c:3419: error: parse error before "RETVAL"
GD.xs:1989: error: `RETVAL' undeclared (first use in this function)
GD.c: In function `XS_GD__Font_Large':
GD.c:3445: error: parse error before "RETVAL"
GD.xs:2000: error: `RETVAL' undeclared (first use in this function)
GD.c: In function `XS_GD__Font_Giant':
GD.c:3471: error: parse error before "RETVAL"
GD.xs:2011: error: `RETVAL' undeclared (first use in this function)
GD.c: In function `XS_GD__Font_MediumBold':
GD.c:3497: error: parse error before "RETVAL"
GD.xs:2022: error: `RETVAL' undeclared (first use in this function)
GD.c: In function `XS_GD__Font_Tiny':
GD.c:3523: error: parse error before "RETVAL"
GD.xs:2033: error: `RETVAL' undeclared (first use in this function)
GD.c: In function `XS_GD__Font_nchars':
GD.c:3548: error: parse error before "font"
GD.c:3554: error: `font' undeclared (first use in this function)
GD.c:3554: error: called object is not a function
GD.c: In function `XS_GD__Font_offset':
GD.c:3575: error: parse error before "font"
GD.c:3581: error: `font' undeclared (first use in this function)
GD.c:3581: error: called object is not a function
GD.c: In function `XS_GD__Font_width':
GD.c:3602: error: parse error before "font"
GD.c:3608: error: `font' undeclared (first use in this function)
GD.c:3608: error: called object is not a function
GD.c: In function `XS_GD__Font_height':
GD.c:3629: error: parse error before "font"
GD.c:3635: error: `font' undeclared (first use in this function)
GD.c:3635: error: called object is not a function
make: *** [GD.o] Error 1
-- 
nathanvi
ICQ --> 20318568
mail --> vitto.z A_T 
tiscali.it

 seguenti.
Le ultime ci interessano poco. Esamina piuttosto le prime, e guarda se c'è 
qualcosa che assomiglia a 
      gd.h: No such file or directory
Max