mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Riflessione per il weekend (sulle matrici)

Salve
volevo realizzare una pseudo-matrice usando hash e liste:
esempio :
$matrix{$i}=\@vettore;
l'intera matrice potrebbe avere il seguente aspetto :
(i numeri dentro le liste anonime sono scelti a caso)
%matrix = (
	1, [1,2,3,1,5],
	2, [5,4,3,5,1],
	3, [3,3,3,2,3] );
C'e' un metodo migliore ?
 Raffaello

 	3, [3,3,3,2,3] );
Perche` usare una hash per poi usare chiavi numeriche?
Puoi usare un array di arrayref modificando di poco il
codice:
@matrix = (
   [1,2,3,1,5],
   [5,4,3,5,1],
   [3,3,3,2,3] 
);
Gli indici partono da 0, ma e` molto piu` comodo, IMO.
Senza contare che nel caso della hash useresti una numerazione
che parte da 1 per le righe, ma che parte da 0 per le colonne
(a meno di non ridefinire $[, ma non lo consiglio).
ciao
Stefano

 
Non capisco perché tirare in ballo gli hash e non usare, invece, un array
di (reference di) array.
 my @matrix = ( [1,2,3], [1,2,3] );
 my $e = $matrix[1][1]; # oppure $matrix[1]->[1], che è equivalente
  perldoc perllol
    Manipulating Arrays of Arrays in Perl
  perldoc  perldsc
       Perl Data Structures Cookbook
Max

Newsgroup: it.comp.lang.perl
Titolo: catturare output script

Ecco il mio problema:
Ho uno script(
script1.pl
) che mi restituisce 3($numero),lo faccio terminare
con exit($numero);
giusto?
C'è un altro script (
script2.pl
) che esegue il precedente e vuole
"catturarne" l'output.
Come faccio?![$valore=system("
script1.pl
");]
Aiutatemi, perfavore!
Grazie a tutti!
Ciao Paolo

paolo wrote:

Il risultato di system va diviso per 256 (o shiftato a destra di 8 bit se
preferisci essere oscuro)
quindi:
$retval = (system '
script1.pl
') / 256;
o
$retval = (system '
script1.pl
') >> 8;
che probabilmente salvera' qualche nanosecondo ;)
Hai mai assaggiato perldoc?
$> perldoc -f system
Ah, tanto per essere puntigliosi... per output in genere si intende quello
che un programma stampa, mentre quello che ti serve a te si chiama return
value.
ciao

 ha scritto nel messaggio
news:bag902$1qtr$1...@news5.isdnet.net...

Newsgroup: it.comp.lang.perl
Titolo: Problema Perl/Netscape

Ho due quesiti da porvi:
- Perchè a volte Netscape (3.0), chiamando uno script CGI in Perl,
visualizza
il messaggio d'errore "Document contains no data"?
Il problema si presenta quando chiamo in locale (server ovviamente
installato) uno script
contemporaneamente con 4 browser (2 x IE, 2 x Netscape). Da cosa potrebbe
dipendere???
- Inoltre: come posso controllare che uno script che fa uso di un file (x
lettura e modifica) non dia problemi se chiamato contemporaneamente da +
browser? Come si aggira questo problema??
Un "grazie" di cuore a tutti!

net, perche' non usi il tuo nome vero?
Il problema che hai e' descritto un po' vagamente. Intanto il server sta
su NT/95 o su UNIX? 
L'unico consiglio generale che mi sento di darti e di verificare che lo
script emetta come prima cosa il tipo MIME:
print "Content-type: text/html\n\n";
se questo non e' il problema posta ancora con dovizia di particolari.
Luca


 Un "grazie" di cuore a tutti!
Figurati fa sempre piacere parlare con una net :)
					Ciao
					  Davide Giansoldati

browser? Come si aggira questo problema??
Devi "lockare" il file, in modo che un solo processo per volta possa accedervi
in scrittura. Ad esempio puoi fare:
for ($i=0; $i<5; $i++) {
    if ( open(DBASE, '>prova.dat') ) {
        flock (DBASE, 2);      # Lock esclusivo
        print DBASE "Buuuuuuu\n";
        flock (DBASE, 8);      # Unlock
        close (DBASE);
    } else {
        sleep 3;
    }
}
Questo brano di codice apre (e "locka" esclusivamente) un file. Se esso risulta
gia` in uso, attende 3 secondi e riprova, fino ad un massimo di 5 tentativi,
dopo di che desiste, in quanto il file potrebbe non risultare accessibile per
altri motivi.
	Miky.
-- 
Michele Beltrame
Italpro - Power Web Services
mi...@io.com
http://www.italpro.com/mb

 Figurati fa sempre piacere parlare con una net :)
Meglio Vito, dai...

