mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Approssimazione

Esiste un modo per approssimare i numeri su PERL?
per esempio se ho $numero = 
1.7423424454
c'è un modo per approssimare per TRONCAMENTO e ottengo quindi 1 o per
APPROSSIMAZIONE e ottento quindi 2 ?
Grazie, ciao.




 Secondo l'FAQ di Perl, il modo piu' semplice per arrotondare e' quello
 di usare sprintf o printf.
 
 Altrimenti ceil e floor che si possono trovare nelle librerie POSIX.
 
 Per troncare, dovrebbe bastare una regular expression che ti prende tutto
 quello che c'e' prima del punto decimale. Se invece devi troncare ad una
 certa posizione decimale, prendi la stringa e tagliala all'ennesimo
 carattere dopo il punto decimale.
 Maurizio
-- 
Maurizio M. Munafo' |                          
E-mail:mun...@hp0tlc.polito.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.

Newsgroup: it.comp.lang.perl
Titolo: Save energy!

Oddìo!
Sto installando la RedHat 8.0 sul mio buon vecchio
Olivetti M24XD - Pentium 200 con 48Mb di ram e 2Gb di HD!!!
Ora inizio installazione: 23.30
Anno previsto per fine installazione?? :-))
Mi sa che lascero' tutta la notte il pc acceso!
;-D


wrote:

sei un po' OT ...

 sei un po' OT ...
Ma il mio non era un topic per chiedere aiuto o chissà cosa di tecnico...
era giusto una parentesi x fare una battuta! :-)
Mammamia!!! :-/

> era giusto una parentesi x fare una battuta! :-)
Battutta??? per esperienza ti posso suggerire di metterci SEMPRE una
didascalia ben chiara, altrimenti ci sarà sempre gente che la prenderà sul
serio! :-)
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

Newsgroup: it.comp.lang.perl
Titolo: Req: e se il programma e' occupato?

Domanda : un CGI in Perl su server remoto UNIX sta svolgendo un programma ed 
arriva una contemporanea una richiesta che lo richiama ultriormente da parte 
di un altro utente?
In particolare vorrei sapere se in questo caso il programma, che non ha linee 
particolari per gestire questa situazione,:
1) riesce a servire entrambi gli utenti in parallelo, 
2) mette il secondo in attesa e lo serve al termine del primo
3) da error al secondo
4) si interrompe nella esecuzione del primo e serve il secondo
5) altre ipotesi: quali?
Grazie per la cortesia, risposta sul newsgroup.

Federico,

  Un programma CGI viene eseguito da un processo o da un thread figlio
del web server. Se non ci sono problemi di accesso concorrenziale alle
risorse, ne possono "girare" contemporaneamente tanti quanti la macchina
o il sistema operativo ne supportano.
	Alla prossima,
		Marco
Newsgroup: it.comp.lang.perl
Titolo: browsing pagine con frames usando LWP:Simple;

use LWP::Simple;
print PROVA get("
http://ciccio.com
");
mi dice che non può aprire la pagina coi frames, in pratica mi mostra il
messaggio di questo tag:
<NOFRAMES><body><p>Il tuo browser non supporta i frames.</p></body></NOFRAMES>
come posso fare?
grazie per l'aiuto
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

grazie per l'aiuto
ma se non sbaglio oltre a questo dovresti aver ricevuto anche altro
codice...
di quali pagine e composto il frame e quali url
dovresti estrapolarli tu e seguire gli url con lwp
ma prob qui parliamo di simple
non ho mai esplorato per bene lwp ed ho il sospetto che ci sia molto
di + di simple :)
--
I'm going home
http://www.pigmalion.info/

 di + di simple :)
penso anch'io, sto cominciando ad usarlo ora.
A.


guida su LWP?
ce l'hai nel computer:
perldoc lwp
perldoc lwp::simple


Newsgroup: it.comp.lang.perl
Titolo: Perchè ????

