mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Settaggi del server e argomenti dello script

Salve sono un newbuy, ho realizzato degli script in perl, ma ho dei problemi
a configuare il server (NT):
1) non riesco a far eseguire gli script autonomamente, cioč se voglio che
venga attivato lo script 
pippo.pl
 tramite un link, non posso fare
HREF="
http://www.mioindirizo.it/pippo.pl
" ma sono obbligato a scrivere
HREF="
http://www.mioindirizzo.it/perl.exe?pippo.pl
"
2)ho realizzato degli script in cui si leggono anche gli argomenti:
es. 
pippo.pl
 uomo donna bambino
quale sintassi devo usare per farli funzionare da server?
grazzzie in anticipo

 
Ugh!
i) togli perl.exe dalla document root, e' un buco di sicurezza piu'
cospicuo del titanic.
ii) Consulta la documentazione del tuo WebServer. Se e' IIS, per dirgli
che i .pl vanno eseguiti da perl bisogna modificare una chiave,del
registry
(ora non ho il riferimento).
Cheers,
	Alessandro


HREF="
http://www.mioindirizzo.it/pippo.pl?uomo&donna&bambino
"

 grazzzie in anticipo

Grazie dell'aiuto!

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

Ciao a tutti!
Ho da poco scoperto il Perl.
Vorrei sapere se tramite il Perl è possibile accedere ad un database Access
(.mdb).
Grazie di tutto
    Johnny
-- 
Posted from 
mail-4.tiscalinet.it
 [195.130.225.150] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Mi accodo....
So che bisogna usare un modulo DBI ma vorrei un esempio per capire
meglio....
Grazie


wrote:

Ciao e grazie per l'aiuto
Ho messo in allgato un file d'esempio con il file di partenza e quello
che dovrebbe essere il risultato (naturalmente è un po' tagliato per
diminuirne le dimensioni)...

http://www.wdvl.com/Authoring/Languages/Perl/PerlfortheWeb/index6.html
Claves do Amaral
Newsgroup: it.comp.lang.perl
Titolo: Espressione regolare

*** post for FREE via your newsreader at 
post.newsfeed.com
 ***
Devo realizzare un controllo su una stringa del tipo:
123%09456TA789 in modo da dividerla in due sottostringhe
divise dai caratteri %09 (decodifica di spazio) per poi assegnare i due
valori a due variabili differenti?
In questo caso sarebbe
var1=123 e var2=456TA789
Potete aiutarmi??
 -----= Posted via Newsfeed.Com, Uncensored Usenet News =-----
http://www.newsfeed.com
 - The #1 Newsgroup Service in the World!
-----== 100,000 Groups! - 19 Servers! - Unlimited Download! =-----
 

 Potete aiutarmi??
my ($var1, $var2) = split /%09/, $tuastringa;
-S.


 my ($var1, $var2) = split /%09/, $tuastringa;
