mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Lettura di username e password in arrivo dal browser. Aiutoooooooooooooooo!!!

Sto per impazzire. Sono le 4 e mezza del mattino e non riesco ancora a far
funzionare un accidenti di script per leggere l'autenticazione http inviata
dal browser al mio script.
Potete aiutarmi? Grazie.
Aekidna.

 
Sì, se spieghi con precisione qual è la difficoltà che hai incontrato...
Max

Sto per impazzire. Sono le 4 e mezza del mattino e non riesco ancora a far
funzionare un accidenti di script per leggere l'autenticazione http inviata
dal browser al mio script. Piattaforma FreeBSD 4 - Apache - Perl 5.005
Potete aiutarmi? Grazie.
Aekidna.

 


 HTTP::Headers invece non riescono a leggere l'header. Aiuuuuuuutooooooooo!
 
Per ragioni di sicurezza, il contenuto dell'header Authorization non viene
passato agli script CGI. Per rimuovere questa limitazione, occorre
ricompilare l'Apache defininendo la macro SECURITY_HOLE_PASS_AUTHORIZATION
(v. src/main/util_script.c).
Come alternativa, puoi usare sviluppare l'applicazione sotto mod_perl, che
consente al codice Perl di intervenire nelle varie fasi dell'elaborazione
delle richieste HTTP, compresa, quindi, la fase di autenticazione.
Come ulteriore alternativa, puoi scrivere un modulo di Apache che effettui
l'autenticazione tramite Filemaker.
Max
Newsgroup: it.comp.lang.perl
Titolo: pulire stringa

Salve,
     Provate a far girare questo codice:
#!/perl
use strict;
use warnings;
use LWP::Simple;
my $rss_content = 
get("
http://www.repubblica.it/rss/homepage/rss2.0.xml
");
my ($channel) = ($rss_content =~ /<channel>(.*?)<\/channel>/sg);
my ($title) = ($channel =~ /<title>(.*?)<\/title>/sg);
my ($link) = ($channel =~ /<link>(.*?)<\/link>/sg);
my ($description) = ($channel =~ /<description>(.*?)<\/description>/sg);
my ($language) = ($channel =~ /<language>(.*?)<\/language>/sg);
my ($lastBuildDate) = ($channel =~ 
/<lastBuildDate>(.*?)<\/lastBuildDate>/sg);
print "title: $title, link: $link, description: $description, language: 
$language, lastBuildDate: $lastBuildDate\n\n";
my @item = ($channel =~ /<item>(.*?)<\/item>/sg);
my ($item_title, $item_link, $item_author, $item_pubDate, 
$item_description);
foreach my $item ( @item )
{
   ($item_title) = ($item =~ /<title>(.*?)<\/title>/sg);
   ($item_link) = ($item =~ /<link>(.*?)<\/link>/sg);
   ($item_author) = ($item =~ /<author>(.*?)<\/author>/sg);
   ($item_pubDate) = ($item =~ /<pubDate>(.*?)<\/pubDate>/sg);
   ($item_description) = ($item =~ 
/<description>(.*?)<\/description>/sg);
 
   print "title: $item_title\n";
   print "link: $item_link\n";
   print "author: $item_author\n";
   print "pubDate: $item_pubDate\n";
   print "description: $item_description\n";
   print "\n";
}
Lo script funziona bene ma avrei bisogno di pulire con una RE la stringa 
($item_description) che ha alcuni caratteri strani all'interno...
grazie

Se avete difficolta a leggere il codice con il vostro newsreader allora 
potete andare quà: 
http://www.theartofweb.net/txt/perl/rss/rss.txt
grazie ancora

 
Non sono "caratteri strani", sono caratteri non ASCII. Il sorgente XML in 
questione ha l'encoding impostato come "iso-8859-1". Se l'ambiente in cui 
visualizzi il testo si aspetta UTF-8 o altri tipi di codifica, i caratteri 
non saranno resi a video in modo corretto.
Max

 ($item_description) che ha alcuni caratteri strani all'interno...
Il mio consiglio è di usare due moduli:
XML::RSS [1] per il parsing e HTML::Entities [2] per i caratteri
"strani".
Ciao,
[1] 
http://search.cpan.org/~kellan/XML-RSS-1.05/lib/RSS.pm
[2] 
http://search.cpan.org/~gaas/HTML-Parser-3.45/lib/HTML/Entities.pm
-- 
.           .  | "...And I am dumb to tell the hanging man
| , ,-. ,-. |  | How of my clay is made the hangman's lime."
|<  |   ,-| |  |                            -- Dylan Thomas
' ` '   `-^ `' |<uggc://jjj.gurqvenpfrn.bet>
Newsgroup: it.comp.lang.perl
Titolo: togliere spazi bianchi esterni


POTABILE - Detto di pianta che si puo' tagliare.

 c'è una funzione x togliere gli spazi in testa e in coda a una stringa?
 perldoc -q "strip blank"

c'è una funzione x togliere gli spazi in testa e in coda a una stringa?
http://www.perl-it.org
, sezione FAQ.
	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!

sub NoSpaces
 my $str = shift;
 $str =~ s/^\s+//; # Spazi all'inizio
 $str =~ s/\s+$//; # Spazi alla fine
 return $str;
 }
la uso sempre...
faccio prima a fare un taglia-incolla...
Ma le faqs sono da leggere!
Max

 $str =~ s/\s+$//; # Spazi alla fine
si puň usare una regex sola
$str =~ s/^\s+|\s+$//g;
oppure
$str =~ s/^\s+(.*?)\s+$/$1/;
Ad occhio direi che la prima č piů veloce, ma non ci giurerei
--
Rimuovi i caratteri maiuscoli dall'indirizzo e-mail per ottenere
quello reale

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

Salve a tutti,
innanzitutto, ho risolto il problema di cui al post precedente, per cui,
come se non ci fosse e grazie.
Adesso ho un problema con "grep":
ho letto $perldoc -f grep e la documentazione relativa in "Perl. Guida di
riferimento", per cui, volendo raggiungere l'obiettivo di trovare tutte le
occorrenze della stringa contenuta in $richiesta tra gli elementi dell'array
@stringhe, scrivo:
@risultato = grep /$richiesta/gi, @stringhe;
ma la variabile $stringa non mi viene interpolata.
Ho quindi aggiunto l'ąncora "^" e viene interpolata, ma ovviamente il
risultato non e' quello voluto in quanto ignora le occorrenze del valore di
$richiesta quando questo non corrisponda con l'inizio di uno degli elementi
di @stringhe.
Per prova ho inserito io una stringa nel pattern fornito a grep:
 @risultato = grep /banane/gi, @stringhe;
e funziona.
Quindi penso sia un problema di corretta interpolazione della variabile
$richiesta all'interno del pattern.
Qualcuno sa darmi un consiglio?
grazie a tutti anticipatamente.
ciao,
asast

ma la variabile $stringa non mi viene interpolata.
Dovrebbe esserlo, forse il tuo errore e' di diversa natura e stai dando la
colpa del malfunzionamento alla cosa sbagliata.
NB: prima e' $richiesta e poi $stringa, errore di trascrittura o e' sbagliato
anche nel codice? 
-- 
Saluti,
Giancarlo


era un errore di trascrizione, nel codice è giusto.
Purtroppo non mi interpola lo scalare nel pattern, evidentemente commetto
qualche errore nei nomi delle variabili, ma usando lo switch -w non ricevo
nessun avvertimento a riguardo.:-(
Comunque, riguardo al pattern matching, ormai i fido ciecamente di te,
quindi do per certo che lo scalare non ha bisogno di niente altro per essere
interpolato all'interno del suddetto pattern di grep.
saluti,
asast

Comunque, riguardo al pattern matching, ormai i fido ciecamente di te,
Stai attento, neppure io mi fido ciecamente di me stesso, quindi te lo
sconsiglio. :))))
-- 
Saluti,
Giancarlo
Newsgroup: it.comp.lang.perl
Titolo: mi serve un programmatore perl

Salve
Mi servirebbe per una mia home page uno script perl semplice , che mi
permetta di mettere ad esempio 10 links su una pagina , generata col CGI ,
che ruotano ogni volta che vengono visualizzati.
Cioe' , la prima volta che vedo la pagina , ho tizio come primo listato ,
caio come secondo e cosi' via , la seconda volta che visualizzo la pagina
avrei tizio come secondo , caio come terzo e quello che era ultimo come
primo... chiaro il concetto?
Mi serve per poter mettere 10 links di sponsor in una lista normale
verticale , che pero' siano visti le stesse volte come primi listati,
secondi , terzi etc.
non vorrei che qualcuno di loro si sentisse svantaggiato
Grazie per ogni proposta/offerta
vic
v...@access.ch

sul sito 
www.html.it
 c'e' come farlo in javascript altrimenti non mi
sembra difficile in perl... appena ho 5 minuti te lo faccio e te lo
mando...
PS: l'elenco degli indirizzi e' su file o su db?
posso usare i cookie ?
esiste un profilo utente ?
ciao Ezio

...


Newsgroup: it.comp.lang.perl
Titolo: come passare un documento XML ad un script PERL?

Supponendo che abbia a disposizione un script perl che faccia il parsing di 
un documento XML (a proposito, avete qualcosa di già fatto? Magari un 
esempio di parser SAX e uno di parser DOM), avrei tale necessità:
ho una pagina in XUL con diversi button ai quali ho associato all'evento 
onclick lo script perl di cui sopra, più o meno cosi': 
                                       onclick="myscript.cgi"
In base al button premuto devo passare allo script un file XML differente.
Ho pensato a passare allo script il file XML in questo modo':
                        onclick="myscript.cgi?contenuto_del_file-XML"
E' corretto?
Qualche suggerimento? 
Qualche soluzione più pratica?
--Gabriele Montemari

 E' corretto?
Per essere corretto, e` corretto. Ma secondo me e` un abominio,
soprattutto perche' esisotno modi piu` efficienti per farlo.
E.g.: myscript.cgi?nomefile.xml
Dove nomefile.xml e` un file XML precedentemente salvato.
Per utilizzare il Perl con l'XML, basta cercare i moduli XML:: su
cpan.org
: ce ne sono molti, anche per SAX e DOM.
Bye,
 Emmanuele.
-- 
I ... Owe ... You ... Pain! -- Willow, "Tough Love"
Italian Buffy Resource Site (Beta) - 
http://www.ibrs.f2s.com
GnuPG Key ID: 0x788E3A3A
GnuPG Key FP: 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

 E.g.: myscript.cgi?nomefile.xml
C'avevo pensato ma avevo da per scontato che non si potesse fare.
Meglio cosi' piu facile.
Ma se invece avessi il testo relativo al documento XML appoggiato su una
variabile di javascript (quindi su client), funziona una cosa del tipo:
            myscript.cgi?miavariabile
Ciao a tutti.
--Gabriele Montemari  

             myscript.cgi?miavariabile
Non saprei: di JavaScript so poco o nulla. Penso di si, anche se non so
quanto sia il limite per il contenuto di testo di JavaScript e il limite
per una POST da parte del browser. Ti conviene mettere tutto dentro un
file di appoggio temporaneo.

Newsgroup: it.comp.lang.perl
Titolo: Da dove scaricare il modulo MIME::base64

Non so da dove si può scaricare questo modulo di Perl.
Nel sito 
perl.org
 e 
perl.com
 non sono riuscito a trovarlo
Grazie

Per ActivePerl su Windows ?


Per Linux

 Per Linux
Usa il modulo CPAN
$ perl -MCPAN -e 'install MIME::Base64'
-- 
Saluti,
Giancarlo

Newsgroup: it.comp.lang.perl
Titolo: Installare dbd-db2 su NT

Ciao a tutti,
vorrei sottoporvi il seguente quesito:
ho scaricato DBD-DB2-0_71_tar.gz e nel file readme mi vengono date le
istruzioni per installare il tutto.
    perl Makefile.PL            # use a perl that's in your PATH
    make
    make test
    make install (if the tests look okay)
Io devo installare questo modulo in un sistema NT, ed il fatto di
eseguire i comandi make mi lascia un po' perplesso, nel senso che non so
come posso fare.
Qualcuno ha un'idea su come posso portare a  termine questa
installazione?
Grazie a chiunque abbia la pazienza (e voglia) di rispondermi.
Marco

 come posso fare.
Immagino tu abbia installato perl su NT, ad es. su c:\perl (se hai
l'ISAPI non so)
Su c:\perl\html\Perl-Win32\* 
(
http://www.cpan.org/ports/win32/FAQ/perlwin32faq.html
)
e su c:\perl\html\lib\Pod\perlwin32.html
(
http://www.uc.edu/Perl_Docs/lib\Pod\perlwin32.html
)
hai tutta la doc che ti serve.
In sostanza devi scaricarti un make per win32, ad esempio
 
ftp://ftp.microsoft.com/Softlib/MSLFILES/nmake15.exe
e leggerti bene la documentazione :))
AM
Newsgroup: it.comp.lang.perl
Titolo: [?]Numeri pari

se il Perl ha l'operatore mod (ancora non mi sono decisa a studiarlo):
a%2
se è uguale a 0 il numero è pari. Sennò è dispari

>  sub is_even { not  $_[0] =~ /[13579]$/  }
sbaglio o vale solo per numeri di una cifra?

 wrote:
: >  sub is_even { not  $_[0] =~ /[13579]$/  }
: 
: sbaglio o vale solo per numeri di una cifra?
Sbagli (c'e` un'ancora a destra, e nessuna a sinistra).
Naturalmente 2.2 viene riconosciuto come pari, pero` :-)
ciao, .mau.



Si tratta di un bug noto. Anche "centocinquantatre" e "pigreco" vengono
erroneamente riconosciuti come pari. Nella nuova release il problema è
stato risolto.
MM

a%2
Ce l'ha (ma dico, come potevi pensare il contrario? ;-)), ed in effetti questa
mi sembra la via piu` comoda.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 meno?
A parte le RE (su cui si sono sbizzarriti... -))
Fai diviso due e vedi se l'intero è uguale al risultato!
#!/usr/bin/perl
$numero = shift;
print $numero." e' pari!\n" if $numero/2 == int($numero/2);
Valerio


Non male effettivamente, ma perche' sprecare risorse quando c'e'
$nisodd = $n&1;
Magari cosi' uno risparmia un nanosecondo a botta.
;)
--
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/

 $nisodd = $n&1;
Eh, sì. Sembrava proprio un'ottima soluzione. Anche quella con l'operatore
% sembrava buona. Poi un giorno accadde qualcosa che cambiò la loro vita.  
[Il dialogo è in inglese sennò il giochino di parole non funziona. :-) ]
 - Hi. We've been told you guys from it.comp.lang.perl have written
  a very cool piece of Perl code that tells you if a number is even
  or not.
 - Yes.
 - Well, we at MIT are having some trouble figuring out if a number
   is actually even or odd. Could you help us?
 - No problem. Just name it.
 - 4294967296
 - Ok. Wait a moment.... Err... Oops... This is very odd.
Max

 Grazie max tu si che mi capisci ;O)
Io? Piuttosto, tu sei sicuro di avermi capito?
E perchč ringrazi me, anzichč Maurizio?
Max




 Max
... Perhaps you are right... I got 32 failures before obtaining your result,
but finally I can confirm it....
... While you are at it, can you please test 33550336 with your
algorithm?.... my routine says it is very odd too... and someone told me it
is actually a PERL among numbers ....
And don't say I am OT please!
marco

Newsgroup: it.comp.lang.perl
Titolo: wigets?

Ciao a tutti, immagino che anche con perl si possano fare delle GUI, magari
usando qualcosa tipo Tk, ma su perldoc non ho trovato praticamente nulla.
Qualcuno mi sa dire che moduli si usano, dove trovarli e dove trovare un
buon howto?
Grazie
dawe
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Ovviamente il titolo era "Widgets?"...


buon howto?
Tk è abbastanza "qualcosa come Tk"?
Comunque ci sono diverse altre possibilità, in dipendenza anche da quale
sistema operativo intendi usare.
Ciao.

 buon howto?
Prova a dare un occhio all'ultimo post di questo thread:
http://tinyurl.com/22xnf

 buon howto?
Gtk2: 
http://gtk2-perl.sourceforge.net
Trovi tutto anche su CPAN.
Ciao,
 Emmanuele.
-- 
Emmanuele Bassi (Zefram)                 [ 
http://www.emmanuelebassi.net
 ]
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4
Newsgroup: it.comp.lang.perl
Titolo: per gli esperti di perl

Consigliereste l'uso di perl per sviluppare un applicativo completo per la
gestione aziendale?
grazie

 gestione aziendale?
dipende da cosa deve fare
-- 
Splendente in eta` acerba di passione
Rosso fiammante
Ma senza eta` matura
Marcia impostura

 gestione aziendale?
La decisione su quale linguaggio usare va presa in base a tanti fattori, dei
quali il campo d'applicazione non è certamente il più importante.  
Tra l'altro "applicativo per gestione aziendale" è una definizione priva di
qualunque reale significato.  Ccosa fa? ha una gui? è via web? deve
interfacciarsi a particolari hardware? deve essere multi piattaforma? quali
vincoli di sicurezza sono imposti sui dati? che tipo di azienda? le
procedure saranno cristallizzate nel tempo oppure andranno cambiate di
continuo per inseguire l'evoluzione dell'azienda o delle leggi? che modello
di business si intende adottare per rientrare dei costi di sviluppo?
licensing? assistenza e personalizzazioni? non interessa?)
Mettici anche che il fattore che determina l'uso di un linguaggio rispetto
ad un altro è quasi sempre il costo, in termini di sforzo da parte degli
sviluppatori, degli installatori, dei manutentori, in base alle conoscenze
pregresse da cui partono - cosa su cui non ci hai detto niente.
Come vedi darti una risposta sensata è praticamente impossibile.

Come già ti hanno detto gli altri, dipende da cosa intendi per gestione
aziendale. Se questo ti può aiutare, io da circa 6 anni ho sviluppato una
web-based Groupware suite che implementa molte features offerte di solito
da software che si occupano di Workgroup, Workflow, ERP, CRM e CMS la puoi
trovare su 
www.isogest.org
Luca

Newsgroup: it.comp.lang.perl
Titolo: Problemino con Regexp

Ciao a tutti,
scusate ma da profano del Perl ho un problemino con una RegExp che mi
sta facendo impazzire da qualche giorno.
my $value = "Pippo, Maria";
if( /^(.*?),(.*?)(,(.*?))?$value/ ) {
	quì mi aspetto che
	$1 = Pippo
	$2 = Maria
	$4 = [vuoto]
}
invece non funziona ! Tenete conto che:
my $value = "Pippo, Maria, Dott"
ma l'ultimo pezzo è opzionale.
Come mai non funziona ?
Grazie, Michele
-- 
O-Zone ! No (C) since 1996
On the road with VFR VTec 2002 "Vuffy", on the net with Linux Slackware.
Home+BLOG @ 
http://www.zerozone.it
 || Best of Italy @
http://www.openitaly.net

 Come mai non funziona ?
Perché non hai usato da nessuna parte l'operatore =~ (potresti anche 
ometterlo, ma in questo caso il match verrebbe effettuato con la 
variabile predefinita $_).
In sostanza dovevi scrivere così:
if ( $value =~ /^(.*?), (.*?)(?:, (.*))?$/ ) {
     ...
}
Nota che in questo modo le stringhe catturate andranno in $1, $2 e $3 
(non $4), perché il terzo cluster non cattura.
Nota pure che come separatore conviene usare ", " e non ",", così ti 
ritrovi i valori già puliti dello spazio iniziale.
Infine nota l'ancoraggio a fine stringa ($), senza il quale il secondo e 
il terzo match non avverrebbero mai.
Detto questo, si tratta del classico caso in cui è preferibile usare 
split() anziché una regex:
my @parts = split /, /, $value;
da cui avrai:
$parts[0] -> 'Pippo'
$parts[1] -> 'Maria'
$parts[2] -> 'Dott' (oppure undef)
Ciao.

 Ciao.



Non conosco esattamente il problema ma non fai prima a fare un:
my @a=split(',',$value);

Newsgroup: it.comp.lang.perl
Titolo: Regex - Ci sono differenze fra i diversi linguaggi ?

Scusate la domanda credo ingenua,
ma vi sono differenze di sintassi fra le regular expression 
in Perl, in bash scripting e in Python ?
Mi sembra di no, ma vorrei saperlo con certezza.
____________________________
Alessandro Antonucci
af...@NOSPAMinwind.it
www.ilfarorosso.com

 Mi sembra di no, ma vorrei saperlo con certezza.
   Lo standard POSIX comprende anche le /regular/ /expression/. La loro 
implementazione in Perl e` un sovrainsieme dello standard e di quelle 
gestite da /utility/ quali grep(1) o sed(1). Per quanto riguarda il 
Python, non saprei, ma non penso che siano implementate in modo molto 
diverso.
-- 
Veri pirati noi siamo       Ma cosa c'e` di male?
Contro il sistema lottiamo  Ma cosa c'e` di strano?
Ci esecritiamo a scuola     Facciamo un gran casino
A far la faccia dura        Ma in fondo lavoriamo
Per fare piu` paura         Per capitan Uncino
Newsgroup: it.comp.lang.perl
Titolo: Script che si autoeseguono

E' possibile che uno script si autoesegua magari settando una determinata 
ora?
grazie
+CROCE+
-- 
Creato con M2, il rivoluzionario client e-mail di Opera: 
http://www.opera.com/m2/

 ora?
Sì ma non dipende dallo script. 
Su *nix puoi affidarti al demone cron e su windows a "operazioni
pianificate" 
ciao
Lorenzo
-- 
pub  1024D/0EC8A3D4
Key fingerprint = C066 409C 9986 351A 0DE3  43F5 FFFD 3FD8 0EC8 A3D4

 ora?
Problema "filosofico":
- Se uno script si "autoesegue" (manda in esecuzione se stesso) vuol dire
che compie un'operazione.
- Se uno script compie un'operazione vuol dire che in quel momento e' in
esecuzione.
- Se uno script non e' in esecuzione, non puo' compiere alcuna operazione.
- Se uno script e' in esecuzione, non puo' essere responsabile della sua
mandata in esecuzione, ma al limite puo' mandare in esecuzione una
"istanza" di esso.
 O_o
 Raffaello

 ha 
scritto:


 +CROCE+
Sì con crontab se il server è un *nix (man crontab per ulteriori informazioni). Se vuoi che sia eseguito solo a certe ore impedendo a gli utenti normali di eseguirlo, basta che lo metti fuori dal loro path di ricerca (/usr/local/sbin/) e con owner e gruppo root e con permessi 700. Questo comunque non dipende dal perl ma dal sistema operativo. Non so se questo è il luogo giusto per discuterne. 


Newsgroup: it.comp.lang.perl
Titolo: Data ottenuta con time

Uso il seguente codice per ottenere la data sul mio server:
   $tempo = time;          # Tempo in secondi dal 1 Gen. 1970 sul server
   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime
($tempo);
Voorei sapere se questo può creare problemi quando si passerà all'anno 2000.
Grazie.
Nicola




No. Basta ricordarsi che $year e' il numero di anni dal 1900, per cui nel 2000
ritornera' il valore 100.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 wrote:
: Uso il seguente codice per ottenere la data sul mio server:
:    $tempo = time;          # Tempo in secondi dal 1 Gen. 1970 sul server
:    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime
: ($tempo);
: Voorei sapere se questo può creare problemi quando si passerà all'anno 2000.
No, ma li creera` nel 2038 se il tuo programma girera` ancora su un
computer con architettura a 32 bit.
-- 
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) mail (dot) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nandos

computer con architettura a 32 bit.
Perchč?
Ciao
Andrea

 wrote:
:>No, ma li creera` nel 2038 se il tuo programma girera` ancora su un
:>computer con architettura a 32 bit.
: Perchč?
*nix conta il tempo come numero di secondi trascorsi dal 1 gennaio 1970.
Se il contatore e` a 32 bit va in overflow nel 2038.
Ovviamente e` una risposta ironica, visto che esistono gia` ora
processori a 128 bit.

Newsgroup: it.comp.lang.perl
Titolo: includere una sub in un file esterno

Salve Gente,
sono nuovo del perl ma ho già scritto parecchio codice che mi serve...
adesso ho questa necessità...
in 5 o 6 script che ho scritto ho riportato una sub che mi serve per loggare 
su file alcuni comportamenti dello script.
La sub si chiama Logga, gli passo la stringa da scrivere e la sub che al suo 
interno ha il nome del file la appende al fondo di questi.
Vorrei che questa sub fosse esterna ai singoli script, in modo da poterla 
modificare in un solo punto.
In sostanza vorrei scrivere un file che contenga solo questa sub.
Arrivo da ASP e mi aspettavo qualcosa tipo include o cose del genere.
Ma non riesco a trovare niente che mi aiuti...
(diciamo che oggi ho una google-pigrizia spaventosa)
Qualcuno di voi mi sa dare una dritta???
Grazie 1000
Daniele

(diciamo che oggi ho una google-pigrizia spaventosa)
Niente google, quindi: leggi la documentazione di "require" e "use", in
perlfunc, e perlmod, tutto direttamente sul tuo computer.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: autosplit.ix

Sto cercando il seguente file:
"perlroot"/auto/Mail/autosplit.ix
non sono riuscito a trovarlo da nessuna parte e mi servirebbe per poter 
utilizzare una piccola perl script chiamata "ricochet".
Potreste gentilmente inviarmelo o meglio ancora indicarmi il pacchetto al
quale appartiene il suddetto file (in CPAN ho gia` guardato)?
grzie!
ciao,
-- 
         **** Per rispondere rimuovi +!XXX! dall'indirizzo ****
 [ Francesco L. <goo @ ouverture . it>      ][ Powered by Linux 2.0.33 ]
 [ Email alternativa: didefault @ usa . net ][ 
http://goo.home.ml.org
  ]
 [ Hostname dinamico: 
artemide.dyn.ml.org
   ][ ICQ UIN: 10640395       ]
 [ Per la mia PGP PUBLIC KEY manda un messaggio a 
goo...@ouverture.it
 ]

 wrote:
: Sto cercando il seguente file:
: "perlroot"/auto/Mail/autosplit.ix
: non sono riuscito a trovarlo da nessuna parte e mi servirebbe per poter 
: utilizzare una piccola perl script chiamata "ricochet".
: Potreste gentilmente inviarmelo o meglio ancora indicarmi il pacchetto al
: quale appartiene il suddetto file (in CPAN ho gia` guardato)?
Attento, avevi il Followup impostato a it.comp.linux!
Forse quello che il programma cerca e` MailTools. Io l'ho installato
e ho una directory "perlroot"/site_perl/auto/Mail (la definizione
delle directory puo` variare)s, in cui c'e` l'autosplit.ix .
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E

 delle directory puo` variare)s, in cui c'e` l'autosplit.ix .
Saluti.  
Nulla di tutto cio'. Autosplit.ix e' un file che viene
generato dalla procedura di installazione Standard dei moduli perl,
che recita, piu' o meno:
perl Makefile.PL
[...]
make install
[...]
Uno dei messaggi generati e' appunto "..autosplitting".  Il file in
se' stesso poi e' in supporto all' autocaricamento delle routine del
modulo stesso, e non penso proprio che un autosplit.ix generato da un
modulo vada bene per un altro.
Se ci si trova su una piattaforma che non supporta MakeMaker (Windoze
ancora per un po') si puo' emulare la procedura e generare un
autosplit funzionante. Io ricordo di averlo fatto a mano, ma ho
dimenticato i dettagli.  Comunque ricordo che si cominciava dicendo
qualcosa tipo:
perl -MAutosplit -e "qualcosa nomemodulo qualcosaltro"
Leggendo l'help di autosplit ci si dovrebbe arrivare in poco tempo.
Cheers,
	Alessandro Forghieri

a...@orion.it
 wrote:
:> : Sto cercando il seguente file:
:> : "perlroot"/auto/Mail/autosplit.ix
:> Forse quello che il programma cerca e` MailTools. Io l'ho installato
:> e ho una directory "perlroot"/site_perl/auto/Mail (la definizione
:> delle directory puo` variare)s, in cui c'e` l'autosplit.ix .
: Nulla di tutto cio'. Autosplit.ix e' un file che viene
: generato dalla procedura di installazione Standard dei moduli perl,
Appunto.
Nel caso specifico il poster originale aveva bisogno
dell'autosplit.ix creato dal pacchetto MailTools, che non aveva
installato (quindi niente autosplit.ix relativo).

Newsgroup: it.comp.lang.perl
Titolo: problema con il modulo term ansi color

ho provato l'esempio contenuto nella documentazione di
term ansi color
use Term::ANSIColor;
    print color 'bold blue';
    print "This text is bold blue.\n";
    print color 'reset';
    print "This text is normal.\n";
    print colored ("Yellow on magenta.\n", 'yellow on_magenta');
    print "This text is normal.\n";
    use Term::ANSIColor qw(:constants);
    print BOLD, BLUE, "This text is in bold blue.\n", RESET;
    use Term::ANSIColor qw(:constants);
    $Term::ANSIColor::AUTORESET = 1;
    print BOLD BLUE "This text is in bold blue.\n";
    print "This text is normal.\n";
e nel prompt di windows il risultato è questo (non si vede alcun colore....)
?[1;34mThis text is bold blue.
?[0mThis text is normal.
?[33;45mYellow on magenta.
?[0mThis text is normal.
?[1m?[34mThis text is in bold blue.
?[0m?[1m?[34mThis text is in bold blue.
?[0m?[0mThis text is normal.

colore....)
[...]
il driver ANSI non e' stato caricato, e le sequenze di escape sono state
stampate letteralmente aggiungi "DEVICE=f:\windows\command\ansi.sys" in
c:\config.sys e riavvia
--
-----BEGIN GEEK CODE BLOCK-----
Version 3.1 (with proprietary extensions)
GE/M/S/O  d-  s:---  !a  c++++(c)>$  ul p+>+++   l+>++  e->----  w++>$  n++
o--  k-  w++  o?  m?  v?  ps++  pe-  y+>+++  pgp++  t+  5?  x++(+)  r
tv--  b++>++++  di++  d++  g--  e  h!  !r  xy**
------END GEEK CODE BLOCK------

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

Come si fa flushare un filehandle?
Grazie,
    Marco

 Come si fa flushare un filehandle?
Se il filehandle e' quello di default, fai $|=1
altrimenti devi selezionarlo prima con select.
Risposta dettagliata nella FAQ5 'man perlfaq5'
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)
Newsgroup: it.comp.lang.perl
Titolo: Mitico "Michele" ancora 3 domandine....

semplici semplici:
(almeno credo!)
@parts = split (/,/, $riga);
print $parts[2];
ma se il separatore č:  /   come lo scrivo?
come stabilire il numero massimo di decimali tagliando quelli in piů ?
( quě ne ho 2 in piů: 3.3600)
sempre sui decimali, come eliminare gli "0" superflui tipo:
30.0000 (il punto sta per virgola)
dove ho 4 zeri che occupano solo spazio inutile?
Grazie, mi sei stato molto utile!
Bye
F.

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

dove ho 4 zeri che occupano solo spazio inutile?
$intero = sprintf "%d", $numero;
Naturalmente funziona anche con printf(). Ti consiglio di leggere la
documentazione per queste due funzioni, sono moooolto utili. ;)
	A presto, Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 wrote in message
slrn8gip...@karma.italpro.to...





Azzz....il "C"  un po' lo conosco!.....Ma quante cose fa questo Perl!!???
Tutto... e anche oltre. ;-)


Newsgroup: it.comp.lang.perl
Titolo: [gtk2-perl] Gnome2::GConf

Per chi fosse interessato...
Ieri sera ho messo sul CVS del progetto gtk2-perl il modulo
Gnome2::GConf. Questo modulo altro non è se non il wrapper alla libreria
C libgconf.
GConf è un sistema di gestione delle opzioni usato da GNOME 2.x (e
dalle applicazioni che usano questa piattaforma). È basato su un demone
che gestisce coppie chiave/valore, le monitora, e notifica i cambiamenti
alle applicazioni in ascolto. Tramite Gnome2::GConf è possibile
utilizzare questo sistema anche nei programmi scritti in Perl.
+++
Al momento, l'ultima release è su CVS, e dipende dall'HEAD dei moduli
Glib e Gtk2; tuttavia, non appena le nuove versioni di questi due moduli
saranno rilasciate (dipende dalle segnalazioni di eventuali bug), sarà
rilasciata anche la release di Gnome2::GConf. L'API è stabile, quindi
chi se la sente, può usare direttamente il CVS.
Ciao,
 Emmanuele.
-- 
Emmanuele Bassi (Zefram)       [ 
http://digilander.libero.it/ebassi/blog
 ]
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

 C libgconf.
Interesting... 
Potresti (e dovresti) anche annunciare la cosa su 
module-...@perl.org
 indi 
pubblicare su CPAN per avere anche una più ampia base di tester
by
	- Enrico
--- have fun with 
www.perl.it
 ---

 pubblicare su CPAN per avere anche una più ampia base di tester
Tra non molto, verrà rilasciata una versione, e verrà messa anche su
CPAN.

Newsgroup: it.comp.lang.perl
Titolo: server a più connessioni

Salve,
     sto cercando di programmare un piccolo server che dovrà girare come 
demone che riporti al web browser i files contenuti nel sistema...ecco 
un pezzo di codice che riassume in generale il funzionamento del server:
use Socket qw(:DEFAULT :crlf);
$socket = IO::Socket::INET->new() || die "unableto listen";
$socket->listen();
$| = 1;
while (1)
{
   $client = $socket->accept;
   if ($client)
   {
      ...legge la recv...e risponde...
      close $client;
   }
 
}
purtroppo con questo tipo di codice posso gestire una connessione alla 
volta...come faccio a renderlo multitask? (se questa è la parola giusta)
devo usare la fork?
Grazie

 devo usare la fork?
credo che devo solo capire come unire queste due parti di codice:
use POSIX ":sys_wait_h"; 
sub REAP { 
 1 until (-1 == waitpid(-1, WNOHANG)); 
 $SIG{CHLD} = \&REAP; 
} 
$SIG{CHLD} = \&REAP; 
die "can't fork: $!" unless defined( $pid = fork() ); 
if ($pid) { 
 # the if{} block runs only in the parent process 
 waitpid( $pid,0 ); 
} else { 
 # the else{} block runs only in the child process 
 exit(0) 
} 
e questo:
use Socket qw(:DEFAULT :crlf); 
$socket = IO::Socket::INET->new() || die "unableto listen"; 
$socket->listen(); 
$| = 1; 
while (1) 
{ 
 $client = $socket->accept; 
 if ($client) 
 { 
   ...get data...send response... 
   close $client; 
 } 
}

 devo usare la fork?
Non è strettamente necessario perché ci sono soluzioni alternative, ma 
se devi gestire diverse connessioni in maniera concorrente, forkare 
(meglio ancora pre-forkare) dei processi serventi è probabilmente la 
soluzione migliore, ed anche la più comunemente adottata (poi la scelta 
dipende da svariati fattori).
Se hai il Perl Cookbook, è tutto spiegato in dettaglio nelle ricette 
17.11 e 17.12 (2nd edition).
Per le soluzioni alternative (server multitasking senza fork) puoi 
guardare le ricette 17.13 e 17.14 (e 17.15).
Altrimenti il codice lo trovi online su PLEAC-Perl:
http://pleac.sourceforge.net/pleac_perl/sockets.html
("Forking Servers" e paragrafi successivi).
Detto questo, su CPAN trovi server multitasking di tutte le fogge già 
bell'e pronti, tipo Net::Server e varie cose sotto la gerarchia 
POE::Component::Server.
Ciao,
Emanuele.

 }
perldoc perlipc da un esempio usabile di server concorrente.
-- 
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: if then else

Io ho creato un file cgi che a seconda della parola mi dovrebbe mandare a
una determinata pagina
ESEMPIO
file.cgi?dove=servizi
if  servizi then print "<meta .....\n";
if catalogo then print "<meta .....\n";
Il mio problema è che non so utilizzare if then else.
Mi potete aiutare!?!
Grazie

 if catalogo then print "<meta .....\n";
if (condizione) {
    operazione;
} else {
    altra_operazione;
}
else {} lo puoi omettere o puoi mettere elsif () {} per un altro
controllo.
Ciao,
Valerio
Newsgroup: it.comp.lang.perl
Titolo: Per for ISAPi - qualcosa non va.

Durante l' installazione di Activestate ho installato anche Perl IS
Ottengo una risposta dal web server che non riesco a diagnosticare:
'nome/path assoluto dello script' script produced no output.
1) IIS 5.0 su Windows 2000 professional
2) Activestate Perl build 630
3) Ho mappato su isapi.dll gli script con estensione .plx
Non ho inserito il %s %s nella configurazione del web server. La
documentazione dice che è inutile, mentre invece è dannoso, nel senso
che il server va in errore. 
La situazione non cambia inserendo:
print <<"END";
HTTP/1.0 200 OK
Content-Type: text/html
 
END
come suggerito nella activeoperl faq 7 che recita:
Earlier versions of Perl for ISAPI did not output headers correctly,
and this caused Perl for ISAPI scripts to misbehave. You could work
around this in earlier versions of PerlIS by sending the headers at
the beginning of your script like this:
    print <<"END";
    HTTP/1.0 200 OK
    Content-Type: text/html
 
    END
This is no longer necessary with the current version of Perl for
ISAPI, as Perl for ISAPI sends the correct headers. The Registry value
that governs this is EnableCGIHeader, a REG_DWORD value that is set to
1 by default. This value is stored under the Registry key
HKEY_LOCAL_MACHINE\SOFTWARE\ActiveState\PerlIS. If you need to turn
off the automatic generation of the header, set this value to 0.
Comunque non trovo impostato sul registry la chiave menzionata: non
esiste alcuna chiave:  HKEY_LOCAL_MACHINE\SOFTWARE\ActiveState\PerlIS

 3) Ho mappato su isapi.dll gli script con estensione .plx
Ciao, non so risponderti (non ho IIS) ma posso darti due link (che
probabilmente avrai già trovato da solo):
http://cgipoint.html.it/tutorial/03/5.htm
http://aspn.activestate.com//ASPN/Reference/Products/ActivePerl/faq/Windows/ActivePerl-Winfaq6.html#How_do_I_configure_Microsoft_IIS
http://www.microsoft.com/technet/treeview/default.asp?url=/TechNet/prodtechnol/iis/tips/runcgi.asp
http://www.windows-expert.net/faq/IIS/How-to-install-PERL-on-IIS5.asp
http://www.windows-expert.net/faq/IIS/My-IIS-is-not-executing-Perl-files.asp
http://iishelp.web.cern.ch/IISHelp/iis/htm/core/iicacgia.htm
inoltre ti consiglio di passare al 631 che ha dei bug fix relativi
a PerlIS.
A giorni poi *dovrebbe* uscire la 632.
-- 
$_=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


o se fanno alla svelta aspetto la 632.
Tu lavori con Perl sotto Win o sotto *nix ?
Ciao

Newsgroup: it.comp.lang.perl
Titolo: diventa PRANOTERAPEUTA !!!

*PRANICWORLD*, che ti venga la diarrea cronica.

 Per info e prenotazioni 
http://pranika.supereva.it
e stì cazzi?
-- 
Non bastano tutti i cammelli del deserto per comprarsi un amico.
Newsgroup: it.comp.lang.perl
Titolo: Catalyst

Leggendo vecchi post del newsgroup mi sono imbattuto in Catalyst...
Sembra un progetto estremamente interessante ma altrettanto
difficile... Esso mi ha fatto anche scoprire l'interessantissimo modulo
Template...
Vorrei chiedervi se per caso qualcuno conosce un manuale o qualche
pagina sul web che non sia il manuale su CPAN che spieghi passo passo
qualche esempio di applicazione basata su Catalyst...
Vi ringrazio per le eventuali risposte,
nathanvi


È appena uscito un articolo su 
perl.com
 riguardo Catalyst:
http://www.perl.com/pub/a/2005/06/02/catalyst.html
Per il resto, non mi sembra che al momento ci sia nulla di meglio dei 
POD per quanto attiene alla manualistica.
Bisogna considerare che il progetto è ancora giovane, per cui ci vorrà 
ancora un po' prima che sia disponibile materiale documentale più 
approfondito e/o organico.
La cosa migliore per tenersi aggiornati è iscriversi alle mailing list:
http://lists.rawmode.org/mailman/listinfo
Ciao,
Emanuele.

Ciao Emanuele e grazie.
Il mio problema è che non capisco proprio cosa potrei fare con
catalyst.
Leggendo un pochino i POD e sapendo che è un framework sembra una cosa
interessante ma...
non so proprio da dove iniziare per fare qualcosa di diverso dalla
installazione :-(
Proverò a guardare i links che mi hai dato e ti ringrazio.
Vittorio

 installazione :-(
Nella seconda pagina dell'articolo che ti ho segnalato, viene mostrato
come mediante Catalyst si possa implementare un Wiki (chiamato
"MiniMojo") in appena 30 linee di codice!
Tra l'altro il wiki in questione utilizza il protocollo XML-Http
(mediante il plugin "Prototype") che genera degli effetti di
interattività davvero *strabilianti* per una web-application.
Qualcosa di molto simile a quello che fa il servizio sperimentale
"Google Suggest":
http://www.google.com/webhp?complete=1&hl=en
(che difatti utilizza anch'esso l'XML-Http).
Per acquisire dimistichezza con Catalyst, si può partire appunto da
MiniMojo:
http://www.perl.com/pub/a/2005/06/02/catalyst.html?page=last
(che poi sarebbe una versione minimale di un nuovo Wiki implementato su
Catalyst, che si chiama "MojoMojo"):
http://mojomojo.org/mojomojo
Oppure ci si può dedicare all'approfondimento di alcune conoscenze di
carattere propedeutico, quali Template-Toolkit e Class::DBI (e prima
ancora DBI), il paradigma MVC, il protocollo HTTP, CGI, mod_perl.
Ciao,
Emanuele.

 Per acquisire dimistichezza con Catalyst, si può partire appunto da
                 ^^^^^^^^^^^^^
my $previous_message =~ s/dimistichezza/dimEstichezza/;
Emanuele.
Newsgroup: it.comp.lang.perl
Titolo: Tool grafico

Salve, chi mi sa consigliare un tool per creare interfacce grafiche per i 
miei prog. in perl? Magari sfruttando le tk o gtk.
Grazie

 miei prog. in perl? Magari sfruttando le tk o gtk.
Sei su uno *nix?
Allore le alternative sono:
1) Tk		
http://search.cpan.org/author/NI-S/Tk-800.024/
		acuni binari su 
http://www.perltk.org/
2) Gtk 		
http://www.gtkperl.org
3) Wx 		
http://wxperl.sourceforge.net/
4) Prima 	
http://www.prima.eu.org/
Comunque sia, i moduli li trovi tutti cercando su 
http://search.cpan.org
Tk, Wx e Prima vanno su X e anche su win32.
Tra queste, una delle più "semplici" da programmare, IMHO è Tk.
Ma il look Motif non è sempre il massimo. Wx invece è ottima e si
adatta all'ambiente che trova sotto.
-- 
$_=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

Il fatto è che ho già scaricato le tk e gtk, ma quello che cercavo è un tool 
che mi permetta di creare le GUI in modo grafico, senza dover scrivere il 
codice delle finestre o bottoni.
Cmq grazie per avermi suggerito le wx e Prima, che non conoscevo!
Ciao by Siro


per Wx c'è un tool: wxdesigner (
http://www.roebling.de
) che però non è 
free.
Per Tk c'è un vecchio RAD: 
http://www.18rabbit.com/products/tikiartist.htm
 utilizzabile però
dolo da win32 (anche se il codice prodotto è utilizzabile ovunque)
C'è anche un altro tool mutuato dal Tcl/Tk, SpecTcl
http://spectcl.sourceforge.net/
 assieme a SpecPerl
http://www.keck.ucsf.edu/~kvale/specperl
Per Gtk potresti usare Glade: 
http://glade.gnome.org/
assieme a glade-perl: 
http://www.glade.perl.connectfree.co.uk/index.html

Grazie 1000 :-)
Newsgroup: it.comp.lang.perl
Titolo: ftp

Salve,
sto cercando di fare effettuare da uno script Perl, utilizzato come CGI, un
semplice trasferimento di file tramite ftp.
Ho installato il modulo Net::TFTP pero' non so come inserire lo user e la
password necessarie alla trasmissione del file inoltre lanciando lo script
mi viene riportato un errore di "No such file or directory..." relativamente
al nome del file remoto linea che inizia con *.
#!/usr/local/bin/perl -w
use CGI qw/:standard/;
use Net::TFTP;
$host_to = "my.host";
$localfile = "/local/file";
$remotefile = "file";
open(LOCALFILE, $localfile)
        || die "Errore apertura $localfile -> $!";
$tftp = Net::TFTP->new($host_to, BlockSize => 1024);
$tftp->ascii;
* $tftp->put(LOCALFILE, $remotefile)
        || die "Errore: $!";
$err = $tftp->error;
$tftp->quit;
close LOCALFILE;
print header,  etc. etc.
Ogni suggerimento su come utilizzare correttamente il modulo o relativo
all'esistenza di altri moduli dedicati sara' molto gradito
saluti, Mario.

 wrote:
: sto cercando di fare effettuare da uno script Perl, utilizzato come CGI, un
: semplice trasferimento di file tramite ftp.
: Ho installato il modulo Net::TFTP pero' non so come inserire lo user e la
: password necessarie alla trasmissione del file inoltre lanciando lo script
Forse quello che vuoi e` Net::FTP. Il protocollo TFTP (Trivial File
Transfer Protocol) e` diverso dall'FTP.
TFTP usa UDP, non TCP, in piu` non supporta autenticazione, ne` e` in
grado di listare directories o muoversi da una dir all'altra.
Nel caso di Net::FTP il colloquio e` del tipo:
use Net::FTP;
$ftp = Net::FTP->new($host);
$ftp->login($user, $passwd);
$ftp->cwd($remotedir);
$ftp->binary;
$ftp->put($file);
$ftp->quit;
-- 
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) ns (dot) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nandos
Newsgroup: it.comp.lang.perl
Titolo: Richiamo di codice esterno.

E' possibile richiamare una procedura scritta in un linguaggio di
programmazione differente dal Perl (C,COBOL,...) da uno script Perl?
In caso affermativo, come fare?
Ringrazio tutti coloro che potranno fornire delucidazioni, commenti,
stralci di codice e ...
Giovanni Carchesio
Per risposte sulla mail privata utilizzare "
carc...@istat.it
".
--
Automatic posted from 
hp712.istat.it
 [193.204.90.44]
via Mailgate Server - 
http://www.mailgate.org

p...@istat.it
 wrote:
 >E' possibile richiamare una procedura scritta in un linguaggio di
 >programmazione differente dal Perl (C,COBOL,...) da uno script Perl?
E` possibile eseguire codice C, e la documentazione fornita con il perl
spiega dettagliatamente come fare.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

Per risposte sulla mail privata utilizzare "
carc...@istat.it
".
------------------------------------------
Davide Migliavacca - Inferentia, Milano IT
Phone +39 2 59928.1 Fax .221
------ Standard disclaimer applies -------

 wrote:
: E' possibile richiamare una procedura scritta in un linguaggio di
: programmazione differente dal Perl (C,COBOL,...) da uno script Perl?
: In caso affermativo, come fare?
Dipende da cosa intendi per codice esterno: se vuoi chiamare un
*programma* esterno puoi usare:
system "programma";
o
$res = `programma`;
a seconda che tu abbia bisogno del return code del programma o meno.
Se invece vuoi linkare dinamicamente un pezzo di codice nel tuo
programma Perl allora RTFMs perlxs, perlxstut, perlguts.
-- 
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: output su stampante

Salve a tutti,
stò facendo un piccolo gestionale di magazzino su una intranet, sono
arrivato però al punto di dover generare dei report e fino  a qui tutto
ok......
come posso fare però per mandare l'output alla stampante?
Ho cercato qualche Faq ma non o trovato niente di simile................è
possibile farlo?
Grazie!!
Claudio Bellucci

come posso fare però per mandare l'output alla stampante?
Se usi un nixies indirizza l'output sul progr. lpr.
-- 
       ¥ 
      |†|
     /    \         la scusa giusta al momento giusto : l'alcool
    |      |        non ho potuto fare i compiti : stavo bevendo
J  |  &  |  D   domani non posso andare al lavoro : devo bere
    |      |        scusa non posso sposarti : la vite mi chiama
    '-----'     e-mail: lakyba(at)
tin.it

Se usi un nixies indirizza l'output sul progr. lpr.
scusami ma non riesco a capire :-) what's nixies? (eh eh eh forse sono
ancora troppo ignorante eh eh eh)
Claudio

UNIX, linux, irix, unicos & company !
Unix-like e' un termine piu' comune!!
Alex

Eh no! tutto gira sotto windoze!
ho provato a vedere un po di documentazione ma non ho trovato ancora
niente!! boh!!
"Alex" <Nom...@wow.boh> ha scritto nel messaggio
news:AzXd6.70115$ew1.4...@news.infostrada.it...


 niente!! boh!!
Non un sono esperto, ma mi sembra che il Win32 permetta di accedere alle API di
Windoze, attraverso le quali puo' controllare le stampanti.
Ciao
Marcello

 ha scritto nel
messaggio news:3A796381...@altavista.net...


Newsgroup: it.comp.lang.perl
Titolo: Urgent problem with COOKIE

Hi NG,
I use CGI.pm library, the problem is that in my script when I try to
retrieve  the cookie named "filter" , if  that doesn't exist,  the
assignment
$cookie=$query->cookie ("filter");
should return an undefined value that I can verify with  the conditional
statement:
if (! defined ($cookie)) ...............
but that seems not to work!!!!!
How can I check the condition in which the cookie "filter" doesn't
exist????????
Thanx to all the NG!!!!!!
ps : it's very urgent......pratically my future depends on this cookie!!!
I'm not joking!!!!

statement:
E cosa torna, una stringa vuota? In quel caso puoi tranquillamente utilizzare:
if ($cookie eq '') {
}
(che funziona anche in caso la variabile contenga undef tra l'altro...)
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> FAQ di it.comp.lang.perl: 
http://www.borders.it/perl/faq/
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!