Perchè questo script non riesce a connettersi al DB ???
Il DB ESISTE !....
#!c:\perl\bin\perl
use DBI;
$database = "Meet_A_Geek";
$driver = "DBI:mysql";
my $dbh = DBI->connect($driver:database=$database, "root", "") or die
"Can't connect";
#Insert the values
$dbh->do("INSERT INTO Customers(First_Name, Last_Name)
          VALUES('Renee', 'Robertson')");
$dbh->do("INSERT INTO Customers(First_Name, Last_Name)
          VALUES('Larry', 'Isacson')");
$dbh->do("INSERT INTO Customers(First_Name, Last_Name)
          VALUES('Mark', 'Harrison')");
#Disconnect
$dbh->disconnect;
exit;

hai provato a passargli la password???
Prova cosě e fammi sapere... ovviamente sostituisci i valori giusti!
$DB_driver_name="mysql";
$DB_dbname   = "nome";
$DB_username = "user";
$DB_Passwd   = 'pwd';
$DB_data_source =
"dbi:".$DB_driver_name.":dbname=".$DB_dbname.";host=localhost";
 $dbh=DBI->connect($DB_data_source,
                   $DB_username,
                   $DB_Passwd,
                   {PrintError=>1,AutoCommit=>$DB_AutoCommit}
                  ) ||
                  die  "Got error: '' when connecting to " . $DB_data_source
." with user: '$DB_username' password: '$DB_passwd'\n";
***********+
MAx
Newsgroup: it.comp.lang.perl
Titolo: Win32 e in linux?

Salve a tutti,
	vorrei ottenere delle informazioni dal mio sistema.
Pero' vorrei usare dei moduli standard senza doverne
scaricare ulteriori.
Su windows esiste il modulo Win32 che mi da molte info
sul mio sistema. Esiste un analogo in linux oppure devo andare
giu' di `uname -a` e simili?
Grazie
-- 
nathanvi
ICQ --> 20318568
mail --> vitto.z A_T 
tiscali.it

 giu' di `uname -a` e simili?
ti conviene andar giù di uname, penso. ovviamente (ma forse già lo sai) 
puoi utilizzare la variabile $^O per distinguere fra sistemi operativi 
in generale, e poi in base a quello utilizzare il metodo migliore (eg. 
il modulo Win32 per sistemi windows, `uname` per sistemi unix, ...).
cheers,
Aldo

 unix, ...).
Ok; tra l'altro in perldoc perlmodlib ho visto anche in linux che, tra i
moduli standard, c'e' Win32...
Come mai? che senso ha mettere questo modulo in una distro perl sotto
linux?
Grazie,
	nathanvi


Newsgroup: it.comp.lang.perl
Titolo: Errore nel fetch di dati Mysql ??????

Ciao a tutti,
utilizzo mysql su win2000 e acriveperl, utilizzando il modulo dbi:odbc
attraverso un dsn di sistema accedo al mysql
Il mio problema č che riesco a connettermi ed a inserire e ricercare dati ma
quando cerco di ottenere una stringa ad esemio un pň piů lunga ottengo
questo errore dal modulo DBD.
[TCX][MyODBC]Data truncated (SQL-01004)(DBD: st_fetch/SQLFetch (long
truncated) err=1)
Devo cambiare qualche opzione nel driver?
Ps: sono costretto ad usare odbc.
Grazie, Luca

 ha scritto nel messaggio
news:8t3e15$dk$1...@nread1.inwind.it...


 quando cerco di ottenere una stringa ad esemio un pò più lunga ottengo

Newsgroup: it.comp.lang.perl
Titolo: Help sugli hash da newbie

Sono un novizio del Perl percui mi scuso in anticipo se la domanda č
banale.
Stň scrivendo un programmino che tramite la subroutine "A" legge un
file di configurazione cosě strutturato
  parametro_1   valore_1
  parametro_2   valore_2
  ...
  parametro_n   valore_n
questi dati vengono caricati in un hash
  %arry_parm
Questo hash devo passarlo alla subroutine "B" che ricava i valori dei
parametri per usarli come dovuto.
Il problema č che non riesco a passare questo hash e ne leggendo la
Guida di Riferimento di O'Reilly ne la documentazione scaricata dal
sito di Active Sate sono riuscito a capire come fare.
La Guida di O?Reilly mi parla di passare un riferimento
 $r = \%arry_parm
- La forma scritta sopra č giusta ?
- Il riferimento lo creo nella sub "A" e lo passo chiamando la sub "B
( "B ($r)") ?
- Se quello scritto sopra č corretto come faccio a dereferenziare
l'hash quando sono nella sub "B" per ottenere i valori dei parametri ?
Ringrazio anticipatamente chi avesse la pazienza di spiegarmi come
fare.


Il codice che segue dovrebbe risolvere i tuoi dubbi.
La sub GetParamFile  legge il file, crea l'hash e torna il riferimento
al programma principale.
La sub PrintHash usa il riferimento per passare líntero hash alla
funzione
each.
La sub PrintHashSorted usa il riferimento come sopra per creare un array
con i parametri in ordine alfabetico, e nel ciclo per accedere ai
singoli
valori.
HTH
# 
hashref.pl
sub GetParamFile($)  { # param:  nome_file_da_aprire
   my $ifile=$_[0];
   my (%Hash, $param,$value);
   open(INP,"< $ifile") || die("Errore apertura $ifile\n$!\n");
   while( <INP> ) {
      chomp($_);
      ($param,$value) = split(' ',$_);
      $Hash{$param} = $value;
      }
   close(INP);
   return \%Hash;
}
# stampa in ordine casuale
sub PrintHash($) { # param: riferimento ritornato da GetParamFile
   my $rh = $_[0];
   my ($param,$value);
   while ( ($param, $value) = each(%{$rh}) )   {
      print "$param \= $value\n";
      }
   print "\.\n";
   }
# stampa c/ param in ordine alfabetico
sub PrintHashSorted($) { # param: rifer. tornato da GetParamFile
   my $rh = $_[0];
   my (@k,$param,$value);
   @k = sort( keys( %{$rh} ) );
   foreach (@k )   {
      print "$_ \= $rh->{$_}\n";
      }
   print "\.\n";
   }
# MAIN
$ifile="param.txt"; # sostiruisci col tuo
$rhash = GetParamFile($ifle);
PrintHash($rhash);
PrintHashSorted($rhash);
exit;
Newsgroup: it.comp.lang.perl
Titolo: Leggere byte da indirizzo fisico

Salve a Tutti,
mi trovo nella situazione di dover leggere un byte da un indirizzo
fisico di una scheda di aquisizione (H300), con il basic l'istruzione
sarebbe molto semplice imp(&H300), con il perl non ho trovato nessuna
libreria o funzione che mi permetta di accedere direttamente ad una
locazione, qualcuno di Voi ha già affrontato questo problema?
N.B: Devo sviluppare per S.O. Unix per cui sono benvenuti suggerimenti
anche in C .
Saluti
G.B.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

locazione, qualcuno di Voi ha già affrontato questo problema?
In C sicuramente non esiste una libreria standard tanto dipendente
dall'architettura della macchina che usi.
Dando per scontato che tu usi un PC Intel-like, se conosci un pò di
assembler, la soluzione più semplice e veloce è di scrivere una breve
procedura richiamabile dal C.
-- 
Cordiali saluti
  Artemio

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

 
www.geocities.com/italianpm
 In sole 2 settimane ci sono stati + di 300 visite.
--
---------------------------------------
Tonello Stefano
e-mail : 
tone...@tiscalinet.it
web    : 
www.geocities.com/italianPM
ICQ    : 36611007
---------------------------------------



Newsgroup: it.comp.lang.perl
Titolo: R: HELP mail...

 documentazione. ;)
Se hai installato (e configurato) il modulo CPAN sul tuo sistema, per
scaricare ed installare Mail::Mailer puoi semplicemente fare:
  perl -MCPAN -e shell
  install Mail::Mailer
e tutto e' pace e letizia.
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/

Grazie ad entrambi!
Ma per ora mi accontento di usare il sistema + semplice.
Vorrei piuttosto fare in modo che il cgi le riceva e le processi (iscrizione
cancellazione in una lista)
ma non ho idea di come possa un cgi inerte ricevere e processare una
mail!?!?
Grazie
F.

mail!?!?
Beh, non si tratta piu` di un CGI, ma di un programma che va lanciato dall'MTA.
Dovresti inserirne la chiamata nel .forward (o .qmail o qualsiasi sia il nome
del file a seconda dell'MTA installato) dell'utente che riceve l'email.
	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!

Ciao Michele, ora mi sembra + chiaro!
Cmq troppo complicato per me, meglio una soluzione alternativa
 (iscrizione/cancellazione dal sito, spedizione mail con annesso link al
cgi?"codice")
Grazie
F.
Newsgroup: it.comp.lang.perl
Titolo: aiuto URGENTE PASSWORD

3333 è un file da stampare?
Vuoi estrarre le varie componenti?
Puoi usare (credo) per ogni riga:
($account, $password, $pfile) = split (/\s\/\?\s/, $riga);
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/

come posso estrarre da un file tipo
1111111 /? 2222222 /? 33333333
........ /? ...... /? ........
in cui 111 è un account
2222 è una password
3333 è un file da stampare?
grazie
--
Posted from 
siml1ca-3v.fst.it
 [213.255.37.65] (may be forged)
via Mailgate.ORG Server - 
http://www.mailgate.org


--
 Massimo Balestra
 System Engineer
 Torino Italy
Sent via Deja.com 
http://www.deja.com/
Before you buy.

 ($account, $password, $pfile) = /([^ ]+) \/\? ([^ ]+) \/\? ([^ ]+)/;
Questo lo adoro, e` veramente elegante... ;)