Non so` se si vede correttamente(io non lo vedo bene) ma ci sono degli 
slash che racchiudono %09.



Non funziona, il logè il seguente:
Can't declare hash element in "my"
Mi aiutate?


 Non funziona, il logè il seguente:
Impossibile ho fatto cut & paste da terminale e me funzionava.
Hai messo %09 fra / ?
-S.


Can't declare hash element in "my"
mi piacerebbe proprio vedere il codice che lo genera, non è che si tratta
di un cgi e, hai visto mai, la stringa viene passata allo script con il
"%09" riconvertito in "\t"?
Il tutto giusto come esperimento di chiaroveggenza, s'intende (all'ultimo
controllo le mie capacità psioniche erano al di sotto della soglia
misurabile, ma non mi sono ancora del tutto arreso), perché altro davvero
non si può fare.
Ciao.

 ha scritto nel messaggio
news:6qas80db5d90guk75...@4ax.com...

OK sbagliavo!
Funziona correttamente.
Tante grazie

Newsgroup: it.comp.lang.perl
Titolo: Mail con Attach

Ciao a tutti,
so che molti di voi avevano già risposto a chi gli aveva posto questa
domanda: Come posso inserire file in attach in una email?
Ecco, il mio problema è proprio questo. Ho provato ad inserire i moduli
MIME::Lite ma il mio server non mi permette l'installazione.
So anche  che qualcuno aveva già postato un codice perl per inviare attach
senza utilizzare moduli aggiuntivi.
Il problema e che ho formattato il PC e non sono arrivato a leggerla. Potete
inviarmela per email in versione completa??
Questo è il mio indirizzo mich...@NOSPAMtiscalinet.it (togli NOSPAM
dall'indirizzo prima di rispondermi).
Ringrazio anticipatamente.

...

Newsgroup: it.comp.lang.perl
Titolo: Esiste un runtime "vero" per testare i CGI in perl su Windows95?


< 
in...@scicli.com
 >
Gamma Informatica
< 
http://space.tin.it/internet/smiccich
 >
< 
http://www.geocities.com/SiliconValley/Vista/3044
 >
Reply to: 
salv...@tin.it
or 
ga...@scicli.com
 or 
tu...@geocities.com
)
_____________________________________________________

...

Ciao Salvo. Non capisco perchè non ti funzionano gli script perl sotto
Sambar.... a me funzionano perfettamente e li testo proprio così, in locale
sulla mia macchina. Faccio delle form e poi invio i dati agli script. O
forse non ho capito bene la tua domanda? Fammi sapere. :)
Nenè

...



Ciao Salvo... dunque.... sperando di non dispiacere gli altri con questo OT
su Sambar, ti dico che puoi tranquillamente fare una o più directory sotto
/cgi-bin, e gli script funzionano tranquillamente, come ho già verificato.
La documentazione Sambar dice, infatti: "The Sambar Server requires all CGI
scripts to be placed in a CGI directory specified in the configuration file.
While this directory may have sub-directories, the root for all CGI scripts
must be fixed (cgi-bin by default)."
Il limite di questa operazione è, appunto, che tutte le directory dove
eseguire gli script, siano figlie della directory /cgi-bin. Al massimo
potresti specificare UNA directory madre diversa da /cgi-bin agendo nel
config.ini di Sambar: nella sezione "[http]" modifica il parametro "CGI
Directory". Io non ci ho provato, ma suppongo che funzioni. Fammi sapere se
hai altri problemi.. :) Ciao!
Nenè
*Nenè, l'uomo incinto! Controllare la mia panza per ulteriori informazioni*

/cgi-bin, e gli script funzionano tranquillamente, come ho già verificato.

Newsgroup: it.comp.lang.perl
Titolo: Librerie PERL per NT Server

Utilizzo NT Server e ISS 4.0. Avrei bisogno di alcune librerie perl..
dove è possibile scaricarle???

 wrote:
: Utilizzo NT Server e ISS 4.0. Avrei bisogno di alcune librerie perl..
: dove è possibile scaricarle???
Esiste una rete di server che archiviano tutti i moduli Perl
disponibili, Comprehensive Perl Archive Network, CPAN in breve.
Il master e` 
ftp.funet.fi
, il sito italiano e` 
ftp://cis.utovrm.it/CPAN/
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E

 dove è possibile scaricarle???
Prova 
http://www.perl.com
-- 
One standard to rule them all, one standard to find them,
One standard to bring them all, and in darkness bind them.
In the land of Microsoft, where the Shadow lie.
Alessandro Forghieri              
http://www.orion.it/~alf

Newsgroup: it.comp.lang.perl
Titolo: funzione da newbie

Ciao, ho un router con cui voglio comunicare, telnet tramite perl.
Come User basta dare invio ("\n")
come password c'é la password, anche se come argomento alla funzione
fornisco la password corretta, nella variabile $risposta ottengo un bel
'Invalid Password".
Secondo voi ci possono essere dei problemi di crittografia oppure sbaglio il
codice?
Una volta ho sniffato il traffico router<-->mioIP durante una autenticazione
via telnet..e mi pare di ricordarmi che la PWD non passa in chiaro...perņ
poi mi sono detto, sempre di protocollo telnet si tratta, quindi se il
telnet di windows mi fa autenticare, lo dovrebbe fare anche la libreria di
perl no?
Per favore mi date una manina ?:o)
Nubbiuo, di seguito il codice
#!C:/perl/bin/perl.exe
use Net::Telnet;
provapwd("password");
print"password trovata? : $connessione \n";
sub provapwd {
   $t = new Net::Telnet;
   $t->open("10.0.0.138");
   $t->waitfor('/User :.*$/');
   $t->print("");
   $t->waitfor('/Password :.*$/');
   $t->print("$_[0]");
   $t->print("\n");
   $risposta = $t->getline;
   print"$risposta";
   if ($risposta='Invalid Password')
       {
       $connessione=0;
       }
   else
       {
       $connessione=1;
       }
}

perl no?
Puoi provare con il modulo Authen::SASL. La condizione user nullo però è un
po' curiosa, non so se va.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: Decodifica quoted-printable

Salve,
Ho dei problemi nella decodifica di messaggi in quoted-printable, usando il
modulo mime::quotedprint.
Premetto che sto lavorando sotto windows nt..... Il problema dovrebbero
essere i caratteri cr/lf che penso siano codificati in modo diverso sulla
piattaforma che ha inviato il file.
Qualcuno conosce una soluzione?
Ciao,
  Antonello De Santis

Come sempre... usa le Regular Expression! ^____^o
Come tu saprai Windows e DOS considerano un a-capo ad ogni sequenza cr/lf che
incontrano
Per Unix e Linux l'a-capo si posiziona in corrispondenza dei lf
Nei sistemi Apple, infine, l'a-capo è il carattere cr
quindi scordati di leggere il messaggio riga per riga, dovrai aprirlo in
modalità binaria e sostituire (sostituire = Regular Expressions!) tutti i cr/lf
e i cr in lf, ad esempio (questo se lavori con i lf e basta, sennò... beh hai
capito da te, no? ^______^o)

Newsgroup: it.comp.lang.perl
Titolo: Consiglio per un principiante...

Io ho Perl Builder 1.0 per windows. E carino peccato che è in inglese. 
Purtroppo è a pagamento però sul sito 
www.solutionsoft.com
 si trova la 
versione trial 14 (mi sembra).
Naturalmente se si cerca bene c'è anche un crack. Io ho trovato il crack, 
se ti serve puoi scrivermi e te lo spedirò via email.
Ciao :-----))))))))
-- 
Posted from [213.158.72.4] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 versione trial 14 (mi sembra).
È disponibile anche la versione 2.0.
Ciao Marco

 > È disponibile anche la versione 2.0.
Si ma non ho trovato il crack
-- 
Posted from [213.158.72.35] 


> Si ma non ho trovato il crack
Esiste qualcosa, una specie di crack, sul sito:
http://site.oxta.net/db/list.php3-let=p&page=5.htm
Ciao Marco

Newsgroup: it.comp.lang.perl
Titolo: far ricordare le password

Chi mi sa dire dove trovare uno script in perl che faccia questo:
- Nel caso in cui un utente di un sito si scordi la propria password, il
sito gliela deve spedire automaticamente all'indirizzo di posta elettronica
che aveva specificato durante il form di sottoscrizione al sito stesso.
Prima di tutto l'utente dovrà comunicare il proprio username al sistema,
inserendolo in un campo di input che gli verrà visualizzato, e poi cliccare
su un pulsante (di submit) per farsi spedire la password alla propria
casella di e-mail.
Ciao da Miki (
michel...@libero.it
) e grazie per l'aiuto.
-- 
Posted from 
smtp3.libero.it
 [193.70.192.53] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Ma hai idea che per fare questo ci vuole qualcosa dove registrare le passwd?
Un database, un file di testo o qualcos'altro...
se non ci dici come fai già queste cose?
Max

Ho: 
- un file default.pass che contiene gli username, le password e le 
autorizzazioni di ogni utente registrato.
- un file default.db che contiene tutti i record del database.
- un file default.count che contiene il numero ID del primo record che 
verrà aggiunto nel database.
- un file default.log che registra tutti gli accessi al database.
- un file 
html.pl
 che contiene tutte le pagine html visualizzate dal 
database (form inclusi).
- un file db.cgi che gestisce tutti i precedenti files.
- un file di configurazione, default.cfg, che setta le opzioni del 
database e la allocazione degli altri files.
Ciao da Michele
-- 
Posted from 194.184.63.20 by way of 
smtp1.libero.it
 [193.70.192.51] 


Ho anche un file 
auth.pl
 che gestisce le autorizzazioni da concedere 
agli utenti, e una cartella AUTH che contiene le registrazioni degli 
account (il file default.pass che ho nominato precedentemente contiene 
le password di default, quelle iniziali).
-- 
Posted from 194.184.63.20 by way of 
smtp2.libero.it
 [193.70.192.52] 

Newsgroup: it.comp.lang.perl
Titolo: libri (era Re: strana sintassi)

 rendono... (ammesso che ci siano...)
Dipende anche da quanta padronanza uno ha dell'inglese.  Da
"pochina" in su, OK, conviene l'originale.  Ma se uno e` proprio
a zero, che fa, cambia mestiere...?  Purtroppo non so consigliare
neppure un testo sul linguaggio C++ la cui traduzione italiana
sia buona.  Su Perl, per fortuna, il classico testo di Wall,
Schwartz e Christiansen, oltre ad essere buono in se`, e`
anche tradotto decentemente (onore a M. Muzi e M. Tadiello,
i traduttori che di cio` hanno merito).
Del Lippmann e Lajoie, per ora, nessuna traduzione italiana.
Suggerisco lettere anonime di minaccia alla Addison Wesley
Italia...:-).
Alex

 Italia...:-).
Condivido tutti i giudizi espressi, con l'eccezione di quest'ultimo.
Chi scrive programmi ha necessita' di conoscere *almeno* l'inglese
scritto: non intendo dire che deve poter sostenere una mezz'ora di
conversazione sul tempo con una vecchina del Dorset che gli sta
versando un mug di te', ne' che debba capire tutte le sfumature
degli articoli del Sun o del Mirror corredati di bellezze in topless;
ma il linguaggio tecnico, e per di piu' specifico di un campo in cui
si svolge la nostra attivita', si.
Per non parlare del fatto che negli studi universitari in campo
scientifico generico (fisica, chimica, biologia, ...), dal terz'anno
in avanti libri in italiano o non esistono o costano dieci volte tanto
l'originale.
E per non parlare del fatto che, se le traduzioni esistono, sono fatte
da cane.
Infine: abituatevi a capire l'inglese _tecnico_scritto_, il che vi
puo' fare solo che bene.
-- 
Maurizio Loreti                         
http://www.pd.infn.it/~loreti/mlo.html
Univ. of Padova, Dept. of Physics - Padova, Italy            
lor...@pd.infn.it

Univ. of Padova, Dept. of Physics - Padova, Italy
 ^^^^^^^^         ^^^^^^^^^^^^^^^^           ^^^^^
Suppongo che queste informazioni facciano parte dell'"inglese tecnico
scritto".
Saluti,
Daniele Franza
<Isauricus>

 scritto".
Non e' sfoggio di erudizione.  Io attualmente non sono in Italia ma in
Svizzera (ecco perche' ho tanto tempo da dedicarvi: l'acceleratore ha
dei problemi); collaboro con persone di tutto il mondo; e comunico con
loro in inglese ("tecnico parlato" :-).  La .signature e' stata fatta
per quel 70-80% delle persone cui scrivo che non parla italiano.
-- 
Maurizio Loreti                         
http://www.pd.infn.it/~loreti/mlo.html
Univ. of Padova, Dept. of Physics - Padova, Italy            
lor...@pd.infn.it

per quel 70-80% delle persone cui scrivo che non parla italiano.
Anch'io sto all'estero (in Francia). La mia .signature č stata fatta
per il 100% delle persone cui scrivo (che sanno di avere a che fare
con un italiano).
Saluti,
Daniele Franza
<Isauricus>

 principianti...
Non conosco ne` lo specifico testo, ne` la traduzione,
ma l'autore (se e` Jesse Liberty, come credo) ha una
padronanza eccellente del C++ (e di altri temi di una
certa importanza per la programmazione); questo non
garantisce, certo, la qualita` di un dato libro, pero`
lascia bene sperare.
Alex
Newsgroup: it.comp.lang.perl
Titolo: SII!!! Solo 80.000 lire per registrare il tuo dominio di 2°livello [.it .com .net .org) per un anno.

