mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: regexpr: accorciare ed eliminare !`() dai nomi dei file

salve,
voglio fare un piccolo script che mi accorci i nomi dei file, in
particolare:
- elimini caratteri come '`()!
- accorci il nome del file mantenendo l'estensione
nome()_file_`mooooooooltoluuuuuuungo.lungo_lungo.lungo.ext
--> nome_filemoooo.ext
ma con s/// non riesco perche` non riesco a togliere \` \! etc
cosa sbaglio?
ciao e grazie
Stefan


Togli i caratteri indesiderati con la /transobliterazione/, è più 
semplice ed anche più efficiente:
	my $s = q{questa`'! è '''una !!(prova)``.exe};
	$s =~ tr/'`!()//d; # Transobliterazione!
	print "$s\n";      # questa è una prova.exe
Poi accorcia la stringa $s come più ti aggrada.
Ciao,
Emanuele.


C'e' un programmino che fa al caso tuo: rinomina file con una caterva di opzioni:
http://www.perlmonks.org/index.pl?node_id=303814
Ciao
gmax
-- 
   ____ ____  _____ _   _
  / _  |    \(____ ( \ / )
( (_| | | | / ___ |) X (
  \___ |_|_|_\_____(_/ \_)
(_____|
MySQL Certified Professional
Sapere, saper fare, fare, far sapere
http://gmax.oltrelinux.com

	print "$s\n";      # questa è una prova.exe
grazie mille, in effetti e` molto piu` comodo.
ciao
Stefan

Newsgroup: it.comp.lang.perl
Titolo: funzioni per il tempo.

ho bisogno di funzioni per lavorare con il tempo:
data=aggiungu(data,tempo)
compara_due_date_e_dimmi_quale_è_la_maggiore(data1,data2)
get_day(data)
ecc...
Quale modulo mi consigliate?
quali funzioni?
Grazie, Mario.

 data=aggiungu(data,tempo)
Add_Delta_Days
Oppure Date::Manip.
http://www.perlmonks.org/index.pl?node_id=32410
ciao
Stefano

Newsgroup: it.comp.lang.perl
Titolo: come usare MySql con il perl?

Vorrei usare MySql con il perl.
ho istallato:
DBI-1.14.tar.gz 
è sufficiente per usare MySql con il perl?
Cosa devo fare?
Come connettersi a MySql?
Come fare una semplice query?
Grazie in anticipo, per il tempo che dedicherete per rispondermi.
Mario.

 
E' tutto descritto dettagliatamente nella documentazione, che è peraltro
ricca di esempi e di suggerimenti:
 perldoc DBI
 perldoc DBI::FAQ
 perldoc DBD::mysql
 E se vuoi approfondire, anche:
 perldoc DBI::DBD
La home page ufficiale di DBI è
 
http://www.symbolstone.org/technology/perl/DBI
  oppure (che è lo stesso sito) 
 
http://dbi.symbolstone.org
Max
Newsgroup: it.comp.lang.perl
Titolo: Problema [cgi] con Account Manager

Salve a tutti!
Ho un cgi che mi da un po' di grattacapi
Il CGI in questione si chiama account manager
e lo potete trovare in versione lite al sito 
http://cgi.elitehost.com
Io ho la versione full ma mi da un certo tipo di probelma,,...
Una volta settato e uplodato mi parte e funziona regolarmente
ovvero :
Il cgi è stato pensato per creare una lista di utenti
con relativa user pass e dati personali...
una volta che l'utente invia la richiesta io controllo
il suo profilo e lo abilito...
Il cgi funziona e tutto oki...
si fa il suo file dbase dove ci sono tutti gli utenti
Ma quelloche non capisco è come fa non permettere
l'accesso ad altri utenti...
Ovvero si legge che devo creare dei file htcaccess o htcpass
ad hoc... ma il cgi in questione mi crea solo un file db
con i campi settati a modo suo...
Non saprei proprio configurarli i file access e pass ..
Qualcuno mi può dare una mano...
se mi scrivete in mail vi invio il cgi in modo che lo possiate testare...
Vi ringrazio
SALUTI

...


Newsgroup: it.comp.lang.perl
Titolo: [OT] vendo manuali

- Programming Perl (3rd edition, Wall)
- Regular Expressions Explained
- Learning the VI editor
Nuovi, in inglese, vendo a meta' prezzo.
Ulteriori info su 
www.oreilly.com
Cordiali saluti
Enos


Interessano il secondo e il terzo, ma:
il secondo se è "Mastering regular expressions, 3a o 2a ed. (meglio
quasi la seconda) di J. Friedl. Non si trova sul sito o'reilly, nè su
Amazon "regular expressions explained". Il terzo, che ed. è?
Vorrei anche più precisazioni su "la metà prezzo", ma per quello se
vuoi puoi scrivermi a questa mail.
--
Saludos
Adriano

 vuoi puoi scrivermi a questa mail.
38 euro spedizione compresa.
Con 55 ti do' anche il cammello.
Ciao,
Enos

Newsgroup: it.comp.lang.perl
Titolo: DBI::Mysql: immagini e campi blob


		attenzione: rispondere solo a questo indirizzo!

 usando l'interfaccia DBI?
Vuoi dire che la scrittura diretta con un "INSERT" SQL o la lettura con
"SELECT" non funziona?
L'alternativa in questo caso e' forse e' ricorrere direttamente all'API di
mysql. 
Il manuale parla anche di limitazioni di message buffer per il server (64K) e
per il client (512K) che puo' comunque essere cambiato.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@tuttocitta.it
 
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)
Newsgroup: it.comp.lang.perl
Titolo: Primi passi

Sono alle prime armi con il Perl (anzi meno) e vorrei fare qualche domanda
base (qualcuna sara' sicuramente ebete, perdonatemi ;-) ) su alcune cose che
non ho trovato nei (pochi) testi che ho letto.
- Perl="Practical Extraction and Report Language" (ho trovato anche
"Processing Extraction Report Language"), ossia?
- E' un linguaggio compilato o interpretato?
- E' Object Oriented?
- Cosa posso usare per sviluppare sotto WinNT?
- Come si effettuano i test dei programmi Perl (cioe' che ambiente bisogna
avere)?
- Cosa si puo' fare col Perl (e cosa no)? (solo manipolazione di stringhe?)
Grazie
Merlino
emanuel...@elsag.it
emanuel...@tin.it
--
Posted from 
igate.elsag.it
 [194.243.48.130]
via Mailgate.ORG Server - 
http://www.mailgate.org

 - Cosa si puo' fare col Perl (e cosa no)? (solo manipolazione di stringhe?)
TUTTO, ovviamente.
Per la manipolazione di testi e' semplicemente insuperabile. Io ci ho
fatto, ad esempio, numerose procedure per l'amministrazione di sistemi
Unix, tutte le procedure CGI che "girano" sul mio sito, una
implementazione del "crivello di eratostene" e, in ambito un po piu'
inusuale, un emulatore di client e server per protocollo Modbus/TCP (un
protocollo per comunicazione con PLC industriali).
Ci puoi fare GUI (con Perl/Tk) di tutti i tipi, compreso l'accesso a
server SQL (con Perl::DBI).
Al momento non mi viene in mente altro, ma solo per mancanza di fantasia.
						l.f.
--------------------------------------------------------------------------
       -- )     Luca Fini                            Tel: +39 055 2752 307
 ___    |\      Osservatorio Astrofisico di Arcetri  Fax: +39 055 2752 292
/   |   | |-_   L.go E.Fermi, 5 +-----------------------------------------
(___|___//___)  50125 Firenze  /   WWW: 
http://www.arcetri.astro.it/~lfini
 (_)      (_)   Italia        / e-mail: 
lf...@arcetri.astro.it
-----------------------------+--------------------------------------------
                              In a world without fences - who needs GATES?

 - Cosa si puo' fare col Perl (e cosa no)? (solo manipolazione di stringhe?)
Di tutto! Dalla semplice manipolazione di stringhe, alla creazione di CGI, 
a script vari di automatizzazione, a programmi di varia utilità o, addirittura,
programmi con tanto di interfaccia grafica!
Ciao
Edo

Interpretato
Compilato just in time.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *
Newsgroup: it.comp.lang.perl
Titolo: una funzione che ritorna due array : come?

Sto scrivendo una funzione che ritorna due array e a cui viene passata
una stringa.
ho provato a scrivere:
findparents($val,\@a,\@b);
sub findparents
{
    (my $name)=$_[0];
    (my @num_oid)=$_[1];
    (my @string_oid)=$_[2];
    (my $node);
    $node=$SNMP::MIB{$name};
    unshift(@string_oid,%$node->{label});
    unshift(@num_oid,%$node->{subID});
    while ($node=%$node->{parent})
    {
	unshift(@string_oid,%$node->{label});
	unshift(@num_oid,%$node->{subID});
 
    }  
}
e a scrivere quest'altra:
findparents($val,\@a,\@b);
sub findparents
{
    (my $name)=$_[0];
    (my @num_oid)=$_[1];
    (my @string_oid)=$_[2];
    (my $node);
    $node=$SNMP::MIB{$name};
    unshift(@string_oid,%$node->{label});
    unshift(@num_oid,%$node->{subID});
    while ($node=%$node->{parent})
    {
	unshift(@string_oid,%$node->{label});
	unshift(@num_oid,%$node->{subID});
 
    }  
	return (@string_oid,@num_oid);
}
ma entrambe sono errate... come devo fare?
Grazie in anticipo per l'aiuto, Mario.

 una stringa.
Non puoi, credo. Usa 2 arrayref:
return (\@arr1,\@arr2);
---
Mario Rizzuti

 ha scritto nel messaggio
news:sTPg8.1165$uN5....@twister1.libero.it...


 concatenali
Pesante per pesante, restituisci un hash di due array:
%ret = ('array1' => @array1, 'array2' => @array2);
return %ret;
Bye,
 Emmanuele.
-- 
Emmanuele Bassi (Zefram)           [ 
http://www.radiance.d2g.com/~zefram
 ]
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4
Newsgroup: it.comp.lang.perl
Titolo: Net::POP3 (La vendetta)

Ho la seguente domanda da sottoporvi:
<<Come si può controllore se la connessione ad un mailserver, iniziata con
l'istruzione
$Con=Net::POP3->new('namehost');
sia ancora attiva.
So che, normalmente, se non si riesce a stabilire la connessione
dall'istruzione new() torna un valore indefinito, altrimenti viene creato
l'oggetto $Con che indica la connessione corrente.
 Se a questo punto la connessione dovesse cadere, la variabile $Con rimane
comunque con un valore definito e se io tentassi di usare per esempio la
funzione quit() mi viene restituito un messaggio di errore del modulo
POP3.pm.
In che modo posso controllare se la connessione è ancora attive ed in tal
caso evitare di eseguire comandi????
Anticipatamente ringrazio
    Lorenzo
    E-Mail: 
ita...@technologist.com

ls...@tin.it
 wrote:
 >In che modo posso controllare se la connessione è ancora attive ed in tal
 >caso evitare di eseguire comandi????
Devi usare il comando NOOP e vedere cosa ti risponde.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

 wrote:
:  Se a questo punto la connessione dovesse cadere, la variabile $Con rimane
: comunque con un valore definito e se io tentassi di usare per esempio la
: funzione quit() mi viene restituito un messaggio di errore del modulo
: POP3.pm.
: In che modo posso controllare se la connessione è ancora attive ed in tal
: caso evitare di eseguire comandi????
Direi che a livello di protocollo POP3 non ci siano modi per
verificare la connessione.
Dovresti controllare lo stato del socket, ammesso che di non essere
nella situazione in cui e` stato il server a morire e la connessione
non sia andata in timeout dalla tua parte per qualche altro motivo.
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nando

Newsgroup: it.comp.lang.perl
Titolo: Domanda bizarra o lapsus momentaneo?

Mettiamo questo caso:
$n = 50;
if ($n < 100) { $a = "Prima Condizione"; }
elsif {$n > 10) { $a = "Seconda Condizione"; }
else { $a = "Terza Condizione"; }
?!?
Siccome $n è sia minore di 100 che maggiore di 10... quale delle tre
condizioni sarà VERA?


solo la prima. siccome è vera e le altre sono clausole *else*,
quindi valutate solo nel caso $n < 100 sia falsa, il programma
non ci passerà mai.
tra parentesi, la terza riga ha un errore di sintassi, ma questa
è un'altra storia :-)
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
Newsgroup: it.comp.lang.perl
Titolo: Data del Server?

Con questa funzione :
($Second, $Minute, $Hour, $DayOfMonth, $Month, $Year, $WeekDay,$DayOfYear,
$IsDST) = localtime(time);
eseguita sul server di Hypermart, ottengo data e ora del mio PC!
Si può avere Data e ora del server, sapendo ch    Date is located at
/bin/date
--
Ciao, Alessandro
-----------------------------------------
Revel Team
[Software] [Lotto]
new: Il Ricevitore 2.4 (Senalotto, totogol, totocalcio, totosei, totip+,
Euro/lire)
http://santorsola.8m.com
-----------------------------------------

 eseguita sul server di Hypermart, ottengo data e ora del mio PC!
No. localtime() restituisce la data del sistema su cui viene eseguita.


Newsgroup: it.comp.lang.perl
Titolo: C'è qualcuno che mi può aiutare?

Ciao a tutti,
ho un piccolo (o grosso, dipende dai punti di vista) problema con uno
script perl che uso come CGI in un mio sito web.
Questo script non fa altro che leggere una stringa da un file
e mandarla a schermo tramite html (ho tagliato tutto il contorno, non
fa proprio questo ma è molto simile)
Nel file in questione c'e' una stringa con caratteri come "èò" e altri
che mi vengono restituiti come "?ç".
Questo probabilmente per un errore di conversione mio o nel passaggio
da CGI-BIN a web
C'è qualcuno che sa dirmi perchè e se c'è un metodo per evitare sto
casino?
Grazie a tutti
Andrea

 che mi vengono restituiti come "?ç".
non so se č la soluzione al problema:
avevo un problema simile ed era dovuto a "tabelle" diverse  di MS-DOS e
Windows.
A parte ciň, il problema potrebbe essere il browser che non riesce ad
interpretare tali caratteri.
Comunque sarebbe buona cosa (se si tratta di testo html) usare gli
specifici &eacute &Egrave ecc.
(io personalmente me lo dimentico sempre)
ciao, antonio

Ti ringrazio per la dritta ma (stranamente) и andato
a posto da solo. Probabilmente il gestore del server stava
mangiando un panino e della coca-cola gli и caduta sulla
tastiera :-))))
Bella l'idea di usare i tag html ma purtroppo i dati nel files vengono
gestiti come un db e cercati tramite query, quindi nella ricerca stessa
dovrei codificare i vari ита e altri come tag html e poi fare la
ricerca....
una menata incredibile che per ora cerco di evitare (se proprio non
ne posso fare a meno perт....)
Grazie ancora
Andrea

 ne posso fare a meno perт....)
Facile con  HTML::Entities::encode e HTML::Entities::decode per la funzione
inversa.
decode traduce i caratteri formato HTML in ISO.
encode invece fa l'opposto, cioe' traduce &eacute; ecc. in testo "normale".
--
Fernando

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

Come posso fare per eseguire uno script ?

Come posso fare per eseguire uno script ?
perl 
nomescript.pl
;)
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
Newsgroup: it.comp.lang.perl
Titolo: cpan (su Mac OS X)

Hola,
sto tentando di configurare CPAN su un nuovo computer con Mac OS X
(Tiger), ma dando da Terminale > cpan quando deve scaricare i files di
configurazione non riesce (né con lynx, né con ftp, né con wget, ecc...)
a scaricare /
MIRRORED.BY
, tentando su 128.121.60.235
E` normale?
che posso fare?
Il computer ovviamente e` collegato (adsl) e va.
Perl 5.8.6
grazie, ciao
Salvo
-- 
CAPaCE: Comitato per l'Abolizione della Parola Chiocciola nelle Email
to reply: cut alfa kai omega between AT
§alvomi©

 Sei per caso dietro a qualche firewall che magari ti maschera l'ip?
no, nessun firewall.
Ci sono riuscito ora, dopo parecchi tentativi, finalmente si è collegato
- lentamente - ed ha scaricato l'elenco, ma ho scelto i mirror che
presenta di default, non sapendo cosa fare: ho fatto male?
ciao,
salvo


 d'aiuto.
ok, grazie, me lo sto leggendo.
soprattutto ho notato, una volta che il Mac si collega, la lentezza in
alcuni download da CPAN: anche 15 tentativi e velocità (e parliamo di
adsl) di 0.8 kb/s e simili.
Dovrei anche rivedere la configurazione di CAPN, probaiblmente.
salvo



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


molto utile, grazie
ciao,
Salvo

Newsgroup: it.comp.lang.perl
Titolo: Finalmente UBB6 in italiano

A chi è interessato:
la traduzione di Ubb6 in italiano
http://robycolt.netfirms.com
vi è anche un forum di supporto (naturalmente su ubb)

 ha scritto nel messaggio
news:IdaV6.2686$6m2....@news.infostrada.it...


Newsgroup: it.comp.lang.perl
Titolo: esecuzione di un blocco di codice con privilegi di root

Saluti a tutti,
ho una domanda da principiante: se voglio che uno script esegua un 
blocco di istruzioni (solo e soltanto quello) con privilegi di root, 
come posso fare, garantendo comunque un minimo di sicurezza 
all'applicazione?
Grazie a tutti
Stefano

Stefano scripsit:

Problemino interessante... ci rifletto e ti dico:)
-- 
Leo "TheHobbit"
-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GED/CS d? s-:+>-: a C+++ U+++ L++(+++)>++++ P+++>+++++ E+(++) 
W++ N+ K? o? !w O? M V--- PS+++ PE-- Y+ GPG+ t++ 5? X- R+ tv+ 
b++++ D? DI? G e(++++)* h(+) r--(---) y(+)-->+++*
------END GEEK CODE BLOCK------
remove nospamme from mail address to reply

 all'applicazione?
In Windows è di una semplicità mostruosa:
 - chiedi la password all'utente
 - fai il login con il nome utente e la password fornita
 - duplichi il token così ottenuto
 - impersoni il token duplicato
 - esegui il codice in questione
 - elimini entrambi i token
 - reimpersoni l'account originario
Ho la brutta impressione che in Unix l'unico modo di farlo sia il 
comando "su"
-- 
Nato nel vizio, morto nel supplizio
Nato nel peccato, ad entrare sia invitato

Ciao!
Sotto Linux hai bisogno di perl-suid, che permette di eseguire script Perl 
sotto UID diversi da quello dell'utente che li lancia. Alternativamente 
puoi chiamare il comando esterno "su" passandogli la password di root, che 
pero` devi memorizzare piu` o meno in chiaro nel tuo script o in un posto 
da questo accessibile.
Sotto Windows non saprei dirti.
Michele.
Newsgroup: it.comp.lang.perl
Titolo: problema con la funzione system

ciao
da un CGI lancio un programma esterno con
"system". Devo in seguito analizzare l'output
di questo programma per fare altre cose ...
Purtroppo sembra che
 system("myprogram > myoutput");
finisca prima che myprogram completi il file
myoutput, quindi il mio CGI esamina il file
incompleto con conseguenze disastrose.
E' possibile o sbaglio io qualcosa ?
Sulla documentazione di system ho trovato:
"Does exactly the same thing as exec LIST,
except that a fork is done first, and the
parent process waits for the child process
to complete."
 aiuto!
Raffaello

Scusate ho risolto.
Il comando che eseguivo era in qualche modo errato.
Ora funge.
 Raffaello

 Ora funge.
comunque, a meno che non ti serva esplicitamente lanciare un nuovo processo
facendo un fork, meno usi system e meglio č ;-)
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

 facendo un fork, meno usi system e meglio č ;-)
Ti assicuro che in questo caso e' necessario ...
Magari per cose accessorie come
	system('chmod 755 '.$seq_file);
	system("mv $name.tmp $seq_file");
potrei evitarlo ?
Come ?
Ad ogni modo se e' solo un problema legato alla sicurezza,
non mi tange perche' le CGIs che scrivo non sono eseguibili
"all'esterno".
 Raffaello

Come ?
leggendoti un po' di documentazione :-). Il chmod per esempio lo puoi usare
direttamente in perl, come tutta una serie di system interaction (Es.:
chdir, chroot ecc.)
vedi se magari non risolvi direttamente con do o require o exec, ecc.


Newsgroup: it.comp.lang.perl
Titolo: Login in Perl e gestione utenti

Salve,
ho difficoltà ad implementare un sistema di login
che tenga poi conto dell'utente che ha loggato.
Ho provato libwww ma senza successo perché
sotto Win 2000 non funziona.
Per Linux ci sono una marea di script, ma sotto
Windows non riesco.
Mi occorre che una volta entrato l'utente, ogni volta
che si chiama uno script, posso tenere in memoria
un riferimento per querizzare il db.
Grazie, saluti
--
Marco Santullo
Ganesh Domains
ICQ 107779618

 che tenga poi conto dell'utente che ha loggato.
Usa il modulo WebDB::Session (che utlizza a sua volta Apache::Session
, che a discapito del nome NON dovrebbe dipendere da Apache)
In questa maniera avrai un ID univoco per ogni sessione, da associare
all'utente che ha fatto login. Tale ID lo puoi mettere in un cookie, in
un campo hidden di un form o nell'url.
Lato server, l'ID ti serve come chiave primaria di una tabella a cui
associ l'utente e con un join alla tabella dei permessi dell'utente, 
ottieni quanto voluto.
Potresti ottenre la stessa cosa usando come ID l'intero che ti ritorna 
(ad esempio in MySQL) l'autoincrement della chiave primaria.
Newsgroup: it.comp.lang.perl
Titolo: apache su linux rh 7.0

Cia
Ho apache su linux red hat 7.0 ed il per 5.6 con apache 1.3
Se scrivo:
    use CGI;
    start_html();
e' tutto ok ,ma se scrivo:
use CGI;
q=new(CGI);
print q->start_html;
.....
non riesco a visualizzare le pagine html da un browser esterno.
Eppure se eseguo dalla shell perl 
mioscript.pl
 come output ho il 
codice HTML corretto. 
Voi che ne dite ?
-- 
Posted from 
mail-6.tiscalinet.it
 [195.130.225.152] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

    start_html();
Cosa devo installare per usare tale modulo?
Documentazione relativa?
Saluti, P.
--
+++++++++++  Poesia & Entropia ++++++++++++
http://theunixplace.com/~entropia/index.htm
+++++++++++++++++++++++++++++++++++++++++++

Documentazione relativa?
Ora sono le 6.13 aspetta che carburo un poco e poi ti dico!
Ciao

 ha scritto nel messaggio
news:983141477....@news.tin.it...


Newsgroup: it.comp.lang.perl
Titolo: prototype in perl

In Javascript ho la possibilità di aggiungere  metodi in maniera molto
facile.
ad oggetti  predefiniti.
Ad esempio
Node.prototype.nuovometodo = function {
                                                    //do something
                                                    return true;
                                                    }
Quindi quando ho un elemento della Classe Node non devo far altro che
Oggetto.nuovometodo();
E' possibile una cosa analoga in Perl?
Tengo a precisare che Ovviamento l'oggetto al quale aggiungere una proprietà
è un oggetto esterno, che non posso modificare... quindi avrei bisogno di un
sistema per aggiungerci dei metodi, che nel mio contesto si ripetono.
Ciao e grazie a tutti per l'aiuto.
--Gabriele

 sistema per aggiungerci dei metodi, che nel mio contesto si ripetono.
Potresti creare una sottoclasse della classe in questione
e aggiungere i metodi che ti servono. Se invece intendi dire
che vuoi aggiungere metodi _proprio_ a quella classe, allora
puoi ruzzare nella tabella dei simboli. Spiego questa ed
altre tecniche nel seguente articoletto, che in verita` dovrei
sistemare e pubblicare come si deve sul mio sito (leggasi: accetto
suggerimenti e segnalazioni di errori. thank you very much :)).
Spero possa esserti comunque utile:
 
http://larsen.perlmonk.org/perl/dynamic.html
ciao
Stefano

 e aggiungere i metodi che ti servono.
Penso che questa possa essere la strada che fa al caso mio... ma non è che
mi sai indicare quache esempio, una reference,  per prendere spunto?
Ciao.
--Gabriele
Newsgroup: it.comp.lang.perl
Titolo: Giorno della settimana

 dato si aggirerebbe l'ostacolo.
Come fai ad ottenere la data da quello che si connette (senza barare con
javascript, ovviamente!)?
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

luned=EC, mercoled=EC.
Puoi usare localtime():
$wkday = (localtime)[6];
Ti troverai un valore da 0 a 6 (0=Domenica) in $wkday. Se vuoi utilizzare
l'ora UT puoi usare gmtime() al posto di locatime().
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

 print "Oggi è un $giorno.\n";'
Oggi è un martedì.
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: Rcerca di aiuto

Buon giorno,
vi scrivo perchè ho un problema abbastanza grave. Credo che sarà lungo da
spiegare, quindi mi scuso già da ora.
Ho creato dei Pop account in /home/minanet/bassani con l'interfaccia wow
logandomi come minanet user. I pop hanno un accesso ftp/telnet. I pop si
presentano così (popaccount è un esempio):
email: 
popac...@bassani.it
directory:/home/minanet/bassani/popaccount
mode: drwxr-x-r-x
owner: popaccount
group: minanet
logandomi come user popaccount ho fatto l'up load dei file .forward e
.procmail, questi file sono:
owner: popaccount
group: bassani
mode: rw-r--r--
Adesso ho creato degli script perl con lo scopo di dare a bassani una
interfaccia che dia la possibilità di modificare i 2 file e questi script
sono in /home/minanet/cgi-bin/bassani (bassani non ha una directory
cgi-bin). Io so (ma non so se sia vero)quando scrivo uno script in perl in
/home/minanet/cgi-bin abbiamo:
user: minanet
group: minanet
directory: drwxrwxrwx
mode: rw-r--r--
Ho scoperto che se la directory ha diritti drwxrwxrwx il file .forward non
funziona. Cosi io vorrei cambiare i diritti al file dopo averci scritto.
Ma minanet non è l'owner della directory popaccount e tramite gli script
perl non mi fanno modificare i diritti.
Ecco "tutto qui" spero che qualcuno capiasca il problema e riesca ad
aiutarmi.. anche un piccolo consiglio.
Grazie.
Nicola

 funziona. Cosi io vorrei cambiare i diritti al file dopo averci scritto.
[...]
ce l'hai gia' chiesto.
Hai fatto quello che ti e' stato detto?
ciao, marco
--
Marco Cacchiani                                
e-mail:ma...@sirius.pisa.it
Public pgp key:         
http://www.sirius.pisa.it/marco/pgp_public_key.asc
Sirius Servizi Informatici                     e-mail: 
in...@sirius.pisa.it
Parco Teatro Pasolini, 1                       Phone:  +39 (50) 865120
I-56019 - Vecchiano                            Fax:    +39 (50) 860260
(Pisa - ITALIA)                                
http://www.sirius.pisa.it/

 wrote in message
976877...@vega.sirius.pisa.it...

Volevo innanzi tutto ringraziarti per il consiglio. Io ho provato a dare i
diritti al file con il comando chmod u+s <nome file> però quando io lancio
il programma mi visualizza l'errore INTERNAL SERVER ERROR.
Mi scuso ancora per le mie lacune in materia, e ringrazio chi magari riescre
a darmi una soluzione.

 INTERNAL SERVER ERROR.
Questo potrebbe anche essere un buon segno: potrebbe essere un errore legato
al fatto che ora il tuo CGI gira con la UID di popaccount. Dai un'occhiata
all'error log del tuo http server e sistema le cose che non vanno.
Poi, come ti avevo detto a suo tempo, contatta anche il tuo ISP e fatti dire
se serve un wrapper per far girare SUID i tuoi CGI.
In ogni caso tutto questo, come e' gia' stato fatto notare, e' OT qui. per
ulteriori informazioni ti consiglio di rivolgerti ad un newsgroup piu'
appropriato per questo tipo di problema.
p. es. it.comp.www.cgi, it.comp.www.html e anche: it.comp.linux.*,
comp.os.linux.* (se il tuo server gira sotto linux), comp.mail.sendmail.

Newsgroup: it.comp.lang.perl
Titolo: Ancora...e sempre flock()...

Ciao a tutti...
Sembra che questa sia diventata una mia ossessione...e lo resterà fino
a che non avrò risolto il mio problema.
Ho trovato su 
www.perl.com
 il seguente esempio di flock():
use Fcntl ':flock'; # import LOCK_* constants
    sub lock {
        flock(MBOX,LOCK_EX);
        # and, in case someone appended
        # while we were waiting...
        seek(MBOX, 0, 2);
    }
    sub unlock {
        flock(MBOX,LOCK_UN);
    }
    open(MBOX, ">>/usr/spool/mail/$ENV{'USER'}")
            or die "Can't open mailbox: $!";
    lock();
    print MBOX $msg,"\n\n";
    unlock();
Pensate che possa essere, con le dovute modifiche, adeguato a qualsiasi
tipo di script? E, soprattuto, potrebbe risolvere il problema degli
ingressi multipli sullo script?
TIA & Regards
Armando.
Sent via Deja.com 
http://www.deja.com/
Before you buy.

 ingressi multipli sullo script?
Si. La funzione flock() serve esattamente a consentire l'accesso ad un
file solamente ad un processo alla volta.
							l.f.
-- 
--------------------------------------------------------------------------
       -- )     Luca Fini                            Tel: +39 055 2752 307
 ___    |\      Osservatorio Astrofisico di Arcetri  Fax: +39 055 2752 292
/   |   | |-_   L.go E.Fermi, 5 +-----------------------------------------
(___|___//___)  50125 Firenze  /   WWW: 
http://www.arcetri.astro.it/~lfini
 (_)      (_)   Italia        / e-mail: 
lf...@arcetri.astro.it
-----------------------------+--------------------------------------------
                              In a world without fences - who needs GATES?


Spero di non cadere in OT!
Ma se su un file č impostato un lock e 3 processi lo richiedono
simultaneamente (diciamo con scarti in termini di millisecondi), flock()
crea una sorta di scaletta?
Mi spieog meglio: il primo processo accede al file senza problemi, il
secondo viene messo in attesa finchč non si libera il file, il terzo
aspetta che termini il secondo e cosě via ...
E' corretto o funziona in qualche altro modo?

 il terzo aspetta che termini il secondo e così via ...
  E` un comportamento strettamente dipendente dal sistema operativo, ti
conviene chiedere in un gruppo dedicato al SO in questione.
	Alla prossima,
		Marco

 conviene chiedere in un gruppo dedicato al SO in questione.
Ecco perchè avevo paura di essewre OT! :-)))
Ciao 
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....
Newsgroup: it.comp.lang.perl
Titolo: URGENTE!! E' possibile distribuire CGI su tipi di server sconosciuti??

devo distribuire un file CGI su tipi di server (MICROSOFT NT,
NETSCAPE, NCSA ecc...) che io a priori non conosco il tipo
e che poi funzioni senza tanti settaggi di accesso sul server
E' possibile???
Grazie

zangheri wrote:

beh la macchina su cui deve girare il tuo server deve avere tutto il
necessario
interpreti, librerie varie etc
quindi significa che devi avere nella maggior parte dei casi i sorgenti
delel librerie per
compilarle sulle varie piattaforme...
Ho provato a portare alcuni miei script fatti sotto linux stto nt e me
li ha eseguiti tranquillamente
tieni presente pero' che sotto nt non esiste un progrmma di sistema come
il sendmail
o te lo scrivi o ti diverti con le socket e chatti direttamente con le
porte e i servizi..
se ti serve altro fammelo sapere
ciao
    Davide

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

I moduli in Perl per essere installati hanno bisogno dell'amministratore
della rete o posso farlo anchio in ftp o con telnet??
--
Ciao
FAIEL
www.fulleffect.it
 -Il portale italiano del writing-

della rete o posso farlo anchio in ftp o con telnet??
Dipende dal modulo. In generale puoi installarli anche tu, naturalmente
non nelle directory system-wide ma sulle tue.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

Newsgroup: it.comp.lang.perl
Titolo: regular expression

Ciao 
io devo poter separare da un'indirizzo email il suo dominio (es.
fra...@intenet.net
 io devo riocavare 
intenet.net
). Qualcuno mi dice la
Regular expression per fare cio' grazie.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


split() potrebbe bastare.
my @parti = split "\@", $email;
$dominio = $parti[-1];
---
Mario Rizzuti
Newsgroup: it.comp.lang.perl
Titolo: link dentro tabella html con CGI.pm

Ciao a tutti, secondo documentazione CGI.pm il comando:
print a( {-href=>"page2.html"}, "Jump");
crea un link: e infatti funziona.
Stesso ragionamento, mi creo un tabella, anzi una riga con 2 colonne.
Dentro la prima inserisco la scritta "ciao", nella seconda colonna la
scritta "hello"
 
 print h1("Results"),
     start_table({-border=>'1', -width=>'100%'}),
     Tr({-align=>'LEFT', -VALIGN=>'TOP'},
         th({-width=>'50%', -bgcolor=>'white'},"ciao"),
         th({-bgcolor=>'white', -fontcolor=>'black'},"hello" 
     ); 
Fino a qui tutto bene, ma se incrocio non funziona. Cioč io voglio
inserire un link dentro la cella della tabella ma se scrivo:
 print h1("Results"),
     start_table({-border=>'1', -width=>'100%'}),
     Tr({-align=>'LEFT', -VALIGN=>'TOP'},
         th({-width=>'50%', -bgcolor=>'white'},"ciao"),
         th({-bgcolor=>'white', -fontcolor=>'black'},print a(
{-href=>"page2.html"}, "Jump"))
     ); 
nella cella dove mi aspetto il link trovo scritto il carattere "1" e il
link lo trovo a inizio pagina. Non capisco.....
grazie in anticipo, andrea
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 grazie in anticipo, andrea
Semplicemente, hai messo un "print" di troppo.
Basta rimuoverlo e funziona:
print h1("Results"),
	start_table({-border=>'1', -width=>'100%'}),
		Tr({-align=>'LEFT', -VALIGN=>'TOP'},
			th({-width=>'50%', -bgcolor=>'white'},"ciao"),
			th({-bgcolor=>'white', -fontcolor=>'black'},
				a({-href=>"page2.html"}, "Jump"))
		);
Ciao,
Emanuele.

 Basta rimuoverlo e funziona:
ah!! grazie! ciao, andrea 

Newsgroup: it.comp.lang.perl
Titolo: FTP

Ciao a tutti, per reperire file in ftp uso da sempre la libreria
Net::FTP. Ora però ho la necessità di effettuare un mget. Questo
metodo non è supportato da questa libreria, o almeno io non ho trovato
modo di utilizzarlo.
Ho cercato in cpan altre librerie che mi permettessero di compiere
questa operazione ma l'unica che ho trovato è Net::SFTP::Foreign.
Purtroppo però il server da cui devo reperire i dati non ha ssh attivo
e niente sftp.
Qualcuno sa indicarmi un sistema alternativo?
grazie

modo di utilizzarlo.
Non � supportato direttamente ma, attraverso Net::Cmd, puoi comunque
trasmettere il comando, gestendo poi naturalmente il dialogo conseguente;
in sostanza puoi implementare mget in Net::FTP.
Oppure, puoi ottenere una lista dei file che ti interessano, e richiederli
uno alla volta con get. In rete puoi trovare esempi.
Di fatto, mget mi sembra pi� una convenienza per un uso interattivo di ftp
da parte di un umano; in uno script in genere si pu� farne a meno.
Ciao.

 Ciao.
grazie, proverò a vedere Net::Cmd. Il motivo per cui necessito di
usare mget al posto di fare il listing dei files e prenderli uno per
volta con il get è che, a volte, dato che si tratta di molti files, il
listing fallisce e conseguentemente anche il reperimento dei files.
Non credo sia un problema della libreria ma del server a cui devo
accedere. Volevo usare mget proprio per evitare di incappare nel
problema del reperimento della lista.
ciao

grazie, prover� a vedere Net::Cmd.
Per chiarire, Net::Cmd � ereditato da Net::FTP, cio� non devi usarlo
direttamente, basta "use Net::FTP". L'implementazione completa di mget mi
sa sia un po' complessa (comunque pi� complessa che simularla lato client),
ma � teoricamente possibile.
Ciao.

 in sostanza puoi implementare mget in Net::FTP.
Non mi risulta che il protocollo FTP supporti il comando "mget", come
anche non supporta nemmeno il comando "get". Il comando per reperire i
file è RETR, infatti non a caso nell'implementazione della "sub get"
in Net::FTP si trova:
   $data = $ftp->retr($remote)
che poi, a sua volta, manda il comando RETR:
   sub retr { shift->_data_cmd("RETR", @_) }
"get" e "mget", per quanto ne so, sono comandi non già di protocollo
ma normalmente disponibili a livello di client FTP, che poi vengono
appunto mappati in una RETR "secca" per il primo ed in una NLST
seguita da varie RETR per il secondo.
Ciao,
   Flavio.


Credo che non ti rimanga alternativa se non incrociare le dita... In
ogni caso l'argomento è trattato nella FAQ


... purtroppo è partita troppo presto, l'elemento della FAQ è qui:
http://search.cpan.org/~gbarr/libnet-1.22/Net/libnetFAQ.pod#Why_does_Net::FTP_not_implement_mput_and_mget_methods
dove è suggerita anche un'implementazione di massima.
Ciao,
   Flavio.
Newsgroup: it.comp.lang.perl
Titolo: ping script in perl ....where can I get one?

I've searched and searched, but I can't find a script that can 'ping'. Are
there any of you who knows where I can find a ping script (preferably in
perl)?
Thanks for your help.
/Mads


		attenzione: rispondere solo a questo indirizzo!
 
	An NT server can be run by an idiot, and usually _is_.

Newsgroup: it.comp.lang.perl
Titolo: Segnalazione di un sito sviluppato in Perl

A parte il tema di cui si occupa il sito, peraltro molto interessante
( 
http://evasori.info/
 ) vi invito ad osservale la pagina
http://evasori.info/faq.cgi
 in fondo, alla domanda "Sono un nerd e
voglio saperne di più"



Interessante, ma non capisco il senso di fare la pagina delle faq in perl

 Interessante, ma non capisco il senso di fare la pagina delle faq in perl
Suppongo, dall'elenco dei moduli Perl usati, che tutto il sito sia
fatto in Perl

Matteo wrote:

È tutto il sito ad essere fatto in Perl, e si tratta di un interessante 
esempio di implementazione di quello che, secondo il lessico corrente, 
si direbbe un /web mashup/.
Peraltro, è interessante anche l'argomento.
Complimenti all'autore e grazie ad Oreste per la segnalazione.

 si direbbe un /web mashup/.
Gli manca solo una cosa: un set di API HTTP (restful, ovviamente). Se non
esponi delle API non sei veramente Web2.0. :-)
Max

 Max
Un commento al volo, non ho ancora verificato, ma quelle google map
non sono API?


ovvero:
http://tinyurl.com/bqanjv
Č il bello del Web2.0 :-)

 
http://tinyurl.com/bqanjv
Ma ovviamente non si aggiornano, rimanendo statici i dati (che sono 
nella URL stessa), per cui per prelevarle continuativamente sempre il 
web scraping ci vuole.

 web scraping ci vuole.
Queste per le chart.
Con le mappe va meglio: se uno grabba il codice, se le vede sempre 
aggiornate.

On Jan 23, 9:44 pm, Emanuele Zeppieri

A proposito di API, dopo i vostri interventi ho letto la
documentazione perlapi che fa riferimento al file 
embed.pl
 che però
non ho trovato da nessuna parte. Come si implementano le funzioni?

 Come si implementano le funzioni? 
Quali funzioni vorresti implementare? Non capisco che cosa tu ti riferisca.
Max

Grazie a tutti per i suggerimenti! Avevo gia' pensato ad una API per
esportare alcune funzionalita' di 
evasori.info
, non ho avuto tempo
finora ma se trovo il tempo lo faccio, almeno una API REST per le
funzioni di ricerca sarebbe facile. Ma quanti la userebbero?
Se qualcuno si volesse offrire volontario per scrivere codice si
faccia vivo contattandomi direttamente a questo indirizzo di email!
Nel frattempo fate pubblicita' al sito!
-Ace (Anonimo Contro l'Evasione)

 Max
Stavo solo leggendo, non studiando perché il tempo mi è nemico, la
documentazione perlapi 
http://perldoc.perl.org/perlapi.html
 in
particolare il passaggio "This file contains the documentation of the
perl public API generated by 
embed.pl
"

 Nel frattempo fate pubblicita' al sito!
È già talmente famoso che penso non ne abbia bisogno, ma gliela farò 
senz'altro perché lo merita ;-)
Newsgroup: it.comp.lang.perl
Titolo: Sendmail

Salve,
volevo sapere se usando sendmail all'interno di uno script perl e'
possibile fare un attachment di un file.
Grazie
Ciao
Donatella :)
--
Posted from [195.120.213.3] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie
Si, con il modulo MIME::Lite, e senza troppe complicazioni, anche!
Ciao
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

possibile fare un attachment di un file.
No, devi usare uno dei moduli per creare messaggi MIME.
-- 
ciao, |
Marco | * The Internet is full. Go away.  -- Joel Furr *
      | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

 devi usare uno dei moduli per creare messaggi MIME.
  Soluzione migliore, ovviamente, ma non l'unica (come sempre, quando si
parla di Perl).
	Alla prossima,
		Marco


Grazie ragazzii!!!!!!!
Ho risolto con il modulo MIME::Lite


Newsgroup: it.comp.lang.perl
Titolo: codifica MIME 64

Qualcuno sa dirmi come posso codificare una stringa in MIME 64?
grazie,
Riccardo

 Riccardo
Ciao!
Newsgroup: it.comp.lang.perl
Titolo: Una coriosità!

La curiosità che mi sorge è questa: partendo dal fatto che in Perl le
variabili sono utilizzabili senza una precedente dichiarazione (come ad
esempio in C), se con, ad esempio, un push() inserisco degli elementi in
un array mai utilizzato precedentemente, l'interprete si incavola?
A dire la verità, ho anche provato con uno scriptino: l'array si
"riempie" e non sembra dare problemi.
Ma la cosa è lecita o _sarebbe_ meglio, per qualche motivo, dichiarare
l'array prima di riempirlo (ovviamente lo si dichiara vuoto!!)??
Giusto per sapere :-)
Grazie!
M.

 
La cosa è perfettamente lecita in Perl. Il che non vuol dire sia una
pratica saggia. Un refuso nello scrivere il nome di una variabile può
produrre bug estremamente subdoli.
Chi non ha mai fatto errori del genere?
 $Position = 7;
 print $Array[ $position ];
Si può inibire la dichiarazione implicita delle variabili ricorrendo alla
direttiva "use strict", che ti impone di introdurre ogni variabile
mediante "my" o "use vars".
Il mio modesto suggerimento è di adoperare "use strict" sempre. 
Max

Il mio modesto suggerimento č di adoperare "use strict" sempre. 
Anche io sono d'accordo sull'uso di use strict, ma finora ho usato sempre my per
la dichiarazione delle variabili.
Ciao
	Pirla
Per rispondere in E-mail the (punto) pirla (chiocciola) 
flashnet.it
*** un bacio ai pupi ***
---> Linux user since yesterday <---

Newsgroup: it.comp.lang.perl
Titolo: problemi con JSON::XS

)
     CALLED_FOR   JSON::XS
     CHECKSUM_STATUS
     CONTAINSMODS JSON::XS
     UPLOAD_DATE  2009-05-30
     incommandcolor 1
     localfile 
/root/.cpan/sources/authors/id/M/ML/MLEHMANN/JSON-XS-2.24.tar.gz
     negative_prefs_cache 4
     prefs        HASH(0x6956160)
     prereq_pm_detected 0
     reqtype      c
I'd recommend removing
/root/.cpan/sources/authors/id/M/ML/MLEHMANN/JSON-XS-2.24.tar.gz. Its
checksum is incorrect. Maybe you have configured your 'urllist' with
a bad URL. Please check this array with 'o conf urllist', and
retry.
qualcuno ha idea di quale sia il problema?

 qualcuno ha idea di quale sia il problema?
Il problema è un mismatch del checksum, come avrai visto anche tu.
Per vedere se si tratta veramente di un problema di integrità del file:
1. prova a reinstallarlo dopo aver cancellato:
.cpan/build/JSON-XS-2.24-*
(cpan se lo riscarica).
2. se dà ancora lo stesso problema, cambia repository con:
o conf urllist 
ftp://ftp.funet.fi/pub/languages/perl/CPAN/
o conf commit
(il repository indicato ha il file sicuramente integro).
Se continua a darti lo stesso problema anche dopo 1 e 2, facci sapere.

 Se continua a darti lo stesso problema anche dopo 1 e 2, facci sapere.
avevo già provato a cancellare e riscaricare il file, niente da fare, 
aggiungendo il nuovo repository funge, grazie	:)
Newsgroup: it.comp.lang.perl
Titolo: Catturare l'estensione e quantificare i kb di un file in upload

Salve a tutti,
ho bisogno di alcune dritte per ottenere l'estensione di un file che si sta
uploadando e per ottenere anche la dimensione dello stesso.
Come si puň fare?
Grazie!

 uploadando e per ottenere anche la dimensione dello stesso.
da perldoc CGI
leggo che per sapere il tipo dell'allegato basta:
       $filename = $query->param('uploaded_file');
       $type = $query->uploadInfo($filename)->{'Content-Type'};
(se il nome del form di upload è appunto "uploaded_file")
Per la dimensione non so se CGI.pm ne è a conoscienza, ma puoi sempre
visionare tutto il contenuto dell'hash %{$query->uploadInfo($filename)}
per vedere se c'è la chiave giusta.
Oppure puoi sempre leggere la dimensione dopo avere scritto l'upload
su disco:
     $fh = $query->upload('uploaded_file');
     while (<$fh>) {
           print;
     }
o per le versioni - recenti di CGI.pm:
        open (OUTFILE,">/usr/local/web/users/tuofile");
        while ($bytesread=read($filename,$buffer,1024)) {
           print OUTFILE $buffer;
        }
Se però l'informazione della dimensione ti serve per bloccare 
upload di dimensioni maggiori di un tot, allora ti serve dare un valore
alla variabile:
$CGI::POST_MAX
che rappresenta il numero massimo di byte che CGI.pm è disposto ad
accettare in input.
-- 
$_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572,,($_,$b)=
split?#?;@b=split?;?;map{$c.=$_,$d.=chr$b[$e++]+ord}split??,pack'H24',$b
;chop$d,print$c.chr(32).$d

 ha scritto nel messaggio
news:3E00DF7A...@friuli.com...


Newsgroup: it.comp.lang.perl
Titolo: Una espressione regolare

Vorrei trasformare una stringa di caratteri, troncandola al decimo carattere
e sostituendo tutti quelli successivi da 3 puntini
es.
$variabile="
dominio_web.com
"
trasformarla in:
$variabile="dominio_we..."
GRAZIE!

Primo,

  Perche` scomodare le espressioni regolari?
	$dotted=(substr $string,0,10).'...'
	Alla prossima,
		Marco

 e sostituendo tutti quelli successivi da 3 puntini
scusate sarebbe giusto questo?
$_="bbbbbbbbbubububububahhhh";
s/(.{10}).*/\1\.\.\./;
ciao,
riky
mailto:
ri...@canyoufind.it
_____________________________

Newsgroup: it.comp.lang.perl
Titolo: come si definisce una costante

forse x colpa della mia scarsa vista e di essere un niubbo non ho capito se
in Perl si possono definire costanti... la cosa credo sia possibile,
qualcuno mi dice come?
grazie


use constant VAR => 'valore';
Per maggiori info:
perldoc constant
Cya
Angelo

Newsgroup: it.comp.lang.perl
Titolo: DBD per MSQL

Ciao,
vorrei eseguire delle query su un db Microsoft SQL Server da una macchina
unix,
quale e' il driver dbd da utilizzare ?
Grazie
Andrea

 quale e' il driver dbd da utilizzare ?
Io personalmente ho usato DBD::ODBC . Dovrebbe funzionare anche DBD::Sybase

 quale e' il driver dbd da utilizzare ?
Ti segnalo in particolare questo articolo:
http://www.perlmonks.org/index.pl?node_id=392385
su perlmonks inoltre trovi molti esempi di connessioni con DBD::ODBC

 su perlmonks inoltre trovi molti esempi di connessioni con DBD::ODBC
Grazie mille,
Andrea
Newsgroup: it.comp.lang.perl
Titolo: script su win 2000

Ciao, ho portato su windows 2000 con ActivePerl installato uno script che
prima mi funzionava su Linux. Il problema č che non riesco a fargli leggere
la basedir in maniera corretta. Lo script esegue una ricerca all'interno di
un sito. E sotto linux era /docs, ora dovrebbe essere sotto inetpub/wwwroot
ma non so come devo scriverlo o se bisogna settare qualcosa ... Come devo
fare? Grazie

 fare? Grazie
Se ho capito bene, il problema è dovuto a IIS.
IIS quando esegue uno script imposta come working directory la directory
root ( es. C:\ ) mentre Apache imposta la directory in cui lo script
si trova.
Per risolvere il problema devi mettere un comando:
chdir($directory_script);
all'inizio dello script, dove $directory_script è la directory in cui si
trova lo script eseguito.
Marco.

 bisogna settare qualcosa ... Come devo fare? Grazie
Non e' in  inetpub/wwwroot/docs, ma in c:\\inetpub\\wwwroot\\docs (il 
doppio \ non e' da utilizzare sempre e ovunque ci vuole un minimo di 
grano salis)
-- 
Saluti,
Giancarlo

 > che prima mi funzionava su Linux. Il problema č che non riesco a


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

Come faccio a sostituire il bottone "submit" (o qualsiasi altro bottone) di
un form con una immagine?

 un form con una immagine?
In Perl? Esistono i bottoni Submit in Perl? Deve esserci un errore sul mio
manuale. Andro' a farmi ridare i soldi indietro! :)
Scherzi a parte, devi chiederlo ad un gruppo di HTLM.
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: evitare che uno script venga modificato...

Vorrei fare in modo che uno script che deve venir lanciato da persone che
non conoscono perl non possa essere modificato.
e' possibile criptare lo script perl in modo da permettere di lanciarlo ma
non di modificarlo ?(non mi interessa una sicurezza assoluta, basta che non
sia facilmente modificabile).
Grazie,
Paulus
http://spazioweb.inwind.it/it_informatica
--------------------------------
Inviato via 
http://usenet.libero.it

Le persone che non conoscono perl lo possono modificare comunque: basta che
ci aggiungano un paio di carateri qua e là e non funzionerà più! :-)
Se invece tu intendi che vorresti proteggere il tuo lavoro, in modo che chi
ha bisogno di modificarlo TI DEVE PAGARE :-) allora se puoi, fai girare lo
script da un server dove le "persone" non hanno accesso.
Per il resto cerca nelle faq
ciao
--
-.. --- -- .. --.. .. ---
-.. . -- .. -.-. .... . .-.. .. ...
"Paulus" <xx...@xxx.xx> wrote in message
news:193Z70Z162Z78Y1...@usenet.libero.it...


 script da un server dove le "persone" non hanno accesso.
Oppure potresti "compilare" lo script con perlapp
(
http://www.activestate.com/pdk
)
oppure trasformarlo in bytecode (perldoc B) ma questo so che si puo' fare ma
non so come si fa e se funziona realmente...
anzi, se qualcuno lo sa, si faccia avanti ché m'interesa tantissimo!! :-)

 wrote in message
news:aohpsb$15h$1...@lacerta.tiscalinet.it...


 :-) 
Per un opportuno valore di "funziona" :-)
In perl 5.8.0 B::C passa il 94% dei test di regressione (IIRC).
Per quanto ne so salvare il Bytecode (B::Bytecode) e il cosiddetto
compilatore ottimizzato (B::CC) non funzionano. Credo che tutti
e tre funzionino in 5.6.0 ma non funzionino in 5.6.1.
Ad ogni modo, gli eseguibili prodotti sono _GROSSI_.
Per esempio Cwd.pm sono circa 300k. CPAN.pm, con tutti i suoi
prerequisiti sono 6Mb, sempre se mi ricordo correttamente.
Ciao
Mattia