Newsgroup: it.comp.lang.perl
Titolo: Da linux a DB Access

Salve a tutti,
ho la necessita` di affiancare ad una macchina NT su cui e` presente un
DB access, una macchina linux che estragga dati dal suddetto database e
li elabori per produrre statistiche (il tutto in perl in vari CGI).
Ho dato un'occhiata in giro e ho trovato il modulo DBD::ODBC che
necessita di driver ODBC dal lato linux; per questo problema ho trovato
2 soluzioni commerciali (openlink e easysoft) che ancora non ho provato.
Sulla man page di DBD::ODBC era citata un pagina con una FAQ che spiega
come collegarsi ad un db su win da linux utilizzando i driver openlink
oppure il modulo DBD::Proxy.
Il tutto comunque mi sembra veramente contorto, e prima di mettermi a
litigare con i vari driver, volevo sapere se qualcuno di voi ha gia`
fatto qualcosa di simile in modo da poter avere un esempio "sul campo".
Grazie,
-- 
 te0 - mailto:
t...@slut.panservice.it
- Fletto i muscoli e sono nel vuoto -





Un anno fa avevo affrontato lo stesso problema con un amico e la soluzione 
mi sembra fosse era stata allora il driver Easysoft (server lato PC e client 
lato Unix). Pero' all'epoca il driver era in beta e gratuito.
Una cosa era stata sicura: usare ODBC e' veramente contorto...
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

,
Maurizio M. Munafo` wrote:
 >Un anno fa avevo affrontato lo stesso problema con un amico e la soluzione 
 >mi sembra fosse era stata allora il driver Easysoft (server lato PC e client 
 >lato Unix). Pero' all'epoca il driver era in beta e gratuito.
 >
 >Una cosa era stata sicura: usare ODBC e' veramente contorto...
Gia`, purtroppo pero` non posso fare altrimenti.
Almeno la tua esperienza mi conferma che la cosa e` fattibile.
Grazie.

Newsgroup: it.comp.lang.perl
Titolo: http::daemon

Salve,
    sto usando la seguente libreria per scrivere un piccolo server http. 
Lo script funziona bene, pero mi ritorna un valore di undef:"Use of 
uninitialized value in pattern match (m//) at 
/Users/Larry/desktop/libwww-perl/lib/HTTP/Daemon.pm line 440.
". Questo è il codice:
#!/usr/bin/perl -w
use strict;
use warnings;
use lib "$ENV{HOME}/desktop/libwww-perl/lib";
use HTTP::Daemon;
use HTTP::Status;
$| = 1;
my $d = HTTP::Daemon->new(LocalAddr => 'localhost', LocalPort => 9999) 
|| die;
print "Please contact me at: <URL:", $d->url, ">\n";
while (my $c = $d->accept) {
   while (my $r = $c->get_request) {
 
      my $method = $r->method;
      my $uri    = $r->uri;
      my $header = $r->as_string;
 
      print "$method\n$uri\n$header\n";
 
      my $resp = HTTP::Response->new;
      $resp->header(amico => 'Larry' );
      $resp->content("Hello world!");
 
      # $c->send_basic_header;
      $c->send_response($resp);
   }
   $c->close;
   undef($c);
}
__END__;
vorrei che come rispossa avessi http status line, data e server name di 
default più un mio campo più il content lenght già calcolato su 
$resp->content...
grazie

       $resp->content("Hello world!");
trovato, bisognava aggiungere:
$res->code("200");

Salve,
     ho una domanda riguardante il modulo http::daemon ( 
http://search.cpan.org/dist/libwww-perl/lib/HTTP/Daemon.pm
 ), nella sua 
guida c'è scritto:
$c->send_file( $filename )
$c->send_file( $fd )
Copy the file to the client. The file can be a string (which will be 
interpreted as a filename) or a reference to an IO::Handle or glob.
Sinceramente non ho mai usato IO::Handle per leggere dei files...
io di solito uso questo codice:
my $song = 'song.mp3';
open my $fh1, '<', $song or die "open(): $!\n";
binmode $fh1;
close($fh1);
come faccio tramite IO::Handle ad agganciarlo a $c->send_file( $fd ) ???
--
btw, dovrei iniziare a leggere questo file da un certo punto e non 
dall'inizio, e meglio usare "seek" o "sysseek" ?? e dopo dovrei usare 
"read" o "sysread" ??
Grazie

 "read" o "sysread" ??
Se usi i filehandle aperti con open() devi usare seek(), se usi quelli
aperti con sysopen() dovresti usare sysseek. Dipende da un sacco di
roba complicata che non ricordo o non ho mai saputo, ma prova ad usare
seek() e vedi come va. Magari RobertoC può elaborare un po' a
riguardo.
"Dopo" non dovresti usare niente, visto che send_file() dovrebbe
prendersi tutti i dati dal filehandle.
Newsgroup: it.comp.lang.perl
Titolo: Aiuto !

Salve a tutti e' da poco che ho conosciuto Perl e cosi ho deciso di
scaricare la versione
ActivePerl-5.6.0.618-MSWin32-x86-multi-thread.msi
dopo circa un ora di collegamento per scaricare il file e dopo
l'installazione, mi accorgo che nella finesta ActivePerl c'e' solo un HTML.
Ho sbagliato qualcosa ?
Come devo fare per scaricare Perl e iniziare a imparare?
Si deve Acquistare?
Grazie a Tutti.
Saluti
www.perl-it.org

 iniziare a imparare
	Alla prossima,
		Marco

 Ho sbagliato qualcosa ?



Per eseguire l'installazione del file
ActivePerl-5.6.0.618-MSWin32-x86-multi-thread.msi devi scaricare anche
l'Installer for Windows, che trovi sempre sul sito di ActiveState.
Prima esegui l'installazione di InstMsi.exe e poi fai doppio click sul file
.msi.
Ciao, Marco.

Newsgroup: it.comp.lang.perl
Titolo: Ciao! Sono un principiante...

... e non mi va bene. Devo imparare tutto sul Perl e più in fretta
possibile:
ho bisogno di un documento che spieghi sintassi, oggetti, metodi,
librerie... TUTTO nella maniera più schematica possibile.
Potete darmi una mano?
Grazie, ciao!
Davide

 cerchero` un'altra donna dentro ai sogni di Tarzan...
