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

Buon giorno,
Ho un file con dei record del tipo......
http://www.sito.it/qualcosa/altro/nonso.html
http://www.sito.it/qualcosa/altro/nonso.html
...
Vorrei tagliare la parte "/qualcosa/altro/nonso.html"
Per poi fare delle statistiche mie!!!
Come posso fare?
Sapere darmi un aiuto?
Ciao e Grazie
NK

 Vorrei tagliare la parte "/qualcosa/altro/nonso.html"
Se lo scomponi con split, il pezzo che cerchi č il terzo:
-----------------------------------------------
$a = '
http://www.sito.it/qualcosa/altro/nonso.html
';
@pezzi = split(/\//,$a);
print $pezzi[2];                # dŕ 
www.sito.it
---------------------------------------------------------------------
Saluti
Arturo


Newsgroup: it.comp.lang.perl
Titolo: caratteri speciali in lettura file

Ciao a tutti,
ho un piccolo problema in uno script che ho fatto.
Questo script processa un file HTML e crea un nuovo file_copia,
ma quando incontra esperssioni del tipo:
<a href="url"><img src="image.png" alt="mia immagine"></a>
mi restituisce
<a href="url"><img src="image.png" alt="mia immagine"a>
non succede la stessa cosa però se metto uno spazio tra i "><" o prima di
">"
é possibile ovviare al problema??
dimenticavo la lettura avviene in questo modo:
open(FILE,"< ".$filehtml) || die "Errore 1!\n\n";
while ($line = <FILE>) {
        ...
        sequenza istruzioni
        ...
}
close(FILE)
Grazie per l'aiuto che vorrete darmi
Rocks

 ">" é possibile ovviare al problema??
Direi che e` possibile.
Renditi pero` conto del fatto che quello che ci stai dicendo si
potrebbe riassumere in questo modo: "Prendo un file HTML, gli 
faccio delle cose ma il tutto non funziona come voglio. Come
posso fare?". Con queste poche informazioni l'unica cosa che
si puo` fare e` tirare ad indovinare.
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org/blog
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it

close(FILE)
Sostituisci a:
        ...
        sequenza istruzioni
        ...
l'istruzione:
        print $line;
e dicci che cosa salta fuori.
Ciao.

 
ALT fermi tutti,
hai perfettamente ragione.
Vi autorizzo in modo amichevole ad insultarmi :D
Ora sembra risolto:
nella sequanza delle istruzioni c'era questo
$line =~ s/\"..//\"/g;
di solito si usa per i link relativi di immagini
e non
$line =~ s/\"\.\.\//\"/g;
Vi chiedo scusa per questo inutile post,
ma era due giorni che cercavo il bug,
allora ho pensato che fosse dovuto ad una interpretazione errata dello
script
Rocks
Newsgroup: it.comp.lang.perl
Titolo: data e ora per NT

Ciao a tutti,
io programmo ed uso unix ma purtroppo
devo fare un sito
che gira su NT,
devo fare un guestbook e dovrei mettere la data e l'ora del post.
sapete che comando devo usare ?
ciao Grazie


Puoi usare localtime(time) come nel codice seguente:
@GSETT = qw(Dom Lun Mar Mer Gio Ven Sab);
($s,$m,$h,$gg,$mm,$aa,$gs,$ga,$ol) = localtime(time);
printf ("HMS: %02d:%02d:%02d\n",$h,$m,$s);
++$mm;   # mesi sono numerati da 0 a 11
++$ga;   # giorni dell'anno numerati da 0
$aaaa = $aa+1900; # anno di 2 cifre 00=1900  2001 ritornato come 101
printf ("%-3s.  %02d/%02d/%04d - ",$GSETT[$gs],$gg,$mm,$aaaa);
printf ("%do giorno dell'anno\n",$ga);
printf ("ora legale %d\n",$ol); # valore booleano
su Win98 funziona, penso che lo stesso valga per NT.
HTH gfb

Newsgroup: it.comp.lang.perl
Titolo: @INC

Ciao a tutti,
ho la variabile @INC che punta a directory non più esistenti. Dove viene
memorizzata tale variabile in modo che possa resettarla?
Grazie
    Nameci

Prova a settera la variabile di ambiente PERL5LIB con i nuovi path. E
lancia l'inteprete perl da una shell con quella variabile settata.
PS: Dovrebbe funzionare sia su windoz che su *nix.
Saluti.

...

Grazie per la risposta Mirko, ma ... la variabile d'ambiente PERL5LIB è
correttamente impostata.
Cmq mi trovo su piattaforma Linux, se può fare la differenza.
Grazie ancora

Newsgroup: it.comp.lang.perl
Titolo: Cercasi a Milano Programmatore per modifica su software web in Perl

Salve a tutti, sto cercando a Milano un programmatore Perl che sia ingrado 
di modificare un software di per se gia completo, ma a cui vanno aggiunte e 
rimosse funzioni a seconda delle indicazioni che verranno date da me.
Requisiti richiesti : Conoscenza Perl e cgi HTML
Lasciate un email verrete contattati al piu presto.
Cordiali Saluti

 e rimosse funzioni a seconda delle indicazioni che verranno date da me.
Ciao dott.
nessun problema per PERL e CGI che utilizzo da quasi 10 anni, sviluppando, 
tra le altre cose, interfacce web per alcuni software gestionali (Gamma 
Teamsystem e Passepartout). L'unico punto dolente č che non mi trovo a 
Milano, bensě a Napoli. Se ritieni opportuno, contattami al mio indirizzo di 
posta con le specifiche di quanto ti occorre e delle condizioni iniziali da 
cui dovrň partire, potremo cosě verificare eventuali convergenze.
Saluti :)
Anak
softwareE=mc^
2...@netlogica.it
 (eliminare l'eq per risp in prv)

Newsgroup: it.comp.lang.perl
Titolo: Dove Manuale-Help sul PERL

Qualcuno mi sa indicare un sito dove poter scaricare un manuale, o HELP
(formatp CHM) sul PERL.
Per poter effettuare una ricerca veloce.
Grazie

Wallace wrote:

perldoc.com
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************

Newsgroup: it.comp.lang.perl
Titolo: Chat in java

Visto che le chat in cgi sono scadenti in confronto in quelle in java ne
conoscete qualcuna con questo linguaggio? magari con supporto cgi, per
registrarsi!

 wrote in message 9h5kba$ifc$1...@nreadA.inwind.it...

Newsgroup: it.comp.lang.perl
Titolo: Cambiare i blanck con '+'

Salve
Mi sapreste dire come si fa, in a variabile string ($)  a cambiare i
blanck ('  ') con i piu' ('+'), ma non in tutta la stringa, solo nelle
parti comprese tra '<A HREF=' e '>'.
Tutti i manuali che ho consultato parlano di comandi che fanno
sostituzioni in tutta la stringa.
Grazie
ze...@unive.it

parti comprese tra '<A HREF=' e '>'.
I blank penso che tu li possa trovare solo nella parte della URL che
riguarda il passaggio di parametri, se ho ben capito tu vorresti modificare
una cosa del tipo
<A HREF='www.nonso.boh?primo=ba be bi&secondo=fa fe fi'>
in
<A HREF='www.nonso.boh?primo=ba+be+bi&secondo=fa+fe+fi'>
Se e' questo il tuo problema potresti splittare la stringa basandoti sul ? e
a questo punto operi una sostituzione sulla nuova stringa, dopodiche'
ricomponi la stringa originale:
$old_str = '<A HREF=\'www.nonso.boh\?primo=ba be bi&secondo=fa fe fi\'>';
@div_str = split /\?/, $old_str;
$div_str[1] =~ s/\s/\+/g;
$new_str = $div_str[0] . $div_str[1];
ciao
Mario

Newsgroup: it.comp.lang.perl
Titolo: Aprire file su altri server

Ho dei file su diversi server che dovrei aprire e aggiornare tutti allo
stesso modo. Immagino che non posso farlo con un solo script però vorrei che
dopo che ne ho fatto uno poter chiamare degli script dagli altri server che
aprano il file già modificato (basta in sola lettura) per poterlo copiare.
Con open (FILE,"< http://~~~/file) non riesce. Ringrazio in anticipo chi
avesse una soluzione.
Grazie a tutti
                                      Alessio

 Con open (FILE,"< http://~~~/file) non riesce.
Dai post precedenti sembra che il modulo LWP faccia al tuo caso, ma non so
altro, non l'ho mai usato. Altrimenti fatti un giro su CPAN (
http://www.cpan.org
??).
Ciao
Marcello

 ??).
...Altrimenti perlfaq9:How do I fetch an HTML file?
 
riCiao
Marcello

 wrote in message
3A1BF774...@altavista.net...


Newsgroup: it.comp.lang.perl
Titolo: Utilizzo del file di testo

Ho creato uno script che crea delle listbox e aggiunge a secondo della list
i vari oggetti.
ADESSO
Il programma esegue queste operazioni
open (leggi,"C:/http/public/at-listino.txt") || do { print "<b>Impossibile
aprire $file: $!</b>\n"; exit;};
print "<p><select size=1 name=MONITOR>\n <option
selected>Scegli</option>\n";
while (<leggi>) { ($prodotto,$genere,$costo)=split /,/;
 if ($genere eq 'MONITOR') {
    print "<option> $prodotto </option>\n";
close FILE;
}
IN FUTURO
Invece vorrei fare in modo che il prog apra il file di testo e a seconda del
genere crea la sua relativa listbox!!!
Invece che dirgli di stamapre il monitor, i mouse ed etc
Grazie in anticipo!!!



Leggi il file PRIMA di iniziare a scrivere il form, riempi una serie di hash
diversi  (%monitor, %mouse, ecc. ecc.) e poi fai una listbox per ogni
genere, no?
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: Cancellazione sottostringhe

Come faccio ad eliminare i primi 10 caratteri e gli ultimi 11
caratteri da una stringa?
Grazie
Massimiliano

 caratteri da una stringa?
Usi substr per sostituire pezzi della stringa con una stringa vuota
substr($stringa,0,10) = "";  # Elimina i primi 10 caratteri
substr($stringa,-11) = ""; # Elimina gli ultimi 11 caratteri
Oppure ti spari in un piede :) e usi una espressione regolare.
 $stringa =~ s/^(.){10}//;
 $stringa =~ s/(.){11}$//;
Pero' le RE non funzionano se la stringa ha meno di 10 o 11 caratteri.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Newsgroup: it.comp.lang.perl
Titolo: Chiamare un URL da un CGI

Salve, dovrei chiamare un URL al termine di un CGI perl.
Come faccio??
Grazie mille,
Matteo

 Come faccio??
 
http://search.cpan.org/search?dist=libwww-perl

 ha scritto nel messaggio
news:Pine.LNX.4.10.101042...@c64.comm2000.it...

Newsgroup: it.comp.lang.perl
Titolo: Scusate l'intrusione...è per un file pdf

Ciao
devo mettere on line un file pdf..( ma dico..) che però non sia visibile
solo con Acrobat Reader ma incorporato in un documento html ( senza
convertirlo). Mi hanno suggerito con <EMBED> e <OBJECT>
Qualcuno ha un esempio on line da copiare ??
Mi darebbe il codice??
Grazie Cristina

convertirlo). Mi hanno suggerito con <EMBED> e <OBJECT>
Questo newsgroup e` sul Perl. ;-)
Non ricordo bene la sintassi per fare questo lavoro, pero` tieni
presente che funzionera` solo nei browser in cui e` installato il
plugin per Acrobat Reader. Su quelli che non ce l'hanno, nulla da
fare. ;)
	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!

