mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Trova e sostituisci usando gli array associativi

Dove pippo.aa deve andare a sostituire pippo e così via.
foreach $k(keys %termini) {
  $stringa =~ s/$k/$termini{$k}/eg;
}
	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!

 }
Una variante sul tema potrebbe essere:
 my $regexp = join '|', map{ quotemeta } keys %termini;
 $stringa =~ s/($regexp)/$termini{$1}/g;
Per inciso, l'opzione /e non è in effetti necessaria, la semplice
l'interpolazione è già sufficiente.
Max

Newsgroup: it.comp.lang.perl
Titolo: Perl CGi e cookies HELP plz.

Ciao a tutti, ecco il mio problema:
voglio implementare una sorta di login e pwd per accedere ad un' area
riservata delle mia home page che ovviamente supporta i cgi.
Per ora ho un form che chiede login e password il quale invia i dati a un
cgi che aprendo un file di testo sul quale vi sono in ogni riga le coppie
login e password abilitate mi ridireziona o meno (se non riconosciuto) il
browser alla pagina riservata che contiene a sua volta un form di
inserimento dati.....
Il punto e' che se un utente non desiderato scopre la pagina a cui si e'
ridirezionati avvenuto il login questo ci puo' accedere saltando cosi' il
riconoscimento, ecco che si rende necessario l'uso dei cookies quindi nel
file login.cgi se avviene il riconoscimento ho aggiunto i seguenti comandi:
  my $c = new CGI::Cookie(-name    =>  'user',
                                            -value   =>   $user2[0]
                                            );
  print "Set-Cookie: $c\n";