Newsgroup: it.comp.lang.perl
Titolo: Solo TAG!

ciao :)
nuovo quesito :
cosi cancello i tag html e lascio solo il testo:
$line=~ s/\<.*?\>//g;
ma ora vorrei fare il contrariao cioe' eliminare
cio' che non e' all'interno di < >
Si puo' fare senza troppi casini ?
Grazie 1000:)

Si puo' fare senza troppi casini ?
Non è del tutto chiaro che cosa vuoi dire (anche <p> è un tag), comunque la
mia opinione è che, salvo che per trasformazioni assolutamente elementari,
non vale la pena mettersi a pasticciare con le espressioni regolari su
documenti html.
Se vuoi costruire qualcosa di affidabile, finisci alla lunga per scrivere
un parser completo per html, e qualsiasi cosa che non sia un parser
completo s'intaccherà su questo o quel documento leggermente diverso da
quello che avevi previsto.
Tanto vale usare uno degli innumerevoli moduli disponibili per html e
riservarsi di reinventare la ruota in circostanze più favorevoli.
Ciao.

 Si puo' fare senza troppi casini ?
   $html =~ s/(>|^).*?(<|$)/$1$2/sg ;
Max

 
Il candidato spieghi perché in certe situazioni la suddetta espressione 
regolare non sortisce l'effetto voluto. :)
Max


use HTML::Parser;
my $text_stripper = HTML::Parser->new(
     api_version => 3,
     start_h => [\&keepit, "self, text"],
     end_h => [\&keepit, "self, text"],
);
$text_stripper->parse( $line );
sub keepit {
     my($self, $text) = @_;
     print $text;
}
vai sicuro che così casini non ne hai.
cheers,
Aldo

 vai sicuro che cosě casini non ne hai.
Grazie Aldo, ma dovendomeli fare installare... preferirei senza moduli :-/

 ha scritto nel messaggio
news:casmt2$ijo$1...@newsreader.mailgate.org...

Ciao Max, vuoi dire che non sempre funzia ?

 Ciao.

 Ciao Max, vuoi dire che non sempre funzia ?
L'espressione in questione elimina tutto ciò che è compreso tra '>' e '<'.
Ci sono casi in cui tale operazione non produce l'effetto voluto.
Ad esempio, se la applichi a 
  <INPUT NAME=">" >  bbb  <P>
ottieni
  <INPUT NAME="><P>
Per evitare questo inconveniente potresti modificarla in questo modo
  $html =~ s/(>|^)[^>]*?(<|$)/$1$2/sg ;
 
ma in questo caso avresti problemi con espressioni come
  <B>  3 > 2  </B>  
che è una sequenza HTML ben formata.
Max

 che è una sequenza HTML ben formata.
a quanto ne sapevo io NO
difatti lo sarebbe <b> 3 &#060; 2 </b>
-- 
§            ZeD             §
§      Up da 53 minuti       §
§         18/06/2004         §
§ S. Gregorio B.-S. Calogero §

 
Non conosco perfettamente le specifiche dell'HTML (mentre conosco quelle 
dell'XML), però sono convinto che lo sia perché
  1. E' una sequenza ben formata in XML
     (
http://www.w3.org/TR/2004/REC-xml-20040204/#syntax
)
  2. Il validatore di W3C la accetta come ben formata 
     (
http://validator.w3.org/check
)
Anzi, basandomi sul responso del suddetto validatore, direi che sono 
sintatticamente accettabili (per le specifiche dell'HTML4.0) anche:
   <B>  3 < 2  </B>
   <B>  3 & 2  </B>
che invece non lo sono in XML.
Max
Newsgroup: it.comp.lang.perl
Titolo: comando cgi da script perl

Salve,
dovrei mandare dei comenadi ad un dispositivo ( telecamera ip )....
Attualmente li mando attraverso un form html che spedisce dei valori ad 
uno script cgi...
<form id="nomeform" METHOD=POST 
ACTION="
http://172.16.52.110/command/presetposition.cgi
">
	<input type=hidden  name=PresetCall value="1,24">
	 <input type="submit" value="Pre-SET">
</form>
Posso fare la stessa cosa con uno script perl in modo da poter anche 
schedulizzare il comando?
grazie


Si, direi con il modulo LWP.
Chiamando lo stesso CGI indicato nel form con i parametri che ti servono.

ho trovato la soluzione....
se a qualcuno puo interessare...
form html
<form id="nomeform" METHOD=POST 
ACTION="
http://172.16.52.110/command/presetposition.cgi
">
	<input type=hidden  name=PresetCall value="4,24">
	 <input type="submit" value="Pre-SET">
</form>
la stessa cosa fatta con uno script perl
use warnings;
require LWP::UserAgent;
use HTTP::Request::Common;
my $browser = LWP::UserAgent->new();
my $url = '
http://172.16.52.110/command/presetposition.cgi
';
my $res=$browser->post( $url,
[PresetCall => ["4,24"]]);
#die "URL Error: ", $res->status_line unless $res->is_success;
print $res->content;
ciaoooooo!!!
Icestorm ha scritto:


altra possibilità, se non hai particolari esigenze di parsing e vuoi 
girare con uno *SCRIPT PERL* locale sul server :
@html = qx|GET 
http://172.16.52.110/command/presetposition.cgi|
;
niente moduli e tutto in una riga, anche se io preferisco di gran lunga 
la soluzione di Icestorm.
Ti ritrovera l'html gettato nell'array @html che potrai scorrerti a 
piacimento.
Esistono due programmotti compilati distribuiti con il perl che eseguono 
in maniera batch la GET e la POST. In qs modo ti togli dai gangheri il 
dover configurarti il tuo webserver (IIS-I-SUPPOSE) per gestire timeout 
lunghi per le sessioni cgi specifiche per il tuo scriptino.
Inoltre dati sono passati e ricevuti in aree di memoria e non trackati 
da vari form-cachers dei più diffusi browser.
In qs maniera è anche più semplice scriverti uno schedulatore(izzatore) 
-a parte il fatto che se usi un qls sistema windows puoi usare il suo 
*terribile* schedulatore chiamato : "operazioni pianificate" che ti 
permette schedulazioni multiple.. oppure se giri su linux vediti i 
comandi (eseguibili) AT, CRON e CRONTAB-
Altrimenti ci sono n-mila altre soluzioni.. da semplici, tipo crearti un 
task che sta lì e tramite la perlfunc WAIT continua ad eseguire la get o 
la post ad intervalli stabiliti, oppure implementare soluzioni 
intermedie con schedulazioni multiple.. o per essere Icestorm-like 
utilizzare moduli tipo : schedule::cron o schedule::at ... fai te.
(
http://search.cpan.org/~roland/Schedule-Cron-0.9/Cron.pm
 3***/10) o
(
http://search.cpan.org/~joserodr/Schedule-At-1.06/At.pm
 5***/10)..
ciao
mauro ha scritto:


grazie mille!!!
cmq con lo script che ho postato in precedenza va benissimo....
purtropopo devo usare windows e quindi l'ho pianificato con 
l'operazionia pianificate...
cmq grazie ancora
H A N N I B A L ha scritto:

Newsgroup: it.comp.lang.perl
Titolo: No paguemos por navegar !

Perdón por si molesta.
A todo el que quiera ganar dinero. Dejad un mensaje con el asunto
"información" en esta dirección 
yomi...@mixmail.com
 y recibiréis un e-mail
con información completa de las mejores maneras de hacer dinero en la red.
Además tendréis la posibilidad de crearos una página con los links a las
compañías a las q os halláis inscrito para tener un montón de referidos,
solo debes poner tus identificadores y desde el primer segundo q te des de
alta ya tendrás tu propia web. En el link de abajo.
Los que dicen que es mentira da la casualidad que no lo han probado...
--
yomismo
www.navegana.es/dinero/arimi.html
La mejor forma de ganar dinero en la red.
HAZ CLIC EN EL LINK

 wrote in message
NUYM5.105547$dT1.2...@telenews.teleline.es...


Newsgroup: it.comp.lang.perl
Titolo: GTK & Windows

Ammesso che esista, qualcuno sa dove posso trovare un ppm per ActivePerl
5.8.0 del modulo GTK-Perl?
Non mi rispondete 
www.google.com
 perchè ho già gurdato :).
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

 5.8.0 del modulo GTK-Perl?