Newsgroup: it.comp.lang.perl
Titolo: Comportamento di CGI

Una pagina HTML richiama un file.cgi 
e quest' ultimo richiama un altro programma,
diciamo ./pat/per/
pippo.pl
Se eseguo da shell perl file.cgi 
Il programma esegue anche 
pippo.pl
come mi sarei aspettato.
Ma se eseguo nel browser il programma html, 
il file.cgi viene eseguito senza però eseguire
anche 
pippo.pl
    (?) boh!
Ho dato chmod 777 a tutti i file in questione ma 
pippo.pl
 non viene eseguito.
Nonostante tutti i miei tentativi per risolvere questa questione 
Non sono arrivato al risultato sperato, cosa sto dimenticando?
Grazie 
Giuseppe

 diciamo ./pat/per/
pippo.pl
Prova a sostituire il percorso "relativo" (quindi qualsiasi ./ ../ ecc...) 
con il percorso assoluto ( /home/sito/ecc...).
Newsgroup: it.comp.lang.perl
Titolo: Come si usa print "Location: ..." ??

Io sapevo che per mandare l'utente a un certo URL era sufficiente
scrivere:
print "Location: 
http://www.yahoo.com
";
Ma non mi funziona! Scrive seplicemente la stringa cosi' com'e'!
Com'e' mai?
Grazie.

 
print "Location: 
http://www.theonion.com
\n\n";
Nota i due \n.
Location: deve essere *l'unica cosa che invii* al browser.
Se vuoi caricare una pagina, *poi* dopo qualche secondo far caricare
un'altra pagina, devi usare i tag <META...>
Cheers,
	Alessandro

 


 wrote:
: Io sapevo che per mandare l'utente a un certo URL era sufficiente
: scrivere:
: print "Location: 
http://www.yahoo.com
";
: Ma non mi funziona! Scrive seplicemente la stringa cosi' com'e'!
: Com'e' mai?
...e chi puo` dirlo, se non ci posti il tuo programma?
Ad occhio direi che tu non stia spedendo la stringa negli header
HTTP, ma come contenuto della comunicazione, cioe` dopo aver
stampato:
print "Content-Type: text/html\r\n\r\n";
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
Newsgroup: it.comp.lang.perl
Titolo: creazione files excel

