mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: eseguire comando shell da paina web

Ciao a tuti, non conosco per niente il perl ma molto bene il php, solo 
che ho trovato un blocco nella configurazione che ha sul mio server, 
poichč non mi ladci eseguire comandi shell.
Vorrei fare in modo che una paginetta web quando viene caricata mi 
esegua un comando shell. Dovrebbe essere facile per voi..
Grazie!
Stefano
-- 
                   |||
                  (0.0)
|-------------o00----00o-----------------------------|
|Stefano Alberto Russo - Liceo Oberdan - Trieste     |
|
www.terra32.net
 - webmaster @ 
www.acquariofilia.biz
 |
|----------------------------------------------------|

 esegua un comando shell. Dovrebbe essere facile per voi..
Ciao Stafano.
Francamente nemmeno io sono un drago di perl ma mi piace moltissimo.
Eseguire un comando da shell tramite un CGI non è nulla di complesso o
complicato.
Il problema penso che sia la sicurezza.
Eseguire comandi da una pagina web è estremamente rischioso.
Per eseguire un comando cmq si fa con la funzione system:
@risultato_comando=system("comando");
Sicuramente coloro che ne sanno di più potranno benissimo smentirmi :-)
Ciao,
	nathanvi
-- 
nathanvi
ICQ --> 20318568
mail --> vitto.z A_T 
tiscali.it

 
Ciao, Stefano.


Newsgroup: it.comp.lang.perl
Titolo: Messaggio di errore

Qualcuno mi puņ aiutare per capire il motivo di questo messaggio di errore?
Bareword found where operator expected at (eval 28) line 1, near """N"
(Missing operator before N?)
Grazie.


pastaci anche il sorgente

 (Missing operator before N?)
L'intrerprete ha trovato una "parolaspoglia" dove si aspettava un 
operatore all linea 1, vicino a """N" (forse manca un operatore prima 
di N?)
Piu' chiaro di cosi'......
-- 
Saluti,
Giancarlo

 di N?)
Ti ringrazio, ma non č cosě semplice ...
Intanto dice alla linea 1 (dell'eval 28?), ... di eval ce ne sono nello
script ma meno di 28 ... a cosa si riferisce?
Alla linea 1 dello script non c'č nessun """N" (e neanche nel resto).
Premetto che lo script "gira" perfettamente, almeno io non ho trovato
errori, trattasi di un carrello complicato per l'e-commerce. Solo che nel
LOG_errori del server si accumulano quegli avvisi.
SOLUZIONE TROVATA.
Prima di postare la presente ho fatto una prova ho rimandato sul server i
vari file di configurazione (.cfg e .pl vari secondari) e adesso l'errore č
sparito, probabilmente qualcuno di quelli era danneggiato.
Grazie e cordiali saluti.
Arturo

vari file di configurazione (.cfg e .pl vari secondari) e adesso l'errore è

Newsgroup: it.comp.lang.perl
Titolo: comparazione di un valore con un array associativo





Salve a tutti, ho iniziato da poco a pogrammare, e 
sto trovando grossissime difficoltà....quella che non riesco proprio a superare 
è la comparazione di un valore con un array associativo.


mi spiego meglio...


io ho


%giorni = 
('gennaio', 31, 'febbraio', 28, 'marzo', 31, 'aprile', 30)


 


come faccio a 
vedere se un valore che imposto io è compreso in questo array, per esempio 
gennaio???


Grazie!!!


Ciao...perdono 
per la mia ignoranza...





in questo array, per esempio gennaio???
Facci capire bene:
Scegli un esempio qui sotto:
1. $valore_che_imposto_io = 13
2. $valore_che_imposto_io = 'gennaio'
3. $valore_che_imposto_io = { 13, 'gennaio' }
4. $valore_che_imposto_io = { 42, 'ottembre' }
Significato di compreso? Se esiste tale data (ad esempio il numero 3
restituirebbe true e il numero 4 false)? Spiegaci un po' meglio, ok?
Ciao...perdono per la mia ignoranza... ;-)
dd







Si, scusa l'imprecisione


$valore_che_imposto_io = 'gennaio'


voglio vedere se è all'interno dell'array...


grazie!


ciao



voglio vedere se č all'interno dell'array...
chiamalo "hash" che č piů di moda :-)
se vuoi sapere se "esiste" allora scrivi
prova questo:
%giorni = ('gennaio', 31, 'febbraio', 28, 'marzo', 31, 'aprile', 30);
$valore_che_imposto_io = 'gennaio';
exists $giorni{$valore_che_imposto_io} ? print 'ESISTE' : print 'NON
ESISTE';
poi cambia
$valore_che_imposto_io = 'ottembre';
per vedere che effetto fa.
ciao
dd

 chiamalo "hash" che è più di moda :-)


 un po caprone.....sempre se non disturbo!!!
non distirbi, anzi questo newsgroup č fatto apposta, sempre che perņ ti
leggi anche un po' di documentazione, OK?
ciao
dd
PS Mi ero dimenticato di dirti di leggerti "perldoc -f exists" per
approfondire la dritta.

Newsgroup: it.comp.lang.perl
Titolo: DMOZ --> XML/RDF

Qualcuno mi aiuta capire come si potrebbe scrivere
in maniera più compressa il DUMP-RDF di 
DMOZ.ORG
 ?
Espanso occupa 80 mb e fa veramente veramente
schifo... sti americani!(vedi about di 
www.dmoz.org
 )
Ogni categoria è scritta per intero con tutta le categorie genitore
elencate...  ARF!
Vorrei trasformarla in un XML SENZA RIPETIZIONI di meno di 8 mb facendo il
tutto in PERL, naturalmente.
Penso che si possa fare senza usare una funzione ricorsiva,
ficcando in un array le categorie man mano che vengono
trovate nel file... (tenete conto che sono 220.000 circa).
Ah già dei siti mi rimbalza... mi bastano le categorie...
Mah che dire bah ehm ehm puf! bah! Se qualcuno ha qualche
idea...
FISH <'-<

Nessuno posta una risposta... Quindi
la domanda vi manda in tilt... BENE.
Vuol dire che sono sulla strada giusta.
A presto con la prossima puntata

Newsgroup: it.comp.lang.perl
Titolo: Download Ia.n.i.!!! It's free!

Download Ia.n.i. RemoteControlSystem 1.2 beta. It's free!!!
New site: 

Download Ia.n.i. RemoteControlSystem 1.2 beta. It's free!!!
New site: 
http://jump.to/IaniProject


Newsgroup: it.comp.lang.perl
Titolo: Utilita' costrutto