nel form sucessivo quello a cui si arriva dopo il riconoscimento, avvenuto
il submit vengono letti i cookies con:
%cookies= fetch CGI::Cookie;
e se presente 'user' ...fa altrimenti nisba.
Concludo: in locale con apache sotto windows funziona tutto come deve in
rete con apache sotto red hat NON C'E' VERSO DI LEGGERE IL COOKIE CREATO
POCO PRIMA!! (non lo trova, per lui non esiste). Nota che se lo creo e poi
dallo stesso script (messo in rete) lo rileggo con le istruzioni dette prima
tutto funza ma su script separati non c'e' verso.
PLZ HELP ME (scusate per la lunghezza di 'sto post)

POCO PRIMA!! (non lo trova, per lui non esiste). Nota che se lo creo e poi
Probabilmente devi anche passare i parametri "domain" e "path". Ti
consiglio di abilitare la notifica dei cookie sul tuo browser,
cosi` vedi con precisione se e cosa viene impostato.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 wrote in message
news:slrn8f6i...@karma.italpro.to...

Newsgroup: it.comp.lang.perl
Titolo: Source html

Vorrei sapere se in perl e' possibile eseguire la seguente operazione:
prelevare il codice html da una pagina web (su un server di un altro
dominio) e da questo codice estrarre alcune parti da utilizzare in locale
in una altra pagina html. Grazie a tutti coloro che vorrano darmi una mano
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 in una altra pagina html. 
A seconda della complessità di ciò che devi estrarre, potresti ad esempio
lavorare direttamente su $page con le espressioni regolari per estrarti ciò che
ti serve, oppure potresti utilizzare HTML::Tree per una maggior flessibilità nel
trattare ed estrapolare tutti i componenti HTML della pagina.
by
	- Enrico
--- have fun with 
www.perl.it
 ---

 	- Enrico

Grazie mille x le indicazioni, appena possibile comincio a lavorarci su.
Colgo l'occasione per chiedere un'altro consiglio: dove posso recuperare
un manuale un abbastanza completo ed esaustivo sul PERL (possibilmente in
italiano?). Io ho guardato quello su 
html.it
 ma mi sembra un po'
scarno!!..Grazie, ciao


 scarno!!..Grazie, ciao
prova 
http://www.perl.it/documenti/index.html
altrimenti c'è la documentazione di perl stessa che trovo molto completa 
e ben fatta (anche se è inglese forse ti può essere utile comunque).

Newsgroup: it.comp.lang.perl
Titolo: effetto strano chiarimenti

Ciao a tutti.
ho necessita' di ottenere la data in formato gg mm e di incrementare poi il
giorno,verificandodi giorno in giorno se ci sono corrispondenze in un file
ho buttato giu' un po di righe (scusate la forma ma sono un neofita) che
pare funfionino, ma ottengo uno strano effetto e cioe'
la numerazione e' giusta per i primi 2 (dopo la fine mese cioe' a 4 cifre)
poi passa a 3 cifre g mm ?
dove sbaglio?
ecco il listato
$a = 28;   # ipotizzo che il giorno di partenza sia il 28
$b = '01'; # il mese di gennaio
$c = $a.$b; #concateno le stringhe per ottenere giorno e mese
print "quanti giorni vuoi contare ?";
print " \n";
chop($gg=<stdin>);
while ($gg >0) {
 $a ++;     #incremento il gg di 1
 if ($a > 31){ #se il giorno e' mag. di 31
     $a = '01'; # lo riporta ad 1 (del mese succ)
     $b ++;      #incremento del mese
     $c = $a.$b;
     print "\t\t\t $c\n";
 }
 $c = $a.$b;
 print $c;
 $gg --;     # decremento del contatore del ciclo per il conteggio dei
giorni
 print " \n";
 }
__________________________________________________________
in outputo va tutto bene fino al giorno 2 del mese successivo, poi
improvvisamente i campi passano a 3 cifre cioe'
2901
3001
3101
0102
0202
302
402 ecc.
perche' improvvisamente perde lo 0(zero) iniziale? E come non perderlo?
Grazie e ciao

 perche' improvvisamente perde lo 0(zero) iniziale? E come non perderlo?
Ti avevo già risposto...
Ciao
Massimo
Newsgroup: it.comp.lang.perl
Titolo: MSDN Originale Vendesi

Vendo i seguenti numeri di MSDN Library Originali:
-MSDN July 1999 (1 DVD) 40.000 lire
-MSDN July 2000 (3 CDs) 90.000 lire
-Component Source MSDN 10/99 Edition (1 CD) 8.000 lire
-Component Source MSDN 04/2000 Edition (1 CD) 10.000 lire
-Component Source MSDN 06/2000 Edition (1 CD) 16.000 lire
-MSDNnews (opuscolo) January/February 2000 4.000 lire
Component Source MSDN e MSDNnews se associati a un numero di MSDN Library a
metà prezzo.
Spese di spedizione a carico del destinatario.
Scrivete a 
fran...@yahoo.it

Vendo i seguenti numeri di MSDN Library Originali:
-MSDN July 1999 (1 DVD) 40.000 lire
-MSDN July 2000 (3 CDs) 90.000 lire (Ultimo numero uscito!)


 Vendo i seguenti numeri di MSDN Library Originali:
A tutti i lettori dei gruppi spammati da questo qui!!!!!
Vogliamo metterci d'impegno e spedire una valanga di mail ai vari "abuse"??????
Ciao, Riccardo
-----------------------------------------------------------------------
WebMaster: ----------> 
http://www.jsdir.com
 <----------
Need a JavaScript password?
http://www.agora.it/Ri.Riccardi/ingresso.html
-----------------------------------------------------------------------
"Any sufficientely advanced technology is indistinguishable from magic"
Arthur Charles Clarke
-----------------------------------------------------------------------

 Vogliamo metterci d'impegno e spedire una valanga di mail ai vari "abuse"??????
 
D'accordissimo, ma come si fa? A che spedire le mail?
Ciao
Marcello

 D'accordissimo, ma come si fa? A che spedire le mail?
ab...@inwind.it
 includendo tutto il messaggio e, soprattutto, _tutti_ gli
headers. Purtroppo, però, a me non hanno risposto ..
Ciao
M.
-- 
:wq

 
Visualizza l'header completo del messaggio, cerca tutti i server da cui è 
passato, trova il primo e manda ad "ab...@nomeelserver.qualcosa".
Se vuoi divertirti manda a TUTTI i server. Più gli si rompe le scatole e più 
probabilità ci sono che l'indirizzo di e-mail del mittente venga messo in 
black-list, ed anche il server da cui parte!!!!!
Ciao, Riccardo
------------------------------------------------------------------------
WebMaster: ----> 
http://www.jsdir.com
 <---- (aka 
http://www.jspoint.it
)
------------------------------------------------------------------------
Need a JavaScript password?
http://www.jspoint.it/staffscripts/script021/PazzWordProva/ingresso.html
------------------------------------------------------------------------
"Any sufficientely advanced technology is indistinguishable from magic"
                      Arthur Charles Clarke
------------------------------------------------------------------------

Grazie a entrambi per la risposta. Ho provveduto a forwardare il tutto a
'
ab...@inwind.it
', speriamo che il numero faccia la forza.
Ciao
Marcello
Newsgroup: it.comp.lang.perl
Titolo: Piccolo problema

Ciao a tutti,
ho pensato di catalogare alcuni giornali mediante uno script che
fornisce un'interfaccia HTML da cui e' possibile immettere i dati
relativi al titolo, autore, rivista ecc. relativi ai vari articoli.
Ora, questi dati vanno a scrivere in files di testo (uno per
articolo), che poi indicizzero' con calma; ho pensato di assegnare
un numero progressivo a ciascun file, ottenuto automaticamente dallo
script in questione, tramite l'apertura di un file apposito che
contiene il valore; lo script dovrebbe aprire il file, leggere il
valore, memorizzarlo in una variabile, aggiornarlo e chiudere il
file.
Tutto bene se lo lancio da linea di comando, ma mediante CGI non vuol
saperne di assegnare come filename il valore che ha letto (forse una
questione di permessi?).
Qualche idea? - Grazie in anticipo.
-- 
-------------------------------------------------------------------
     Roberto Tagliarino
 
roberto.t...@multiwire.net
-------------------------------------------------------------------

!
Assicurati che la directory in cui vai a scrivere i file sia abilitata 
globalmente in lettura/scrittura (chmod a+w o chmod 666).
	Mick.
-- 
Michele Beltrame
Italpro - Power Web Services
mi...@io.com
http://www.italpro.com/mb


 
Se intendi sotto unix:
Dunque se il tuo programma deve leggere dei file presenti sul sito,
devono essere leggibili da tutti chmod 755 <nome_file> per intenderci.
Se devi generare dei file da salvare su disco tramite una cgi c'e' un
problema: le cgi girano con permessi nobody, cioe' possono scrivere in
una directory nella quale possono scrivere tutti (chmod 777 nome_dir)
Ora una directory aperta a tutti non e' il massimo (se proprio devi 
prova ad utilizzare una tmp che venga ripulita il + spesso possibile...)
altrimenti puoi usare un programmino chiamato wrapper (o scriverlo tu
stesso) che modifichi i permessi di esecuzione del tuo script perl da
nobody ad esempio wmaster...
Prova non dovrebbero esserci altri problemi
			Ciao
					Davide

nobody ad esempio wmaster...
Anche questa e' un'idea.
Grazie per le risposte.

Newsgroup: it.comp.lang.perl
Titolo: AIUTO: Installazione moduli senza permessi di root

Ciao a tutti,
ho un problema con installazione dei moduli Perl con dipendenze su un
sistema Linux dove non ho la password di root.
Dovevo installare il modulo File::Tail, e quello ha richiesto come
dipendenza il Time::HiRes. Quest'ultimo ce l'ho fatta a installare
utilizzando il solito comando:
perl Makefile.PL PREFIX=/home/miacartella/Perl/Modules  seguita da
make, make test e make install
Poi, provando a installare il File::Tail ho avuto il messaggio di errore per
mancata dipendenza, cioè, non era specificato il percorso dei moduli locali
in @INC. Ho editato il codice dei moduli per trovare se da qualche parte sia
possibile modificare il percorso, ma senza esito.
Le ricerche nei manuali e su Internet non mi hanno fornito informazioni
utili. Qualcuno mi potrebbe dire come si fa a specificare il percorso dei
moduli locali necessari per l'installazione?
Grazie.
Stiv

Già risolto. Grazie comunque.

 Già risolto. Grazie comunque.
Sarebbe bello che tu condividessi con l'ng la risoluzione, cosi quando
qualcun'altro avrà lo stesso problema, potrà leggere il tuo post invece
che fare la stessa domanda.
In fin dei conti siamo una comunità.
Ciao,
-- 
+------------+ ASCII ribbon campaign ( )
|  KRaLizEc  |  - against HTML email  X 
+------------+              & vCards / \

Già risolto. Grazie comunque.
Almeno facce sapè... o almeno fallo per i poster(i) :)
Io sto cercando di utilizzare time::hires senza installazione.
La cosa mi è riuscita in windows: path in @INC e dll che accompagna
hires nel path.
Funziona
Non ci sono ancora riuscito con linux.
Non ho acceso da root ne tantomeno shell quindi...
Lo stesso procedimento di win non ha funzionato su lin.
Sembra non riesca a trovare in nessuna maniera il file .so che
accompagna hires.
A questo punto però mi chiedo, forse posso bypassare la shell usando
sysytem e dare gli stessi comandi che hai dato tu.
Dici che hai risolto? Informaci...
--
www.pigmalion.info
www.pigmalion.info/perl/

Lo stesso procedimento di win non ha funzionato su lin.
Il pragma "use lib" non funziona?
  perldoc perlvar | less
  /INC
Ciao.


wrote:

is almost the same as saying
    BEGIN { unshift(@INC, LIST) }
dalla doc...
si l'ho usato ma su win ha funzionato su linux no.
time::hires lo trova, quello che non trova è il file .so ...credo.
mi dice 'Can't locate loadable object for module Time::HiRes in @INC'
eppure è nel path
Su windows hires è accompagnato da una dll ed un altro file ed ha
funzionato.
Su linux c'è un file .so con il modulo.
--
www.pigmalion.info
www.pigmalion.info/perl/

Newsgroup: it.comp.lang.perl
Titolo: Banner in tutte le pagine!

Salve a tutti, qualcuno di voi conosce un metodo , tramite cron job o
qualunque altra cosa che realizzi il sistema i advertisement di tripod ??
Ovvero che inserisce in tutte le pagine  un banner ??

Ovvero che inserisce in tutte le pagine  un banner ??
Credo che tu abbia sbagliato gruppo. Prova, forse, su it.comp.www.cgi.
Ciao.

 Credo che tu abbia sbagliato gruppo. Prova, forse, su it.comp.www.cgi.
Ho paura che l'abbiano chiuso:
   Message-ID: <anrkivsjbdnron63k...@Mamo.mm>
ciao,
S.
Newsgroup: it.comp.lang.perl
Titolo: manuali perl

Dove posso scaricare dei manuali Perl (possibilmente in Italiano) ?
Grazie in anticipo,
Giorgio
P.S.: abbondate pure, per qualche settimana ho un sacco di tempo libero..
:-)

 Dove posso scaricare dei manuali Perl (possibilmente in Italiano) ?
Se hai perl, i manuali li hai gia' e non devi scaricarli. 
Altrimenti devi andare su un sito che non avresti mai immaginato: 
www.perl.com
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)


Forse sono stato disattento ma nell'active perl che ho installato e' inclusa
una lunga serie di files html con FAQ ed esempi vari ma mi pare che manchi
un vero e proprio manuale.
Se non e' cosi', potresti per favore indicarmi il percorso esatto del (o dei
manuali) ?
Grazie,
        Giorgio

 wrote:


L'ultima volta che ho installato ActivePerl, questo conteneva TUTTI i
manuali. Se non li contenesse, non potrebbe definirsi una distribuzione di
Perl.
I manuali sono proprio quella serie di file html. E ti giuro che sono molto
esaurienti. Sono un discreto 'Reference Manual'
Eventualmente puoi anche consultarli con 'perldoc'
Poi, se visiti seriamente il sito 
www.perl.com
, mi sembra che ci sia un
intera paginata di puntatori a materiale on-line. Anzi, vedo che sono due,
'Documentation' e 'Tutorials'.

Newsgroup: it.comp.lang.perl
Titolo: File upload script

 Salve,
    Avete in mente un modo rapido per utilizzare la funzione "fi
le upload" dei browser con uno script Perl?
 Uso Apache/1.3.3 (Win32) e Perl 5.004_02.
Grazie
 Pierluigi
--------------------------------------------------
-> Posted via Jackpot's mail server     
--
Posted from 
ppp-roma68-34.iol.it
 [195.210.68.34]
via Mailgate.ORG Server - 
http://www.mailgate.org

fide...@hotmail.com
 wrote:
 >    Avete in mente un modo rapido per utilizzare la funzione "fi
 >le upload" dei browser con uno script Perl?
Il modulo CGI.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

Il modulo CGI.
Il modulo CGI.pm ho già provato ad inserirlo ma il server dà un errore
riguardo al vettore @INC, come posso inserire il path del CGI.pm nel
vettore?
Grazie

 vettore?
con la funzione push (o unshift)
è un array come gli altri...
-- 

 vettore?
Ad esempio:
BEGIN { push @INC "/path/to/cgi/pm ; }
...
use CGI;
Probabilmente, pero', CGI.pm non e' installato in maniera appropriata,
perche' altrimenti perl "dovrebbe" gia' trovarlo in @INC. O frose e'
perl che e' installato in maniera strana...
Cheers,
	Alessandro

robert...@usa.net
 wrote:
 >Il modulo CGI.pm ho già provato ad inserirlo ma il server dà un errore
 >riguardo al vettore @INC, come posso inserire il path del CGI.pm nel
 >vettore?
Prima di imparare a fare i CGI allora devi imparare il perl.
Probabilmente non hai installato correttamente il modulo.



 Grazie 1000
Auguri da
 Pierluigi
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/
       Search, Read, Discuss, or Start Your Own

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

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

Grazie Marco!

 OKBASTA
Marco, perň deve essere abilitato lo javascript sul browser e se non lo č?
Non esiste un comando diverso per ottenere lo stesso risultato?

 Non esiste un comando diverso per ottenere lo stesso risultato?
No, AFAIK: visto che e` il browser che inizia la sessione http che gli
fa scaricare una pagina (e sempre lui istanzia le sessioni per scaricre
le immagini e quant'altro), la cosa deve partire dal client.
Cgi e php3 sono operazioni serverside, clientside hai solo html e
javascript.


Newsgroup: it.comp.lang.perl
Titolo: DATABASE E PHP

io usavo nt4.0, IIS, asp e access ora apache php ma che databse uso?? voi
che cosa usate??
mi potete dire se cè un NG sul php??
Grazie
Ravara Stefano
Supporto Tecnico Stileitalia
www.stileitalia.it
sup...@stileitalia.it
ICQ 36389650
-------------------------------------

Cerca su it.comp.lang.* etc etc
ciao
Riccardo
Newsgroup: it.comp.lang.perl
Titolo: Caricare il modulo MIME::Base64.pm

Ho un piccolo script che invia allegati in posta e richiede il modulo
MIME::Base64.pm (non installato sul mio server).
Ho quindi creato una sottodirectory MIME  di cgi-bin e vi ho inserito il
file Base64.pm eho fatto vari tentativi per richiamare il modulo dallo
script
es.
1)  use MIME::Base64;
2)  require MIME::Base64;
3)  use lib './MIME';
     use Base64;