mi...@io.com
 wrote:
 >    if ( open(DBASE, '>prova.dat') ) {
 >        flock (DBASE, 2);      # Lock esclusivo
Sbaglio o qui in mezzo c'e` la possibilita` di una race condition?
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

 Sbaglio o qui in mezzo c'e` la possibilita` di una race condition?
non credo, perche' il flock, contrariamente a quanto il nome potrebbe
fare intendere, non locca e basta, bensi' implementa l'esclusione del
processo dalla zona critica per il tempo necessario
Luca

pas...@eunet.no
 wrote:
 >>  >    if ( open(DBASE, '>prova.dat') ) {
 >>  >        flock (DBASE, 2);      # Lock esclusivo
 >> Sbaglio o qui in mezzo c'e` la possibilita` di una race condition?
 >fare intendere, non locca e basta, bensi' implementa l'esclusione del
 >processo dalla zona critica per il tempo necessario
Intendevo tra l'open (che ritorna errore se il file e` bloccato) e il
flock.


Newsgroup: it.comp.lang.perl
Titolo: Eliminare <>

Ho una variabile che può contenere "<>" come posso cancellarle?
Grazie in anticipo!!!

 Grazie in anticipo!!!
s/[<>]//g;
-- 
Oramai che i baci tuoi piu` non mi sazian
cerchero` un'altra donna dentro ai sogni di Tarzan
Newsgroup: it.comp.lang.perl
Titolo: DBI o DBD connessione a db mySQL

Salve a tutti,
premetto che stò iniziando a studiare Perl in questi giorni. Ho cercato in
tanti siti qualche esempio pratico su come ci si può connettere al proprio
db di tipo mysql, purtroppo non ho trovato nulla, se non la sintassi.
Qualcuno mi sa dare qualche esempio su come collegarsi ad un db mysql?
Mi spiego meglio: stò costruendo il mio sito su 
www.virtualave.net
 ed il db
si chiama ordini. Ho provato degli esempi per la connessione ma pare non
funzionino :(
Potete darmi una mano?
Grazie a tutti e ciao, :)
Gilberto.

Qualcuno mi sa dare qualche esempio su come collegarsi ad un db mysql?
Ponendo che il database si chiami "libri" e si trovi su "
db.virtualave.net
",
l'utente sia "gilberto" e la password "baia" puoi connetterti cosi`:
-----
$dbh = DBI->connect("DBI:mysql:libri:
db.virtualave.net:3306
", "gilberto",
  "baia");
if (!defined $dbh) die "Errore di connessione!";
-----
3306 e` la porta, raramente cambia ed in quel caso immagino il provider
te lo segnali. Una query ad esempio la fai con:
-----
$sth = $dbh->prepare("select titolo, editor from paperback
  where isbn like "88%");
if (!defined $sth) die "Errore".$dbh->errstr;
$sth->execute or die "Errore".$dbh->errstr;
# Mette tutti i titoli in un array bidimensionali
# di cui e` ritornata una reference ($titoli)
$titoli = $sth->fetchall_arrayref;
-----
Alla fine la connessione andrebbe chiusa con:
$dbh->disconnect;
	A presto, Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

 ha scritto nel messaggio
news:slrn9fn5...@leah.italpro.net...


!
Ciao Michele,
sapendo per certo che i tuoi suggerimenti sono precisi al millesimo, ho da
dare una brutta notizia: non funziona. Viene segnalato il problema seguente,
che secondo me vuol dire che il server non ha i moduli DBI, DBD!
Here you can view any recent CGI errors that were logged.
Can't locate DBI.pm in @INC (@INC contains: /usr/libdata/perl/5.00503/mach
/usr/libdata/perl/5.00503 /usr/local/lib/perl5/site_perl/5.005/i386-freebsd
/usr/local/lib/perl5/site_perl/5.005 .) at vediDBI.cgi line 10.
BEGIN failed--compilation aborted at vediDBI.cgi line 10.
Mi sai dare qualche indirizzo Internet che sianofree e che programmino in
Perl e ke abbiano i suddetti moduli?Ancora grazie, :)Ciao.

Perl e ke abbiano i suddetti moduli?Ancora grazie, :)Ciao.
In effetti DBI non e` installato, immagino che pero` a questo punto
non lo sia nemmeno mySQL... ;)
Non saprei indicarti provider free che offrono mySQL+Perl, anzi ho
come idea che non ce ne siano. Potresti tuttavia trovarne qualcuno
a pagamento: se hai bisogno di poco spazio non dovresti spendere
molto.


Ciao Michele,
grazie per i tuoi suggerimenti. Cercherò se da qualche parte trovo qualche
sito in qui provare. Oppure proverò sul mio sistema, io ho montato sia mysql
che perl: su Win2000.
Ciao, :)
Gilberto.
Newsgroup: it.comp.lang.perl
Titolo: Perl per Windows98 e per WindowsNT

Da poco tempo mi sono messo a studiare il Perl usando il sistema operativo
Linux. Pero'  visto che a casa ho un secondo calcolatore con Windows98
vorrei poter scaricare da Internet la versione aggiornata del Perl per i
sistemi Win. Qualcuno sa il sito da dove poterla scaricare ?  Ho controllato
sul sito 
www.Per.com
 ma mi sono un po' perso !!!!!
Un grazie in anticipo da Walter !!!!

Vai su 
http://www.activestate.com
 : farai molto prima.

-- 
	Francesco Poggio





IndigoPerl

Newsgroup: it.comp.lang.perl
Titolo: dimensioni di una directory

Come faccio a determinare i bytes di una directory in  usando Perl?
Se lo sapete mi fate un favore.

 
La domanda non sembra chiarissima. Credo di aver capito ti serva un
meccanismo per calcolare l'occupazione dei file contenuti in una directory
e (presumibimente) nelle sue sotto-directory. E' così?
Se ho capito bene, una cosina del genere dovrebbe fare al caso tuo:
 
 sub dirsize {
   my $dir = shift;
   return -s $dir unless -d $dir;
   opendir DIR, $dir; 
   my @files = grep { !/^\.\.?$/ } readdir DIR;
   closedir DIR;
   my $size = -s $dir;
   $size += dirsize( $dir."/".$_ ) for @files;
   return $size;
 }
In alternativa puoi fare qualcosa di equivalente usando File::Find.
Max
Newsgroup: it.comp.lang.perl
Titolo: ! Sendmail Vs. Net::SMTP

Salve,
E' un 15gg. che studio il perl e mi piace moltissimo, anche se la
somiglianza con il C alcune volte inganna parecchio!! (alcune cose si
scrivono nello stesso modo ma hanno due significati differenti).
In questi gionri mi sto dando anche ai CGI, ho riempito il mio sito di
questi scripts !!! Ho anche fatto un FORM per inviarmi una e-mail. In altre
parole quello che viene scritto in quel form mi viene inviato in posta
elettronica.
Per fare cio' ho usato Sendmail. Il mio spazio e' su piattaforma UNIX ed il
tutto funziona benissimo.
Il motivo per cui vi scrivo e' perche' ho sentito parlare di Net::SMTP. Mi
pare di aver sentito che e' compatibile con i sistemi NON unix-like. Vorrei
sapere se con questo termine si intende :
1) sendmail spedisce solo da unix a unix
2) sendmail spedisce solo da unix, ma a qualsiasi sistema.
Se il problema di compatibilita' di sendmail riguarda solo il server
utilizzato per inviare la posta, beh, allora non dovrei preoccuparmene,
almeno fino a che non faro' programmi commerciali, no ?
Ah, gia' che ci siete che database mi conviene imparare? Il mio host non
prevede alcun supporto di database, cosi' dicono, cosa posso fare ?!?
Alex

 prevede alcun supporto di database, cosi' dicono, cosa posso fare ?!?
Comincia dal linguaggio SQL.
-- 
Ciao, Maurizio.

Comincia dal linguaggio SQL.
E' sempre supportato ?!? La ditta che mi hosting non fornisce alcun supporto
di database per i loro server Unix, mi chiedevo se in Unix esistono dei
database standard che sono sempre presenti. In questo modo potrei
utilizzarlo anche io.
Grazie,
Alex

prevede alcun supporto di database, cosi' dicono, cosa posso fare ?!?
Usa il pacchetto DB...
-- 
ciao, | * The Internet is full. Go away.  -- Joel Furr *
Marco | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

 utilizzarlo anche io.
