mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: parsing di un comando shell

Sto iniziando ad imparare perl,
avrei bisogno di eseguire operazioni su un comando di shell,
dall'interno di un programma perl.
per esempio:
eseguo il comando ls -al (non so con che comando)
acquisisco le linee (non so come, in un array ?)
e le elaboro alla ricerca di un file di nome "pippo"
ecc...
Potreste darmi un pezzo di codice che fa una cosa simile per favore ?
TIA
-- H

 ecc...
ovvero?
cmq, io farei con:
#!/usr/bin/perl -w
use strict;
use warnings;
my @files = `ls -la`;
foreach my $file ( @files )
{
   # ... do something with $file ...
}
oppure semplicemente:
my $file = 'my_file.txt';
my $cmd = `ls -la | grep "$file"`;
print "ok!" if $cmd;
ma in generale dovresti spiegarti meglio...
ciao

Newsgroup: it.comp.lang.perl
Titolo: htpasswd e htaccess!!!

Salve a tutti, sto cercando di criptare una cartella del mio sito con questi
due file ma non mi riesce e non capisco perchè.
Non ho un programma per compilarli quindi li ho creati con il notepad sotto
windows (il sito è su unix) e la password l'ho criptata con alti mezzi (in
rete o con utility). Ho provato anche a scaricarli già belli e pronti oppure
vuoti da riempire (detta così pare un bignè). Le ho provate tutte insomma ma
quando carico i file sul server non s'ho perchè spariscono alla vista.
Comunque il problema è che mi appare la regolare finestrella che chiede user
e password ma dopo 3 tentativi mi dice che non posso accedere. Non posso
nemmeno settare il chmod dato che i file non li vedo più una volta
caricati!!
Ma capita solo a me??? leggo in giro che ci vogliono cinque minuti a settare
questi file io sono due giorni che ci provo!! :-@
Qualsiasi suggerimento è gradito
Barbara

Qualsiasi suggerimento è gradito
L'ho fatto più volte in locale e online, ho raccolto 2 appunti qui:
http://www.pigmalion.info/appunti/?screen=display&file=APACHE%20-%20Creare%20un'area%20riservata%20con%20autenticazione%20utente.txt
Spero possano essere d'aiuto...
Ciaz
--
http://www.pigmalion.info/
Internet è uno dei veicoli più validi per la difesa della libertà,
poiché offre la verità a chi vuole vederla e intenderla...
Vinton G. Cerf

 Spero possano essere d'aiuto...
Grazie sei molto gentile, non posso usare la shell ne telnet ma credo di
aver trovato dov'è il problema
Ciao
Barbara

 client ftp
trovata! era nascosta bene!
almeno non devo piů cambiare client ftp :))
riciao
Barbara
Newsgroup: it.comp.lang.perl
Titolo: ! Codificare senza Digest.pm

MI servirebbe codificare (criptare) una stringa, ma non posso utilizzare
alcun modulo non standard.
Sapete cosa posso fare, o almeno come accedere ad un singolo carattere di
una variabile scalare:
In c sarebbe facile (string = array di caratterI) -> char s[8]; s[0] = 'x';
char c = s[0];
Sapete come fare una cosa del genre in Perl !?!
Grazie
Alex

Alex,

  Ci sono due possibilita`:
	$c_2=substr $s,2,1	# 1st
	(split //,$s)[2]	# 2nd
  Nota, pero`, che in nessuna delle due operi *direttamente* sulla
stringa, come accade in C, ma crei una copia modificata.
  Tuttavia, e` probabile che l'algoritmo che deciderai di usare sia
implementabile in modo piu` elegante ed efficiente (per esempio, usando
le espressioni regolari).
	Alla prossima,
		Marco

Grazie mille,
Alex

 le espressioni regolari).
Le espressioni regolari non sono necessaramente piu' eleganti e non sono
certamente piu' efficienti di substr.
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: [ot] ehm...

http://www.attrition.org/gallery/computing/fuck-mod_perl.jpg
Ciao!!! :)


che fi**e...

Newsgroup: it.comp.lang.perl
Titolo: Perl su Linux

Salve a tutti, ho installato da poco SuSE Linux 5.3 dopo
aver verificato che Win98 fa un po' schifo. Ho effettuato
l'installazione di default che prevede i paccheti Perl e
Apache Web Server. Per configurare il Perl ho eseguito i
comandi che sono scritti nel programma di installazione
YaST. Ho settato correttamente tutti i paramtri degli
script Perl ma non riesco ancora a farli funzionare.
Qualcuno potrebbe spiegarmi passo-passo le operazioni da
fare affinchè possa eseguire questi script?
Grazie anticipato a tutti coloro volessero interessarsi.
email 
fugg...@tiscalinet.it
* Sent from AltaVista 
http://www.altavista.com
 Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping.  Smart is Beautiful

 fare affinchè possa eseguire questi script?
Forse se ci dicessi il tipo di errori che ricevi...
Un consiglio: i log di apache sono molto istruttivi, specie
l'error.log...
-- 
Lorenzo Pulici - 
webm...@milanohockey.com
 
http://www.milanohockey.com
 
MILANOHOCKEY.COM
 - Tutto l'hockey su ghiaccio di Milano

Quando carico una pagina html con all'interno il comando
exec di uno script perl il netscape non mi da nessun
messaggio di errore, non esegue lo script e basta.