Ciao
stavo sfogliando il manuale del Perl e mi sono
imbattuto in un costrutto che non ho mai utilizzato:
${foo}
Qualcuno puo' farmi un esempio di utilizzo di
questa notazione?
  Raffaello

questa notazione?
Al di fuori del contesto, non è chiarissimo di che cosa si stia
parlando, ma mi viene da pensare che si tratti dell'elemento di un
hash. La scrittura ${foo} è equivalente a ${'foo'}.
foo naturalmente potrebbe anche essere una chiamata ad una sub, con
risultato sempre la chiave di un hash, e probabilmente altro ancora.
Ciao.

 ${foo}
Immagina di avere la variabile
$foo = "ciao"
e di voler stampare la stringa "ciao_";
Un modo per farlo e' quello di scrivere:
print "$foo_";
Il compilatore in questo caso cerca di prendere la stringa
piu' lunga che sembri un identificatore. E quindi cerchera'
di stampare la variabile $foo_.
La notazione con le parentesi graffe ti consente di chiarire
cosa intendi:
print "${foo}_";
-------
Un altro caso e' quello in cui usi i riferimenti.
@array = ("alfa","bravo","charlie");
#creo un riferimento all'array (sorta di puntatore)
$array_ref = \@array;
#accedo al primo elemento
print ${$array_ref}[0];
--------------
Spero di essere stato utile.
Ciao,
Giovanni
-- 
giovans(at)
users.sourceforge.net

 print ${$array_ref}[0];
Grazie mille!
  Raffaello
-- 
_______________________________________
"La bandiera del Niente e`, da sempre, quella che piu` trascina."
(V.Evangelisti)
_______________________________________



Non si tratta di hash. E' un modo per "forzare" o "disambiguare"
la stringa che identifica la variabile in un namespace (vedi post di
giovans). Esempio:
  $foo = "G";
  print ${foo},"\n";
restituisce
  G
Raffaello

 ha scritto nel messaggio
news:74pb52l8s1kk6diko...@4ax.com...


etc....
Se %foo è un hash:
  my %foo;
c'è una convenzione per cui, nel caso di una "parola" singola (solo lettere
e numeri, senza spazi), scrivere ${foo} è equivalente a scrivere ${'foo'}.
Al di fuori di un contesto, ho pensato si potesse trattare di questo,
invece era tutt'altro, e cioè la possibilità di scrivere ${foo} in luogo di
$foo. Una delle tante cose che Perl ha ereditato dai linguaggi di shell.
Ciao.

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

c'č da qualche parte un elenco e/o descrizione dei moduli, per trovare piů
in fretta quelli che farebbero al caso nostro?

 in fretta quelli che farebbero al caso nostro?
 
http://search.cpan.org

Newsgroup: it.comp.lang.perl
Titolo: regExp e match delle parentesi '(' , ')';

Ciao a tutti,
domanda da primino delle regExp:
in uno script perl, avendo una data stringa ascii, come faccio ad eseguire
il match degli
eventuali caratteri parentesi tonde '(' e ')' ??
Essendo metacaratteri ho pensato di  'encodare'  il simbolo '(' con '\(',
ma nulla da fare.
In pratica, all'interno di una stringa, dovrei sostituire la sequenza di
caratteri ',  )'
[virgola, blank, parentesi tonda di chiusura]  con ')'
Qualche suggerimento sul formato della regexp ?
Ringrazio anticipatamente,
Luca

 cerchero' un'altra donna dentro ai sogni di Tarzan...
Newsgroup: it.comp.lang.perl
Titolo: shell perl

ciao, volevo provare la shell in perl per il mio linux, solo che il link
che ho trovato su freshmeat non funziona piu', non e' che qualcuno c'ha
un url di un mirror o me lo potrebbe passare???
bau
-- 
Key fingerprint = 2DC2 63D0 B4F9 A514 4C42  8F59 8F00 BF67 AE25 2AEE

http://www.activestate.com/

Newsgroup: it.comp.lang.perl
Titolo: Cambiare il 'blanck' con il '+'

Salve, vorrei chiedere come fare una sostituzione in una stringa.
Vorrei cambiare in una stinga i ' ' con '+'
Pero' non in tutta la stiga (quello lo so fare) ma solo in quelle
parti della stringa che sono precedute da '<A HREF=" ' e terminano con
' ">'.
qualcono sa dirmi come fare?
Grazie 

 qualcono sa dirmi come fare?
Questa è la prima soluzione che mi viene in mente. Non escludo che ci
siano tecniche più efficienti.
$str = '<A HREF=" ciao ciao  " >       <A href="  ciao ciao   " >';
$str =~ s|(<A HREF=\")([^\"]+)(\"[^>]*>)|
                ( my $s = $2) =~ tr/ /+/; $1.$s.$3 |gei;
print $str, "\n";

Newsgroup: it.comp.lang.perl
Titolo: AIUTOOOOOOOOO:Installazione Librerie per il PERL

Salve a tutti.
Ho un piccolo (Titanico) problemino:
devo scrivere un proxy per la posta elettronica ed ho bisogno di installare
alcune Libs;
Net::POP3
che richiede per l'installazione
    IO::Socket
    che richiede
        Socket (versione 3)
        che non riesco ad installare !!!
ho provato a fare un po' di cose... tipo copiare i file delle librerie che
devo installare dove sono quelle gia' installate dal Perl.
RISULTATO:
alcuni errori non me li da piu', ma altri continuano ad imperversare sul mio
sistema (Linux RedHat)
Se qualcuno ha gia' avuto proplemi simili, vi prego, aiutatemi !
Ciao e grazie in anticipo !
Tony

ho provato a fare un po' di cose... tipo copiare i file delle librerie che
devo installare dove sono quelle gia' installate dal Perl.
Normalmente i moduli Perl si prelevano da un sito del CPAN (vedi su
www.perl.com
) e si scompattan in una directory temporanea, e poi si 
installano con i classici:
   perl Makefile.PL
   make
   make test
   make install
La ditribuzione RedHat di Linux sicuramente include gia` la versione .rpm dei
piu` famosi moduli Perl, quindi puoi installare in automatico.
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/


...che e' esattamente quello che ho fatto io... ma senza nessun risultato
(Sigh!)
dopo aver creato il Makefile ed aver eseguito il Make, visto che non
funzionava nessuna delle librerie che ho tentato di installare (ed in
articolare la prima...che crea poi il resto dei problemi!) ho provato a
copiare  Socket.pm in una delle directory che contengono gli altri .pm del
perl, ed altri file che via via venivano richiesti dai vari errori...
ora un uteriore errore mi dice che non riesce a trovare il programma oggetto
di una libreria ... che cavolo significa?
Grazie...
Tony
Newsgroup: it.comp.lang.perl
Titolo: Connection pool

Un saluto a tutti volevo porvi un mio piccolo problema.
Devo effettuare delle modifiche ad un programma (abbastanza complesso) in
perl.
Tali modifiche sono impostate verso la diminuzione dei tempi di esecuzione.
Dai test temporali da me effettuati ho riscontrato che la lentezza deriva
dalla connessione al db oracle, e sentendo alcune persone del campo sono
arrivato alla conclusione di instanziare un connection pool.
Qualcuno sa darmi qualche informazione o magari su dove trovarle?
Grazie in anticipo.

 dalla connessione al db oracle, 
forse Apache::DBI ?
forse prepare_cached & connect_cached di DBI ??
Newsgroup: it.comp.lang.perl
Titolo: modulo Date::Roman

Salve,
  Sono finalmente riuscito a scrivere una versione alpha del modulo
Date::Roman.
  Come lo dice il nome stesso, questo modulo permette di manipolare le
date nel formato dell'impero Romano (vedi in fondo alla sig. per un
esempio).
  Come ho detto, è una versione alpha. Sono quindi interessato da ogni