Non ci sono database std su UNIX, praticamente tutti i DB relazionali
funzionano con una qualche variante piu' o meno proprietaria di SQL
-- 
Ciao, Maurizio.
Newsgroup: it.comp.lang.perl
Titolo: L'utente senza casella postale.

Salve a tutti sono un pivellino Linux,
non riesco a creare la caesella di posta per gli utenti presenti su questo
computer (root esclusa).
    Dopo aver creato un nuovo account con il comando adduser o useradd ho
tentato di spedire delle mails a questi utenti, ma tutti i programmi elm,
mail, mailx,... mi restituiscono il messaggio utente sconosciuto e rimandano
indietro le email alla root.
Sono andato a vedere nella cartella /var/spool/mail dove sono normalmente
contenuti gli account di posta dei vari utenti, trovandoci le sole caselle
root e postmaster.
Ho creato due file vuoti con i nome degli utenti impostando le
caratteristiche dei files con il comando chmod e chgrp per rendeli identici
a quelli già presenti, ma è stato tuto inutile.
    Ho letto la manpage di Sendmail e di newaliases per vedere come si
potesse creare un nuovo alias. Seguento le indicazioni ho aperto il file
/etc/aliases (vuoto fino a quel momento) ed ho aggiunto la riga
Nomeutente: aliasutente
ed ho reinizializzato il database degli alias con newaliases.
Fallito anche questo tentativo non so più dove mettere le mani, spero quindi
nelle vostre conoscienze sicuramente più approfondite delle mie.
Anticipatamente ringrazio per ogni possibile aiuto.
    Lorenzo
    E-Mail: 
ita...@technologist.com

ciao
prova a fare 2 cose
1. reinstallare sendmail
2. hai configurato la rete del tuo pc linux?
usa netconfig e' un wizard che ti guida nel settaggio
direi che il problema e' tuttto li' occhio e croce hai una rete loopback e forse
ti sei "dimenticato" di dirlo a linux
ciao
        Davide
Newsgroup: it.comp.lang.perl
Titolo: Problems with H2ph

.
<BR>I converted the ipc.h and sem.h libraries, and all the others, using
the H2Ph tool. But when I call the libraries in my program <I>(require
"sys/
ipc.ph
"; require "sys/
sem.ph
"),</I> the compiler finds many errors,
due to the
<BR>fact that the h2ph tool doesn't work correctly. Where can I find all
the *.ph files without errors?
<BR>Where can I find <U>the original *.ph files</U>? (Without using converting
utilities?)
<P>I hope that someone will reply soon...
<BR>Thank you.
<P><I>Nicco</I></HTML>
--------------257BE79C0B75BE296362CA30--

 files? (Without using converting utilities?) 
There are no "original" files; these files are created from the .h files
on your system - which may have different definitions than another system
has, alas. 
If you can see why h2ph is having troubles, you may be able to fix it.
Send your patches to the Perl developers using the perlbug program.
You may be able to fix up the .ph files by hand. This can be tedious and
error-prone, which is one reason why h2ph was created. 
You may be able to use the IPC::SysV module or other modules from CPAN. 
This is probably the best way.
 
http://www.perl.com/CPAN/
If all else fails, you might be able to use h2xs to make a module of your
own. 
Good luck!
-- 
Tom Phoenix           
http://www.teleport.com/~rootbeer/
root...@teleport.com
  PGP   Skribu al mi per Esperanto!
Randal Schwartz Case:  
http://www.rahul.net/jeffrey/ovs/
              Ask me about Perl trainings!
Newsgroup: it.comp.lang.perl
Titolo: Conversione da Lower a Uppercase

PLEASE - REMOVE 'nospam' from the mail address!!!
Ciao a tutti.
Chi mi sa aiutare?
Devo convertire, all'interno di un programma perl, l'input ricevuto da
un campo di input di una pagina html in maiuscolo, indipendentemente da
come sia stato digitato.
Ho provato con
$var = substr($oldvar,-0,40) =~ y/a-z/A-Z/;
ma se faccio il test sulla lunghezza della variabile vedo che e`
arricchita di tanti blank, se e` piu corta di 40, oppure mi contiene il
carriage return e non mi consente di validarla.
Qualsiasi aiuto sara` apprezzato.
Ciao e grazie.
Alex
                          \|/
                         (@ @)
---------------------oOO--(_)--OOo----------------
Alessandro Feltrin - C&M S.p.a. Tel. 011-7767877
		     Torino - C.so Svizzera, 185
		     E-Mail 
afel...@c-m.it

 carriage return e non mi consente di validarla.
Francamente, non vedo dove  sia il problema.
Se vuoi convertire in minuscolo:
$oldvar =~ y/a-z/A-Z/;
se vuoi togliere il terminatore di linea:
chomp $oldvar;
O tutto insieme:
chomp($var=($oldvar =~ y/a-z/A-Z/));
Quello che fa il blank fill e' substr, di cui hai bisogno solo se
vuoi una stringa di 40 caratteri (il che non e'  nelle spec del tuo msg).
Cheers,
	Alessandro
---
Alessandro Forghieri		Site administrator Nouvelle srl
Email: 
a...@orion.it
		Voice: 	+39 59 345767
Via Giardini 460		Fax:	+39 59 343822

Hai perfettamente ragione. Ho consultato il Camel e ho trovato la
formuletta che mi serviva:
($var = $var1) =~ y/a-z/A-Z/;
e con quella piazzata in ogni dove, ho brillantemente risolto il mio
problema.
Sei stato comunque molto gentile. Grazie e....
a risentirci.
Buone vacanze.
-- 
PLEASE - REMOVE 'nospam' from the mail address!!!


Newsgroup: it.comp.lang.perl
Titolo: Funzione "copia", "cancella" "muovi" e simili.

sbaglio o perl non ha funzioni dedicate?
devo aprire il file e passarne il contenuto
sul target per poi cancellare il vecchio file?
grazie
--
Ciao
The Bos
the-bos#
axelweb.com
http://the-bos.axelweb.com

 sul target per poi cancellare il vecchio file?
Per muovere (rinominare) file (o directory):
 perldoc -f rename
 
Per cancellare:
 perldoc -f unlink
Per copiare:
 perldoc File::Copy
Max

 wrote in message
wJkA6.12336$k53.2...@news1.tin.it...

Newsgroup: it.comp.lang.perl
Titolo: come leggere una pagina web?

Vorrei leggere una pagina web in perl: come fare?
Sto scrivendo una agenda (free e open) e vorrei che stampasse alla fine
le previsioni che prende da una pagina di una sito ma come leggere quella
pagina?
Grazie in anticipo, Mairo.

 wrote in message
news:pan.2002.10.09.21...@libero.it...


 
Ti ringrazio di avermi risposto anche questa volta!
ho provato quanto mi hai consigliato,
ho provato a vedere un pņ di esempi su internet ma nulla!!!
Un esempio che sembra funzionare l'ho riportato di seguito ma mi da un
altra pagina!
Cosa non funziona?
Grazie ancora per il tuo aiuto!
MArio.
-===============================================================================00
use LWP::Simple;
use URI::URL;
require LWP::UserAgent;
$ua = LWP::UserAgent->new;
$url = url('
http://notizie.virgilio.it/meteo/cgi/meteo.cgi?ccat=13389&lv=5&vis=1&tp=1'
);
$url->query_form(query => 'ghost');
$html = get($url);
print $html;

 ho provato a vedere un pň di esempi su internet ma nulla!!!
forse ti basta solo un:
use LWP::Simple;
$page = get('
http://notizie.virgilio.it/meteo/cgi/meteo.cgi?ccat=13389&lv=5&vis=1&tp=1'
);
....
cosě da poter poi lavorare su $page come meglio credi!
Ciao
--ev

 wrote in message news:0b64oa...@192.168.1.100...


Newsgroup: it.comp.lang.perl
Titolo: Richiamare un eseguibile

Salve a tutti, come faccio a richiamare un eseguibile che sta su un'altro pc
in rete?
Io ho provato con il comando exec mettendo tutto il path di rete ma con poco
successo. Mi potreste dare un consiglio di come fare?
Grazie a tutti
Michela

 rete ma con poco successo. Mi potreste dare un consiglio di come fare?
Di che cosa stai parlando?
Usi unix, usi un altro sistema operativo o usi WinDOS?
Una cgi o uno script?
<palla_di_vetro>
Chi non specifica l'os in genere usa WinDOS (perche' non conosce altro?)
In questo caso se parli di uno script esprimi l'UNC utilizzando '/'
invece di '\'.
Se invece parli di una cgi sotto IIS sotto NT allora e` un limite di
IIS, che definisce l'utente http (che istanzia il processo) come un
utente locale del server NT.
</palla_di_vetro>
-- 
Oramai che i baci tuoi piu` non mi sazian
cerchero` un'altra donna dentro ai sogni di Tarzan
Newsgroup: it.comp.lang.perl
Titolo: CGI e Database

Premetto che sono un principiante.
Come faccio a fare l'interrogazione di un database con un programmino perl?
Devo usate ODBC? Grazia per qualsiasi suggerimento.
Golia

Golia,

  Cerca, leggine la documentazione ed usa il modulo Win32::ODBC.
	Alla prossima,
		Marco

 Marco
Ciao, Ezio Bonsi


http://www.faqit.to/perl/odbc/access1.html
Ottimo, preso anche per la sezione link di perl-it. ;)
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!
Newsgroup: it.comp.lang.perl
Titolo: Empty compile time value given to use lib at ....