messaggio di errore, non esegue lo script e basta.
Puo` darsi che il tuo web server non abbia abilitati gli SSI, prova
a vedere nella configurazione. Se usi Apache mi pare che di default
voglia le pagine con estensione .shtml per eseguire SSI.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/

 voglia le pagine con estensione .shtml per eseguire SSI.
Puoi anche abilitare le SSI per l'estensione .html
aggiungendo a AddHandler server-parsed anche .html
(o farlo solo nella configurazione del server virtuale)
L'unico svantaggio e' che il server sara' lievemente rallentato
nell'esecuzione perche' scandagliera' anche i file .html alla ricerca di
comandi SSI.

Newsgroup: it.comp.lang.perl
Titolo: Copiare struttura cartella sottocartelle e file

Salve
e possibile con Perl scrivere un programma eseguibile
che copi la struttura di una cartella e delle sotto cartelle
e dei file, in un altra cartella o in un altro hard disk?
Dei file si deve copiare solo il nome, ma il file copiato
deve essere a zero byte.
Vi ringrazio

Frederic wrote:

Per l'eseguibile puoi usare PAR e PAR::Packer (dai quali ottieni il
comando pp con cui creare l'eseguibile), per l'attraversamento delle
directory usa File::Find.
Per installare questi moduli, puoi consultare:
http://www.perl.it/documenti/faq/view.html?pag=8&faq=45
su Windows, anche:
http://www.perl.it//documenti/faq/iclp_view.html?pag=5&faq=2

 Vi ringrazio
Colto da desiderio di esibizionismo e anche perche' solo anni che non
scrivo
piu' ua funzione ricorsiva, ho voluto dedicare al problema ore 01:40
vedi se ti piace questa soluzione senza moduli!! (comunque quanto suggerito
da Andrea continua ad essere valido)
file 
ricoperl.pl
;
#!/usr/bin/perl
use POSIX;
my $sourcepath = $ARGV[0];
my $destpath = $ARGV[1];
mkdir $destpath;
sub ricoperl
{
  opendir my $dd, $_[0];
  LOOP: while ($direntry = scalar(readdir($dd)))
  {
    if ($direntry eq "." or $direntry eq "..") { next LOOP; };
    my $mode = (sprintf '%o', scalar( (lstat $_[0] . '/' . $direntry)[2]
));
    my $tipofile = undef();
    # $tipofile :: dir: 4 , softlink: 12 , blockdev: 6 , chardev: 2 ,
FIFO: 1
    if ($mode =~ /(.*)(....)/m)
    { $tipofile = $1; }
    print "$_[0]/$direntry $mode $tipofilen";
    if ($tipofile eq "4")
    {
      mkdir $_[1] . '/' . $direntry, 0777;
      ricoperl($_[0] . '/' . $direntry, $_[1] . '/' . $direntry);
    }
    else
    {   
      open FF, ">" . $_[1] . '/' .  $direntry;
      close FF;
    }
  }  
  closedir $dd;
}
 
ricoperl($sourcepath,$destpath);
----------
perl 
ricoperl.pl
 /etc/ ./destinazione.d/
mi rode che nel modulo standard POSIX non ho trovato mknod(2) altrimenti
avrei potuto riscrivere l' utility TAR in perl senva moduli.
Ciao
Roberto.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

     print "$_[0]/$direntry $mode $tipofilen";
print "$_[0]/$direntry $mode $tipofile\n";


vi ringrazio.
Ciao

Newsgroup: it.comp.lang.perl
Titolo: parametri posizionali

Esiste qualcosa di simile ai parametri posizionali della shell unix?
Voglio passare il nome di un file allo script perl sulla riga di
comando, ma $1 non funziona (Use of uninitialized value at ./
labelcod.pl
line 16.)
-- 
Davide Cavallari

Davide Cavallari wrote:

   Si esiste, ed e` l'array /@ARGV/. Nota che, a differenza del C, il 
primo elemento di /@ARGV/ e` effettivamente il primo parametro 
specificato nella riga di comando, che invece e` contenuto nella 
variabile /^X/. Nota anche che il Perl considera, se vuoi, tutti i file 
passati nella linea di comando come concatenati con lo standard input in 
uno unico grosso file leggibile tramite l'operatore /diamond/ vuoto 
(<>); in questo caso, la variabile /$ARGV/ contiene il nome del file 
corrente.
	$ perldoc perlvar
	$ perldoc perlop
-- 
Alla prossima,
Marco
Newsgroup: it.comp.lang.perl
Titolo: [FI] - INFORMATICA - PROGRAMMATORE JAVA/PERL

EUCLIDE ACTIVE TRAINING SRL RICERCA  PROGRAMMATORI JUNIOR CON CONOSCENZE DI
HTML/PERL/ORACLE/JAVA BEANS/JAVASCRIPT.
TITOLO DI STUDIO: LAUREA.
INVIARE C.V. A: 
off...@euclide.it
, CITANDO IL RIFERIMENTO NGWEB.
LUOGO DI LAVORO:PISA

EUCLIDE ACTIVE TRAINING SRL RICERCA
UN PROGRAMMATORE JAVA/PERL PREFERIBILMENTE CON ESPERIENZA.
INVIARE C.V. VIA E-MAIL A: 
off...@euclide.it
 , CITANDO IL   RIFERIMENTO
FIJPERL.
LUOGO DI LAVORO: FIRENZE

Newsgroup: it.comp.lang.perl
Titolo: Cerco esperto chiamata sendmail per routine con perl

Premetto che sono uno alle prime armi in CGI e Perl, in base a tutti i
tutorial e faq che ho letto, il seguente script dovrebbe funzionare
correttamente, purtroppo eseguendo il seguente codice, l'email arriva,
ma nel campo from c'è la scritta "Postmaster" e nel campo To c'è
undisclosed-recipients (che cosa significa in inglese?), mi postresti
controllare il codice e dirmi perchè non arriva l'email correttamente?
Il server utilizzato è linux con server apache, segue il codice
Ciao Gianluca

On Thu, 24 Feb 2000 19:11:05 GMT, 
ricc...@lycosmail.com
 (Gianluca)
