mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Regex per AND e NOT

Premettendo che sono praticamente a zero riguardo a perl e le regex,
correggetemi se sbaglio, l'operatore AND può essere espresso come ".* ".
Nella fattispecie della ricerca di stringe all'interno di righe,
presupponendo che esistano righe che contengono stringaA, stringaB e
stringaC, quale è l'espressione regolare da usare per far listare quelle
righe che contengono stringaA stringaB ma NOT stringaC?
Mi riesce solo di fare stringaA AND stringaB AND stringaC, così, all'interno
di un while:
$r=~ /\bstringaA\b.*\bstringaB\b.*\bstringaC\b/g && print $r;
Mi date dei suggerimenti?
grazie
ste

Il primo suggerimento è che tu ti legga:
perldoc perlre
perldoc perlretut
Il secondo è che con le RE devi pensare in termini diversi da AND e NOT
SE comunque per qualche strana necessità devi pensare in termini di AND e
NOT :-) ti conviene separare le RE per ogni singola stringa:
se sono righe allora puoi fare così:
while (<FILEHANDLER>)
{
   /\bstringaA\b/ && /\bstringaB\b/ &&! /\bstringaC\b/ && do_something
}
è più efficente e flessibile. se non hai capito bene come funzia, allora
chiedi, però prima leggiti la doc sulle RE.
ciao
--
-.. --- -- .. --.. .. ---
-.. . -- .. -.-. .... . .-.. .. ...

Newsgroup: it.comp.lang.perl
Titolo: file last modification

Salve,
     come faccio a sapere se sono passati rispettivamente 1, 5 e 10 
giorni dall'ultima modifica di un file?
Grazie

 Grazie
 prego

 giorni dall'ultima modifica di un file?
Cerca 'mtime' in perldoc -f stat.
M

 
http://perldoc.perl.org/functions/stat.html
ottimo, pero come faccio a confrontare la data di oggi con quella di 
mtime?
grazie

 grazie
perldoc -f time
Sia quanto restituito da time() che mtime di stat() sono "numero di
secondi dalla epoch", ossia da un riferimento temporale comune (v.
perldoc -f time). Basteranno pertanto una sottrazione ed una
divisione.
Saluti,
   Flavio.

Newsgroup: it.comp.lang.perl
Titolo: ActivePerl Download impossibile

Non riesco a scaricare ActivePerl da ActiveState.com qualcuno di voi conosce
altri siti da dove scaricarlo?
Grazie
Riccardo

 altri siti da dove scaricarlo?
Cosa significa 'non riesco'?
Comunque 
http://www.ActiveState.com/ActivePerl/download.htm
 e' l'unico posto
che conosco dove sia possibile effettuare il download.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)


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

 da dove scaricarlo.
Buono a sapersi. Io ho controllato solo su CPAN, dove pensavo fosse logico
trovarlo, e li' c'era solo il puntatore al sito ActiveState.
Sara' che alla fin fine non ho quasi mai problemi di banda :)
Devo dire che se per trovarlo devi sapere che il file si chiama esattamente
APi522e.exe, le possibilita' di inciamparci casualmente sono praticamente
nulle :-)


Newsgroup: it.comp.lang.perl
Titolo: Virus Signature (Firma del Virus)

Salve a tutti...
Sapreste dirmi dove trovare la "FIRME" dei virus??
Grazie a Tutti :))

 ha scritto nel messaggio
news:9l8o9d$b88$1...@nreadB.inwind.it...

Newsgroup: it.comp.lang.perl
Titolo: Modificare direttamente un .html

    Salve a tutti. Scusate se la prossima domanda sara' stupida, ma e' da un
po' che non riprendo in mano il Perl e sono un po' arrugginito.
    Vorrei fare in un sito delle pagine che contengano *anche* delle
informazioni inserite man mano dagli utenti. L'approccio classico, o meglio
quello che usavo io prima (quando ero piu' pratico :-)) era quello di fare
delle pagine .shtml, e tramite la direttiva
    <!--#exec cgi="/cgi-bin/
script.pl
"-->
    chiamare uno script che provvedeva a caricare i dati.
    Dov'e' il problema? vi starete chiedendo. Il problema e' che per
esperienza le pagine .shtml sono piu' lente da caricare, e non mi sembra che
valga la pena fare tutto questo casino per uno script, come il precedente,
che in sostanza si limita a fare un cut & paste da un file .txt che contiene
i dati da inserire.
    Percio' mi e' venuto in mente che lo script associato alla form di
partenza, quella che gli utenti usano per inserire i dati in primo luogo,
invece di andare a modificare questo benedetto .txt da cui in seguito si
fara' il cut & paste, puo' modificare direttamente il file .html in
questione, stavolta privato della sua 's'.
    In questo modo, secondo i miei calcoli, l'immissione dei dati dovrebbe
venire leggermente rallentata (invece di limitarsi a fare un "append" al
.txt bisognerebbe aggeggiare con le espressioni regolari all'interno del
file .html), mentre il caricamento del file .html dovrebbe venire
decisamente accelerato.
    E' un ragionamento che fila, o c'e' qualche magagna che non riesco a
vedere? Grazie dell'attenzione!
_dave_

decisamente accelerato.
Potrebbe essere una buona soluzione. Ci sono in giro anche dei moduli che
effettuano il parsing dei file HTML e che quindi *potrebbero* agevolarti
il lavoro.
	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: [espressione regolare] eliminare miatag

	Sto disperatamente cercando di eliminare dalla seguente riga:
	sghjkfdgfhjdj<include source="blabla">djkgfhsdjgfjkgh
 
	la tag:
 
	<miatag miovalore="blabla">
	ed ottenere in output:
 
	sghjkfdgfhjdjdjkgfhsdjgfjkgh
	Prima di cio', però, devo salvare il valore "blabla", cosa che
	riesco ad ottenere... tuttavia non riesco a tagliare nell'output
	l'interno della tag .. :-(
 
	---------------------------------8<-----------------------
 
if (m/.*include.*source.*=\"(.*)\".*/)
    {
     s/.*include.*source.*=\"(.*)\".*/$1/;
     $nomefile= $_ ; #   Nome del file da includere ..                                  
		    print "\t $nomefile\n";
		          $r=~s/\<.*/zxzxzx/;
			  $riga=~s/$riga/$r/ ;
			  print "$riga \n";
       }
 
	---------------------------------8<-----------------------
	Stampa:
 
	 sghjkfdgfhjdj<miatag miovalore="blabla">djkgfhsdjgfjkgh
 
	So che mi suggerirete SGMLS, che uso con successo nel prosieguo,
	ma qui avrei bisogno di fare senza...
	Grazie, 
	PL.
-- 
*	S'i fosse foco, arderei'l mondo
		(Cecco Angiolieri)

per toglioere il tag prova
s/<[^>]+?>//
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"
Newsgroup: it.comp.lang.perl
Titolo: pingare via Perl (NT)

, 
http://zap.to/balestra
" Ora mai che i baci tuoi piu' non mi sazian
  cerchero' un'altra donna dentro ai sogni di Tarzan... "

 Ho provato a mettere il ping dentro un qx, ma mi torna '' :-?
	@pings=qx/ping myhost/;
	foreach $ping (@pings) { print "$ping\n"; }
  :)
  In realta`, il processo ping dovrebbe ritornare 0 se l'host risponde,
non zero altrimenti, quindi potresti anche cavartela con un
	$ret=system('ping myhost > /dev/null');	# eheheh...
  Alternativamente consiglio un giro sull'RFC dove viene descritto il
protocollo ICMP ed un bel socket. 
	Alla prossima,
		Marco

protocollo ICMP ed un bel socket. 
Sei un tesoro.. :-\
Battute a parte volevo evitare i timeout di apertura di un socket.
Il mio problema e' vedere se una macchina e' accesa nel corso
dell'esecuzione di una cgi amministrativa, e se mi metto ad aspettare
i timeout sto bell'e fresco...
[OT]: Allora si conferma venerdi'?


 [OT]: Allora si conferma venerdi'?
  [OT]: Ok. 
	Alla prossima,
		Marco

se una macchina di cui e' noto l'IP address risponde?
Usa Net::Ping.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

 Usa Net::Ping.
  Se ho capito bene Marco, era proprio quello che voleva evitare.
	Alla prossima,
		Marco

 No no, mi andava benissimo...
  Allora buon divertimento:
	use Net::Ping;
	$p = Net::Ping->new();
	print "$host is alive.\n" if $p->ping($host);
	$p->close();
  HOW I love cross-posting... :))
	Alla prossima,
		Marco

  Se ho capito bene Marco, era proprio quello che voleva evitare.
No no, mi andava benissimo...
E infatti mi ci sono buttato sopra a pesce (o sarebbe meglio dire "a
cammello" ;-)), ma accidenti a me non mi riesce proprio di farlo
andare...
Mi restituisce sempre un "Error: parse exception" :-?
Ho provato con...
use Net::Ping;
print pingecho('proxy',10) ? "ok\n\n" : "ciccia\n\n";
..proprio come dice il 
ping.pm
, ma nix: il risultato e' sempre lo
stesso :-(


Newsgroup: it.comp.lang.perl
Titolo: s/\r?\n$//;

Salve,
   sapete dirmi cosa fa questa re?
s/\r?\n$//;
Grazie

> s/\r?\n$//;
Elimina il primo fine linea che  incontra, sia esso alla maniera DOS
\r\n
o anche alla maniera unix
\n
Ciao ciao,
p.
Newsgroup: it.comp.lang.perl
Titolo: Chi ha usato Perl per Win95 ?

 via Mailgate.ORG Server - 
http://www.mailgate.org

 Il problema potrebbe dipendere da diverse cose, bisognerebbe saperne di più
In pratica quando chiamo lo Script rimane la clessidera fissa sullo
schermo e non succede niente.
Lo script perl sono sicuro che va bene perche' ho provato a chiamare lo
stesso scipt nella versione che ho compilato con il PERL2EXE e funziona.
Boh !!!
Maurizio


 Boh !!!
E dentro il log del server, che cosa c'e' scritto? A volte gli errori
di Perl appaiono li' dentro.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@tuttocitta.it
 
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 via Mailgate.ORG Server - 
http://www.mailgate.org
scusa il ritardo......
allora a me e' capitato solo in due occasioni:
1) ho mandato in loop il cgi :( abbene si.. capita anche ai migliori... ;-)
    sei sicura che la strada che prende eseguito dalla riga comando sia la stessa
   che da browser?.. ovvero nessun parametro aggiunti nell 'URI o nessun campo
   HIDDEN di azione?
2) l'istruzione flock... non e' supportata da VIRUS95... commentala ed il gioco
e'
    fatto..... ovviamente non hai nessuna sicurezza di lock se piu' di un utente
    accede contemporaneamente...
that's all folks...
Ciriciao :)
--
Piera "Vampiera" Poggio
----------------------------------------------------------------------
And crawling on the planet's face, Some insects, called the human race
Lost in time, and lost in space, And meaning........
----------------------------------------------------------------------
Home Page : 
http://piera.lapam.mo.it
POWWOW  : 
pi...@lapam.mo.it
ICQ  : 1396500
Newsgroup: it.comp.lang.perl
Titolo: sprint ?

Urca, ma da dove viene fuori sprint?
[root@deepthought samba]# 
smbldap-useradd.pl
 -a -m -x -g200 
administrator Undefined subroutine &main::sprint called at 
/usr/local/sbin/
smbldap-useradd.pl
 line 97. 
*** /usr/local/sbin/
smbldap-useradd.pl
 ***
[ ... ]
# as rid we use 2 * uid + 1000
my $userRid = 2 * $userUidNumber + 1000;
if (defined($Options{'x'})) {
    $userRid= sprint("%x", $userRid);
}
[ ... ]
lo script ha (oltre a getopt e strict) solo 2 use, in cui non ho 
trovato riferimenti a sprint, come del resto nel codice dello script, a 
parte la chiamata qui sopra. Qualcuno ha gia visto sprint da qualche 
parte? Devo aggiungere un modulino? 
Grazie in anticipo a chi mi puo aiutare.
--
Master:"Conan, what is best in life?" 
Conan:"To crush your enemies, see them driven before you,
and to hear the lamentations of their women!

Cessato allarme.
Forse e' una sprintf, il programmatore si e' dimenticato la f finale 
(forse)... Pero' e' scritto sprint anche piu' sotto (errore di copia-
incolla? mah...). 
Se qualcuno usa i samba-ldap tools magari puo' darci un'occhiata.
 L' Ultimo Immorale wrote:
 > 
 > Urca, ma da dove viene fuori sprint?
 


 [ ... ]
cosě, a occhio e croce, sembrerebbe che chi ha scritto
lo script ha saltato una f. dovrebbe essere sprintf.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

Newsgroup: it.comp.lang.perl
Titolo: Documentazione PERL: help!!

Ho provato a stampare la documentazione del perl ma si tratta di un file
html, con decine di collegamenti e paragrafi con titoli inutilmente
giganti...a occhio credo che saranno almeno 2000 pagine.
Vorrrei sapere se esiste la documentazione del perl in un altro formato meno
"sprecone".
Grazie mille
David

Per imparare le basi io mi son fatto un file word con il tutorial presente
su 
http://www.html.it
e poi ho chiesto aiuto qui nel ng ! (...vista l'occasione.. grazie a tutti
quelli che mi han pazientemente risposto! ho risolto i miei problemi!
    )
Il tutorial in questione non e' molto lungo e per principianti va benissimo.
E' chiaro con esempi (improtantissimi) e semplice.
Cia'
Francesco
David ha scritto nel messaggio ...


Newsgroup: it.comp.lang.perl
Titolo: Upload dei files

Ciao a tutti e grazie a chi mi aiuterà.
ho scritto un CGI che permette di aggiornare da remoto un documento
html, inviando, oltre ai testi anche le immagini.
ora, il mio problema è:
sotto MAC la cosa pare non funzionare, ed in più, se le tre immagini
hanno lo stesso nome, viene uploadata solo la prima....
a parte questo tutto il resto funziona egregiamente....
qualche suggerimento???
grazie ancora
Scafuz!

 wrote in message 3A24E6E6...@nopay.it...


Ah... per quello che ne so io...
Non tutti i browser sono abilitati per l'upload e XKE non hai pensato a
rinominare i file ke ti arrivano in maniera che i contenuti sono univoci?
Altrimenti... hai pensato a far creare delle directories per ogni utente che
immette dentro informazioni?

Newsgroup: it.comp.lang.perl
Titolo: Motore di ricerca

Ciao,
    vorrei implementare un piccolo motore di ricerca per la mia intranet e
ho pensato di farlo in Perl, tuttavia c'è un piccolo problema: la mia
conoscenza del Perl è minima.Chi mi dà una mano?
Denghiù
----------------------------------------------------------------------------
-----------------------------------------------------------------------
Windows 98: 16 Millions lines of code that will never be debugged
----------------------------------------------------------------------------
-----------------------------------------------------------------------
bo...@iol.it


Io mi sono trovato "abbastanza" bene con lo script di Matt : simple search,
lo puoi trovare, con documentazione e tutto in
http://www.worldwidemart.com/scripts/search.shtml
MArio

Giriamo il problema:  qualcuno mi sa consigliare una struttura dati
adeguata? E come faccio a realizzarla in perl?
Grazie


Newsgroup: it.comp.lang.perl
Titolo: Script per rotazione di banner

Qualcuno conosce uno script per poter fare una rotazione casuale di banner?
Mi servirebbe pero' uno script che non utilizzi le ssi perche' avrei
intenzioni di far girare i banner anche su dei server differenti da quello
dove e' installato lo script, un po' come succede con banner exchange e
altri servizi simili.
Grazie
Saluti
Riccardo

 wrote:
[qui siamo OT, chiedi su un ng apropriato]

hai le idee confuse, sulle SSI.
btw, puoi anche creare un tipo "image/gif", da usarsi
come immagine, con quelche difficolta per settare il
link
Oha
-- 
A: Is FOR an acronym or a TLA?
B: the second.

 ha scritto nel messaggio
news:38f1897...@news.computerville.it...


Newsgroup: it.comp.lang.perl
Titolo: procdessare file da una directory

Ciao ,
sto cercando di leggere dei file di scambio .csv da una dir. Il risultato
memorizzato in un array, viene poi riutilizzato quale flag per aprire un
nuovo file con nome un po' differente dall'originale.
Il fatto stà che eseguendo il debug con Perl Builder su Win, le operazioni
vengono eseguite correttamente, ma quando lancio lo script l' esecuzionesi
interrompe senza aver eseguito alcuna processazione (di almeno 2-4 minuti..)
Perche ?
Grazie
Simon
L'implementazione adottata:
........
$medii = '_Medie.csv';
@dir = readdir (CZ);
$ext = ''.csv";
foreach $tt(grep(/$ext/,@dir)){
@ttTMP = split (/\./,$tt);
$ttIN = $tt;
$ttOut = $ttTMP[0].$under.$ttTMP[1].$medii;
open (DB,"<$ttIN");
open (DBS,">>$ttOut");
..............
........



Non sei stato molto chiaro, ma tieni conto che $tt non ha il path
completo del file per cui per aprire i file poi lo devi mettere
tu o lanci lo script nella directory dove sono i files...
Ad es:
opendir CZ, $some_path;
$ext = ''.csv";
foreach $tt ( grep /$ext/, map "$some_path/$_", readdir CZ ) {
....
	- Enrico

 $ext = ''.csv";
         ^^
e queste?? Dovresti avere errore in fase di compilazione
a meno che non è successo qualcosa nel cut&paste ... :-)
	- Enrico
Newsgroup: it.comp.lang.perl
Titolo: Esecuzione programmi su win32

Sono alla ricerca di un sistema per poter avviare piu' programmi da uno
script perl.
Ho trovato il modulo win32::process che serve allo scopo ma ha un
limite. Non ha parametri per avviarli minimizzati.
Girando sulla rete e sui ng ho trovato riferimenti ad un altro modulo
Win32::Process scritto da Mike Blazer che ha quest'opzione, ma il suo
sito non esiste piu' ed il cpan non ha il suo modulo.
Qualcuno lo ha o sa dove pescarlo ?
Ciao e grazie

 Qualcuno lo ha o sa dove pescarlo ?
http://jenda.krynicky.cz/perl/Win32-Process-0.06.1-PPM.tar.gz


Grazie della dritta.
Guardando il file che mi hai linkato, ho visto pero' che quello che 
serviva a me gia' esiste nel modulo Win32 su CPAN, ben nascosto, solo 
che sembra non funzionare. Il problema e' che non esporta le costanti e 
se impongo il valore manualmente non lo usa.
Hai qualche idea per aiutarmi ?
Grazie ancora

 Hai qualche idea per aiutarmi ?
Ho chiesto al mitico dada e con il poco tempo che, purtroppo, ha a
disposizione, mi ha dato almeno 2 modi per far partire un programma
esterno come serve a te:
use Win32::Job;
my $job = Win32::Job->new();
$job->spawn(undef, "notepad.exe", { window_attr => 'minimized' } ) or
die $^E;
$job->run(0);
e
Win32::SetChildShowWindow(SW_SHOWMINIMIZED);
system("notepad.exe");
il problema è che, per entrambi, fino a che non chiudi notepad, lo
script non termina.
Ad ogni modo Win32::Job è probabilmente una delle possibili soluzioni.
Newsgroup: it.comp.lang.perl
Titolo: addslashes

ma l'addslashes dove sta?
come si puo' fare?
ho risolto quasi del tutto il problema scritto nei post precedenti ma 
ho trovato una magagna: in alcuni campi $nome_isp, compare il carattere 
apostrofo ' che mi fa saltare la query
in php c'era addslashes, qui mi pare di non aver trovato niente di 
simile se non che il quote ma che non mi funziona ugualmente
come posso risolvere?
grazie ancora
-- 
Umin
n. p.: Richard Ashcroft - Simple Song

 come posso risolvere?
Banalmente, con l'uso dei cosiddetti /placeholder/ nelle tue query:
http://search.cpan.org/~timb/DBI-1.50/DBI.pm#Placeholders_and_Bind_Values
Ciao,
Emanuele.

 
http://search.cpan.org/~timb/DBI-1.50/DBI.pm#Placeholders_and_Bind_Values
prima della tua risposta mi ero aiutato con le regexp facendo cosi'
$nome_isp =~ s/'/\\'/g;
pare funzionare :)
comunque mi sa che mi dovro' leggere ancora un bel po' di cosette... a 
partire da questi bind values :)
comunque grazie ancora per l'aiuto
ciao!
-- 
Umin
n. p.: The Verve - Velvet Morning

 
A parte i placeholders, di cui ti e' stato gia' detto, sappi che esiste anche il
metodo $dbh->quote(), che, essendo implementato nel driver DBD, e' fatta in modo da
risolvere i problemi di virgolettature e di caratteri di escape del database specifico
a cui si riferisce. Pertanto, usando $dbh->quote($stringa) sei sicuro che, oltre
alle virgolette, anche i caratteri di escape vengono risolti in modo sicuro.
http://search.cpan.org/~timb/DBI-1.50/DBI.pm#quote
Il mezzo migliore e' quello di usare i placeholders, ma ci sono casi in cui serve
adoperare $dbh->quote(), come illustrato nell'esempio in questo articolo:
http://datacharmer.blogspot.com/2006/01/checking-mysql-weak-passwords.html
ciao
gmax
-- 
 _  _ _  _
(_|| | |(_|><  The Data Charmer
 _|
http://datacharmer.blogspot.com/

 
http://datacharmer.blogspot.com/2006/01/checking-mysql-weak-passwords.html
ringrazio anche te! il metodo quote l'avevo visto ieri sera dopo aver 
risolto con la regexp quindi me lo sono "segnato" :)
oggi e nei prossimi giorni continuero' a guardarmi documentazione ed 
esempi (anche se tanto le magagne vengono sempre fuori nel momento in 
cui implementi qualcosa)
buona giornata
ciao
-- 
Umin
n.p.: Richard Ashcroft - Nature Is The Law [stop]

"... risolto con la regexp..."
IMHO, dovresti eliminare la regexp ed utilizzare il metodo quote() o i
placeholder. Come giustamente suggeriva gmax, il metodo è implementato
dallo specifico backend per la gestione del database, per cui "conosce"
tutti i possibili trabocchetti in cui puoi cadere. Per fare un esempio,
direi che nella tua regexp manca la gestione dell'escaping della slash
stessa :)
Ciao,
   Flavio.
Newsgroup: it.comp.lang.perl
Titolo: Sono appena entrato. Aiuto!!

Ciao Gruppo.
Mi sto cimentando con il Perl e chiedo subito un vostro cortese aiuto:-))
Ho un manuale e sto tentando di seguirlo.
Sul mio computer (MDK8.1) l'interrprete Perl si trova in /usr/bin.
Ho scritto (si fa per dire) il mio primo file, cosě:
#!/usr/bin/perl
print "Ciao Mondo\n";
con un editor di testo molto elementare.
Al momento di dsalvare il file ho pensato di salvarlo come 
ciaomondo.pl
Poi l'ho reso eseguibile con chmod (755).
Quando ho deciso di "eseguirlo" mi viene segnalato ERRORE.
Mi vorreste aiutarre a capire dove sbaglio?
E' giusto salvare i file perl con estensione .pl?
Grazie infinite, Prospero:-))

 
Ma che tipo di errore segnala?
-- 
-- Marco Allegretti --
http://www.shishii.com

 E' giusto salvare i file perl con estensione .pl?
E' irrilevante.
Max

 il messaggio che mi viene rilasciato dalla shell è:
perl: warning: Falling back to the standard locale ("C")
Ciao Mondo
[prospero@localhost provaperl]$
E' giusto il messaggio di risposta?
Grazie infinite, Prospero:-))

 perl: warning: Falling back to the standard locale ("C")
E' un warning di perl. Non pregiudica l'esecuzione dello script.
Per maggiori informazioni, apri
   perldoc perllocale
e cerca la sezione "LOCALE PROBLEMS".
Max

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

volevo chiedervi una cosa su mysql, non so a chi chiedere e penso che quì ci
sia molta gente che usa mysql..
quando tento di accedere ad un database mi da accesso negato come mai???
 invece con phpmyadm mi apre tutti i database... indipendentemente da chi
sono creati... come mai??
errore del mio codice??
riporto il codice:
<?
$connection = mysql_connect("server")
or die("Non posso collegarmi al database");
$db = mysql_select_db("AZIENDA",$connection)
or die("Non Trovo il database AZIENDA");
$sql = "SELECT * FROM INVENTARIO";
$sql_result = mysql_query($sql,$connection)
or die("Non posso eseguire la ricerca");
print
"<table><TR><TD>CodiceProdotto</TD><TD>NomeProdotto</TD><TD>Quantita</TD></T
R>";
while ($ValoriRiga = mysql_fetch_array($sql_result)) {
$NomeProdotto = $ValoriRiga["NOME_PRODOTTO"];
$CodiceProdotto = $ValoriRiga["CODICE_PRODOTTO"];
$Quantita = $ValoriRiga["QUANTITA"];
print
"<TR><TD>$CodiceProdotto</TD><TD>$NomeProdotto</TD><TD>$Quantita</TD></TR>";
 }
print "</table>";
?>

Quando generi una connessione con MySql devi utilizzare il comando
  mysql_connect($hostname, $username, $password).
A meno che nella tabella Users tu non abbia un utente "" che ha tutti i
privilegi di accesso e controllo (cosa impossibile!) MySQL ti darà
sempre errore di accesso.
-- 
Sebastian Konstanty Zdrojewski
Development Director SKZ Services - Italy
http://www.skzservices.com
zdroj...@skzservices.com
Tel. (+39) 03483543477

come faccio a creare un utente per il mio database??
è un utente del sistema o solo del database??


volevo chiedervi una cosa su mysql, non so a chi chiedere e penso che quě

Newsgroup: it.comp.lang.perl
Titolo: un piccolo chiarimento

Salve a tutti,
    ormai da parecchio frequento questo NG. Spesso per chiedere consigli,
altre volte semplicemente per trovare risposte (leggendo i post), pochissime
altre per dire la mia (se ne so qualcosa).
    Da un po' di tempo ho avuto occasione di usare il perl per lavoro,
soprattutto per la realizzazione di CGI che si sono fatte sempre piu'
complicate.
    Da qualche giorno ho a che fare con la realizzazione di un DB(MySQL..e
non chiedetemi il perche';-))MS in perl che gestisce delle ordinazioni
on-line. Ho deciso di realizzarlo io, nonostante le varie CGI esistenti per
il mondo perche' ritengo sia importante esercitarsi invece che copiare
codice. Dal punto di vista della programmazione procedurale mi sento
abbastanza tranquillo e credo di aver fatto le cose per bene.
    Il motivo di questa mia e' che leggendo i vari post del NG, quando si
parla di CGI che hanno a che fare con DBMS in Internet, spesso volti a
risolvere problemi simili a quelli che ho io (vendite on-line, prenotazioni,
ordini ecc.), trovo sempre dei dettagli che riguardano cookies, multiutenza
della CGI (fork, processi padre, figlio ecc), ed altre caratteristiche
simili.
    Io non posso dire di conoscere profondamente la rete, e vorrei quindi un
chiarimento: ipotizziamo che dobbiate fare cio' che ho fatto io e che lo
script perl che realizzate serva a:
_ controllare l'accessso di utenti registrati al "negozio on-line" (login e
pwd);
_ permettere ad ogni utente registrato di "arraffare" un i prodotti che gli
interessano;
_ concludere il rapporto con l'utente, compilare una Tabella di un DB con
dei dati relativi alla transazione;
_ aggiornare una Tabella del DB che contiene i dati dei prodotti in vendita;
_ inviare una mail al commerciante;
tutto cio', visto che si tratta di Internet, in multiutenza.
Che accorgimenti usereste? Oltre ai sistemi di controllo relativi al login,
alla compilazione di un file di log ogni volta che lo script viene invocato,
al problema multiutenza del DB che (non potendo usare DB seri che risolvono
il problema delle transazioni in multiutenza) ho risolto tramite dei campi
contenenti valori provvisori e cicli di controllo di questi ultimi, al
controllo degli errori, aggiungereste altro???
Vi ringrazio del tempo dedicato, e delle eventuali risposte, ciao
asast

 contenenti valori provvisori e cicli di controllo di questi ultimi
Questo significa che mySQL non supporta transazioni concorrenti?
Ciao
Marcello

 > contenenti valori provvisori e cicli di controllo di questi ultimi)
e con uno che invece ce l'ha.
ciao,
asast

Newsgroup: it.comp.lang.perl
Titolo: Directory e files

Salve a tutti,
vorrei, tramite uno script perl, leggere i files contenuti in una directory,
e sceglierne alcuni per dimensione e per data di creazione.
E' possibile farlo?
Dove si può trovare documentazione in proposito?

 wrote:

perldoc -f opendir
perldoc -f readdir
perldoc -f grep
perldoc -f stat
perldoc -f closedir
ciao,
S.

 ha scritto nel
messaggio news:1g9udod.hyrxszmhq2raN%stefano.r...@tiscali.it...

Newsgroup: it.comp.lang.perl
Titolo: [socket] porte libere

Salve,
     c'č un modo o un modulo che mi riporta la prima porta libera 
disponibile per metterci un socket in ascolto?
su unix ad esempio mi basta fare: nc -l -v
e si mette in ascolto sulla porta: 49449
se ripeto il comando si mette in ascolto sulla porta: 49450 e cosě via...
Grazie

 Grazie
Premetto che non ho fatto prove, ma le faro':
per ora prova questi due modi:
1) NON chiamare bind()
o in alternativa.
2) a mettere $port = 0; che forse verra' usato per dire
"LAPRIMADISPONIBILE"
quando potro' faro prove anche io e ti sapro' dire con piu' sicurezza.
ciao
Roberto.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 per ora prova questi due modi:
beh, ho provato cosě:
my $socket = new IO::Socket::INET->new( Proto => 'tcp' );
a da netstat -an trovo la porta 49511 in uso ... cmq quello che voglio e 
sapere prima quale potrebbe essere la prima porta disponibile cosě da 
poterla passare poi a new IO::Socket::INET->new
ciao

 ciao
non credo sia possibile a meno di non hackerare il kernel, ma comunque la
porta potrebbe essere poi occupata da un altro processo che la chiede.
Ma perche dovresti? immagino che FTP prima si procuri prima la porta e poi
tramite socket di servizio la comunichi all' applicazione remota. Perche'
dovresti fare diversamente?
Comunque confermo che senza chiamare bind() alla accept() viene assegnata
dal kernel una porta libera di numerazione alta (> delle 1024 riservate)
confermo che in entrambi i modi, cioe' NON chiamando bind() o chiamandola
con port = 0 viene assegnata una porta casuale, ora quindi non so' quale
sia la forma preferibile e consigliata come portabile su tutti i sys
Unix(R) / POSIX compatibili.
Uso Linux Kernel 2.6.12
1)
codice;
use Socket;
my $proto = getprotobyname('tcp');
socket(SOCK, PF_INET, SOCK_STREAM, $proto) or
  die "err in syscall socket()\n";
setsockopt(SOCK, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) or
  die "err in syscall setsockopt()\n";
bind(SOCK, sockaddr_in(0, INADDR_ANY)) or
 die "err in syscall bind()\n";
listen(SOCK, SOMAXCONN) or
  die "err in syscall listen()\n";
my $newsocket = accept(CLIENT,SOCK);
------------------
2)
use Socket;
my $proto = getprotobyname('tcp');
socket(SOCK, PF_INET, SOCK_STREAM, $proto) or
  die "err in syscall socket()\n";
setsockopt(SOCK, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) or
  die "err in syscall setsockopt()\n";
# bind non chiamata
# 
listen(SOCK, SOMAXCONN) or
  die "err in syscall listen()\n";
my $newsocket = accept(CLIENT,SOCK);


 dal kernel una porta libera di numerazione alta (> delle 1024 riservate)
ok, allora provo cosě: vorrei trovare un modo per sapere a quale porta 
si č legato il socket
my $socket = new IO::Socket::INET->new( Proto => 'tcp' );
senza andare a vedere in netstat -an
si puň?
grazie

 grazie
eccerto!!
getsockname e' quello che fa per te. per saperne di piu' guarda anche
getpeername che per il socket connessi ti da info su remoto.

Newsgroup: it.comp.lang.perl
Titolo: defined non funziona!!!!

Vorrei controllare la consistenza dei dati immessi  tramite un form, ma con
amara sorpresa, ho scoperto che defined non funziona.
Dove erro?
----------------------------------------------------------------------------
---------------------------------------------------------
if (defined($oggetto)) {
&registra;
}
else {
&annulla;
}
----------------------------------------------------------------------------
---------------------------------------------------------
I dati vengono immessi con una funzione di parsing fatta cosě:
----------------------------------------------------------------------------
---------------------------------------------------------
sub parse_form {
   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
   if (length($buffer) < 5) {
         $buffer = $ENV{QUERY_STRING};
    }
  @pairs = split(/&/, $buffer);
   foreach $pair (@pairs) {
      ($name, $value) = split(/=/, $pair);
      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $FORM{$name} = $value;
   }
}
----------------------------------------------------------------------------
---------------------------------------------------------
e l'assegnamento alle variabili dei dati immessi č cosě:
----------------------------------------------------------------------------
---------------------------------------------------------
  $oggetto    = $FORM{'oggetto'};
  $oggetto =~ s/</\&lt;/g;

 Dove erro?
Forse erri a usare defined.
L'affermazione "ho scoperto che defined non funziona" per me andrebbe 
tradotta in "ho scoperto che non so come funziona defined".
Nel tuo codice, se nella form e' presente un input con name=oggetto 
allora $oggetto sara' comunque definita anche lasciando l'input vuoto.
invece di fare
if (defined($oggetto))
prova
if ($oggetto)
se ho intuito bene la tua esigenza vedrai che funzionara' correttamente.
PS: invece di usare quella parser_form() scopiazzata da chissa dove, 
usa CGI.pm
-- 
Saluti,
Giancarlo

 wrote in message
9habhc$ges$1...@stargate1.inet.it...

Newsgroup: it.comp.lang.perl
Titolo: localtime e Y2K

Salve, il millennium bug ha risparmiato il mondo intero, ha arricchito molti
furbi, e ha fregato solo me :(((
La funzione localtime() che, com'e' noto, restituiva l'anno in due cifre,
quindi, fino al 31/12 restituiva 99, stamattina restituisce... 00 pensera'
qualcuno... e invece no! restituisce 100 !!! restituendo cosi' risultati
inattesi (e sbagliati) da uno script che gestisce le statistiche di accesso
su un mio server e che si basava, per il calcolo della data odierna, proprio
su tale funzione.....
E' un Perl recente, quello standard su Linux RedHat 6.1
C'e' forse gia un update? Non ho verificato...
intanto corro ai ripari!
if ($anno>=100) { $anno=substr($anno,-1,2); }
auguri a tutto il NG
Pink

 wrote in message 84jqf8$sao$1...@suite03.caspur.it...


 e magari se ne era pure gia parlato in lungo e in largo sul NG...
Su questo NG non so, ma su comp.lang.perl.misc la cosa è stata discussa
più volte. Dai uno sguardo al recente thread "FIX YOUR Y2K CODE PROBLEMS
NOW!".
Buon 19100 a tutti.
Max

 
Y2.1K bug...

 wrote in message
Pine.LNX.4.10.100010...@c64.comm2000.it...


 La funzione localtime() che, com'e' noto, restituiva l'anno in due cifre,
Ma dove lo hai letto ?
[root@fokhouse /root]# man perlfunc | printlines - 2989 6
               0..6 with sunday as day 0.  Also, $year is the
               number of years since 1900, that is, $year is 123
               in year 2023, and not simply the last two digits
               of the year.  If you assume it is, then you create
               non-Y2K-compliant programs--and you wouldn't want
               to do that, would you?
[root@fokhouse /root]#
Ciao ciao,
Andrea
-- 
"...Unix, MS-DOS, and Windows NT (also known as the Good, the Bad, and 
 the Ugly)."
(by Matt Welsh)

 qualcuno... e invece no! restituisce 100 !!! restituendo cosi' 
risultati
meglio di cosě... :-)  sommi sempre 1900 ed ottieni l'anno corretto 
in ogni caso.
---
News2000 1.0b Beta tester version 
http://socket2000.8m.com

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

ciao, sto cercando un libro per imparare a programmare in Perl, cosa mi
consigliate, mi interessa un libro completo che spieghi dalle basi alla
programmazione avanzata ... grazie


Leggi questo newsgroup prima di postare... abbiamo risposto esattamente a
questa domanda l'altroieri (e su Mailgate, dove trovi gli ultimi 500
messaggi, troverai parecchie altre istande della medesima questione).
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

messaggi, troverai parecchie altre istande della medesima questione).
Qui servirebbero le FAQ, che io e qualcun altro stiamo preparando.
Purtroppo il tempo a disposizione non e` tantissimo e ci vorra` ancora
un po'... ;)
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
Newsgroup: it.comp.lang.perl
Titolo: differenza fra print e printf

Scusate la domanda banale, ma quale è la differenza fra le due funzioni
print 
e
printf?
Ciao a tutti, 
--GM

 [2001-10-16 18:05]:
perldoc -f printf
 printf FILEHANDLE FORMAT, LIST
 printf FORMAT, LIST
         Equivalent to "print FILEHANDLE sprintf(FORMAT,
         LIST)", except that "$\" (the output record
         separator) is not appended.  The first argument of
         the list will be interpreted as the "printf"
         format.  If "use locale" is in effect, the
         character used for the decimal point in formatted
         real numbers is affected by the LC_NUMERIC locale.
         See the perllocale manpage.
         Don't fall into the trap of using a "printf" when
         a simple "print" would do.  The "print" is more
         efficient and less error prone.
Printf stampa un output formattato, print no.
Bye,
 Emmanuele.
-- 
I ... Owe ... You ... Pain! -- Willow, "Tough Love"
Italian Buffy Resource Site (Beta) - 
http://www.ibrs.f2s.com
GnuPG Key ID: 0xA4320FF4
GnuPG Key FP: 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

Newsgroup: it.comp.lang.perl
Titolo: Da script a exe su linux?

premesso che sul mio Pc uso win e che sono in grado di trasformare gli
script
in .exe se volessi trasformarli in eseguibili che funzionino su linux cosa
dovrei fare?
Non ditemi che non serve a niente...  a qualcosa serve!
Grazie
F.

Non serve, ho scoperto che perl2exe c'č anche per linux!
Grazie
F.
Newsgroup: it.comp.lang.perl
Titolo: Sistema di login con cookie

Sto affrontando il problema classico di un cgi (un pannello di
controllo nello specifico) dove l'utente autorizzato fa il login puo'
fare quello che vuole e poi esce.
Il problema:
per non far autenticare l'utente ad ogni operazione bisogna usare i
cookie...
quale e' secondo voi il sistema piu' efficiente?
ci si puo' fidare della "scadenza" dei cookie oppure si deve
implementare un ulteriore controllo magari attraverso un file di log?
l'unico modo di scrivere i cookie e' quello di usare CGI.pm oppure si
puo' fare "casareccio"? Conviene?
Un ultima cosa:
conoscete un'utility per tenere sotto controllo i cookie cosi' da
poter verificare lo script?
ciao,
Dark Wave

 Dark Wave
In generale ci si può fidare dei cookies e direi che dovresti utilizzare
cgi.pm
 in quanto molto più semplice.
Puoi anche utilizzare parametri di sicurezza maniacali come un controllo
incrociato fra un cookie di sessione e un post di un campo hidden di
ciascuna pagina ...bla bla bla ..
SSL, ecc.
I cookies di sessione sono un bel sistema per garantire sicurezza. Te li
consiglio... possibilmente con un bel numerone random che salvi anche sul
server per un matching.
Ciao
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************

 implementare un ulteriore controllo magari attraverso un file di log?
dunque, *non* fidarti mai di quello che ti arriva dall'utente quindi, 
utilizza pure i cookie, ma controllane la validita'.
per farlo puoi "firmare" i dati utilizzando una hash (md5, sha).
per esempio:
cookie_sign = md5($remote_ip . $user_login . $session_id . 
$cookie_expire_date . $secret_password);
quando l'utente si autentica gli setti questo cookie e ogni volta che ricevi 
una richiesta da parte dello stesso utente ti ricalcoli l'md5 della stringa 
e la confronti con il cookie che ti manda l'utente.
questo sistema non e' infallibile, ma almeno evita che l'utente possa 
spoofare il valore dei cookie.
-- 
/federico
[ 
http://www.pixzone.com/dev/
 ]
Newsgroup: it.comp.lang.perl
Titolo: Inviare messaggio ad un NewsGroup con PERL

\n";
print MAIL "Subject: Prova da revel in exploit slash $nome\n\n";
print MAIL "$nome\n\n";
close (MAIL);
--
Ciao, Alessandro
-----------------------------------------
Revel Team
[Software] [Lotto]
new: Il Ricevitore 2.4 (Senalotto, totogol, totocalcio, totosei, totip+,
Euro/lire)
http://santorsola.8m.com
-----------------------------------------

Ho provato con 
mailgate.org
, con questo programma, ma non va!
man Net::NNTP(3pm)
Oha
-- 
"Qualcuno mi spieghi perche' 144 e' l'unico
quadrato perfetto della serie di Fibonacci"

 ha scritto nel messaggio
news:38d2341b...@news.eden.it...


 close (MAIL);
E questo che sarebbe? Cosa c'entra con il subject?
Perche' e' uno pseudo-CGI?
Perche' non controlli lo se l'open() funziona, verificando soprattutto
le questioni relative ai problemi  open+pipe evidenziati nell'FAQ e in
perlipc (credo)?
A proposito del subject, invece, io ho usato con successo il programma
listgate che c'e' con il modulo News::Gateway (o con News::Article, non
ricordo).
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)
Newsgroup: it.comp.lang.perl
Titolo: domandine generiche

Ciao , innanzi tutto spero di nn causare una guerra di religione o 
ferire le preferenze di alcuno. Dovrò lavorare su un progetto già 
esistente in cui si fa un uso massiccio del perl ( ma non solo )
allora mi vengono in mente 2 domande principali :
1) da dove partire... nel senso ... ho esperienza di C,C++, java, pl/sql 
...e shell .... che testi mi suggerireste o che siti mi suggerireste per 
guardarmi in maniera un minimo + approfondita il perl (per ora ne ho una 
conoscenza molto molto superficiale data solo da alcune attività di 
mantenimento).
2) Secondo voi lavorativamente, che futuro ha il perl ? la ragione della 
mia domanda non è provocatoria... anzi. Il fatto è che per il lavoro che 
dovrò fare io non penso sia richiesta una conoscenza profonda in quanto 
i nuovi sviluppi nn verranno + fatti in perl ed in perl ci sarà solo da 
fare piccole change correttive .... per cui ... siccome cmq mi 
incuriosisce e mi piacerebbe conoscerlo in maniera un po + profonda 
....secondo voi è un buon investimento ?
ciao
Pier Paolo


Per la prima domanda prova il sito seguente:
http://www.unix.org.ua/orelly/
direi che non manca nulla.
Per la seconda vedi qui:
http://www.cs.berkeley.edu/~flab/languages.html
http://www.welton.it/articles/language_popularity.html


Materiale pirata a parte, puoi sicuramente fare un giro su 
http://www.perl.it/
(dove c'è un corso scritto da Michele Beltrame oltre ad altri
tutorial), e dare un'occhiata nei siti 
http://learn.perl.org/
 e
http://www.perlfoundation.org/perl5/index.cgi?recommended_online_tutorials
Per quanto riguarda il futuro non saprei che dirti. Esiste una gran
mole di buon codice disponibile, è comodo da usare e ti permette di
ottenere risultati soddisfacenti in breve tempo - a mio modesto
parere, sono ottime ragioni per tenerselo a portata di mano.
Ciao,
   Flavio.

 po + profonda ....secondo voi è un buon investimento ?
Beh, dipende dal tipo di progetto.
Ti dico solo che da noi usiamo il Perl sia per gli script di sistema 
(backup, controlli automatici su servizi attivi o su ricezione posta, 
ecc...) sia per tutti i siti web che facciamo.
Newsgroup: it.comp.lang.perl
Titolo: Compilatore perl

Ciao a tutti, volevo sapere dove potrei procurarmi un compilatore perl su
internet.
Grazie

internet.
C'e` qello free di Malcom Beattie (cercalo in giro, magari su 
www.perl.com
)
oppure uno commerciale, Perl2Exe (per Win32 e Unix) che trovi presso:
 
http://www.perl2exe.com
Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

Scusami, Michele, ma per il Perl non occorre l'interprete?
Ciao, Giuseppe
--
Michele Beltrame ha scritto:


Scusami, Michele, ma per il Perl non occorre l'interprete?
In genere si, ma esistono anche dei compilatori. Il Perl 5.6 (ora
in fase di sviluppo) includera` direttamente la possibilita` di
compilare il codice utilizzando il compilatore originariamente
creato da Malcom Beattie ed ora sviluppato da altri.


quindi trasformandolo in exe non ho piu' bisogno dell'interprete ???
ciao
mattia


quindi trasformandolo in exe non ho piu' bisogno dell'interprete ???
Esatto. Sotto Unix ricordo c'erano due opzioni: un eseguibile di piccole
dimensioni che necessitava di una libreria dinamica, oppure un eseguibile
compilato staticamente, che pero` pesava minimo 500k (anche per una
riga di programma). Sotto Windows non so, ma li` le dimensioni degli
eseguibili sembra non interessino a nessuno. ;-)


eseguibili sembra non interessino a nessuno. ;-)
ROFTL :-)))
------
bale...@dada.it
 
http://zap.to/balestra
  ICQ#:14303012
" Ora mai che i baci tuoi piu' non mi sazian
  cerchero' un'altra donna dentro ai sogni di Tarzan... "

On 23 Jul 1999 13:09:12 GMT, 
mi...@io.com
 (Michele Beltrame) wrote:
| riga di programma). Sotto Windows non so, ma li` le dimensioni degli
| eseguibili sembra non interessino a nessuno. ;-)
LOL
Oha

 wrote:
:>Scusami, Michele, ma per il Perl non occorre l'interprete?
: In genere si, ma esistono anche dei compilatori. Il Perl 5.6 (ora
: in fase di sviluppo) includera` direttamente la possibilita` di
: compilare il codice utilizzando il compilatore originariamente
: creato da Malcom Beattie ed ora sviluppato da altri.
Questa possibilita` ce l'ha anche il 5.005: man O (si`, il modulo si
chiama 'O': o maiuscola).
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) mail (dot) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nandos

eseguibili sembra non interessino a nessuno. ;-)
FYI, sotto Windows è uguale, circa 50k con l'opzione small (che richiede
una DLL), circa 550k senza bisogno di portarsi appresso la libreria.
__END__
# Aldo Calpini
print sort {$_{$a} cmp $_{$b}} values %{{split undef,
"xritajbugne fahokem csuctawer jhdtlrnpqloevkshpr"}};

chiama 'O': o maiuscola).
Si, e` vero, pero` ci sono problemi a compilare molti script. La
versione 5.6 dovrebbe permettere di compilare tutto. ;)

Newsgroup: it.comp.lang.perl
Titolo: problema......

CIAO A TUTTI!!!
SONO UNO NUOVO DO QUESTO NEWSGROUP.AVREI UN PROLEMA.
DEVO FARE UNO SCRIPT PERL CON QUESTE CARATTERISTICHE:
DEVE LEGGERE DALLA RIGA DI COMANDO IL NOME DI DUE O PIU' FILE E COPIARE IL
CONTENUTO DEL PRIMO FILE LETTO NEGLI ALTRI FILE SPECIFICATI. COME FACCIO?
UN SALUTO A TUTTI.



 perl -MFile::Copy -e'$src=shift;copy($src,$_)for@ARGV' file1 file2 ...

Newsgroup: it.comp.lang.perl
Titolo: Postare sui ng

ciao raga,
perchè questo semplice script
use Net::NNTP;
$server = "
news.freeserve.com
";
$c = Net::NNTP->new($server) or die "Can't connect to news server:
$@\n";
$c->post("from: 
pigm...@bigfoot.com
", "newsgroups: it.test",
"subject: test", "", "Body") or die "uff\n";
non va...
Il modulo c'è..
Perl è 5.6.1
il newsserver è giusto e posso postare
Gli stessi dati via telnet funzionano egregiamente...
qualche suggerimento?!?
--
http://www.pigmalion.info/
Internet è uno dei veicoli più validi per la difesa della libertà,
poiché offre la verità a chi vuole vederla e intenderla...
Vinton G. Cerf

qualche suggerimento?!?
Non hai un serverino NNTP locale (Hamster o Mercury, alla peggio, su
Windows) per controllare che cosa succede dall'altra parte?
Ciao.


wrote:

ok, grazie del suggerimento...
Ora li inizio a scaricare e stasera faccio un po di debugging...
ciaz


la soluzione:
$c->debug(1);
e si riesce a vedere tutto quello che occorre per il debugging.

Newsgroup: it.comp.lang.perl
Titolo: Mi spiegate...

e possibile in Perl scrivere un programma che trova una parola z in file.txt
e pi� a destra/sinistra sulla stessa riga e una o pi� righe sotto o sopra,
se compare la/le parola y.
In perl si creano dei programmi.exe oppure compilati, come in Python?
Grazie
Saluti

 In perl si creano dei programmi.exe oppure compilati, come in Python?
I programmi perl normalmente sono interpretati (codice sorgente). Credo 
comunque esistano dei compilatori.

 Credo comunque esistano dei compilatori.
spero che non siano da 20 30 Mb. Un compilatore leggero c'�?
Ciao 

  e sulle y righe pi� sotto e/o sopra si deve cercare la parola z.
Uhm. Se tu trovi la parola x alla riga 10, e ce l'hai anche y righe piu' 
sopra (ad esempio alla riga 5), allora allo stesso tempo sei anche nella 
situazione di avere trovato la parola alla riga 5, e ce l'hai anche y righe 
piu' sotto.
Il tutto per dire: probabilmente non ti serve cercare all'indietro (o in 
avanti). Dovresti definire piu' in dettaglio il problema che stai cercando 
di risolvere con la tua soluzione suggerita.

 spero che non siano da 20 30 Mb. Un compilatore leggero c'�?
Per gli *nix ci sono i moduli Perl "PAR" e "PAR::Packer" che ti 
installano un nuovo comando: pp, con il quale puoi creare il tuo a.out. 
Per installarli, o usi l'eventuale package manager della tua 
distribuzione, oppure il classico
perl -MCPAN -eshell
da cui darai un install PAR, eccetera
Per il Perl Activestate per Windows, c'� PAR come sopra (installabile 
con PPM), oppure Cava Packager (
http://www.cava.co.uk/
), oppure un paio 
di programmi a pagamento: Perlapp di Activestate e perl2exe.

 cercando di risolvere con la tua soluzione suggerita.
...si, cosi e giusto. Devo trovare la parola x e se e sulla stessa riga a
destra.  Ma sar� la prossima parola che sar� trovata.
Il compilatore che cerco e per windows.
Ciao