Registra il tuo dominio di secondo livello    [.it   .com    .net   .org]
per tutto l'anno con solo £. 80.000 (+iva).
Comprese tasse di registrazione e in più......infinite emails!!!
(es: 
xx...@infoitalianet.it
)
Cosa aspetti ancora???? Contattaci!!
http://www.infoitalianet.it/

 ha scritto nel messaggio
news:8ilav8$qg$1...@fe2.cs.interbusiness.it...


www.f2s.com
 (spero)
questi non chiedono una lira e ti danno pure troppo





Newsgroup: it.comp.lang.perl
Titolo: domanda: fork in perl win32

Salve, sto scrivendo un serverino che si
aspetta connessioni su una porta tcp, tutto bene
finche' due client accedono nello stesso momento.
C'e' qualcuno che ha esperienza in questo senso?
In unix si forka e si duplica ma in win32 che si fa?
(magari c'e' un modo di farlo con
Win32::Process, ma non l'ho capito...)
Saluti, Giorgio

 In unix si forka e si duplica ma in win32 che si fa?
Nulla, per ora (che io sappia).
Implementare fork (in Perl per Win32) e` lo scopo 
principale  del progetto congiunto fra ActiveState e
Microsoft, annunciato qualche mese fa.  Puo` darsi
che abbiano gia` delle beta, ma non ne avevano
l'ultima volta che ho guardato sul sito ActiveState.
Comunque, se porti pazienza, prima o poi dovrebbe
arrivare...!
Alex

Newsgroup: it.comp.lang.perl
Titolo: Newbie: terminatore di riga WIN/Linux

Ciao; vorrei utilizzare gli stessi scripts sulle due piattaforme e questi  
trattano files di testo. Mi pare d'aver capito che se moifico il  
terminatore di stringa $/ posso imporre che sia utilizzato lo stesso,  
abritrario, su entrambe: e' vero? Come posso fare?
Grazie e ciao,
-- 
Genge'

Vitangelo Moscarda, nel messaggio  <op.tlx8a42iszwn6c@palandri>, scriveva:

Separatore di record, non "terminatore di stringa". Certo che è vero.
Trattandosi di un'assegnazione non è che ci sia molto da spiegare sul come
fare (un'accortezza potrebbe essere l'uso di local, per ridurre gli effetti
collaterali).
Se però non fai nulla, va bene lo stesso: puoi continuare ad usare gli
stessi script sui due sistemi, in ognuno dei quali verrà automaticamente
utilizzato il terminatore di riga appropriato in quel sistema; il problema
potrebbe essere eventualmente portare i DATI da un sistema all'altro.
Ciao.


Ciao; infatti, il problema e' quello, sono io che mi esprimo  
impropriamente. E' stato d'aiuto, per superarlo, leggere "Writing portable  
code" di Activestate che tratta proprio l'argomento dati. In breve:
$/ = "\x0D\x0A";
$\ = "\x0D\x0A";

Newsgroup: it.comp.lang.perl
Titolo: errore http500

salve a tutti
devo cominciare a srivere CGI in perl ho provato ma, come da oggetto, mi
restituiscono tutti lo stesso errore.
premetto che il server è linux con apache e che io non ci capisco molto.....
o quasi niente.
qualcuno mi può aiutare o anche indicarmi un manuale on line in italiano?
grazie

o quasi niente.
La cosa piu` ovvia che mi viene in mente (e` che e` anche nelle FAQ in
www.perl-it.org
) e` che manchi il content type. Come prima riga dell'output
metti:
print "Content-type: text/html\n\n";
oppure, usando CGI.pm:
$q = new CGI;
print $q->header();
Se gia` lo facevi, allora magari mandaci i messaggi di errore...
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

Newsgroup: it.comp.lang.perl
Titolo: AARRRGGHHHHHH!!!!!

http://www.microsoft.com
&
item%3Dq2...@212.254.206.213/original.html
ditemi che e' uno scherzo.... :((((
-- 
Diego Zaccariotto

 
E' un vecchio scherzo. Nell'url il numero IP del sito
( 212.254.206.213 ) è preceduto da una stringa utilizzata
per passare informazioni sull'utente:
'
www.microsoft.com
&item%3Dq209354'.
La stringa '
www.microsoft.com
' trae in inganno facendo
a prima vista credere che si tratti del sito di Microsoft.
Il realtà il sito è 212.254.206.213.
Ad esempio con questo link lo scherzo funziona ugualmente:
http://www.ibm.com
&
item%3Dq2...@212.254.206.213/original.html
Marco Gazerro

 Marco Gazerro
:) uffff grazie... mi hai restituito 10 anni di vita!
-- 
Diego Zaccariotto
Newsgroup: it.comp.lang.perl
Titolo: [Tk] Cedere il focus ad un'altra applicazione