Ho un problema di questo tipo: in una procedura in perl ottengo dei dati
da un database access tramite una query SQL, una volta ottenuti dovrei
creare un file excel che deve essere salvato dall'utente sulla propria
macchina. Ho cercato un po' in giro ma non ho trovato niente, qualcuno
ha qualche suggerimento?
Grazie in anticipo per qualsiasi risposta.
Paolo
--
Posted from 
ns.alcanet.it
 [194.243.74.35]
via Mailgate.ORG Server - 
http://www.mailgate.org

 ha qualche suggerimento?
Secondo me, l'unica cosa ragionevolmente possibile e' la creazione di file
.CSV.
Quasi sicuramente c'e' qualche modo con i moduli OLE disponibili su Win32 
per manipolare file Excel (ma non penso per crearli), ma non penso proprio
che si riesca a fare quello che cerchi di fare tu.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

.CSV.
Potrebbe anche provare con il formato SYLK che ti permette di scrivere
file ascii usando le coordinate che poi excel userà. In certi casi può
essere più facilmente gestibile del csv.
-- 
giu...@pobox.com

----------------------------------------------------------------------

Grazie per i suggerimenti, sapete dove posso trovare  qualche esempio?




Grazie per i suggerimenti, sapete dove posso trovare  qualche esempio?
Per SYLK:
apri una cartella excel, scrivi, salva con formato sylk (*.slk) e apri
con notepad. excel usa molte cose non strettamente necessarie.
Esempio
=== salva come prova.slk e apri in excel:
ID;PWXL
C;Y1;X1;K"col1rig1"
C;X2;K"col2rig1"
C;X3;K"col3rig1"
C;X4;K"col4rig1"
C;Y2;X1;K"col1rig2"
C;X2;K"col2rig2"
C;X3;K"col3rig2"
C;X4;K"col4rig2"
E
===
SYLK conviene solo se hai dati che ricevi/leggi "sparsi", se ti arrivano
in ordine sparso tale che dovresti prima riordinarli in memoria per poi
passarli csv. Con sylk li puoi scrivere come arrivano, in qualsiasi
ordine, posto che tieni conto di coordinate.
L'esempio di sopra puņ essere riscritto
==ID;PWXL
C;Y2;X1;K"col1rig2"
C;Y1;X1;K"col1rig1"
C;Y2;X3;K"col3rig2"
C;Y2;X4;K"col4rig2"
C;Y1;X2;K"col2rig1"
C;Y1;X3;K"col3rig1"
C;Y1;X4;K"col4rig1"
C;Y2;X2;K"col2rig2"
E
==
-- 
giu...@pobox.com




 sono troppo ottimista?
Si? :)
Ma se anche fosse possibile, ti immagini la complicazione? Il programma si 
collega all'ODBC (che tra l'altro funziona decentemente solo se stai lavorando
direttamente su windows), che tramite query SQL riempie la tabella Excel,
che alla fine di tutto il programma impacchetta e spedisce all'utente?
Francamente CSV o SYK (che sono formati ASCII, semplici da manipolare e
comprensibili ad Excel) mi sembrano la soluzione ragionevole. 
Qualsiasi altra cosa rishia di essere overkill.


SYLK sembra comodo, anche per creare le intestazioni delle colonne (il
che non guasta anzi).
Grazie

Newsgroup: it.comp.lang.perl
Titolo: cartella local/bin

Salve a tutti...
mi servirebbe sapere se si puo' ottenere uno spazio web gratuito con la
possibilità di accedere a cartela tipo local/bin o usr/local/bin.
Ne avrei bisogno per fare delle prove prima di registrare eventualmente un
dominio.
Vi ringrazio.



Sei OT, dal momento che NIENTE nel tuo messaggio ha esplicitamente a che
fare con Perl.
Prova in un newsgroup piu' adeguato.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)


mooolte grazie... mi adeguo!
certo che ormai che c'eri... potevi dirmi dove!!!  :- )

Newsgroup: it.comp.lang.perl
Titolo: HELP: inviare sequenze di tasti ad un server remoto

Sto appena cominciando a studiare ciň che si puň fare con il Perl.
Attualmente non ho capito se e come si puň tramite Perl aprire una pagina
web su server remoto ed inviare sequenze di caratteri in dei campi: ad
esempio per automatizzare l'inserimento di login e password e l'accesso alla
member area di un altro sito (laddove sia consentito). Su cosa devo
lavorare, quali moduli usare (libwww o altro), dove posso trovare tutorial o
samples con righe di codice utili all'uopo? Grazie tante.
Andrea


Fatti un giro su 
http://www.cgipoint.it
 e su 
http://www.risorse.net
, oltre ad un
tutorial sul Perl, puoi trovare commenti, recensioni e sorgenti di cgi fatti con
Perl. 
Ciao
Marcello
Newsgroup: it.comp.lang.perl
Titolo: prendere una pagina con uno script

Eccomi a voi, sono una new entry.
Ho il seguente  problema.
Devo leggere una qualsiasi pagina su qualsiasi sito e registrarla su un
file.
Getstore del modulo LWP fa questo, e in effetti lo script mi funziona sul
mio pc di casa.
Lo installo sul mio host, e non funziona perche' manca la libreria.
Mi hanno consigliato, sinteticamente, su una lista straniera di installare
manualmente la libreria. Cosa che ovviamente non riesco a fare, sicuramente
perche' non ho trovato un testo che mi dica passo passo come installare un
modulo quando questo non e' presente.
In breve: non funziona.
Ho provato anche con la socket, ma gli script trovati on line (wwwgrab) non
funzionano, anche se per perl 5.
Questi ultimi si fermano al momento di prelevare la pagina: sembra che il
collegamento con il sito avvenga, ma poi nel ciclo while di lettura, non
arriva niente.
Chi di voi ha gia' risolto il problema o sa indirizzarmi ?
Grazie anticipatamente
Valentino Spataro
dott. Valentino Spataro, studio legale 0270123724, fax  027610207
v.sp...@agora.stm.it
 
http://members.xoom.com/Cornucop
 

 modulo quando questo non e' presente.
Fai
perl -MCPAN -e shell
e ti parte il modulo CPAN per l'installazione automatica delle librerie.
Configuralo rispondendo alle domande e poi fai (sempre dalla shell
di CPAN)
install LWP
lui te lo scarica, compila, configura, installa e poi fa il caffé.
Non è bello? :-)))
Per l'help fai '?'
Saluti,
Valerio
--
-------------------------------------------------------
 
http://www.livenet.it
Hosting - Housing - Accesso ad Internet
                      0815625909
         03395452296 03394733180
-------------------------------------------------------

 modulo quando questo non e' presente.