....
Ma appare sempre la scritta seguente:
Can't locate loadable object for module MIME::Base64 in @INC (@INC contains:
/usr/local/lib/perl5/5.6.0/i686-linux /usr/local/lib/perl5/5.6.0
/usr/local/lib/perl5/site_perl/5.6.0/i686-linux
/usr/local/lib/perl5/site_perl/5.6.0 /usr/local/lib/perl5/site_perl .) at
file.cgi line 17
Potreste darmi un suggerimento?
Grazie.

 ha scritto nel messaggio
news:9fsn1r$dvr$1...@nreadB.inwind.it...

use lib "/path_assoluta/cgi-bin";
use MIME::Base64;
--
Marco Allegretti
shi...@katamail.com


Puoi mettere all'inzio dello script:
BEGIN { push(@INC, <path_della_directory_Mime>); }
HTH

Newsgroup: it.comp.lang.perl
Titolo: leggere da un file

Premesso che di perl non è che ne sappia molto, avrei bisogno di un piccolo
script che mi conti il numero di e-mail all'interno di un file txt in una
cerat directory e me lo metta a video.
Le e-mail sono memorizzate nella forma
ma...@nonso.it
ma...@nonso.it
ma...@nonso.it
Da quel poco che so di perl, dovrebbe essere una cosa facile, ma mi potete
dare qualche dritta?
Grazie
Andrea

 wrote in message
