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

C'è un applet che legge un file di testo...
ma questo file di testo in realta' è cgi perl a cui l'applet passa
la dir.e il nome del file da aprire piu' altri parmetri come la dimensione..
(   xxx.cgi?yyy/abc.txt-200-  )
tutto bene per un anno e mezzo mai un problema..
poi cambio server e cosa succede??.. succede che il cgi ritorna file
diversi!!..
a caso!!!.. facendo il reload il risultato cambia!!!!!
Escludendo che sia un mio problema perche' è comune a tutti iniziato
esattamente con il cambio server.. escludendo in ogni caso che sia un
problema
di cache del browser (primo perche' capita di vedere file che non erano mai
stati visti, poi perche' si vede il download durare alcuni secondi, terzo
prima non era mai successo)
Come diavolo è possibile che accada una cosa simile!?!?!?!?!
Io non me ne intendo di server, mi chiedo non puo' essere una cache sul
server?..
o una qualche memoria che sbaglia a restituire il file???...
Non so piu' cosa pensare:-(((
Ditemi voi!?
Grazie

C'è una applet che legge un file di testo...
ma questo file di testo in realta' è cgi Perl a cui l'applet passa
la dir.e il nome del file da aprire piu' altri parametri come la dimensione
che deve essere letta..
(   xxx.cgi?yyy/abc.txt-200-  )
tutto bene per un anno e mezzo mai un problema..
poi cambio server e cosa succede??.. succede che il cgi ritorna file
diversi!!.. o con parametri diversi!!...a caso!!!.. facendo il reload il


Newsgroup: it.comp.lang.perl
Titolo: Problemi col socket...

salve a tutti,
volevo creare un piccolo programma client/server in perl sotto win32 che
usi i socket.
ho messo su un demone pop ed ho cominciato a fare delle prove...
sto usando il semplice IO::Socket::INET (c'e' differenza nell'usare
questo e non l' IO::Socket ?).
come faccio a impostare il buffer di ricezione dal server ? mi spiego...
fin quando devo 'retrieve-are' (cioe': 'da scaricare'... scusatemi ma a
volte i termini italiani sono difficili da ricordare... ;) ) una singola
linea, uso semplicemente:
	$buffer = <$sock>;
