mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: dove viene definito @INC ?

 ICQ# 33538863
Undergraduate Student of Computer Science at University of Bologna, Italy
SysAdm of 
verdicchio.students.cs.unibo.it
 (130.136.3.134)
	"Information wants to be Open"

 
Aggiungi i path che ti interessano alla variabile d'ambiente PERL5LIB.
Max

Aggiungi i path che ti interessano alla variabile d'ambiente PERL5LIB.
Possibile che non ci sia modo di farlo dal sorgente, posso modificare solo
quello non l'ambiente di esecuzione del mio script.


ridefinire @INC, niente !
Questo funziona:
unshift @INC, '/opt/gcn/bin';
require common;
-- 
ciao, | * The Internet is full. Go away.  -- Joel Furr *
Marco | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

 quello non l'ambiente di esecuzione del mio script.
Certo che c'è: "use lib".  Ora cerchiamo di capire perchè a te non
funziona. Innanzitutto, sei sicuro che il modulo 'lib' (
lib.pm
) venga
trovato? L'installazione del perl è stata fatta correttamente? Te lo
chiedo perchè in un altro tuo messaggio ho letto che hai l'esigenza di
usare perl su un sistema in cui non è stato installato. Se è questa la
situazione, ci sono due cose che potresti provare:
 1. aggiungere i path che ti interessano tramite l'opzione -I, che
 puoi inserire anche nella shebang
   #!/path/to/perl -I/path1 -I/path2
 2. modificare @INC all'interno di un blocco BEGIN
   BEGIN {
       unshift @INC, "/path";
   }
   (se lo fai fuori da un blocco BEGIN l'operazione non ha
    effetto sulle direttive 'use'.)
Max

require common;
ho provato anche quello.
Ma resta di fatto che perl continua ad andare a leggere _anche_ nelle
dir di default, io vorrei che leggesse *solo* da una dir che gli
specifico io dal sorgente.


    effetto sulle direttive 'use'.)
Ecco perche' non veniva modificato @INC.
Tnx


 copiare ?
Non è facile dire cosa è indispensabile e cosa no. Dipende in gran parte
da quali moduli devi usare. Secondo me la cosa più pulita è compilare una
versione di perl specificando in fase di configurazione un prefix idoneo
al sistema su cui devi usarlo. Poi copi tutto dall'altra parte e sei a
posto (assumendo naturalmente una perfetta compatibilità tra i due sistemi
in termini di librerie e include vari).
Max

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

specifico io dal sorgente.
@INC = ('/tua/directory');
dovrebbe funzionare.


Newsgroup: it.comp.lang.perl
Titolo: Avere l'IP del browser che chiama

Prova questo...
#!/usr/bin/perl
use CGI ;
$cgi = new CGI ;
print ("Content-type: text/html\n\n") ;
print "<html><body>" ;
print $cgi->remote_host() ;
print "<br>";
print $cgi->remote_user() ;
print "<br>" ;
print $cgi->user_name() ;
print "<br>" ;
print "</body></html>" ;
dovrebbe essere giusto cio' che fa al caso tuo.
Fabrizio Balliano
  _____
NETHOUSE S.R.L.
Corso Re Umberto I, 57 - 10128 Torino - ITALY
Tel. 
+39-011-581
.581 - Fax 
+39-011-581
.591
http://www.nethouse.it
 - 