3FAY7.15038$s04.6...@news.infostrada.it...

La domanda non mi e` del tutto chiara.
Se intendi dire che nel file ci sono gli indirizzi uno per riga e vuoi
semplicemente
contarli, allora e` in effetti molto semplice.
# dopo aver aperto il file...
my @line = <IN>;
print scalar @line;
Attenzione pero` che potrebbe essere un problema leggere tutto il file in
memoria. Alternativamente puoi leggere il file riga per riga incrementando
un contatore.
Oppure usare questi one-liner :))
 perl -lpe '}{$_="$. email in the file"' mails.dat
 perl -lne 'END { print "$. email in the file" }' mails.dat
Se invece il problema riguarda il riconoscimento degli indirizzi email
all'interno di un file di testo che contiene anche altre cose, ti rimando
ad un modulo tipo Email::Valid, da usare in combinazione con
qualche espressione regolare.
ciao
Stefano

 contarli, allora e` in effetti molto semplice.
Si, voglio fare questo.
Pensavo di fare cosě: apro il file, poi inizializzo un contatore e lo
incremento di uno ogni volta che trova un simbolo @ facendogli leggere il
file una riga alla volta.
Quindi metto in output il numero. Il problema č che non conosco bene la
sintassi del perl, se qualche buon anima mi potesse scerivere il tutto, gli
sarei molto grato
Grazie
Andrea

Newsgroup: it.comp.lang.perl
Titolo: Calcolo fra date