i problemi sono due: se il msg del server e' maggiore di una riga, le
altre righe non saranno 'scaricate'...
i socket cosi' sono sincroni... una linea del genere mette in attesa il
programma finche' il server non manda il ritorno a capo...
come posso crearne di asincroni ?
per la prima soluzione credo esista qualcosa come 'defined' che dovrebbe
fare al caso mio... ho provato in un ciclo while ma nada... :(
l'unica sarebbe quella di usare recv ed IO::Socket... che me lo potreste
fare un esempio di collegamento a un server ? (ci ho provato ma mi dava
problemi sulla lunghezza del buffer da inviare con la send... :(( )
magari riprovo con l'IO::Socket, col quale pare ci sia piu' controllo...
ah, sockaddr_in in C era una struttura... in perl sotto quale pagina di
documentazione lo trovo ??
grazie,
maurice

 ha scritto nel messaggio
news:dc5b4uc5lprim0k7p...@4ax.com...

Newsgroup: it.comp.lang.perl
Titolo: mailing list

Conoscete qualche programma in perl per mailing list ...sbirciabile ?
grazie
ciao

 Conoscete qualche programma in perl per mailing list ...sbirciabile ?
Lo so che non e' la risposta che cerchi, ma solo quella alla tua domanda...
majordomo.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 Conoscete qualche programma in perl per mailing list ...sbirciabile ?
Non so cosa sia una mailing list sbirciabile <g>, ma credo ti farà piacere
sapere che Majordomo è interamente scritto in perl.
 
http://www.greatcircle.com/majordomo/
Max

>e-mail alterata - per msg privati togliere XYZ<<




Newsgroup: it.comp.lang.perl
Titolo: Perl:: manipolazione delle immagini?

Il perl è in grado di effettuare la manipolazioni delle immagini, come ad
esempio il ridimensionamento?
GRAZIE

 ha scritto nel messaggio
news:oEqk6.8643$qx.2...@news.infostrada.it...


esempio il ridimensionamento?
Esiste un libro interamente su questo argomento:
Programming Web Graphics with Perl & GNU Software della O'Reilly
Perl puo' fare molte cose con i file grafici e la cosa piu'
interessante e' che puo' farlo anche attraverso il web.
Ciao
Dark Wave

 ha scritto nel messaggio
news:oEqk6.8643$qx.2...@news.infostrada.it...


 ha scritto nel messaggio
news:CUF47.108488$cd.6...@news1.tin.it...


Newsgroup: it.comp.lang.perl
Titolo: Form e metodo post

Ho bisogno di uno script da richiamare da una pagina web che contiene
dei form che mi permetta di ricevere in e-mail i form compilati,
on-line. Mi potete aiutare? Rispondete anche in e-mail per favore.
Il sever ha installato WindowsNT e perl 5.0(se non sbaglio).
Ciao. Nicola
-- 
+-O--O-O-OOO-OOOO-O---OOOO----------------------------------+
| OO O O O   O  O O   O  O    IRC NICK: NickTNF (#AmigaITA) |
| O OO O O   O  O O   OOOO    E-Mail: 
ami...@planio.it
      |
+-O--O-O-OOO-OOOO-OOO-O--O----------------------------------+
|                                                           |
| Amiga 1200T 030/50Mhz 68882 50Mhz  8Mb Fast  HD1.7GB      |
| CD-ROM NEC 4x  Modem 33.600bps
| Nicola Pagani - Amiga Group Italy (Taranto)               |
+-----------------------------------------------------------+
--
Posted from 
www.planio.it
 [194.184.79.2] via Mailgate Server - 
http://www.mailgate.org

 Ciao. Nicola
 
Prova con la 
cgi-lib.pl
 io la uso sotto linux, ma dovrebbe funzionare
bene anche sotto 95.
Poi fammi sapere
				Ciao
					Davide

 bene anche sotto 95.
Con Perl 5 e' consigliabile il modulo CGI.pm, che sostituisce
la 
cgi-lib.pl
 che si usava con Perl 4.
-am

Newsgroup: it.comp.lang.perl
Titolo: Interprete Perl

So di suscitare l'ilarità generale, ma qualcuno saprebbe dirmi dove
scaricare o reperire un interprete Perl gratuito per Windows?
Grazie.
Massimo Vacchetto

www.activestate.com
Cerca ActivePerl  5 for Windows
rhymes
rhy...@tiscalinet.it

Newsgroup: it.comp.lang.perl
Titolo: Perl e Servlet Java

Ciao a tutti,
volevo chiedere, per favore, se qualcuno mi potrebbe dire come si possa da
codice Perl chiamare una Servlet Java con alcuni paramentri.
Grazie,
Cris

Cris wrote:

chiamarla tramite l'url della servlet?
se si puoi usare il modulo LWP::UserAgent. leggi il manuale per i dettagli 
di uso.
-- 
Valter Mazzola -  Software/Databases for Enterprise Web Internet Sites
   PHP, Java Servlets, Applets, Jsp, ASP, PERL, Mod_Perl, Apache, IIS.
* 
HTTP://SITIDINAMICI.COM/?nttp
 ----- 
http://italia.LinSwap.com/?nttp
 
Phone:(+39) 347/129-07-16.  Fax:(+39) 02/700-539-403

 --
Grazie, lo faro` al piu` presto.
Cris

Newsgroup: it.comp.lang.perl
Titolo: creare gif o jpg o png. Quale modulo?

Qualcuno mi sa indicare il modulo più adatto a creare gif, jpg o png? Mi
basta di creare figure a due dimensioni dando in ingresso la coordinata x y
e il valore per il colore del pixel. Possibilità di inserire immagine di
background.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 background.
Credo che meglio del modulo GD [1] ci sia poco in giro :D
Ciao,
[1] 
http://search.cpan.org/search?query=GD&mode=module
-- 
.           .  | "...And I am dumb to tell the hanging man
| , ,-. ,-. |  | How of my clay is made the hangman's lime."
|<  |   ,-| |  |                            -- Dylan Thomas
' ` '   `-^ `' |<uggc://jjj.gurqvenpfrn.bet>

Newsgroup: it.comp.lang.perl
Titolo: Cercasi script in cgi per e-mail!!!

Avrei bisogno di uno script in cgi che mandi dei dati, inseriti in dei form,
via e-mail. Chi mi puņ aiutare?

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

Newsgroup: it.comp.lang.perl
Titolo: Domanda da inesperto sul perl

Salve a tutti ho appena intrapreso la programmazione in perl, ho installato
il server apache(e configurato spero bene)  e il perl e poi ho provato a
creare un file 
prova.pl
 che ho inserito nel cgi-bin dell'apache e un file
prova.html che ho messo nella directory htdocs dell'apache contenente un
semplice <a href="cgi-bin/
prova.pl
">
nel momento che clicco sul link però il server apache mi da un errore
malformed header from script. Bad header=<html>Ciao a tutti!</html>:
c:/apache/apache/cgi-bin/
prova.pl
volevo sapere se è dovuto ad una mal configurazione dell'apache o ho
sbagliato a scrivere il listato del file 
prova.pl
il contenuto del file è questo:
#!c:\perl\bin\perl
print "<html>";
print "Ciao a tutti!";
print"</html>";
Qualcuno mi può dare una mano?
Grazie mille

 ha scritto nel messaggio
news:9ohkfk$76l$1...@nreada.inwind.it...


Newsgroup: it.comp.lang.perl
Titolo: Tipo di carattere

Come faccio a cambiare il tipo di carattere in una pagina generata da uno
script in Perl?



in console e' complesso. dipende dall'OS e
dall'ambiente
se per il web, usa i css (non centra con il perl)
Oha
-- 
"Qualcuno mi spieghi perche' 144 e' l'unico
quadrato perfetto della serie di Fibonacci"

...


 La pagina generata è in html...
e allora chiedi ad un gruppo su HTML, non a noi.
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: use strict, cosa strana

Ciao
usando strict ho dichiarato due volte di seguito (nello stesso blocco di
codice) la stessa variabile privata non ottenendo alcun errore.
E' normale ?
Esempio :
if ($expr) {
	my $gino = "Gino";
	... qualcosa
	my $gino = "Pino";
	... altre cose
	}
 Raffaello

 E' normale ?
Si`.
Se attivi anche gli warnings, inoltre, segnalera` che la seconda
dichiarazione maschera la prima.
ciao
Stefano

Newsgroup: it.comp.lang.perl
Titolo: IDE perl sotto linux

Salve a tutti,
volevo semplicemente sapere dai programmatori perl sotto linux/unix
quali (se esistono) ambienti IDE usino.
Sapete... e' *leggermente* scocciante dover scrivere con vi il codice,
salvare, cambiare shell e mandare in esecuzione l'interprete...
Un ide accorcia i tempi di sviluppo di un bel po', secondo me. Senza
contare tutte le altre features che puo' avere (highlighting del codice,
help in linea ecc.)...
Se proprio non esistono ide in circolazione, sapreste mica come si
imposta vi in modo che il [TAB] si sposti di 4 caratteri, l'ideale per
identare i programmi, imo. :)
Grazie in anticipo,
korleon
-- 
cp win3.1 winxp
rm -r doors_,_windows_&_gates
mv gates out_of_windows
mv $$$ antitrust_judge

 salvare, cambiare shell e mandare in esecuzione l'interprete...
La risposta e` vim-perl (ed usare due terminali/console).
Bye,
 Emmanuele.
-- 
Emmanuele Bassi (Zefram)           [ 
http://www.radiance.d2g.com/~zefram
 ]
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

 help in linea ecc.)...
perl l'highlighting del codice, sotto kde, c'è l'advanced editor che ha
questa funzione! :)
Poi, setacciando sourceforge e cercando con Google:
di sicuramente free c'è 
http://www.objectcentral.com/vide.htm
che supporta Perl.
Anche 
http://konst.org.ua/eng/software/motor/info.html
supporta parzialmente Perl.
Poi 
http://perlcomposer.sourceforge.net/index.html
 ma credo ancora
acerbo (e pensato per creare GUI)
Ancora: 
http://sourceforge.net/projects/kpad/
Poi Komodo: 
http://www.activestate.com/Products/Komodo/
che CREDO sia free per scopi non commerciali. Ma non ne sono certo! :)
Oppure 
http://www.solutionsoft.com/perl.htm
 ma pagando $$$
Anche 
http://www.codeforge.com/
 devi pagarlo.

 quali (se esistono) ambienti IDE usino.
Io uso Emacs: se lo lanci da X ha l'evidenziamento della sintassi per il 
Perl. Per testare i programmi li salvo, cambio shell e li eseguo. Emacs 
comunque permette sicuramente di lanciarli senza salvare/uscire/switchare, 
solo che sono troppo pigro per indagare... poi scrivo quasi solo CGI e 
affini, quindi li devo testare via browser. ;-)
        Michele.

 mv $$$ antitrust_judge
il risultato dipende dall'utente che lancia il comando :-(
Newsgroup: it.comp.lang.perl
Titolo: Passare array a una funzione

devo passare due array ad una funzione che li deve confrontare; io ho 
fatto così (tramite reference):
sub conf_array
{
   my ($a1, $a2) = shift;
   ($a1, $a2) = (\@a1, \@a2);
   ...
   ...
}
e sebra che funzioni... è giusto? C'è un modo migliore?
Grazie,
ilp.



Sei sicuro che funzioni?
my ($a1, $a2) = shift;
assegna $a1 al primo parametro passato a conf_array.
$a2 rimane undef
poi saltan fuori 2 array @a1 e @a2 che non si sa dove hai definito;
i reference a codesti array vanno rispettivamente in $a1 e $a2.
Io il confronto tra i due array non lo vedo. :(
 Raffaello

Ok, grazie a entrambi, ecco la funzione:
sub conf_array
{
   my ($refa1, $refa2) = @_;
   my @a1 = @$refa1;
   my @a2 = @$refa2;
   my ( $i, $j );
   my $result = 0;
   for ( $i = 0 ; $i < 4 ; $i++ )
   {
     for ( $j = 0 ; $j < 4 ; $j++ )
     {
       if ( $a1[$i] == $a2[$j] and $i != $j )
       {
         print "\$a1[$i] e \$a2[$j] sono uguali\n";
         $result += 1;
       }
     }
   }
   return ($result);
}
Non mi è venuto in mente niente di meglio (sono un "programmatore" a 
tempo perso)... voi come avreste fatto?
In pratica la sub deve confrontare ogni elemento dei due array, e se ne 
trova due uguali incrementa $result solo se sono in due posizioni 
diverse negli array.
Ciao e grazie,
ilp

 }
Ciao e grazie,
ilp

 varrebbe 0 (primo indice dell'array), e quindi falso.
No, aspetta, continuo a non capire.
Per il primo for abbiamo %A così:
$A{1} = 0
$A{2} = 1
$A{3} = 2
$A{4} = 3
E finisce il primo for.
Ora, nel secondo ciclo for, si incrementa $result se (uno) $A{ $a2->[$i] 
} è un valore diverso da undef e se (due) $A{ $a2->[$i] } è diverso da $i.
Quello che non ho capito è da dove sbuca e che cosa significa $A{ 
$a2->[$i] }

 quel caso non ho capito se vorresti incrementare o meno $result.
No, mi sono dimenticato di scrivere che gli array non possono contenere 
due elementi uguali.

 array quanto di un *riferimento* ad array allora devo usare $a2->[$i]
Sě, sě ,questo č chiaro, perň non ho capito dove hai definito $A{ 
$a2->[$i] }.
Cioč, il valore delle chiavi $A{ $a2->[$i] }, durante il 2° for, qual č?

 durante il primo for, altrimenti defined torna false.
Ok, ho capito.
Grazie!
ilp

>         $A{ $a1->[$i] } = $i;
 >>     }
C'è ancora spazio per un po' di microottimizzazione: si può sostituire 
l'intero ciclo con una sola assegnazione (in realtà sarà perl ad 
effettuare implicitamente il ciclo):
@A{ @$a1 } = 0 .. @$a1-1;
All'aumentare della dimensione dell'array, le 2 soluzioni tendono ad 
equivalersi sul piano velocistico (e quella di Marco è preferibile sul 
piano didattico ;-)
Ciao,
Emanuele.

 il Perl decide che tre sigilli sono troppi e mi manda a fare in culo? :)
In effetti 3 sigilli di seguito non li digerirebbe, ma basta metterci 
una coppia di parentesi e, da non crederci, funziona:
$#{@$a}
(Ce provassero co' Python ;-)
Un saluto,
Emanuele.

 variabile di file di Access su Windows il cui path è in un SQL.
Sai che neanche mi ricordo?
Ma una birra aggratis non si rifiuta mai ;-)

 cenare in modo complicato... anzi, ora posto sulla ml :-)
Vai che te l'appoggio alla grande (fatto ;-)
Newsgroup: it.comp.lang.perl
Titolo: [novizio] scrittura su file con path specifico

Salve a tutti,
  ho appena iniziato (ieri!! perciň, perdonate le inevitabili ingenuitŕ) a
programmare in Perl e ho questo problema:
voglio scrivere una testo su file.
Fin quando ho scritto dando semplicemente il nome del file, tipo:
open(TEMP, '>logDir.properties');
print TEMP "$prop";
dove $prop č la mia stringa, nessun probema: ha creato e scritto il file
nella directory bin del mio interprete.
Ma se specifico un path, tipo
open(TEMP, '>c:\logs\logDir.properties');
print TEMP "$prop";
lo script non crea nulla, sia che il path esista, sia che non esista.
Qualcuno mi potrebbe dire come si puň scrivere su un file in un percprso ben
preciso, magari creando al volo le directoies mancanti nel path?
Grazie,
Andrea

 lo script non crea nulla, sia che il path esista, sia che non esista.
probabilmente dipende dagli slash.
open(TEMP, '>c:\\logs\\logDir.properties');
print TEMP "$prop";
---
Mario Rizzuti

 ha scritto nel messaggio
news:IO599.86622$n04.2...@twister2.libero.it...


 wrote in message
news:ak6aie$rle$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.perl
Titolo: Form ->PDF ...help me

Secondo voi è possibile trasformare i dati contenuti in un Form
in un FILE PDF ???
Vorrei implementare un/una CGI scritta in PERL affinchè crei un filtro
che dato un form prelevi i dati inseriti e li trasformi in un formato
PDF
che andrà poi messo in una directory sul server specifica o meglio
ancora
inviato via email ....
Accetto URL, Suggerimenti, insulti e tutto quello che vi passa per la
testa.... :-)
grazie

 
Ecco un buon punto di partenza:
 
http://search.cpan.org/search?mode=module&query=pdf
In particolare questo mi pare promettente:
 
http://search.cpan.org/search?dist=PDF-Create
Max

Wow ! ora lo scarico e lo guardo...
Non è che hai una qualcosa di test per capire come funge senza perderci
troppo
tempo ??
Magari sul perldoc è scritto bene, ma se c'e' qualcosa che funziona ....è
meglio...


Non c'e' un metodo per prendere i campi di un form ed inviare
una email con attach il file PDF generato con PDF::CREATE ??
Non vorrei scrivere sul server il file.pdf e poi inviarlo via email
in automatico...
Qualche consiglio ??


Se vai al sito 
http://www.pdflib.com
 troverai una libreria più
completa e sicuramente più potente della PDF-Create.
Ciao
Giuseppe


 in automatico...
Premesso che non ho mai usato nè scaricato PDF::Create, mi sembra che
l'unico dettaglio problematico in tutto questo sia la generazione del file
PDF. Una volta che hai il tuo bel file PDF pronto, puoi inviarlo via email
come attchment utilizzando MIME::Lite + sendmail. Quel è il problema?
Max

Il problema è che in questo modo devo :
1. creare il file in una dir del server
2. tramite MIME::Lite prelevarlo ed inviarlo via email
3. Cancellare il file dalla dir del Server
Io vorrei fare :
1. Impostare la creazione del file
2. spedirlo
Senza scrivere sul server...
MA temp che non si possa fare...
Qualche suggerimento ???

Newsgroup: it.comp.lang.perl
Titolo: Quantp è potente InLine?

Salve a tutti, ringrazio nuovamente chi mi ha precedentemente risposto alle 
domande.
Mi ritrovo ora nuovamente in un altor problema.
Ho alcune funzione che devono lavorare molto ma che posso sostituire, penso, 
con delle funzioni C o CPP. Devo sapere se usando il modulo InLine sono 
efficenti come delle librerie XS incluse.
Cioč, quanto sono veloci queste librerie che sembrano essere molto potenti?
Ci sono delle restrizioni particolare nella creazione di funzioni in C?
Grazie mille^^ 

 Ci sono delle restrizioni particolare nella creazione di funzioni in C?
Non ho mai fatto misurazioni, ma a naso direi che Inline dovrebbe 
imporre una piccolissima penalità prestazionale, limitata allo startup, 
di cui probabilmente neanche ti accorgerai.
Ciao,
Emanuele.

Newsgroup: it.comp.lang.perl
Titolo: cancellazione da una stringa del carattere \n

Come faccio a cancellare da una stringa tutti i caratteri \n? Esiste una
funzione del tipo delete(\n)?
Grazie a tutti
Ciao

$stringa=~s/\n//g;
Alex
Davide Minniti ha scritto nel messaggio ...


Newsgroup: it.comp.lang.perl
Titolo: [semi-OT]problemi visualizzazione CGI

Salve a tutti.
Ho creato alcuni CGI in perl, utilizzando,
peraltro, altri script che avevo già pronti.
Ma ho alcuni problemi.
Non sono strettamente legati al perl,
ma, visto che cmq sono cgi in perl,
magari a qualcuno è già capitato qualcosa di simile.
Ho un file principale, chiamato index.cgi,
e altri file richiamati, secondo le necessità, con un require.
Ora tutto sembrerebbe funzionare bene, ma vi riporto alcune casistiche:
* CGI Nel primo server (httpd -v : Apache/2.0.50 su Fedora1)
- il browser visualizza correttamente la pagina
   (la prima volta è un form di login)
   => OK, ma solo con IExplorer 6.
- il browser visualizza il sorgente html,
   => KO, ma solo con Firefox 1.0.8 su linux e 1.0.4 su windows.
* CGI nel secondo server  (apache -v : Apache/1.3.33 (Debian GNU/Linux))
- il browser mi chiede di scaricare il file index.cgi
   (in realtà l'html di output)
   => succede sia con IE 6
    che con Firefox 1.0.8 su linux e 1.0.4 su windows.
Se invece rinomino il file index.cgi in index.htm,
tutto funziona perfettamente,
a prescindere sia dal server che dal client.
in entrambi i server la directory contenenti gli script
è configurata così:
ScriptAlias /miosito/ "/slave/web/miosito/"
<Directory "/slave/web/miosito">
     Options MultiViews
     AllowOverride All
     Order allow,deny
     Allow from all
</Directory>
nella direttiva DirectoryIndex di <IfModule mod_dir.c>
ho anche provato ad aggiungere index.cgi,
ma non è cambiato nulla...
Scusate se l'argomento è un po' OK,
ma spero possiate aiutarmi.
Mille grazie
	Stefano

    che con Firefox 1.0.8 su linux e 1.0.4 su windows.
Qui potrebbe essere colpa di header restituiti male (forse manca il 
content-type=text/html).


Ho provato sia con che senza quell'header,
ma non cambia assolutamente niente.
Credo ci sia qualche problema con apache.
Grazie cmq.
bye ;-)
Newsgroup: it.comp.lang.perl
Titolo: Cercasi Programmatore Perl per modifica script









Stiamo cercando un programmatore con esperienza Perl 
(anche uno studente) per modificare un form (collegato a uno script in perl) 
 sul nostro sito. Il lavoro è ovviamente retribuito. 



 


Si tratta di una 
modifica molto Urgente.


 


Cordialmente 


 


 


RKU 


www.College.ch


 


 



 wrote in 
  message 
NCBBIDDCOKCFAPBGNDKA...@College.ch
...

Newsgroup: it.comp.lang.perl
Titolo: Problema: Connessione ad un database di tipo access sotto Linux

Salve a tutti, sono un newbie di perl. 
sto provando a fare una connessione ad un database di tipo access,
ecco lo script.
#!usr/bin/perl
use DBI;
$dbh = DBI->connect("dbi:ODBC:'driver=Microsoft Access Driver (*.mdb);
dbq=DBRisorse.mdb'", '', '');
solo che appena lo richiamo da riga di comando mi da un errore che non
riesco a capire da cosa possa essere generato, ovvero "Perhaps the
DBD::ODBC perl module hasn't been fully installed, or perhaps the
capitalisation of 'ODBC' isn't right."
Sono sicuro che il modulo DBD:ODBC è stato installato correttamente.
Uso Red-Hat 9.B versione server.
Qualcuno mi sa dire a cosa è dovuto quest'errore? e in caso, cosa
ulteriormente devo fare per far leggere i miei bei database sotto
perl?
azzie a tutti.
linus

 dbq=DBRisorse.mdb'", '', '');
prova senza le '' ed eventuali spazi:
$dbh = DBI->connect("dbi:ODBC:driver=Microsoft Access Driver 
(*.mdb);dbq=DBRisorse.mdb", '', '');
Naturalmente DBRisorse.mdb deve trovarsi nella stessa directory dove fai 
partire lo script.
Se dovesse servire ma non penso, prova a mettere all'inizio del tuo script:
use DBD::ODBC;
per verificare che DBD::ODBC sia installato prova:
perl -MDBD::ODBC -e 'print $DBD::ODBC::VERSION'

 perl -MDBD::ODBC -e 'print $DBD::ODBC::VERSION'
purtroppo ho già fatto la prova che mi hai consigliato, ma senza
risultati decenti, anzi!!!
ho provato a scrivere "perl -MDBD::ODBC -e 'print
$DBD::ODBC::VERSION'"
ma il messaggio generato è il seguente
Can't locate DBD/ODBC.pm in @INC (@INC contains:
/usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0
/usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl
/usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl
/usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0 .).
BEGIN failed--compilation aborted.
a questo punto immagino che devo installare il modulo DBD/ODBC.pm...
se non fosse che già l'ho fatto!
qualche altro suggerimento? 
Grazie ancora.
linus

 se non fosse che già l'ho fatto!
L'hai fatto come?
Fai un find di ODBC.pm sul tuo sistema:
find / -name "ODBC.pm"

Newsgroup: it.comp.lang.perl
Titolo: Guida al modulo CGI

Ciao,
dove posso trovare una buona guida di riferimento (che contenga cioč
l'elenco delle funzioni con relative descrizioni etc.) per il modulo perl
CGI?
Ho trovato varie guide, ma sono tutte molto fumose e non descrivono
sistematicamente tutte le fuzioni della classe CGI.
Grazie!
Stefano

 perl CGI?
Lancia "perldoc CGI". ;)
Ciao,
Marco
-- 
//\/\ Marco (LM) Lamberto
      e-mail:            
marcol...@despammed.com
      SIForge.org     -  
http://www.siforge.org/


prova questa :
 
http://stein.cshl.org/WWW/software/CGI/
Io l'ho trovata molto utile.
Poi CGI e' un modulo abbastanza facile da usare ...
 Raffaello
Newsgroup: it.comp.lang.perl
Titolo: export in file excel

Vorrei scrivere in excel il risultato di una query su una tabella di
un DB. Tutto ciò da un CGI Perl. Lo stesso CGI già prevede l'output in
una tabella HTML mediante l'utilizzo del modulo Template.pm; qualche
idea?
In Java è piuttosto semplice, basta scrivere 
      response.setContentType("application/vnd.ms-excel")
E in Perl? Considerate che nello stesso script voglio continuare a
usare il template per indirizzare l'output in html.
Ciao e grazie
ocap

 usare il template per indirizzare l'output in html.
Beh, immagino che avrai un pezzo di codice che preso il risultato della 
query lo prepara e lo passa al template. Ti basterà fare una procedura 
simile con un'altra funzione che prende lo stesso risultato e lo prepara e 
scrive nel "worksheet" creato dal modulo WriteExcel.

 usare il template per indirizzare l'output in html.
Per il resto, Spreadsheet::WriteExcel è il modulo che serve a te, disponibile su
CPAN (
www.cpan.org
) e ben documentato.
by
	- Enrico
--- have fun with 
www.perl.it
 ---

 Lo trovo molto comodo e facile da usare.
Concordo, molto ben documentato e con un mucchio di esempi. Unica 
attenzione, per utilizzare le funzioni in italiano (arrotonda, etc), una 
volta installato il modulo, bisogna sostituire le formule in inglese con 
quelle in italiano generate con 
function_locale.pl
 (prima di 
accorgermene ci ho perso un po' di tempo).

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

salve,
vorrei imparare il perl, ma non so da dove cominciare,
qualcuno di voi conosce qualche buon libro (abbastanza economico) oppure
qualche sito su internet che insegni le basi del perl?
grazie mille,
dever
--
----------------------------------------------------------
La vera rivoluzione e riuscire a vivere restando puliti.
----------------------------------------------------------


Per vedere i post corrispondenti a questi ID, usa
http://google.groups.com
. Vai nella form "Advanced Groups Search",
incolla la stringa nel campo ID e poi premi 'Search'.
ciao
Stefano


ciao grazie mille!
d.
ps se ho problemi posso stressare voi del ng? :)

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

Ho un problema.
Ho creato una semplice routine che moltiplica una quantità per un
prezzo.
Sul mio server nessun problema. Sul server di rete quando viene
visualizzato
il risultato compaiono esponenziali. Come posso risolvere il problema?
Come si usa sprintf???
Grazie per l'aiuto!!!
Roberto

Come si usa sprintf???
Se ad esempio vuoi lasciare solo due decimali dopo la virgola usa:
$num2 = sprintf "%.2f", $num;
Se vuoi solo la parte intera:
$num2 = sprintf "%d", $num;
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/
Newsgroup: it.comp.lang.perl
Titolo: appunto al precedente

mi sono dimenticato di dire che ovvimente posso definire le dimensioni dela
table in html ma ho dei problemini col perl. il quale, ogni volta che setto
le dimensioni di un oggetto in html...mi da degli errori di compilazione,
dicendomi che trova il numero dove si aspetta un operatore. Causa priorita'
non ho mai dedicato attenzione alla risoluzione dui qs problema che adesso
pero' e' divenuto fondamentale;-[..
grazie
fabio


La palla di cristallo e' a fare il tagliando, quindi senza codice non ti si
puo' aiutare.
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: Autenticazione con pwd uguale a quella di sistema

Vorrei usare la funzione getpwuid per autenticare un utente con un cgi.
La password deve coincidere con quella di sistema.
Il problema è che con il file di shadow mi da sempre x come password, quindi
basta mettere x e si entra nel mio cgi.
Come devo fare? Ho visto che i cgi del cobalt lo fanno, ma non so come!

Ettore wrote:

intanto per poter leggere il file delle passwd (a meno che i permessi in 
tale file siano diversi da 400) devi lo sript deve avere il setuid attivo e 
come owner root
ecco un esempio:
sub checklogin {
   my ($passwdfile, $username, $password)=@_;
#gli argomenti da passare come si vede chiaramente
#sono il nome del file delle passwd, l'username e la passwd
   return 0 unless ( $passwdfile && $username && $password );
#ritorna 0 se manca uno degli argomenti
   open (PASSWD, $passwdfile) or return 0;
   while (defined($line = <PASSWD>)) {
      ($usr,$pswd) = (split(/:/, $line))[0,1];
      last if ($usr eq $username);
   }
   close (PASSWD);
   if ($usr eq $username && crypt($password,$pswd) eq $pswd) {
#qui confronta il tuo username con quello nel file
#e cripta la tua passwd con i primi due caratteri di quella presente 
#nel file facendo il contronto,
#se tutto va' bene ritorna 1
      return 1;
   } else {             # User/Pass combo is WRONG!
#altrimenti ritorna 0
      return 0;
   }
}
per quanto riguarda il setuid, io ho avoto qualche prob col kernel 2.2.14 
di mandrake 7.1, ma nessuno con il 2.4.x di mandrake 8.0
ricordati di controllare il setuid dopo ogni salvataggio del file
Spero di esserti stato utile
Newsgroup: it.comp.lang.perl
Titolo: LWP e URL sicure...

Ciao!
Spulciando la documentazione di LWP *parE* supporti le URL SSL. Se tuttavia
lancio il seguente script:
-----
#!/usr/local/bin/perl5
use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 " . $ua->agent);
my $req = new HTTP::Request GET =>
  '
https://ssl2.pair.com/showeb/skm/bin/ssay.html
';
my $res = $ua->request($req);
if ($res->is_success) {
  print $res->content;
} else {
  print "Non funziona!\n";
}
-----
Mi compare "Non funziona". Sostituendo alla URL sicura una URL normale, tutto
OK.
Suggerimenti?
	Grazie, Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

   accessing such URLs.
Hai il modulo di interfaccia SSL indicato da README.SSL? Perche' se non ce
l'hai e' ragionevole che lo script non funzioni.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

> [...]
In lwpcook non ho nulla che riguardi HTTPS (ho a disposizione libwww-perl
5.21), mentre in "perldoc LWP" ho:
-----
HTTPS Requests
HTTPS requests are HTTP requests over an encrypted network
connection using the SSL protocol developed by Netscape.
Everything about HTTP requests above also hold for HTTPS
requests.  In addition the library will add the headers
"Client-SSL-Cipher", "Client-SSL-Cert-Subject" and
"Client-SSL-Cert-Issuer" to the response.  These headers
denote the encryption method used and the name of the
server owner.
-----
che non contiene alcun riferimento a README.SSL, che infatti non ho.
Spulciando pero` in un README generico ho pero` notato che effettivamente
mi mancano alcuni moduli per SSL, che ora mi procurero`. ;)


 mi mancano alcuni moduli per SSL, che ora mi procurero`. ;)
README.SSL parla di Crypt::SSLeay oppure IO::Socket::SSL (anche se
Crypt::SSLeay e' quello raccomandato, perche' viene usato da LWP in maniera
trasparente.


Non so a che punto quella frase possa essere apparsa in lwpcook.
Ok, grazie 1000. Volevo solo dimostrare che avevo letto i doc prima
di chiedere. ;-) 


 di chiedere. ;-) 
Mi fido, mi fido... :)


Newsgroup: it.comp.lang.perl
Titolo: Vendo manuali java,perl, web..

Vendo:
-"Perl" - Apogeo, 1996
-"Teach yourself Perl 5 in 21 days -2nd edition" - Sams Publishing ,1996
-"Teach yourself INTRABUILDER in 21 days" - Sams p. ,1997
-"Teach yourself Active Web Database in 21 days" - Sams p. ,1997
-"Special edition Using VBScript" - QUE, 1997
-"Javascript" - McGraw-Hill, 1996
-"VRML" - Apogeo, 1995
-"Web programming" - Sams, 1996
-"Il mio server web" - Apogeo,1995
-"Internet per aziende" - Apogeo, 1995
-" Pubblicità e business internet" - Buffetti editore, 1996
-"Sesto Potere" - Apogeo, 1997
-"Fare marketing con internet" -  Apogeo, 1998
-"Sito web in Windows NT" - McGraw Hill, 1996
-"Html vers.3.2 -Guida Completa" - Apogeo,1997
più altri libri (pianificazione aziendale, comunicazione per l'impresa,
ecc...)
se interessati inviare un e-mail
alessandro


Newsgroup: it.comp.lang.perl
Titolo: damandina su conversione automatica

Salve a tutti,
	ho un problema con la conversione in perl da stringa a numero.
Ho un file del tipo:
DATA;OPERAZIONE;EURO;CAUSALE
19.02.2003;VERSAMENTO;100,34;078
22.9.2003;PRELEVAMENTO;-100,99;067
Sto facendo un programmino che metta questi dati automaticamente in db
in sqlite.
Il problema è che probabilmente importa i numeri positivi come numeri
mentre quelli negativi come stringhe poichè quando vado poi a fare una
query con gli "euro"<0 non trova nulla.
Allora ho pensato di fare una cosa del genere:
$euro=$euro+0,00;
o anche
$euro=$euro+0.00;
In entrambi i casi lui si accorge favorevolmente che sono dei numeri
perchè le query funzionano ma mi mozza i due decimali per ogni cifra.
In altre parole la tabella risultante in sqlite viene del tipo
DATA		OPERAZIONE	EURO	CAUSALE
19.02.2003	VERSAMENTO	100	078
22.9.2003	PRELEVAMENTO	-100	067
Qualche ideuzza?
-- 
nathanvi
ICQ --> 20318568
mail --> vitto.z A_T 
tiscali.it

Qualche ideuzza?
Come speri che qualcuno possa anche lontanamente ipotizzare di pensare di
risponderti, se non fornisci neppure un minimo accenno su come estrai i
dati dal file e come li inserisci in sqlite?
Una breve lettura delle carte con FreeCell, comunque, suggerisce che il
problema potrebbe essere la virgola come separatore decimale. Leggi
perlocale, o prova a sostituire brutalmente le virgole con punti nei campi
numerici.
Ciao.

 campi numerici.
Purtroppo non ho freecell perchè non sono un felice utilizzatore di
windows come te...
Ad ogni modo speravo che la mia soluzione potesse automaticamente
convertire la stringa da testo a numero in questo modo sempre per il
discorso che il perl è "contestuale".
Ho provato con
$euro=$euro+0,00;
e anche con
$euro=$euro+0.00;
Se ciò non è possibile e, come dici, è necessario sostituire la virgola
con un punto direttamente quando prelevo i dati dal file di testo lo
provo subito. L'unica cosa che mi sembrava strana è che i valori
positivi vengono riconosciuti e quelli negativi no.
Ma forse per questo dovrei installare wine e poi freecell.
Grazie,
	nathanvi


 Qualche ideuzza?
Ma se provi a inserire dei numeri con dei decimali questi ti vengono visualizzati?
Nel caso ti vengano visualizzati è colpa del database temo...
Cioè tronca automaticamente i decimali uguali a 0 dopo la virgola.
Altro suggerimento: prova a definire i campi per i decimali con sprintf, forse funziona. 
ciao
Lorenzo
-- 
pub  1024D/0EC8A3D4
Key fingerprint = C066 409C 9986 351A 0DE3  43F5 FFFD 3FD8 0EC8 A3D4

discorso che il perl è "contestuale".
Può pure essere (anche se la contestualità del perl c'entra per poco, e
bisognerà riferirsi piuttosto alla localizzazione automatica, e anche se
una prova sul mio sistema mostrerebbe il contrario), ma siccome qualcosa
dici che non va, quello era un candidato probabile, ipotizzando che il
problema fosse nell'interpretazione dei dati da parte di perl.
Ciao.

 Linux.
WOW hai ancora ragione.
Ecco il link per freecell per linux e il relativo solver!!
http://www2.giganet.net/~nakayama/index.html
http://vipe.technion.ac.il/~shlomif/freecell-solver/
Grazie ancora,

Newsgroup: it.comp.lang.perl
Titolo: Help Me

Come faccio in PERL a:
leggere un file, trovare un parametro e modificarlo
(riga col parametro: "data                             20000816")
cioč quando trovo 'data' devo modificarla con una che ho calcolato
precedentemente ex '20000817'
Ciao e Grazie




In cosa non funziona il tuo programma?
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: mod perl come inizializzare

qualcuno mi sa dire come si inizializza uno script per lavorare con mod
perl 1.0.
serve qualche 'use' in testa?
grazie
franco
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************

 serve qualche 'use' in testa?
No. Ma occorre fare un po' di chiarezza considerando i seguenti due casi.
1. Se per script intendi uno script Perl esistente, già funzionante in ambiente
CGI tradizionale, nulla deve essere fatto lato script, se non quello di 
verificare alcune cose come un attento utilizzo di variabili globali che in 
mod_perl, essendo un ambiente 'persistente', si propagano nelle invocazioni 
successive del medesimo script, il che a volte potrebbe essere un effetto 
indesiderato!
Lato server Web invece vanno aggiunte un po' di direttive relative 
all'attivazione del mod_perl stesso ed alla configurazione di Apache::Registry
(interprete Perl embedded + script compilato la prima volta e cachato per le 
invocazioni successive) o Apache::PerlRun (interprete Perl embedded solamente) 
come handler dei tuoi script.
2. Moduli mod_perl. In tal caso occorre prima documentarsi sull'interfaccia 
Perl della API Apache [...]
Punti necessari di partenza per entrambi i casi:
 o Writing Apache Modules with Perl and C (della O'Reilly)
 o 
http://perl.apache.org
 o 
http://perl.apache.org/docs/1.0/guide
by
	- Enrico

Newsgroup: it.comp.lang.perl
Titolo: Lettura file

Come faccio ad esempio leggere la riga 6 del file con nome logico UTENTE e
associare la variabile $variabile a tale riga?
Grazie in anticipo per le risposte.

 associare la variabile $variabile a tale riga?
[root@fokhouse /tmp]# cat 
riga.pl
#!/usr/bin/perl -w
$numriga = 6;
$count = 0;
open(F, "UTENTE");
while (<F>) {
        if (++$count == $numriga) {
                $variabile = $_; last;
        }
}
close(F);
print "La $numriga^ riga contiene: $variabile";
[root@fokhouse /tmp]#
Ciao ciao,
Andrea
-- 
"...Unix, MS-DOS, and Windows NT (also known as the Good, the Bad, and 
 the Ugly)."
(by Matt Welsh)

Newsgroup: it.comp.lang.perl
Titolo: inserimento password

Ciao,
ho uno script perl ,diciamo newuser, che mi deve permettere di creare un
nuovo utente con password da inserire in un file.
La procedura sara' questa
newuser pippo <enter>
(vado a controllare che non esista gia' e fin qui va bene..)
Inserisci password: pluto <enter>
Re-inserisci password: pluto <enter>
(se ho inserito due volte la stessa password, che in genere non si dovrebbe
vedere ma a me va' bene lo stesso, allora inserisco nel file
"pippo:pluto\n")
Il mio problema e' come implementare il meccanismo di inserimento delle
password.
Se leggo da STDIN per terminare l'immissione dovrei CTRL Z, penso...
grazie per l'aiuto
MArio

Ok,
chop ($password = <STDIN>);
funziona benissimo, grazie lo stesso.
MArio
Newsgroup: it.comp.lang.perl
Titolo: ** AIUTO - Urgente !!! **

Come faccio a fare una pagina HTML con un bottone submit
e una casella di testo che quando premo submit, tramite lo script, mi salva
in un file il contenuto della casella di testo e la volta successiva fa la
stessa cosa mantenendo il contenuto di prima ??
Ciao e grazie,
Giovanni



Cosa c'entra questo con Perl?
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 Maurizio
Lo voglio fare usando Perl..
Ciao,
Giovanni

Newsgroup: it.comp.lang.perl
Titolo: perl smtp socket

Salve a tutti,
Ho letto cercando se esisteva gia una riposta al mio quesito ma mi sa che è
un po' troppo specifico. Scrivo cmq:
Dunque...
Ho fatto uno script che da un file di testo prende una mail,
apre un socket smtp,
verifica attraverso il DNS se l'utente e l'host esistono,
poi effetua la spedizione.
scrive su un file di testo se è ok oppure no la spedizione.
Tutto funziona a meraviglia tranne una cosa:
Il programma che va in background si addormenta per 10-15 minuti senza
spiegazione. Nel file di  report trovo dei periodi di innattività. Poi come
per magia riprende come che niente fosse.
Qualcuno sa dirmi da cosa può dipendere questa sonnolenza improvvisa?
Grazie a tutti Saluti Lorenzo Sicilia
--
[moderatore] it.comp.appl.macromedia
----------------
www.kemen.it
web-solution
----------------

che dipenda dal timeout per trovare l'esistenza del dominio/destinatario?
--
Ciao
The Bos
the-bos#
axelweb.com
http://the-bos.axelweb.com

 che dipenda dal timeout per trovare l'esistenza del dominio/destinatario?
puň essere ma mi servirebbe qualcosa di piů a livello anche di test da
poter effetture. Se fosse il DNS non ho modo per velocizzare con qualche
arguzia. Perchč il programma va in sleep anche fino a 15'. Qualsiasi DNS sul
pianeta mi direbbe qualcosa prima...oppure no?


 pianeta mi direbbe qualcosa prima...oppure no?
non sono assoluamente un esperto, ma se da qualche parte č settato che
aspetti 15' o che riprovi per 15' puň essere..
per vedere se č questo potresti a logica tentare di "anticipare" il bug
tentando di mettere un timeout entro il quale ricevere risposta dal dns..
perň, ti ripeto, non sono per niente un esperto.


 poi effetua la spedizione.
Come si fa verificare l'esistenza di un destinatario attraverso il DNS?
-- 
Saluti,
Giancarlo

 Come si fa verificare l'esistenza di un destinatario attraverso il DNS?
Tramite il DNS, raggiungi l'host SMTP tramite il quale verifichi se
l'utente esiste (sempre che il MTA lo faccia fare!) 
Evidentemente era ermetismo! :-)
:-))
Ciao
--ev
Newsgroup: it.comp.lang.perl
Titolo: Perl....avrei bisogno di aiuto (un pò lunghino)

Ciao a tutti del newsgroup, cercherò di farla il più breve posssible,ho
aperto uno spazio web su Libero e vorrei usare uno script Perl per gestire
il counter e visto che libero non ti permette di usare i CGI ho aperto anche
un spazio su 
www.mycgiserver.com
 dove risiede lo script che funziona bene,
la domada é posso nella mia homepage su libero in inserire un comando che
chiama la script su 
www.mycgiserver.com
 e lo esegue e poi io mi collego a
www.mycgiserver.com
 e vedo i risultati dello script ?
Se dal mio Browser lancio la pagina
http://www.mycgiserver.com/~nomeutente/script.pl
 tutto funziona a meravgilia
a questo punto pensavo di inserire la stringa
http://www.mycgiserver.com/~nomeutente/script.pl
 nella mia home page ma
essendo alla prime armi con HTML non sò se questa cosa si può fare e
sopratutto come si può fare.
Grazie a chiunque mi darà una mano.
Ciao Steve
--
Visita la Home Page dei Clandestino
Progetto Musicale d'Insieme
http://digilander.iol.it/iclandestino
icland...@libero.it
--
Visita la Home Page dei Clandestino
Progetto Musicale d'Insieme
http://digilander.iol.it/iclandestino
icland...@libero.it

 questa cosa si può fare e sopratutto come si può fare.
  Certo che si puo` fare: basta creare una pagina di indice "vuota" che
chiami immediatamente l'URL dello script come in qualsiasi gruppo sul
web authoring ti possono spiegare. Ok, la tua domanda sul Perl e`?...
	Alla prossima,
		Marco

 ha scritto nel messaggio
news:39747FC4...@bar.va...


*Dovrebbe* bastare (non so' se funziona) una roba del genere (in
http://digilander.iol.it/mioweb/index.htm
):
<HTML>
<HEAD>
	<TITLE>a Title</TITLE>
	<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
	<META NAME="resource-type" CONTENT="document">
	<META HTTP-EQUIV="refresh" CONTENT="0
;URL=
http://www.mycgiserver.com/~nomeutente/script.pl
">
</HEAD>
<BODY>
</BODY>
</HTML>
Comunque la risposta di Marco era uno modo (ironico) per farti capire che la tua
domanda c'entra poco con il Perl (vedi subject del tuo post) e quindi e' un po'
OT per questo NG (spero di aver interpretato giusto la risposta di Marco)
Ciao
Marcello

Newsgroup: it.comp.lang.perl
Titolo: Inserzione in array, ............. ma con moderazione !!!!

Gentilissimi...
data una serie di stringhe:
.....
aaaa,1,ggggggg,......,aggdhg
bbbb,1,ggggggg,......,aggdhg
ccc,1,ggggggg,......,aggdhg
eeeee,1,ggggggg,......,aggdhg
.......
......
aaaa,1,ggggggg,......,aggdhg
eeeee,1,ggggggg,......,aggdhg
.....
....
ccc,1,ggggggg,......,aggdhg
.......
....
etc ...
vorrei inserire i primi valori di ciascuna stringa, all'interno di un array.
Questo array dovrebbe memorizzare il campo (es. ccc oppure eeeee oppure
bbbb,...) fin tanto che incontra elementi nuovi; ovvero ,dovrebbe aumentare
la sua dimensione solo se incontra elementi nuovi.
L'array dovra' servire per altro uso .
Io pensavo a questo listato:
while(DB){
     $str = <DB>;
     chop $str;
     $d = $str;
     $str =~ s/\"(\w+.\w+)\"/$1/;
     $t = $1;
     for($i= 0;$i< scalar @titolo;$i++){
          if ($titolo[$i]ne $t){
              @titolo = (@titolo,$t);
          }
 next;
 }
ma la memorizzazione di nuovi elementi non si ferma, se il nuovo successivo,
č gią contenuto uguale al interno dell array: la routine continua ad
ingrandire a dismisura la dimensione dell' array stesso.
Grazie per la pazienza !!!
Simon

 ,dovrebbe aumentare la sua dimensione solo se incontra elementi nuovi.
io farei cosi':
while (<DB>) {
        @temp=split /,/;
        $hash{$temp[0]}++;
}
@titolo=keys %hash;
L'unico problema, ma non so se sia grave per te, e' che perdi l'ordine 
che avevi nel file.
-- 
Saluti,
Giancarlo

Newsgroup: it.comp.lang.perl
Titolo: split con variabile

ciao
ho provato a fare
my $separatore = "\|";
# my $separatore = '|';
my @alfa = split(/$separatore/,$a);
ma non funge.
Posso mettere variabili nelle regexp ?
 Raffaello

 my $separatore = "\|";
o '\|'
oppure "\\|"
Newsgroup: it.comp.lang.perl
Titolo: Divisione di un file

Dovrei dividere in piu' parti un file ma mi sono arenato.
Praticamente e' cosi' fatto:
 FB.................
 10..................
 20...................
 30.................
 40..................
 ecc...
 EF..................
 FB.................
 10..................
 20...................
 30.................
 40..................
 ecc...
 EF..................
 Praticamente dovrei spezzarlo in modo da creare piu' files singoli in
 questo modo
 FB.................
 10..................
 20...................
 30.................
 40..................
 ecc...
 EF..................
 
Ogni singolo file deve iniziare con la riga FB ed avere come ultima riga
quella che inizia con EF
Suggerimenti?
Tnx
-- 
Lorenzo Pulici - 
webm...@milanohockey.com
 
http://www.milanohockey.com
 
MILANOHOCKEY.COM
 - Tutto l'hockey su ghiaccio di Milano

quella che inizia con EF
[untested]
open(FH, ">default");
while(<>)
{
	print FH $_;
	if(/^EF/)
	{
		close(FH);
		while(/^FB/)
		{
			$_=<>;
		}
		open(FH, ">$_");
		print FH $_;
	}
}
Oha
-- 
"Qualcuno mi spieghi perche' 144 e' l'unico
quadrato perfetto della serie di Fibonacci"

 open(FH, ">default");
Molte grazie, provo poi ti dico :-)


 Dovrei dividere in piu' parti un file ma mi sono arenato.
[ snip ]
Potresti provare qualcosa del genere:
my $name = "spezzato000";
while (<>) {
        open OUT, ">".$name++ if /^FB/;
        print OUT;
}
close OUT;
Ciao ciao,
Andrea
-- 
"...Unix, MS-DOS, and Windows NT (also known as the Good, the Bad, and 
 the Ugly)."
(by Matt Welsh)

Newsgroup: it.comp.lang.perl
Titolo: .htaccess come fare !!!!

Salve,
qualcuno di voi sa indicarmi se ed in caso affermativo come, si possa
tenere traccia utilizzando una cgi od altro, degli accessi in aree
riservate di un sito.
Intendo dire aree con password d' accesso, con utilizzo del file
htaccess.
Vorrei creare un log-file con tutti i dati reperibili dell' utente per
poter effettuare controlli e statistiche.
Comprendo che forse la cosa non sara' facile da spiegare ma vi chiedo
se e' possibile restare ad un livello di spiegazione tale da essere
compreso da un "non esperto", eventualmente usate esempi o links
di approfondimento.
Anticipatamente ringrazio.

 
Non so bene cosa c'entri perl, ma comunque:
il tuo webserver mantiene gia' un log di tutti gli accessi quindi
basta postrocessare il file di log.
Onde non reinventare la ruota, ti suggerisco di cercare un programma
chiamato wwwstat -- in perl, sorpresa!! pero' non ho sotto mano la url
-- che lo fa gia', e di personalizzare quello.
Cheers,
	Alessandro

Saluti.