in...@nethouse.it

 > cerchero` un'altra donna dentro ai sogni di Tarzan...
Newsgroup: it.comp.lang.perl
Titolo: codifica utf-8

Salve a tutti,
	ho un problema con l'acquisizione di stringhe...
Il mio sistema è impostato con le specifiche ISO-Europea ma ho necessità
di leggere delle stringhe da un file in formato UTF-8 e registrarle in
un altro file di testo.
Il prelevamento di tali stringhe e la successiva scrittura su file
avviene con successo se non per il fatto che tutte le lettere con gli
accenti vengono storpiate.
E' necessario l'utilizzo di un modulo particolare oppure devo
cambiare il set di sistema?
Personalmente preferirei la prima soluzione in modo da rendere il
programma maggiormente fruibile.
Grazie per le risposte.
-- 
nathanvi
ICQ --> 20318568
mail --> vitto.z A_T 
tiscali.it

programma maggiormente fruibile.
Potrebbe bastare impostare il layer utf8 sugli handle in entrata e in
uscita:
    open HIN,  '<:utf8', '
file.in
';
    open HOUT, '>:utf8', 'file.out';
Leggi anche la documentazione della funzione open e il manuale perlio.
Ciao.

 Leggi anche la documentazione della funzione open e il manuale perlio.
Grazie mille per l'aiuto. Sono riuscito a "convertire" un file utf8 in
iso-8859-1...
Adesso però ho un altro problemino dello stesso genere.
Tramite un ciclo arriva al mio programma una variabile $octet 
in formato utf8 che vorrei inserire in un campo di un database  di
tipo "sqlite"...
Il mio primo dubbio è quale set di caratteri accetti un server sql
come sqlite... L'unico effetto che vedo, per il momento, con utf8 sono
gli accenti storpi sulle lettere.
Ho cercato nella documentazione che mi hai indicato ma sia la funzione
open sia binmode fanno riferimento a filehandle e non stringhe. L'unica
funzione che mi sembra possa rientrare nel mio problema è decode ma non
funziona come vorrei. Le lettere con accento rimangono sempre storpiate;
talvolta anche in maniera maggiore dall'utf8...
#Supponi %frasi una serie di frasi raccolte da una funzione
my ($k, $who, $where, $octet ) = @_[ KERNEL, ARG0, ARG1, ARG2 ];
my $nick = ( split /!/, $who )[0];
my $channel = $where->[0];
my $ts = scalar(localtime);
foreach $octet (%frasi){
  my $msg = decode("utf8", $octet);
  $bbnat->log($ts,$nick,$channel,$msg,"logchan") if($nick !~ $bnome);
}
Le domande sono le seguenti:
1. Secondo voi che set di caratteri accetta un server sql ed in
particolare sqlite?
2. Va bene usare decode per trasformare una stringa utf8 in una
compatibile per il serverino?
Grazie


}
Ricorda che my è un'istruzione, non una dichiarazione: se la usi
all'interno di un ciclo, crei una nuova variabile per ogni ciclo;
probabilmente non è quello che vuoi.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: argomenti al main

Domanda/dubbio :
Come si puo' passare argomenti al programma principale tramite URL?
Ad esempio, se devo eseguire un programma che scrive una stringa in un
file HTML, come posso passare al main il valore della stringa stessa,
supponendola digitata nella barra di un browser?
Ho sentito dire che una cosa del genere e' PERICOLOSA perche' si possono
passare comandi all'interprete perl.
Che tipo di controllo devo fare, per ammettere che vengano passati tali
parametri, ma per escludere che, eventuali (maliziosi) comandi vengano
eseguiti?
Sono ben accetti anche 'puntatori' , ove la mia domanda sia troppo
pretenziosa, purche' cio' possa condurmi in tempi brevi alla soluzione del
problema.
Anticipatamente ringrazio
P.
+++++++++++  Poesia & Entropia ++++++++++++
http://theunixplace.com/~entropia/index.htm
+++++++++++++++++++++++++++++++++++++++++++

 eseguiti?
Prova a vedere se
http://www.thebeaches.to/jmwd/charity_ware/attack_guard.shtml
 fa al caso tuo:
è uno script che controlla i dati immessi in un form, per filtrare le sintassi
sospette.
Buon lavoro.

Newsgroup: it.comp.lang.perl
Titolo: Messaggi SMS 2

E' possibile inviare messaggi SMS ai cellulari senza utilizzare siti come
kataweb o simili ? O meglio, come fanno questi ultimi a inoltrare i
messaggi ai gestori di telefonia mobile ?
Ciao !
         Baginov
-- 
Posted from 
adamo23.supereva.it
 [195.110.96.128] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Molto semplice pagano l'accesso ad un cosidetto MAM (Messaggistica Aziendale
Mobile) server e pagano ogni singolo messaggio che spediscono. Naturalmente
parlando di grosse quantità riescono a spuntare dei prezzi vantaggiosi ecc.
ecc.
Nel caso in cui ti serva per usi persnali o comunque per volumi
microscopici, esistono dei modem gsm che quindi si interfacciano un pc alla
rete gsm e da li puoi spedire messeggi come se ti trovassi su di un telefono
gsm. Altra soluzione simile è quella di avere un telefono Nokia con cavo e
software e ti trovi più o meno come avere un modem.
Ciao
--------------------------------
Marco Pinna
System & Network Admin
marc...@vaionline.it
--------------------------------

Newsgroup: it.comp.lang.perl
Titolo: Re: open pipe verso pipe... su variabili

 chiamare /usr/bin/ps2pdf per ottenerne il PDF in $pdf, come fo?
 perldoc IPC::Open2
 perldoc perlipc 
  (paragrafo 'Bidirectional Communication with Another Process')
Max

 
 my $pid = open2( *PIPEOUT, *PIPEIN, '/usr/bin/ps2pdf -');
MM
Newsgroup: it.comp.lang.perl
Titolo: mailto.pm tutorial

il server che hosta il mio sito ha questo modulo perl installato
/usr/share/perl5/URI/
mailto.pm
che dal nome suppondo serva per inviare e-mail. non trovo con google
nessuna documentazione, qualcuno ppotrebbe girarmi qualke link utile.
thanks
e
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 nessuna documentazione, qualcuno ppotrebbe girarmi qualke link utile.
Prova a fare un
perldoc URI
trovarei la sezione mailto:
The mailto URI scheme is specified in RFC 2368.  The scheme was
originally used to designate the Internet mailing address of an
individual or service.  It has (in RFC 2368) been extended to allow
setting of other mail header fields and the message body.
URI objects belonging to the mailto scheme support the common
methods and the generic query methods.  In addition, they support the
following mailto-specific methods: $uri->to, $uri->headers.

 writes:
  e> il server che hosta il mio sito ha questo modulo perl installato
  e> /usr/share/perl5/URI/
mailto.pm
  e> che dal nome suppondo serva per inviare e-mail. non trovo con
  e> google nessuna documentazione, qualcuno ppotrebbe girarmi qualke
  e> link utile.  thanks e
Dal path specificato, puoi capire che quel modulo fa parte del
pacchetto URI, quindi puoi trovare documentazione al riguardo
utilizzando il comando 'perldoc URI'.
Ti faccio risparmiare tempo e ti dico che non serve per inviare
e-mail. :-)
Per inviare email, potresti utilizzare Net::SMTP (sul server dovrebbe
esserci), ma sono convinto che esista qualcosa a più alto
livello. Comunque sia, implementare una funzione per fare ciò che ti
serve, non è difficile, ad esempio:
<CODE>
my $smtp = Net::SMTP->new( 'localhost', Helo => 'un_host.autorizzato' );
sub send_message
{
    my ( $from, $to, $mess_ref ) = @_;
    $smtp->mail( $from );
    $smtp->recipient( $to );
    $smtp->data( $mess_ref );
}
send_message( '
pr...@prova.it
',
              '
te...@test.it
',
              $ref_con_il_messaggio );
$smtp->quit();
</CODE>
Ciao,
nico

ho trovato!
http://www.zeegee.com/code/perl/MIME-Lite/docs/MIME/Lite.pm.html
posso mandare anche attachment, mail in html anche contenenti foto.
facile da usare ed è installato sul server
già provato, funziona perfettamente.
grazie per i consiglio
Emilio

Newsgroup: it.comp.lang.perl
Titolo: Principiante

Salve a tutti.
io vorrei cominciare a studiare il Perl proprio dalle nozioni piu'
elementari.
Potreste indicarmi  quale manuale acquistare od eventualmente scaricare
dalla rete?
Grazie
Lorenzo

 wrote in message 8pd7ul$9r2$1...@nslave1.tin.it...



www.cgipoint.it
www.perl-it.org
www.perl.com
 (in inglese, ma c'è veramente un sacco di roba!)
Per i manuali, se devi iniziare c'è il sempre ottimo "Learning Perl"
che, comunque, non so se sia stato tradotto in italiano (e, a dirla
tutta, quasi quasi spero di no!).
Poi ce n'è uno anche edito da Apogeo di cui mi scappa il titolo: non
l'ho mai nemmeno visto ma, da quello che ho sentito, non è male. Ah,
questo è in italiano!
Ciao
M.
-- 
:wq

Non prendere il libro della Apogeo perchè è molto ricco e sarebbe
sicuramente utile a uno che ne capisce già, ma io (che comunque conosco già
altri linguaggi come Java) ancora sto cercando di capirlo [mi riferisco a
PERL Guida di riferimento - Apogeo - 69000). E' troppo veloce nelle
spiegazioni e usa molti termini tecnici di cui presuppone si conosca il
significato!! Non è rivolto a chi inizia.
Meglio quello in inglese di Larry Wall!

Meglio quello in inglese di Larry Wall!
tra l'altro ho visto il camel book tradotto.
ma non c'erano le mitiche note..

Newsgroup: it.comp.lang.perl
Titolo: file nei packages

deov passare un file a una funzione. Se la funzione e' diciarata nello
stesso namespace tutto funziona, se invece metto la funzione in un
package il perl mi da un warning:
print() on unopened filehandle FD at 
miopack.pl
 line 7.
perche' non funzia e come si fa a far funzionare le cose?
ciao
-- 
Mastupristi?

Mastupristi, nel messaggio
<20040715090733.00000cf3.cialdi_NO_SP@AM_firenze.net>, scriveva:

Non dovresti allegare file ad un messaggio, non è consentito nella
gerarchia it.*; in particolare poi non dovresti usare la codifica base64,
se proprio decidi di correre il rischio[1] e allegare dei file.
Dovresti infine leggere la documentazione relativa ai filehandle, in cui
troverai rapidamente la soluzione al tuo problema:
    perldoc -q filehandle
Ciao.
[1] Il rischio è che i file vengano cancellati dal robocop di it.* e non li
veda nessuno.
Newsgroup: it.comp.lang.perl
Titolo: perl e http

Salve!
Sono abbastanza digiuno di perl ( non so quasi nulla ! ) e mi sto
leggendo il libro della O'reilly. Nel frattempo sto attivando una
intranet
senza grosse pretese.
Il mio problema e' il seguente. Devo scrivere un cgi-bin che costruisca
dinamicamente una pagina html basata su alcuni html nel fyle system del
www server
corrente e alcuni html presenti su altri www server limitrofi ( siamo
all'interno di una rete locale  aziendale ).
Il quesito e' questo : dove posso trovare informazioni per eseguire
chiamate http da perl
per recuperare le pagine html remote che mi servono. Sono sicuro che si
possa fare
ma un rapida ricerca sui vari motori non ha dato l'esito sperato.
Inoltre mi servirebbe uno script ( sostanzialmente con funzioni analoghe
) che data un pagina
html ne verifichi la consistenza seguendo tutti i link in essa presenti
e segnalando quelli
che sono inconsistenti. Sono all'interno di una intranet e voglio fare
un controllo di qualita'
delle pagine inserite
grazie

 chiamate http da perl
[...]
perldoc perlfaq
La documentazione di CGI.pm
Il 'topo' della O'Reilly (Cgi programming for the web)
comp.lang.perl.misc
www.perl.com
etc....
[Devi avere usato un motore di ricerca fasullo...]
Cheers,
	Alessandro

Newsgroup: it.comp.lang.perl
Titolo: sendmail in script perl

Salve,
ho installato uno script perl su vari server e noto
la diversità di fuzionamento a seconda del server.
Lo script server per la creazione di uno scambiobanner e idovrebbe mandare
una amil di benvenuto a chi si iscrive e una mail al webmaster del sito
(cioè a me) per avvertire che c'è un nuovo iscritto.
Ebbene su un server funzionavano entrambe, su un' altro mandava solo la mail
di benvenuto e su quello attuale manda solo la mail a me.
I settaggi sono ben fatti, solo che chissà perchè a seconda del server si
creano problemi.
Qualcuno sa a cosa è dovuto?



Al tuo script perl :-)

 wrote in message
OxKW6.4686$nG2....@news1.tin.it...


 wrote in message
OxKW6.4686$nG2....@news1.tin.it...


 elettronica, altri ne fanno a meno.
???
$destinatario = 'io@miodominio';
$destinatario = "io\@miodominio";
C'è una bella differenza!
Ciao
--ev

 wrote in message pq5oh9...@127.0.0.1...

Grazie, so che differenza c'è tra '' e ""...

 wrote in message pq5oh9...@127.0.0.1...

E comunque, dato che mi sono accorto di aver scritto una cosa errata, ho
cercato di correggere con il messaggio riportato in seguito.

 Grazie, so che differenza c'è tra '' e ""...
Non mi pare, visto che hai affermato che "alcuni server vogliono \@"!
;-)
Ciao
--ev 

 wrote in message svqph9...@127.0.0.1...

Newsgroup: it.comp.lang.perl
Titolo: Comunicazione tra servers

Come faccio a spedire il contenuto di in file (per adesso solo testo) da 
un server all'altro emulando il metodo POST dei forms?
mi spiego meglio:
Lo script A sul server A carica un file .txt e lo spedisce tramite POST 
ad un script B su server B quest'ultimo fa poi partire ad esempio il 
download da browser del file .txt in questione...(sarebbe bello sapere 
anche come lo script B nel server B possa ritornare il file .txt 
"trattato" nello script A del server A)
spero che mi riusciate a capire...
col metodo get sarebbe stato facile... 
http://site/?name=value
cmq non è detto che il server che riceve debba rispondere...
Grazie!

 "trattato" nello script A del server A)
Potresti usare NET::FTP se non devi passare per forza via web, LWP 
oppure WWW::Mechanize se devi passare via web. Oppure ancora un scp.

Newsgroup: it.comp.lang.perl
Titolo: script cgi

Ho un pc con mandrake 9.0 e apache+perl, stň iniziando a fare qualche primo
script e ho un paio di dubbi:
ma come diavolo lancio uno script da una pagina html? devo perforza far
formattare una pagina allo script? dovrei anche poter inserire i risultati
dello script in una pagina esistente vero?
ho provato a fare un lynk ad uno script, ma anche non riesco assolutamente a
generare la pagina "access forbidden" (anche se ha chmod 755)......
il file deve essere perforza rinominato come cgi oppure posso tenermelo come
pl?
Grazie a tutti ;)
Stefo

 pl?
Devi configurare adeguatamente Apache. Dunque devi conoscere Apache.
Prova questi link:
http://www.pluto.linux.it/journal/pj0201/apache1.html
http://www.pluto.linux.it/journal/pj9710/vw.html
http://www.polarnet.cnr.it/CORSI/APACHE/apache.pdf

Grazie Mille ;)
Stefo
Newsgroup: it.comp.lang.perl
Titolo: Espressioni Regolari

Ciao a tutti!
	ho iniziato a interessarimi di perl in quanto sia il Newsreader 
Gravity che il mio programma di Posta  TheBat consentono operazioni di 
filtraggio e di quotatura con le regexp.
mi sono letto un po` tante cose, ora stavo provando a individuare (per 
quotarlo, con una macro del programma) una stringa in un messaggio email.
Fondamentalmente, per iniziare vorrei evidenziare dall`inizio del 
messaggio fino a una stringa data (che e` un messaggio pubblicitario 
standard): ho provato a digli "/s.*testo", on testo intendo l`inizio del 
messaggio pubblicitario; Non funziona (quotatura=0), e` un problema 
dell`espressione che uso io, non corretta?
TIA
-- 
Ciao! 
      Gian Matteo

dell`espressione che uso io, non corretta?
Potresti fare cosi`:
$messaggio =~ /^(.*?)testo/s;
$pubbl = $1;
Il flag "s" fa si che la regexp consideri tutto il contenuto della
variabile $messaggio come una riga sola, condizione necessaria affiche'
il matching continui oltre il primo line feed (\n). $1 contiene tutto
cio' che le parentesi interne alla regexp hanno "matchato".
Il "?" dopo l'asterisco fa si che l'espressione di fermi alla PRIMA
occorrenza di "testo" e di non cercare oltre: se desidere un comportamento
piu` "goloso" da parte di ".*", togli il ?.
	Michele. 
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

 $messaggio =~ /^(.*?)testo/s;