Ho l'esigenza eseguire un calcolo fra due date nel gormato date-ore-minuti-secondi, vorrei convertirle in valore assoluto ovvero, eseguire la funzione inversa di localtime() che fornito un valore assoluto restituisce il noto array.
Ringrazio fin da ora per l'aiuto.
Beppe  
-- 
Questo articolo e` stato inviato dal sito web 
http://www.nonsolonews.it

restituisce il noto array.
Ti conviene usare uno dei tanti moduli per il calcolo delle date
(Date::Calc, Date::Manip e altri).
Comunque, il modulo Time::Local provvede anche una funziona inversa di
localtime: timelocal.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: secondaria importanza (print)

Ciao a tutti,
 ho quasi terminato, grazie anche al vostro aiuto, il programma che mi
serviva..:-))
Ora sono ai dettagli:
a un certo punto chiedo come input una data che solitamente (ma non sempre)
è la data odierna e quindo ho pensato di proporla alla fine della riga in
questo modo:
Inserisci la data (aaaammgg): 20030401
con un normalissimo: print "Inserisci la data (aaaammgg): $data";
La mia idea era che l'utilizzatore del programma potesse cancellare la data
da me proposta e correggerla a suo piacimento, ma così non è..infatti la
data che stampo io rimane lì appunto..stampata.
Non è un problema insormontabile, ma mi sembrava una soluzione efficiente
(per chi usa il prog). Qualche idea?
Vorrei chiedere un'altra cosa di carattere più teorico: qual è l'ambito in
cui viene maggiormente utilizzato il perl? Io so che viene impegato per i
CGI e per l'amministrazione/gestione di macchine unix. Inoltre, un po' di
tempo fa lessi che i CGI erano in declino in favore degli altri linguaggi di
scripting (jsp, php,..): vero?
Grazie a tutti e a presto
 Andrea

 scripting (jsp, php,..): vero?
CGI è la categoria, perl, php, ecc. sono i linguaggi che puoi usare per fare
CGI. Leggi meglio :-)
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

CGI. Leggi meglio :-)
Piů che categoria, io la chiamerei tecnologia, cosě come le ASP.
Javascript non ti da la potenza che ti danno Perl o PHP, č un ottimo
complemento, ma non č un linguaggio server side e quindi molte cose
non si possono fare.
Per quanto riguarda il PHP, ha goduto e gode di un ottimo marketing,
ma, per esempio, so che per le RE si appoggia ai costrutti del Perl.
E' solo un clone :)
Non l'ho ancora imparato perchč mi sembra inutile impiegare energie
per assimilare un altro linguaggio di scripting, piuttosto mi torno a
riconcentrare su Java.
Presto o tardi darň uno sguardo piů attento al PHP, ma il mio amore
rimane il Perl, vivo e vegeto since 1987.
Ciaz
--
www.pigmalion.info
www.pigmalion.info/perl/

 non si possono fare.
Infatti le pagine ASP si possono scrivere anche in JScript,
non JavaScript, che è usato client-side.
Ecco un test ("prova.asp") che uso io quando sto su un server nuovo
per conoscerne le capacità:
<code>
<script language="PerlScript" runat="Server">
for (1..10) { $Response->write("PerlScript&nbsp;"); }
</script>
<br>
<script language="VBScript" runat="Server">
FOR a = 1 TO 10: response.write "VBScript&nbsp;": NEXT
</script>
<br>
<script language="JScript" runat="Server">
for (i=1; i<10; i++) { response.write("JScript&nbsp;"); }
</script>
</code>
::guido::

data che stampo io rimane lě appunto..stampata.
Credo che l'unica sia utilizzare qualche modulo per interfaccia grafica o
grafico-testuale. Quale, dipende un po' da quello che vuoi fare e dal
sistema operativo in cui realizzi la cosa.
In perl puro, immagino ci si dovrebbe rassegnare a riscrivere una routine
di input, leggendo e scrivendo un carattere alla volta. Credo che sia
possibile, ma mi auguro di non essere mai costretto a farlo.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Problemi paginazione

problema con questo codice:
#
# Gestisce la paginazione...
#
my $topics_per_page = $PRE{'topics_per_page'};
  if (!$PAGE) { $PAGE = 1 };
my $end = (($PAGE * $topics_per_page)-1);
my $start = ( ($PAGE * $topics_per_page) - $topics_per_page );
my $total_page = int( scalar(@topics) / $topics_per_page );
   $total_page++ if ( scalar(@topics) % 10 != 0);
 
my $page_prev = $PAGE - 1;
  if ($PAGE <= 1) { $page_prev = "" };
 
my $page_next = $PAGE + 1;
  if ($PAGE >=  $total_page) { $page_next = "" };
my @topics_to_show;
   @topics_to_show = @topics[$start .. $end];
 
   @topics = (); # Libero la memoria...
se l'ultima pagina contiene meno topic di quelli da mostrare mi riempe 
l'array di "" ... come li levo dall'array?

 wrote:

L'unico modo per risolvere che mi viene è questo...
my @topics_to_show;
   @topics_to_show = @topics[$start .. $end];
 
my @topic_sulserio;
my $topic_sulserio;
   foreach $topic_sulserio ( @topics_to_show )
   {
     chomp($topic_sulserio);
       if ($topic_sulserio) { push( @topic_sulserio,$topic_sulserio ); }
   }
 
   @topics_to_show = @topic_sulserio;
 
   @topic_sulserio = ();
Qualcosa di meglio?

    @topics_to_show = @topics[$start .. $end];
cheers,
Aldo

Newsgroup: it.comp.lang.perl
Titolo: Perl con mysql

Qualcuno sa darmi qualche URL o dritta su come utilizzare Perl con Mysql...

 Mysql...
Il modulo DBI supporta egregiamente Mysql
-- 
You cannot teach a man anything--you can only help him to find for himself.
                -- Galileo Galilei

Newsgroup: it.comp.lang.perl
Titolo: perl script for reading/writing SQL TEXT field

Does anybody know of or have a perl script that can read and write to a
"TEXT" or "LONGTEXT" field in SQL?  More specifically MS SQL Server v6.5.
The TEXT field only allows you to read and write in 256 byte chunks and
there is a way to save more and read more up to 2GB.  Any ideas?
Thanks,
Todd


I've developed something, but is definitely very custom.
We don't have this kind of problem because I'm using Sybase CTLib on a
Linux and a Sun Machine (works GREAT on Sql Server 6.5) and it handle the
text field exactly like all others field.
For the 2Gb limit... well that's a SqlServer 6.5 problem... and the
solution is splitting the field into different fields....
	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: scarico file da host

Ciao a tutti.
sono da poco alle prese con Perl e quindi scusate eventuali domande banali.
ho scritto un prg che registra dei dati raccolti tramite una form da pagina
html su un file .txt
avrei la necessita', adesso, di scaricarmi dalla rete il file .txt senza
usare il programma FTP o simili
potete darmi un po di dritte (anche su eventuale documentazione da leggere)
grazie.

 wrote in message
DTjt9.65220$RO.16...@twister1.libero.it...


potete darmi un po di dritte (anche su eventuale documentazione da leggere)
Veramente, non si capisce bene dove sia questo file .txt e in che modo sia
accessibile. Se si trova su un server FTP o HTTP, e quello che vuoi fare è
prelevarlo con un programma perl, dai un'occhiata ai moduli Net::FTP e
LWP::Simple, o HTTP::Lite o i numerosi altri relativi al protocollo HTTP.
Ciao.

 wrote in message
news:DTjt9.65220$RO.16...@twister1.libero.it...


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

Newsgroup: it.comp.lang.perl
Titolo: Ho un problema: una chat scritta perl non mi funziona con Netscape Navigator

possiedo una chat scritta in Perl, quando la voglio utilizzare se mi
collego a Internet con Internet Explorer 5.0 non mi da nessun errore e
procede tutto correttamente cioč: mi fa vedere che sono in chat e vedo
comparire il mio nick name e il mio messaggio. Se uso Netscape ( io
possiedo la versione 4.8) la chat non funziona piů cioč: non mi
compare nessun nick name e nessun messaggio. L'errore possibile era
stato individuato sulla funzione ScrollBy() pensando che Netscape non
riconoscesse tale funzione. E' possibile questo tipo di
malfunzionamento? Chi puň suggerirmi delle ipotesi č ben gradito. 
Grazie

 wrote in message
ace038b5.02050...@posting.google.com...

Domanda gestisci tutto server side o hai codice client side caricato (cioč
usi perl script). Nell'ultimo caso č normale che non si veda un tubo.
Dammi piů notizie.
Ciao Diego

Newsgroup: it.comp.lang.perl
Titolo: qualcuno sa...

..dirmi dove poter inserire dei propri cgi, non avendo la possibilità con
Tiscalinet?
http://web.tiscalinet.it/milleni

   
Ciao,
prova con 
http://www.webjump.com/
Paolo
--
Posted from 
ns.alcanet.it
 [194.243.74.35]
via Mailgate.ORG Server - 
http://www.mailgate.org

Newsgroup: it.comp.lang.perl
Titolo: words selection

Hi,
Please help me,
I would like to realise a filtre to select only word in file with 
caracteres include into this variable $carac_available;
but not caracteres include into this variable $carac_notavailable;
my name file is "dico.txt"
sample with $carac_available = 'eo'; and $carac_notavailable = 
'hydngp';
word selected : close, mouve, ... because 'o' and 'e' is include into 
this words and 'h', 'y', 'd', 'n', 'g', 'p' is not include into this 
words.
content dico.txt :
doing
close
sunny
drugs
mouve
...
my code with problem :
open (FILE_ANSWER,"dico.txt.txt");
while ($ligne = <FILE_ANSWER>) {
	chomp($ligne);
	if (($ligne =~ \[$carac_available]\) && ($ligne !~ 
\[$carac_notavailable]\) ) { print $ligne." | "; }
	}
	close FILE_ANSWER;
Please, can you please me ?

 \[$carac_notavailable]\) ) { print $ligne." | "; }
Use "/" instead of "\"
Newsgroup: it.comp.lang.perl
Titolo: Apertura file binari

 
E' un refuso. La funzione giusta è binmode().
L'uso di questa funzione ha senso solo su sistemi che distinguono tra file
binari e file testuali (come i sistemi Win32). Sotto Unix o Mac questa
funzione non svolge alcuna... funzione.
Max

 read(GIF, $buf, 1024);
read(GIF, my $buf, 1024);
e gli warning spariscono!
(BTW, binary non esiste come funzione perl!)
Ciao
-- 
___________________________________
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

>
In effetti ha ragione lui: però io se do
perldoc -f binary
la shell mi risponde:
No documentation for perl function `binary' found
(sotto linux)
Quindi nel mio piccolo ho ragione anch'io! ;-)
--
____________________________________________________
    Life's just a blast, it's moving realy fast    