commento/osservazione/bug che le persone interessate vorranno farmi
pervenire.
  Potete trovare il modulo al seguente indirizzo:
http://shire.dnsalias.org/perl/Date-Roman-1.0.1.tar.gz
Ciao
-- 
Leo TheHobbit |It snow food and rain drink.|
IRCnet #roma2 |        Hobbit saying       |
ICQ 56656060  |                            | a.d. XVI Kal. Mai. MMDCCLV a.U.C.

 pervenire.
tutto bene, ma io aggiungerei Test::More ai PREREQ_PM in Makefile.PL.
inoltre nella SYNOPSIS c'è un errore di sintassi (probabilmente manca un
apice).
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

Newsgroup: it.comp.lang.perl
Titolo: chiocciola o non chiocciola, questo è il problema!

Sto creando una form di registrazione e questa è la parte in cui vado a
scrivere nel file i dati dell'utente:
$cosa="/$user/$password2/$mail/\n";            #ogni riga vado anche a capo
print file_da_scrivere $cosa;
Coi dati:
User:paolo
Password:password
email:pa...@paolo.it
IE, ottengo:
/paolo/password/
pa...@paolo.it/
Mozilla e Netscape ottengo:
/paolo/password/paolo%
40paolo.it/
Come posso fare per ovviare a questo problema?
Grazie mille a tutti!
Ciao Paolo

 $cosa="/$user/$password2/$mail/\n";            #ogni riga vado anche a