Ho tentato di fare questo:
$wd=foo;
use lib $wd;
non si può fare? oppure il perl si becca lo stesso il path? così salta 
la precompilazione e le ottimizzazioni?
scusate il messaggio telegrafico ma sto lavorando alacremente...	:)

 scusate il messaggio telegrafico ma sto lavorando alacremente...    :)
Non ho capito quest'ultima domanda: forse devi sacrificare parte della 
tua produttività lavorativa a favore di un po' più di elaborazione ;-)
Ciao,
Emanuele.

 Emanuele.
:)	in realtà ho immaginato subito che la variabile non fosse valutata in 
fase di compilazione. Poi stavo delirando circa l'esistenza di una 
direttiva che potesse far eseguire lo script in modo puramente 
interpretato, senza la precompilazione da parte dell'interprete... e 
quindi senza ottimizzazioni	:)
Grazie della dritta	;)

 definire un package?
I blocchi BEGIN puoi usarli dappertutto (anche dentro una eval($string)) 
e puoi anche utilizzarne più di uno, nel qual caso verranno eseguiti 
(non appena incontrati durante il parsing del file) nell'ordine in cui 
compaiono nel codice.
Ciao,
Emanuele.

Newsgroup: it.comp.lang.perl
Titolo: AIUTO PRG IN PERL

Salve a tutti!
ho necessita' urgente di un programmino urgente per il mio web.
Io non conosco il perl e non so come farlo.
Il programma verrà richiamato con una URL di questo tipo:
http://www.mioserver.com/cgi-bin/programma.pl?a=12345&b=1234567&c=2jj
dove la variabile a puo' assumere due valori diversi e cioe': a=123455 
(un numero) oppure a=KO (una stringa di due caratteri).
A seconda del valore che assume la variabile il programma mi deve 
generare una pagina html o l'altra.
In tutte e due le pagine mi serve l'output della variabile b.
Qualcuno puo' farmi questo programmillo ???
Vi ringrazio infinitamente per l'aiuto.
P.S. per favore rispondetemi solo in email.
grazie mille!
-- 
-------------------------------------------------------------- 
Davide Ardizzola 
- Milano - ITALY 
ICQ 5065835 
-------------------------------------------------------------- 



 grazie mille!
Traduzione => "Io non ho tempo di leggere il ng, imparare
il perl, o un altro linguaggio, ma suppongo che le
teste di cavolfiore che se ne stanno sul NG non abbiano di
meglio da fare che scrivere i miei programmi basandosi su una vaga
descrizione di quello che voglio fare, e che mi vogliano anche levare
l'incomodo di guardare se mi hanno risposto scrivendomi privatamente.
In ogni caso, metto il followup a poster."
Ti suggerirei un'attenta rilettura della netiquette.
Cheers,
	Alessandro
Newsgroup: it.comp.lang.perl
Titolo: aiutino Perl

Ciao a tutti, 
ho creato un programmino per il download delle pagine HTML (simile al
wget di linux) e fin qui nessun problema...
ora però ho anche la necessità di scaricare file binari (tipo
ZIP)...come posso fare?
Grazie per l'aiuto...

ZIP)...come posso fare?
Se il protocollo è sempre http, non vedo la differenza, per quanto riguarda
lo "scaricare": si scarica tutto allo stesso modo. Di più, senza sapere
quali moduli usi e che cosa fai, non è possibile dire.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: Pianificare operazioni

Ciao a tutti,
ho fatto uno script che mi manda via e-mail alcune info sul server.
A voi sembrerà ridicolo ma non so come mandarlo in esecuzione in modo
pianificato.
Ho cercato su cpan qualche modulo ma non l'ho trovato
Ah, ovviamente sono su winxp e le operazioni pianificate non mi funzionano
(adesso non vi sto a spiegare il motivo. Vi annoierei), perchè con linux non
avrei avuto problemi
grazie della pazienza
sub
--
Tsum vider zeen
-------------------------------------
http://www.kitesnow.it

 avrei avuto problemi
E' ovvio che su Linux avresti usato cron e fin qui non ci piove :-)
Su WinXP purtroppo conosco solo il metodo delle "Operazioni pianificate", 
non ne conosco altri.
A meno che non trasformi il tuo programma in una sorta di "servizio" di 
Windows sempre attivo, ma mi sembra un discreto spreco di risorse.


Non ti funziona neanche il comando AT ?

Newsgroup: it.comp.lang.perl
Titolo: collegamento oracle.

Salve.
E' possibile in perl collegarsi ad un database oracle senza doversi
installare il client?  

 installare il client?
Non che io sappia.
Mi pare che il modulo DBD debba per forza avere dei componenti client 
installati.
Al limite si puň passare da ODBC, magari essiste un driver ODBC minimo da 
installare. 

Icestorm wrote:

E' una tragedia.
Per collegarmi ad oracle devo per forza installarmi il client, sia che
usi perl sia che usi php sia che usi python.
Che palle.

 Che palle.
E che ti aspetti da un "database" che è una delle cose meno user-friendly 
che io abbia mai visto? :-)
Fidati Oracle usalo solo se è proprio necessario (database di dimensioni 
mooolto grosse o progetti già esistenti in cui non conviene cambiare db).

 Che palle.
Potresti provare l'orcale instant client, ma nn so se va con i dbi:
io su linux ci ho rinunciato..
Ti dirņ di pił: proprio sotto linux devi stare attento anche alla versione 
che metti,
perchč puņ avere incompatibilitą, ad sesmpio sui dblink.
io a lavoro ho dovuto mette la versione 9.0.1.0, per collegarmi a oracle 8 e 
8i.
Su windows avevo gią il client oracle installato, per cui non ho avuto 
problemi.
bye ;-)
Newsgroup: it.comp.lang.perl
Titolo: Problemino da novizio

 stringa una parola, in particolare
   Ogni distribuzione del Perl contiene la piu` ampia manualistica 
/on-line/ possibile. Ad essa si puo` accedere mediante il programma 
/perldoc/. Nel tuo caso specifico:
	$ perldoc -f substr
	$ perldoc -f length
--
Alla prossima,
Marco

Marco Natoni wrote:

Comunque per il suo problema meglio:
perldoc -f perlop
con dentro la documentazione su 
s/PATTERN/REPLACEMENT/egimosx
-- 
Saluti,
Giancarlo

Newsgroup: it.comp.lang.perl
Titolo: approssimare un numero

salve, ho un problemone... ;-)
devo approssimare un numero alle prima decimale come faccio???
guardando nelle varie guide... sembrerebbe dover essere cosě:
$ciao="22.45";
$approssimato=printf("%.1d", $ciao);
print "$approssimato\n";
ma non funziona!
mi potete aiutare?? (sarebbe molto gradito un esempio... e non un "perldoc
printf"...)
grazie mille
saluti e buone feste
Francesco

 $approssimato=printf("%.1d", $ciao);
$approssimato=sprintf("%.1f", $ciao);
ciao, marco
--
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/

$approssimato=printf("%.1d", $ciao);
sempre se non ricordo male (miss Juliet Alzheimer?) printf è dichiarato come 
void printf(...), ossia non restituisce un bel niente
mi sembra più sensato:
wsprintf($approssimato, "%.1d", $ciao);
in C funziona ;)
scherzi a parte, al momento mi manca Perl e non posso provarlo

wsprintf($approssimato, "%.1d", $ciao);
Beh, diciamo sprintf() anziche' wsprintf(). ;-)
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Visita il sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

Newsgroup: it.comp.lang.perl
Titolo: cercare una stringa in una lista

Salve a tutti,
non esiste un modo sintetico per cercare una stringa in una lista?
@lista=~/stringa/ non funziona...
Donato

 wrote in message
9qsjrb$qmt$1...@serra.unipi.it...

Dipende:
se pensi di dover fare spesso ricerche all'interno
della lista, allora ti conviene costruire una hash di supporto
con qualcosa come:
my %is_in_lista = ();
foreach( @lista ) { $is_in_lista($_)++; }
e poi il controllo diventa
if ( $is_in_lista( $elemento )) ....
Se invece la ricerca va fatta una sola volta, allora, ancora
una volta, dipende dalla lista. Se hai memorizzato gli elementi
in ordine allora puoi applicare la ricerca dicotomica, altrimenti
devi scandire l'intera lista e fermarti quando trovi l'elemento.
ciao
Stefano

 ha scritto nel messaggio
news:9qsjrb$qmt$1...@serra.unipi.it...

Newsgroup: it.comp.lang.perl
Titolo: Un aiuto per SCRIPT

Salve ho un problema per me insormontabile
Ho creato un file "script" stupidissimo che dando il comando
CERCA nomefiledacercare ricerca il file digitato.
Il problema si presenta quando ho cerco di creare 2 condizioni:
#La prima: deve  visualizzare a ricerca ultimata, quindi dopo aver
individuato il file, la scritta "OK".
#La seconda: se non trova niente deve darmi la scritta "Nessun file
trovato".
Lo script che ho fatto (da inesperto totale) chiaramente NON FUNZIONA
************************************************
*********************CERCA******************
if
    find / -name $1
then
    echo "OK"
else
    echo "Nessun file trovato"
fi
**************************************************
Chi puo' aiutarmi ?
Grazie a tutti
In perl COME SARA' ?


In perl potrebbe essere:
#!/bin/perl
 
if (stat($ARGV[0])) { print "OK"; }
else { print "File non trovato" ; }
 
Ciao Oscar
--
Automatic posted from 
almadns.unibo.it
 [137.204.1.15]
via Mailgate Server - 
http://www.mailgate.org

 In perl COME SARA' ?
use strict;
use vars qw ($fname $dirname @found);
use File::Find;
$fname= shift or die "Bad usage";
$dirname=shift or die "Bad usage";
find(\&wanted,$dirname);
if ($#found >=0) {
    print STDERR "OK\n";
    print STDOUT join("\n",@found), "\n";
    exit 0;
}
print STDERR "Not found: $fname\n";
exit 1;
sub wanted {
    ($_ eq $main::fname) && push @main::found, $File::Find::name;
} 
---
Alessandro Forghieri		Site administrator Nouvelle srl
Email: 
a...@orion.it
		Voice: 	+39 59 345767