better stay on top or life will kick you in the ass.
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

Newsgroup: it.comp.lang.perl
Titolo: Intercettare gli errori

Ho sviluppato un'interfaccia che richiama vari programmi esterni e
manipola i risultati ottenuti.
Vorrei sapere come posso intercettare gli errori generati da un
programma esterno, senza farli comparire sullo schermo ?
Grazie.
Antonello


Perlfaq8: How can I capture STDERR from an external command?
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: codice perl portabile

ciao
devo scrivere uno script in Perl che deve poter essere
eseguito in qualsiasi piattaforma/OS. Che accorgimenti
devo prendere ?
Ad esempio:
che me ne faccio dell'incipit
#!/usr/local/bin/perl
sotto windows ?
 Raffaello

 #!/usr/local/bin/perl
Bè, fastidio sotto win non ne dà. Bisogna stare attenti alle path + che altro.
(Tipo C:/pippo/pluto.txt), ma con qualche regex si aggiusta tutto.
Logicamente non usare comandi proprietari. (tipo ls, find, dir, etc..)
Se hai qualche problema specifico...a tua dipsosizione.
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X
+--------+              & vCards / \

 Se hai qualche problema specifico...a tua dipsosizione.
Problema specifico : devo connettermi a Access ....
Ho speranze ? So che devo usare DBD::ODBC ...
 Raffaello

 Ho speranze ? So che devo usare DBD::ODBC ...
Non so e non penso che esistano DB che sfruttano i driver ODBC a parte
quelli di micro$oft.
Come disse qualcuno una volta:
	<< Con un pò di sforzo, si può cavare da un rapa qualsiasi cosa >>
nel senso che impegnandoti protesti riuscire a fare uno script che tenga
conto dell'OS in cui si trova e agisce di conseguenza. Solo che imho, il
codice diventa un casino.
Non so per cosa è destinato lo script, ma userei mySql piuttosto. (Anche
perchè *anche* mySql è portabile :) 


 perchč *anche* mySql č portabile :)
Non ti preoccupare per mysql non c'e' problema, le cose funzionano.
Voglio (mi impongono di) portare il tutto anche su access.
 aggialavura'
Raffaello

 Voglio (mi impongono di) portare il tutto anche su access.
Allora buona fortuna.
Ciao,


Ho speranze ? So che devo usare DBD::ODBC ...
In Windows, mille volte meglio ADO. Però, certo, non so se puoi trovarlo su
altre piattaforme.
Per il resto, se ti accontenti di eseguire lo script con "perl 
script.pl
",
non ci sono molti problemi, se vuoi qualche meccanismo più immediato è un
po' difficile, perché ogni sistema usa il suo.
Altri problemi di compatibilità specifici possono emergere in dipendenza
dai compiti specifici che devi svolgere, ma a priori è difficile fare
previsioni.
Ciao.

ODBC.
Sì, sotto Linux ci sono. Non so per quanto riguarda gli archivi Access, ma
postgres, per esempio, ha un'interfaccia ODBC.
Ciao.

 previsioni.
Il problema che mi pongo adesso e' come rilevare la directory corrente
sulle diverse piattaforme ?
Ovvero il path "assoluto" nel quale viene eseguito lo script ?
 Raffaello

 Ovvero il path "assoluto" nel quale viene eseguito lo script ?
Potrebbe esserti utile il modulo File::Basename.
ciao
Stefano

Ovvero il path "assoluto" nel quale viene eseguito lo script ?
"use cwd;" non va bene? O File::Spec?
Ciao.

 ODBC.
UnixODBC esiste per questo Inoltre, SapDB, tanto per fare un esempio,
e` multipiattaforma (e percio` c'e` anche per linux/unix) e gli unici
driver di cui dispone sono quelli ODBC
Henryx
-- 
GnuPG fingerprint = 42F9 521B 63C7 89FE 354C  89FA 4E49 3E2D 2EB6 B014
Newsgroup: it.comp.lang.perl
Titolo: Migrazione archivio da Oracle a DB2? ODBC o altro?