http://www.cpan.org
Henryx
-- 
GnuPG fingerprint = 42F9 521B 63C7 89FE 354C  89FA 4E49 3E2D 2EB6 B014

 
http://www.cpan.org
Da quando in qua cpan ha un repository di ppm? <grin>
Cmq fin lì potevo arrivarci da solo (e sinceramente è stata la prima
cosa che ho fatto dopo aver cercato su google), ma visto che i moduli
che si collegano a librerie esterne (Win32::Gui, Net::Pcap, etc..)
riesco a compilari 1 volta su 5 (probabile che sono scemo io...) avrei
preferito avere un ppm già bello e pronto.


 riesco a compilari 1 volta su 5 (probabile che sono scemo io...) avrei
Come volevasi dimostrare, in una pausa a lavoro, ho provato a compilare
il sorgente scaricato da cpan.
Risultato: usa gtk-config per trovare la vers. delle gtk installate, e
sotto Win ovviamente qule comando non viene installato.
Cmq dopo un pò di ricerche (veramente poche) e aver letto alcuni post su
la mailing list gtk-dev, sono giunto alla conclusione che *attualmente*
non si possa usare gtk-perl sotto win.
Attendo smentite con speranzosa fiducia,

Newsgroup: it.comp.lang.perl
Titolo: spazi all'inizio di una stringa

ciao
devo rimuovere tutti gli spazi (anche i tab) all'inizio
di una stringa $s non vuota,
faccio:      $s =~ s/^\s//g;
ma elimina solo il primo spazio.
Cosa sbaglio ?
 Raffaello

 ma elimina solo il primo spazio.
$s =~ s/^\s+//g;
--
Michel Rodriguez
Perl &amp; XML
http://www.xmltwig.com

Il 10/10/03 alle 11.36.47, Raffaello Galli scrisse:

Hai provato con $s =~ s/^\s+//; ?
Per i tab dovresti prima convertirli in spazi.
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

 $s =~ s/^\s+//g;
Domanda: perchè il /g finale? Non deve togliere gli spazi solo
all'inizio della stringa? Se ci sono + righe nello scalare non c'è il
/m?


 $s =~ s/^\s+//g;
Lo sapevo che la soluzione era semplice ...
Grazie mille!
 Raffaello

Per i tab dovresti prima convertirli in spazi.
No, \s intercetta anche i tab.
Ciao.

 No, \s intercetta anche i tab.
Hai ragione! :)


...scusate....mentre si parla di regex....sono scarsissimo!!
come si costruisce, se è possibile (ma non è tutto possibile?!?)  una regex
che descriva un asterisco (*) all'inizio (e.g. *stringa) o alla fine
(stringa*) di una stringa? e se gli asterischi fossero due, uno all'inizio
ed uno alla fine (*stringa*)?
scusate l'intrusione
ste

ed uno alla fine (*stringa*)?
    /^\*quelcheč\*$/
In generale, se si ricerca un carattere speciale, basta prefissarlo con \.
Nel dubbio, puoi prefissare tutto quello che ti sembra pericoloso: se non lo
riconosce come sequenza particolare (\n, \t, ecc.) perl lo interpreta come
carattere letterale.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: COMPILATORE PERL

Salve, stň iniziando alcuni tutorial in perl per cercare di imparare questo
linguaggio,qualkuno saprebbe indicarmi un buon compilatore anche
shareware.Grazie.
--
Il mondo puň migliorare solo grazie a te.
By Hanonimo  Ž
^_^   
http://www.google.co.jp/
   ^_^


++++
Visto che dici di essere alle prime armi con il linguaggio, mi
permetto di metterti in guardia contro un fraintendimento comune.
I "compilatori" che vedrai nominati nel post indicato non renderanno
piu` veloce il tuo programma, ne` (nella maggior parte dei casi)
impediranno a terzi di appropriarsi del tuo codice. La loro funzione
e` quella di facilitare la distribuzione di applicazioni presso
clienti, persone che non hanno voglia di installare il Perl e i moduli
di cui il tuo programma fa uso, eccetera eccetera.
ciao,
S.

 shareware.Grazie.
1) il Perl e` nato come linguaggio interpretato, e non compilato (anche
se vi sono dei compilatori per perl);
2) le regole di costruzione di una parola italiana dicono espressamente
che la k ha un suono piu` duro di una c dura, e percio` saresti pregato
di scrivere stronzate[1][2] come quella qui sopra
Henryx
[1] intese come costruzione delle parole, non come senso della frase
[2] scusate il francesismo
-- 
Valentina: "Mi piace inventare gli spettacoli che voglio... quelli
che non riesco a vedere, cerco di sognarli..."
                                          Guido Crepax (1933-2003)

 di scrivere stronzate[1][2] come quella qui sopra
"saresti pregato di NON scrivere..."
Henryx ^^;


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