Salve a tutti.
Supponiamo di avere un programma che usa PerlTk per la sua interfaccia
grafica.
Supponiamo che, in un mio programma, abbia fatto un fork e lanciato con
exec, nel processo figlio, un editor qualsiasi per permettere la modifica su
un certo file; ad esempio, quando l'utente clicca due volte su un certo file
in una HList.
Supponiamo ora che l'utente si sia perso la finestra dell'editor e faccia di
nuovo un doppio clic su quel file: l'editor è già aperto, ed ho il pid del
processo.
Domanda: c'è modo di passare il focus alla finestra di questo editor? Esiste
una soluzione indipendente dall'editor usato e dal sistema operativo?
Ringrazio anticipatamente chi vorrà offrirmi suggerimenti.
Basilios

 Basilios
Prova $widget->focus;
Comunque info le trovi con perldoc Tk::focus
Magari fai un bind del click su quell'oggetto e lo associ al focus.
Ancora, se mastichi inglese,
news:
comp.perl.lang.tk
 newsgroup nel quale spesso ti rispondono i mostri
sacri del perl/tk
e 
http://www.perltk.org
-- 
Posted from 
smtp1.libero.it
 [193.70.192.51] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.perl
Titolo: File

Ciao,
ho una directory con 400 file .xml, ho fatto uno script che legge il file e
convertei dati in un db, ora devo fare uno script che in automatico mi
prenda una per uno questi file e me li elabora con il mio script. come posso
fare?
Devo usare readdir? fare leggere i file e passare mioscript <nome file>?
grazie
SIMONE

Devo usare readdir? fare leggere i file e passare mioscript <nome file>?
E' un sistema, sě.
Ciao.

 script da un altro script con do.
scusa ma non sono molto pratico di perl, allora, io ho uno script sche si
chiama 
prova.pl
lancio ./
prova.pl
 /xml/test.xml e lui mi fą il suo dovere.
Ora devo fare uno script che legga il contenuto della directory /xml e mi
lanci per ogni file xml trovato
il mio script in automatico.
Come posso fare?
Grazie

 Come posso fare?
A giudicare da come scrivi i nomi dei file, direi che ci troviamo 
in presenza di una shell Unix. Potresti fare cosi`, ad esempio:
  ls -1 *.xml | xargs ./
prova.pl
Ma probabilmente ti aspetti una risposta che riguardi il Perl.
Trasformare 
prova.pl
 in qualcosa che manipoli N file e` probabilmente
semplice, ma i dettagli dipendono in considerevole misura da come
e` fatto lo script.
readdir() e` una buona idea, e potresti provare a leggere la relativa
documentazione (perldoc -f readdir).
Anche l'uso di una subroutine e` una buona idea, e per saperne di piu`
potresti leggere perlsub (perldoc perlsub).
Il tempo che ti pare di perdere non lavorando direttamente alla
soluzione del tuo problema ti sara` restituito, decuplicato e anche
piu`, se impari un po' di Perl e, aggiungo, se impari a sguazzare un
po' dentro a CPAN.
  "Give a man a fire and he's warm for a day, 
   but set him on fire and he's warm for the rest of his life."
ciao,
S.

Come posso fare?
Mi sembrava di averti accennato appunto diverse strade per la soluzione di
questo esatto problema (visto che chiedi "come posso fare"). Se la domanda
vera è "scrivi la soluzione al mio posto", in questo momento non ho tempo
per farlo, né potrei non conoscendo in dettaglio il tuo script, né ho
particolarmente chiaro perché dovrei farlo.
Se invece non hai capito qualcosa che ho detto, dimmi che cosa di quello
che ho detto non hai capito e cercherò di spiegarti meglio quello che non
hai capito di quello che ho detto.
Ciao.

 Ciao.
Ti ringrazio, ho risolto con i tuoi aiuti.
GRAZIE CIAOOO
SIMONE

Ti ringrazio, ho risolto con i tuoi aiuti.
Ne dubito, ma è una delicata bugia che apprezzo molto. E' più probabile che
l'aiuto decisivo sia stato quello di Stefano Rodighiero.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: eliminare il carattere invio

ho un prg che raccoglie informazioni tramite una pag.htm ecco la riga 
interessata:
<b>commento</b> <textarea name="comm" cols="50" rows="3" wrap="VIRTUAL">
      </textarea> <BR><BR>