Ciao a tutti.
Ho bisogno di un suggerimento su come implementare una modifica su un
sito web realizzato alcuni mesi fa.
Cerco si raccontare: il sito in questione gira su un sistema Sun, con
Netscape Enterprise Server e gestisce un database Oracle su un altro
sistema Sun attraverso SQLNet.
I cgi sono fatti in Perl 5.0 e ho utilizzato con successo le librerie
OraPerl per gli accessi al db.
Adesso le necessita' sono cambiate e mi impongono di migrare il database
da Oracle a DB2 su un sistema MVS (OS/390).
Ho invece una certa liberta' per quanto riguarda la scelta del Web
Server.
Secondo voi, mi conviene lasciere il web server dove e' adesso,
cambiando i cgi per quello che riguarda le chiamate (non piu` OraPerl,
ma SQL su DB2), oppure rifare tutto e spostarmi in ambiente MVS dove non
ho assolutamente cultura, e usare qualche prodotto IBM per interfacciare
da Web il DB2????
Spero di essere stato sufficientemnte chiaro. Ringrazio chiunque mi
sappia dare una sua opinione sul da farsi.
Saluti.
Alessandro
-- Rimuovere NOSPAN dall'indirizzo
                          \|/
                         (@ @)
---------------------oOO--(_)--OOo----------------
Alessandro Feltrin - C&M S.p.a. Tel. 011-7767877
       Torino - C.so Svizzera, 185
       E-Mail 
afel...@c-m.it

 wrote:
| Ciao a tutti.
| Ho bisogno di un suggerimento su come implementare una modifica su un
| sito web realizzato alcuni mesi fa.
| Cerco si raccontare: il sito in questione gira su un sistema Sun, con
| Netscape Enterprise Server e gestisce un database Oracle su un altro
| sistema Sun attraverso SQLNet.
| I cgi sono fatti in Perl 5.0 e ho utilizzato con successo le librerie
| OraPerl per gli accessi al db.
| Adesso le necessita' sono cambiate e mi impongono di migrare il database
| da Oracle a DB2 su un sistema MVS (OS/390).
| Ho invece una certa liberta' per quanto riguarda la scelta del Web
| Server.
| Secondo voi, mi conviene lasciere il web server dove e' adesso,
| cambiando i cgi per quello che riguarda le chiamate (non piu` OraPerl,
| ma SQL su DB2), oppure rifare tutto e spostarmi in ambiente MVS dove non
| ho assolutamente cultura, e usare qualche prodotto IBM per interfacciare
| da Web il DB2????
non vedo la ragione di migrare su MVS anche per il web se non per
integrare su un unica macchina sia web che DBMS
dovrai cmq riscriverti le cgi
Newsgroup: it.comp.lang.perl
Titolo: Cercasi tools di sviluppo rapido

Salve, utilizzo perl 5 su linux e sono alle prime armi, utilizzo un semplice
editore di testi ed 'eseguo' il codice ogni volta per vedere se funziona, so
che esistono molti strumenti per il debugging in linux ( ceh non so usare ),
vorrei sapere se qualcuno di voi conosce un prodotto tutto in uno, un ide o
ancora meglio un rad comodo per la programmazione in perl. Ogni consiglio č
buono.
Grazie. Luca

 ancora meglio un rad comodo per la programmazione in perl. Ogni consiglio è
Non ne conosco di gratuiti per Perl, ma ce n'e` uno a pagamento
(un po' caro, ma buono) come parte del "resource Kit" venduto da
O'Reilly (meno di US$200; credo supporti anche Linux, ma bisogna
naturalmente verificare prima di comprare!-).
ActiveState (
www.activestate.com
) offre una versione aggiornata
e ancora meno cara (ma anche qui non sono sicuro se supportino
Linux; tendenzialmente ActiveState opera + che altro per Windows).
L'alternativa che ho scelto io e` di passare a Python -- fra le varie
ragioni c'e` quella che il suo Integrated Development Environment,
"IDLE", e` sviluppato dall'autore principale del linguaggio stesso
(Guido van Rossum, l'equivalente per Python di quel che e` Larry
Wall per Perl:-) e quindi gratuitamente distribuito insieme alla
distribuzione standard di Python.
Alex

Newsgroup: it.comp.lang.perl
Titolo: Perl e Interbase

ciao a tutti,
premesso che sono nuovo del perl (e lo trovo meraviglioso!) vorrei
installare i driver per Interbase.
leggendo i post ho installato quelli per MySQL con "ppm install DBD-MySQL"
collegato ad internet... stupefacente! :)
poi ho provato con interbase ma nn ha funzionato... "ppm install
DBD-Interbase"
sbaglio qcs???
ciao e grazie a tutti
Leo
Buon Primo Maggio!!! :)

 sbaglio qcs???
Allora, se usi ppm in modalità interattiva (ovvero scrivi ppm da DOS->
ottieni un prompt) e fai
PPM>search DBD
ottieni tutti i driver DBD presenti... manca quello per Interbase
Se vai su 
http://search.cpan.org
, e cerchi interbase ottieni
http://search.cpan.org/search?dist=DBD-InterBase
e leggendo il readme, noti che devi avere anche Interbase presente,
oltre ad un C.
Se hai già VC++ allora sei a posto, altrimenti dovrai utilizzare
il Borland C++. O ancora tentare con i compilatori free.
-- 
$_=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

 wrote in message
news:3CCFFC3E...@friuli.com...

Newsgroup: it.comp.lang.perl
Titolo: istruzione sed e awk tradotta in perl

Ciao,
una curiosita' che pero' vi propongo in "reverse mode": 
come tradurreste queste espressioni in perl (sempre da CLI)?
# sed '/.-../d' file.txt
# awk '$2 !~ /-/ {print}' file.txt
grazie

gxmsgx wrote:

I due script hanno una semantica differente, traduco quello awk.
Una traduzione (tra le possibili) è questa:
perl -ane 'print if $F[1] !~ /-/' file.txt
In generale, quando vuoi emulare sed e awk, ti tornano comodi gli switch 
  -a -n -p -F (e ovviamente -e/-E):
http://perldoc.perl.org/perlrun.html
Ciao.

 perl -ane 'print if $F[1] !~ /-/' file.txt
Grazie Emanuele, perfetto.
Un'ultima cosa:   reverse_mode=off
abbiamo il file.txt cosi' composto:
# cat file.txt 
2 4 5
2 -4 6
3 5 7
4 -6 9
5 -9 4
6 -3 3
2 4 6
-2 4 6
2 4 -6
voglio eliminare tutte le righe che contengono un numero negativo nella 
seconda colonna, come lo faresti in CLI-perl?.


perl -ane 'print if $F[1] >= 0' file.txt > file.txt.new
Ci sarebbe anche lo switch -i per modificare i file in place e per 
creare backup in automatico (es.: -i.bak).

Newsgroup: it.comp.lang.perl
Titolo: Esplorare DLL

ragazzi desidero sapere come e se è possibile vedere i file contenuti in una
dll.
grazie mille
ciao
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 dll.
cosa intendi esattamente per file? le DLL generalmente contengono
funzioni, per richiamare le quali forse può esserti utile il modulo
Win32::API, o resource (stringhe, icone, bitmap, etc.) per estrarre le
quali non mi pare esista un modulo preconfezionato.
cheers,
Aldo

 quali non mi pare esista un modulo preconfezionato.
Sembra invece esserci qualcosa
http://search.cpan.org/~fabpot/Win32-Resources-0.02/