Questo newsgroup it.comp.lang.perl e' accessibile
attraverso Mailgate all'indirizzo:
http://www.mailgate.org/mailgate/it.comp.lang.perl
E' anche possibile inviare i propri contributi al newsgroup
attraverso messaggi di email indirizzandoli a:
 
it.comp....@mailgate.org
Un saluto
--
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
   Dario Centofanti  <da...@Pantheon.it> 
      Pantheon - Via del Tritone 132 
00187 Rome Italy - Phone/Fax +39 6 47823666
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


Newsgroup: it.comp.lang.perl
Titolo: Messaggio di errore mai visto prima

Ciao a tutti,
pochi minuti fa.. tac
Software error:
Only ASCII encoding allowed without perl 5.7.2 or higher. You tried:
iso-8859-1
Adesso devo scappare al lavoro..
Qualcuno di voi sa qualcosa?
Stavo usando un modulo che poi è scomparso.
Ho cgiesto di reinstallarlo..ma ecco che non va più.
Che hanno fatto secondo voi?
Installato un modulo vecchio o troppo nuovo?
See ya
--
www.pigmalion.info
www.pigmalion.info/perl/

iso-8859-1
google mi da 3 pagine, tutte codice.
Da quello che si capisce pure dal msg, secondo me sull'host hanno
reinstallato un modulo troppo nuovo per il loro interprete perl...
Boh!
Aspetto l'allineamento del fuso per una loro risposta.
--
www.pigmalion.info
www.pigmalion.info/perl/


La codifica dei caratteri ASCII prevede che i caratteri siano rappresentati
su un Byte usando 7 bits + 1 bit di parita' e siano indicizzati da 0 a 127.
La codifica "iso-8859-1" prevede che i caratteri siano rappresentati
sfruttando tutti gli 8 bits di un Byte, quindi indicizzando i caratteri da 0
a 255.
I caratteri che fornisce in piu' la codifica "iso-8859-1" rispetto a quella
ASCII sono tutte le lettere accentate normalmente non usate dagli
anglosassoni.
Probabilmente il modulo in questione contiene caratteri accentati, o non
anglosassoni ( 'c' con la cediglia ecc... ).
Quindi dato che il PERL ammetto set espanso di caratteri solo dalla versione
5.7.2 in poi se hai una versione precedente lui non li riconosce e si
rifiuta di caricare il modulo
ciao,
Nids
ps: un errore del genere in C non sarebbe ammesso. Il C imperterrito avrebbe
stampato una sequenza di caratteri incomprensibli senza fiatare :-)
pps: io amo il C

See ya
non hai spiegato niente. Posta il codice e ti saprò dire.
Per ora posso solo dirti questo:
- usi una versione di Perl inferiore alla 5.7.2
- Perl 5.7.2 e superiori usano UNICODE (ecco perchè iso-8859-1 che
sarebbe il codice della nostra tastiera :)
Newsgroup: it.comp.lang.perl
Titolo: fare GUI separate

Ciao a tutti, ho scritto un programmino che fa certe cose di cui non sto
a parlare. Dovendo scrivere una interfaccia grafica mi sono trovato di
fronte ad un serio problema: si puó in perl lasciare il cuore del
programma separato dall'interfaccia? Non sapendo come fare e volendo
rinunciare a lanciare il programma in pipe, ho integrato il tutto in un
unico file ma questo, ahimé, rende assai complicato lo sviluppo per il
futuro. 
Quindi come si fa a far comunicare due codici di perl in modo che le
variabili, le sub e le funzioni di uno siano visibili anche all'altro?
grazie
dawe

 ha scritto nel messaggio
news:1gfohoi.1k1vxp11bhoj6N%six_s...@libero.it...


Stiamo parlando di reference?
Credo che la risposta abbia piuttosto a che fare con moduli, librerie
e namespace. I reference possono anche entrarci, nel senso che per
fare una squadra ci vogliono anche le scarpe, ma non sono l'elemento
fondamentale.
Una risposta dettagliata sarebbe molto lunga (e tra l'altro non č
molto chiaro come si arrivi, senza alcun passaggio intermedio, dalla
separazione logica di programma e interfaccia alla divisione del
progetto in piů file). Conviene forse raccomandare la lettura di
perlmod e perlobj, e della documentazione delle funzioni use, require,
do ed eval, giusto come inizio.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: (imprecazioni censurate...)

 
visibile in 
http://www.newsland.it/nr/article-raw/it.comp.lang.perl/10296
il signal handler di SIGALRM non viene installato, ma eseguito per mancanza
appunto di questo carattere che ne ricaverebbe il reference.
Anche le costanti numeriche che dovrebbero terminare con NEWLINE sono da
correggere.
Adesso che so', staro' piu' attento, magari per postare cambiero' servizio.
Scusate se certi miei interventi possono aver causato confusione o
perplessita'.
Ciao a tutti.
Roberto.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Hai provato a raddoppiarli? Magari te li tratta come nelle stringhe
quotate...
Ciao,
   Flavio.

    Flavio.
Hai ragione!!
ho provato con l' occasione del post di
http://www.newsland.it/nr/browse/it.comp.lang.perl/10466.html
ed ha funzionato!!
Ciao

Newsgroup: it.comp.lang.perl
Titolo: Ricerca in file zippati

Ciao, ho la necessità di eseguire delle ricerche di stringhe
all'interno di file di testo (flat file).
Al momento uso
 
File::SortedSeek
 
ma dato la pesantezza dei file (diversi giga) volevo sapere se ci sono
moduli che permettono una ricerca dicotomica all'interno di file
zippati (non so neppure se sia possibile una cosa del genere ..)
 
Grazie mille
Fabrizio


Non è possibile senza decomprimere il file, però è possibile
decomprimerlo un /pezzo/ alla volta, e inoltre è ovviamente possibile
incapsulare questa logica in una libreria, in modo tale che a livello
di applicazione la cosa avvenga per te in maniera (semi) trasparente.
 
Questo modulo CPAN sembra fare proprio questo:
http://search.cpan.org/dist/Gzip-BinarySearch/
 
 
solo che usa gzip anziché zip.
 
Altra strada che puoi considerare è usare un file system compresso
tipo cloop, cramfs o SquashFS: rendi le cose ancora più trasparenti,
potendo accedere ai file come se fossero dei normali file di testo non
compressi, ed è anche più veloce.
 
Per contro, è una soluzione meno portabile rispetto a quella /tutto in
Perl/.
 
Meglio ancora sarebbe deserializzare i file su Berkeley DB, se puoi
permettertelo.

Newsgroup: it.comp.lang.perl
Titolo: [Rischio il linciaggio]: Random

Come si fa randomizzare un numero?
(scusate, ma ho perso gli appunti e non lo ritrovo più)


$variabile=rand 10000;
$variabile assume un valore tra 0 e 10000 compresi.

$num=int(rand 101);
ti genera un numero intero (int) da 1 a 100
Ciao
-- 
Posted from [212.141.54.101] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.perl
Titolo: Giorno della settimana del 1920.. 30..

come lo trovo con i moduli standard  ?
Il sistema che uso ora parte dal 1970! :-/
Grazie



Questo problema è stato trattato tantissime volte! :-)
Troverai risposte esaurienti su:
 
http://perl.it/documenti/faq/faqsearch.pl?q=date
by
	- Enrico

 ha scritto nel messaggio
news:20031104155905....@sorcinelli.it...



Troverai risposte esaurienti su:
http://perl.it/documenti/faq/faqsearch.pl?q=date
Grazie Enrico, ma a dire il vero non trovo niente per le date prima del 1970
che non richiedano l'installazione di moduli.
Oxy
by
- Enrico
Newsgroup: it.comp.lang.perl
Titolo: Script per prevenire il download di un file .rm ?

Come posso proteggere dei files RealAudio
dal download dacendo salva oggetto su disco ?
Mi consigliate un semplice script ?
(i files .rm sono si Xoom.it)
se conoscete un altro modo per proteggerli...
Grazie
--
******************************
* DjP@bL3                    *
*  
http://paolo20.tripod.com
 *
*  
pao...@freemail.it
       *
*  UIN ICQ : 11660099        *
******************************

 Grazie
non saprei io ci ho provato con delle gif...
credo che dovresti fare un script che legga in binario il file .rm
cosi l'utente non potra scaricare il file dato che è uno script?
ovvero sia quando cliccli su un link per vedere il file .rm parte lo 
script che te lo legge......
cmq non so se è una soluzione adeguata...

cosi l'utente non potra scaricare il file dato che č uno script?
ma su Xoom.it puņ mettere CGI suoi?
Phones

No infatti lo metterei su Tripod.com
pero' cliccare su un linc .....cgi o .pl
gia non ti fa scoprire il percorso del file .rm
che poi sta su xoom.it....


 Grazie
Semplice, non puoi.. Almeno non con uno script. In effetti, dal punto di 
vista del server il download per visualizzazione e il dowload per salvare 
su disco sono identici: nei due casi il server riceve una richiesta 
GET con l'url come parametro.
Quello che puoi fare, anche se ovviamente non č una protezione completa 
č agire come segue:
1. Usa uno script perl che agisce come un 'proxy' andando a cercare il file
    su xoom e ritrasferendolo. Questo 'nasconde' il vero indirizzo.
2. Nella pagina in cui ci sono i link, metti uno scriptino javascript che 
    ridefinisce la funzione del rightclick in modo da mostrare un msg 
    (vedi 
http://www.artofgregmartin.com
 per un esempio)
Questo non impedisce a qualcuno di salvare il file su disco, ma lo 
rende piů difficile....
-- 
Leo TheHobbit 
IRCnet #roma2
ICQ 56656060
e-mail: remove 
dont.spam.me
 from above address

 Grazie
Ciao,
 apparentemente il post precedente è andato perso quando il reader ha
crashato. Lo riscrivo. 
La risposta è semplice: non puoi. In effetti il server non può distinguere se la
richiesta GET che riceve è per vedere o per salvare su disco. Quello che puoi
fare è usare uno script javascript per disabilitare il rightclick e rimpiazzarlo con 
un messaggio che dice che non si possono scaricare i file. Ovviamente questo
non impedirà di farlo a chi vuole....


E se avessimo i diritti per cambiare i permessi sul server ?
se permettessimo solo l'esecuzione agli utenti...il realplayer funzionerebbe
lo stesso
disabilitando lettura e scrittura del file ?
Grazie di tutto
e scusate la mia ignoranza eheh

Newsgroup: it.comp.lang.perl
Titolo: CGI

Ciao a tutti. Domanda: io ho creato un .exe con Visual Basic e volevo che
questo .exe venisse eseguito alla pressione di un bottone in una pagina
html, come fare? Ho provato con un form (dando al bottone il value=submit)
ma non funziona perchè il .exe non ha bisogno di alcun dato di input. Grazie
a tutti coloro che mi aiuteranno. Ciao.

!

Il submit non lo devi mettere nel value, ma nel type. ;) Es.:
<form action="/bin/mioscript.exe" method="get">
<input type="submit" value="E clicca!">
</form>
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> FAQ di it.comp.lang.perl: 
http://www.borders.it/perl/faq/
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 >ma non funziona perchč il .exe non ha bisogno di alcun dato di input.


Sě, mi sono sbagliato; cmq non funziona lo stesso
;) Ok, dunque... hai installato un web server?


 >Sģ, mi sono sbagliato; cmq non funziona lo stesso


nt-server collegato ad internet
Quindi... che problema ti viene riportato di preciso?


 ha scritto nel messaggio
news:slrn97b7...@karma.italpro.net...


un'idea? Ciao.
No, a dire il vero... tra l'altro ho sempre usato Unix.
	Mi spiace, Michele.


un'idea? Ciao.
Premetto che io Apache lo uso sotto linux, e non sotto win. Cmq
evidentemente hai fatto qualche errore di programmazione nel tuo prog,
che sta li aspettando chissa' che cosa e non si chiude...
Il fatto che poi non si chiuda anche se tu chiudi la pagina e' del
tutto normale perche' il tuo programma viene avviato (potrebbe essere
definito un "processo figlio"...) dal web server su richiesta del
browser. Quindi una volta avviato del fatto che tu chiuda la pagina
non gliene puo' fregare di meno mi sa...
Saluti
       \||/
--oOOo--@ @--oOOo--
Squa
kra...@libero.it.CUT.TH.IS
http://www.poli.studenti.to.it/~s93146/
"per aspera ad astra"
Newsgroup: it.comp.lang.perl
Titolo: [URGENTE]gestione accesso con passwd di 20.000 utenti

Salve a tutti
vi scrivo per raccontarvi questo mio problema ...
Ho una comunità di circa 20.000 utenti che
vorrei gestire.. facendoli registrare e dando una user
e password per poi accedere ad una sezione del mio sito.
Il problema è il seguente...
io ho già un cgi che mi gestisce tutto.. ovvero:
-mi registra su un file di testo tutti i dati che desider..
-mi aiuta ad aggiungere o a togliere gli utenti
-mi fa la ricerca utenti.. etc etc
ma il problema è che siccome gli utenti sono molti
non ce la fa più...
io avrei bisogno di un cgi che archiviasse i dati su un database
mysql. purtroppo non ho trovato nessuna applicazione in merito
Se ciò non fosse possibile mi basterbbe che archiviasse i dati su
file splittati... così mi ritrovo il mio database diviso in parti +/- uguali
qualcuno sa darmi soluzioni in merito...
dispongo di cgi-perl, mysql, php3
Vi ringrazio molto
Saluti
                                renier