alla fine, con un tipo della ML del programma (the bat) siamo riusciti a 
concludere ceh funziona
%regexptext="(.*?)mytex"
semplice, ma era forse l`unica che non avevo pensato (anche perche` 
essendo in continuo sviluppo, nessuno ha aggiornato l`help da almeno 6 
mesi...)
grazie!
-- 
Ciao! 
      Gian Matteo

Newsgroup: it.comp.lang.perl
Titolo: CERCASI PROGRAMMATORE IN PERL

Cerchiamo programmatore in perl per la realizzazione di un cgi
personalizzato, ad un costo relativamente contenuto.
Risposte in privato via e-mail.
--
Massimo Oliviero
Webmaster
Mercury
webm...@mercury-online.com
www.mercury-online.com

 
Leggo ip.comp.lang.perl solo ora ...
Lavoro come consulente al Cineca di Casalecchio - Bologna
(
http://www.cineca.it
), dove sviluppo e gestisco varie applicazioni Perl
basate su database SQL Oracle. Nel caso siate ancora alla ricerca di
collaboratori rispondetemi e vi mando il mio curriculum, che non ho a
disposizione in questo momento.
Cordiali Saluti,
Luca Postpischl

Newsgroup: it.comp.lang.perl
Titolo: RELOAD no da CACHE

Ho fatto uno script perl e l'ho inserito in una pagina web con un SSI.
Adesso il problema è che i vari browser vedendo le dimensioni e la data
della pagina .html praticamente invariati ricaricano quella che hanno in
CACHE. Io vorrei invece che SEMPRE l'andassero a rileggere dal server...
C'è un modo efficace per fare questo?
(Non credo sia molto OT visto che se uno fa uno script perl e vuole usarlo
con SSI si trova in questo problema...)
Grazie,
Duccio.

 C'è un modo efficace per fare questo?
Metti una direttiva NOCACHE nel campo meta del file? I dettagli agli esperti
di HTML.
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: Nuovo motore di Ricerca!

Abbiamo aperto un nuovo motore di ricerca per voi!...
 - Intuitivo
 - Facile
 - Divertente
 - Innovativo...
Ora, vogliamo migliorarlo seguendo i vostri consigli, le vostre opinioni e
critiche...
Sono graditi anche i complimenti ;) quindi fatevi sotto!
Splash - Mentre tutti navigano, noi ci tuffiamo!
http://www.splash.it/
Dite la vostra!!

 wrote in message
7ojl1p$iaq$2...@nslave1.tin.it...


Newsgroup: it.comp.lang.perl
Titolo: download con LWP

E' possibile usare i moduli LWP per fare download di file che non siano
html? Avrei una lista lunga di file da scaricare via http e non voglio
aprire il browser per ogni singolo...
Ciao
dawe

aprire il browser per ogni singolo...
Certo che sě (ma non facevi prima a provare?), fin tanto che il protocollo č
http.
Ciao.

 http.
Hai ragione, ma dal momento che non ho avuto tempo di provare, ho
preferito postare sul NG, cosí per sapere.
Domani provo a fare il mio script allora.
grazie
dawe

Newsgroup: it.comp.lang.perl
Titolo: Informix e Perl (su linux)

Ho letto una mail inerente al problema di istallare il modulo DBD::Informix
Ho anche io questo problema: credo che forse la soluzione l'ho
trovata: senza ESQL/C o Informix CSDK istallati non si puo far nulla. Il
problema è: prima si poteva reperire gratuitamente dal sito
www.informix.com
 tutto quanto. Ora il sito non c'è più , c'è IBM che ti fa
scaricare le applicazioni ma non ti fa scaricare un compilatore ESQL
valido, solo a pagamento puoi reperire Informix.. ma dov'è il freeware ?
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************


Newsgroup: it.comp.lang.perl
Titolo: Perl 6

Ne sapete qualcosa? Doveva uscire ad agosto. Sapete dove si scarica?
Ho visto in altri post che qualcuno sa già alcune differenze e potenzialità
aggiuntive. C'è in giro qualche tutorial?
grazie come sempre e ciao
sub


Ciao
Teo

 Ne sapete qualcosa? Doveva uscire ad agosto. Sapete dove si scarica?
Perl 6 non esiste ancora [0]. E` in corso di design.
Parrot, la virtual machine sulla quale Perl 6 girera`, e` attualmente
in corso di rapido sviluppo.
Se ti interessa il linguaggio Perl 6, puoi iscriverti alla mailing-list
perl6-language. Se invece ti interessa Parrot, allora la mailing-list di
riferimento e` perl6-internarls [1].
Secondo me la maniera piu` rapida per farsi un'idea di quello che sara`
Perl 6 e` leggere le cosidette "Esegesi" di Damian Conway [2]: si tratta
di documenti che illustrano praticamente quanto spiegato da Larry Wall
nelle corrispondenti "Apocalissi" [3].
Infine, esiste un libro (di cui sta per uscire la seconda edizione) che
si chiama "Perl 6 Essentials": nella prima parte descrive 
caratteristiche del linguaggio (perlomeno quello che e` stato deciso 
finora), portando numerosi esempi. Nella seconda illustra Parrot, e 
il suo linguaggio assembler.
ciao,
S.
[0] 
http://www.oreilly.com/pub/a/oreilly/ask_tim/2004/perl6_0804.html
[1] 
http://dev.perl.org/perl6/lists/
[2] 
http://dev.perl.org/perl6/exegesis/
[3] 
http://dev.perl.org/perl6/apocalypse/
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