[CUT]
Scusa se non rispondo alla tua domanda, ma ti faccio un'osservazione:
non è + conveniente usare un delimitatore diverso da /.
Immagina poi dover far lo split di quella riga:
	my @dati = split(/\//, $cosa);
Immagina poi di doverci mettere le mani dopo mesi... (almeno io farei
fatica a capire subito di che si tratta)
PS: potresti provare a fare:
	$cosa =~ s/"%40"/"@"/g;
Ciao e scusa l'osservazione,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

 ha scritto nel messaggio
news:20030613150404.00...@paranoici.org...
Scusa se non rispondo alla tua domanda, ma ti faccio un'osservazione:
non è + conveniente usare un delimitatore diverso da /.
Immagina poi dover far lo split di quella riga:
my @dati = split(/\//, $cosa);
Immagina poi di doverci mettere le mani dopo mesi... (almeno io farei
fatica a capire subito di che si tratta)
PS: potresti provare a fare:
$cosa =~ s/"%40"/"@"/g;
Ciao e scusa l'osservazione,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X
+--------+              & vCards / \
----------------------------------------------------------------------------
-----------------------------
Non scusarti,le osservazione sono sempre ben accette!
E grazie mille, per la risposta!
Ciao!

 $cosa =~ s/"%40"/"@"/g;
Scusa, senza virgolette.
Ciao,

Newsgroup: it.comp.lang.perl
Titolo: mi ci sto spaccando la testa!


iQA/AwUBPhx3Y0c12/rBkMvzEQJY+QCaAzUmpwHd9EGMfqrWbsY5zj5WXKMAn3oD
dUBKWHtGBymf6gdNfEODhJrH
=qqTY
-----END PGP SIGNATURE-----

 
provato a usare chop? ... e a skippare quando la riga (choppata) ha 
lunghezza == 0 ?
oppure ...se va bene a risolvere il tuo problema...
una cosa del tipo:
while(<>) {
        next if (/^\s*\n$/);
        print $_;
}
sicuramente skippa le righe vuote (senza caratteri alfanumerici) ... quindi 
anche le righe con soli spazi o soli tabs (i \s praticamente)
ciao ;)

Ammettendo che non possa evitare di avere il testo multilinea in $_:
1. questa va benissimo (nella tua perň vedo degli spazi)
    s/\n\n/\n/ g;
prova questo:
#### CODE #####
$_ = << 'EOS';
linea1
linea2
linea3
linea4
EOS
s/\n\n/\n/g;
print;
#### END CODE ####
perň se il testo č un file, direi che non ti conviene metterlo tutto in una
variabile in memoria, per poi eliminare lě le linee vuote, ma ti conviene
ignorarle, man mano le stai leggendo
prova questo:
#### CODE ####
while (<DATA>)
{
    chomp;
    next unless $_;
    # se arrivi qui allora hai qualcosa in $_
    print $_, "\n";
}
__DATA__
linea1
linea2
linea3
linea4
#### END CODE ####
ciao
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

 lunghezza == 0 ?
Per fare quello che dici tu il chop() non è il più indicato, perché elimina
indiscriminatamente l'ultimo carattere di una stringa. La funzione fatta
apposta è il chomp() che elimina il \n che hai in $/.



iQA/AwUBPhyCXkc12/rBkMvzEQKZ+wCffC3X1ZrUdt1ldGsFadySBCvvUp8AnROL
SA45mPdswvnv6+kyVdQphV1T
=Hov8
-----END PGP SIGNATURE-----

 cioè... dici preferire @_?
Che??? In @_ trovi i parametri passati a una sub, che NON è come dire che se
in $_ c'è una stringa multi linea in @_ ci sarà un array delle linee che
stavano in $_!!!!!
Io volevo dire di evitare di puppare in RAM tutto un file (che chissà
potrebbe essere anche grandicello), a meno che tu non sia sicuro che 1. il
file NON diventerà MAI grandicello, e 2. che non hai proprio un sistema
differente di usare le tue linee piuttosto che usarle tutte insieme.
L'esempio del while (<DATA>) ti offre appunto un'alternativa molto economica
in termini di RAM, e altrettanto valida per ottenere quello che vuoi.


 fatta apposta è il chomp() che elimina il \n che hai in $/.
si... vero... :P
Newsgroup: it.comp.lang.perl
Titolo: gestire e-mail

Salve,
come posso fare le seguenti cose?
da una mail, salvare gli allegati in una directory,
inviare una notifica via mail che gli allegati (lista dei nomi)
ricevuti da  (header del messaggio) a una serie di indirizzi
di posta elettronica, oppure il messaggio originale senza allegati?
Grazie
--
Barchi Alessandro
a.ba...@inwind.it

di posta elettronica, oppure il messaggio originale senza allegati?
Fra MailTools, Mime::Tools e libnet, dovresti avere tutti gli strumenti per
fare quello che vuoi.
Ciao.

 Ciao.
Dove trovo la documentazione che sia abbastanza dettagliata e
soprattutto con esempi, sull'archivio CPAN, la doc. è abbastanza
stringata..
Grazie.

stringata..
Boh... io me la sono sempre cavata con la documentazione dei moduli. Di
solito uso ActivePerl, ma la documentazione credo che sia sempre quella.
Se hai qualche dubbio un po' piu` specifico, chiedi pure, comunque. Basta
che non mi fai lavorare, che sono in ferie.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Ricerca e sostituzione

Avendo delle stringe del tipo:
$a  =  "e:/prove/da_formattare/"
con quale istruzione di ricerca e sostituzione posso cambiarla in:
$a  = "e:\prove\da_formattare\"
Mi serve perchè devo fare il porting di un programma da linux a windows.
Ciao e grazie.

 
Prova un po' questo:
$a=~ s/\//\\/g;
Ciao
Gabriele

 ha scritto nel messaggio
news:3BB1B8CC...@unifi.it...


Newsgroup: it.comp.lang.perl
Titolo: <no subject>

Ciao ragazzi,
	mi servirebbe un aiuto!!!
In ambiente Linux lancio da uno script perl ,grazie ai doppi apici, un eseguibile "*. exe" che in precedenza e' stato compilato (gcc o g++) e creato.Questo eseguibile chiede dei valori (cin>>) che io ho in variabili perl ($variabile)  e restituisce(cout<<) un valore :come gli passo questi valori dal perl all' eseguibile? Come posso salvare su una variabile perl il valore che restituisce questo programma? 
Grazie. 
----------------------------------------------
Virgilio Mail - Il tuo indirizzo E-mail gratis
http://mail.virgilio.it
-- 
Posted from [212.216.176.200] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 una variabile perl il valore che restituisce questo programma?
Apri
  perldoc perlipc
  (
http://www.perldoc.com/perl5.6/pod/perlipc.html
)
e cerca la sezione "Bidirectional Communication with Another Process"
Max





Dopo aver creato un documento .rtf con un CGI ( perl ) voglio 
che questo venga mostrato direttamente nel browser del client eseguendo 
MSword..


 


 


                                                          
Salvatore Serafino

Newsgroup: it.comp.lang.perl
Titolo: sub richiamate dinamicamente

Salve a tutti. Sono un neofita del Perl e vorrei sapere come è possibile 
richiamare routine (sub) perl contenute in altri file .pl 
Ho visto il comando "use" che sembra fare al caso mio, ma non ho capito 
bene come funziona... qualcuno sa indicarmelo o almeno fornirmi un link ad 
un tutorial? Thanks

...

Qui ci sono 2 note per iniziare:
http://cloud.prohosting.com/pigmauk/perl/response.cgi?file=12
Ciao
--
pigmalion network
http://cloud.prohosting.com/pigmauk/
Perl
http://cloud.prohosting.com/pigmauk/perl/

 > richiamare routine (sub) perl contenute in altri file .pl
Ti faccio un paio di esempi:
_SCRIPT "
test.pl
" __
#!perl
require "
include.pl
";
$stringa = "ciao ciao";
$stringa2 = maiuscolo($stringa);
print $stringa2;
_SCRIPT "
include.pl
" __
function maiuscolo {
    my $in = shift;
    $out = uc($in);
    return $out;
}
1;
___________________
Ciao!
Newsgroup: it.comp.lang.perl
Titolo: principiante in difficoltà: pattern matching multiplo

Ciao a tutti,
avrei bisogno di eseguire un pattern matching in una stringa, che
contiente n volte il mio pattern (che è una semplice stringa), e vorrei
sapere non solo quante volte lo trova, ma soprattutto le posizioni in
cui trova le varie occorrenze.
 | Es. Tigre contro tigre
 | Posizioni: 0, 13...
Attualmente sto usando cicli di index() e poi substr(), solo che questo
rende un po' scomodo dover calcolare gli indici, ma soprattutto
computazionalmente rallenta molto il risultato.
Infatti la "stringa" che uso per i test è da 40Mb, ma alla fine vorrei
applicarla ad una stringa da 3,3 Gb (ok, anche se ci mette due settimane
;).
Vi ringrazio sin d'ora, un saluto da un principiante entusiasta ^_^
Andrea
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 cui trova le varie occorrenze.
Potresti usare la funzione pos().
Eccoti un esempio:
   ----
    use strict;
    use warnings;
    #                   1         2         3         4
    #          12345678901234567890123456789012345678901
    my $str = 'una lunga stringa ma mica poi cosi` lunga';
    my $pattern = 'lunga';;
    pos( $str ) = 0;
    while( $str =~ /$pattern/g ) {
        print "Ho trovato '$pattern' alla posizione " 
            . (pos( $str ) - length( $pattern ) + 1)
            . "\n";
    }
   ----
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

 
Stefano sei stato un siluro!
Se avrò un po' di tempo mi piacerebbe confrontare la velocità di pos
rispetto al vecchio index/substr...
Ma in fin dei conti se proprio avessi "fretta" dovrei impararmi C++ e
non è il caso :D
Grazie ancora, avanziun a birra


Newsgroup: it.comp.lang.perl
Titolo: aiutino per voi veloce !!

qualcuno è cosi gentile da spiegarmi dove potrei inserire un ciclo di while
o altro, per reoiterare questo script 180 volte ? ho provato ad inserire un
contattore con:
$conta = 0;
while ($conta < 180){
......
script.....
.....
$conta ++ ;
}
questo e' lo script:
#!/usr/bin/perl
require MIME::Base64;
use strict;
my $r = sprintf("%08d", int( (1000000000) * rand() ));
my $password = MIME::Base64::encode($r);
   $password =~ tr/A-Z/a-z/;
   chomp $password;
$password =~ s/[^a-z]//g; # remove other chars than alphabetic
$password =~ s/0/z/g;
$password =~ s/o/x/g;
$password =~ s/j/k/g;
$password =~ s/q/r/g;
$password =~ s/y/s/g;
$password = substr($password, 0, 6);
my @vocals = qw ( a e i u ) ;
my $rand_voc = $vocals[ int(rand() * 4) ];
substr($password, 1, 1) = $rand_voc if substr($password, 0, 1) !~ /[aeiou]/;
substr($password, 2, 1) = $rand_voc if substr($password, 1, 1) !~ /[aeiou]/;
substr($password, 3, 1) = $rand_voc if substr($password, 2, 1) !~ /[aeiou]/;
substr($password, 4, 1) = $rand_voc if substr($password, 3, 1) !~ /[aeiou]/;
$password .= sprintf("%02d", int(rand() * 99) + 1);
#####  print pw
print "password => '$password'\n";
fine !!!!!
ma non funziona.
grazie carlo

 qualcuno č cosi gentile da spiegarmi dove potrei inserire un ciclo di

Newsgroup: it.comp.lang.perl
Titolo: E' la prima volta....

Salve a tutti,
sto cercando di fare il primo programma il perl,
mi date una mano????
ho fatto un file 
pippo.pl
 contenete
#!/usr/bin/perl
print "ciao\n"
l'ho salvato nella dir cgi-bin sul mio sito (la dir mi è stata creata
dall'amministratore al momento dell'acquisto del sito), poi per provarlo
sono andato direttamente a 
www.pippo.com/cgi-bin/pippo.pl
Il contatore del sito, datomi dall'amministratore, è fatto in perl
(
counter.pl
), risiede in questa dir e funziona.
A questo punto il sistema mi restituisce un errore numero 2 di file o
directory non trovata, avete idea di cosa possa essere?
Lo stesso errore me lo da anche con programmi fatti da altri, quindi
l'errore non dovrebbe essere nel programma.
Grazie 1000 per l'aiuto.

 (
counter.pl
), risiede in questa dir e funziona.
I programmi perl non sono necessariamente CGI.
Il tuo programma lo provi semplicemente eseguendo
perl 
pippo.pl
Programmare in perl non c'entra nulla con le CGI e con il cercare di
eseguire programmi via Web.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 eseguire programmi via Web.
Aggiungerei ... se il programma e' su una macchina Linux/Unix devi eseguire chmod 755 in modo che il tuo programma diventi eseguibile.
--
----->KaBooM<-----
Luca Satolli
Work
URL: 
http://www.3it.it
e-mail: 
l.sa...@3it.it
Home
URL: 
http://village.flashnet.it
~/fn073993
e-mail: 
lr.sa...@flashnet.it
ICQ #: 33946022

 che il tuo programma diventi eseguibile.
Ed allora aggiungiamo anche che, magari, prima di provarlo un "perl -c
pippo.pl
" ti aiuta a vedere se ci sono errori... hehehehehe
Comunque, il 755 non e' "richiesto", perche' lo puoi sempre eseguire
tramite "perl 
pippo.pl
"... e, comunque, questo e' un concetto "unixiano" ed
e' anche legato alla prima riga che inserisci nel file (#!/usr/bin/perl),
cosa che non si fa su Windows...
	Alex
-- 
Alex Garbagnati, 
agarb...@removethis.decisive.com
Sr. Lead Engineer, Product Development
Decisive Technology Corporation
Mountain View, CA  94043

Newsgroup: it.comp.lang.perl
Titolo: Perl Tutorial , ci riprovo!

       | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

 passi con PERL ??
 Ne esistono parecchi.
 
http://www.perl.com/reference/
 
http://www.perl.com/reference/query.cgi?tutorials+index
 Su 
http://www.perl-it.org/
 ce n'è uno in italiano.
Max

> >passi con PERL ??

Newsgroup: it.comp.lang.perl
Titolo: foglio di calcolo on-line, con quale linguaggio?

avrei bisogno di capire quale è il MIGLIORE linguaggio da usare per eseguire
un foglio di calcolo on line,
dove un utente possa inserire alcuni valori (...e su questi si possono
eseguire in automatico operazioni (del tipo + - x /)) dopodiché questi
risultati vengano moltiplicati per altri valori fissi....
il foglio una volta compilato dovrebbe venire spedito in versione testo in
e-mail completo di tutti i conti effettuati
java javascript perl....... quale?
ps. qual'è invece il linguaggio più facile?
ps. ho sentito parlare molto bene di homesite qualcuno mi sa dire cosa fa di
più rispetto gli altri editor html?
grazie mille per l'aiuto andrea

 grazie mille per l'aiuto andrea
  Prego.

Newsgroup: it.comp.lang.perl
Titolo: AIUTO - SITO GRATUITO CHE SUPPORTA CGI IN PERL





 




AIUTO - SITO GRATUITO CHE SUPPORTA CGI IN PERL 






AIUTO - cerco SITI GRATUITI CHE SUPPORTANO CGI IN PERL 



dove mettere il mio sito .Per favore rispondetemi a 
rus...@inwind.it



 
  wrote in message 006e01c02ee2$c464c980$9b88623e@rusmar...


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

Scusatemi se č la centesima volta che vi faranno queste domande, ma gradirei
delle risposte un po' piů specifiche alle mie esigenze:
1.Da quanto ho capito Perl lavora bene su *nix. Per i db, quali mi conviene
usare e su che macchine girano?
2.Per la gestione di grandi db (anche dell'ordine 90000righe x 18colonne,
cioč circa 60MB in excel), mi conviene usare sempre Perl, oppure conviene
passare a Php o ColdFusion?
Grazie a chi risponde
Andrea

passare a Php o ColdFusion?
L'efficienza del database non dipende dal linguaggio utilizzato, bensi` da
database server. Se non hai bisogno di trigger e transazioni mySQL potrebbe
essere una buona scelta.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> FAQ di it.comp.lang.perl: 
http://www.borders.it/perl/faq/
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!
Newsgroup: it.comp.lang.perl
Titolo: Script... spazzino