Mi sembra strano che tu abbia dei problemi ad installare un modulo perl,
anche perche' nella norma, sono fatti abbastanza bene,soprattutto quelli
"famosi".
La procedura per installare un pacchetto (ovviamente dopo che lo hai
preso/downloadato) e':
tar -xvzf mymodule.tar.gz
cd mymodule
perl Makefile.PL
make
make test (opzionale ma consigliato)
make install
Gli unici problemi si possono verificare se la stessa libreria richiede
altre librerie che non sono presenti (ed in questo caso devi installarle
prima) oppure se ci sono problemi di permissions. Nel primo caso queste
informazioni sono solitamente nel README file della libreria. Nel secondo
caso... non so.
Eventualmente se hai problemi provo a chiedere al mio collega che lo sta
usando e che l'ha installato... mailami pure al mio indirizzo (togliendo gli
opportuni "#").
    Best regards,
        Kazuma
--
Alessandro A. Garbagnati, #agarbagnati#@
decisive.com
Sr. Lead Engineer, Product Development
Decisive Technology - Mountain View, CA, 94043
http://www.decisive.com/

 
Lo sarebbe, ma mi senbra di ricordare che prima si debba perlomeno
installare
libnet, per cui:
install Bundle::libnet
Cheers,
	Alf

 libnet, per cui:
Beh, io lo avevo detto che andava configurato... di installare le libnet lo
dice
da solo... insomma: l'avevo dimenticato :P
E poi funziona anche senza...
Ciao,

Newsgroup: it.comp.lang.perl
Titolo: Questo frammento di testo è corretto?