Newsgroup: it.comp.lang.perl
Titolo: I need to send news in news groups with the help of perl.

I need to send news in news groups with the help of perl.
How i will do it?
Help me please!
Please answer via E-mail:
mva...@intergroup.com
Max Valuev.
Moscow, Russia

  | as damage and routes around it."
 UNIX person, one of "them"            |         - John Gilmore

Newsgroup: it.comp.lang.perl
Titolo: Problema teorico

Sto scrivendo una tesina di informatica in cui parlo un po' anche del PERL.
Ho un quesito:
Una CGI in perl si occupa di identificare gli utenti che accedono a
determinate pagine e più in dettaglio in base alla user ID e password si
accede ad una pagina associata.
L'archivio è un file di testo in cui ad ogni user ID è associato la password
e quindi la pagina da leggere.
Il problema è la sicurezza di questo file il cui nome lo si può trovare
facilmente all'interno del programma. Può essere letto anche da altri,
scoprendo così chi sono  gli utenti e le loro password oppure esso è
leggibile solo al programma?
Non ho bisogno dei dettagli tecnici ma solo di come posso evitare il
problema.
Grazie.
gino -> 
gig...@hotmail.com



leggibile solo al programma?
Dipende da dove si trova il file: se si trova in una directory accessibile
pubblicamente via web, basta che uno conosca il nome del file e poi lo
puo` avere tranquillamente via web.
La soluzione e` metterlo fuori dalla documentroot oppure in una directory
in cui sono impostate opportune restrizioni (tramite file .htaccess ad
esempio).
	A presto, Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.italpro.com/mb/