ciao!
sto cercando di "assemblare" un qualcosa che si comporti da "spazzino" su
un sistema di deposito file.
Praticamente vorrei fare in modo che lo script in questione esegua
quotidianamente la funzione di cancellazione dei file che hanno superato
il termine di permanenza sul sistema.
Ad ogni file depositato č associato automaticamente un secondo file nel
cui interno č indicata in chiaro la data massima di permanenza. Lo script
dovrebbe scandagliare, a partire da una data directory, le sottodirectory
presenti, leggere la data presente nel file di scadenza e, se la data
letta corrisponde alla data odierna, effettuarne la cancellazione e
passare al file successivo per ricominciare...
Non so se sono stato chiaro... spero di sě. ;-)
Avete qualche idea? la cosa che mi "frena" un po' č la realizzazione della
scansione delle directory... ;-)
grazie per eventuali consigli
Mauro
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 scansione delle directory... ;-)
Prova a vedere la documentazione di File::Find::Rule.
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

 Prova a vedere la documentazione di File::Find::Rule.
Grazie per il suggerimento!
Per ora sono riuscito a fare una "bozza" di quello che potrebbe essere lo
script finale senza usare il modulo da te suggerito ma il 'find' dello
unix...
Eccolo:
----[cut]-----------------
#!/usr/bin/perl
# --------------------------------
#      PROGRAMMA SPAZZINO 
# --------------------------------
use Time::Local;
# ricavo il TimeStamp attuale...
$today = time();
# effettuo la ricerca dei file con estensione '.exp'...
@files = `find /home/prova/files -name '*.exp'`;
foreach $singolo(@files) {
   chomp $singolo;
   my $scadenza = `cat $singolo`;
   chomp $scadenza;
   # faccio lo split della data letta (es. "20/04/2004")
   ($sgiorno, $smese, $sanno) = split /\//, $scadenza;
   # genero il TimeStamp relativo alla scadenza letta nel file .exp
   $stime = timelocal(0, 0, 0, $sgiorno, $smese-1, $sanno-1900);
 
   print "il file [$singolo] scade il: $scadenza\n";
   # elimino l'estensione .exp dal nome del file 
   $posizione = rindex($singolo,".") + 1;
   $file = substr($singolo, 0, $posizione-1);
   if($stime <= $today) {
	print "il file [$file] è scaduto e sarà cancellato\n";
	unlink $file;       # cancello il file "originale"
        unlink $singolo;    # cancello anche il file .exp
   }
}
print "FINE SCRIPT - Pulizia effettuata!\n";
exit 0;
----[cut]---------------------------------
probabilmente mi si obietterà l'uso del 'cat' per leggere la data contenuta
nel file '.exp'... ma visto che funge lo stesso... ;-)))
Che ne pensate? obiezioni e/o suggerimenti? ;)))
ciao


Maurino ha scritto:

Come si dice... se funzica va bene :o)
Newsgroup: it.comp.lang.perl
Titolo: IDE per Linux (Slackware)

Esiste un programma che fornisca un'interfaccia
(magari sotto X) utente per lo sviluppo in Perl?
Sarebbe ideale se consentisse anche di richiamare
il manuale di Perl per consultare sintassi, funzioni
e quant'altro.
No flames prego, la mia e' solo ignoranza!
Grazie.


Io utilizzo l'emacs (XEmacs per la precisione, lo trovo piu' bello del GNU
Emacs in X e poi ha il supporto per il Python che qualche volta uso).
Per leggere le manpages del Perl puoi utilizzare il comando apposito.
Ricordati di attivare il font-lock-mode per avere la sintassi evidenziata
con colori differenti.
In alternativa puoi utilizzare anche il JED.
---
Roberto Lupi
lu...@ascu.unian.it
It is against the law for a monster to enter the corporate limits of
Urbana, Illinois.

 Grazie.