e lo salva in un file :
open(in, ">> commento.txt") || die("Errore nell'apertura del file 
'dati'.\n");
print in "$in{comm}|{$a}|{$b}|{$c}|{$d}\n" ;
close(in) ;
il problema e' che se nel commento viene digitato invio, quando viene 
salvato, va a capo e in lettura crea problemi.
come posso eliminare il carattere invio prima di salvare?
grazie in anticio
salvatore 

 e ora sono uno splendido quarantenne."

Newsgroup: it.comp.lang.perl
Titolo: luclamb@katamail.com

http://ninfomaniperte.da.ru
guarda qua... mani in alto!

 guarda qua... mani in alto!
Scusate se sono monotono, ma mi sembra
che il messaggio sia completamente OT
e, cosa ancora peggiore, il link molto scarso!!!
ciao
Davide

Newsgroup: it.comp.lang.perl
Titolo: comandi di sistema

ciao
come devo fare uno script cgi che esegue  un comando di sistema e
mostra l'output attraverso il browser, come posso fare?
grazie

esiste anche it.comp.www.cgi che sarebbe più indicato per argomenti come
questo.
per la parte perl hai differenti opzioni, come system() o `comando`, ma
dubito che usare chiamate di sistema sia un bel... sistema :-) perché ti
limitano molto la portabilità del tuo script. Magari potresti ottenere la
stessa cosa direttamente da perl, oltretutto in modo più sicuro che system o
`comando` in ambiente CGI (che -visto la parola "browser" mi pare essere
quello che stai tentando di fare tu).
Proprio quello che hai in mente di fare presenta parecchi rischi che devi
assolutamente conoscere prima di avventurarti in ingenui script CGI che
aprono le porte agli hackers di mezzo mondo....ma come dice Enrico "stiamo
inesorabilmente andando OT". :-)
Leggiti un po' di posting in it.comp.www.cgi dove troverai anche links utili
per verificare la sicurezza di un CGI.
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"
Newsgroup: it.comp.lang.perl
Titolo: problema da niubbissimo

Ciao a tutti.
Mi é capitato di dover mettere le mani, per lavoro, su del codice
Perl.
Ho letto alcune guide e ho provato a capirci qualcosa, tuttavia non
riesco a capire cosa facciano le seguenti due istruzioni:
1) $varA -> autoflush(1)
2) $varB .= $_
1) per autoflush non ho trovato nulla di soddisfacente
2) $_ dovrebbe indicare uno standard input, ma .= ??
Comincio a credere che sia un errore di stampa dei fogli che mi hanno
dato.
Se avete tempo di rispondere, grazie.

dato.
Assoultamente no: è una banale concatenazione di stringhe. L'operatore . è
l'operatore di concatenazione, e la scrittura:
 
     $varB .= $_;
è un'abbreviazione per
     $varB = $varB . $_;
allo stesso modo che "$var += 2;" è un'abbreviazione per "$var = $var +
2;". Trovi la lista completa degli operatori in perlop.
La variabile $_ , poi, non è "uno standard input", ma la variabile di
default. Che cosa indica, dipende dal contesto. La lista completa delle
variabili predefinite è in perlvar.
Ciao.

 2) $varB .= $_
L'espressione e' equivalente alla seguente:
$varB = $varB.$_;
L'operatore punto (.) permette di concatenare stringhe.
Una documentazione che parla di $_ e' qui:
http://www.perldoc.com/perl5.8.0/pod/perlvar.html
In generale se chiami una funzione senza L-value:
pippo($val);
il valore _eventualmente_ ritornato da pippo va in $_
 Raffaello

Grazie a tutti.. 
gentilissimi :)

 eccetera).
Esatto, ho detto una cavolata pazzesca. :-O
 Raffaello

lettura da un filehandle: while(<FILE>) {...}.
      for (1..10) {print $_, "\n";}
Così anche in grep e map.
Ciao.

 Così anche in grep e map.
giustissimo. tra l'altro grep e map, se non sbaglio, sono gli unici casi 
in cui non solo l'assegnazione a $_ è implicita, ma è anche inevitabile.
cheers,
Aldo
Newsgroup: it.comp.lang.perl
Titolo: Tail su windows

Ciao a tutti,
come da oggetto ho la necessità di stare attaccato ad alcuni file, per
elaborare gli inserimenti su tali file. Ho fatto una ricerca sul news
gruop per il tail ed ho scaricato il modulo Event::File,
l'installazione è data a buon fine. All'interno del package c'è uno
script di esempio che riporto di seguito:
-----------------------------CODE-------------------------------------
use Event::File;
use strict;
Event::File->tail(
		  cb => sub {
		    my ($me, $line) = @_;
		    print "Got: $line\n";
		  },
		  file => 'read_file',
		  endfile_cb => sub {
		    print "end of file.\n";
		  },
		  timeout => 20,
		  timeout_cb => sub {
                    my $watcher = shift;
		    print "an timeout happened. ID: " . $watcher->id . "\n";
                    print "Unlooping\n";
                    $watcher->unloop(10);
		  }
	       );
my $result = Event::loop;
print "\n\nFinished with result: $result\n\n";
-----------------------------CODE------------------------------------
il file "read_file" sta nella stessa directory, comunque quando lancio
lo script parte e va in errore stampando la seguente stringa:
select got errno 10038 at 
tail.pl
 line 27
select got errno 10038 at 
tail.pl
 line 27
select got errno 10038 at 
tail.pl
 line 27