wrote:
Mi sono scordato il codice  scusate, eccolo
open (POSTA, '|/usr/sbin/sendmail 
ricc...@lycosmail.com
');
print POSTA 'From: 
ricc...@lycosmail.com
';
print POSTA 'To: 
ricc...@lycosmail.com
';
close(POSTA);



Mancano gli LF ("\n") in coda ai due header.
Ricordati anche il doppio LF ("\n\n") prima di stampare il body del
messaggio.
Max

 > close(POSTA);
Direi anche che sarebbe meglio usare l'opzione '-t' per il sendmail, in modo
che interpreti ed espanda i campi From, To, Cc e Bcc dell'header, tipo:
open (POSTA, '|/usr/sbin/sendmail -t 
ricc...@lycosmail.com
');
print POSTA <<ENDMSG;
From: mitt...@dove.mi.pare
To: chim...@da.unaltra.parte
Subject: Ti scrivo perche' ne ho voglia
$corpodelmessaggio
ENDMSG
close(POSTA);
bye,
Marco Cacchiani 
ma...@sirius.pisa.it
--
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/















 
Se ti guardi la documentazione di Time::localtime, capisci tutto.
Ne riporto un frammento:
 
   DESCRIPTION
     This module's default exports override the core localtime()
     function, replacing it with a version that returns
     "Time::tm" objects.
Max

Tutto OK adesso funziona!
ora ho un secondo problema con la localtime ti invio il codice e la
descrizione del problema
Io opero su win95 con server apache per windows e perl activestate x
windows.Siccome lo script è un cgi e ritorna un pagina html ti invio
tutto il codice (putroppo da me ancora non funziona anzi nella linea 
print "($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)\n";
il browser mi visualizza:
(Time::tm=ARRAY(0xba5de8),,,,,,,,) 
Ecco lo script completo:

Newsgroup: it.comp.lang.perl
Titolo: Aiuto SNMP!!!

Salve,
devo fare una applicazione in perl che deve utilizzare il protocollo SNMP.
Mi sapresti dare informazioni sul utilizzo del modulo e quale è giusto
scaricare?
Grazie
amer...@inwind.it

 ha scritto nel messaggio
news:BI%Ja.116234$Ny5.3...@twister2.libero.it...


 ha scritto nel messaggio
news:rDcKa.138274$pR3.3...@news1.tin.it...


 OK!! Dove lo posso trovare??
1 - quota meglio
2 - usa Google e sarai felice :
 
http://search.cpan.org/author/WMARQ/SNMP-Util-1.8/
 ciao
Raffaello

Newsgroup: it.comp.lang.perl
Titolo: HTML::TreeBuilder

Non ci arrivo. Ho il seguente codice:
require HTML::TreeBuilder;
$infile = 'pippo.htm';
{
local $/;
undef $/;
open (IN, "<$infile") or die ("Problemi apertura file ingresso\n") ;
$document  = <IN>;
};
$h = new HTML::TreeBuilder ;  
$h->parse($document);
$h->traverse(\&cback);
sub cback{
	($node, $flag, $deep) = @_;
 
	print $node->tag();
	print "\n";
 
	return 1;
}
e ottengo come complain da parte dell' interprete
Can't call method "tag" without a package or object reference at
parse.bat line 27, <IN> line 1.
Da quello che capisco della documentazione alla callback dovrebbe
essere passato come primo argomento l' oggetto che è il nodo dell'
albero sintattico costruito da TreeBuilder:
"Traverse the element and all of its children. For each node visited,
the callback routine is called with the node, a startflag and the
depth as arguments"
Inoltre non riesco a capire come il package si aspetta che venga
gestita la navigazione dell' albero sintattico se non si usa la
funzione traverse. Infatti, secondo la documentazione dice:
"Objects of the HTML::Element class can be used to represent elements
of HTML. These objects have attributes and content. The content is an
array of text segments and other HTML::Element objects. Thus a tree of
HTML::Element objects as nodes can represent the syntax tree for a
HTML document."
ma io come discrimino per ogni nodo quali sono i nodi figli?
Mi sfugge la logica di selezione dell' oggetto; non riesco a capire
come diavolo faccio a selezionare il "next" oggetto figlio che
costituisce un nodo discendente del nodo su cui sono posizionato
Qualcuno conosce i moduli HTML e sa darmi un breve un suggerimento?

 Qualcuno conosce i moduli HTML e sa darmi un breve un suggerimento?
qua ho trovato qualche info utile:
http://www.perldoc.com/cpan/HTML/Tree/Scanning.html
Federico

}
Fantastico. Grazie per la risposta.
Newsgroup: it.comp.lang.perl
Titolo: Perl, ASP e PHP

Salve,
una semplice richiesta:
Cosa hanno di diverso Perl ASP e PHP? Io so che Perl è più simile a Python,
ma permette anche di fare ciò che fanno ASP e PHP?
Grazie
--
Luigi
--
http://web.tiscali.it/luigi_web

 ma permette anche di fare ciò che fanno ASP e PHP?
mod_perl e mod_php hanno potenzialità paragonabili a ASP, ma fanno le 
cose in modo un po' diverso (mod_php) o completamente diverso 
(mod_perl). E funzionano su Apache, non su IIS.
Cheers
alf

 Non andarlo a scrivere su comp.lang.python
Va be, ma nel senso che perň Python č meglio :)
Grazie
Luigi

 Va be, ma nel senso che perň Python č meglio :)
Ma questo non lo dovresti scrivere qui :)
-- 
Saluti,
Giancarlo

 ma permette anche di fare ciň che fanno ASP e PHP?


 diventato anche linguaggio orientato agli oggetti
Vero - ma "recentemente" in questo caso significa dalla release 5.0 - 
1995 o giů di lě.
Cheers,
	alf

 Esclusivamente su IIS, per quanto ne so.
No, vedere:
http://www.chilisoft.com/chiliasp/default.asp
http://www.nodeworks.com/asp/
-- 
Saluti,
Giancarlo

 diventato anche linguaggio orientato agli oggetti
Questa e' la seconda volta che sento dire che perl e' in grado di 
leggere/scrivere file excel.
La cosa mi interessa parecchio, mi puoi dire dove trovare maggiori
informazioni ? 
-- 
Andrea       - email: 
sa...@iname.com

 informazioni ? 
 
http://aspn.activestate.com/ASPN/Reference/Products/ActivePerl/site/lib/Win32/OLE.html
 
http://search.cpan.org/search?mode=module&query=excel

Newsgroup: it.comp.lang.perl
Titolo: can't locate......

E di nuovo!!!
Ho installato uno script sul server del mio sito; questo script
richiede (require) un file di testo (xxxxxxxx.txt) però, pur essendo
questo file presente nella stessa dir dello script e dato il necessario
chmod, mi viene restituito questo messaggio di errore:
Can't locate bm_config_xxxxx.txt in @INC (@INC
contains: /usr/lib/perl5/i386-
linux/5.004 /usr/lib/perl5 /usr/local/lib/site_perl/i386-
linux /usr/local/lib/site_perl .)
at /disk1/x/username/public_html/board/nomefile.cgi line 8.
Qualcuno cortesemente può spiegarmi a cosa è dovuto questo errore?
Lo steso script, su altri siti, funziona perfettamente.
Help me.
Ringrazio anticipatamente e saluto. Armando
Sent via Deja.com 
http://www.deja.com/
Before you buy.

 
Evidentemente durante l'esecuzione dello script la directory corrente NON
è "/disk1/x/username/public_html/board/" (o qualsiasi cosa questa sia in
realtà.).
Prova ad aggiungere
 use lib "/disk1/x/username/public_html/board/";
in testa allo script. 
Max


Ok Max. Grazie.
Si! Effettivamente era proprio quello l'errore; il "require",
giustamente, richiedeva il path completo dello file .txt.
Un milione e mezzo di Grazie...Soldi?! Manco 'na lira :-)))
Ciao Armando.

Newsgroup: it.comp.lang.perl
Titolo: Perl CGI, output in piu' pagine...

Ho creato un CGI di ricerca righe all'inteno di alcuni file di testo
separati dallo spazio. Vorrei spezzare l'output su piu' pagine HTML
limitando un ouput di "x" righe per pagine e inserire un link alle "x" righe
successive.
Avete qualche suggerimento in proposito??? come posso fare??? esiste qualche
esempio chirificatore???
Grazie

cos' alla veloce direi che devi settare un parametro per lo script che gli
dica quale pagina deve generare.
quando generi la prima metti un fondo un link che richiami lo script
dicendogli di mostrare la seconda e così di seguito...
Una nota da utente finale... è preferibile dare all'utente la possibilità di
scegliere quante righe visualizzare... io personalmente detesto scorrere 50
pagine quando posso scorrere una pagina lunga..