Beh anche se non so come sia perche' non lo uso, prova a installare
o vedere se e' gia installato xman sulla tua macchina.
In questo modod avresti un help un tantino + carino (cosi' mi dicono
coloro che usnao xman al posto di man..)
Un IDE per perl sotto X non so se esista....
Esiste una versione tipo ide della borland realizzata in ambiente
dos (ma gestisce codice perl solo fin alla versione 4 (non so se
sia stato fatto il porting per la 5)
Leggende virtuali narrano di editor multilinguaggio che dovrebbero
anche andare bene per Perl.
Io uso tranquillamente VIM (la versione di vi improved), ma molti
si trovano bene usando la versione di emacs per X.
Se qualcuno ha suggerimenti migliori li posti pure...
				Saluti
					Davide Giansoldati

lu...@ascu.unian.it
 wrote:
 >Per leggere le manpages del Perl puoi utilizzare il comando apposito.
Molto meglio convertire tutto in html.
Io uso elvis 2 (a colori) in una console e lancio lo script in un'altra,
con lynx e il manuale nella terza.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

Newsgroup: it.comp.lang.perl
Titolo: RE per check email

Ciao,
lo so che se ne è parlato approfonditamente non da molto ma, purtroppo, ho
perso tutta la mail !!!
Chi mi riposterebbe una bella regular expr. per checkare che un indirizzo
email sia sintatticamente valido??
Grazieee!
Salva

email sia sintatticamente valido??
La versione completa la trovi qui:
http://www.perl.com/CPAN/authors/Tom_Christiansen/scripts/ckaddr.gz
E` una regexp molto complessa ed interessante. ;) Se ti accontenti di
una cosa che funziona "solo" nel 99.99% dei casi puoi utilizzare:
^([\w\-\+\.]+)@([\w\-\+\.]+)\.([\w\-\+\.]+)$/
	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
slrn8iab...@karma.italpro.to...

Newsgroup: it.comp.lang.perl
Titolo: Qualcuno mi aiuta ad interpretare questo

Qualcuno mi aiuta ad interpretare questo:
fjoin("$DDIR/members/$FRM{'un_rq'}.dat", $FRM{'st_rq'}, $FRM{'su_rq'},
$FRM{'sd_rq'}, $FRM{'em_rq'}, $FRM{'bu'}, crypt($FRM{'pw_rq'}, getsalt()),
$up);
fwrite("$DDIR/members/$FRM{'un_rq'}.cnt", '0|0');
--
Ciao
FAIEL
www.fulleffect.it
 -Il portale italiano del writing-

 
Non c'è molto da interpretare. Sono due chiamate a due funzioni, definite
da qualche parte nel codice (non si tratta di funzioni predefinite).
crypt(), invece, è una funzione built-in (v. perldoc -f crypt).
Max

 > getsalt()), $up);


 
Ripeto: non si tratta di funzioni built-in del Perl, ma di funzioni
definite da qualche parte nel codice che stai studiando: nel file sorgente
principale o in qualche modulo che viene incorporato.
Max

Newsgroup: it.comp.lang.perl
Titolo: Recensitemi il sito

Non è ancora del tutto completo, ma è ormai quasi finito.
Fateci un giro a questa topsites e poi ditemene che ve ne pare!
www.sitivip.f2s.com

Magari correggi "Che cose sitivip?" con cos'è.....metti un titolo al
documento HTML, segna untitled.......sinceramente non ho capito di cosa
parli.
Ciao
Riccardo
Newsgroup: it.comp.lang.perl
Titolo: regex: un boundary personalizzato

Salve a tutti,
se dovessi identificare delle parole intere (di caratteri \w) userei
\b per trovare i boundary di parola (una cosa tipo \b\w+\b ). Ma le
mie "parole" sono composte non solo di caratteri \w, ma anche da
parentesi quadre (quindi [0-9a-zA-Z_\[\]] ): come faccio ad avere un
comando equivalente a \b in questo caso, in modo da poter identificare
in una stringa questo tipo di "parole"?
Grazie,
Pleg

 comando equivalente a \b in questo caso, in modo da poter identificare
http://groups.google.it/group/it.comp.lang.perl/browse_thread/thread/cf6917a5b0893c56/63b3663dbd5be24e?hl=it&lnk=gst&q=%24slash_w#
ecco la risposta del mitico Max M. ad una mia analoga domanda di quasi 7 
anni fa

 anni fa
Ommiodiochecasinoinenarrabile!
Grazie mille, dovrebbe fare proprio al caso mio (se riesco a
decifrarlo :-)
... 7 anni? Ecco perche' anche con google group search non ero
riuscito a trovarlo! :-)
Pleg

, scriveva:

E se uno volesse definirsi un locale personalizzato?
Ciao.

 anni fa
Ok, ho smanettato e ho circa capito, ma non funziona se le parole da
identificare sono a inizio o fine stringa (mi par ragionevole, prima
della prima lettera della prima parola non c'e' nessun carattere "non
parola", e quindi fallisce il test...), qualche idea su come far
riconoscere anche la prima e l'ultima parola?
Grazie,
Pleg

 riconoscere anche la prima e l'ultima parola?
forse, cose tipo
/$slash_b($slash_w+)$slash_b|^($slash_w+)$slash_b|$slash_b($slash_w+)$/

 E se uno volesse definirsi un locale personalizzato?
Stavo pensando alla stessa cosa. Basterebbe duplicare un locale esistente e
modificare la definizione di CTYPE aggiungendo le parentesi quadre alla
classe 'alpha'.
Max
PS: Andrea, grazie del "mitico". Ci ho fatto un post autocelebrativo nel mio
blog: 
http://maximalist.tumblr.com/post/25697887
 :)


Non so se sia giusto, ma ho provato ad aggiungere direttamente nella
mia re dichiarata con qr// la possibilita' di essere a inizio o fine
stringa e mi sembra funzioni:
my $constw = qr/[0-9a-zA-Z_\[\]]/;
my $constW = qr/[^0-9a-zA-Z_\[\]]/;
e poi
my $constb = qr/(?:(?<=^)(?=$constw)|(?<=$constW)(?=$constw)|(?<=
$constw)(?=$constW)|(?<=$constw)(?=$))/;
al posto di
my $constb = qr/(?:(?<=$constW)(?=$constw)|(?<=$constw)(?=$constW))/;
Pleg

classe 'alpha'.
Cioč, in dettaglio? o dove si trova la documentazione al riguardo (POSIX?)?
Ciao.

 (POSIX?)?
Sě, POSIX. Non ne so molto, perň. La documentazione la puoi trovare nelle
manpages: locale(7), setlocale(3), localedef(1).
Max
Newsgroup: it.comp.lang.perl
Titolo: Quale distribuzione scegliere per iniziare?

Vorrei iniziare con il Perl, che userň per trattare prevalentemente file
ASCII
con un modulo di integrazione db (sotto NT o 98, ho 2 pc)
Quale distribuzione mi consigliate / č piů diffusa (da cpan l'elenco che
segue)
1 ActivePerl (Perl for Win32, Perl for ISAPI, PerlScript, Perl Package
Manager)
2 IndigoPerl (Perl for Win32, integrated Apache webserver, GUI Package
Manager)
3 SiePerl for Win32 by Siemens, contains several modules
4 Prebuilt Perls by Rich Megginson, a special installer is used.
Vorrei partire da quella piů diffusa in modo da scambiare consigli /
esperienze.
Ci sono altre distribuzioni in rete? e dove?
Grazie
Maurizio

esperienze.
Il piu` diffuso e` sicuramente ActivePerl, gli altri non li ho mai
provati a dire il vero...
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> FAQ di it.comp.lang.perl: 
http://www.borders.it/perl/faq/
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

Newsgroup: it.comp.lang.perl
Titolo: Consiglio su metodologia

scarico dei file zip tramite url, (ZipInputStream)
li metto  nel Buffer (BufferedReader)
poi li leggo una riga alla volta...
Ora vorrei tenere in memoria i file scaricati per riutilizzarli...
Tenendo  conto dei miei limiti (java 1.1) e del fatto che non so quanti ne
verranno  scaricati cosa mi consigliate di fare?... Immagino di dover usare
un vector... ma come?... Cosa mi conviene memorizzare?
Grazie
Oxy

Scusatemi ho bagliato invio  questo era per NG Java... :-(
Newsgroup: it.comp.lang.perl
Titolo: [Solo per veri DURI] Dannati check delle form!!!!

Salve a tutti,
	sto realizzando dei controlli in PERL sui campi di un form, ma
ho dei problemi a settare che il campo NON DEVE ESSERE VUOTO,
altrimenti devi dare errore.
come fare?
per il momento ho realizzato questo, e dovrei integrare sulla stessa
linea, il controllo che dia errore se il campo risulta vuoto.
$variabile !~/[^0-9a-zA-Z\-\/s]/||funzione
Sapete come fare?
Grazie mille a chi mi risponderà

 $variabile !~/[^0-9a-zA-Z\-\/s]/||funzione
Perche' bisogna fare le cose complicate o illeggibili non lo so.
Se vuoi essere sicuro che il campo non sia vuoto, elimina gli spazi
all'inizio e alla fine e poi controlla quello che ti e' rimasto!
$variabile =~ s/^\s+//;
$variabile =~ s/\s+$//;
unless ($variabile)
 {
   print "Errore: il campo e' vuoto!\n";
 }
A seconda dell'uso che ne devi fare, puoi poi controllare la presenza di
caratteri strani e/o eliminarli.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 
Ammetto subito che mi posso sbagliare, ma non è più semplice:
if ($variabile eq "") {
	&incacchiati;
} else {
	&sii_felice;
}
o mi sbaglio?
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

 o mi sbaglio?
No. TMTOWTDI :-)


 No. TMTOWTDI :-)
... questo!
Ciao


 }
questo potevo farlo venissimo, ma ho postato qui una domanda specifica
"dovrei integrare sulla stessa linea, il controllo che dia errore se
il campo risulta vuoto."
altrimenti non era per veri duri questa domanda non trovate? ^____^

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

//--></script>
già ma se qualcuno disabilità i controlli Javascript?
e cmq di quello me ne sono già okkupato... ^__^

 altrimenti non era per veri duri questa domanda non trovate? ^____^
perchč sulla stessa linea? quei 10 byte in piů degli a-capo e della (mpfff...)
routine di gestione errori č troppo per te? o sei rimaso deluso perchč pensavi
che in perl qualsiasi funzione si potesse ridurre ad una linea sola? piů che da
duri č da teste dure (posso sempre sbagliarmi, intendiamoci)

 (mpfff...) routine di gestione errori č troppo per te? o sei rimaso
magari deve eseguirla con `perl -e ...` da uno script bash ;)


che in perl qualsiasi funzione si potesse ridurre ad una linea sola? più che da
Macche' qualsiasi funzione, qualsiasi programma puo` e deve stare in una
riga in Perl. ;-)
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 il campo risulta vuoto."
print $campo =~ /^\s*$/ ? 'errore' : 'vabbuono';
Se poi vuoi un errore "vero" metti 1/0 al posto di 'errore' :))


 Se poi vuoi un errore "vero" metti 1/0 al posto di 'errore' :))