Qualcuno ha avuto a che fare con questa roba? suggerimenti?
Mi dimenticavo :
OS: Windows Xp Professional :-(
Perl: This is perl, v5.8.8 built for MSWin32-x86-multi-thread
Event::File version  Event-File-0.1.1
Event version Event-1.08
Grazie e Buon Natale e Felicissimo Anno Nuovo a tutti.
Mirko.

 Perl: This is perl, v5.8.8 built for MSWin32-x86-multi-thread
Se ho capito bene, ma non sono sicuro, potresti usare il modulo
Tie::File che è disponibile in ActivePerl per Windows
Questo è un esempio di uso
use Tie::File;
tie (@linee, 'Tie::File', $dirsis.'ultimi.txt') or die ("non riesco a
leggere il file ultimi.txt");
foreach $linea (@linee) {split($separatore,$linea);print $/.'<option
value ="'.@_[1].'">'.@_[0].'</option>'.$/;}
untie @linee;
Caio e buone feste

 Grazie e Buon Natale e Felicissimo Anno Nuovo a tutti.
Grazie e auguri anche a te.
Emanuele.
Newsgroup: it.comp.lang.perl
Titolo: time()

che cosa rappresenta il valore di time()
ho provato ad usarlo e mi ha stampato un numero che non riesco a decifrare
il numero ottenuto e' 1025303690
grazie e ciao


e` il tempo trascorso in secondi dalla crezione di unix
da man perlfunc
       time    Returns the number of non-leap seconds since what-
               ever time the system considers to be the epoch
               (that's 00:00:00, January 1, 1904 for MacOS, and
               00:00:00 UTC, January 1, 1970 for most other sys-
               tems).  Suitable for feeding to "gmtime" and
               "localtime".

 ha scritto nel messaggio
news:As6T8.80854$Kt3.1...@twister2.libero.it...


Newsgroup: it.comp.lang.perl
Titolo: Resto su divisioni con il PERL

Come si fa?
Ciao e grazie

Il resto di 7/5 è
7%5
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: forum perl

a parte questa utilissima ng, conoscete un forum di perl in italiano?
Non fa mai male sentire un'altra campana ^_^

 Non fa mai male sentire un'altra campana ^_^
Non che io sappia, ma esiste la mailing list 
mon...@perl.it
.
Le istruzioni per iscriversi sono qui:
 
http://www.perl.it/contatti/index.html
  (paragrafo "Mailing List", verso il fondo)
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

 ha scritto nel
messaggio news:1ggdlcz.1b5r60ib60gw0N%stefano.r...@tiscali.it...


 ha scritto nel messaggio
news:mvOFc.34435$c_1.1...@twister1.libero.it...


> >
esiste anche un forum CGI-Perl sul network di 
www.html.it
, in verità non è
granchè, ma ogni tanto qualche buona idea vi circola.
-- 
-- Marco Allegretti --
http://www.shishii.com

 ha scritto nel messaggio
news:qOgGc.36823$c_1.1...@twister1.libero.it...

Newsgroup: it.comp.lang.perl
Titolo: posso mettere un include in un include (ssi)?

Posso mettere un include in un include (ssi)?
O meglio, posso inserire: 
<!--#INCLUDE
VIRTUAL="
http://www.xyz.com/cgi-bin/counter/counter.cgi?hide=yes
"-->
Nel file copyright.txt, che includo in fondo ad ogni pagina, con questo
altro ssi (risparmiando un ssi): <!--#include virtual=/copyright.txt-->
In tal caso se ciò è realizzabile mi domandavo se devo includere nel detto
file il contatore scrivendo semplicemente in tale file:
 
http://www.xyz.com/cgi-bin/counter/counter.cgi?hide=yes
 , o se invece
devo scrivere qualcosa di diverso.
Tutto questo per limitare gli ssi in ciascuna pagina, dal momento che ho
sentito dire che rallentano il server (e non vorrei che il mio server
provider si lamenti).
ciao e grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ciao e grazie
Un po' lo rallentano ma sono sempre più veloci di qualsiasi altro linguaggio di
scripting, quindi... don't worry!
by
	- Enrico
--- have fun with 
www.perl.it
 ---

    </Directory>
Questo è il blocco corretto:
    <Location "/path/to/file_SSI">
       Options +Includes
    </Location>
per far sì che i file 
http://yourhost.com/path/to/file_SSI/*.ext
 siano
processati dall'engine SSI.


Newsgroup: it.comp.lang.perl
Titolo: File non trovato su IIS 6 e awstats

Sto cercando di usare awstats in un mio server w2003.
Awstats č un buon software free per generare statistiche a partire
da file di log web, ftp etc.
Lo uso da un po' con IIS 5 e non mi ha mai dato problemi...
Vorrei usarlo anche su IIS 6 allora scarico ActivePerl come ho fatto in
precedenza,
lo installo e abilito l'installazione del mapping delle pagine con
estensione ".pl" verso perl.exe.
Bene quando cerco di lanciare un qualsiasi file con estensione .pl mi dą il
buon 404 file non trovato.
Guardo nel log dell'IIS e trovo:
2004-03-04 21:59:29 127.0.0.1 GET /pippo/cgi-bin/
awstats.pl
 - 80 - 127.0.0.1
Mozilla/4.0+(compatible;+MSIE+6.0;+Windows+NT+5.2;+.NET+CLR+1.1.4322) 404 2
1260
dove in fondo alla riga c'č il 404 che conferma che non lo trova... MA
C'E!!!!
Come puo' essere che fa finta di non vederlo?
L'estensione č mappata correttamente, la cartella e perl.exe esiste, se da
DOS lancio
l'aggiornamento delle statistiche perl funziona...
Ma quando cerco di visualizzare le statistiche via web IIS sembra filtrare
negativamente i file .pl...
Qualche consiglio?
Grazie 1k.
-- 
Fabrizio Maccarrone
--
YAMSSQLU
(Yet Another MSSQL User)
---
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.588 / Virus Database: 372 - Release Date: 13/02/2004

 Grazie 1k.
Ciao
Luth

Newsgroup: it.comp.lang.perl
Titolo: Script per il backup dell'intero sito

Ciao
volevo chiedervi se conoscete uno script che permetta di generare un
file di backup compresso (.tar o .gz) dell'intera home directory di un
sito, da scaricare o - meglio - inviare ad un altro server ftp o a un
indirizzo mail. Qualcosa di simile a quanto permette di fare il
GetBackup di cPanel. Magari con la possibilità di generarlo in
automatico ad una certa ora del giorno o della settimana.
Fare un backup via ftp su hosting che non hanno cPanel o simili è un
processo lunghissimo. Abbiamo provato MyBackup
(
http://www.tufat.com/script96.htm
) ma non funziona granchè (copia
solo una piccola parte del sito).
Grazie per l'attenzione


This is supposed to make it easy to pick URLs from messages:
@URLs = ($message =~ /<URL:(.*?)>/g);
See Also
The documentation for the CPAN modules LWP::Simple, HTML::LinkExtor,
and HTML::Entities; Recipe 20.1
==================================================
Ciao
Oreste


Newsgroup: it.comp.lang.perl
Titolo: GO TO: perche' non va bene???

Leggo spesso che "etichettare" i flussi con delle label da gestire poi con
GO TO non  va bene.....non ho ancora capito il perche'....qualcuno me lo
spiegherebbe?????
Grazie
Fabio

Fabio,

  Perche` nel 99% dei casi e` possibile esprimere l'algoritmo usando i
costrutti del linguaggio che adoperi, i quali sono piu` sicuri, eleganti
e consentono al compilatore alcune ottimizzazioni. 
	Alla prossima,
		Marco



Mi pare ci fosse un teorema che dicesse che un qualsiasi goto può
essere sostituito da una serie di istruzioni di programmazione
strutturata. Certo molte volte è difficile trovare questa sequenza :-)
Ciao
	Pirla
Per rispondere in E-mail the (punto) pirla (chiocciola) 
flashnet.it
*** un bacio ai pupi ***
---> Linux user since yesterday <---

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

 programmazione strutturata. 
  Il teorema esiste ma sembra sia stato smentito da alcuni recenti
esempi validi per certi linguaggi (il C, per esempio). Probabilmente,
una ricerca per "goto" su Deja puo` ritornarti i messaggi di
news:comp.lang.c dove se ne parlo`.
	Alla prossima,
		Marco
Newsgroup: it.comp.lang.perl
Titolo: [ot] oltre l'esadecimale

Salve,
 
   Con il sistema esadecimale (hex) posso avere 65000 combinazioni o 
16.000.000 di numeri?
 C'è un modo magari a base di 32 o oltre per rappresentare un numero 
tipo 16.000.000.000 (miliardi) ?
che succederebbe se invece di fare da "0" a "f" come nell'hex, facessi 
da 0 a "z" ??
grazie

 wrote:

scusate, ma sono abituato a numeri esadecimali a gruppi di 6 (es: 
#FFFFFF)
con quei gruppi di sei quante combinazioni ho? il mio intento è di poter 
rappresentare con pochi caratteri numeri con tanti zeri.
ciao

ad esempio con "FFFFFFFF" ho 4294967295 combinazioni. Ma io vorrei usare 
meno caratteri.
ciao

 grazie
Guarda questo (converte fino a base 62):
http://www.perlmonks.org/index.pl?node_id=27148
ciao
gmax
-- 
   ____ ____  _____ _   _
  / _  |    \(____ ( \ / )
( (_| | | | / ___ |) X (
  \___ |_|_|_\_____(_/ \_)
(_____|
MySQL Certified Professional
Sapere, saper fare, fare, far sapere
http://gmax.oltrelinux.com

 16 miliardi in esadecimale si scrive 3b9aca000
ma il mio perl si ferma qui':
#!/perl
$numero = "16000000000";
$esadecimale = sprintf ("%x", $numero);
$decimale = hex "$esadecimale";
print "$esadecimale => $decimale\n";
__END__;
mi stampa: ffffffff => 4294967295

 gmax
ti ringrazio molto, quindi  questo potrebbe essere un buon codice:
#!/perl
use strict;
sub GenerateBase
{
    my $base = shift;
    $base = 62 if $base > 62;
    my @nums = (0..9,'a'..'z','A'..'Z')[0..$base-1];
    my $index = 0;
    my %nums = map {$_,$index++} @nums;
    my $To = sub
    {
        my $number = shift;
        return $nums[0] if $number == 0;
        my $rep = ""; # this will be the end value.
        while( $number > 0 )
        {
            $rep = $nums[$number % $base] . $rep;
            $number = int( $number / $base );
        }
        return $rep;
    };
    my $From = sub
    {
        my $rep = shift;
        my $number = 0;
        for( split //, $rep )
        {
            $number *= $base;
            $number += $nums{$_};
        }
        return $number;
    };
    return ( $To, $From );
}
my $base_62 = (GenerateBase(62))[0];
print $base_62->( '99999999999' ); # 1000 miliardi -1
che mi ritorna: 1L9zO9N
come faccio l'operazione contraria??
grazie mille!

 come faccio l'operazione contraria??
dovrebbe essere:
my $hex = (GenerateBase(62))[1];
print $hex->( '1L9zO9N' );
che ritorna: 99999999999
wow!!!

 
http://www.perlmonks.org/index.pl?node_id=27148
grazie, ecco quello che ci dovevo fare a scopo didattico: 
http://www.theartofweb.net/tinyurl/tinyurl.html
e questo è il codice sorgente: 
http://www.theartofweb.net/tiny.cgi/k
ciao
Newsgroup: it.comp.lang.perl
Titolo: script da un altro server

Salve,
volevo sapere come fare per evitare che un mio script CGI/perl possa
essere
richiamato da un server diverso dal mio.
Ho provato verificando l'intestazione $ENV{'HTTP_REFERER'}ma con le
nuove
versioni dei firewall ottengo un errore anche via POST perché eliminano
il
contenuto di quell'intestazione.
Grazie,
Nico

setta un cookie, ma se l'utente li ha disabilitati bnon funziona
-- 
Valter Mazzola -  Software/Databases for Enterprise Web Internet Sites
PHP, Java Servlets, Applets, Jsp, ASP, PERL, Mod_Perl, Apache, IIS,SQL
* 
HTTP://SITIDINAMICI.COM/?nttp
 ----- 
http://italia.LinSwap.com/?nttp
 
Phone:(+39) 347/129-07-16.  Fax:(+39) 02/700-539-403

Newsgroup: it.comp.lang.perl
Titolo: Velocità databases.

Ho provato la connessione con un database mySql attraverso i moduli DBI e
DBD, ma anche senza dare nessuna istruzione SQL (ovvero solo connessione) il
mio ciomp con Activeperl ci macina su almeno 5-6 secondi. Tenuto conto che
ho un PII-233 con Win98, mi devo accontentare o è possibile fare di meglio?


Il database su che macchina gira?
Tieni presente che w98 non č il sistema ideale per le connessioni di rete.
Sotto w98 consumano un fottio di risorse(il mio P266 con w98 con 2 telnet si
siede).
Penso che quei secondi servano a w98 per aprire le socket e a caricare il
perl.
Ditemi se sbaglio
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: perl cos'e'?

Ciao
l'oggetto e' un po' inquietante lo ammetto ;)
dopo aver smanettato con il visual basic, volevo approfondire lo studio dei
protocolli e utilizzare la programmazione per crare programmini etc....
in quest' ambito il perl com'e'?
1)Rispetto al c e' piu' "user friendly" ?? Insomma e' piu' facile da imparare?
2)e' piu' potente del visual basic?
3)un sito, un libro e che programmi servono eventualmente per iniziare a
studiare il..perl
grazie!
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 studiare il..perl
http://www.perl-it.org
http://www.perlmongers.it
Programming Perl, 3rd edition (O'Reilly & Associates)
Michele.

 studiare il..perl
Programming Perl, 3rd edition è il miglior libro per Perl
ma è complesso per chi inizia, ti consiglio 'Perl e Internet'
della McGraw-Hill è anche scritto da autori italiani.
Marco
Newsgroup: it.comp.lang.perl
Titolo: Perl IDE e REFERENCE

Salve ho appena installato Perl per Windows e volevo sapere se qualcuno può 
indicarmi un sito internet per avere una quickreferece delle istruzioni 
Perl e se esiste consigliarmi dove scaricare un IDE per Perl gratuio
Grazie,
Briggi Luca

 e se esiste consigliarmi dove scaricare un IDE per Perl gratuio
Sempre nella distribuzione standard del Perl trovi le perlfaq, in 
particolare perlfaq3:
file:///C:/Perl/html/lib/Pod/perlfaq3.html#is there an ide or windows 
perl editor
A cui aggiungerei:
http://open-perl-ide.sourceforge.net/
poi 
http://www.eclipse.org
 con i plugin Perl: 
http://e-p-i-c.sourceforge.net/
e crimson editor 
http://www.crimsoneditor.com/
 (insieme a molti altri 
editor di testo free) con il syntax highlighting per il Perl.

Newsgroup: it.comp.lang.perl
Titolo: Net::Ping ma funziona ?

use Net::Ping;
$a = pingecho("
www.linux.it
",20);
print "Ok !!" if ($a);
non mi stampa Ok anche se il sito in questione
è on line. Come mai ?
Giuseppe


   Ci possono essere un milione e mezzo di motivi: dal fatto che il 
server DNS abbia deciso di non riconoscere il nome fino alla mancanza di 
permessi. Ti suggerisco, per avere un controllo un po' piu` fine di quel 
che sta accadendo, di utilizzare l'interfaccia ad oggetti:
<code>
	use Net::Ping;
	$ping=new Net::Ping ("icmp");
	$ping->ping ("
www.linux.it
",20);
	if (defined $ping) {
	    if ($ping) { print "Host is reachable in 20 secs...\n" }
	    else       { print "Host is NOT reachable in 20 secs...\n" }
	}
	else {
	    print "Network troubles...\n"
	}
	$ping->close();
</code>
-- 
Alla prossima,
Marco



perl -MNet::Ping \
     -e '$a = pingecho( "
www.linux.it
", 20 ); print "Ok" if $a'
risponde Ok.
Anche se uso uno script al posto di uno one-liner.
Perl 5.6.1, su una macchina Linux.
Su che piattaforma stai lavorando tu?
ciao
Stefano

 Su che piattaforma stai lavorando tu?
idem ma non stampa Ok. Che può essere ?
Giuseppe

 
---  CUT ---
questo codice funziona ma ha bisogno di essere lanciato
come root, per evitarlo che posso fare ?
Grazie
Giuseppe

 come root, per evitarlo che posso fare ?
   Non usare "icmp" come protocollo ma "udp" o "tcp". Non e` detto, 
tuttavia, che l'host destinazione sia d'accordo a rispondere a ping su 
questi protocolli. E` un po' il cane che si morde la coda... Altrimenti, 
usa setuid (suidperl) e fai molta attenzione.
-- 
Alla prossima,
Marco
Newsgroup: it.comp.lang.perl
Titolo: Sostituzioni

Salve, 
vorrei  sostituire una sequenza di tab e spazi casuali in un solo tab, le rige
da sostituire sono del tipo 
ati matc \t prezzo
ati matc2 \t \s \t prezzo
ati matc3 \t \t \t prezzo
\t e' il tab
\s e' lo spazio 
ovvio che non devo sostituire lo spazio tra ati e matc con un tab ma solo quello
tra i due tab alla fine devo avere :
ati matc \t prezzo
ati matc2 \t prezzo
ati matc3 \t prezzo
Grazie mille da  Obe.

xxxdi...@digicolor.net
 wrote:
 >vorrei  sostituire una sequenza di tab e spazi casuali in un solo tab, le rige
 >da sostituire sono del tipo 
s/\t\s*/\t/
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

 ati matc3 \t prezzo
s!\s\s+!\t! ;
Questo ti da':
ati matc\tprezzo
ati matc2\tprezzo
ati matc3\tprezzo
Cheers,
	Alessandro

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

Ciao,
io ho questo script che funziona correttamente e mi gira di 180° il mio file 
pdf
use PDF::Reuse;
use strict;
prFile('New_Report.pdf');
prMbox(0, 0, 595, 842);
prForm({file   => 'simo.pdf',
rotate => 'q2' } );
#prPage();
#prText( 200, 750, 'A short sentence', 'right');
#prText( 400, 430, 'Rotate 270 degrees clock-wise', 'q3');
prEnd();
Il problema è che se il file pdf d'origine è di 2 o più pagine il risultato 
è solo la rotazione della prima pagina...
Qualcuno mi sà aiutare??
Grazie
SIMONE

Qualcuno mi sà aiutare??
Non conosco PDF::Reuse. Lo script che ho postato a suo tempo in risposta
alla tua richiesta (e che usa il modulo Text::PDF) ruota tutte le pagine, o
meglio ruota l'oggetto "Pages", ottenendo come risultato di avere tutti gli
oggetti dell'albero delle pagine ruotati.
Immagino che si possa fare la medesima cosa anche con PDF::Reuse, al limite
si tratterà di scorrere e ruotare tutte le pagine del documento originale.
Non saprei dirti però in dettaglio come fare.
Dalla documentazione, mi pare che prForm accetti come parametro il numero
di pagina da estrarre, quindi, se prForm è la cosa giusta da fare, immagino
che un ciclo su tutte le pagine funzionerebbe. Non garantisco però nulla.
Se non hai investito troppo in PDF::Reuse, o non c'è qualche motivo di
convenienza che ti porta a preferire questo modulo, puoi passare a
Text::PDF, dove potrei aiutarti con più confidenza.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: forse ot ma necessiterei di risposta

Ciao a tutti
Mi scuso se posto in questo ng ma in quello dedicato a mysql non ho ancora
:-) ottenuto risposta e sapendo invece quanto e' vivace questo, ci
provo.......
ho la necessita' di richiamare dal server 1 (dove e' ospitato il mio sito),
il database mysql (residente sul sito 2)
come faccio?
Nel prg .pl ho scritto:
$ddb = "DBI:mysql:database=mio_db";
$utente = "utente";
$password = "password";
my $dbh = DBI->connect($ddb, $utente, $password)or die "NON MI RIESCO A
CONNETTERE";
su localhost cosi' funziona ma, in questo caso,  come fare a dirgli dove
andare a pescare il database?
grazie

 come faccio?
A seconda della versione del DBD::mysql :
$dsn="DBI:mysql:database=test;host=
sito2.miohost.it
;port=3306";
(per le versioni recenti)
$dsn="DBI:mysql:test:
sito2.miohost.it:3306
";
(per le versioni ormai obsolete)
if (!($dbh=DBI->connect($dsn,$user,$password))) {
	#errore
} else {
	#macina
}

Newsgroup: it.comp.lang.perl
Titolo: Array multidimensionali + regexp

 Ciao  a tutti ....
ho 2 problemi:
Il primo e' il seguente.
Ho un array di questo tipo e vorrei sapere come faccio ad avere le sue
dimensioni.
The array:
                                               #0        #1
#2       #3       #4       #5
@muxxer =                    ([ "000", "064", "128", "192", "256",
"320"],        #     --  0
                                         [ "001", "065", "129", "193",
"257", "321"],        #     --  1
                                         [ "002", "066", "130", "194",
"258", "322"]);       #    --  2
con
$length_vertical=@muxxer;
Trovo la lunghezza verticale dell'array ... cioe' 3 !!
Come faccio ad avere qualla orizzontale ?
Secondo problema:
ho una regexp di questo tipo
while (.....){
s/Ciao $nome/ Buongiorno $nome/;
....
}
la variabile $nome cambia ogni volta ... e' possibile avere una
variabile in una regexp ?
Thanks
GPo

 GPo
Il primo problema e' stato risolto !
GPo

1)
$orizz = @{$muxer[0]};   # se assumi che ogni riga abbia lo stesso numero di elementi
2)
si
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG