mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Perchè usare i package?

Ciao a tutti,
mi servirebbe un chiarimento su una caratteristica del perl.
Se io ho un file "
principale.pl
", in cui ho del codice che ad esempio fa un 
login prelevando i dati da un database tramite una subroutine che sta in un 
file "
subroutine.pl
", e che restituisce anche le variabili con i valori 
prelevati dal database, in questo modo:
---------------------
in 
principale.pl
eval {
require "
subroutine.pl
";
};
....
&login;
# <qui io ho anche le variabili valorizzate dalla subroutine>
# <$login, $password, $altro> 
--------------------
in 
subroutine.pl
sub login {
open....
....
close...
$login = "xxx";
$password = "yyy";
$altro = "zzz";
}
----------------------
Tutto ciò funziona... ma allora... perchè usare il meccanismo dei package?
Ci sono dei vantaggi, rispetto all'uso diretto delle subroutine poste in 
altri file come esemplificato sopra?
Grazie.
-- 
-- Marco Allegretti --
http://www.shishii.com

 altri file come esemplificato sopra?
Per usare subroutine presenti in librerie potresti usare il "require".
Comunque i packages sono usati prevalentemente programmando in OOP.
Ad ogni modo servono per dare un preciso scoping alle variabili.
Dunque se hai
package Pippo;
my $foo;
in realtà $foo è $Pippo::foo;
Dunque se poi nello stesso codice (o in librerie) fai:
package Pluto;
my $foo;
allora hai 2 $foo ma con scope ben distinto, dato proprio dal package.

 
Ciao e grazie,
come avrai visto dall'esempio io uso già "require",
ma allora l'unico vantaggio sarebbe nel potere usare più volte lo stesso 
nome di variabile con contenuti diversi?
Non ci sono vantaggi prestazionali o di sicurezza?


 Non ci sono vantaggi prestazionali o di sicurezza?
Che io sappia, package lo usi per dare un preciso scoping alle tue 
variabili.
Questo è bene se:
usi "use strict"
programmi in OOP
fai comunque librerie o programmi in maniera pulita e dunque 
incapsuli un pò le variabili dove servono
Di conseguenza previeni possibili errori dovuti alla "programmazione
sporca" :)

 sporca" :)
Mi sforzo di fare programmi puliti


 Non ci sono vantaggi prestazionali o di sicurezza?
nessuno, credo.
sostanzialmente servono per programmare ad oggetti ed avere una sintassi
tipo $cgi = CGI->new. In questo caso CGI e' un package e new() una funzione
all'interno di quel package.
---
Mario Rizzuti

Newsgroup: it.comp.lang.perl
Titolo: Invio E-mail

Salve,
se qualcuno mi puň illuminare su come posso creare una pagina HTML che mi
permetta di mandare via E-mail il contenuto di piů campi compilati.
Grazie

\n";
print MAIL "Subject: oggetto\n\n";
print MAIL "Ciao\n";
print MAIL "Questo e` il testo del messaggio!";
close (MAIL);
-----
Ricordati di separare l'header dal corpo del messaggio con una linea
vuota (\n\n).
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/
Newsgroup: it.comp.lang.perl
Titolo: Libreria perl-cgi

Ciao a tutti,
ho installato perl per pc su win98, mi servirebbe la libreria cgi. Dove
posso trovarla
e come installarla??
Grazie, Silvia.

 Dove posso trovarla e come installarla??
  Se hai installato il PERL di ActiveState c'e` di default il modulo
CGI.
<CODE>
	use CGI;
</CODE>
  Altrimenti, lo trovi in un qualsiasi sito con il CPAN. Altavista o
Yahoo! ti potranno essere di grande aiuto.
	Alla prossima,
		Marco

 e come installarla??
E' nel pacchetto di installazione standard, quindi dovresti gia' averla
installata.
per provarla
use CGI;
$query = new CGI;
print $query->header;
print $query->start_html(-title=>"Ciao!");
print <<END;
  Ciao!
END
print $query->end_html;

CGI.
No, ho un banale interprete perl, dove lo trovo questo activestate??
Grazie ancora.
Ciao, Silvia.

 No, ho un banale interprete perl, dove lo trovo questo activestate??
	http.//
www.activestate.com
	Alla prossima,
		Marco

	http.//
www.activestate.com
Si erano nascosti proprio bene, eh? ;-))))
------
bale...@dada.it
 
http://zap.to/balestra
  ICQ#:14303012
" Ora mai che i baci tuoi piu' non mi sazian
  cerchero' un'altra donna dentro ai sogni di Tarzan... "

Newsgroup: it.comp.lang.perl
Titolo: perl win apache





Accidenti


non riesco a trovare un perl che sia per win98 + 
Apache.


Su Activestate.com c'e' il perl 5.6 per win ma 
nelle specifiche dei server Apache per win non compare.


.....Ma quale devo usare 
?



˙ţ< ! D O C T Y P E   H T M L   P U B L I C   " - / / W 3 C / / D T D   H T M L   4 . 0   T r a n s i t i o n a l / / E N " >  
 < H T M L > < H E A D >  
 < M E T A   c o n t e n t = " t e x t / h t m l ;   c h a r s e t = u n i c o d e "   h t t p - e q u i v = C o n t e n t - T y p e >  
 < M E T A   c o n t e n t = " M S H T M L   5 . 0 0 . 2 3 1 4 . 1 0 0 0 "   n a m e = G E N E R A T O R >  
 < S T Y L E > < / S T Y L E >  
 < / H E A D >  
 < B O D Y   b g C o l o r = # f f f f f f >  
 < D I V > < F O N T   f a c e = A r i a l   s i z e = 2 > D e v i   s c a r i c a r t i   p r i m a   i l   p l u g i n   p e r   l ' i s t a l l a z i o n e    
 s u   W i n d o w s   9 8 ,   p o i A c t i v e P e r l   e d   i n f i n e   A p a c h e .   H a i   p r o b l e m i   c o n   l a    
 c o n f i g u r a z i o n e   d e l   f i l e   . c o n f ? < / F O N T > < / D I V >  
 < D I V > < F O N T   f a c e = A r i a l   s i z e = 2 > < / F O N T > & n b s p ; < / D I V >  
 < D I V > < F O N T   f a c e = A r i a l   s i z e = 2 > C i a o ,   R i c c a r d o < / F O N T > & n b s p ; < / D I V > < / B O D Y > < / H T M L >  
 

.....Ma quale devo usare ?
A me l'accoppiata Apache + Perl 5.6 non ha dato nessun problema.
--
Saluti
~~~~~~~~~~~~~~~~~
Veneziano Davide (
ve...@vene.ws
)
http://www.vene.ws
  Faq e manuali, Servizi Internet
http://mail.vene.ws
 E-mail Gratuite Pop3/Smtp/Web
ICQ# 14047537
Newsgroup: it.comp.lang.perl
Titolo: Manuale Perl

E da tre anni che lavoro su internet e mi sto accorgendo proprio adesso di
quanti server linux o unix che ci stanno.
Dunque è arrivato il momento di imparare un pò il Perl.
Se qualcuno di voi ha dei manuali (Soft) Vi sarei grato se me li possiate
segnalarmeli, sono graditi in formato html e pdf.
ah io ho utilizzato fino ad oggi html puro ( notepad) e Macromedia flash
Grazie del tempo dedicatomi
Gradita risposta a 
ccas...@hotmail.com

segnalarmeli, sono graditi in formato html e pdf.
Prova a vedere su:
http://www.html.it
c'e` un piccolo corso, per inziare dovrebbe andarti bene. Poi comprati
un libro. ;)
	Michele. 
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
Newsgroup: it.comp.lang.perl
Titolo: Spedire posta con perl

Ciao a tutti.
Dovrei fare uno script non interattivo (no cgi) ma solo batch, su macchina
UNIX che, a fronte di un messaggio e-mail che riceve come STDIN, deve
spedire un relativo messaggio di posta elettronica in uscita ad altro
account.
Per semplicita' e' come se fosse un semplice forward, al quale poi io dovro'
collocare diversi test sui contenuti del messaggio di input per generare o
meno quello di output.
Il problema e' che non so da dove iniziare.
Qualcuno ha uno scheletro di script che faccia qualcosa di simile?
Grazie, io non sono molto affermato in materia.
Ciao

 wrote:
: Dovrei fare uno script non interattivo (no cgi) ma solo batch, su macchina
: UNIX che, a fronte di un messaggio e-mail che riceve come STDIN, deve
: spedire un relativo messaggio di posta elettronica in uscita ad altro
: account.
Potresti iniziare leggendo tutto l'header:
$/ = "";
$header = <>;
$/ = "\n";
Poi puoi usare delle regex per catturare i vari valori, ad esempio:
$header =~ /^From: (\w+)/m;
$from = $1;
Poi elabori il resto con un ciclo:
while(<>){
}
La mail la poui spedire aprendo una pipe verso il mailer o usando un
modulo Mail::* (Mail::Sender ad esempio). Cerca i moduli su:
ftp://cis.utovrm.it/CPAN/modules/by-module/Mail/
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E

 
Cerca su CPAN i moduli di Mail di Graham Barr e leggi la documentazione
relativa (perldoc Mail::Send, perldoc Mail::Internet, etc.)
Questo e' l'esempio dell'invio di un messaggio.
require Mail:Send;
$Message = new Mail::Send;
$Message->to('
st...@here.it
');
$Message->cc('
el...@there.it
');
$Message->add('From','
a...@somewhere.it
');
$Message->subject('Snug as a bug in a rug');
$fh=$Message->open();
print $fh 
  "Twas brillig, and the slithy toves di gyre and gymble in the wabe\n";
#
Se no, puoi cercare di fartelo a meno:
#
# Ricezione di un messaggio da STDIN
#
HEADER: while(<>) {
	chomp;
	last HEADER if /^$/;
	push @headers,$_;
}
while(<>) {
	chomp;
	push @body,$_;
}
ma te lo sconsiglio (fidati di uno che l'ha fatto), perche' poi devi
parsare gli header, etc. etc.
Se quello che stai cercando di fare e' (ad esempio) un multiplexer
per info (
in...@here.it
 
in...@there.it
 etc. tutti su di una stessa
macchina), ti conviene controllare la feature(VIRTUSERTABLE) di
sendmail.
Cheers,
	Alessandro

\n";
print "Subject: Prova\n";
print "X-Mailer: my mail forwarder 0.99\n\n";
print "Hallo!\n";
print "This is my message!!!!\n";
close (MAIL);
 
Come vedi si tratta di aprire un pipe per sendmail, di scrivere tutti gli
header e di separarali dal messaggio con una linea vuota.
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.italpro.com/mb/


Newsgroup: it.comp.lang.perl
Titolo: Problem writing to a file

Hi
Thank you in advance if you can help me with my problem.
I have a small system that reads and writes to a file.
To modify an existing record, I am trying to delete it first so I can then
rewrite it to the file in its modified state.  The code I am using results
in all the records being deleted instead of just the one I have specified.
I use the param method to get the id from another page. This is as follows:
I suspect the problem is the line 'if ( $line !~ /^$id:/ )'. I am trying to
say 'If the line starts with the specified id, don't write it back to the
file'.
#!c:/indigoperl/bin/perl -wT
#
addtofile.pl
print "Status:204 No Response\n\n";
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my @array;
my ($line);
my $q = new CGI;
my $id=$q->param("id");
my $file="Vehicle.txt";
#Open the file for writing
open OUT, ">$file";
#Delete the record to be modified
@array=<OUT>;
foreach $line (@array)
{
  if ( $line !~ /^$id:/ )
  {
    print OUT $line;
  }
}
Thanks again
Sandy

 }
This way the file is open for (over)write only operation.
you should open it for read-only first, drop the unwanted line, and then
write it back.
Something like this:
# !! Not tested !!
open IN, $file; @array = <IN>; close IN;
open OUT, ">$file";
foreach (@array) { print OUT $_ unless /^$id\:/ }
close OUT;
Cheers,
Guido.

Newsgroup: it.comp.lang.perl
Titolo: Suche für meine Homepage ein gutes Perl (CGI/PL/PH P) Gästebuch

Hi,
suche für meine Homepage auf meinem Linux Server ein gutes Perl (CGI /
PL / PHP) Gästebuch! Wichtig ist mir besonders der administrative
Bereich und die Anpassung des Designs!
Könnt ihr mir weiterhelfen?
CU
Axel



Liebe Axel,
it.comp.lang.perl ist in italienische Sprache, verstehst du italienisch ?
Ich denke nicht.
tschuss
 Raffaello

Newsgroup: it.comp.lang.perl
Titolo: it.comp.lang.perl ... e poi ?

ciao, vorrei cominciare a seguire un paio di aree di discussione perl italiane.
Oltre ad it.comp.lang.perl cosa mi consigliate ?
grazie
andrea

Oltre ad it.comp.lang.perl cosa mi consigliate ?
In italiano, non mi risulta ci sia altro. Non nella gerarchia it.*, almeno
e, mi pare, neanche in free.it.*.
Questo per Usenet. Per aree con diversa distribuzione (mailing list, news
private o gruppi web) puoi forse cominciare a guardare in 
www.perl.it
.
In inglese, comp.lang.perl.misc senz'altro, e forse qualche altro più
specifico sempre sotto comp.lang.perl.*.
Sempre in inglese, una mailing list che io ho trovato molto ben frequentata
(occasionalmente, dallo stesso Larry Wall, e da autori di diversi importanti
moduli) è Perl-Win32-Users. È però molto tempo che non frequento e non so
come sia adesso e da chi sia distribuita (immagino che sul sito di
ActiveState si possano trovare riferimenti).
Ciao.

 e, mi pare, neanche in free.it.*.
Confermo questa informazione.
 Raffaello
----------------------------------------------------
"Computer games don't affect kids, I mean if Pac Man
affected us as kids, we'd all run around in a
darkened room munching pills and listening to
repetitive music." K. Wilson, Nintendo, Inc, 1989.
----------------------------------------------------
Newsgroup: it.comp.lang.perl
Titolo: Aiuto per cattura sorgente HTML

Ho un grosso problema!!!
Devo catturare il sorgente di una pagina HTML per poi estrapolare dei dati e
non so da che parte iniziare.
GRAZIE a coloro che mi risponderanno.
Oscar.

 wrote in message
7scqc2$k61$1...@aquila.tiscalinet.it...

Da usare tramite ssi o cgi-bin, vedi tu
con qualche modifica
------------------------  CUT HERE -------------------------
#!/usr/bin/perl
sub TCP { join("", getprotobyname('tcp')); }^M
sub SOCK_STREAM { 1; }^M
sub AF_INET { 2; }^M
sub PF_INET { &AF_INET; }^M
sub main {
  $server = "localhost";
  $port = 80;
  $document = "/index.html";
  @Headers = ("User-Agent", "http-get/0.1");
  $usage = "usage: $0 {-server S} {-port P} {-document D} {-<Header>
<Value>}";
  while (($#ARGV > 0) && ($ARGV[0] =~ /^-(.+)/)) {
    shift(@ARGV);
    if ($1 eq "server") { $server = $ARGV[0]; shift(@ARGV); }
    elsif ($1 eq "port") { $port = $ARGV[0]; shift(@ARGV); }
    elsif ($1 eq "document") { $document = $ARGV[0]; shift(@ARGV); }
    elsif ($1 =~ /[A-Z].*/) {
      for ($i=0; $i < $#Headers; $i++) {
        if ($Headers[$i] eq $&) { $Headers[$i+1] = $ARGV[0]; $found = 1;
last }
      }
      if (! defined $found) { push(@Headers, $&, $ARGV[0]); }
      shift(@ARGV);
    }
    else { die($usage); }
  }
  if ($#ARGV >= 0) { die($usage); }
  if ($server =~ /^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/) {
    @addrs = pack('C4', split(/\./,$server));
  } else {
    ($dummy,$dummy,$dummy,$dummy, @addrs) = gethostbyname($server);
  }
  $remote = pack("S n a4 x8", &AF_INET, $port, $addrs[0]);
  socket(S, &PF_INET, &SOCK_STREAM, &TCP) || die "socket: $!";
  connect(S, $remote) || die "connect: $!";
  select(S); $| = 1;
  select(STDOUT); $| = 1;
  $request = "GET $document HTTP/1.0\r\n";
  while ($#Headers > 0) {
    $request = $request . "$Headers[0]: $Headers[1]\r\n";
    shift(@Headers); shift(@Headers);
  }
  $request = $request . "\r\n";
  print(S $request);
  $big = 1024*1024;
  while ($len = sysread(S, $data, $big)) {
    $out = syswrite(STDOUT, $data, $len);
  }
  close(S) || die "close: $!";
}
&main;
--------------------------- CUT
HERE ------------------------------------------

 con qualche modifica
 [...snip...]
Bel cannone per prendere una mosca.
Perlfaq9 - How do I fetch an HTML file?
 use LWP::Simple;
 $html = get "
http://www.sn.no/libwww-perl/
";
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: Script Perl su IIS

Ciao a tutti, ho il seguente problema:
ho IIS 5, ActivePerl 5.6 e ho creato nella directory 'C:\Inetpub\wwwroot' di
windows il file Prova.htm:
<HTML>
<HEAD>
</HEAD>
<BODY>
<a href="C:\Inetpub\wwwroot\PerlScript\
EXAMPLE.PL
">Test</a>
</BODY>
</HTML>
Il file 
EXAMPLE.PL
 contiene:
'print "Content-Type: text/html\n\n";
'print "Hello from ActivePerl!";
PROBLEMA:
Quando clicco su 'Test' il sistema non esegue lo script, ma lo vuole
scaricare.
DOMANDA:
Come faccio ad indicare al server che questo è un eseguibile?
Grazie a tutti

Come faccio ad indicare al server che questo è un eseguibile?
Come con qualsiasi altro CGI, quindi non c'entra niente con il perl ed
e` il caso che tu lo chieda in un newsgroup dove si parla di IIS.
-- 
ciao, | * The Internet is full. Go away.  -- Joel Furr *
Marco | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

Newsgroup: it.comp.lang.perl
Titolo: CHIARIMENTI SERVER/PERL...cgi

Ho un sito su un server unix.
Devo poter permettere la scrittura di alcuni dati da una pagina web ad un
file sul server... da un altra pagina html li devo poter leggere. Mi hanno
detto che dovrei scrivermi un programma magari in C che richieda l'input, lo
registri su file e poi ne permetta la visualizzazione... il tutto poi deve
interagire con uno script CGI...
io non ci ho capito nulla... per fare quello di cui ho bisogno che devo
fare? in pratica devo creare un database sul server...
Il server che ospita il mio sito, offre un mini-sql... cos'e'?
ps> dovre trovo script free per : contare i download ad un mio file zip nel
server, da una pagina web? un forum e una chat? dei sondaggi configurabili?
ciao e grazie a tutti
se mi rispondete qui e' meglio: 
pol...@freemail.it

Il server che ospita il mio sito, offre un mini-sql... cos'e'?
Un server per gestire i database con un particolare linguaggio (SQL,
appunto).
Ciao
Andrea


Nando.

Newsgroup: it.comp.lang.perl
Titolo: Modificare i permessi di uno o più scripts

Ciao a tutti.
Sě, lo so... esiste chmod, l'ho provato e funziona alla grande!
Ma il mio problema č costruire uno script che faccia il setup di
un'applicazione in un server esterno.
Usando NET:FTP riesco a trasferire tutti gli scripts in cgi-bin, ma poi devo
farli diventare 755 e questo usando sempre lo stesso script lanciato da un
browser via Web.
Come fare? C'č forse un modo, che ne sň (?) per trasferire via FTP e
contemporaneamente fare "ereditare" i permessi che lo script aveva nel
server sorgente? Se esiete qual'č?
Grazie anticipate.
Lele.

 server sorgente? Se esiste, qual č?
 my $file = "miofile.txt";
 my $ftp = Net::FTP->new("my.host", Debug => 1);
 # ricavo permessi file locale
 my $perms = (stat( $file ))[2] &  07777; 
 # costruisco comando CHMOD
 my $cmd = sprintf( "CHMOD %04o $file", $perms );
 #trasferisco file
 $ftp->put( $file );
 #eseguo CHMOD
 $ftp->site( $cmd );
 $ftp->quit;
Ciao,
Max
Newsgroup: it.comp.lang.perl
Titolo: [semi-OT] Espressione regolare

Ciao,
il mio post forse è un po' ot ma non sapendo dove postare credo che tra 
i progammatori in Perl posso trovare una risposta!!
... mi servirebbe una RegExp che metcha un numero che mi rappresenti una 
valuta scritta secondo il nostro (italiano) standard commericale:
1.234,45 o 34.567.890,00 o 1,00 o 0,00
..ovvero separatore delle migliaia con il punto e dei decimali con la 
virgola, un intero (anche 0) e 2 decimali obbligatori!!
GRAZIE

b@zU wrote:
...mi sono inventato questa soluzione:
((([0-9]\.|[0-9][0-9]\.|[0-9][0-9][0-9]\.)*[0-9][0-9][0-9],)|([0-9],|[0-9][0-9],|[0-9][0-9][0-9],))[0-9][0-9]
è giusta?



Un po' troppo complicata non ti pare? :-)
Prova con: 
	/^\d{1,3}(\.\d{3})*,\d{2}$/
by
	- Enrico
--- have fun with 
www.perl.it
 ---

Newsgroup: it.comp.lang.perl
Titolo: [OT] Bastarda Telecom

Galactica chiude i battenti. Addio connessioni flat in Italia?
Galactica alla fine si è vista costretta a chiudere i battenti. Causa: la
risaputa disputa con Telecom Italia, che non ha rinnovato all'Internet
service provider il contratto sperimentale per la connessione flat.
Galactica aveva tentato anche di smuovere l'opinione pubblica, con annunci
sui quotidiani e sull'argomento si era espresso il ministro della
Comunicazione, Maurizio Gasparri, proponendosi per una valutazione del caso.
Con la chiusura di Galactica, a questo punto, sembra non aver futuro in
Italia neanche la tariffa flat in genere. La compagnia ha comunque
assicurato il rimborso ai propri utenti, calcolandolo a partire dal 7
settembre, vale a dire dal giorno in cui è stata disconnessa la linea da
parte di Telecom Italia, e fino alla scadenza dei vari contratti.
-------------------
Fonte GsmBox.it

 ha scritto nel messaggio
news:Vmlw7.50835$0Y2.4...@news.infostrada.it...


 wrote in message
gHlw7.51007$0Y2.4...@news.infostrada.it...


 Cosa molto grave.
Mi spieghi cosa cavolo c'entra con questo gruppo?
Bye,
 Emmanuele.
-- 
I ... Owe ... You ... Pain! -- Willow, "Tough Love"
Italian Buffy Resource Site (Beta) - 
http://www.ibrs.f2s.com
GnuPG Key ID: 0xA4320FF4
GnuPG Key FP: 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4
Newsgroup: it.comp.lang.perl
Titolo: IP address incorrect by $ENV{'REMOTE_ADDR'}

I'm using Perl to write CGI, but I encounter some problem on the IP address.
I'm using the environment variable, $ENV{'REMOTE_ADDR'} to print the
address, but what i get is 127.0.0.1, which is local PC IP.
Then I try access the CGI in different place, Cyber cafe, CIT room, My
house, my friend house, but what i get is still the same .... is 127.0.0.1
So, may i know what is the problem ?
This is the statement that i use:
print "IP = $ENV{'REMOTE_ADDR'}";
all the result i get is:
127.0.0.1
127.0.0.1
127.0.0.1
127.0.0.1
127.0.0.1
127.0.0.1
.
.
.
.
Can i know what is the problem ?
How can I make correction on it, so that I can get some IP like 202.133.0.5
Thanks for helping.
By Peter

 wrote:

$ENV{'HTTP_X_FORWARDED_FOR'};
i love newyork....

Make this trial:
foreach $key (keys %ENV)
{ print "$key = $ENV{$key}\n";
}
... so you can see ALL the environment variables.
Bye

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

Ciao a tutti..............
Sto provando a scrivere un piccolo browser. Funziona, mi salva la pagina web
sul mio computer  ma mi sono arenato sulle gif e jpg.
Come posso fare per scaricare oltre al testo anche le immagini ?
        #! /usr/bin/perl
        use LWP::UserAgent;
        use HTTP::request;
        use URI::URL;
        use HTTP::Headers;
        open (A,">Sorgente.html");
        $hdrs =new HTTP::Headers(Accept=>'text/plain',User-Agent
=>'MyBrowser/1.0');
        $url = new URI::URL('
http://www.google.it
');
        $req =new HTTP::Request(GET,$url,$hdrs);
        $ua = new LWP::UserAgent;
        $resp = $ua->request($req);
                if ($resp->is_success) {
         print A $resp->content;
         }
         else {
          print $resp->message;
          }
close (A);
Ringrazio tutti anticipatamente.
Sandro

 [...]
Potresti usare HTML::LinkExtor sul sorgente HTML ottenuto con LWP.
 
http://search.cpan.org/author/GAAS/HTML-Parser-3.28/lib/HTML/LinkExtor.pm
L'esempio riportato nella documentazione dovrebbe essere un buon punto
di partenza.
ciao,
S.

 ha scritto nel messaggio
news:R8JZa.38311$an6.1...@news1.tin.it...

 Grande...Funziona benissimo.
Per il momento ho scaricato una sola immagine in localhost  ma non mi resta
che pensare ad un foreach per scaricare tutte le immagini.
Ho anche trovato il modo di ottenere gli <a href> ed il prossimo passo sarà
la funzione search ma devo ancora indagare.
Grazie, alla prossima.
Sandro
Newsgroup: it.comp.lang.perl
Titolo: un po' OT: cercalavoro.com

ciao a tutti,
riapre in anticipo di ben 13 giorni il sito gratuito per cercare o offrire
lavoro 
http://cercalavoro.com
naturalmente oggi non è presente alcun messaggio poichè li abbiamo
cancellati tutti e da domani cominceremo ad inserire quelli nuovi.
Per chi volesse mandare degli annunci:
utilizzate il nuovo sistema nel "piè" del sito così è già inserito
l'oggetto, e dovete solo attaccare l'annuncio o il curriculum.
Ciao a tutti
PS: il sito verrà aggiornato TUTTI i giorni

ssssss

 ssssss
... cemo ?
... use ?
... parisci >:-> ?
-- 
                                                                     __
 __                                                              _  ///
| _        Student in Computer Science, Swiss Federal Institute  \\///
|__|iambo      of Technology - mailto:
ggia...@iiic.ethz.ch
       \X/

Newsgroup: it.comp.lang.perl
Titolo: Accesso a dati su Microsoft SQL Server

Ciao a tutti,
ho bisogno di accedere ad un database Microsoft SQL Server da mod_perl.
Il server web e' Apache sotto Linux, per cui non posso usare moduli tipo
DBD::ADO che sono per win32.
Inoltre non posso limitarmi alle query, ma ho assoluto bisogno di chiamare
delle stored procedures.
Sapete consigliarmi qualche tool che da Linux accede a MSSQL e puo' chiamare
le stored?
Grazie
Mauro

 le stored?
Ciao Mauro,
ci sono diverse soluzioni per quello che devi fare:
* freetds[1] + DBD::Sybase[2]
   - Non si possono usare i placeholders (? nelle query);
   - Come risultato della chiamata a SP, sono riuscito a intercettare
     soltanto dei record tipo "select" e non i suoi valori di ritorno
     (parametri della SP);
* DBD::Proxy[3]
   - Questo e' proponibile soltanto se sulla macchina SQL Server hai
     perl installato e ci fai girare in pianta stabile un dbiproxy
* DBD::ODBC[4]
   - Le chiamate alle SP dovrebbero essere piu' "standard", se
     di standard vogliamo parlare;
   - Hai bisogno di installare un ODBC driver manager su Linux;
     ce ne sono diversi, anche commerciali, uno e' unixODBC[5],
     ultimamente semplificato anche come configurazione;
* ???
[1] 
http://www.freetds.org/
[2] 
http://search.cpan.org/author/MEWP/DBD-Sybase-1.00/
[3] 
http://search.cpan.org/author/TIMB/DBI-1.35/lib/DBD/Proxy.pm
[4] 
http://search.cpan.org/author/JURL/DBD-ODBC-1.05/ODBC.pm
[5] 
http://www.unixodbc.org/
-- 
Cosimo

      perl installato e ci fai girare in pianta stabile un dbiproxy
Grazie Cosimo,
e grazie per la risposta.
Per quanto riguarda il modulo DBD::Proxy, sai se ha delle limitazioni?
Effettivamente ho bisogno anche dei valori di ritorno dele stored
Ciao
Mauro

 Effettivamente ho bisogno anche dei valori di ritorno dele stored
Buon divertimento! :-)
Cerca su usenet, dovresti trovare qualcosa...
Intanto prova questo:
[
http://groups.google.com/groups?hl=en&lr=&ie=UTF-8&threadm=B7269B3B.521F%25cpryce%40pryce.net&rnum=1&prev=/groups%3Fhl%3Den%26lr%3D%26ie%3DISO-8859-1%26q%3DDBD%253A%253AODBC%2Bcall%2Bperl%2Bstored%2Bprocedures
]
-- 
Cosimo
Newsgroup: it.comp.lang.perl
Titolo: Connessione FTP con CGI

Vorrei scrivere un programma in perl che vada a leggere la directory di un sito ed effettui eventuali elaborazioni (ad esempio cercare un particolare programma).
Il mio problema è come effettuare la connessione con il sito e come leggere la directory.
Spero che qualcuno possa darmi un'aiuto.
Se qualcuno volesse anche collaborare alla creazione di questo CGI una volta terminato possiamo utilizzarlo insieme ed eventualmente renderlo disponibile a tutti o a chi ci ha aiutato.
Grazie.
					Andrea
--
Automatic posted from 
dns.alma.it
 [194.184.31.1]
via Mailgate Server - 
http://www.mailgate.org

 connessione con il sito e come leggere la directory. 
Puoi usare Net::FTP, che e` parte di libnet.
ftp://cis.utovrm.it/CPAN/modules/by-module/Net/
MM
Newsgroup: it.comp.lang.perl
Titolo: Messaggeria per un sito, cosa mi consigliate?

Salve,
Devo realizzare un sito che, in una apposita sezione accessibile via
password, permetta di lasciare dei messaggi che vengono memorizzati e
possono essere letti da me sempre tramite il sito. Piu' semplicemente: do
una password ai miei clienti, loro si identificano ed accedono ad una pagina
personale da cui possono mandarmi dei messaggi o controllare se ci sono
risposte per loro da parte mia, inoltre io ho una password che mi fa
accedere ad una sezione in cui sono visualizzati i messaggi in arrivo a cui
rispondere.
Per fare tutto cio' devo scegliere tra PHP e Perl, mi consigliate cosa
scegliere tra i due e il motivo? Conosco le potenzialita' del Perl, ma non
del PHP, per favore mi spiegate quest'ultimo per cosa si utilizza di solito?
Grazie e scusate per il lungo post e per eventuali imperfezioni.

...


Newsgroup: it.comp.lang.perl
Titolo: variabile LANG

salve a tutti :)
risolti i problemi di sintassi, finito il manuale, mi sono messo a realizzare qualche cosa per mettere in pratica questo meraviglioso linguaggio.
Il mio primo obiettivo è quello di realizzare un sito dinamico in multilingua, ma qui mi sono scontrato con il primo problema... come faccio ad intercettare la variabile lang?
Cerco di spiegarmi un po' meglio.
Vorrei che quando viene caricata la homepage del sito che sto sviluppando autamaticamente venisse visualizzata la lingua impostata nel browser, se disponibile, oppure quella di default.
Grazie a chiunque prenderà in considerazione questo post :)
gallus

 wrote:

instanto prova con questa var:
$ENV{'HTTP_ACCEPT_LANGUAGE'}
ma non sono sicuro...

Newsgroup: it.comp.lang.perl
Titolo: Alle prime armi con il perl: aiutatemi!!!!

Ecco il mio problema:
Posseggo:
-windows 95
-perl 5
-abbonamento gratuito a internet
-20 Mb di spazio riservati dal mio internet provider
vorrei sapere come faccio a testare i miei script in perl!!!!!
grazie
Toni

 wrote in message
8u3v4u$umf$2...@lacerta.tiscalinet.it...






devi mettere i tuoi script .cgi nella cartella 
cgi-bin (solitamente è chiamata così) che il tuo server ti deve abilitare per 
l'esecuzione degli script. Ricordati di dare i permessi ai tuoi script. non so 
che programma ftp usi, di solito fai click col tasto destro sul file già 
risiedente sul server e scegli proprità. Comunque ti consiglio di documentarti e 
installati apache, un web-server locali che simula a tutti gli effetti una 
connessione internet, senza che tu stai collegato. Un bel risparmio, no? Il sito 
di riferimento è 
www.apache.org
. Vedrai, è 
un file di 8 Mbyte circa.
Newsgroup: it.comp.lang.perl
Titolo: data odierna sul PERL

Mi dite come si fa a mettere la data odierna su una variabile perl?
GRAZIE

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

 
No, ti ha suggerito di consultare la documentazione relativa alla funzione
"time". Io aggiungo:
 perldoc -tf localtime
 
Max

 HTH


 Mi dite come si fa a mettere la data odierna su una variabile perl?
Se sei in Unix:
my $date = `date +%d/%m/%y`;
--
Nello Polesello
(per risposte in e-mail sono libero, non occupato)

 ho l'activestate installato...
 
http://www.perldoc.com/perl5.6/pod/func/time.html
 
http://www.perldoc.com/perl5.6/pod/func/localtime.html
Max

 Mi inginocchio a cotanta disponibilitą e saggezza.
Marco e' stato molto sintetico, ma sinceramente ha ragione: un newsgroup e'
fatto per discutere e affrontare insieme problemi dei quali non si viene a
capo, non per fare corsi gratuiti a chi non ha neanche voglia di aprire un
manuale.
Chi non trova soluzione migliore che chiedere ad altri come si fanno anche
le cose piu' semplici forse e' meglio che si astenga dal tentare di scrivere
software.
bye
silvio sosio

 Ma questo non e` piu` un problema mio: *plonk*





 in italiano.
Forse perche' non li cerchi.
Se entri in una libreria troverai parecchi libri sul perl in italiano,
inluso "Programmare in perl" ovvero il Camel Book (Jackson Libri).
Online, sul solito 
html.it
 trovi una "guidaal perl"
http://www.html.it/perl/
, non so a che livello sia ma quantomeno per partire
dovrebbe essere sufficiente.
bye
silvio

 wrote in message
B6525AC1.316C%sil...@nospam.fantascienza.com...


 Sicurissimo che sia un libro Completo con la c grande?
Direi anche con la L maiuscola, considera che uno degli autori e' Larry 
Wall ..........
-- 
Saluti,
Giancarlo

Sicurissimo che sia un libro Completo con la c grande?
Un problema e` che in italiano trovi solo la 2a edizione (tradotta
male tra l'altro), mentre in inglese c'e` l'ottima 3a.
	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!

 l'activestate installato...
http://www.perldoc.com
 -> 'perl (1) manpage' -> 'perlfunc' -> 'time'
Prima pero' devi installare internet explorer o netscape.
Prima ancora devi installare windows 9x, o MacOS o Linux, o qualunque altro
sistema operativo.
Prima ancora devi acquistare ed eventualmente assemblare un PC, un mac o una
workstation.
Ciao, marco
--
Marco Cacchiani                                
e-mail:ma...@sirius.pisa.it
Public pgp key:         
http://www.sirius.pisa.it/marco/pgp_public_key.asc
Sirius Servizi Informatici                     e-mail: 
in...@sirius.pisa.it
Parco Teatro Pasolini, 1                       Phone:  +39 (50) 865120
I-56019 - Vecchiano                            Fax:    +39 (50) 860260
(Pisa - ITALIA)                                
http://www.sirius.pisa.it/
Newsgroup: it.comp.lang.perl
Titolo: apache

Ho installato Apache. l'ho abilitato per i cgi e perl. il problema è che
quando l'avvio la finestra del dos scompare. Allora sono andato a vedere nel
prompt ms-dos e c'è scritto APACHE.EXE: cannot determine local host name.
Use the ServerName directive to set it manually.
Cosa devo cambiare nel documento C:\Programmi\Apache
Group\Apache\conf\httpd.conf  oppure da qualche altra parte?
grazie
--
Antonio
ICQ#: 64543177
e-mail: 
antonio...@inwind.it
 o 
antonio...@hotmail.com
Personal Web Site: 
http://antonio.dalweb.it

 Group\Apache\conf\httpd.conf  oppure da qualche altra parte?
ServerName 
Ciao
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

E' questo vero quello che devo specificare "ServerName 
new.host.name
"? Con
cosa lo devo sostituire? Io non ho nessun host! Voglio solo testare gli
script!
Grazie ciao
--
Antonio
ICQ#: 64543177
e-mail: 
antonio...@inwind.it
 o 
antonio...@hotmail.com
Personal Web Site: 
http://antonio.dalweb.it
--


Ho provato a far partire apache lasciando "ServerName 
new.host.name
" č
funziona. Va bene cosě?


 funziona. Va bene cosě?
Oddio ...
.name non č un TLD validissimo, e non vorrei che ti desse dei problemi
...
Ma se lo richiami semplicemente con "localhost" o 127.0.0.1 no funge?

Newsgroup: it.comp.lang.perl
Titolo: SEGNALAZIONE SITO

vi segnalo : 
www.vorreisapere.com
una redazione "umana" risponde a tutti gli interrogativi posti........e
sembrano essere efficienti!
ciao Sandro


Perchè non dici "siamo efficienti"?
Chi vuoi prendere per i fondelli?
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

vi segnalo : 
www.vorreisapere.com
una redazione "umana" risponde a tutti gli interrogativi posti........e
sembrano essere efficienti!
ciao Sandro

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

 altrettanto... Si sveglieranno, prima o poi!
As you wish, my lord!
Fatto!
;-)


 altrettanto... Si sveglieranno, prima o poi!
Suggerisco anche un bel mail a 
ab...@na.nic.it
 (Cc a 
in...@nic.it
) come
illustrato alla pagina  
http://www.nic.it/NA/mailspam.html
ciao, marco
--
Marco Cacchiani                                
e-mail:ma...@sirius.pisa.it
Public pgp key:         
http://www.sirius.pisa.it/marco/pgp_public_key.asc
Sirius Servizi Informatici                     e-mail: 
in...@sirius.pisa.it
Parco Teatro Pasolini, 1                       Phone:  +39 (50) 865120
I-56019 - Vecchiano                            Fax:    +39 (50) 860260
(Pisa - ITALIA)                                
http://www.sirius.pisa.it/

 illustrato alla pagina  
http://www.nic.it/NA/mailspam.html
Non si tratta di mailspam, ma di spam sui ng...


 Non si tratta di mailspam, ma di spam sui ng...
La NA (Naming Authority) Italiana e' l'organo ufficiale per la segnalazione
di _tutte_ violazioni di netiquette, non solo di quelle relative al mail
spamming.
E' l'unico organismo che, puo' richiedere ad un provider la cancellazione di
un account in casi di violazioni gravi.


 un account in casi di violazioni gravi.
I know, I agree... ma quel form serve a segnalare il mailspam.
Poi, per quanto riguarda la richiesta di cancellazione di account, non
serve essere la NA per farlo. Ho ottenuto la chiusura di alcuni account
ed il mazzolamento di un numero imprecisato di furboni, intervenendo
direttamente presso i responsabili.


altrettanto... Si sveglieranno, prima o poi!
Come deve essere formulata una mail anti-spam? Non č possibile postare
(anche se č un po' OT) un facsimile? Credo che cosě anche gli utenti
meno esperti possano dare una mano, che ne dite?
Grazie dell'attenzione, EndelWar

 Grazie dell'attenzione, EndelWar
Per quel che mi riguarda sono lapidario: indirizzata agli abuse e
postmaster opportuni, faccioil fwd integrale (importante: con le
headers) del messaggio preceduto da un secco "SPAM da un Vs utente".


 headers) del messaggio preceduto da un secco "SPAM da un Vs utente".
Visto che siamo in argomento, anch'io faccio un bel followup all'abuse,
ma sono più espliciti: "Prego vogliate prendere provvedimenti nei
confronti di questo Vostro abbonato".
Non dimenticare di inserire nell'email anche l'IP dell'utente: il solo
indirizo email non basta e certi MUA non lo inseriscono di default nei
Followup!
Ciao


 direttamente presso i responsabili.
Yes, of course.
Anch'io ;)
...si faceva tanto per dire!

Newsgroup: it.comp.lang.perl
Titolo: invio email HTML

Salve,
utilizzo il programma "SendMail" del mio server Unix per inviare in
automatico delle email con script PERL.
Volendo inviare email grafiche in formato HTML (precedentemente composte con
Front Page), utilizzo la seguente sintassi:
###################
open(MAIL,"|$mailprog -t");
   print MAIL "To: $FORM{'indirizzo'}\n";
   print MAIL "From: partner\@
ppp.it
\n";
   print MAIL "Subject: mail\n\n";
   print MAIL "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0
Transitional//EN\">
<HTML><HEAD>
<META http-equiv=Content-Type content=\"text/html; charset=iso-8859-1\">
<META content=\"MSHTML 6.00.2712.300\" name=GENERATOR></HEAD>
<BODY>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<P><FONT size=2><FONT size=3>&nbsp;</FONT>
<TABLE he...
...etc ...
close (MAIL);
#################################
in pratica faccio un copia ed incolla del codice HTML.
Ma quando vado a leggere la mail arrivata trovo semplicemente visualizzato
il testo HTML.
Devo inserire qualche comando particolare?
Grazie
Daniele

 
Ti consiglio comunque _vivamente_ di usare MIME::Lite per questo genere 
di email! (
http://www.cpan.org/modules/by-module/MIME/MIME-Lite-2.117.tar.gz
)
	- Enrico

    print MAIL "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0
...
	- Enrico
PS: Usa MIME::Lite!!!

 PS: Usa MIME::Lite!!!
Probabilmente un buona idea comunque...
Ciao
Mattia
Newsgroup: it.comp.lang.perl
Titolo: HELP: definire numeri decimali

Ciao,
come faccio a stampare solo 2 cifre decimali di numero con molte cifre
decimali? Esiste un parametro per impostare la stampa con n cifre?
Per favore non rispondete solo sul NG ma anche a 
mat...@gate2000.com
Grazie
Matteo

 decimali? Esiste un parametro per impostare la stampa con n cifre?
io userei format
esempio:
-----------
$pippo=34556645356345;
format DUECIFRE=
@>
$pippo
.
###
### poi quando lo vuoi stampare...
$~=DUECIFRE;   # selezioni il formato DUECIFRE 
write;   #stampa 34
###########################################
-------------------
-- 
                Claudio Della Ciana, <cia...@stud.unipg.ii>

 io userei format
  Scusa ma mi sembra di sparare ad una mosca con un cannone.
 
  $nuovo = sprintf "%.2f", $numero ; # se devi riutilizzarlo parecchie volte
 
  oppure
 
  printf OUT "Il risultato e' %.2f\n", $numero;
  Maurizio
-- 
Maurizio M. Munafo' |                            
E-mail:mmmu...@tuttocitta.it
--------------------+---------------------------------------------------------
             (o_    |                              - Gentile or Jew,
   (o_  (o_  //\    | O you who turn the wheel and look to windward,
   (/)_ (/)_ V_/_   | Consider Phlebas, who was once handsome and tall as you.

 decimali? Esiste un parametro per impostare la stampa con n cifre?
ad es:
perl -e '$pi=3.141592653589793238462643383279502; printf("%.2f\n", $pi)'
Cheers,
-debe
.........................................................................
No kings, no presidents, just a rough consensus and running code.

   
Piu' che altro e' sbagliato..
Avevo capito che voleva stampare le prime due cifre di un numero qualsiasi
non le prime due cifre decimali, scusate..


Newsgroup: it.comp.lang.perl
Titolo: Utilizzare uno script senza avere il modulo installato sul server

Devo utilizzare uno script per l'invio di allegati email che fa uso del
modulo MIME::base64, ma questo modulo non è installato sul server ed essendo
un servizio di hosting (netfirms, f2s, ecc) non ho la possibilità di
installarlo e compilarlo.
C'è la possibilità di utilizzare lo script lo stesso,  magari aggiungendo
qualche riga di codice e caricare il modulo .pm in una subdirectory di
cgi-bin?
Mi pare che alcuni script professionali (forum UltraBoard, ecc) utilizzino
dei moduli .pm caricandoli in sottodirectory di cgi-bin.
Grazie

dei moduli .pm caricandoli in sottodirectory di cgi-bin.
Non dovresti avere problemi. Metti il modulo ad esempio in una
sottodirectory modules ed importalo con:
use lib './modules';
use Nomemodulo;
Nel caso di MIME::Base64 dovrai probabilmente creare la sottodirectory
MIME in cui mettere Base64.pm.
	A presto, 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: Programmazione ad oggetti e Hash

ciao a tutti,
è possibile creare un oggetto, di cui un attributo sia un HASH?
sotto potete vedere come pensavo di strutturare gli attributi
dell'oggetto, ma identPEPS dovrebbe essere un Hash %identPEPS{valore1}
= valore2
come faccio ?
sub new {
	my $invocant = shift;
	my $class = ref($invocant) || $invocant;
	my $self = {
		proteinID => "P00000",
		MZprecursor => 000.0000,
		INTprecursor => 000,
		charge => 1,
		score => 0,
		identPEPS => (mz, intensity),   # QUI STA IL PROBLEMA!
		@_,
	};
	return bless $self, $class;		
}
ciao Fuli

 }
O ho capito male o il tuo e' un problema di inizializzazione ...
Il Perl non e' un linguaggio fortementi tipato, per cui
niente ti impedira' di cambiare il valore puntato da 'identPEPS' in array
o hash o quel che vuoi.
 Raffaello

 identPEPS => (), # non inizializzato
Non proprio; devi usare "{ }". Ad es.:
  [...]
     identPEPS => {  mz => ... }, 
  [...]
  $self->{identPEPS}->{mz} = ...
MM



Si', hai ragione, bisogna usare le graffe.
 Raffaello

 ha scritto:

grazie ad entrambi, ste graffe mi faranno impazzire prima o poi. Sto
iniziando solo ora a trasformare alcune delle mie funzioni che per ora
ho scrito con semplici sub, in oggetti e devo ancoa entrare nella
logica della cosa. 
ciao!

Newsgroup: it.comp.lang.perl
Titolo: Aiuto per un novellino

Salve a tutto il NG.
Sono alle prime armi per quanto riguarda il Perl e vorrei alcune
informazioni :
1) Uso Perl con S.O. Windows NT e vorrei sapere se devo congifurare il
registro ed eventualmente con quali parametri.
2) ho creato delle sub che mi servono in piu' programmi. Volevo sapere come
fare a creare un file ( esempio 
funzioni.pm
) che mi consenta di memorizzare
tutte le mie funzioni e come richiamarle dai vari programmi. Ho letto che si
dovrebbe qualche cosa come  Use ma non  riesco a  a far funzionare niente.
Grazie dell'eventuale aiuto.
Arturo Mazzi

Grazie Ezio.
Arturo Mazzi

Newsgroup: it.comp.lang.perl
Titolo: manipolazione file excel

Ciao a tutti,
avrei bisogno di sapere come fare per poter leggere un file excel
da uno script perl.
Come memorizzare le varie colonne dentro degli array.
Ciao e grazie!
    Ivan



- Spreadsheet::WriteExcel 
- Spreadsheet::ParseExcel 
entrambi su CPAN
	- Enrico
Newsgroup: it.comp.lang.perl
Titolo: Chmod sotto windows ...

Salve a tutti,
sotto perl esiste il comando unix 'chmod' (ma anche 'chown' e altri)
per settare i privilegi dei vari files. Sotto windows esiste
ActivePerl. Cosa succede se viene usato tale comando (ma sara' stato
implementato ?) su un sistema win9x o su di un winNt/2k/Xp ?
Es.:
'mkdir [nomedir], [permessi];'
sotto windows come diventerebbe ? (solo 'mkdir [nomedir];' ?)
Altra cosa: avevo intenzione di lavorare un po' coi sockets (raw
socket, a basso livello... e' possibile, vero ?)... che modulo/i devo
usare ? Qualche buon tutorial che avete letto *di persona* e che
ritenete ben fatto ?
Grazie in anticipo,
korleon
-- 
cp win3.1 winxp
rm -r doors_,_windows_&_gates
mv gates out_of_windows
mv $$$ antitrust_judge

 implementato ?) su un sistema win9x o su di un winNt/2k/Xp ?
Non è stato implementato in ActivePerl. I permessi vengono semplicemente 
ignorati. In Cygwin/Perl c'è un'emulazione dei permessi, mi pare 
funzioni solo su HPFS e NTFS, e che sia, nel complesso, un accrocco 
terribile
-- 
Nato nel vizio, morto nel supplizio
Nato nel peccato, ad entrare sia invitato

ritenete ben fatto ?
"Network Programming with Perl", Lincoln D. Stein, Addison Wesley
2001.
C'e' tutto.

Newsgroup: it.comp.lang.perl
Titolo: convogliare output

Ciao, 
Sto facendo uno script in locale che esegue dei comandi unix tramite 
browser web utilizando system($cmd). il risultato viene rimandato a 
browser. talvota per il risultato mi appare sul terminale da dove sto 
eseguendo lo script (in ascolto su porta 9000) .. vorrei trovare un modo 
per rispedire ogni tipo output del terminale nel browser: 
si pu fare? 
grazie


Sě, si puň fare in vari modi.
Questo č un modo molto semplice ed elegante per farlo, e portabile:
http://search.cpan.org/~reynolds/IO-Capture-0.05/
http://search.cpan.org/~reynolds/IO-Capture-0.05/lib/IO/Capture/Stdout.pm#SYNOPSIS
Ciao,
Emanuele.

 PSIS
[quote]
Note: This module won't work with the perl function, system(), or any 
other operation involving a fork(). If you want to capture the output 
from a system command, it is faster to use open() or back-ticks.
[/quote]
ho provato anche con i back_ticks ma il terminale mi stampa cmq qualcosa 
a video con certi comandi...

 a video con certi comandi...
Non ti funziona neanche cosě?
	my $output = `comando 2>&1`;
in questo modo intercetti sia l'output del comando indirizzato sullo 
standard output che quello indirizzato sullo standard error.
Se non l'hai ancora provato, tenta questo...
Ciao,
Emanuele.

 standard output che quello indirizzato sullo standard error.
Se inoltre vuoi avere ancora piů controllo sull'STDOUT e lo STDERR, puoi
dare un'occhiata a IPC::Open3, IPC::Run e IPC::Run3
Ciao,
-- 
.           .  |
| , ,-. ,-. |  |"In girum imus nocte et consumimur igni."
|<  |   ,-|    |
' ` '   `-^ `' |

 dare un'occhiata a IPC::Open3, IPC::Run e IPC::Run3
In effetti io uso IPC::Open2 e va benone.
Newsgroup: it.comp.lang.perl
Titolo: Conversione di URL con caratteri %...

come faccio a convertire in perl stringhe di url al loro interno
contenenti %xx dove xx è un codice esadecimale. esempio:
http://www.aaa.it/dfssdfdfs?zzz=cxxcz%20%20sdfasdfa
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG



 contenenti %xx dove xx è un codice esadecimale. esempio:
Si chiama URLENCODE e viene convertito automaticamente dal browser.
Per esempio lo spazio equivale a %20, quindi un url tipo:
www.dominio.it/La%20Casa%20Rossa.htm
 cercherà il file "La Casa Rossa.htm"
in ogni caso, se usi il modulo CGI per leggere la query string, non ti devi
preoccupare piu' di nulla.
Esempio:
<code>
use CGI qw(:standard);
$q = new CGI;
$testo = $q->param('testo');
print header;
print $testo;
</code>
Richiama questo script con
http://www.tuodominio.it/cgi-bin/script.pl?testo=Ciao%20Caro
Ciao,
Guido.

 
foreach $fields(@fields){
	($field_name,$field_val)=split(/=/,$fields);
	$field_val=~ tr/+/ /;
	$field_val=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
	$DATA{$field_name}=$field_val;
}

Guido.
--------------------------------
Inviato via 
http://usenet.iol.it
 

 ha scritto: 





Newsgroup: it.comp.lang.perl
Titolo: Problema strano con sendmail

Salve, mi serve il vostro aiuto a scovare un problema,
succede che qualcuno, anzi che io sappia uno solo
su centinaia.. riceve le mail senza l'andata a capo, cioe' tutto quanto su
una linea...
il tizio dice che succede solo con le mie email... e di aver verificato
con un sistemista (Win2000) che il suo sitema č tutto ok!...
Cosa cavolo puo' essere ???
ecco la  parte del programma:
invio delle email usando un form del tipo :
</form><form action=../mail.cgi method=post>
#!/usr/bin/perl
use CGI ':standard';
print "Content-type: text/html\n\n";
$q = new CGI;
if( $q->param('testo')) { $testo   = $q->param('testo'); }
open (MAIL, '|/usr/sbin/sendmail -t');
print MAIL "From: $ind <$ind>\n";
print MAIL "To: $email <$email>\n";
print MAIL "Subject: $oggetto \n\n";
print MAIL "$testo";
close (MAIL);
il testo viene preso ed inviato senza alcuna modifica.
Grazie 1000 anticipatamente.
Oxy

 [...]
Sembra piu` che altro un problema di browser.
Se non ricordo male Opera aveva degli strani
problemi a riguardo. Ma forse ricordo male. E forse
tu non usi Opera. In ogni caso, suggerisco, se non
lo hai gia` fatto, di provare ad usare diversi browser
per riempire la form.
Hope this helps.
ciao
Stefano


Mah, la cosa più probabile è che, per qualche ignoto motivo, sendmail nn
traduca i \n del testo in \r\n (nota: nella trasmissione di 'testo' su
internet, le linee sono separate da \r\n). Prova ad usare il modulo
Mail::Sendmail che trovi su CPAN, magari quello sistema le cose
Ciao
-- 
Leo TheHobbit 
IRCnet #roma2
ICQ 56656060
e-mail: remove 
dont.spam.me
 from above address

ho scoperto che se inserisco del testo
direttamente:
print MAIL "
    testo1
    testo2
";
allora arriva correttamente...
P.s non posso installare nulla sul server
Grazie