Newsgroup: it.comp.lang.perl
Titolo: regex per email

Quale di queste due regex meglio descrive un indirizzo email generico, del
tipo username@dominio, volendo ammettere la presenza del carattere . (punto)
una o piů volte sia all'interno del unsername che del dominio? esempio:
xxx...@aaa.bbb.it
1) /\b(\w[-.\w]*\@[-a-z0-9]+(\.[-a-z0-9]+)*\.(com|it|edu|info))\b/
2) /^[_a-z0-9-]+(\.[_a-z0-9-]+)*\@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$/
grazie per eventuali tips.
ste

 
xxx...@aaa.bbb.it
Due link su tutti:
http://www.perl.it/documenti/faq/faqview.pl?pag=9&faq=17
http://search.cpan.org/~maurice/Email-Valid-0.15/


http://search.cpan.org/~maurice/Email-Valid-0.15/
...grazie, comunque non è mia intenzione verificare la validà di un
indirizzo, ma solo verificarne la corrispoondenza ad un certo pattern.
ciao
Newsgroup: it.comp.lang.perl
Titolo: DBI e Mysql

 Bye Corrado

 ??
Ma soprattutto... lo conosco solo io il modulo Mysql *liscio* che non si
appoggia a DBI?
E' tonnellate di volte piů semplice e veloce da usare....
Wiz of Id

 appoggia a DBI?
Il cui uso e' pero' "deprecated" e non e' piu' sviluppato (se mi ricordo 
bene) e comunque si basa eccome su DBI guarda le prime linee di Mysql.pm:
package Mysql;
 
use 5.004;
use strict;
 
require Carp;
require DynaLoader;
require Exporter;
require DBI;
require Mysql::Statement;
require DBD::mysql;
Sostanzialmente definisce delle funzioni di livello un po' piu' alto di 
quelle di DBI.
-- 
Saluti,
Giancarlo

 bene) e comunque si basa eccome su DBI guarda le prime linee di Mysql.pm:
Infatti...la fase giusta era *che non ti costringe ad appoggiarti a DBI*
Sinceramente poi, dato che uso il tutto per lavori di *costruzione* lato
server senza alcuna interazione in rete esterna, direi che della
deprecatezza me ne s**tto altamente :-)))))) funziona bene (sto parlando
di semplici select... capirai che non ci sono grosse esigenze), è
dannatamente semplice (per via dell'alto livello, of course) e ci ho
messo 5 minuti cinque a capire come usarlo senza aver mai toccato un
modulo in vita mia... ;-)
Ecco perché ne sono entusiasta!
Per il futuro si vedrà, ma per situazioni simili alla mia lo consiglio e
lo riconsiglio!!!!
Gh!
Wiz of Id

Ok, allora riformulero' la domanda.
La pagina scritta in perl lavora su un server apache.
Mentre il DB e' Win Mysql 3.23.33 installato su Win 98.
Dove trovo il Modulo DBI per win MySql?????
Thanks
Corrado


 ??
In realta' sembra che qualcosa che si chiama DBI.pm viene trovato, pero' 
questo .pm non ritorna "vero". 
-- 
Saluti,
Giancarlo

io per windows uso activeperl 5.6
Funzia benissimo!
E dbi + dbd::mysql sono inclusi

 # BEGIN failed--compilation aborted.
Controlla che il file DBI.pm contenga questo pezzettino:
1;
__END__
Una possibile causa del problema e' che manchi quell' 1.
-- 
Ciao, Maurizio.
Newsgroup: it.comp.lang.perl
Titolo: normalizzare una stringa

Salve,
        come faccio a normalizzare una stringa ovvero eliminare gli spazi 
e/o tabs di troppo?
vorrei trasformare:
$_ = " 0   2              1        3   5 44    69             4";
in:
$_ = "0 2 1 3 5 44 69 4" cosě poi poso fare una split()
grazie 

Larry wrote:
[...]

Puoi usare split direttamente:
% perl -MData::Dumper -le'
   $_ = " 0   2              1        3   5 44    69             4";
   $_ =~ s/^\s+//;
   $_ = [ split /\s+/ ];
   print Dumper $_
'
$VAR1 = [
           '0',
           '2',
           '1',
           '3',
           '5',
           '44',
           '69',
           '4'
         ];
Dimitre

,
scriveva:

Non hai nessun bisogno di "normalizzare" la stringa per fare uno split:
   @numeri = split /\s+/;
Comunque, si fa in modo analogo:
   $_ =~ s/\s+/ /g;
Ciao.

Larry wrote:

Non c'č bisogno di normalizzare prima la stringa e neanche di usare un 
pattern: nel tuo caso basta "split" nuda e cruda:
$_ = " 0   2              1        3   5 44    69             4";
print join '-', split; # 0-2-1-3-5-44-69-4
Ciao.

incredibile...soltanto che vorrei riempirci una array:
print join ' ', split;
"Emanuele Zeppieri" <ema...@tiscali.itsnip_here.invalid> ha scritto nel 
messaggio news:coQtl.282716$FR.5...@twister1.libero.it...


 print join ' ', split;
my @array = split;
;-)

"Emanuele Zeppieri" <ema...@tiscali.itsnip_here.invalid> ha scritto nel 
messaggio news:WNQtl.193414$Ca.3...@twister2.libero.it...

ok!

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

Salve ragazzi ho bisogno di aiuto...
devo realizzare un form per inviare delle mail ma non so da che parte
iniziare!!!! aiutatemi vi prego!!!!!!!!!!!!!!
                       Kobram
--
Odi et amo quare id faciam fortasse requiris
nescio sed fieri sentio et excrucior.
Catullo

iniziare!!!! aiutatemi vi prego!!!!!!!!!!!!!!
mmhh
dipende a che punto sei?
Se lo vuoi fare tutto da 0.
Se lo vuoi già fatto.
Dicci di +
--
www.pigmalion.info
www.pigmalion.info/perl/

 iniziare!!!! aiutatemi vi prego!!!!!!!!!!!!!!
Puoi cominciare da qui:
 
http://nms-cgi.sourceforge.net/
 [1]
ciao
Stefano
[1] Scusa se non fornisco un link allo script specifico, ma il sito
     mentre scrivo sembra avere qualche problema.

 ha scritto nel messaggio
news:yhwsa.57216$K35.1...@news2.tin.it...


 fatemi sapere!!!
Prova a dare un occhio a questo corso:
http://space.tin.it/computer/gciabu/cgi/cgi.htm
in particolare alla prima parte di:
http://space.tin.it/computer/gciabu/cgi/cgi1.htm
Newsgroup: it.comp.lang.perl
Titolo: intercettare errore e ripetere blocco dati

Salve,
        ho una funzione che prende dei dati dal web e fa del parsing...ogni 
tanto ritorna un errore di s///g e si blocca il programma...ora mi 
piacerebbe includere quella parte di codice in un blocco while(1) {...} per 
far si che se viene intercettato l'errora venga ripetuto il codice...come si 
può fare?
Grazie 

 ha scritto nel messaggio 
news:4cff720a$0$34303$4faf...@reader3.news.tin.it...

ho risolto senza l'uso di eval...ma finchè la $parse che mi ritorna non è 
definita non esco dal ciclo

Newsgroup: it.comp.lang.perl
Titolo: eseguire uno script remoto...

Scusate se quello che sto per dire, a qualcuno, potrà sembrare come una
bestemmia in chiesa... visto che vorrei parlar di PHP in questa parrocchia
di Perl-isti ;-)))
Purtroppo non so proprio in che direzione muovermi.
Devo trovare un modo per poter eseguire uno script (shell script) che si
trova su una macchina diversa da quella su cui gira il web server. La
macchina in questione non ha un web server su di essa e, per poter
eseguire tale script, ho bisogno di accedervi con una login (diversa da
quella associata al web server) e una password. La cosa dovrei farla in
PHP, ma credo che non vi siano grosse differenze dal Perl... ;)
Ho provato a fare qualcosina ricorrendo ad una semplice "system(rsh...)"
ma, a quanto ne ho capito, la rsh mi permette sì di indicare la login da
utilizzare ma non mi permette di passare la password necessaria...
Avete qualche suggerimento?
grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 PHP, ma credo che non vi siano grosse differenze dal Perl... ;)
In Perl puoi utilizzare i (comodissimi) moduli:
Net::Telnet (se devi accedere via telnet)
Net::SSH (se devi accedere via SSH)
Li trovi entrambi su CPAN.
Per PHP non ho idea, ma difficilmente troverai aiuto in merito qui. ;-)
	A presto, Michele.
-- 
Michele Beltrame
http://www.italpro.net/mb/
ICQ# 76660101 - e-mail: 
m...@italpro.net

Io userei i moduli per SSH (Net::SSH o qualcosa del genere, trovi tutto
su 
www.perldoc.com
 o 
www.cpan.org
).
dawe

Newsgroup: it.comp.lang.perl
Titolo: obbligatorio compilatore C per script?

scusate la domanda...
è obbligatorio compilare i propri script in perl per vederli funzionare?
jo scaricato ActivePerl e nelle faq dice che occorre un compilatore C..ma e'
proprio necessario per farli funzionare?
se creo un file .pl devo per forza trasformarlo in .cgi ?
Emanuele

 č obbligatorio compilare i propri script in perl per vederli funzionare?


 è obbligatorio compilare i propri script in perl per vederli funzionare?

Newsgroup: it.comp.lang.perl
Titolo: MICROWEB

 Ciao qualcuno sa dove poter scaricare microweb?
Chi e' microweb e perche' parla male di me? :)
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Ciao qualcuno sa dove poter scaricare microweb?
Se ti riferisci al server per cd-rom lo trovi qui:
http://winfiles.cnet.com/apps/98/servers-websrv.html
Matilde
http://www.mtonline.it
   Musicoterapia online
(togli bar per risposte in e-mail)
Newsgroup: it.comp.lang.perl
Titolo: UN grande progetto

Carissimi NewsReader,
    vi scrivo per chiedere la vostra collaborazione.Io ed altri abbiamo
fondato una città virtuale ospitata gentilmente da 
GIOCO.NET
(
http://gioco.net
) .
Questa comunità virtuale nominata provvisoriamente AtheNet
(
http://gioco.net/atene/
 ) ha bisogno di programmatori esperti per la sua
realizzazione. Per entrare nello staff di AtheNet bisogna conoscere almeno
uno dei seguenti linguaggi:
perl,html,javascript,c++ e inoltre saper utilizzare il CGI (ricollegabile al
PERL).
Nessuno pagherà, dato che la città NON è a scopo di LUCRO, ma la
soddisfazione vi riempirà di GIOIA.All'interno della città virtuale i
programmatori saranno gli Dei ecc.....
Per + info scrivete a 
ze...@gioco.net
Grazie
Zeus

 wrote in message 85qtlr$1ilk$1...@stargate1.inet.it...


Newsgroup: it.comp.lang.perl
Titolo: AIUTO per iniziare #############

C, C++, Java, Python e Perl
con quale posso iniziare il piů facile ....
mi servono proprio le BASI
.. quale libro
mi consigliate                      Fabio  grazie

con quale posso iniziare il più facile ....


Newsgroup: it.comp.lang.perl
Titolo: Perché questi warnings?

Premetto che sono alle prime armi col Perl e facendo perl -w 
grafico2.pl
(mio
script)
Ottengo questo:
Unquoted string "nomefile" may clash with future reserved word at
grafico2.pl
 line 33.
Unquoted string "nomefile" may clash with future reserved word at
grafico2.pl
 line 33.
Ecco la riga incriminata:
close (nomefile) if(open (nomefile,"|ls $dir >$elenco"));
Come mai?!
Help me please!!!!
Grazie mille a tutti!
Ciao Paolo

 ha scritto nel messaggio
news:bakj16$kkb$1...@newsfeed.cineca.it...

scusate...ho risolto!
Grazie comunque!
Newsgroup: it.comp.lang.perl
Titolo: Check se il file esiste

Ciao, qualcuno sa aiutarmi ?
Dovrei verificare su piattaforma UNIX se uno o piu files esitono realmente.
Per verificare cio' ho implementato il seguente IF:
$check_unix = $load_unix . $path . $file;
if(( -e $check_dos)){
...
...
...
Il problema e' che devo fare il check in maniera tale che vengano ignorate
maiuscole e minuscole.
Esiste un confronto -e con opzione IgnoreCase o qualcosa del genere ?
Grazie.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Grazie.
Non esiste un confronto -e con ignorecase, ma ce lo possiamo costruire.
#!/usr/bin/perl -w
use strict;
my $path = shift;
my $cercato = shift
    or die "sintassi: $0 path nomefile\n";
$path =~ s#/$##;
CERCA:
for (<$path/*>)
{
     if (lc $_ eq lc "$path/$cercato")
     {
         print "il file $path/$cercato esiste (nome completo: $_) \n";
         last CERCA;  # togli questo per trovare altri file con lo stesso nome
                      # ma diverse lettere maiuscole/minuscole
     }
}
Nota comunque due cose:
1) i path non sono case-insensitive. Per ottenerli, ci vorrebbe
    un lavoro un po' piu' complesso.
2) con questa ricerca, se esistono due file con il nome
uguale, che differiscono solo per maiuscole/minuscole, il file trovato
potrebbe non essere quello che vuoi.
Ciao
gmax
-- 
   ____ ____  _____ _   _
  / _  |    \(____ ( \ / )
( (_| | | | / ___ |) X (
  \___ |_|_|_\_____(_/ \_)
(_____|
MySQL Certified Professional
Sapere, saper fare, fare, far sapere
http://gmax.oltrelinux.com

Newsgroup: it.comp.lang.perl
Titolo: esecuzione comando

Ciao, vorrei sapere se è possibile lanciare da perl un programma a linea di
comando, in un sistema gnu linux, inoltre vorrei sapere come si possono
acquisire i valori che gli vengono restituiti dal programma??

acquisire i valori che gli vengono restituiti dal programma??
In Linux, c'è solo l'imbarazzo della scelta. Puoi usare gli apici inversi (o
l'operatore equivalente qx), con la stessa convenzione di bash:
   $output = `comando`;
o aprire una pipe:
    open(NET, "netstat -i -n |")    || die "can't fun netstat: $!";
    while (<NET>) { }               # do something with input
    close(NET)                      || die "can't close netstat: $!";
    open(PRINTER, "| lpr -Plp1")    || die "can't run lpr: $!";
    print PRINTER "stuff\n";
    close(PRINTER)                  || die "can't close lpr: $!";
o usare il comando system:
   system "comando";
In quest'ultimo caso, non so se c'è un modo per catturare l'output (a parte,
naturalmente, redirigerlo su un file e leggerlo dopo).
Sotto Windows le cose sono uguali, ma a volte un po' meno uguali che in
Linux.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Fare il redirect in POST invece di GET

Qualcuno ha mai provato a fare un redirect ad una pagina con query in POST
invece che in GET per nascondere i dati?
Grazie.
Max

 invece che in GET per nascondere i dati?
  Sě.
  Creati un form (che utilizzi il metodo POST, ovviamente) con tanti
campi hidden quante sono le variabili da passare ed assegna all'evento
onload della pagina che lo contiene il metodo submit() del form
stesso.
-- 
Alla prossima,
Marco
Newsgroup: it.comp.lang.perl
Titolo: X utenti collegati, come farlo?

avete presente quei siti dove c'è scrittoX tizisono attualmente collegati??
di solito sono fatti in asp... in perl si possono fare?
avevo in mente qualcosa tipo far scrivere il nuemro di utenti su un file
temporaneo quando entrano... ma opi non so come diminuire il numero quando
uno esce... più che altro come faccio ad accorgermi che è uscito?
...avevo pensato a un bootne esci! ... ma chi non lo usa?
idee?
grazie mille!
Francesco

...avevo pensato a un bootne esci! ... ma chi non lo usa?
Non puoi sapere quando uno "esce". Ti conviene memorizzare l'istante
dell'ultimo accesso ad una pagina del tuo sito per ciascun utente
(che identificherai in qualche modo, magari con un cookie di sessione)
nel file temporaneo. Il numero di righe del file dara` poi il numero di
utenti attualmente collegati. Per levare gli utenti imposta un timeout
(5 o 10 minuti magari) dopo il quale se non ci sono stati altri
accessi l'entry per un determinato utente viene rimossa dal file
temporaneo.
	Michele.
N.P. Nine Inch Nails: The Day the World Went Away
-- 
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!


--
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: accessi concorrenti ad un file

Supponiamo che da un browser, che l'utente faccia click su un link che 
lancia uno script (PERL nel mio caso).
Contemporaneamente un altro utente da un altra postazione effettua la 
stessa operazione.
Supponiamo inoltre che lo script PERL faccia degli aggiornamenti/scritture 
su un file locale "filelocale.dat" situato sul server APACHE.
Come funzionano le politiche di accesso al file?
Apache accoda le richieste e le esegue una ad una?
Oppure le due richieste di intrecciano?
Occorre prevedere dei "semafori" per l'accesso al file o APACHE/PERL già 
autogestiscono gli accessi concorrenti?
Grazie in anticipo,
--Gabriele Montemari

...

Me ne interessai mooolto tempo fa, alla fine può dipendere da varie
cose, tra cui di particolare importanza è il sistema operativo sul
quale lavori.
Linux ad esempio prevede una gestione degli accessi in tal senso, ma
da quello che ho capito questa funzione può essere attivata o
disattivata di default o richiede di essere esplicitamente chiamata e
quindi se non hai fisicamente accesso al server non ti rimane che
chiedere lumi al tuo fornitore di hosting per capire.
Ci sono poi moduli che aggirano il problema nei sistemi operativi che
non prevedono la gestione degli accessi concorrenti.
Ho pure ritrovato i msg di quando me ne interessai
http://groups.google.com/groups?hl=it&lr=&ie=UTF-8&oe=UTF-8&frame=right&th=241604acf361f7dd&seekm=g09iatsoi8mkvejb8rv50drd24jatq7k7f%404ax.com#link1
http://groups.google.com/groups?hl=it&lr=&ie=UTF-8&oe=UTF-8&frame=right&th=c47f9c491a002315&seekm=ht4bat09mpufgs5cljueogsfm3ksnao1o3%404ax.com#link1
http://groups.google.com/groups?hl=it&lr=&ie=UTF-8&oe=UTF-8&frame=right&th=6ac48445c4f6b2ab&seekm=ofokatsfctvsaue2tuol5a3im6ko14ai58%404ax.com#link1
Facci sapere :)
Ciao
--
pigmalion network
http://cloud.prohosting.com/pigmauk/
Perl
http://cloud.prohosting.com/pigmauk/perl/

 > Apache accoda le richieste e le esegue una ad una?
Non saprei risponderti con sicurezza, ma ti posso dire di un'esperienza: ho
avuto un sito per piu' di un anno su IIS4 dove i miei script Perl leggevano
e scrivevano database testuali CSV, e con tutte le visite contemporanee che
contava il sito e tutti i record che entravano e uscivano dal database
(quindi si presume che c'era abbastanza movimento su quei DB) non è mai
successo niente.
Aggiungerei, inoltre, che in informatica la contemporaneità non esiste ;-)
O no?
Ciao,
Guido.

Io faccio così:
open(FFF,"ilfile.txt");  #il file condiviso
flock(FFF,2);   #blocca l'accesso al file da parte degli altri processi
.....
.....
....
close(FFF);
Il file viene sbloccato al termine dello script che lo blocca.
Io uso questo sistema da due anni su un file che è condiviso in genere da
una decina di persone contemporaneamente e fino ad ora non lo ho mai trovato
corrotto.
UMS (Guido) ha scritto nel messaggio ...

Newsgroup: it.comp.lang.perl
Titolo: Ancora Win32::GUI

Rieccomi, ancora con Win32::GUI.
Non riesco a veder funzionare la barra di scorrimento della finestra.
Inserendo i parametri
-style    =>    WS_VSCROLL
mi si crea la barra, ma quando il contenuto eccede le dimensioni della
finestra (sempre!) la barra non si muove! Tra l'altro, ho notato che il
parametro WS_VSCROLL e' segnalato su MSDN, mentre nelle pagine web del
modulo Win32::GUI ho trovato scritto che esso e' valido solo per le Listbox
(ed infatti le listbox funzionano a meraviglia).
Qualcuno mi sa dire dove andare a sbattere la testa, per cortesia?
Ciao a tutti.
Andrea

 Non riesco a veder funzionare la barra di scorrimento della finestra.
Parli di un RichEdit?
Io faccio così, as esempio, e funziona:
my $Textbox = $win->AddRichEdit(
     -class     => $TextClass,
     -name    => "Text",
     -left    => 5,
     -top     => 0,
     -font    => $Font,
     -width   => $win->ScaleWidth,
     -height  => $win->ScaleHeight-162,
     -exstyle => WS_EX_CLIENTEDGE,
     -style   => WS_CHILD | WS_VISIBLE | WS_VSCROLL
               | ES_LEFT | ES_MULTILINE | ES_AUTOVSCROLL,
);
(tralascia i dettagli su classe, font e dimensioni).

 Non riesco a veder funzionare la barra di scorrimento della finestra.
Parli di un RichEdit?
Io faccio cosě, as esempio, e funziona:


 Spero che tu mi possa essere di aiuto. Grazie e a presto
Potresti postare un esempio minimale di cosa fai? Grazie.

Newsgroup: it.comp.lang.perl
Titolo: DuBBioNe: come eliminare directory *non vuote* in Perl ??

La domanda che stasera non mi fa andare piu' avanti:
Come eliminare directory *non vuote* in Perl ??
rmdir elimina solo se sono vuote.
unlink funziona solo con i files.
non posso usare i comandi dos esterni (n.b.: sto su Win32).
non riesco a scrivere una sub che faccia una ricorsione...
Please Help!  :-)
Guido.


Come non detto...
ho risolto:
<code>
sub deltree {
 my $dir = shift;
 if (-d $dir) {
  opendir DIR, $dir;
  foreach(readdir(DIR)) { next if /^\.+$/;
   $_ = $dir."/".$_;
   if (-d $_) { deltree ($_) }
   else { unlink $_ }
  }
  closedir DIR;
 }
 rmdir $dir;
}
<code>
:-)

 :-)
 
Ciao,
una critica al codice, o meglio al come hai fatto la ricorsivita'...
Tu chiami deltree solo per directoy, quindi perchè fare il test? 
IMHO, andrebbe usato uno schema come
sub delete_rec {
  while (@_) {
     my $what = shift;
     if (-d $what) {
       opendir(DIR,$what);
       delete_rec(grep(!/^\.{1,2}$/,readdir(DIR)));
       closedir(DIR);
       rmdir($what);
     }
     else {
        unlink $what;
     }
  }
}
(non testato, nn ho perl installato qui)
Leo

> non posso usare i comandi dos esterni (n.b.: sto su Win32).
puoi usare system...
Paulus
--------------------------------
Inviato via 
http://usenet.libero.it
Newsgroup: it.comp.lang.perl
Titolo: Perl e CGI per Windows 95

Qualcuno mi puo' indicare dove trovare il codice per l'interprete perl
per Windows 95? (So che esiste...)
Grazie in anticipo!
Per favore, rispondetemi al: 
cap...@iperbole.bologna.it
Nucci Stefano

 per Windows 95? (So che esiste...)
Ce l'ho, ma non ricordo da dove l'ho scaricato..
Ho fatto una ricerca Archie (il file si chiama Pw32i312.exe), con questi
risultati (parziali, ci sono centinaia di siti..)
ftp://ftp.fishnet.co.uk/archive/WinNT/Perl/Pw32i312.exe
ftp://ftp.doc.ca/packages/perl/CPAN/ports/win32/ActiveState/Release/Pw32i312.exe
ftp://ftp.fishnet.co.uk/archive/WinNT/Perl/Pw32i312.exe
ftp://ftp.uni-mannheim.de/languages/perl/CPAN/ports/win32/ActiveState/Release/Pw32i312.exe
Il problema è che non so se à l'ulima versione.. Non ho avuto la pazienza di
spulciarmi la doc allegata, ma forse ci trovi il sito originario..
-- 
			Luca Amicone
--
	Corteggiare vuol dire inseguire una donna
	finché questa vi acchiappa.
		-- J. Garland Pollard




Newsgroup: it.comp.lang.perl
Titolo: Sara` una vaccata ma ....

.... come si fa da un perl su WindowsNT o 95 che sia, a lanciare un
comando a livello di sistema operativo?
E` sufficiente una 'system' da qualche parte o va incluso qualche modulo
di libreria nel sorgente perl?
Ancora.
E` possibile che l'IIS di Windows NT mi dia sempre errore quando da un
button faccio chiamare una FORM ACTION='
pippo.pl
' ?
Dai, che qualcuno mi sa rispondere.
Saluti a tutti.
Alex
-- 
PLEASE - REMOVE 'nospam' from the mail address!!!
                          \|/
                         (@ @)
---------------------oOO--(_)--OOo----------------
Alessandro Feltrin - C&M S.p.a. Tel. 011-7767877
		     Torino - C.so Svizzera, 185
		     E-Mail 
afel...@c-m.it

button faccio chiamare una FORM ACTION='
pippo.pl
' ?
Di che errore parli? Riporta la scritta di errore, altrimenti non, possiamo
aiutarti molto
Ciao
Andrea

 Andrea
L'errore e`:
HTTP/1.0 501 Not Supported 
e mi viene dato in qualsiasi modo tenti di lanciare il file perl in
questione. Tieni conto che lo stesso file perl, messo su macchina con
Linux funziona. Almeno mi restituisce qualcosa sul browser.
Grazie a tutti.


 
[...]
Poi, con IIS:
Bisogna modificare una key del registry (cosa che e' nascosta da qualche 
parte nella doc. HTML di IIS).
Naturalmente va fatto cona la meravigliosa applicazione che va sotto il
nome di regedit.
La Key e' 
HKEY_LOCAL_MACHINE\CurentControlSet\SYSTEM\Services\W3SVC\ScriptMap
qui devi aggiunger una chiave di valore pari all'estensione dello script
(e.g.: .pl, o .cgi) il cui valore sia il path completo dell'interprete (
e.g: C:\perl5\bin\perl.exe)
Attenzione: grazie al merviglioso design dei sistemi MS, modificare il
registry e' uno sport pericoloso. Se ti sbagli, la tua macchina potrebbe
non bootare
piu'. Dischetti di rescue sono caldamente consigliati. Io non mi assumo
nessuna responasbilita'
se ti va storto qualcosa seguendo la procedura di cui sopra (ne' se la
assume MicroSoft, BTW).
HTH & cheers,
        Alessandro
Newsgroup: it.comp.lang.perl
Titolo: Lettura di un file in Perl (aiuto)

Salve,
Sono alle prime esperienze con il PERL, e avrei bisogno di un aiuto.
In un CGI,  ho la necessita di leggere un file html che si trova su un
altro server, (esempio: 
http://www.prova.it/dati.html
)
che funzione devo usare (sempre che sia possibile) ?
Grazie

 wrote:
: Sono alle prime esperienze con il PERL, e avrei bisogno di un aiuto.
: In un CGI,  ho la necessita di leggere un file html che si trova su un
: altro server, (esempio: 
http://www.prova.it/dati.html
)
: che funzione devo usare (sempre che sia possibile) ?
use LWP::Simple;
$file = get("
http://www.prova.it/dati.html
");
ecc.
opuure, se devi solo stamparlo
use LWP::Simple;
getprint("
http://www.prova.it/dati.html
");
Devi procurarti il modulo LWP::Simple . Cercalo in un sito del CPAN, ad
esempio:
ftp://cis.utovrm.it/CPAN/modules/by-module/LWP/
-- 
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: CGI per tracciare

Saluti,
sono sempre io.
Chi puo' spiegarmi quale e' il miglior metodo per sapere da
quale precedente URL un ipotetico visitatore arriva.
Non sono molto esperto e quindi vi chiedo una spiegazione di
medio livello, esempi o links di approfondimento o di download
di cgi che facciano cio'.
Ancora grazie.

 
Ok. Ma per l'ultima volta. Le domande su CGI e web vanno postate su
gruppi appositi. it.comp.lang.perl e' riservato alla discussione del
linguaggio di programmazione perl...
Uno script CGI ha a disposizione la variabile d'ambiente HTTP_REFERER
(mi sembra), che in perl e' disponibile come $ENV{HTTP_REFERER}.
Un buon web server permette di scrivere anche questo nel log (dopo
opportuna configurazione) quindi ancora una volta, non hai bisogno di
uno script: basta postprocessare il log.
Per tutto cio' ed altro, ti consiglio la lettura di "CGI programming for
the World Wide Web" (alias "il topo") dell O'Reilly
Cheers,
	Alessandro

quale precedente URL un ipotetico visitatore arriva.
E` sufficiente guardare il contenuto della variabile d'ambiente HTTP_REFERER.
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.italpro.com/mb/
Newsgroup: it.comp.lang.perl
Titolo: Convertire un numero molto grande in binario

Salve,
devo convertire un numero decimale a 1024bit in formato binario in modo da
fargli prendere meno spazio in memoria.
Who can help me?
grazie in anticipo.

"LordSaga640" <er...@fgfsd.sdf> ha scritto nel messaggio
news:4139...@x-privat.org...

Molto velocemente ho fatto questo  che è da ottimizzare:
use Math::pari;
use Math::bigint;
$a=Math::Pari::PARI(2)**1024;
print Bin2Dec(Dec2Bin($a))."\n$a";
sub Dec2Bin {
my $a=shift;
$x=Math::BigInt->new($a);
my $stringa=$x->as_hex();
$news=(chr hex $num).$news while $num=substr($stringa,-2,2,"");
return $news;
}
sub Bin2Dec {
my $bin=shift;
my $string;
$string=unpack("H*",$bin);
$string="0x".$string;
my $alfa=Math::BigInt->new($string);
return $alfa->bstr();
}
Pensate mi possa dare dei problemi?
Grazie, ciao

L'ho un po' migliorata:
sub Dec2Bin {
 my $stringa=Math::BigInt->new($_[0])->as_hex();
 my ($news,$num);
 $news=(chr hex $num).$news while $num=substr($stringa,-2,2,"");
 return $news;
}
sub Bin2Dec {
 return Math::BigInt->new("0x".unpack("H*",$_[0]))->bstr();
}

You wrote:

I am sorry that I cannot reply in Italiano :o)
Just curious, why not simple use
sub Dec2Bin
  {
  Math::BigInt->new($_[0])->as_bin();
  }
sub Bin2Dec
  {
  Math::BigInt->new('0b' . $_[0])->bstr;
  }
:-)
Cheers,
Tels

 ha scritto nel messaggio
news:c978def0.04090...@posting.google.com...

Hi ^^.
SOrry buy i don't know english.
Result o your sub Dec2Bin:
"0b01011011101010010110101"
as unpack("B*", $num)
Result of mine:
"\xfa\xf5\x5b"..etc.
it is as pack("VERY BIT INT", $num).
Do you understand?
Bie and thx^^

Newsgroup: it.comp.lang.perl
Titolo: HELP Chiamare una pagina web su un altro server

*** post for FREE via your newsreader at 
post.newsfeeds.com
 ***
Salve, sono nuovo del NG e del perl.
Ho bisogno, dopo aver fatto una serie di elaborazioni, di chiamare
tramite perl una pagina web su un altro server riempiendo dei campi in
un form. Il problema e che lavoro a riga di codice e non invocando un
web-browser, quindi il 
print "Location: ...:"
non funziona.
Come posso fare?
Grazie
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com
 - The #1 Newsgroup Service in the World!
-----==  Over 90,000 Newsgroups - 16 Different Servers! =-----

 Come posso fare?
Usa la libreria LWP.
perldoc LWP per informazioni.
Ciao
--ev

Newsgroup: it.comp.lang.perl
Titolo: DB extract .. campi "memo"

Ciao
ho dei problemi nell'estrarre da un DB Access
i campi di tipo "memo"
come faccio
se qualcuno lo ha già fatto avrebbe un esempio da mostrarmi...
grazie
Ciao
   --[ Tex ]--

 come faccio
io per i database access uso Win32::ODBC
e per i campi memo, se sono di dimensioni grosse, imposto il buffer size
cosi':
$db->SetMaxBufSize(65536);
dove $db è l'oggetto Win32::ODBC (ossia, la "connessione" al database)
e 65536 sono 64Kbytes...
Ciao,
Guido.

 e 65536 sono 64Kbytes...
Grazie... poi ci sono riuscito... anche io ho usato lo stesso metodo
grazie e ciao
--[ Tex ]--