Prova a dividere il mappazzone in 25 file, uno per ogni lettera
dell'alfabeto con cui comincia la login dell'utente. In questo modo perň
non distribuisci uniformemente le login/passwd nei vari files.
Alternativamente (meglio) puoi usare una funzione hash sufficientemente
buona applicata sempre alla login (ad es la classica somma dei codici
ascii -32 di ogni carattere della login, passata in modulo), che ti
genera un numero uniformemente distribuito tra 0 e x; tale numero
generato lo prendi come indice per uno dei file che contiengono le
informazioni. Per x=49 (quindi in modulo 50), ad esempio, avresti non
piů di 400 record per file.
Scrivimi se ti servono info tecniche un po' piů dettagliate.
  Samuele

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

Salve,
Non capisco cosa fa questo pezzo di codice.
Qualcuno mi può aiutare ?
#****** BEGIN CACHE********
sub cache {
open(FIELDS,"<$fieldnames") or &error("Could not open $fieldnames");
@fields=<FIELDS>;
close FIELDS;
if (&fieldnames($value[0]) eq "true") {
$fields[0] = "$value[0]\n";
open(FIELDS,">$fieldnames") or &error("Could not open $fieldnames");
print FIELDS (@fields);
close FIELDS;
@value=();
&admin;
} else {
print "incorrect registration";
};
};
#****** END CACHE ********

 
--------------------------------------------------------------------------
       -- )     Luca Fini                            Tel: +39 055 2752 307
 ___    |\      Osservatorio Astrofisico di Arcetri  Fax: +39 055 2752 292
/   |   | |-_   L.go E.Fermi, 5 +-----------------------------------------
(___|___//___)  50125 Firenze  /   WWW: 
http://www.arcetri.astro.it/~lfini
 (_)      (_)   Italia        / e-mail: 
lf...@arcetri.astro.it
-----------------------------+--------------------------------------------
                              In a world without fences - who needs GATES?
Newsgroup: it.comp.lang.perl
Titolo: Creare un libreria.

Quando eseguo lo script 
TEST.PL
 ottengo il seguente messaggio d'errore:
"
lib.pl
 did not return a true value at 
test.pl
 line 1.".
Guardando gli esempi in giro sembra che non ci siano errori.
Ciao.
--------- 
test.pl
 -----------
require "
lib.pl
";
&stampa;
--------- 
lib.pl
 -----------
sub stampa {
 print "aaaaaaa";
}


Puoi usare require per indicare la dipendenza di "qualcosa" ma questo 
qualcosa deve tornare un valore "true" nel caso di un modulo o di uno 
script; per questo in 
lib.pl
 aggiungi un 1; alla fine del tuo codice.
Se vuoi creare una libreria, dicasi modulo, ti conviene rinominare 
lib.pl
 in .pm  perch? .pl, per i moduli, ? un'estensione per vecchie 
versioni di Perl. Potrai quindi scrivere
require lib;
senza dover specificare l'estensione tra i doppi apici.
Non che sia quest'ultimo il grande vantaggio, ma l'inizio per costruire 
meglio la libreria: nel tuo modo tutte le variabili definite in 
lib.pl
 
vengono poste sotto il namespace del programma principale (main)[1], 
probabilmente per applicazioni pi? complesse questo potr? essere fonte 
di problemi quindi ti conviene creare un nuovo namespace seguendo le 
istruzioni nella documentazione ufficiale, ovvero
perldoc perlmod
in particolar modo il paragrafo intitolato "Perl Modules".
Non dimenticare poi il pragma "use strict" nel tuo codice, o sar? pianto 
e stridore di denti...
Cya
Angelo
[1] Per maggiori info sullo scope delle variabili 
http://www.perl.it/documenti/articoli/namespaces/index.html
-- 
http://www.endum.net



A me funziona con un valore "true" alla fine della libreria:
1; # da inserire al termine del codice di 
lib.pl
 Raffaello

 }
Leggi:
	perldoc perlmod
	perldoc perlmodlib
Ciao,
 Emmanuele.
-- 
Emmanuele Bassi (Zefram)                 [ 
http://www.emmanuelebassi.net
 ]
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

 }
1;
Leggi:
	perldoc perlmod
	perldoc perlmodlib
+++
Tra parentesi, poi, quel codice è d'un brutto che acceca.


Newsgroup: it.comp.lang.perl
Titolo: Perl per windows

Dove posso scaricare una versione per il perl per windows 98 ??
Vorrei che fosse una specie di "easyphp", con apache e mysql (o
postgresql) integrato. Se non è possibile mi basta avere le librerie
fondamentali, con l'eseguibile del perl il tutto in un file di
installazione.
Grazie

 Dove posso scaricare una versione per il perl per windows 98 
Guarda se Activeperl (
http://www.activestate.com/Products/ActivePerl/
) puņ
andarti bene.
Ciao
ste
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 postgresql) integrato.
Puoi provare questi 2 prodotti Indigostar:
http://www.indigostar.com/microweb.htm
http://www.indigostar.com/indigoperl.htm
-- 
$_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572,,($_,$b)=
split?#?;@b=split?;?;map{$c.=$_,$d.=chr$b[$e++]+ord}split??,pack'H24',$b
;chop$d,print$c.chr(32).$d


Scarica ActivePerl. Lo trovi un po' dappertutto
Andrea
Newsgroup: it.comp.lang.perl
Titolo: Gestione Date

Devo prevedere dei valori di borsa con un algoritmo di BackProp, previsione 
che è funzione della data.
Come posso implementare la funzione che dato oggi, giorno di computo, e 
prevedo a 5 gg , se 8/02/06 +5gg = sabato o domenica (o magari festivo 
europeo ) prevedi al Lunedi successivo o salta il computo ?
Thks
PS Scusate per la richiesta pseudo idiota, ma sono in in fase di defaiance 

europeo ) prevedi al Lunedi successivo o salta il computo ?
Penso che il modulo Date::Calendar abbia qualcosa del genere
(Date::Calendar::add_delta_workdays), o comunque possa esserti di aiuto.
In alternativa, puoi usare uno dei moduli per la gestione di date:
Date::Calc, Date::Manip, ecc.
Ciao.

 ha scritto nel messaggio 
news:ogdju1h1r7sqci2oh...@4ax.com...