Via Giardini 460		Fax:	+39 59 343822

 else { print "File non trovato" ; }
[...]
Nein.
Questo funziona solo se il file si trova nella stessa dir.
'find' lo trova anche se sta in una delle subdir.
Una soluzione e' usare File::Find (vedi il mio altro post sull'argomento).
In ogni caso preferisco (TIMTOWTDI):
$f=shift or die "No args"; # check for bad usage
-e $f ? ((print "OK\n"), exit 0) : die "$f not found";
Cheers,


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

Scusate, è possibile sapere se il proprio provider ha settato un limite di
esecuzione per gli script Perl esecguiti via crontab?
Eventualmente come?
Grazie
nicola
-- 
Posted from 
relay2.inwind.it
 [212.141.53.73] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Eventualmente come?
Ehm... chiediglielo. ;-)
	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!

Lui dice di no ma ogni volta che eseguo uno script che analizza il log file
per le statistiche, questo si ferma sempre dopo lo stesso tempo.
Volevo capire se dice il vero...


 ha scritto nel messaggio
news:001d01c04bfc$4937a840$36ebfea9@oemcomputer...

Newsgroup: it.comp.lang.perl
Titolo: NEOFITA

Ciao a tutti,
premetto che sono un neofita del linguaggio Perl.Io lavoro su piattaforma
Linux e vorrei scrivere dei semplici programmini in Perl ma non riesco a
compilarli.Il percorso che seguo è /usr/bin/perl e poi scrivo il programma
che però non so come salvare.Una volta che sono riuscito a salvarlo il
comando per la compilazione è forse :
$ chmod +x *.pl
$ 
1.pl
Grazie per la collaborazione

 $ 
1.pl
semmai ./
1.pl
comunque NON serve dare chmod +x 
script.pl
, basta fare
$>perl -w 
script.pl
Un pņ di info in italiano sul Perl (riguardanti perņ soprattutto i CGI,
cosa che Perl sa fare benone ma non si limita certo a quello :) puoi
trovarla sui link contentuti in questo vecchio post:
http://groups.google.it/groups?q=perlportal&hl=it&selm=3C659D9B.1422E63%40friuli.com&rnum=1

 $>perl -w 
script.pl
Ma e` piu` carino se parte da solo dai... ;-)
Michele.

Newsgroup: it.comp.lang.perl
Titolo: Parser html ->txt

quale modulo / funzione build in,  effettua la conversione :
$pageTXT = &function ($pageHTML) ?
thks

 $pageTXT = &function ($pageHTML) ?
Puoi provare YAPE::HTML o HTML::FormatText::WithLinks a
seconda del tipo di output che desideri.
  Raffaello
Newsgroup: it.comp.lang.perl
Titolo: nuovo prog, che naturalmente non va

#!/usr/bin/perl
use Net::POP3;
$a=10;
while($a > 0)
{ $a++; 
$pop = Net::POP3->new('
freemail.it
');
$pop->login('mio_user','mia_password');
$msg = $pop->get(1);
$pop->delete(1);
$pop->quit();
$comando = @$msg[18];
print "$comando\n";
if($comando eq "ps")
        {
        system("ps");
        }
else
        {
        sleep 1;
        print "sleep 1 \n";
        }
}; 
il mio progetto iniziale e' di comandare il pc dal cellulare mandando
delle mail, dal cellulare of course, il prog legge nel corpo della mail,
dove naturalmente ci scrivo dei comandi decisi da me a priprio, questa
e' un prog di prova che ho fatto, pero' non funziona, cioe' secondo i
miei studi di perl che ho fatto, sto coso dovrebbe leggere nella
diciottesima riga della mail, che e' il corpo della mail, guarda cosa
c'e' scritto e se c'e' scritto ps dovrebbe lanciare il comando ps, che
fa vedere i processi che runnano.
questo invece non succese, (la riga print "sleep 1 \n"; l'ho messa solo
per vedere quando il prog arriva a quel punto) pero' lui continua a
printa sleep 1, poiu quando legge il corpo della mail, e trova
effettivamente che c'e' scritto ps, lui printa ps e non esegue l comando
ps
io ho provato anche a usare exec a cambiare le "" con le '' ma non
cambia, anzi con exec esegue ps e quitta, e in effetti ho letto da
qualche parte che e' questo che fa exec :)
quello che ho trovato scritto di system mi ha portato ad usarlo come ho
fatto io, ora mi chiedo cosa ho sbagliato
bau

 come ho fatto io, ora mi chiedo cosa ho sbagliato
  Sii meno complicato quando scrivi e controlla sempre l'esito dei
comandi che usi.
	Alla prossima,
		Marco

                 Marco
tenkiu
bau

 ps
Perdonami, ma mi sfugge qualcosa: viene eseguito o no il system()? Se
viene eseguito, qual è il problema? Se non viene eseguito, beh, vuol dire
che $comando *non* contiene esattamente "ps". Ci sarà un LF in fondo.
Anzi, considerando che si tratta di dati che vengono da una sessione POP3,
ci sarà probabilmente un CRLF.
Max

 Max
ha funzionatoooooooooooooooooooooooooooooo
e' bastato un chomp($comando= $@msg[18]);
mio salvatore
ti amo :*************
:)))))))))))))
Newsgroup: it.comp.lang.perl
Titolo: convertire numeri in lettere

Salute, mi chiedevo se esiste qualche scriptino per convertire dei
numeri scritti in cifra in numeri scritti in lettere.
Qualcuno ha una roba simile sottomano?
Thanks in advance
Regards
--
 ,---.
 |  -'  . ,-. ,-,-. ,-. . ,-. ,-.
 |  ,-' | ,-| | | | ,-| | |   ,-|
 `---|  ' `-^ ' ' ' `-^ ' `-' `-^
  ,-.|
  `-+'

 Qualcuno ha una roba simile sottomano?
una cosa che ho scritto tanto, tanto tempo fa:
http://kanak.perl.it/perl.it/num2text/readme.htm
http://kanak.perl.it/perl.it/num2text/num2text.pl.txt
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;


http://kanak.perl.it/perl.it/num2text/num2text.pl.txt
Perché non gli dai una sistematina e lo metti in un modulino
Lingua::IT::Number, come le analoghe Lingua::FR::Number ecc.?
Non dovrebbe volerci poi moltissimo lavoro, e sarebbe una cosa molto bella.
Ciao.

 molto bella.
ci sto già lavorando con Andrea Mistrutti :-)
in questo momento siamo un po' troppo presi, ma presto sarà su CPAN.


Newsgroup: it.comp.lang.perl
Titolo: Siti con Perl senza POP-up menù?

Esistono dei siti che danno la possibilità di far girare Perl senza che si
aprano fastidiosi Pop-up?
Grazie, ciao
Riccardo

 ha scritto nel messaggio
news:UVNC5.11999$NY2.3...@news.infostrada.it...


grazie 1000

Newsgroup: it.comp.lang.perl
Titolo: Installazione Modulo da activePerl

Chiedo scusa per l' insistenza, ma avrei il piacere che qualcuno mi
indicasse come (o perche) da linea di comando ppm, si possa settare di
default un repository differente da quello fornito standard, per scaricare
Storable.
Di mio ho inserito già con 'rep add RemotePPM_1
http://www.actvestate.com/....
.' , path ove so esistere con certezza il
modulo (mentre che Storable non esiste nella rep di default), ma ppm pur
dandomi la nouva repository per attiva, sembra non andare a pescare il
modulo, perche ??
Idem dicasi se il modulo viene scaricato e gli viene insegnato il path
locale.
Grazie per la pazienza

 Storable.
Scusa, se io:
collegato ad internet
(avendo installato ActiveState Perl 633)
aperto un prompt di dos
scritto: ppm install storable
mi installa Storable.pm
Potrebbero esserci problemi vari al tuo ppm, allora prova ad andare qui:
http://www.activestate.com/PPMPackages/zips/6xx-builds-only/
scaricati Storable.zip
(Thursday, March 15, 2001  3:15 PM       116582 Storable.zip)
lo scompatti in una directory e da prompt di dos ci accedi:
C:\WINDOWS\Desktop>cd C:\WINDOWS\Desktop\Storable
dopodiché scrivi:
ppm install --location=. storable
Ora ti funziona?
-- 
$_=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
Newsgroup: it.comp.lang.perl
Titolo: Modulo net-smtp dove sei ?

Ciao
Ho scoperto perchè non funziona lo script.
Mi manca il modulo Net-SMTP 
Dove lo posso trovare ?
Ho guardato sotto 
activestate.com
 ma non l'ho trovato
Anche su cpan ma trovo la versione unix ...
qualche consiglio ?

 ha scritto nel
messaggio news:3A2383F9...@venaria.marelli.it...

Mi sembra di capire che sei un utente ActivePerl.
Il modulo Net::SMTP è compreso nel pacchetto libnet ... insieme ad altri
moduli della famiglia Net::
Per installarlo semplicemente digita 'install libnet' dal prompt di PPM
(nota: se hai perl 5.6, il pacchetto dovrebbe essere installato di default).
Ciao, Ezio Bonsi

Newsgroup: it.comp.lang.perl
Titolo: funzione sort() su array ....

ho una domanda, spero non banale, da porvi:
io ho un array del tipo @pippo(10,11,23,80,20,50,70,90)
se voglio ordinarlo utilizzo la funzione sort() oppure reverse() ma
succede una cosa strana.
 il risultato dell'operazione @pippo_ordinato = sort(@pippo) e' questa
---> 10 100 11 20 23 50 70 90
come devo fare per ordinare l'array in maniera corretta?????
Grazie per l'aiuto. Antonello

 ha scritto nel messaggio
news:3B07F4E1...@tin.it...

@pippo_ordinato = sort {($a) <=> ($b)} @pippo;
--
Marco Allegretti
shi...@katamail.com

Newsgroup: it.comp.lang.perl
Titolo: DBD oracle: ORA-06550 e PLS-00103

Salve a tutti.
Ho fatto uno script in Perl che legge delle procedure pl/sql da un DB MySql
e le esegue su oracle per poi salvarne il dbms_ouput nuovamente su MySql.
Ho fatto dei test con questa banale procedura:
-----
DECLARE
  v_date DATE;
BEGIN
  dbms_output.put_line('Ciao');
  SELECT SYSDATE
  INTO v_date
  FROM dual;
  dbms_output.put_line('sysdate appena letta -> '||v_date);
END;
-----
Ma ricevo sempre il seguente errore:
 DBD::Oracle::st execute failed: ORA-06550: line 1, column 9:
PLS-00103: Encountered the symbol "" when expecting one of the following:
   begin function package pragma procedure subtype type use
   <an identifier> <a double-quoted delimited-identifier> cursor
   form current (DBD ERROR: error possibly near <*> indicator at char 7 in
'DECLARE <*>
  v_date DATE;
....
Se però scrivo la procedura  all'interno dello script,
con un banale
  $procedure = qq{DECLARE...};
non ho alcun problema.
Lo stesso errore si verifica se salvo il codice plsql in un file,
e lo leggo prima del prepare /execute.
Avete qualche idea sul come risolvere il problema?
Molte grazie.
bye ;-)

 Avete qualche idea sul come risolvere il problema?
Mi rispondo da solo: bisogna eliminare tutti gli 'a capo':
my @righe = split (/\r\n/,$proc_plsql);
my $proc_plsql_clean = join (" ",@righe);
sapreste consigliarmi qualche altro modo per ottenere lo stesso risultato?
della serie $proc_sql_clan =~ s/???/???/
bye ;-)

della serie $proc_sql_clan =~ s/???/???/
    s/\r\n/ /g;
Il risultato è lo stesso; a che sia giusto e che sia la cosa da fare, ci
pensi tu.
Ciao.

 ha scritto nel messaggio
news:bkg5m0hg1l3sgtci6...@4ax.com...

Perfetto: molte grazie...
ciaauuu ;-)
Newsgroup: it.comp.lang.perl
Titolo: CONSIGLIO!!! FILE MAKER & PERL

Ho un database su files FILE MAKER.
Vorrei interrogare il database con uno script PERL e una CGI.
E' possibile tutto ciň? o meglio: di che cosa ho bisogno? č sufficiente che
il server supporti il CGI? Dove trovo della documentazione per scrivere uno
script che interroghi i file di FILE MAKER?

script che interroghi i file di FILE MAKER?
Nel manuale di FileMaker Pro (quello elettronico), e nel suo
dizionario AppleScript. Poi usi MacPerl::ExecuteAppleScript().
Ovviamente solo sotto MacOS... ma a quel punto conviene fare la cgi
direttamente in AppleScript.
------
http://zap.to/balestra
  ICQ#:14303012
" Ora mai che i baci tuoi piu' non mi sazian
  cerchero' un'altra donna dentro ai sogni di Tarzan... "

Newsgroup: it.comp.lang.perl
Titolo: espressione matematica

è corretto usare per la seguente espressione
x1= x2 + modulo*cos(alpha)
la seguente riga di codice ?
$x1 = $x2 + ($modulo * cos($alpha));
perchè ricontrollando il risultato è numericamente errato.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 in cosa è espresso $alpha ? (verifica il valore del coseno).
... me ne sono accorto dopo, alpha è espresso in gradi e le funzioni
trigonometriche vogliono come argomentol'angolo espresso in radianti.
Quindi devo convertire alpha da gradi in radianti prima dell'espressione.
grazie

Newsgroup: it.comp.lang.perl
Titolo: Aiuto su chiusura shell DOS da win95 dopo esecuzione script.

Qualcuno e' in grado di scioglere il seguente dubbio?
Mandando in esecuzione uno script da Win95, la finestra DOS su cui
viene diretto l' output a video dello script si richiude
immediatamente al termine della esecuzione rendendo impossibile vedere
le uscite.
L' azione che ho tentato e' stata quella classica: mouse sull' icona,
tasto dx. cercando il tab con il button che dovrebbe consentire di
attivare/disattivare la chiusura della shell.
Sorpesa: i Tab disponibili sono esclusivamente Generale e Versione e
non c' e' traccia dei Tab Programma, Schermo, Altre, ecc.
Qualche idea su cosa e' successo e, soprattutto, come risolvere il
problema?
E sempre in tema di Perl: mi farebbe comodo attivare l' esecuzione di
alcuni script in modo pianificato sotto Win95. nessuno ha una idea se
sia possibile sotto tale sistema operativo pianificare l' esecuzione
di un programma? Sono leggermente OT, ma penso che la domanda sia
sensata in questo contesto in quanto l' esecuzione automatica e/o
pianificata degli script e' uno strumento naturale per la gestione del
sistema
Grazie!

 alcuni script in modo pianificato sotto Win95. ...
Essendo un novellino noto con piacere che lo stesso problemae' capitato a
qualcun altro. Io ho risolto il sistema cosi' (eserc. 3 cap 4 Llama book)
print "Enter a list of number\n";
for(chomp($n=<STDIN>); $n < 999; chomp($n=<STDIN>))
   {$t += $n;}
print "Total is: $t \n";
print "Premi Invio per terminare\n"; $n = <STDIN>;
Quest'ultima riga fa il lavoro sporco di attendere prima di uscire.
Non puoi usare i tab sulle proprieta' perche' quello che hai sul disco
e' un file con l'estensione .pl associato a perl e _non_ un .pif
da cui puoi settare Programma, Schermo, etc.
Per la seconda parte della domanda, passa a NT ;-)
Anzi a Linux
ema

Newsgroup: it.comp.lang.perl
Titolo: Spazio Web Gratis

ciao a  tutti ...
sto cercando un posto dove pubblicare gratuitamente dei siti non
commerciali, al massimo qualche banner!
mi serve della grandezza minimo di 40M e con la possibilità di aggiornare il
tutto via FTP!
inoltre sapete se esistono siti, sempre gratuiti,  dove inserire pagine WEB
con la possibilità di inserire CGI in Perl ?di questo non mi interessano le
dimensioni ... mi servirebbe solo per testare i programmini che faccio (sono
all'inizio!)
Massy
ast...@ossola.it

all'inizio!)
www.3q.to
Spero di esserti stato utile
Ciao
Andrea Busia
No Spam, Grazie.

 
http://www.poli.studenti.to.it/~s93146/
 ** Lyrics & More

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

Libero o Tiscali non permettono di usare proprie CGI in perl?
No, non lo permettono

Newsgroup: it.comp.lang.perl
Titolo: estrarre record da file

A partire da un file .csv molto grosso, in definitiva un dump di una
tabella, con record del tipo
id1;aaa;bbb;ccc;chiave1
id2;aaa;bbb;ccc;chiave2
id1;aaa;bbb;ccc;chiave3
id3;aaa;bbb;ccc;chiave4
id3;aaa;bbb;ccc;chiave5
dovrei estrarre un solo record per ogni id: in particolare il primo che si
presenta.
Dall'esempio mi servirebbero
id1;aaa;bbb;ccc;chiave1
id2;aaa;bbb;ccc;chiave2
id3;aaa;bbb;ccc;chiave4
Qualche suggerimento?
grazie
Mario

 Qualche suggerimento?
 my %records;
 open F, "file";
 while( <F> ) {
	my( $id, @data ) = split /;/;
	$records{$id} = [ @data ]
          unless exists $records{$id};
 }

 Qualche suggerimento?
IMVHO non serve nemmeno scomodare il Perl..
sort nomefile.csv | awk -F\; '{if ($1!=a) print; a=$1}' > output.csv
-- 
#!/usr/bin/perl
$~=~s~o~unpack qq,\l$',,q,:<')I;G0@(B!!;F1R96$@36%N>FEN:2!<;B(`,~eei

Newsgroup: it.comp.lang.perl
Titolo: [OT] Domanda facile facile sui CGI...

Qual è la prima riga da inviare al client? Ricordo che se non veniva inviata
quella, il client si impallava e non mostrava tutto quello che riceveva in
seguito

...


L'help di Sambar mi dice che la prima cosa da inviare è
print "HTTP/1.0 200 OK\n";
e funziona


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

Newsgroup: it.comp.lang.perl
Titolo: cambiare i permessi a una directory

Se una directory non ha permessi 777 all'interno di essa non posso creare
file, quindi avrei l'esigenza di cambiarne il permesso in 777 prima di poter
inserirvi dei file o delle subdirectory.
Che comando devo usare?
Il comando chmod non effettua nessun cambiamento.

!

Eh?!? Il comando chmod() deve effettuare il cambiamento, a patto che tu sia
il proprietario della directory ovviamente. ;)
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

Newsgroup: it.comp.lang.perl
Titolo: Peogrammi usati dagli spammers x sniffare e-mail

Sto cercano i programmi usati dagli spammers per scansire i newsgroup e
procurarsi cosě le mail. Vorrei studiarli e pensare un antidoto da adottare
sul server delle news. Sapete dove posso procurarmi questi webrobot?
Graz


Che c'entra con il perl??
Cmq, con il perl puoi fare uno script che con una regexp ti legge i file
di spool delle news di una macchina (possibilimente un newsserver!) e ti
estrae gli indirizzi email.
10 righe non di piů! :-)
Ciao
--ev

 procurarsi così le mail. Vorrei studiarli e pensare un antidoto da


 10 righe non di più! :-)