"Runtime error: divide by zero" è alquanto antiestetico
Newsgroup: it.comp.lang.perl
Titolo: Lanciare script perl da WEB

E fino qui ci siamo........
Ma se lo script perl si trova sulla macchina A ed il server web sulla
macchina B?
Come fareste?
Ringrazio anticipatamente coloro che mi risponderanno.
NB Non posso montare filesystem ne dell'una ne nell'altra.
--------------------------------
Inviato via 
http://usenet.libero.it

 Come fareste?
Un modo è quello di mettere lo script da eseguire sotto CGI (e l'utente 
Apache con i dovuti permessi) e poi chiamare tale CGI via altro CGI con LWP
perldoc LWP

Newsgroup: it.comp.lang.perl
Titolo: Problema con un comando

Ciao a tutti
Sapete dirmi qual'č il comando perl per far aprire al programma un file di
testo....dal quale legge i dati e poi visto che sto codando un
criptatore....li cripta?
Grazie
 Mademan

 Grazie
praticamente vuoi un programma!
leggiti:
    perldoc -f open
    perldoc -f crypt
dd

Newsgroup: it.comp.lang.perl
Titolo: Info WIN::GUI

scaricato e installato semplicemente con un "installa.bat"
provato il 
test.pl
 ...funziona ed è possibile compilarlo con perl2.exe
Solo non è quello che cercavo,  appare come un  vecchio programma dos in
finestra
.. io non voglio la finestra tipo dos... ma tipo win... provero' il TK!
Ciao


Credo che tu ti stia sbagliando : Win32::GUI da
http://sourceforge.net/projects/perl-win32-gui
ver 0.0.558
Beh installa.bat non fa parte del pacchetto !!! Inoltre ho spulciato la
documentazione e ti assicuro che e' una interfaccia per GDI di Windows e
crei finestre windows e non dos.
Non so se il prodotto sia valido o no, ma di certo apre finestre windows !
Non so cosa tu abbia scaricato.
Alex

 Ciao
Ciao, Ezio
PS: Ma se vuoi usare Tk, no-problem, OK? :-)

 ...ora  scarico WinCox 1.1

Scarica la versione utlima, gia' non e' completa quella ?!?
Alex

con ppm scarichi solo la versione che hai detto tu, peccato devi farlo a
mano !!!

scaricato la 55.8, provati alcuni esempi... si trasformano pure in
eseguibili!!!!!!
GRAZIE!!! GRAZIE!!! GRAZIE!!! GRAZIE!!! GRAZIE!!! GRAZIE!!!

 PS: Ma se vuoi usare Tk, no-problem, OK? :-)
...  provero'... ma a prima vista non "sembra" all'altezza dell'altro.
Grazie ciao

Newsgroup: it.comp.lang.perl
Titolo: Librerie grafiche per il PERL?

Salve a tutti,
ho bisogno di creare/manipolare immagini per il web (jpg e gif/png)
attraverso il perl, e quindi mi sono messo a cercare in giro quali sono
le librerie che mi servono.
**SE** ho ben capito, mi ci vogliono:
1) 
gd.pm
 - che è l'interfaccia specifica del perl per la libreria
grafica gd (utilizzabile con più linguaggi);
2) gd library - la libreria di cui sopra, che a sua volta necessita di:
3) libpng;
4) zlib.
E' giusto tutto questo, o mi sto incasinando? (mi è venuto questo
dubbio)
Ci sono delle alternative più semplici? Voi cosa usate?
Grazie
Gabriele

 
GD ( con GD::Text e GD::Graph )
Max
Newsgroup: it.comp.lang.perl
Titolo: Selezione

Io devo stamapre una riga cioč se uno scrive "ciao" mi deve scrivere tutte
le righe con scritto ciao ma togliendo il pezzo prima della virgola.
ESEMPIO
ciao da davide,
http://www.davide.it/
ciao da edoardo,
http://www.edo.it/
ciao da pippo,
http://www.pippo.it/
lo script deve cercare nel file di testo la parola datagli e poi stampare
quella senza le parole che precedono la virgola esempio:
Davide
Risulterą
htto://
www.davide.it
Grazie

htto://
www.davide.it
Se ho capito bene il tuo delirio per me devi:
- aprire il file
- parserarlo linea a linea
- se una linea contiene la chiave di ricerca (=~/$chiave/) 
- tiri fuori la parte dopo la , con una bella regex
- e la stampi
- chiudere il file
-- 
Saluti,
Giancarlo

Davide Risulterą htto://
www.davide.it
while (<MIOFILE>) {
  ($nome, $url) = split /,/;
  if ($nome =~ /davide/) {
    print "$url\n";
  }
}
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

htto://
www.davide.it
Se ho capito bene il tuo delirio per me devi:
