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

Ciao
ho un programma che deve eseguire dei comandi letti
da un file di testo (esempio: "sort a.txt > b.txt"),
anche molto complicati.
Il problema e' che non sono contento del feedback
della chiamata a system (0 = successo, !0 = insuccesso)
vorrei sapere, in caso di errori, cosa va storto
nell'esecuzione dei comandi.
E' possibboli?
  Raffaello


Sě (se ho interpretato correttamente la tua richiesta).
Usando i backticks (o l'operatore qx//) puoi facilmente catturare 
l'output di un programma e quindi esaminarlo come necessario.
Riporto testualmente da perlop:
To capture a command's STDERR and STDOUT together:
     $output = `cmd 2>&1`;
To capture a command's STDOUT but discard its STDERR:
     $output = `cmd 2>/dev/null`;
To capture a command's STDERR but discard its STDOUT (ordering is 
important here):
     $output = `cmd 2>&1 1>/dev/null`;
Sotto Windows
     $output = `cmd`;
dovrebbe bastare per ogni esigenza.
Se poi vuoi un maggiore livello di automazione sulla gestione di comandi 
esterni, puoi dare un'occhiata ad Expect:
http://search.cpan.org/~rgiersig/Expect-1.15/
e moduli correlati.
Non so se č proprio questo quello che ti serviva...
Ciao,
Emanuele.

IPC::Open3 dovrebbe fare al caso tuo. Ti consente di lanciare un
processo mantendo il controllo sul suo STDOUT e STDERR, di modo che non
ti perdi nessuno dei due e sei sempre in grado di sapere qual è
l'output e quali gli errori/warning.
Trovi un po' di documentazione su
http://search.cpan.org/~nwclark/perl-5.8.7/lib/IPC/Open3.pm
 - se hai
una versione sufficientemente recente di Perl non dovresti aver bisogno
di installare nulla, è nella distribuzione CORE.

Newsgroup: it.comp.lang.perl
Titolo: Array multidimensionali

Salve,
ho un array mutlidimensionale.. e vorrei saepre come fare riferimento ai
livelli successivi al primo:
 my @idx_regions = ('gTLDs'=>('International'=>('biz',
'info'),'CentralNic'),'Europe','North America','Central America &
Caribbean','South America','Asia','Oceania & Antartica');
riescoa scorrere il livello 0 e 1 ma non so come referenziare le estensioni
dei domini ! (biz info etc..)
:-)



Sei sicuro che questo sia un "array multidimensionale" ?
Dai un'occhiata a perldsc:
http://perldoc.perl.org/perldsc.html
  Raffaello


Quando avrai applicato le indicazioni la` contenute, se vuoi ne
riparliamo. Non ti anticipo nulla perche` dalla struttura dati che porti
come esempio non e` chiaro cos'e` che ti serve di preciso.
a presto,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org/blog
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it

Tanto per buttare un po' di carne al fuoco, probabilmente per il tuo
problema è immediatamente utile una scorsa a
http://pod2it.sourceforge.net/pods/perllol.html
 - si parla proprio di
array che contengono altri array.
Newsgroup: it.comp.lang.perl
Titolo: errore

Ciao a tutti,
ho un problema con il mio script, riporto qui sotto la parte che mi da
errore (non badate alla lingua.... è in francese):
foreach my $line (@lines) {
                    if( $line =~ /($base_URL.+\.shtml)/ ) {
                    my $article_URL = $1;
                    my $article_page = get( $article_URL );
                    my @lines = split /\n/, $article_page;
}
l'errore è del tipo " use of uninitialised value $article_page in
split at line (utlima linea in questo caso)". Dunque mi dice che non
ho dichiarato $article_page mentre lo faccio priprio la linea
prima...perché mi da errore? uso "use warnings" e "use strict"....
Vi ringrazio :-)
Vale

 ho dichiarato $article_page  [...]
No, ti dice che $article_page non è stato inizializzato. Questo significa
che 'get' ha restituito undef.
Max

Newsgroup: it.comp.lang.perl
Titolo: nested structures

Ciaoa  tutti,
è da un po' che mi sto "divertendo" con dati strutturati in perl.
Per l'implementazione in runtime funzia egreggiamente la dereferenziazione
(C++ like) ma a differenza del C++ non riesco a trovare una soluzione
"pulita" per salvare su file.
As es. voglio creare un HASH di array.... usando un DBm come salvo le info?
L'unico metodo che ho trovato è stato quello di fare una conversione (split
e join con un carattere separatore) on the fly ma mi sa tanto di essere un
metodo sporco e complesso... che ne dite? idee migliori?
Ciao e grazie,
Salva
--
Salvatore Bocchetti
http://www.salvatorebocchetti.it
 (personal site)
ICQ: #1212361


Il modulo Storable dovrebbe fare al caso tuo.
http://search.cpan.org/search?dist=Storable
MM

Newsgroup: it.comp.lang.perl
Titolo: analizzare file di log per rilevare tentativi di intrusione

Ciao a tutti, devo realizzare una piccola applicazione in Perl che mi
serva per analizzare i file di log di traffico di rete di SSH. In
pratica una volta scansionato il file di log devo sapere se ci sono
stati dei tentativi di attacco alla rete o tentativi di accesso a file
protetti, ecc.
Qualcuno sa darmi qualke aiuto?? Esiste già qualcosa del genere??
Grazie

Roberto M. ha scritto:

snort ?


snort è un IDS (Introduction Detection System), quello a cui mi
referisco io è un tool per analizzare un file di log, e più
precisamente volevo sapere  quali sono le tecniche di analisi, gli
algoritmi usati, ecc...
già ne esistono vari, tipo logcheck, logwatch o squidalyser... volevo
sapere più dettagli sulla loro implementazione...
Newsgroup: it.comp.lang.perl
Titolo: Quai librerie per Perl e html ?

Vorrei "catturare" le variabili contenute in alcuni form presenti su una
pagina html ...
Ho già provato 2 moduli scaricati da 
perl.com
 però non sono riuscito a
farli funzionare (in uno c'erano addirittura gli esempi... ma non
fungevano... eppure apache sul mio Linux fa girare correttamente altri
cgi da me scritti....)
Ciao ciao
Riccardo


 CGI.pm e' quello che ti serve, probabilmente.
 Anche se 'catturare' non mi sembra uno dei termini piu' adeguati.
 
 Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

  Anche se 'catturare' non mi sembra uno dei termini piu' adeguati.
...non per niente l'ho messo tra "virgolette"....
Riccardo

 mi hanno detto che è una libreria obsoleta.
Chi te l'ha detto? E' 
cgi-lib.pl
 che e' obsoleta.
CGI.pm e' il modulo consigliato per i CGI, ed infatti e' distribuito con
Perl, per cui non devi neanche andarlo a cercare in giro.