Newsgroup: it.comp.lang.perl
Titolo: Come ottengo la data?

Salve!
Sono un novellino, ma vorrei sapere come posso ottenere la data odierna,
però formattata come segue:
GGMMAAAA
o, al limite,
GGMMAA
Con le cifre tutte attaccate e senza slashes.
Grazie mille!!
--
Umberto Meroni
Software Development and Internet Services
Web: 
http://www.ubi1k.com
 e 
http://www.ubi1k-vb.net
E-mail: 
webm...@ubi1k.com
ICQ: 14660006
Info: 
http://www.ubi1k.com/meroni
---
"Come spesso accade, il lupo si è travestito da agnello e i pastori
applaudono."
Paolino Paperino
---
"Cercavi giustizia ma trovasti la Legge."
Il bandito e il campione, Grechi/De Gregori
---

 Con le cifre tutte attaccate e senza slashes.
# chiaramente se non vuoi le lineette, basta che le togli
# printf("Oggi e' il %02d%02d%04d\n",
esiste anche una variante POSIX:
use POSIX qw(strftime);
print strftime "%d-%m-%Y", localtime;
ciao, antonio
PS: tratto (modificato) da "perl-cookbook", ricetta 3.1, 
vedasi anche sul sito
http://www.oreilly.de/catalog/cookbook/toc.html
(esiste anche int edesco, ma crdo che non ti interessi :-)
dal quale puoi scaricare tutti gli esempi presenti nel libro
ftp://ftp.oreilly.de/pub/ora/examples/perl/cookbook/

E per ficcare sta roba in una variabile?
Tipo $DataOggi =
-- E se volessi l'ora invece?
Grazie mille ancora! ;O)
--
Umberto Meroni
Software Development and Internet Services
Web: 
http://www.ubi1k.com
 e 
http://www.ubi1k-vb.net
E-mail: 
webm...@ubi1k.com
ICQ: 14660006


 Tipo $DataOggi =
use Time::localtime;
$tm = localtime;
($gg,$mm,$aaaa)=($tm->mday,($tm->mon)+1,($tm->year)+1900);
$ggmmaaaa=$gg.$mm.$aaaa;
PERO': in realtà non avrai alla prima (o ultima) befana del millennio il
risultato 06012000, ma 612000 (il numero di una delle prossime versioni di perl,
immagino)
PERCIO': 
non sapendo io una soluzione semplice :-((( 
ti dico: arrangiati :-) 
con le varie funzioni che offre perl, 
oppure aspetta che qualcuno su questo ng tiri fuori il modulo magico che risolve
questo problema (sono sicuro che esiste, non riesco ad immaginarmi che non
esista, non può essere, no, no,...)
ciao, antonio

 Tipo $DataOggi =
(nell'altro messaggio ti dico di arrangiarti, ma ero distratto, la risposta la
sapevo, soltanto che avevo scritto male "Print" ! (con la maiuscola, e non
voleva funzionare! eccoti ciò che funziona
 
$ggmmaaaa=sprintf "%02d%02d%04d\n",
       $tm->mday,
       ($tm->mon)+1,
       ($tm->year)+1900;
 print "GGMMAAAA=$ggmmaaaa\n";
ciao, antonio 
Attento alla "s" iniziale di "sprintf" !
Newsgroup: it.comp.lang.perl
Titolo: Grandezza file in ftp

Come faccio ad ottenere la grandezza di un file in ftp su una macchina
linux ?? Devo fare uno script che entra su più macchine, una ad una, vi
entra in ftp, se è presente un file di una certa grandezza allora esegue
anche il telnet su questa macchina. Vorrei appunto sapere come si ottiene
la grandezza. Il file ha i permessi 777 e si trova nella directory home
dell'utente pippo, questo script non mi funziona, dove sbaglio???
use Net::FTP;
$ftp = Net::FTP->new("192.168.1.2", Debug => 0);
    $ftp->login("pippo",'password');
    $ftp->size("/home/pippo/ciao.txt");
    $ftp->quit;
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 entra in ftp, se è presente un file di una certa grandezza allora
Nella cartella c'è un file solo? Io avevo risolto (anche a me non
funzionava) facendo:
my @dir = $ftp->dir($dir);
foreach my $line (@files) {
  my $file = ( split ( /\s+/, $line ) )[8];
  if ( $file !~ /^\.+$/ ) {
  my $size = sprintf( "%.1f KB", ( ( split ( /\s+/, $line ) )[4]/1024 )
);
  print "$file\t$size\n";
}
Protresti fare un hash dei usando il nome file come chiave.
Non è il massimo, ma funziona...
Ciao
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

    $ftp->quit;
Il metodo dovrebbe essere quello giusto (a parte che non si capisce che
cosa ci fai, una volta ottenuta), forse semplicemente il comando non è
supportato dal server (cfr RFC959: 
http://www.faqs.org/rfcs/rfc959.html
).
Ciao.

 $ftp->quit;
forse se fai mettere la size in una variabile riesci anche a saperla...
$size=$ftp->size("/home/pippo/ciao.txt");
print "$size\n";
-- 
Saluti,
Giancarlo

Funziona tutto, non avevo pensato di mettere tutto in una variabile.
Adesso ho risolto tutti i problemi che avevo, utilizzo uno script in php
per ottenere una lista di indirizzi lan, la inserisco in un file ed a quel
punto utilizzo lo script in perl che, lan per lan, vi entra in telnet e
nel caso anche in ftp. Insomma sono giunto alla fine dei problemi.
Grazie

Newsgroup: it.comp.lang.perl
Titolo: Chiamare una subroutine esterna

Salve
qualcuno mi può spiegare come si fa con perl a richiamare una subroutine
contenuta in un file separato?
Mi ricordo che qualche settimana fa qualcuno aveva già dato una risposta
ad una domanda simile, ma ho perso il foglio su cui l'avevo stampata!
Abbiate pazienza.
Grazie

contenuta in un file separato?
-----
#!/usr/bin/perl5 -Tw
require './
nomefile.pl
';
# ... altro eventuale codice ...
$output = &nomefunzione(24);
-----
	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: Cosa sono i Moduli

I moduli del Perl possono essere paragonati ai files header di C++ ?

I moduli del Perl possono essere paragonati ai files header di C++ ?
Non proprio pienamente: i moduli contengono anche codice, non solo
prototipi e simboli. Comuqnue sia, *grossolanamente* si possono anche
paragonare.
	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: Grafica con Perl

Ciao Ragazzi , 
come si puo' capire dall'oggetto del 3D sto cercando d'imparare questo
linguaggio di programmazione .
Volevo solo sapere se con perl e' possibile realizzare programmi  con
relativa GUI e non solamente a linea di comando  ( sotto win 32 ) .Per
capirci tipo c++ .  Se la risposta e' affermativa mi potete dare qualche
indicazione / link  a riguardo ?
Graie in anticipo a tutti quelli che mi risponderanno
Ciao 
Pietro 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 indicazione / link  a riguardo ?
Con google groups ho trovato un mio vecchio post sull'argomento:
http://groups.google.com/group/it.comp.lang.perl/msg/fc366c48776f81d9

> 
http://groups.google.com/group/it.comp.lang.perl/msg/fc366c48776f81d9
GRAZIE !!!!
E' proprio quello che cercavo .


Per l'interfaccia grafica deve utilizzare Tk
FAQ su perl con Tk
http://www.perl.it/documenti/faq/view.html?pag=3&faq=14
Saluti.
-- 
----
Leonardo Armando Iarrusso
J2be - It Services for your Business
P. IVA: 01319360622
Via S. Spirito, 19
82100 Benevento (BN) - Italy
Tel/Fax: 
+39 0824 22887
e-mail: info[at]J2Be.com
www: 
http://www.J2Be.com
Skype: j2be_it (info[at]J2Be.com)

Newsgroup: it.comp.lang.perl
Titolo: perlcrt.dll

Dove posso trovare la "perlcrt.dll" ???
grazie

Grazie sono riuscito a trovarlo. Il sito migliore in questo caso era il
mio PC.
Il problema è che quando lancio il "perl2exe" il messaggio che mi
compare alla
fine della compilazione e' :
The following dll's are required to run the exe file:
perlcrt.dll (this can be found in your windows system directory)
L'ho copiato su WinNt/system32 ed anche su WinNt/system 
ma il risultato è lo stesso Qualche consiglio ???
grazie

-- 
---
Gioachino Bisconti
Magneti Marelli S.p.A.- Electronics Division  - I&SP
Web Master - I&SP 
Viale Carlo Emanuele II 118
10078 Venaria Reale (Torino)
Tel. +39-011-68.79.134
Fax. 
+39-011-6879
.126
mailto:
Gioachino...@venaria.marelli.it
http://www.venaria.marelli.it/dse/isp/mdp/index.htm
Newsgroup: it.comp.lang.perl
Titolo: posso farlo?

salve!
ho un form. I campi di questo form sono sottoposti a controlli tramite
funzione JavaScript 'm_info_Validator'.
sintassi tag FORM:
<form METHOD="POST"
ACTION="/cgi-bin/cgiemail/fortunatoimmobiliare/m_info.txt" onsubmit="return
m_info_Validator(this)" name="m_info">
i dati vengono si controllati ma non vengono inviati...
vanno in contrasto ACTION e onsubmit?
potrei controllare la validitą dei campi in uno script perl e quindi:
1. inviare gli errori al browser per sottoporli a correzione;
2. se tutto va bene lanciare il cgi di cui sopra 'cgi-email' che č un
compilato C che non posso manomettere
scusatemi se sono stato poco chiaro... aiutatemi.

 compilato C che non posso manomettere
a questo punto ti consiglierei di scaricarti il FormMail di Matt o l'Alienform
http://cgi.resourceindex.com/Programs_and_Scripts/Perl/Form_Processing/
che gia' fanno tutto cio'...
bye
Mattia

Il mio consiglio era di usare solamente il FormMail o l'AlienForm anziche' il
tuo CGI.
Puoi controllare che siano stati inseriti i campi del form (con messaggio
d'errore se ci sono campi mancanti) e spedire una mail direttamente con quegli
script...
Ciao
Mattia


Newsgroup: it.comp.lang.perl
Titolo: Documentazione e tutorial on line

Sono un principiante in perl, dove posso trovere in internet un
manuale o un tutorial sul perl?
Saluti e grazie
Stefano

Stefano MANIERO wrote:

Tutte le informazioni sul perl le puoi trovare a 
http://www.perl.com
.
Ciao
Luca
--
----->KaBooM<-----
Luca Satolli
Work
URL: 
http://www.3it.it
e-mail: 
l.sa...@3it.it
Home
URL: 
http://village.flashnet.it
~/fn073993
e-mail: 
lr.sa...@flashnet.it
ICQ #: 33946022

 manuale o un tutorial sul perl?
Non devi necessariamente cercare su internet. Ce l'hai gia' tutta in casa:
le manpages o gli help. Come dicono in giro, se hai Perl senza
documentazione, non hai Perl. E la documentazione arriva SEMPRE con Perl.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 documentazione, non hai Perl. E la documentazione arriva SEMPRE con Perl.
Hai ragione, le cose piu' facili pero' non sempre solo le + evidenti!!!!


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

dopo aver editato e controllato il file *.pl ....in che modo posso
eseguirlo?
Grazie

 eseguirlo?
In che modo questa domanda sarebbe diversa da quella del tuo messaggio
'HELP' dell'altroieri e perche' le risposte ottenute li sarebbero
insufficienti?
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: Recuperare informazioni da uno script esistente

ciao a tutti,
non ho la piu' pallida idea di come poter recuperare delle informazioni
prodotte dall'esecuzione di uno script perl.
Mi spiego: di solito accedo con regolarita' ad un servizio (pubblico)
che genera una pagina html formattando i dati in una ben determinata
maniera, ed e' proprio questo che non mi piace, vorrei poter utilizzare
uno script perl per formattare in modo differenti le informazioni che
ricevo, ma il mio problema e' che non so come (e se e' possibile)
intercettare questi dati prima che arrivino al browser.
Sono alle prime armi con perl, ma seguendovi ho imparato moltissimo.
grazie a tutti.
marco

 grazie a tutti.
idem per me

intercettare questi dati prima che arrivino al browser.
Si può fare in vari modi.
Una volta ricevuta la pagina la salvi come HTML e poi la elabori con uno script
perl e la formatti come vuoi tu.
Se poi vuoi tutto automatico credo che non avrai difficoltà a usare un modulo
in HTTP:: o simili per recuperare la pagina e poi farci quello che vuoi.
Se poi scheduli il tutto ad una certa ora è il massimo, no?
Ciao!!
__________________
DinoGen
http://members.tripod.com/dinogen
Togli CIVETTA dal mio indirizzo per rispondermi.

 Info: 
http://www.ubi1k.com/meroni

Newsgroup: it.comp.lang.perl
Titolo: Parse.pm

Dove trovo il file Parse.pm, ho un programma che non riesce a trovare
questo file.
Grazie
------------------------------------------------------------------------------
Matteo Colombo 	      	E-mail: 
mat...@calcol.it
 
------------------------------------------------------------------------------
--
Automatic posted from 
ro...@dns.calcol.it
 [195.129.25.201]
via Mailgate Server - 
http://www.mailgate.org

 wrote:
: Dove trovo il file Parse.pm, ho un programma che non riesce a trovare
: questo file.
Sara` un Date::Parse o un HTML::Parse?
Nel primo caso e` nel file TimeDate-1.07.tar.gz (a meno di qualche
cambio di versione), nel secondo caso e` nel libwww l'ultima dovrebbe
essere libwww-perl-5.20.tar.gz.
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E

Newsgroup: it.comp.lang.perl
Titolo: Perl ed Excel

Come posso fare a generare, in Perl, un file Excel? Esistono moduli
particolari?
Ciao e grazie

 particolari?
Spreadsheet::WriteExcel e` su CPAN.
http://homepage.eircom.net/~jmcnamara/perl/WriteExcel.html
Qui trovi qualche nota sul suo funzionamento.
http://homepage.eircom.net/~jmcnamara/perl/PerlExcelFaq.html
Perl and Excel FAQ: comprese le istruzioni per installare
il modulo con ActivePerl e PPM.
ciao
Stefano

 ha scritto nel messaggio
news:7%q98.53687$3J1.1...@news2.tin.it...

Newsgroup: it.comp.lang.perl
Titolo: Però, che premurosi!

Io non so quotare... e allora?
Strano, non credevo di essere in un NG su come quotare, ma ho capito che qui
molti sanno solo quotare ... però molto bene!
Io vi ho chiesto un aiuto, in tutta coscienza credo che sia in tema,
sottolineo che eravate liberi di ignorarmi ed invece di darmi un aiuto mi
avete tacciato di essere OT. Ancora va avanti la polemica ed i *plonk*, ma
solo uno tra voi ha tentato di fornire una possibile soluzione (che non
genera il risultato sperato).
Un CGI, qui è OT? Ma come io programmo CGI in Perl.
Il CGI non ha come output la pagina HTML? Ed allora, non stiamo mica
parlando di endecasillabi!
I più premurosi tra voi mi consigliano un NG di HTML, ma il problema non può
essere risolto nella pagina stessa.
Proverò a riformulare la domanda: "come posso in uno script perl impartire
il comando al browser di far eseguire una istruzione Javascript o qualsiasi
altra cosa per creare una piccola finestra nella quale poi lo script stesso
andrà a scrivere?"
Sperando in una illuminazione, vi saluto e mi scuso per tanto clamore.

 wrote in message
8tmkno$l1t$1...@nslave2.tin.it...


 lo script perl che hai programmato
Grazie per le idee,
perchè riflettendo su quanto mi hai scritto sono riuscito infatti a
risolvere il mio problema.
Un saluto e grazie ancora!

 wrote in message
8tna58$b4n$1...@nslave3.tin.it...

Newsgroup: it.comp.lang.perl
Titolo: Consiglio per un principiante...

Vorrei sapere un indirizzo internet dove mi posso scaricare un editor perl
(magari in italiano) e possibilmente gratuito.
Grazie a chi mi consiglia :)
Nicola

Marco Balestra scripsit:
: per Linux: hai gia` vi, che va benone
: 
: Non hai indicato l'OS ed io ho tirato ad indovinare, BTW se usi MS-DOS o
: derivati non saprei cosa consigliarti, a parte il cambiare piattaforma.
vim esiste per uindous. Mi pare ovvio.
.mau.

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

Newsgroup: it.comp.lang.perl
Titolo: CGI che non interpreta il codice

ciao ragazzi, ho uno scriptino CGI che mi fa impazzire:
dunque, ho scritto sto script semplice semplice, che è composto da 3
pagine consecutive, la prima chiede di inserire un indirizzo mail,
dopo il submit chiede di dare un upload di file, e fino a qui tutto
bene, all'ennesimo push del submit, dovrebbe apparire una terza pagina
con i risultati di un'elaborazione, e invece mi appare questo source
  <?xml version="1.0" encoding="iso-8859-1" ?> 
  <!DOCTYPE html (View Source for full doctype...)> 
- <html xmlns="
http://www.w3.org/1999/xhtml
" lang="en-US"
xml:lang="en-US">
- <head>
  <title>PepSearch</title> 
  </head>
- <body bgcolor="#99FF99">
  <h1>Result...</h1> 
  </body>
  </html>
eppure lo script è semplicissimo: è la ripetizione sempre della stessa
solfa
#HTM page
print $var->header;
print $var->start_html( -title =>'PepSearch',
 			-BGCOLOR=>'#99FF99');  
print $var->h1('Result...');
print $var->end_html;
perchè alla terza volta non mi interpreta il codice?
grazie
Fuli

 Fuli
Andrea
Newsgroup: it.comp.lang.perl
Titolo: rendere processo unkillable

Salve,
      vorrei sapere come rendere il seguente processo un-kill-able, 
ovvero che non smetta mai di eseguire almeno che non venga riavviato il 
sistema. Vorrei quindi che fosse immune ad ogni chiamata di kill -1 -9 
$pid
Ci sono dei casi in cui il sistema o il kernel riescano a killare un 
processo??
Grazie,
#!/usr/bin/perl
use strict;
use warnings;
use Proc::Daemon;
use Proc::PID::File;
#
# Daemonize..
#
Proc::Daemon::Init;
exit if ( Proc::PID::File->running( dir => "/tmp") );
#
# My task
#
while (1)
{
   &_main();
}
__END__;


Non sicuro al 100% ma il kill -9 non si può ne intercettare e ne
gestire.
Saluti

 processo??
Alcuni signal possono essere inviati dal kernel, non necessariamente da
in altro processo. se esegui una divisione per 0 credo debba ricevere
SIGFPE, se indirizzi una posizione di memoria fuori dall' intervallo
riservato al processo credo arrivi un SIGSEGV e gli stessi SIGPIPE e
SIGCHLD sono originati dal kernel. Sono pero' tutti intercettabili.
Ciao
Roberto.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.lang.perl
Titolo: [DBI] installazione..

Ciao a tutti
Devo installare sul mac 10.3.9 DBD e DBI dove trovo una roadmap?
Grazie
-- 
Ciao, Virgilio

 Devo installare sul mac 10.3.9 DBD e DBI dove trovo una roadmap?
Prova qua:
http://www.perl.it/documenti/faq/view.html?pag=8&faq=45
unico consiglio che posso darti (basato sulla mia esperienza) č quello
di scegliere un mirror non italiano, ad esempio funet, finlandese

 wrote:

Guardo, tra l'altro e' un mirror che uso.
-- 
Ciao, Virgilio

Newsgroup: it.comp.lang.perl
Titolo: Come skippo il percorso?!

Sto facendo uno script per fare l'upload di un file ma da PC mi 
trasferisce il file con tutto il percorso più il nome...
ecoo il codice:
my $file = $q->param('UPLOAD') || die;
   $file =~ m/^.*(\\|\/)(.*)/;
my $name;
$2 ? $name = $2 : $name = $file;
Qualche idea al riguardo?!

Qualche idea al riguardo?!
Veramente non sono sicuro di avere capito la domanda, visto che parli
di "trasferimento" e fai riferimento ad un oggetto $q ignoto.
Se si tratta solo di estrarre il nome del file da una stringa
contenente il riferimento completo, a parte il solito suggerimento di
ricorrere ad uno dei tanti moduli (come File::Basename), puoi fare,
per esempio:
   ($name) = ($file =~ m|([^\\/]+)$);
O anche, cannibalizzando l'espressione utilizzata appunto in
File::Basename per sistemi operativi Windows e Unix:
  my ($percorso, $nome_file) = ($file =~ /^((?:.*[:\\\/])?)(.*)/s);
Ciao.

   ($name) = ($file =~ m|([^\\/]+)$);
    ($name) = ($file =~ m|([^\\/]+)$|);
Ciao.

 Qualche idea al riguardo?!
Hai impostato l'enctype nel <form>?
-- 
Valerio Granato
http://www.musicoff.com
 - Music Online For Free
La Grande Comunità Online per Musicisti
Newsgroup: it.comp.lang.perl
Titolo: file binari

dove trovo info sull'uso (apertura, scrittura, conversione testo/binari  )
..insomma come si usano i file binari.. non li ho mai usati in nessun
linguagio!!
Sto cercando su activeperl.. non riesco a trovarli...
azz...so proprio imbranato:(

 wrote in message 95v8v2$176$1...@nreadB.inwind.it...


Ciao "Pikachu"
Perche' CHMOD??... io lo uso per cambiare i permessi.
Newsgroup: it.comp.lang.perl
Titolo: Awstats in per...

Salve, vorrei aggiungere un footer allo stupendo
analizzatore di Log che č awstats.
E' scritto in Perl e vorrei sapere come posso fare
per includere un file html in fondo alla pagina.
Uso IIS
Ho provato con
<!--#Include file="file.htm"-->
<!--#exec cgi="file.htm"-->
ma nessuno di essi funziona.
Consigli?
Grazie 1k.
--
==
fabriZio

 Consigli?
I forum ufficiali:
- 
http://sourceforge.net/forum/forum.php?forum_id=43428
  (general)
- 
http://sourceforge.net/forum/forum.php?forum_id=43430
  (developers)
by
    - Enrico

Newsgroup: it.comp.lang.perl
Titolo: match di commenti HTML

Giuro che una volta c'ero riuscito, ma non so piu' come ho fatto e non ho
voglia di ripensarci.
Devo estrarre i commenti di un file HTML, quindi devo trovare tutto cio' che
e' tra "<!--" e "-->"
Il banalissimo
m/<!--[^-]*-->/
ovviamente non funziona perche' il "-" puo' essere contenuto nel commmento.
Qualcuno puo' aiutarmi?
Grazie
Maurizio

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

On Thu, 30 Sep 1999 16:49:47 GMT, 
bale...@dada.antispam.it
 (Marco
Balestra) wrote:
| (sempreche' uno non abbia aperto DUE volte un commento chiuso una
| volta sola)
per quello si potrebbe fare un ciclo while che cerca prima il primo
<!-- e ne registra la posizione, dunque il prossimo --> e via dicendo
fino alla fine della stringa
$pos_=0;
while(1)
  {
  $pos=index($html,'<!--',$pos_);
  break if $pos==$[-1;
  $pos_=index($html,'-->',$pos);
  print substr($html,$pos,$pos_-$pos);
  }
 

 ovviamente non funziona perche' il "-" puo' essere contenuto nel commmento.
Si, ma solo una volta: 
http://www.w3.org/TR/REC-html40/intro/sgmltut.html#h-3.2.4
Quello ti dovrebbe aiutare:
m/<!--(.*?)--\s*>/s
-w


FUNZIONA!
Grazie infinitamente,
Maurizio

Newsgroup: it.comp.lang.perl
Titolo: Numero match della R.E.

Usando un re di questo tipo
if ($pippo=~/\b(ciao|mamma|pluto)\b/) {...}
a sapere se, in caso positivo della if, $pippo conteneva solo una
parola di quelle da ricercare o più di una e, in questo ultimo caso,
quante?
grazie
Andrea Busia

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

$quanti = s/regexp/g
$quanti = s/regexp//g



"Meanwhile, the poor Babel fish, by effectly removing all barries 
to communication between races and  cultures, has caused more and 
bloodier wars then anything else in the history of creation."
(Douglas Adams)

my $count  = keys %{ { map { $_,1 } @words }} ;
Per ottenere il numero di ripetizioni di ogni alternativa ho provato:
my $count = { map { $_,++${"$_"} } @words };
e poi si esamina l'hash %$count.
Chiedo: a parte la limitazione di avere delle stringhe che non iniziano per una
cifra, quali sono le altre possibili controindicazioni? (provato con spazi 
interni alla stringa, backslash ecc. e sembra funzionare).
Saluti
-- 
***********************
Carlo Ubertone
carlou...@libero.it
car...@freemail.it
***********************

 
--