In un programma che sto scrivendo (tentando di scrivere :) - del quale ho
parlato in un mio precedente post - Ho creato (anche grazie ad suggerimenti
di alcuni di voi che ringrazio) le seguenti istruzioni. Il programma non
funge... Le istruzioni sono almeno sintatticamente corrette?
for ($num = 0; $num < 5; $num++)
{
    if ($FORM{"art[$num]"} eq 'on')
    {
      $articolo[$num] = '/htdocs/' . $art[$num] . '.txt';
      open(ARTICOLOSCELTO, "$articolo[$num]";
      @array=<ARTICOLOSCELTO>;
      print "@array\n";
      close (ARTICOLOSCELTO);
    }
}
Ciao,
P.

     if ($FORM{"art[$num]"} eq 'on')
Direi che manca un $ prima di art.
-- 
Saluti,
Giancarlo

Newsgroup: it.comp.lang.perl
Titolo: Come leggere/scrivere su Oracle DB con CGI?

Volevo avere delle informazioni su come poter interfacciare una base
dati con motore Oracle, attraverso un browser (netscape o altro) con dei
cgi-script o java-script che mi consentano di poter attingere inlettura
delle informazioni da un database o, se esse non esistono, di poterle
creare.
Premessa: non conosco il Perl ma ho sentito che e` piuttosto utile in
questi casi. Come si fa ad impararlo 'benino'??
Grazie a tutti.
Ciao.
Alex
-- 
--- Please Remove NOSPAM from the address ----
Alessandro Feltrin - Elsag Bailey Informatica
........................................
E-Mail address: 
fel...@to.ebi.it
, 
afel...@to.alespazio.it
Phone 		 : ++39 11 7180442

Ti rispondo su come si può imparare il perl: prova a dare uno sguardo su
ftp://cis.utovrm.it
, troverai una complata serie di documenti (in inglese)
su cui c'è tutto quello che si deve sapere per poter programmare in perl.
--
Ciao
Andrea
------------------------------------------------------------------------
Redattore di Ludus (
http://www.ludus.it
)
Recensioni, Trucchi, Soluzioni,
Patch e News per PC e PSX
------------------------------------------------------------------------
Newsgroup: it.comp.lang.perl
Titolo: Come potere ottimizzare la letture di un pdf...vedere esempio

Ciao a tutti, qui di seguito riporto lo script che mi consente di
decomprimere ed aprire un file pdf.
$FILETOUNZIP=(param('FILETOUNZIP'));
$FILEZIP=(param('FILEZIP'));
#ASSEGNAZIONE A 'drive[0]' LA LETTERA INERENTE AL DRIVE DA CUI VIENE
ESEGUITO DATAONODISK
(@drive) = split(/:/,$ENV{PATH_TRANSLATED});
$FILEZIP = $drive[0].":".$FILEZIP;
#DECOMPRESSIONE FILE ZIP
system ("$drive[0]:/Tools/pkunzip -o $FILEZIP c:/temp $FILETOUNZIP >
c:/temp/log.txt");
$FILETOUNZIP = "c:/temp/".$FILETOUNZIP;
print "Content-type: application/pdf\n\n";
 open(FILE, "< $FILETOUNZIP");
 #open(FILE, '< c:/temp/2002.pdf');
 binmode FILE;
  while($riga = <FILE>)
  {
    print $riga;
  }
 close FILE;
Sapreste indicarmi come poter ottimizzare la fase di lettura in quant mi
sembra un lentina??
Grazie.


Fai: cosě:
open(FILE, "< $FILETOUNZIP");
binmode FILE;
print <FILE>; # stampa tutto il file, senza leggerlo una riga alla volta
close FILE;

Ma in questo modo sul browser mi stampa  il codice in binario e non mi pare
più il pdf!!!

 mi sembra un po' lentina??
   my $buffer;
   my $rc;
 
   while( $rc = sysread( FILE, $buffer, 100000 ) )
   {
 	   syswrite( STDOUT, $buffer, $rc );
   }
Max

Newsgroup: it.comp.lang.perl
Titolo: vedo/non vedo

Ciao a tutti!
Io ho questi due file e vorrei che il secondo mi stampasse il valore delle
varibilil dichiarate nel primo.Come posso fare?
Primo file
"variabili":
#!/usr/local/bin/perl
my $lmax_us=20;
my $lmax_pass=20;
my $lmax_mail=50;
my $lmin_pass=6;
 1;
-----------------------------------------------------------
Secondo file
"prova.cgi":
#!/usr/local/bin/perl
require "
procedure.pl
";
require "variabili";
print "Content-type:text/html\n\n";
&header("pagina di prova","\#FFFFCC");
print "1:$lmax_us<br>\n";
print "2:$lmax_pass<br>\n";
print "3:$lmax_mail<br>\n";
print "4:$lmin_pass<br>\n";
print"<\/body>";
print"<\/html>";
exit(0);
-----------------------------------------------------------
Grazie mille!
Ciao Paolo

varibilil dichiarate nel primo.Come posso fare?
Modo brevissimo (e poco raccomandabile): dichiara locali (togli il my) le
variabili che vuoi esportare dal primo file. Modo più raccomandabile (e non
così breve): leggi perlmod e la documentazione del modulo Exporter. Modo
decisamente non breve: leggi anche perlmodlib e perlmodstyle e verifica
l'opportunità di un'interfaccia ad oggetti.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: perlfunc.pod non trovato

Sto usando linux mandrake 9.1   
Devo installare alcune cose con CPAN
Avevo provato ad installare spamassassin ma mi diceva che gli mancava
Pod::Usage e HTML::Parser
Allora ho provato ad installare Pod::Usage ma mi da errore perchè dice che
non trova il file perlfunc.pod
In effetti questo file nel mio HD non esiste.
Ho anche installato tutti i moduli dove compare il nome perlfunc (es.
Pod::Tree:PerlFunc), ma continua a dirmi che questo file non esiste.
Sapreste aiutarmi per favore?
-- 
Frodo Baggins
Webmaster di Arrampicata.net 
http://www.arrampicata.net
Webmaster di Neverwinter Nights Italia 
http://bebbbo.altervista.org

 [...]
perlfunc.pod e` parte della documentazione presente
nella distribuzione standard di Perl. Ad esempio, su
una delle macchine su cui lavoro:
   larsen@perlmonk:~$ perldoc -l perlfunc
   /usr/share/perl/5.8.0/pod/perlfunc.pod
(-l e` un flag che dice a perldoc, il tool che si usa
per consultare la documentazione, di dire all'utente
dove si trova un certo .pod)
Mi pare strano che perlfunc.pod sia assente, d'altra
parte non conosco il sistema di pacchettizzazione di
Mandrake. Sicuro che non esista un pacchetto separato
che contiene la documentazione di perl?
Di piu`, con i dati a disposizione, non so dire (ho
provato ad installare PodParser, che comprende
Pod::Usage, sul mio computer, e funziona)
ciao,
Stefano

 Pod::Usage, sul mio computer, e funziona)
Pod::Parser mi risulta installato
Per favore aiutatemi ad uscirne fuori :(


 Pod::Parser mi risulta installato
Attenzione, Pod::Parser e PodParser sono due cose
distinte (e` una bruttura, ne convengo; credo dipenda
dal fatto che l'autore del modulo non abbia chiesto
in perl-modules se il nome scelto andava bene: se lo
avesse fatto gli avrebbero sicuramente indicato il
conflitto e la possibilita` di confusione).
Per il resto, non conoscendo Mandrake, non so aiutarti :/
ciao,
S.

 distinte 
Come installo PodParser???


 Come installo PodParser???
http://search.cpan.org/author/MAREKR/PodParser-1.23/
Ci sono vari modi per installare i moduli. Il mio
preferito e` scaricare l'archivio .tar.gz, scompattarlo,
e poi
   make
   make test
   make install (se i test sono andati a buon fine)
ciao,
S.

   make install (se i test sono andati a buon fine)
oops. Scusami, mi sono dimenticato una fase:
   perl Makefile.PL

Newsgroup: it.comp.lang.perl
Titolo: Criterio di ordinamento di $ENV

Come  vengono ordinati i dati contenuti in $ENV?
Nel mio caso, oltre alla classica routine che pulisce l'input , non riesco a
capire come mai nel successico ciclo :
foreach $key (keys(%Query))
    print "$key = $Query{$key}<br>"; }
i dati vengano stampati in un ordine completamente diverso rispetto ai campi
del form.
Come si ordinano i valori in base alla loro apparizione nel form?
Se puo' essere utile, aggiungo la parte di ripulitura:
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@QueryArray=split '&',$buffer;
foreach(@QueryArray){
  ($key, $val) = split ('=',$_);
$key =~ tr/+/ /;
    $key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $val =~ tr/+/ /;
    $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
 $Query{$key} = $val;
}

 Come si ordinano i valori in base alla loro apparizione nel form?
Mettendo nel form dei nomi in ordine alfabetico, e poi scrivendo:
foreach $key (sort keys(%Query))
Ciao,
Alfio

Newsgroup: it.comp.lang.perl
Titolo: OOP Perl?

Scusate la mia curiosità, ma un mio amico sostiene di aver programmato con
Perl ad oggetti. E' possibile?
grazie

 Perl ad oggetti. E' possibile?
Certamente. Leggi, non necessariamente nell'ordine, le seguenti pagine 
del manuale in linea:
	$ perldoc perlobj
	$ perldoc perltoot
	$ perldoc perltootc
	$ perldoc perlref
-- 
Alla prossima,
Marco

Newsgroup: it.comp.lang.perl
Titolo: Perl + Ldap

Ciao a tutto l'NG
Qualcuno sa come utilizzare Perl con Ldap e quale server ldap freeware sono
disponibili
per provare il tutto su Windows.
Grazie in anticipo
Federico Proietti

Qualcuno sa come utilizzare Perl con Ldap e quale server ldap freeware sono
Net::LDAP
-- 
ciao, | * The Internet is full. Go away.  -- Joel Furr *
Marco | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

Newsgroup: it.comp.lang.perl
Titolo: wxperl informazioni

Volevo sapere qualcosa se è completa (almeno quanto lo è wxpython) oppure è
ancora in fase poco avanzata.Leggevo sul sito che è ancora alla versione
0.14 e perciò non so quanto sia veramente valida.
ciao e grazie :)
--
------------------------
http://members.xoom.virgilio.it/visualwx/
VisualWx rad per wxwindows,c++ e python

 0.14 e perciò non so quanto sia veramente valida.
Ciao!
Speriamo che Mattia Barbon, autore del modulo, legga e risponda in un 
modo + consono del mio. Ti posso dire, per esperienza diretta e 
indiretta, che il modulo è valido! Non conosco la versione per 
linguaggio che hai citato, ma wxPerl IMHO ha raggiunto un buon grado di 
maturità. Da qualche tempo wxDesigner ha anche Perl tra i linguaggi 
supportati e spero che anche il VisualWx che hai in firma lo supporterà :)

supportati e spero che anche il VisualWx che hai in firma lo supporterà :)
beh si  è quello lo scopo :))
Ma non capivo il fatto che dopo 2 anni siano ancora con una versione non
stable ...
cmq adesso lo provo, dalle tue parole sembra che valga la pena :))
(ho chiesto perchè conosco poco il perl e non per pigrizia)
grazie ciao

Newsgroup: it.comp.lang.perl
Titolo: print: a capo

Ciao, non riesco a capire come mai il perl elimina dai file di testo tutti
gli a capo. In pratica nella pagina che viene generata non ci sono più gli a
capo, non ci sono linee vuote. Come si può fare? Forse bisogna fare in modo
che quanto trova il carattere corrispondente ad '' a capo'' inserisca <br>.
grazie
#!/usr/bin/perl
print "Content-type: text/html\n\n";
open(FILE2,"testo.txt");
while(<FILE2>) {
   print $_;
}
exit;

che quanto trova il carattere corrispondente ad '' a capo'' inserisca <br>.
si
ciao

 exit;
A che serve? Piuttosto, mettici un
close FILE2;
!!
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

 ciao

a capo = \n (ma dentro gli apici doppi: "\n")
visto che si tratta roba html, forse potresti dirgli che si tratta del
testo preformattato <pre> tutto il tuo file.txt </pre>

-- 
ASTAT - Istituto provinciale di statistica
viale Duca D'Aosta, 59
I - 39100 Bolzano
tel: 0471.414045  fax: 0471.414010
http://www.provinz.bz.it/astat

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

 ha scritto nel messaggio
news:1ee12mj.17vnj3x1kpz5ncN%bale...@mac.com...


Newsgroup: it.comp.lang.perl
Titolo: metodo unshift...

Stop provando a creare uno script ma hoquesto problema :
ecco il codice dello script (non ridete se ho fatto cazzate... :-)
#!C:\Perl\bin\perl.exe
print "Content-Type: text/html\n\n";
use CGI;
$query = CGI::new();
$mail = $query->param('webmail');
@webmail = ();
push (@webmail, "$mail");
print "$webmail[-1]";
il problema è che se provo a mettere print "$webmail[0]";
tutto funziona e mi scrive testo mentre se metto print "$webmail[1]";
non funziona e non mi appare niente.
In questo modo il metodo push non aggiunge i dati ma riscrive ogni volta
sopra il primo dato cioè 0.
Mi dite come fare??
Grazie

sopra il primo dato cioè 0.
Mi pare invece che push aggiunga un elemento sempre alla fine di un array.
Non ho capito bene il tuo problema.
Se ti può servire, comunque,  ricordati che l'indice dell'ultimo elemento di
un array @nome_array è memorizzato nella variabile $#nome_array ( che è -1
qunado è l'array è vuoto).

 Mi dite come fare??
Fare cosa? Che dovrebbe fare il tuo codice?
Tra l'altro esageri con le doppie virgolette inutili (ma e' un peccato
veniale).
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 wrote in message
8ncde0$q75$1...@menelao.polito.it...


 Capito??
Non puoi, in maniera cosi' semplice. I programmi con interfaccia CGI sono
'stateless', per cui ricominciano da zero ogni volta che li esegui.
Soluzioni:
1) ti appoggi ad un file esterno
2) integri il tuo programma nel server, usando ad esempio mod_perl in Apache
Probabilmente ti conviene la prima soluzione <g>

Newsgroup: it.comp.lang.perl
Titolo: Premature end of scripting headers





Che significa l'errore in 
soggetto?



 Che significa l'errore in soggetto?
Che hai sbagliato newsgroup? :)
Il tuo CGI non produce gli header corretti o produce del testo
(probabilmente un messaggio di errore) prima di generare gli header.
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: Passare i parametri a uno script Perl da un form

Dunque in una pagina HTML metto un form con un textbox e un pulsante
ovviamente devo passare il testo in textbox allo script o provato cosě:
<form method="post"
action="
http://srv_lnx.ing.uniroma1.it/cgi-bin/09105899/tesina.pl
?">
<p align="center">
<input type="text" name="textfield">
</p>
<p align="center">
<input type="submit" name="Submit" value="Submit">
</p>
</form>
Ma il form non passa nessun parametro al file .pl come devo fare???
Grazie
--
===================================
Andrea Sistarelli
Per un sms: 
sis...@mail.omnitel.it
ICQ: 11598516
===================================

...


Newsgroup: it.comp.lang.perl
Titolo: problema con dbi e dbms_output

salve ha tutti.
Ho creato un piccolo script che esegue su oracle una procedura,
la quale restituisce un certo output.
dopo l'esecuzione, lo script non fa altro che leggere l'uotput,
e scriverlo su un file.
Ho testato la cosa con diverse procedure, e con tutte non ho avuto problemi,
salvo con una che č piuttosto grossa, circa 250 righe complete di
indentazioni etc,
per la quale non riesco ad avere l'output...
la procedura su plsql developer viene eseguita correttamente.
nello script lavoro in questo modo (ometto per brevitą i controlli di
errore):
my $cnt =0;
$proc = q{
DECLARE
    ...
};
$dbh = DBI->connect("dbi:Oracle:$conf{'db'}", "$conf{'user'}",
"$conf{'passwd'}",{AutoCommit=>0}) ;
$dbh->{RaiseError} = 1;
$dbh->func( 1000000, 'dbms_output_enable' );
$sth = $dbh->prepare($proc) ;
$sth->execute();
while ($proc_out = $dbh->func( 'dbms_output_get' )){
                    printf (OU_FILE "$proc_out\n");
                    $cnt++;
}
$dbh->commit();
$dbh->disconnect();
Fra le altre cose, riesco anche a vere nella lista delle sessioni di oralce,
l'esecuzione della procedura, e la query inziale,
quindi sembra che a livello di DB venga correttamente eseguita.
L'output č contenuto, ed č ampiamente sotto il milione di caratteri
dichiarati...
Spero possiate aiutarmi.
Grazie per l'attenzione.
bye ;-)

 ha scritto nel messaggio
news:cctkrj$dmt$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.perl
Titolo: use strict

che significa   "use strict"?

che significa   "use strict"?
Tante cose... in generale ti concede minor liberta` ma anche minor
possibilita` di sbagliare. Assolutamente da usare. ;)
	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!

che significa   "use strict"?
Ti da molta meno "liberta'". Ma non devi vederla come cosa negativa !!! E'
un po' come il Option Explicit in Visual Basic. In sostanza (oltre a
"teoricamente" rendere il codice un pelino piu' veloce), ti costringe a
programmare molto meglio. E come dice Michele (post affianco) alla fine ti
porta a non sbagliare (principalmente perche' devi essere molto piu'
ordinato durante la stesura). Insomma sono d'accordo con Michele, io lo uso
sempre.
Devo anche dire che strict si divide in molte parti:
vars = obbliga a dichiarare le variabili etc....
refs = da errore se si usa un reference simbolico etc...
subs = tratta tutte le "bareword" come errore di sintassi etc..
E' possibile includerle tutte con use strict; oppure solo alcune con ad
esempio use strict "vars";
Alex

Newsgroup: it.comp.lang.perl
Titolo: Connessione a DB ORACLE

Quali e quante tecniche esistono per connettersi ad Oracle da uno script
Perl?
Al momento conosco DBI-DBD::Oracle.... questo richiede l'installazione del
client oracle sulla macchina?
Esiste un meccanismo del tipo JDBC o ODBC per il quale non devo installare
il client oracle sul mio application server?
Grazie

 il client oracle sul mio application server?
Certo: esiste DBD::ODBC, che ti permette di collegarti a qualsiasi db 
server per il quale hai a portata di script un driver ODBC ed un DSN
opportunamente configurato (esistono driver ODBC per Oracle sia sotto
Windows che sotto Linux/Unix.)
Su macchine Windows puoi usare anche DBD::ADO (che poi userebbe comunque
il driver ODBC per Oracle.)
Ciao,
Emanuele.
Newsgroup: it.comp.lang.perl
Titolo: Facile facile

Sto cercando di far leggere ad uno script cgi il primo carattere di una riga
(la prima) di un file, memorizzarlo nella variabile $numero, per poi
stamparlo in una pagina web. Pensavo ad una cosa del tipo:
use CGI qw/:standard/;
$file = 'countdown.log' ;
open(INFO, "$file" ) ;
@lines = <INFO> ;
close(INFO) ;
$line = @lines;
$numero = substr($line, 0, 1);
Sto procedendo un po' a casaccio come al solito... mi date una dritta ?
Ciao e grazie
--== Pirozzo ==--
http://www.listen.to/RadioSegugio
  Il motore di ricerca delle frequenze FM
http://www.welcome.to/DuraLex
      Leggi fondamentali sul magico mondo
femminile
# Icq 39050880
news://it.fan.radio-deejay
news://it.fan.musica.queen
Servono voti per fondare il newsgroup news://it.fan.radio.radio105 ,
scrivetemi !

stamparlo in una pagina web. Pensavo ad una cosa del tipo:
print "HTTP/1.0 200 OK\nContent-Type: text/html\n\n";
open(INFO,'<countdown.log'>; $riga=<INFO>; close(INFO);
$riga = substr($riga,0,1);
print $riga;
Leggendo INFO on uno scalare ne leggi una sola riga.
------
bale...@dada.it
 
http://zap.to/balestra
  ICQ#:14303012
" Ora mai che i baci tuoi piu' non mi sazian
  cerchero' un'altra donna dentro ai sogni di Tarzan... "

Grazie !
E se invece volessi leggere la riga n-esima ? E' complicato ? Uso una
variabile-contatore da incrementare via via o c'è un modo ancora più
semplice ?
Ciao
--== Pirozzo ==--
http://www.listen.to/RadioSegugio
  Il motore di ricerca delle frequenze FM
http://www.welcome.to/DuraLex
      Leggi fondamentali sul magico mondo
femminile
news://it.fan.radio-deejay
news://it.fan.musica.queen
Servono voti per fondare il newsgroup news://it.fan.radio.radio105 ,
scrivetemi !
Marco Balestra ha scritto nel messaggio <37650cb7.29053941@proxy>...


semplice ?
Se il file non e' grosso (e quindi puoi permetterti di sparartelo
tutto in RAM senza problemi ne' tempi di lettura significativi),
allora leggilo in un vettore:
print "HTTP/1.0 200 OK\nContent-Type: text/html\n\n";
open(INFO,'<countdown.log'); @righe=<INFO>; close(INFO);
print $#righe>4 ? 'La riga 6 vale '.@righe[5] : 'Niente riga 6';


 wrote:
| 
| >E se invece volessi leggere la riga n-esima ? E' complicato ? Uso una
| >variabile-contatore da incrementare via via o c'č un modo ancora piů
| >semplice ?
| 
| Se il file non e' grosso (e quindi puoi permetterti di sparartelo
| tutto in RAM senza problemi ne' tempi di lettura significativi),
| allora leggilo in un vettore:
io proporrei
$ct=10; # voglio la decima riga!
open(FILE, "<file") || die "game over! ";
for(;<FILE> && $ct>0;$ct--) {
  $_=<FILE>;
}
(non testato!)
oha

...


(non testato!)
Va benissimo, l'unica cosa e' che io... chiuderei il file ;-))

Newsgroup: it.comp.lang.perl
Titolo: Aprire STDERR per dialog

Salve,
innanzitutto mi scuso per il secondo post in pochi giorni.
Ho la necessita' di usare "dialog" per interagire con varie opzioni del
mio script. Il problema e' che dialog utilizza lo STDERR come canale di
output per le scelte dell'utente.
Cercando in rete e nei man, ho trovato vari modi per redigirigere lo
STDERR di un comando. L'unico metodo utile a causa dell'utilizzo di una
system() ho pensato essere:
open(STDERR, ">$file_output");
# oppure sysopen(STDERR, $file_output, O_WRONLY|O_TRUNC|O_CREAT);
system("$command");
close STDERR;
In questo caso, pero', nel file non viene scritto nessuna informazione,
mentre utilizzando semplicemente
sysopen(STDERR, $file_output, O_WRONLY);
viene fatto cio' che richiedo. Il problema e' che il file dev'essere
svuotato prima di essere scritto (da questo l'uso di O_TRUNC), pena la
sovrascritta delle informazioni su quelle precedenti.
La cosa a cui ho pensato, ma della quale non ho trovato info, e' che
filehandle riservati, quali sterr, stdout, stdin... vengano interpretati
in maniera particolare da open/sysopen... qualcuno ha avuto lo stesso
problema?
grazie,
bye
-- 
= active @ actisystem =
GIT d- s:+>: a-- C+++ UL++++ P++ L+++ E--- W+ N+ 
o? !K w-- O-- M- V? PS+(++) PE Y+>++ PGP++ !t 5? 
X++(+) R(+) tv+(++) b+>++ !DI D+ G e>++ h! r++ x*

problema?
Francamente, non sono in grado di rispondere direttamente alla domanda, ma
la cosa non può comunque essere risolta troncando il file prima di aprirlo
come STDERR?
Lo apri normalmente e lo svuoti, quindi lo chiudi e lo sysapri come STDERR.
Mi sembra che debba funzionare per forza; o non ho capito il problema?
Ciao.

On Thu, 01 Apr 2004 13:53:02 +0000, active wrote:
Ho risolto. Purtroppo mi sono accorto che (stupidamente) avevo una
funzione che mi sovrascriveva il file di output.
Errore mio chiedo venia :)


Newsgroup: it.comp.lang.perl
Titolo: Leggere file come fa 'tail -f'

Come faccio in Perl a tenere aperto in lettura
un file e a leggerlo man mano che qualcuno ci
scrive dentro?
Tipo quello che fa il comando 'tail -f' di Unix.
Dovrei tenere "sorvegliato" il /var/log/messages
di un server.
Ciao
--
Master:"Conan, what is best in life?" 
Conan:"To crush your enemies, see them driven before you,
and to hear the lamentations of their women!

 Tipo quello che fa il comando 'tail -f' di Unix.
Cercare sempre prima su CPAN e su 
perl.com
 :)))
http://search.cpan.org/search?dist=File-Tail
http://search.cpan.org/search?dist=Event-File
Eventualmente nei power tools:
http://www.perl.com/language/ppt/src/tail/
Newsgroup: it.comp.lang.perl
Titolo: Perl Embedded

Salve,
esiste un modo per scrivere codice perl dentro html con avviene in php ?
Grazie
Andrea

 ?
 Dev'essere il tuo server http a supportare il perl. Prova a fare una
ricerca "Apache + mod_perl" su google.
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

 esiste un modo per scrivere codice perl dentro html con avviene in php ?
Ci sono diversi sistemi, tra gli altri:
Mason 		
http://www.masonhq.com/
Embperl 	
http://perl.apache.org/embperl/
PLP 		
http://plp.juerd.nl/
Apache::ASP 	
http://www.apache-asp.org/
PerlEx		
http://aspn.activestate.com/ASPN/docs/PerlEx/Embedded.html

Newsgroup: it.comp.lang.perl
Titolo: it.comp.www.php e it.comp.lang.perl

Monitorando i due, ho visto che il secondo è molto meno attivo: come mai?!
Eppure perl non mi sembra da meno rispetto al php, anzi! 

 mai?! Eppure perl non mi sembra da meno rispetto al php, anzi!
ci sono molte possibili spiegazioni..
php e' preferibile da parte dei programmatori rispetto al perl e/o
i programmatori perl sono meno inclini ad utilizzare questo NG e/o
i programmatori perl sono meno inclini ad utilizzare i NG e/o
non hai monitorato per un periodo sufficiente di tempo e/o
non hai monitorato con criteri statistici adatti e/o
ti sei imbattuto in una aberrazione statistica e/o
i programmatori php parlano molto di piu' dei programmatori perl e/o
i programmatori php si imbattono piu' spesso in problemi che richiedono un
consiglio per essere meglio risolti e/o
molti newbie perl non sanno utilizzare i NG e/o
molti newbie php sanno utilizzare i NG e/o
i programmatori php sono di piu' dei programmatori perl e/o
php e' migliore di perl per le necessita' dei programmatori
etc etc..

 Eppure perl non mi sembra da meno rispetto al php, anzi!
PHP è più semplice e attualmente più diffuso.
Solitamente (ma forse è una generalizzazione troppo spinta) Perl viene usato 
da programmatori "più avanzati" che magari cercano da soli quello che gli 
serve e scrivono nei ng solo quando non trovano nulla, mentre in ng dedicati 
al PHP è più comune trovare domande un filo più "newbie" :-)
Ognuno dei due linguaggi ha vantaggi e svantaggi nei confronti dell'alro. 
Tutto qui.

Newsgroup: it.comp.lang.perl
Titolo: #2 DOMANDE

#1 
come si riconosce in PERL il MIMETYPE (o CONTENT-TYPE)
di un ogetto che sto trasferendo (upload)
? 
#2 
io ho un programma con questo path:
www.miosito.com/cgi-bin/miacartella/prg.pl
che deve scrivere un file che risiede qui:
www.miosito.com/immagini/mieimmagini/
come si fa? 
? 
(
miosito.com
 è lo stesso per tutti e due)....
Grazie!

 wrote in message
news:B861FC2C.932C%kryn...@katamail.com...




grande!!
ma continuo ad avere un problema con questi:
my $mimetype = $query->uploadinfo($filename)->{'Content-Type}; # non esiste
CGI::uploadinfo

 esiste CGI::uploadinfo
Il nome giusto è "uploadInfo" (v. perldoc CGI).
Max

CGI::uploadinfo
Potresti evitare la prossima volta di quotare tutto il post
per poi aggiungere un paio di righe soltanto!?:))))
-- 
WEbdOM webmaster di
Metronic.It mobile phone philosophy
www.gadgetpoint.it
 serigrafia on line
Newsgroup: it.comp.lang.perl
Titolo: And e or

Sto simulando in locale un piccolo motore di ricerca che simuli le
ricerche booleane; ad esempio, mi potrebbe arrivare allo script che
gestisce le ricerche una stringa del tipo:
a+b-c-d+e
che, tradotta, vuol dire 'cerca che ci siano "a", "b", "e" ma non ""c" e
"d" '.
Ora, ho predisposto due array @and e @not: il primo deve contenere i
termini che devono essere trovati ("a", "b", "e") e il secondo quelli
che non devono essere trovati ("c", "d").
Sto impazzendo per fare in modo che il primo valore della stringa ("a")
vada in @and, e che gli altri vadano in @and o @not a seconda del segno
"+" i "-" che li precede.
Mi potreste aiutare a trovare una soluzione?
TIA
M.
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

Mi potreste aiutare a trovare una soluzione?
Io farei cosi:
$stringa="a+bddd ddd  -c d -d+e";  
#un po' piu' confusa della tua
while ($stringa=~s/(\+|\-)*([\w\s]+)//) {
        ($1 eq "-")?($not[$index_not++]=$2):($and[$index_and++]=$2);
}
Se ti interessa che nel testo "cercabile" (o "da evitare") ci siano anche
caratteri diversi da \w e \s, allora cambia [\w\s] con [lista dei caratteri
validi]
-- 
Saluti,
Giancarlo

 validi]
Beh, visto che mi arriverà solamente del testo con eventuali spazi, direi
che non devo sostituire alcunchè!
Grazie 1000!


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

Grazie 1000!
Prego, le regexp sono sempre molto divertenti :)
-- 
Saluti,
Giancarlo

il perl lo avrebbe acettato di buon grado, con push davanti...
No cosi' non funziona, ma cosi':
push @{($1 eq "-")?@not:@and}, $2;
si :)
-- 
Saluti,
Giancarlo

 si :)
Vero.
Noto una insana attrazione per le parentesi, oltre a ++ e -- :)
push @{ $1 eq "-" ? @not : @and }, $2;


Noto una insana attrazione per le parentesi, oltre a ++ e -- :)
Solo per togliermi un po' di problemi con le priorita' e le associativita' degli
operatori e per mantenere un po' di leggibilita' :)
-- 
Saluti,
Giancarlo

 Prego, le regexp sono sempre molto divertenti :)
Vero, e invidio moltissimo chi riesce a partorirne di cosě "azzeccate"!
Rigrazie!


Newsgroup: it.comp.lang.perl
Titolo: Apache::Constants

Salve...
Posso usare il modulo Apache::Constants in uno script per controllare la 
sintassi delle direttive di apache?
Se si, come?
Grazie Seva



Ciao,
credo che tu abbia fatto un po' di confusione.
Apache::Constants è un modulo della distribuzione mod_perl che esporta 
le costanti definite in httpd.h in modo da poter essere usate in Perl (in
genere nei moduli mod_perl). 
Niente a che vedere con le direttive di configurazione di Apache.
Quello che serve a te sono i moduli del tipo:
 
http://www.cpan.org/modules/by-module/Apache/Apache-ConfigParser-0.06.tar.gz
e/o
 
http://www.cpan.org/modules/by-module/Apache/Apache-ConfigFile-0.14.tar.gz
e/o
 
http://www.cpan.org/modules/by-module/Apache/Apache-Admin-Config-0.91.tar.gz
che ti consentono di effettuare il parsing dei file di configurazione 
Apache-like.
by
	- Enrico