dove posso trovare info su questa lib? esiste qualche man page?
Grazie
Riccardo

 dove posso trovare info su questa lib? esiste qualche man page?
Te l'ho gia' detto. E' distribuita con Perl e la documentazione la trovi
insieme a quella di Perl ('man CGI' oppure 'perldoc CGI').
Altrimenti, la trovi esattamente dove avrai trovato gli altri moduli che
hai provato, ovvero su CPAN.
Al limite, consulta 
www.perl.com
 e trovi tutte le informazioni che ti
possono servire.
Maurizio
P.S.: Se io tolgo il follow-up e la distribuzione al it.comp.www.cgi,
perche' rimetterla?


 Riccardo
Ma quali erano i problemi... non sara' stato un problema di percorsi o
simili ?
-- 
Giancarlo Martini
http://www.mcgsoft.net
EMail 
mcg...@mcgsoft.net
Newsgroup: it.comp.lang.perl
Titolo: Crawler che legga solo i primo 10kb di una pagina

Salve,
da tempo ho scritto uno spider che funziona egregiamente. l'unico
problema è che nel caso in cui lui provi a visitare una pagina molto
pesante i tempi si allungano. esiste un modo per lo crawler di leggere
solo i primi 10 kb di una pagina per esempio? o cmq per velocizzare la
cosa?
questo è il mio codice
$url = URI->new($sito[$iesterni]);
$response = $browser->get($url, @ns_headers);

Manuel wrote:

(Se avessi scritto (solo) "use strict;" avresti dato più o meno le 
stesse informazioni ;-)
Qui spiega come scaricare soltanto i primi X byte (in vari modi):
http://www.perlmonks.org/?node_id=690951
Poi non so se sia la cosa migliore da fare: mi viene in mente che il 
collo di bottiglia sia il tuo parser piuttosto che il trasferimento di 
un file di testo (presumibilmente mai enorme, trattandosi di una pagina 
html on-line), ma non avendo idea di come sia scritto tale parser (è 
basato su HTML::Parser?) non so cosa suggerirti...
D'altro canto non vedo che utilità possa avere una pagina incompleta, 
per i tuoi scopi di crawling...
A meno che tu non riesca a capire dai primi byte se si tratta di una 
pagina /interessante/ o meno...
Ma non è che hai fornito un gran contesto eh! ;-)
E, come al solito, a fare ipotesi su quello che uno ha in mente si perde 
solo tempo, rischiando di dire cose inutili anche per chi ha fatto la 
domanda.
Se vuoi riprovare con qualche informazione in più...
Ciao.

On Jul 22, 2:44 am, Emanuele Zeppieri

Ciao mi hai dato proprio il link che mi serviva :-) ti rigrazio.
mi serve per vedere solo i meta del sito in questione, se la pagina è
online e altri dati.
io uso LWP::UserAgent
ora l'unico problema che mi rimane è che spesso il sito a cui lo
spider prova a collegarsi risponde lentamente (anche dopo 20 secondi,
mentre per altri siti è velocissimo), e ho provato a mettere il
timeout ma cmq lo script rimane lì ancorato ad aspettare che il sito
risponda. non c'è un modo per risolvere questo problema?

 risponda. non c'è un modo per risolvere questo problema?
OK, direi che la cosa migliore è fare il crawling non bloccante (in 
parallelo) su diversi siti, così se ne incontri uno /lento/, nel 
frattempo il tuo robot ne visita altri senza bloccarsi.
Inoltre con i moduli elencati nel seguito puoi anche settare un timeout 
scaduto il quale il sito troppo lento viene (ad esempio) abbandonato.
Puoi usare questo che è proprio quello che ti serve bell'e pronto:
http://search.cpan.org/dist/ParallelUserAgent/
Con questi altri due approcci invece (entrambi basati su AnyEvent ma con 
interfacce diverse), ti tocca lavorare un pochino di più:
Coro:
http://search.cpan.org/dist/Coro/
esempio:
http://search.cpan.org/src/MLEHMANN/Coro-4.744/eg/lwp
AnyEvent:
http://search.cpan.org/dist/AnyEvent/
ma ti danno un po' di flessibilità in più (e funzionano benissimo).
Poi ci sarebbe pure questo, se ti piace POE:
http://search.cpan.org/~rcaputo/POE-Component-Client-UserAgent-0.06/UserAgent.pm
(che comunque usa LWP::Parallel)
e ancora altri n-mila approcci (tra i quali quelli fork e thread-based) 
come sempre in Perl, fortunatamente :-)
Ciao,
Emanuele.
Newsgroup: it.comp.lang.perl
Titolo: [newbie] Ricavare porta webserver con script CGI

Salve a tutti,
premetto che ne so molto poco di PERL, ma ho la necessità di modificare 
uno script.
Quello che mi serve è poter ricavare dinamicamente la variabile 
d'ambiente relativa alla porta del webserver apache, in modo che se il 
webserver dovesse essere fatto girare su una porta non standard, lo 
script continuerebbe a funzionare.
Grazie mille
YUS

 d'ambiente relativa alla porta del webserver apache, 
my $port = $ENV{SERVER_PORT};
Ciao,
Emanuele.

 my $port = $ENV{SERVER_PORT};
Perfetto! Grazie mille!
YUS

Newsgroup: it.comp.lang.perl
Titolo: invio di files con perl

non riesco a trovare esempi per inviare dei files (file attach) tramite
MAIL in perl. Chi mi può dare un aiuto ?
grazie !
roby
-- 
-------------------------------------------------------------------------
Hosting professionale a prezzi USA? 
http://www.servitelit.com/prezzi.htm
-------------------------------------------------------------------------

...


grazie per la risposta, ma ho trovato un sistema "user frendly" con la
libreria MIME::Lite che è una vera bellezza !! Ma in perl è tutto una
bellezza : 10 righe di codice e il gioco è fatto !


bellezza : 10 righe di codice e il gioco è fatto !
Adesso cerco il modulo!
Bello il perl, eh!?
Saluti,

Newsgroup: it.comp.lang.perl
Titolo: Eliminare un record da un array

Ciao, sto cercando il modo di togliere un record da un array.
  pop e shift lo fanno ma non mi permettono di specificare QUALE chiave eliminare.
  chop non me lo fa.....che mi rimane da usare?
Per intenderci vorrei usare qualcosa che funzioni al contrario di
  push $chiave_da_aggiungere
tks

  push $chiave_da_aggiungere
dunque, da 
splice @array,$from,$quantity,@replacement
un !push come vuoi tu č:
splice @array, $indice_elemento_da_togliere, 1;
Naturalmente ti serve l'INDICE dell'elemento da togliere.
Il VALORE dell'elemento non ha rilevanza nelle funzioni di
manipolazione degli array.
Se invece dovesse averlo per te, usa un hash.
(perldoc perldata)
-- 
$_=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


ciao
credo che splice 
splice ARRAY,OFFSET,LENGTH,LIST
faccia al caso tuo
Charlie

   push $chiave_da_aggiungere
se, e dico se, per 'chiave' tu intendi un valore che si trova in un array
(ossia, vuoi qualcosa che ti rimuova un certo valore ovunque esso si trovi)
allora puoi provare una cosa del genere:
   # rimuove tutti gli elementi uguali a $n da @array
   for ($[..$#array) {
       splice(@array, $_, 1) if $array[$_] == $n;
   }
ma come ha notato Andrea forse ti conviene invece usare un hash :-)
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

#primo array (per ogni chiave di questo cerca
#quella uguale nel secondo array e la elimino)
while ($lines[$num] ne ""){
 
($primo,$secondo,$terzo,$quarto,$quinto,$sesto,$settimo,$ottavo,$nono,$decimo,$undicesimo,$dodicesimo,$tredicesimo,$quattordicesimo,$quindicesimo,$sedicesimo,$diciasettesimo)=split(/\|/,$lines[$num]);
# secondo array
# qui dovrebbe cacellare la chiave con lo stesso
# VALORE e non con lo stesso INDICE
$nume=0;
   while ($sortedallfiles[$nume] ne ""){
		print "<font color=800080>DEL:$sortedallfiles[$nume]\n";
	 if ($sortedallfiles[$nume] eq $sedicesimo) {
		splice @sortedallfiles, $sortedallfiles[$nume], 1;
		print "<u> -OK- </u>";
		print "rimangono: $#sortedallfiles<br>\n";
	 }
	 else {
		print " -NO- <br>" if ($sortedallfiles[$nume] ne $sedicesimo);
	 }
		print "</font>\n";
		$nume++;
   }
}
non sono pratico ad usare gli %hash come posso fare?
grazie mille per tutte le risposte che mi avete dato!

v <v...@v.dfk> wrote in message 3C9852D5...@v.dfk...

se ho capito, vuoi eliminare tutti gli elementi uguali al 16mo, compreso
anche il 16mo.
Si potrebbe fare una cosa del genere:
@array = grep { $_ ne $array[16] } @array;
---
Mario Rizzuti

 @array = grep { $_ ne $array[16] } @array;
ho riletto:-)
@array2 = grep { $_ ne $array1[16] } @array2;
---
Mario Rizzuti


si , grazie un milione! rigurado all'esempio prima (se puo essere utile 
a qualcuno) la "traduzione" sarebbe:
	@sortedallfiles = grep { $_ ne $sedicesimo } @sortedallfiles;
tks 
dex...@virtualauto.it
Newsgroup: it.comp.lang.perl
Titolo: Controllare se un file e' aperto

Ciao a tutti!
Sto scrivendo un piccolo Driver per due circuiti che comanderanno alcuni
apparati.
Il primo circuito serve per comandare gli apparati, il secondo per leggere
i valori di alcuni sensori.
Nessun grosso problema per mandare e ricevere i valori, il problema ce
l'ho con una PIPE che uso per inviare i comandi al programma...
In pratica:
all'avvio, il programma lancia un processo che, ogni X millisecondi, manda
dei segnali tramite alcuni bits della porta parallela e legge i valori dei
sensori.
Contemporamente, il programma principale crea una PIPE tramite la quale
posso comandare i vari apparati.
Per evitare accessi contemporanei alla porta parallela da parte dei due
processi ho creato un sistema che, tramite SIGNALs, ferma uno dei due
processi e lo fa ripartire dopo.
Problema: quando e' il caso che il processo di lettura dati debba fermare
il processo di scrittura dati (mandando al processo principale un certo
segnale), ottengo questo splendido errore:
readline() on closed filehandle FIFO at
/home/data/ctrl/libexec/
circuitsctrl.pl
 line 146
La parte incriminata e' la seguente:
  open(FIFO, $FIFOIN);
  defined($line = <FIFO>) or return '';
  $line =~ s/[\r\n]//g;
  close(FIFO);
  return $line;
Da quel che capisco succede che, quando il processo per l'input manda un
segnale (con KILL), oltre a lanciare una certa funzione del programma
principale, vengono chiusi anche i file aperti...
Bella cosa... Il problema e' che a quel punto il programma tenta di
leggere da un Handle chiuso e, ovviamente, va in errore...
Certo, la cosa non e' fatale in quanto, alla fin della fiera, mi viene
semplicemente ritornata una stringa nulla e io posso gestire l'evento, ma
non mi va di vedere questo errore...
La domanda, a questo punto, e': come posso sapere se un Handle e' ancora
aperto o no?
Grazie
Luca Bertoncello
(
luca...@lucabert.de
)
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 aperto o no?
In generale, per un handle ad un file ordinario, la cosa più sicura è 
provare a leggere e gestire l'eccezione (con eval {}, per esempio). Il punto 
è che, per quanto controlli, non puoi mai essere sicuro di quale sarà la 
situazione quando effettivamente leggi, sicché tanto vale leggere e vedere 
che succede.
Quella che descrivi tu è una situazione molto più complessa, e non so se si 
possa estendere lo stesso consiglio (credo comunque di sì), ma soprattutto 
non ho la minima idea di come e se si possa evitare innanzitutto 
l'inconveniente, tramite una migliore comunicazione tra i processi.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: programmare le Curses con Perl, ma come?

	Ciao, sto cercando un reference manual o anche un tutorial che mi
spieghi come programmare le Curses (una libreria per creare interfacce utente
in modalita' testo, sotto Linux, o Unix) utilizzando il linguaggio Perl. Se
potete mandarmi un e-mail con almeno uno dei suddetti documenti ve ne saro'
grato. Vi saro' grato anche se mi segnalerete dei siti dove posso trovare
questi documenti o semplicemnete dove posso trovare altre informazioni
sull'argomento.
					Grazie


Manuali ne ho cercati moltissimi anch'io, ma non ho trovato nulla. Al
massimo qualche programmmino idiota da cui leggere il codice.
Ho anche scritto all'autore del modulo Curses ma mi ha risposto che non
c'è niente.
L'unica cosa che si trova è un manuale (in inglese) della "solita"
O'Reilly che parla di programmazione con le Curses, ma se non ho capito
male si riferisce solamente al C.
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

Newsgroup: it.comp.lang.perl
Titolo: windows95, MDB, perl: si puo`?

ciao a tutti,
vorrei sapere se e` possibile interrogare un database mdb
avendo installato perl 5.00 su una piattaforma win95.
grazie per l'attenzione,
                                        manrico

 avendo installato perl 5.00 su una piattaforma win95.
Mdb intendi i database di access, giusto?
Non ho mai provato, ma sul CPAN esiste il DBD per l'ODBC
modules/by-author/authors/id/TIMB/DBD/ODBC/DBD-ODBC-0.16.tar.gz.
In genere, per far funzionare correttamente i moduli, hai
bisogno almeno della versione 5.003 di perl, che puoi sempre
trovare sul cpan (
www.cpan.org
 oppure 
cis.utovrm.it/perl
).
Reinhard

Newsgroup: it.comp.lang.perl
Titolo: Problema con script cgi

Chiedo scusa da subito perchè scriverò delle boiate pazzesche, ma ho
bisogno di un valido aiuto ed ho creduto che questo NG sia perfetto per
il mio scopo. Vorrei istallare un guestbook in flash, che sfrutta però
uno script cgi. Ho trovato un web server che permette l'uso di cgi-bin,
e vorrei poterlo inserire li, solo che il testo delle istruzioni dice di
inserire nella variabile $basedir, l'effettiva path del sito.... Quì mi
viene il panico.... Non so come "calcolarmi" questa $basedir.... Vi
prego se potete, datemi una mano per capire cosa debbo inserire nella
variabile. Il server che mi ospita è 7host, magari qualcuno conosce già
la corretta basedir....
In attesa di un riscontro, vi saluto e vi chiedo scusa per eventuali
boiate...
Fabio
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG



sicuramente è una faq del sito

 wrote in message
bd577aeb051da71a8ca...@mygate.mailgate.org...

prova ad eseguire questo script, dovrebbe visualizzare una serie di
informazioni.
#!/usr/bin/perl
print "Content-type:text/html\n\n";
for (keys %ENV)  {
   print "<i>$_</i>: $ENV{$_}<br>";
}
- copialo in un editor (es. notepad) e salvalo come 
env.pl
.
- upload sotto /cgi-bin nella stessa cartella del tuo guestbook
---
Mario Rizzuti
Newsgroup: it.comp.lang.perl
Titolo: inizio

ho sempre usato ASP
ho vsto che PHP4 viene definito come una cosa simile ad ASP
mi potreste spiegare in 2 parole quali somiglianze ha??
non tutte quelle fondamentali
per esempio in ASP
i tag di zinizio e fine sono <%  %>
per PHP??
Grazie mille

 per PHP??
anche
ciao, marco
--
Marco Cacchiani                                
e-mail:ma...@sirius.pisa.it
Public pgp key:         
http://www.sirius.pisa.it/marco/pgp_public_key.asc
Sirius Servizi Informatici                     e-mail: 
in...@sirius.pisa.it
Parco Teatro Pasolini, 1                       Phone:  +39 (50) 865120
I-56019 - Vecchiano                            Fax:    +39 (50) 860260
(Pisa - ITALIA)                                
http://www.sirius.pisa.it/

 per PHP??
<? ?>
Simile, no? ;-)
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

si grazie perla risposta che cosa mi consigliate per iniziare??
grazie

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

 Btw, l'rfd per il gruppo che fine ha fatto??


 
In che senso?? Cosa ti si può consigliare fra ASP e PHP? Io personalmente
(per quanto riguarda la programmazione per il web) ho iniziato con il
Perl e da li passare a PHP è stato tutto sommato semplice.


 Btw, l'rfd per il gruppo che fine ha fatto??
Ne discutono questi giorni sulla mailing list del GCN: vogliono


 > > Btw, l'rfd per il gruppo che fine ha fatto??
Dell'RFD sul PHP.


 verificare prima il traffico relativo al PHP su it.comp.programmare
Forza, tutti a far domande su it.comp.programmare!!!
;-)


 come linguaggio comè?? mi potresti postare un programmino in php??
Come linguaggio ... parli del Perl o del PHP?
Un programmino PHP: eccolo:
--------------CUT-----------------
<?
phpinfo();
?>
--------------CUT-----------------
Non è il massimo della voglia di far niente?? ;-)


 Non è il massimo della voglia di far niente?? ;-)
su IIS funziona??

 su IIS funziona??
Si, ma devi avere il motore PHP (
www.php.net
, se non erro).
Ciao


 ha scritto nel messaggio
news:kflhj8...@127.0.0.1...


 ==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!



 una motivazione??
Mboh!!! Forse il PHP, visto che è "sulla cresta dell'onda(!!!)", anche
se credo che i buoni vecchi CGI in Perl dovremo aspettare un bel po' per
mandarli in pensione!
;-)


cmq bisogna dire che php visto che si incorpora co  le
pagine html è meno difficile da imparare che il perl.
E' consigliabile iniziare con il php e poi se lo capisci
abbastanza bene puoi provare con il perl.
* Sent from AltaVista 
http://www.altavista.com
 Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping.  Smart is Beautiful

 abbastanza bene puoi provare con il perl.
Io sono fermamente convinto del contrario, cmq sono solo opinioni!
E poi, la cosa migliore è provarli entrambi per un mesetto e trarre le
proprie conclusioni! 
Ciao


col Perl anche se non mi interessa per il momento.
Beh, sono due linguaggi diversi ma non diversissimi... diciamo che hanno
una somiglianza piu` paragonabile e quella del C col Java che a quella
dello stesso C con il Pascal.

Newsgroup: it.comp.lang.perl
Titolo: [Aiuto] Upload di File

Salve a tutti sono Amadeus
Devo fare l'upload di un file da client a server.
Nella pagina web ho inserito il seguente codice
<form name=uploadfiles action=
uploadfile.pl
 method=post>
<input type=file name=file1><br>
<input type=file name=file2><br>
<input type=submit value='Avvia l' Upload'></b></font>
</form>
C'è qualcuno tra di voi cosi' gentile da darmi qualche suggerimento sul
codice da inserire nel file 
upload.pl
 per poter gestire il tutto?
Vi prego aiutatemi non ce la faccio da solo.
Grazie comunque a tutti
Amadeus

codice da inserire nel file 
upload.pl
 per poter gestire il tutto?
Ti consiglio di utilizzare CGI.pm (perldoc CGI), che ti permette
di gestire gli upload di file in maniera abbastanza semplice.
	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: Riga Perl

Sapete dirmi cosa fa, effettivamente, la seguemnte riga Perl?
@query = reverse sort numerically @query;
credo che ordini in maniera inversa....ma non ne sono sicuro.
La funzione numerically è la seguente
sub numerically { length($a) <=> length($b) }
ma non capisco bene cosa voglia dire.
grazie e ciao
Gazza

 sub numerically { length($a) <=> length($b) }
   Stabilisce se la lunghezza di $a e` minore, uguale o maggiore di 
quella di $b. Serve a sort per determinare il criterio di ordinamento.
   Inevitabilmente:
	% perldoc -f sort
	% perldoc -f reverse
	% perldoc -q sort
-- 
Alla prossima,
Marco

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

ho la necessita' di archiviare un po di dati e ho scaricato MySQL .
E' possibile utilizzare un prg perl per inserire dati in un bd mysql?
se cosi', di che moduli ho bisogno? e dove trovarli?
Grazie


   Hai bisogno dei moduli DBI e DBD::mysql. Li puoi trovare sul CPAN 
oppure installarli con il PPM (se usi la distribuzione ActiveState) o 
con il comando:
	$ perl -MCPAN 'install "DBI"; install "DBD::mysql"'
-- 
Alla prossima,
Marco

 wrote in message
4mJH9.21571$t_1.1...@tornado.fastwebnet.it...


 Grazie in anticipo.
I file sono quelli, ma se non hai un compilatore C (es Visual C)
a poco ti servono.
Scarica e installa direttamente i pacchetti ppm ActiveState
   - Enrico
--------------------------------
Inviato via 
http://usenet.libero.it

 wrote in message
81Z113Z41Z212Y1...@usenet.libero.it...


 ha funzionato:
Fai cosě:
0) collegati ad internet
1) apri il prompt di dos
2) digita
  ppm install DBI
e premi invio
3) digita
  ppm install DBD-mysql
e premi invio
Dovrebbe bastare.
-- 
$_=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

 wrote in message
3DF3B580...@friuli.com...

Newsgroup: it.comp.lang.perl
Titolo: domanda cretina .... speriamo in una risposta intelligente

scusate ma da due giorni tento di usare PERL e CGI ... perdonatemi.
domande per PERL
- Come li scrivo questi script con notpad e poi li ridenomino in *.pl?
- Utilizzando ActivePerl ho a disposizione un editor?
- Come faccio ad eseguirli in puro PERL?
domande CGI
- Ho istallato APACHE .... come scrivo i CGI .... sempre con notped?
- Dove ca@@o è la directory che legge quando li esegue?
     - c:\usr\bin     oppure
     - c:\programmi\apache\........\cgi?
Grazie .... sono all'inizio ma in compenso mmi sto già perdendo :)
MAssimo

     - c:\programmi\apache\........\cgi?
Dipende da come e` configurato apache. In generale li devi mettere
nella cgi-bin ma, se gli dai estensione .cgi anziche' .pl puoi
metterli dove vuoi (sotto la documentroot pero!).
	A presto, Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/

scusate ma da due giorni tento di usare PERL e CGI ... perdonatemi.
domande per PERL
- Come li scrivo questi script con notpad e poi li ridenomino in *.pl?
- Utilizzando ActivePerl ho a disposizione un editor?
- Come faccio ad eseguirli in puro PERL?
domande CGI
- Ho istallato APACHE .... come scrivo i CGI .... sempre con notped?
- Dove ca@@o è la directory che legge quando li esegue?
     - c:\usr\bin     oppure
     - c:\programmi\apache\........\cgi?


Newsgroup: it.comp.lang.perl
Titolo: nuovo forum

**** Post for FREE via your newsreader at 
post.usenet.com
 ****
ho appena attivato un forum di discussione sulla telefonia mobile -
cellulari ecc.
al seguente indirizzo
http://smaggioni.ticino.com/4um/
Il bello di questo sistema e' che posso regalare forum a diversi utenti
(gratuitamente) dove si possono creare utenti, accessi liberi ecc. ecc.....
Non vi resta che provarlo per vedere effettivamente come funziona.
Saluti.
Stefano
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 *** Usenet.com - The #1 Usenet Newsgroup Service on The Planet! ***
 
http://www.usenet.com
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


Newsgroup: it.comp.lang.perl
Titolo: Ridefinire un metodo

Ho bisogno di ridefinire News::Gateway::mail_filereply() e poi
dall'interno del nuovo metodo chiamare il vecchio metodo.
Come si puo` fare? Per ora mi e` venuto in mente solo questo, che pero`
crea un loop.
Non posso derivare una sottoclasse perche` questo metodo viene chiamato
dall'interno di News::Gateway.
package News::Gateway;
my $OLD = *mail_filereply;
sub mail_filereply {
    print "XXXXXXXXXXXXXX\n";
    $OLD->(@_);
}
-- 
ciao, |
Marco | * The Internet is full. Go away.  -- Joel Furr *
      | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

 
Non mi è chiaro perchè tu non possa ricorrere al subclassing.
Non so com'è l'architettura di News::Gateway, ma il fatto che il metodo
venga invocato dall'interno di News::Gateway di per sè non preclude la
possibilità di usare una classe derivata per ottenere l'effetto che
cerchi. In Perl i metodi sono sempre "virtuali".
Se, ad esempio, abbiamo una class base fatta così:
 package Base; 
 sub new { ... }
 sub pippo { print "Base::pippo\n" };
 sub chiama_pippo { $_[0]->pippo; };
e una derivata:
 package Derived;
 use Base;
 @ISA = ("Base");
 sub pippo { print "Derived::pippo\n" ; }     
se si instanzia un oggetto Derived e si chiama il metodo
Base::chiama_pippo, verrà invocato il metodo Derived::pippo.
 $ref = new Derived;
 $ref->chiama_pippo; # chiama Derived::pippo
Non riesci sfruttando questo a ottenere l'effetto voluto?
Non basterebbe, intendo, derivare una classe da News::Gateway, e fare
l'override di mail_filereply così:
sub mail_filereply
{
	#fai qualcosa....
	$_[0]->News::Gateway::mail_filereply();
}
Max

$old_sub_ref=\&mail_filereply;
Stesso risultato.


Non mi è chiaro perchè tu non possa ricorrere al subclassing.
Ho scritto male. In realta` devo ridefinire un metodo di News::Article
che viene chiamato da News::Gateway.
Inoltre ho sempre la speranza che News::* prima o poi saranno aggiornati
e quindi non voglio modificare tutto il mio codice in modo completamente
incompatibile.


che viene chiamato da News::Gateway.
come forse ha ragione,
&NEWS::Article::sub dovrebbe puntare alla vecchia
funzione
Oha
-- 
#include <disclaimer.h>

Newsgroup: it.comp.lang.perl
Titolo: esiste qualcosa tipo flush()?

Saluti a tutti,
sono nuovo della programmazione Perl: sto usando il modulo CGI.pm e mi 
sto chiedendo se esiste qualche funzione tipo il flush() del C (o degli 
stream di Java).
Qualcuno sa aiutarmi?
Grazie
Stefano


$| = 1;
leggi perldoc -q flush
(non conosco C o Java, e spero che stiamo parlando dello stesso flush!
;-) 
Ciao
--ev
Newsgroup: it.comp.lang.perl
Titolo: Storable.pm

Ho la necessità di utilizzare un modulo, il quale si appoggia su
"Storable.pm". L'installazione su del tarball su linux è andata a buon fine
(storable richiede la compilazione di alcuni oggetti), mentre su piattaforma
Windows come si può installare?
grazie
Arturo

 wrote in
news:U6CN9.22765$
R45.1...@news2.tin.it
: 

Usa l'utility ppm (assumo tu abbia la distribuzione ActiveState).
Da un prompt del DOS e` sufficiente digitare 
  ppm install Storable
ciao
Stefano

 ha scritto nel messaggio
news:Xns92EDBEFDA970...@195.31.190.131...


 Perche ?
Probabilemnte perché devi essere collegato ad internet quando
esegui il comando.
-- 
$_=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

 ha scritto nel messaggio
news:3E083CE6...@friuli.com...


 ha scritto nel messaggio
news:3E083CE6...@friuli.com...


magari se ti leggi la doc di ppm capiresti un bel po' di cose, una delle
quali è che MENTRE SEI COLLEGATO a internet, e senza bisogno di scaricare
nulla da CPAN, puoi installare il package che vuoi (che NON è il file di
CPAN ma quello che arriva da una repository e già precompilato per Win).
--
perl -MLWP::Simple -e "getprint(' 
http://perl.4pro.net
 ')"

 wrote in message
au9htc$5d5p7$1...@ID-159100.news.dfncis.de...


Newsgroup: it.comp.lang.perl
Titolo: Collegarsi ad Oracle.

Salve.
Per collegarsi ad un server Oracle con un cgi in perl usando per esempio
l'interfaccia DBI e' necessario avere il client Oracle installato?
Io uso linux.
Grazie.

 installato?
Sě.
Max
Newsgroup: it.comp.lang.perl
Titolo: Forse OT: Net::SMTP non mi invia le email


Net::SMTP=GLOB(0x82dcfc0)>>> test
Net::SMTP=GLOB(0x82dcfc0)>>>
Net::SMTP=GLOB(0x82dcfc0)>>>
Net::SMTP=GLOB(0x82dcfc0)>>> prova12345
Net::SMTP=GLOB(0x82dcfc0)>>> .
Net::SMTP=GLOB(0x82dcfc0)<<< 250 ok 1165620157 qp 32157
Net::SMTP=GLOB(0x82dcfc0)>>> QUIT
Net::SMTP=GLOB(0x82dcfc0)<<< 221 ***.******.it 

 Net::SMTP=GLOB(0x82dcfc0)<<< 250 ok 1165620157 qp 32157
Questa risposta indica che il server ha preso in carico il messaggio, 
quindi qualsiasi sia il problema non riguarda Net::SMTP, né il Perl in 
generale.
Se il server in questione è l'host locale, controlla i log; altrimenti 
chiedi agli amministratori.
Max

 ha scritto nel messaggio 
news:eld593$f3p$1...@newsreader.mailgate.org...


 Scusa, visto che ti intendi un pò più di me, senti un attimo.
Me ne intendo più di te, ma non ho facoltà paranormali.
Il mittente che usi è valido? Se per caso il server generasse un errore e 
lo mandasse al mittente, tu lo riceveresti?
Se succede anche con il tuo server, non puoi guardare nei log?
Se usi gli stessi server SMTP con un programma di posta, le mail che 
spedisci arrivano a destinazione?
Cosa contengono le mail? Il server di destinazione potrebbe avere filtri 
antispam che scartano quei messaggi in modo silenzioso, oppure li mettono 
in "quarantena".
Comunque, veramente, la cosa non riguarda i Perl, e non se ne può discutere 
qui.
Max

Si ciao, scusate l'OT.
Le caselle che uso sono valide (una gmail, una hotmail, ed una di alice)
Nel messaggio scrivo solo prova123456
Probabilmente è il filtro antispam.
Grazie lo stesso.
Newsgroup: it.comp.lang.perl
Titolo: Destination Frame from PERL

Hi, I was wondering if someone could help me out with a little problem I am
having.  I am wrting a PERL script that calls an HTML file that sets a left
and right frame.  That HTML file sends control to two other files that split
the left frame into a top and a bottom and the right frame into 3 smaller
frames.  So, when all is said and done, I have five frames on the screen.
Now, the kicker.  I need to populate those windows with HTML from a CGI
program.  Now, I figured I could set up the frames without a problem and
even name them.  Then I can store blank pages in each.  At that point I am
looking for a way to display HTML templates in each window that include data
from a mySQL database.  I was hoping there was some easy way to tell PERL
what target frame I wanted to display data in.
Right now, I have two semi-solutions.  #1, take care of the frame setup in
the perl script rather than with a template, thus allowing me to substitute
the correct parameters in.  #2, one suggestion I found on the net was to
write unique temp files and load those.  That solution seems a little more
complex that I would like to go.... it will also require cleanup, etc.
Anyone have any ideas on this?  I hope there is an easy way!
--
Scott Snella
email: 
bg...@scn.org
FAX: 
(743) 448-2438

and right frame.
That is not a Perl problem; it is an HTML problem.
	<FORM ACTION="foo.cgi" METHOD="post" TARGET="left-frame">
--
See 
http://www.inwap.com/
 for PDP-10 and "ReBoot" pages.

Would a cgi script for each frame do the trick ?
http://www.myserver.com/cgi-bin/sqloutput.cgi?frame=top
http://www.myserver.com/cgi-bin/sqloutput.cgi?frame=left
etc...

Newsgroup: it.comp.lang.perl
Titolo: Pugs & Perl6

 parla poco di innovazioni varie! :D
Ne convengo.
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org/blog
mailto:
lar...@perl.it
   |  
http://www.perl.it


Dato che è stata questa la molla che ha fatto scattare a me la voglia di
metterci mano, può far nascere questa voglia magari anche a
qualcun'altro. :)
Ciao,


Newsgroup: it.comp.lang.perl
Titolo: New to Moose :)

Ciao, sto da poco utilizzando Moose e la programmazione OOP per il
perl.
Una domanda credo proprio da niubbo.
 
Mettiamo di avere le informazioni di un utente memorizzate in db, io
creo l'oggetto passando l'id e la classe si occupa di ricavare tutte
le altre informazioni dal dabatase.
 
Avevo creato qualcosa del genere:
 
package Users;
use Moose;
 
has 'id' => (
   is       => 'ro',
   isa      => 'Str',
   required => 1,
   trigger => \&_db_info_set,
);
 
has 'name' => (
   is       => 'rw',
   isa      => 'Str',
);
 
sub _db_info_set {
    my $self = shift;
    my $name;
    ... query per ricavare il nome ...
    $self->name($name);
}
 
no Moose;
1;
 
Questa cosa funziona ma:
1) non so se sia la strategia migliore
2) sono costretto a dichiarare 'name' come rw invece che ro
 
Qualche suggerimento per la strada giusta da imboccare?
Grazie mille e buona fine d'anno.
Fabrizio

 Grazie mille e buona fine d'anno.
 
Grazie a te e buon inizio.
Newsgroup: it.comp.lang.perl
Titolo: Lanciare un programma c

sto provando a lanciare un comando c da uno script perl ..
il programma c è un exe che mi restituisce un valore intero ..
ecco non riesco a gestire il valore di ritorno .. mi ritorna sempre
null ..
ho provato ..
$output= `myprogram.exe`;
print $output;
$output= system ("myprogram.exe") ;
print $output;
@output = qx(myprogram.exe);
print "@output\n";
ed ouput è sempre vuota ...
mi dite dove sbaglio .. sto impazzendo...
per semplificare ho ridotto il mio programma c a questo ..
int  main(int argc, char * argv[])
{
 return 2;
}
ma non c'è verso ..
aiutatemi per favore
grazie!

 null ..
Stai ritornando un exit code ma dal perl ti aspetti un valore in STDIN.
O lo stampi a video nel programma C, oppure valuti l'exit code
del comando lanciato nel programma perl.
-- 
ValeRyo
XT600 "Katoki Pajama" - 
http://www.slimmit.com/go.asp?7Y9
GamerTag: 
http://card.mygamercard.net/IT/nxe/ValeRyo76.png
 

Attenzione, quello che stai tentando di fare è intercettare lo /exit 
status/ del tuo programma C (ovvero il valore return-ato dal main).
Se davvero vuoi fare questo, da perl devi consultare la variabile 
predefinita $? (o meglio $?>>8).
Ma se stai utilizzando questa tecnica per far comunicare i due 
programmi, è sbagliato: dovresti invece far *stampare* qualcosa dal 
programma C sullo standard output, e a quel punto questo qualcosa verrà 
intercettato dall'operatore qx (che invece non legge l'exit status).
Esempio completo:
/* test.c */
#include <stdio.h>
int main()
{
     printf("Hello Perl!\n");
     return 22;
}
quindi da perl:
$ perl -e 'print qx(./test.exe); print $?>>8'
Hello Perl!
22
... che dovrebbe chiarire ogni tuo dubbio.
(se sei su Win, usa gli apici doppi al posto di quelli singoli).
Ciao.


 dovrei aver risolto  leggendo $? >> 8  ..
usando system
posso evitare di far stampare qualcosa al programma c??



Certo che lo puoi evitare.
Quella della stampa su stdout è solo una (la più immediata) delle 
innumerevoli tecniche per lo scambio di dati tra processi (IPC).
L'importante è che non usi l'exit status per scambiare dati col 
programma chiamante (perl), perché l'exit status ha tutt'altra funzione 
(tra l'altro, volendo massimizzare la portabilità del codice, dovrebbe 
addirittura poter assumere soltanto i valori 0 e 1).

Newsgroup: it.comp.lang.perl
Titolo: Perl 6: cosa ci sarà di nuovo?

Quando uscirà?
Cosa ci sarà di nuovo?
Le applicazioni Perl 5.x non saranno compatibili?

On Tue, 15 Apr 2003 09:46:06 +0200


 
http://dev.perl.org/perl6
 
http://www.perl.com/search/index.ncsp?sp-q=perl6
e anche 
http://www.perl.com/pub/a/2003/04/09/synopsis.html
 è interessante
	- Enrico
Newsgroup: it.comp.lang.perl
Titolo: backtick per output php

In uno script perl cgi:
Questo funziona (visualizza nella pagina HTML il contenuto della directory):
   print "Content-type: text/html\n\n";
   print `ls -l`;
Questo NON funziona (visualizza nella pagina HTML il contenuto della 
directory):
   print "Content-type: text/html\n\n";
   print `/usr/bin/php -i`;
Chi mi sa spiegare il perchč ? Grazie.
P.S.
Da riga di comanto "/usr/bin/php -i" restituisce un output HTML
-- 
Riccardo 

    print `/usr/bin/php -i`;
Ho appena provato sul mio sistema (aggiungendo la shebang [1] all'inizio
dello script) e funziona.
ciao,
S.
[1] #!/usr/bin/perl
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it

 [1] #!/usr/bin/perl
Beh, grazie mille a questo punto sembrerebbe che la sintassi
utilizzata sia corretta... devo solo concentrarmi sul server.
Ciao
-- 
Riccardo

 print `/usr/bin/php -i`;
Perchè non ottengo il risultato sperato ??? Cos'è che non va ?
Perchè vedo il codice sorgente PERL all'interno della pagina web ?
Vi ricordo che il mio server interpreta correttamente e già da tempo
molti altri script PERL (nella stessa cartella) e che sul mio file test.cgi
ho impostato tutti e tre gli attributi di esecuzione.
Grazie
-- 
Riccardo

Perchč vedo il codice sorgente PERL all'interno della pagina web ?
Che server usi? Che sistema operativo? Sei sicuro che l'interprete
perl si trovi in /usr/bin/perl? Sei sicuro che il tuo script perl sia
riconosciuto dal tuo server web come uno script da eseguire?
'bye

Grazie a tuttu per tutti i preziosi suggerimenti.
Alla fine ho risolto.
Il problema era che in quel serve esistevano due interpreti php.
/usr/bin/php
/usr/local/bin/php
Quello giusto era "/usr/local/bin/php" ma io mandavo in esecuzione 
"/usr/bin/php".
-- 
Riccardo
Newsgroup: it.comp.lang.perl
Titolo: re su ps

Salve,
      con qx(ps -uxjc) ottengo il seguente output:
USER      PID %CPU %MEM      VSZ    RSS  TT  STAT STARTED      TIME  
PPID  PGID   SESS JOBC COMMAND
claudio  1155   5.9  2.9   133952  15284  ??  S     8:03AM   0:03.70  
1132  1132 16ba394    0 Finder
claudio  1157   5.5  1.3   108952   7060  ??  S     8:03AM   0:37.49  
1152  1132 16ba394    0 DashboardClient
claudio  1180   3.7  4.2   134908  21768  ??  S     8:05AM   0:09.26  
1132  1132 16ba394    0 Safari
...etc...
ora dovrei vedere con una regexp se è presente questa riga:
claudio  1155   5.9  2.9   133952  15284  ??  S     8:03AM   0:03.70  
1132  1132 16ba394    0 Finder
mi importa sapere se "finder" è attivo...
grazie


Cosa hai provato fino ad ora? Cos'è che non ha funzionato? Che
messaggi di errore hai ricevuto?

 messaggi di errore hai ricevuto?
diciamo che ho modificato il comando "ps" in questo modo:
ps -xc -o pid -o command -U $USER
così ora mi riporta:
 PID COMMAND
   65 ATSServer
   66 loginwindow
  177 pbs
  182 Dock
  184 SystemUIServer
  185 Finder
  187 DashboardClient
  190 mdimportserver
  192 UniversalAccess
  194 Microsoft Messenger
  195 Microsoft Messenger Daemon
  198 Alerts Daemon
  200 Safari
  218 BBEdit Lite 6.1
  222 Terminal
  410 -bash
ora vorrei lanciare questo comando tramite qx() e splittare il risultato 
in modo da ottenere un hash con pid->command
ciao

 ps -xc -o pid -o command -U $USER
meglio ancora:
ps -xc -o pid -o command -U $USER | grep "Finder"

 
 my %ps_entries  = (  $ps_output =~ /^\s+(\d+)\s+(.+)$/gm  );
M

Newsgroup: it.comp.lang.perl
Titolo: [it.comp.lang.perl] benvenuto su Usenet!

:
---------------------------------------------------------------------
Questo gruppo ha come argomento la programmazione in Perl per ogni
piattaforma per cui esiste questo linguaggio.
Non sono ammesse discussioni di programmazione generica, per esempio
la programmazione di CGI.
Il gruppo non e` da intendersi moderato ne` in gateway con mailing list.
Il "sito ufficiale" del gruppo e` 
http://www.perl-it.org
, ma in realta` e`
poco aggiornato; le FAQ si trovano a 
http://www.borders.it/perl/faq/

 poco aggiornato; le FAQ si trovano a 
http://www.borders.it/perl/faq/
Le FAQ in realta` si trovano a:
http://www.perl-it.org/faq/
Comunque e` vero che il sito e` poco aggiornato quindi... se qualcuno vuole 
collaborare mi scriva!!!
A presto e grazie, Michele.
Newsgroup: it.comp.lang.perl
Titolo: Ritornare codice XML dal DB

Non so bene se questo e' l'ng piu' adatto.
Comunque sto scrivendo un add-on per Bugzilla in Perl (Bugzilla e'
scritto in Perl) e ho un problema quando provo ad interrogare il DB.
Per ogni query utilizzo la stessa funzione, quello che cambia e' il
parametro che passo alla funzione $dbh->prepare(). Quando il testo che
la funzione ritorna contiene delle parentesi angolari il valore di
$sth non e' l'output della query, ma una stringa che mi fa pensare
all'indirizzo della locazione di memoria (DBI::st=HASH(0x20076b0)). La
funzione lavora correttamente quando il valore ritornato non contiene
parentesi angolari.
Volevo sapere se c'era un modo per risolvere questo problema
Grazie
SteO153
La funzione e' questa
sub longdescs_xml {
	my $bug_id = $_[0];
	my $dbh = Bugzilla->dbh;
	my $sth = $dbh->prepare("SELECT thetext FROM longdescs WHERE
bug_id='".$bug_id."' ORDER BY bug_when DESC LIMIT 1");
	$sth->execute;
	return $sth;
}
La query e' corretta, l'ho provata attraverso phpMyAdmin

 La query e' corretta, l'ho provata attraverso phpMyAdmin
phpMyAdmin non lo toccherei nemmeno con una canna: è tra i software più
buggati della Terra. E` più sicuro postare la password di root del 
proprio sistema su it.fatemi.il.culo
P.S.
Placeholder, fetch* e tutto il resto:
http://search.cpan.org/~timb/DBI/DBI.pm
Ciao,
Emanuele.

 my @record = $sth->fetchrow_array;
Grazie dei consigli, si l'errore era quello. Ora sto facendo anche le
altre modifiche.
Per PhpMyAdmin, il sistema su sui lavoro non e' il mio quindi non ho
altre alternative :-)
Ciao
SteO153
Newsgroup: it.comp.lang.perl
Titolo: uso di `fgrep` e sicurezza

se io permetto in una cgi di eseguire un fgrep al quale passo la RE,
devo tutelarmi in qualche modo o e' sufficiente non ammettere ';'?
Oha

devo tutelarmi in qualche modo o e' sufficiente non ammettere ';'?
Devi controllare un bel po' di cose. C'e` stato un thread in risposta a
un mio articolo qualche mese fa.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *


wrote:
| 
o...@gd8.com
 wrote:
| 
| >se io permetto in una cgi di eseguire un fgrep al quale passo la RE,
| >devo tutelarmi in qualche modo o e' sufficiente non ammettere ';'?
| Devi controllare un bel po' di cose. C'e` stato un thread in risposta a
| un mio articolo qualche mese fa.
ora mi viene in mente che posso caricare un file e fare un push solo
se soddisfatta la regexp. 
<non testato>
while(<FILE>)
  {
  next unless (/RE/);
  push;
  }
Oha

Newsgroup: it.comp.lang.perl
Titolo: Leggere un file

Io devo "printare" un file della cgi-bin per far questo casa devo scrivere ?
Grazie in anticipo

Io devo "printare" un file della cgi-bin per far questo casa devo scrivere ?
Prima di tutto, IMHO, devi scrivere meglio le domande!!!!
-- 
Saluti,
Giancarlo

 wrote in message
963597326....@news.inet.it...


Newsgroup: it.comp.lang.perl
Titolo: RegExp per eliminare righe diverse da...

ciao, 
	ho un bel log file con la lista dei banner passati, in cui
vorrei evidenziare i miei, usando come criterio la presenza del nome
come prima parola della riga.
Avendo sia UltraEdit per win che Vim, che supportano le regexp, volevo
tentare qualcosa del tipo `cancella ![^mionome]`, ma sia Ultraedit
(che probabilmente ha implementato le regexp sui generis, che Vim mi
danno del pazzo :-)). 
devo aver perso qualcosa... idee? tnx!
-- 
Ciao!
        Gian Matteo

Esiste un compilatore PERL x Windows che dia fuori degli exe?



 escribió en el mensaje
news:9hpmkc$o7t$1...@newsfeed.cineca.it...


perchè non ti fai uno scriptino perl apposta?
--
Ciao
The Bos
the-bos#
axelweb.com
http://the-bos.axelweb.com

perchè non ti fai uno scriptino perl apposta?
evabbe`, le regexp sotto qualche editor win ce le sbatto, qualche
minimo ne capisco, mentre il perl e` nebbia totale, vieppiu` sotto win
(che mannaggia avesse un bel linguaggio come HyperTalk sul Mac che
quando uno ha bisogno di fare due cosine sceme gli viene voglia di
farle in c, piuttosto... :-) )
-- 
Ciao!
        Gian Matteo

 farle in c, piuttosto... :-) )
guarda, io di perl ne so mooolto poco ma uno scriptino del genere
ci metti veramente poco a imparare a farlo.. per win basta che ti installi il
perl apposta cosě ce l'hai una volta per tutte.
Poi per usare il tuo scriptino tutte le volte che vuoi potresti compilarlo
e farci un bell'exe da chiamare facilmente.


ci metti veramente poco a imparare a farlo.. 
evabbe`, andiamo giu` di perl, dopotutto mi manca un po` di
programmazione :-)
-- 
Ciao!
        Gian Matteo