cosa intendi esattamente per file?
Per come ha posto la domanda su it.comp.programmare (il crosspost, questo
sconosciuto!), credo che lui intenda proprio file, quindi immagino sezioni
dati all'interno dell'eseguibile (caso tipico: un archivio autoestraente,
ma evidentemente si può fare quello che si vuole).
Mi pare che Win32-Resources possa comunque risolvere il problema.
Ciao.

Mi spiego meglio. Io ho un programma che in qualche suo file che ancora non
so ha inglobato un database access mdb e vorrei sapere come posso
estrapolare questo database.



estrapolare questo database.
Oltre al modulo Win32::Resources, prova a guardare il modulo Win32::EXE.
Qui puoi trovare informazioni sul formato degli eseguibili:
http://msdn.microsoft.com/msdnmag/issues/02/02/PE/default.aspx
http://download.microsoft.com/download/1/6/1/161ba512-40e2-4cc9-843a-923143f3456c/pecoff.doc
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: how to get user's IP?

may i know how to get the IP of the user that accessing my web site?
Let say he is access to my site and the script will run and get the user IP
address and print it into a log file.
Thanks for helping.

 wrote:

print $ENV{'HTTP_X_FORWARDED_FOR'};
Newsgroup: it.comp.lang.perl
Titolo: CGI, come passo un comando?

Ciao a tutti, non so se è possibile fare quello che sto per chiedere
utilizzando perl.
Su un webserver apache ci sono alcuni programmi che possono essere lanciati
con un browser, nella fattispecie
http://mascot.jmol.it/mascot/cgi/nph-mascot.exe?1
dopo aver dato in un form precedente l'upload di un file da processare con
il programma nph-mascot.exe
Dal momento che questo programma è eseguibile anche da linea di comando
nph-mascot.exe 1 -commandline < file.da.processare
mi chiedevo se fosse possibile eseguire questa linea di comando con uno
script perl in modo da lanciare il programma dalla rete.
Non so se sono stato chiaro...
Faccio un punto della situazione:
- io con uno script già comando alcune applicazioni _locali_
- queste applicazioni generano files
- questi files devono essere processati con un programma che per forza sta
un webserver
- io vorrei dal mio computer fare uno script che, una volta generati i files
li passa al programma sul server
- il server è apache e funziona sotto Red Hat Linux
- il computer locale gira sotto windows (per forza, altrimenti non potrei
lanciare i programmi del primo punto).
Tenendo conto che non conosco nulla di CGI, si può fare quello che chiedo?
Grazie di cuore
dawe
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

web server LINUX che esegue un software Win32??? 
http://mascot.jmol.it/mascot/cgi/nph-mascot.exe?1
che io sappia non si può fare.
Lestat
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Non farti ingannare, l'estensione .exe è fittizia, il programma gira sotto
linux, di già, te lo assicuro!


 li passa al programma sul server
Ci sono almeno due metodi per passare i file al server:
- tramite l'upload di CGI (puoi trovare info dando perldoc CGI)
- tramite ftp (perldoc Net::FTP)
Se vuoi fare eseguire dal CGI un comando residente sul client allora ce 
la puoi fare con ActiveX (ricordo di avere fatto qualcosa in merito) e IE.

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

Qualcuno usa PerlMagick per manipolare le img?
Saprebbe dirmi cosa fare ?
Non conosco il perl ma ..
Grazie

 Saprebbe dirmi cosa fare ?
Prova qui:
http://www.imagemagick.org/www/perl.html
-- 
$_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572,,($_,$b)=
split?#?;@b=split?;?;map{$c.=$_,$d.=chr$b[$e++]+ord}split??,pack'H24',$b
;chop$d,print$c.chr(32).$d
Newsgroup: it.comp.lang.perl
Titolo: Brutal force

Ciao..
sto cercando di scrivere un programmino che cerchi una password col
metodo brutal force.
Vorrei sapere come posso dare in input a programmi esterni dei valori.
In particolare a su vorrei passargli la password da provare.
Grazie


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

il modulo mi sembra utile per passare parametri ai programmi.. invece
su non accetta parametri in input ma vuole l'input cioè aspetta
l'input dell'utente.. si può far inserire l'input ad un programma perl?

no.. forse è questo.. una cosa più semplice? ehm dovrei fare una cosa
un pò veloce..

 un pò veloce..
Beh, per definizione, il (brutal) lavoro che stai per intraprendere 
non e' veloce (o almeno non e' detto che lo sia!).
Ma a quale software devi passare la password?
Daniele

semplicemente a su..
cmq il brutal è una possibile applicazione ce ne sono altre no? quindi
a sapere una cosa in più non fa mai male ;-)

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

Ciao a tutti, sto studiando il perl solo da oggi pomeriggio ma entro
domani devo portare a termine uno script.
Ho un testo di questo genere:
        It is impossible to tell where the Young Woman is from or how
        old she is; everything she does contradicts something she did.
        The boy and girl sit in a booth.  Their dialogue is to be said
        in a rapid-pace "HIS GIRL FRIDAY" fashion.
                                  YOUNG MAN
                       No, forget it, it's too risky.  I'm
                       through doin' that shit.
                                  YOUNG WOMAN
                       You always say that, the same thing
                       every time: never again, I'm
                       through, too dangerous.
E devo estrarre soltanto ciň che č scritto sotto a YOUNG MAN e
YOUNG WOMAN, ma ho zero esperienza in perl e volevo dei consigli.
Il ciclo centrale č di questo tipo:
while($riga = <COPIONE>){
chomp($riga);
 if ($riga =~ m/s{23}/){
  printf("\nHo trovato i 23 spazi bianchi\n");
  /*Se li ho trovati allora con lo split posso estrarre facilmente i 
termini*/
 }
 else{
  printf("\nNON ho trovato i 23 spazi bianchi\n");
  /*quindi non mi interessa ciň che č in "riga"*/
 }
}
Perchč non funziona?
Scusate se ho scritto qualche "cappellata" ma vado di frettissima!
Ciao,
grazie. 

 if ($riga =~ m/s{23}/){
               ^^^^^^^^
dovrebbe essere
if ( $riga =~ /^\s{23}/ ) {
Dove si intende: "Se la riga _inizia_ con 23 spazi".
Ho mal di testa, potrei aver scritto una boiata, eh :)
Ciao,
-- 
.           .  |
| , ,-. ,-. |  |"In girum imus nocte et consumimur igni."
|<  |   ,-|    |
' ` '   `-^ `' |

 Ciao,
Ciao,
Ennio