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

*******************************************************************************
Pagina html:
<html>
<head></head>
<body>
<form action="cgi-bin/
split.pl
" method="POST"> #ho provato anche con GET
nome: <input type="text" name="nome" size=30><br><br><br>
cognome: <input type="text" name="cognome" size=30><br><br>
<input type="SUBMIT" VALUE="Ok">
</form>
</body>
</html>
*******************************************************************************
scritp perl:
#!/usr/bin/perl
print "Content-type:text/html\n\n";
print "<html><head><title>Restituzionedeltesto</title></head>\n";
print"<body>\n";
@campi = split(/\&/,$ENV{'QUERY_STRING'});
        foreach $valore (@campi) {
                ($nome_variabile, $dato) = split(/=/,$valore);
         print "$nome_variabile = $dato\n";
}
print"</body></html>";
*****************************************************************************
risultato: Internal server error 500
vorrei ottenere ad esempio: nome = Mario
                            cognome = Rossi
Cosa sbaglio??
Grazie
Corrado


****************************************************************************


Newsgroup: it.comp.lang.perl
Titolo: E' possibile fare un ping da uno script perl?

 così da poter creare un file log per eventuali responsabilità.
REMOTE_ADDR
Cmq, c'è uno script di Tom Christiansen che serve per controllare la
validità di indirizzi email: non l'ho provato, comunque lo trovi
partendo da CPAN
Ciao
M.
-- 
____________________________________________________
    Life's just a blast, it's moving realy fast    
better stay on top or life will kick you in the ass.
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

 così da poter creare un file log per eventuali responsabilità.
Questo lo fa gia' il tuo web server, perche' lavorare il doppio?
-- 
Enrico Biondini**
leathe...@libero.it
|     G  |\   _ |  . _   _            |
|     N  | \ |_||_ | _||/ |           |
|     U  |__||_ |_||/_||  |  USER     |

 Īš°`°šĪø,ļļ,øĪš°`°šĪø,ļļ,øĪš°`°šĪø,ļļ,øĪš°`°šĪø,ļ











 proxy...
Non bastava una risposta sola?


utilizzando il suo IP, che il dominio esista.
E` un controllo stupido e dannoso. 
wonderland.linux.it
 puo` ricevere
email, ma non per questo ha un record A che puo` essere restituito da
gethostbyname (e non gethostbyaddr come hai scritto).
-- 
ciao, | * The Internet is full. Go away.  -- Joel Furr *
Marco | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it

 scusa!!!
ho avuto dei problemi con explorer...
 non volevo postare 200 risposte uguali... ho hobby migliori=)
Francesco

 gethostbyname (e non gethostbyaddr come hai scritto).
Questo non lo sapevo! Ecco, ne ho imparata una nuova; cmq, avevo
premesso che era un controllo un po' alla ca%%o!
E per gethostbyname-addr, non mi sembra di aver sbagliato: se hai un IP,
lo usi con gethostbyaddr e ricavi, ad esempio, "
tin.it
". poi lo
confronti con l'indirizzo del mittente per vedere se ti prende per i
fondelli (certo che, come ho detto nel precedente post) è una cosa un
po' idiota perchè nessuno vieta che un utente iol abbia un indirizzo
freemail o hotmail o quello che è, in qual caso fai impazzire gli
utenti!
O mi sbaglio?

Newsgroup: it.comp.lang.perl
Titolo: leggere un file su un altro sito

Salve,
premetto che sono un newbie.
Allora, avrei bisogno di uno script in perl che mi va a recuperare il
codice html di una pagina di un sito a caso e me lo memorizzi in una
variabile.
Avevo provato a fare cosi' ma non funge:
#!/usr/bin/perl
print ("\n\n");
open (F,"< 
http://www.prova.it/file.html
");
$contenuto = <F>;
close (F);
Dove sbaglio ?

 
 
http://search.cpan.org/search?dist=libwww-perl

DiMItrI <DiM...@DiMItrI.com> wrote in message
5d8qduo5vngucpg90...@4ax.com...

Con open() non puoi scaricare file dal web.
Potresti farlo con il modulo LWP::Simple.
---
Mario Rizzuti



Vi chiedo scusa ma sono parecchio inesperto.
Non e' che potreste darmi qualche informazione in piu ?
Per esempio dopo che ho scaricato ed installato il modulo LWP::Simple
che comandi devo usare per far funzionare lo script di cui sopra ?
Il fatto e' che non ho mai utilizzato i moduli del perl fino ad ora.
Sto leggendo il capitolo sui moduli del perl che c'e' su 
html.it
 ma
siccome per me e' la prima volta sto' incontrando parecchie
difficolta.
Vi ringrazio infinitamente se potete essermi d'aiuto.

 che comandi devo usare per far funzionare lo script di cui sopra ?
In generale, all'interno di ogni modulo c'e' la documentazione.
# ---
use LWP::Simple;
$content = get("
http://www.yahoo.com/
")
# ---
---
Mario Rizzuti

 variabile.
Si fa cosi':
require LWP::UserAgent;
require HTTP::Request;
$ua = LWP::UserAgent->new;
$request = HTTP::Request->new(GET => '
http://www.foo.com/bar.html
);
$response = $ua->request($request);
$content = $response->content;
print $content;
La variabile $content contiene tutto il codice html della pagina.
Ciao!
Guido.

Newsgroup: it.comp.lang.perl
Titolo: Configurare la shell di CPAN

... non sono un 'esperto ma vorrei sapere dove posso trovare 
tutorial e/o documentazione esaustiva sulla shell di CPAN,
come si configura ect ect... grazie mille

 wrote:

La documentazione di CPAN, per quanto riguarda la shell,
potrebbe essere fatta un po' meglio, in effetti, comunque
potrai trovare quel che cerchi:
 
http://search.cpan.org/~andk/CPAN-1.76/lib/CPAN.pm
In particolare, la configurazione avviene con i comandi
"o". Ad esempio, sul mio sistema:
  cpan> o conf lynx
      lynx               /usr/bin/lynx
  cpan> o conf lynx "/usr/bin/links"
      lynx               /usr/bin/links
  cpan> o conf lynx 
      lynx               /usr/bin/links 
HTH
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it
Newsgroup: it.comp.lang.perl
Titolo: Ottenere info DVD

Salve a tutti,
vorrei scrivere uno scriptino che legga tutti i DVD nel mio archivio
(sono delle immagini .iso) e ricavi tracce audio presenti, lunghezza,
durata, bitrate, ecc.
Conoscete qualche modulo che faccia gia' questo? Ho googolato ma non
ho trovato niente...
 
Thx!


 
che č solo per *nix e pretende il path di un device, ma mi pare che ci 
siano "trucchi" per far vedere un .iso come un normale device.

 siano "trucchi" per far vedere un .iso come un normale device.
 
L'avevo visto, ma da come e' descritto sembra si possa solo ottenere
il titolo del DVD e poco altro!

Newsgroup: it.comp.lang.perl
Titolo: Partire da 0

Perl: pagina 1.
Ma di che libro ?
Cosa ne pensate della "guida di riferimento" dell'Apogeo ?
Cosa ne pensate del perl ?
Chi sono io ?
Rispondete alla prime tre, l'ultima la so io: un novello sprovveduto.

 ha scritto nel messaggio
news:8jtsug$578$1...@sirmdpsin16.inwind.it...


Ma di che libro ?
Ovviamente:
Programming Perl
Wall, Christiansen & Schwartz
O'Reilly
AKA "The Camel Book"
-- 
Saluti,
Giancarlo

Ma e' in italiano?
--
@------------------------------------------------
@Visita il nostro sito!!!
@
http://www.yes-group.com
@Potrai trovare tutto cio'
@che ti interessa sul
@mondo della telefonia cellulare.
@---------------------------------------------------


 Ma e' in italiano?
Anche, ma fa un po' pena come traduzione!
-- 
echo f 0:0 ffff 0 | debug
La leggerezza del VOLER essere ....

Ma e' in italiano?
Per fortuna no....
-- 
Saluti,
Giancarlo

 > Ma e' in italiano?


E per chi non mastica bene l' inglese? Cosa trovo per iniziare?
Un corso di inglese :))
-- 
Saluti,
Giancarlo

E per chi non mastica bene l' inglese? Cosa trovo per iniziare?
Un corso di inglese :))
Non sarebbe male, ma non ho il tempo di seguire il corso...ci pensero'...:)
Ciao
--
Saluti,
Giancarlo
Newsgroup: it.comp.lang.perl
Titolo: redirection - per favore

Ciao a tutti!
Un grosso favore.
Qualcuno sa come far si che uno script cgi mandi qualcuno ad una
pagina predefinita appena terminata una routine (senza dover cliccare
o altro)
grazie 
JJ

 o altro)
print "Location: 
http://www.dovevuoi.com
\n\n";
Ciao,
Valerio
--
Valerio Granato - 
val...@grana.to
FOR KeyMaster - i2000 Usenet Hierarchy
Maggiori informazioni sulla gerarchia i2000?
http://www.i2000.usenet.it
 - 
in...@i2000.usenet.it

purtroppo l'output è 
Location: 
http://www.dovevuoi.com
c'è qualche altra istruzione che dovrei aggiungere?
grazie
JJ

c'è qualche altra istruzione che dovrei aggiungere?
Ricordati che:
print "Location: ....\n\n";
va messo nell'header del documento, e non nel contenuto.
	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!

 c'č qualche altra istruzione che dovrei aggiungere?
Non devi stampare gli header.
Probabilmente da qualche parte nello script c'č
print $qualcosa->header('text/html');
o
print "Content-type: text/html\n\n";
o
print header('text/html');
o
Si potrebbe continuare all'infinito.
Se vuoi stampare l'header location non devi mandare
altri header.

Newsgroup: it.comp.lang.perl
Titolo: Net::Telnet::Cisco

Ciao a tutti.
Stï¿œ provando a creare uno scriptino che fa il backup della 
configurazione di un apparato (Cisco); lo script dopo aver fatto delle 
modifiche al file di configurazione lo piazza in un altro apparato.
La modifica e la ricezione della vecchia configurazione ï¿œ ok, ora perï¿œ 
ho un problemino con questa parte del codice:
my ($session, @output);
my $timeout = '120';
my $errmode = 'die';
my $username = 'user';
my $password = 'pwd';
my $enable_pwd = 'pwd';
$session = Net::Telnet::Cisco->new( Host => ${CISCO_BK_HOST_IP},
                                         Timeout => ${timeout},
                                         Errmode => ${errmode}, );
$session->login($username, $password);
if ($session->enable($enable_pwd) ) {
     @output = $session->cmd("copy tftp://$IP/$NEW_CFG_FILE 
startup-config\n");
     @output = $session->cmd("reload");
}
Lo script viene eseguito correttamente e la configurazione viene 
piazzata su correttamente ma alla fine mi ritorna il seguente errore:
pattern match read eof at ./SaveConfig.pl line 54
Ho provato sia ad aumentare il timeout sia a togliere e poi rimettere 
gli "/n" dopo $session->cmd ma in tal caso ottengo un errore:
command timed-out at ./SaveConfig.pl line 52
Qualcuno sa spiegarmi che voglion i vari errori e come correggerli? 
Grazie e buona giornata a tutti

 Grazie e buona giornata a tutti
Visto che non hai ricevuto risposte fino ad ora, suggerirei quantomeno
di dire quali siano le righe 52 e 54 nel brano di codice che hai
riportato, magari qualcuno si fa venire la curiosità...
Ciao,
    Flavio.

Emmm si direi che hai pi� che ragione, sorry ;(
Le linee in questione sono quelle interessate dal $session->cmd();
@output = $session->cmd("copy tftp://$IP/$NEW_CFG_FILE startup-config\n");
@output = $session->cmd("reload");
anche se in realt� non son distanti 2 linee l'una dall'altra ma son 
consecutive il messaggio d'errore varia a seconda che io metta o meno lo 
\n dopo la stringa relativa al comando.
C'� da dire che lo script funziona ma quel messaggio d'errore non riesco 
proprio a farlo sparire...
Grazie

 ha scritto nel messaggio 
news:hcc4et$1g2$1...@news.eternal-september.org...

Io uso uno script quasi identico solo che:
- devo preoccuparmi di creare il file vuoto con i giusti permessi prima di 
esseguire il comando altrimente fallisce per mancanza di diritti di 
scrittura sul tftpserver
- il file non contiene spazi (i.e. il comando e' copy startup-config 
tftp://miotftpserverip/nomefilesenzaspazi)
- termino il comando sopra non con uno ma con 3 \n (questo perche' il 
comando fatto sul mio router mi richiede conferma dei parametri che gli ho 
passato
Ciao
-- 
 ************** (.)_(.) *******************
 Un amico � uno che sa tutto di te e,
 nonostante questo, gli piaci
(E. Hobbard)
Newsgroup: it.comp.lang.perl
Titolo: Errore "Bad header"

Ho un grosso problema.
Ho uno sript che parte con perl ma se uso apache mi dice :
"[Sun Jun 18 23:32:17 2000] [error] [client 127.0.0.1] malformed header from
script. Bad header= <p>Attendere prego</p>: /home/httpd/cgi-bin/re.cgi"
Ho provato a togliere print <<end e scrivere per tutte le linee print "\n";
ma non è cambiato niente
GRAZIE IN ANTICPO
Questo è il mio script
#!/usr/bin/perl
if ($ENV{'REMOTE_HOST'} eq '
linux.fiorani.org
') {$HostRedirector =
"
http://www.justlinux.com/bin/news.pl
"}
if ($ENV{'REMOTE_HOST'} eq '
redhat.fiorani.org
') {$HostRedirector =
"
http://www.redhat.com/
"}
if ($ENV{'REMOTE_HOST'} eq '
redhatit.fiorani.org
') {$HostRedirector =
"
http://www.redhat.it/
"}
if ($ENV{'REMOTE_HOST'} eq '
just.fiorani.org
') {$HostRedirector =
"
http://www.justlinux.com/
"}
# Change 
your-domain.com
 to be the default homepage.
if ($HostRedirector eq "") {$HostRedirector="
http://www.fiorani.org/
"}
print <<END;
 Content-Type: text/html
 <p>Attendere prego</p>
 <META HTTP-EQUIV="Refresh" Content=0;Host="$HostRedirector">
END

END
E' un po' OT, ma dopo "Content-Type: text/html" ci vanno due "acapo" non uno
solo.
-- 
Saluti,
Giancarlo

 
-- 
"a` parte isso, tenho em mim
 todos os sonhos do mundo"

Newsgroup: it.comp.lang.perl
Titolo: doppia assegnazione con RE

Ciao,
in /usr/lib/perl5/site_perl/5.8.0/CGI/Session/Serialize/Default.pm
ho trovato questo pezzo di codice segnalatomi da un warning:
sub thaw {
    my ($self, $string) = @_;    
    # To make -T happy
    my ($safe_string) = $string =~ m/^(.*)$/;
 
    my $D = undef;
    my $cpt = new Safe();
    $D = $cpt->reval ($safe_string );
    if ( $@ ) {
        die $@;
    }
    return $D;
}
Non mi è chiaro cose serve 
my ($safe_string) = $string =~ m/^(.*)$/;
Ho fatto delle prove empiriche e $safe_string non sembra contenere qualcosa.
Grazie.
-- 
-- Marco Allegretti --
http://www.shishii.com

 Ho fatto delle prove empiriche e $safe_string non sembra contenere qualcosa.
Strano, perché l'espressione cattura sostanzialmente tutto il contenuto 
di $string, dall'inizio alla fine.
Ciao.

 Ho fatto delle prove empiriche e $safe_string non sembra contenere qualcosa.
$safe_string conterrà esattamente il contenuto di $string:
my $string = 'prova';
my ($safe_string) = $string =~ m/^(.*)$/;
print $safe_string; # prova
con l'ulteriore effetto che $safe_string ora sarà /untainted/.
Per vedere cos'è il taint-mode, dai un'occhiata qui:
http://perldoc.perl.org/perlsec.html
Il blind-untainting è una pratica altamente sconsigliata, perché bypassa 
il taint-mode, rendendolo quindi inutile.
Non andrebbe mai usato, se non si è più che certi di quello che si fa.
Va notato però che quel codice poi (r)eval-uta $safe_string in un 
safe-compartment:
 >     my $cpt = new Safe();
 >     $D = $cpt->reval ($safe_string );
quindi il blind untainting precedente è probabilmente fatto in maniera 
consapevole (me lo auguro, perché in quel codice permangono numerosi 
gravi rischi).
Informazioni su Safe:
http://perldoc.perl.org/Safe.html
Ciao,
Emanuele.
Newsgroup: it.comp.lang.perl
Titolo: Riguardo Form Mail

Come ho già detto...sono del tutto ignorante in perl e cgi.
Sto cercando di far funzionare questi cgi ma non ci capisco nulla ; in
particolare form mail. quello che non capisco è :
1)Devo creare una pagina web con il link a cgi-bin/
formmail.pl
? in generale
come devo fare?
2)Che cambia tra get e post?
3)mi chiede di definire la posizione del sendmail program del mio server. Ma
cos'è il sendmail program del mio server?
4)Mi chiede poi di definire i domini nei quali permetterò ai form di
risiedere; ma worldwidemart è obbligatorio?
non ci capisco nulla...sono disperato...



Ciao,
nel mio sito alla sezione CGI trovi un tutorial in italiano su Formmail
-- 
-- Marco Allegretti --
http://www.shishii.com

, shishii ha scritto:

La prima cosa che faresti bene a fare e' evitare di usare quello
script. Puo' facilmente essere impiegato per spammare in giro.
-- 
Francesco P. Lovergine

 script. Puo' facilmente essere impiegato per spammare in giro.
tu quale consigli?
 dexter

  dexter
Ti consiglio la lettura di questo articolo:
http://www.perl.com/pub/a/2002/01/23/cgi.html
Gli script di cui si parla li trovi qui:
http://nms-cgi.sourceforge.net/
ciao
Stefano

Newsgroup: it.comp.lang.perl
Titolo: Trasferire file con gli spazi nel nome via ftp

Perchè non riesco a trasferire file, il cui nome
contenga dei spazi, tramite il modulo Net::FTP ?????
Ho già provato a sostituire gli spazi con il corrispondente
valore esadecimale (%20), ma niente.....
Grazie, Marco.
-----------------------------------------------------
Marco Disco
marco...@dbcaditaly.com
http://www.dbcaditaly.com

 wrote in message
9a9kh9$t3u$1...@pegasus.tiscalinet.it...


Newsgroup: it.comp.lang.perl
Titolo: array ref size

Ciao
ho un puntatore ad un array e voglio sapere quanti elementi ha.
Se con @array uso $#array,
se ho $arrayref cosa uso ?
 Raffaello

Trovato :
$aref = [1,2,3];
$size = @$aref;
 Raffaello

 $size = @$aref;
oppure $#$aref.

 oppure $#$aref.
Sure, che si legge "porc dannaz aref!" :)
ciao,
Stefano

 Sure, che si legge "porc dannaz aref!" :)
Mi ricorda Q*Bert quando muore !
:)
 Raffaello


Attenzione (se non ricordo male):
my $size = @array 	# ritorna il numero di elementi di @array;
my $size = $#array 	# ritorna l'indice dell'ultimo elemento di array
(stesso discorso con i riferimenti)
Sono due cose ben diverse.
Ciao,
-- 
+--------+ ASCII ribbon campaign ( )
|  kral  |  - against HTML email  X 
+--------+              & vCards / \

 Sono due cose ben diverse.
Si', si', era chiaro ... grazie comunque.
 Raffaello
Newsgroup: it.comp.lang.perl
Titolo: AIUTO PER CONTROLLO DEGLI ACCESSI

Vorrei poter monitorare che visiterà il sito che stò creando...
Esiste qualcosa che mi spedisca via email i dati caratteristici del
visitatore?
Ad esempio il numero di IP e la sua email?
Grazie a tutti coloro che mi aiuteranno.

 Ad esempio il numero di IP e la sua email?
Sai come sara' contento il tuo visitatore e il garante della privacy, a
sapere che raccogli i suoi dati.
Inoltre l'indirizzo IP non serve praticamente a niente per tenere traccia
degli utenti.
Infine tutto questo non c'entra niente con Perl (e non ditemi che c'entra
perche' lo si farebbe con un CGI!)
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

perche' lo si farebbe con un CGI!)
Su questo non posso che darti ragione. ;)
	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: OK, mi arrendo

Sono settimane che non riesco a scompattare le librerie
scaricate da 
www.cpan.org
.
Non penso che tutti quei files siano corrotti!
La procedura che seguo e':
gunzip -d DateManip-5.35.tar.gz
e mi genera un bel file con estensione tar,
do in pasto questo file a tar (sotto Unix)
e non succede niente (devo interromperne l'esecuzione).
Avverto che ho gia' provato a utilizzare Winzip (lavoro
sotto windows) senza risultati apprezzabili: mi da' un
errore sull'intestazione del file.
AIUTO!!!!!!!!

gunzip -d DateManip-5.35.tar.gz
Prova:
tar xvzf DateManip-5.35.tar.gz
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

 wrote:
" gunzip -d DateManip-5.35.tar.gz
" 
" e mi genera un bel file con estensione tar,
che naturalmente hai spedito al sistema Unix come file binario...
ciao, .mau.

 errore sull'intestazione del file.
Problemi di trasferimento del file?
Ho provato a scaricare il file in questione dal CPAN di Roma e non mi ha
dato alcun problema.
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: Win32::OLE GetOwner ottenere l'utente di un processo su pc remoto

Ciao a tutti,
sto provando ad utilizzare il metodo GetOwner per ottenere l'utente di
un processo ma non mi restituisce nessun valore qualcuno puo'
aiutarmi?
use Win32::OLE 'in';
$Win32::OLE::Warn = 3;
$Win32::OLE::Warn = 3;
# ------ SCRIPT CONFIGURATION ------
$strComputer = 'localhost';
# ------ END CONFIGURATION ---------
$objWMI = Win32::OLE->GetObject('winmgmts:\\\\'.$strComputer.'\\root\
\cimv2');
$intProcessCount = 1;
foreach my $objProcess (in $objWMI->InstancesOf('Win32_Process')) {
    # For each process, write the name, command-line options and
process ID
    $intProcessCount = $intProcessCount + 1;
    print ($objProcess->Name);
    print ( $objProcess->CommandLine);
    print ( $objProcess->ProcessID);
    $objProcess->GetOwner($strUser,$strDomain);
    print (' user='.$strUser);
	print("\n");
	}
print "Done\n";
Grazie!!!

Bisogna inizializzare le variabili come spiegato qua
http://aspn.activestate.com/ASPN/Mail/Message/507843
To discover the user account that ran the process do the following to
this
script:
1) Add the next line at the beginning:
   use Win32::OLE::Variant;
2) Later in the script, right before the "write;" command add the
following:
   $User = Variant( VT_BYREF | VT_BSTR, "" );
   $Domain = Variant( VT_BYREF | VT_BSTR, "" );
   $Proc-> GetOwner( $User, $Domain );
3) Now $User and $Domain are set to represent the owner of the
process.

Newsgroup: it.comp.lang.perl
Titolo: come fare un IF un po' particolare?

Ho scritto questa funzone:
     my $rc=$sth_router->execute ||die "Can't insert the router in database: $!";
che esegue una query SQL (ma a non importa... un comando qualsiasi)
Se questo comando va a buon fine vorrei scrivere un testo del tipo "TUTTO
OK" altrimenti un testo che avverta del cattivo esito:
Come fare?!?!?!
Grazie in anticipo, Mario.

Newsgroup: it.comp.lang.perl
Titolo: Eseguire funzioni dai nomi composti...

Ho questa necessità, dovere eseguire delle funzioni che iniziano per un dato
tag, ma che finiscono in base a una variabile...
A riguardo ho due idee, una è il metodo forse piu' corretto, il secondo una
accozzaglia per cui mi lincerete! :)
Cominciamo da un esempio del metodo accozzaglia che vorrei sapere se è
applicabile.
Supponiamo di volere eseguire una serie di funzioni che iniziano per "esegui_"
e la cui seconda parte sia divisa dai componenti di questo array:
@lista = ("uno", "due", ecc....);
In pratica eseguire è possibile eseguire una funzione in questo modo? (non so
bene la sintassi, altrimenti avrei provato)
foreach $nome(@lista) {
  esegui_$nome ();
}
Oppure è corretto usare dei riferimenti alle funzioni memorizzati nell'array?
(per questo caso potreste rinfrescarmi la sintassi dei riferimenti a funzioni
non anonime?)
-- 
| /
| \Byte - Andrea Briganti - 
kbyt...@freemail.it
http://digilander.iol.it/kbytesystem
ICQ: 40872731 - C6: andreakbyte

 riferimenti a funzioni non anonime?)
Io userei un hash di riferimenti (hard reference, questa volta):
 my %map = (
     'uno' => \&esegui_uno,
     'due' => \&esegui_due
 );
 for my $nome(@lista) 
 {
      $map{$nome}->();       
oppure (che è la stessa cosa):
      &{ $map{$nome} }();  
 }
 
Max
Newsgroup: it.comp.lang.perl
Titolo: Garfica

Ciao a tutti e grazie per l'aiuto che mi avete dato; in realtà il problema 
era nel mio cervello e forse nel fatto che avevo messo nella prima riga 
degli script #!C:\perl\bin\perl.exe e l'ho modificato in 
C:\Perl\bin\perl.exe. Visto che siete stati molto gentili e soprattutto 
preparati vi presento un altro problema che ho. Tutti i miei programmi 
funzionano con file di ingresso di testo; il prof. con cui faccio il 
dottorato mi ha chiesto di modificare l'interfaccia per renderla un po più 
user friendly. Vorrebbe un'interfaccia grafica per l'immissione dei dati di 
ingresso. Per fare un esempio invece di scrivere su un file la temperatura 
di esercizio, la tensione applicata etc.. vorrebbe che si aprisse una 
finestra in cui inserire questi valori insieme a molti altri. Lui mi ha 
detto che queste cose nelle università americane vengono fatte in python; 
premesso che non ho alcuna esperienza di interfacce grafiche vorrei sapere 
se è possibile fare tutto questo in perl e quali librerie utilizzare (ma 
soprattutto dove trovare una documentazione su come farle). Cosa mi 
consigliate di fare? Ciao
Andrea 

 e quali librerie utilizzare
Tk (e se non ricordo male l'ActiveState ha già diversi moduli di Tk inclusi)

 ha scritto nel messaggio 
news:32b1ccF...@individual.net...


 poter trovare delle informazioni?
Purtroppo no.
Le librerie Tk le avevo usate tempo fa per semplici interfacce grafiche in 
Perl, ma non ricordo dove trovai della documentazione (cmq sempre usando 
motori di ricerca).

motori di ricerca).
Be', c'è tutta la documentazione in linea del modulo Tk (partire da
Tk::UserGuide, direi), più gli esempi.
Magari non è una lettura particolarmente avvicente, ma la quantità non
difetta.
Ciao.

Ho controllato e c'è una libreria Tk nell'active perl che ho installato
Se ti può consolare, è la medesima cosa che userebbero gli amici
universitari americani del tuo prof, con differenze sintattiche minime
dell'interfaccia Python rispetto a quella Perl.
Bisogna però dire, per onestà, che se tutto quello che ti serve è un po' di
"colla", meglio di Perl (e anche di Python) è forse Tcl.
Ciao.

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

 ingresso. 
Tk (
www.perltk.org
) se vuoi uno script portabile, discretamente facile 
da usare ma con un look che su Windows non è il massimo.
wxPerl (
wxperl.sf.net
) se vuoi una libreria portabile e che si adatta 
all'aspetto del gestore di finestre sottostante (ma difficile da 
programmare).
Win32::GUI (
http://sourceforge.net/projects/perl-win32-gui
 , 
http://jeb.ca/perl/win32-gui-docs/index.pl/home
 ) se vuoi fare delle 
belle cose in fretta, ma solo per Windows.
Ce ne sono anche altre (Gtk2, Qt) ma direi che queste sopra sono 
sufficienti per iniziare :)
Newsgroup: it.comp.lang.perl
Titolo: amministrazione dominio NT

Ciao a tutti,
vorrei fare uno script Perl per amministrare un dominio NT. In particolare
vorrei fare in modo di ricavare la lista di tutti i PC connessi e copiare in
una loro directory un file presente su un server NT.
Come posso fare? Avete qualche idea? Dove posso trovare documentazione al
riguardo?
Ciao e grazie
Palconsun

riguardo?
"Win 32 Perl programming: the standard extension", Dave Roth, 50$,
MacMillian technical Publishing. Attento a prendere la seconda
edizione.
Ciao

 wrote in message
3qhA8.40708$8D3.1...@news1.tin.it...

Scaricati la distribuzione della Active State (
www.activestate.com
) e guarda
sulla guida (dopo l'installazione di perl) dei moduli Win32.
Ciao Diego

Newsgroup: it.comp.lang.perl
Titolo: Tutto su DB_file

Come gia detto vorrei informazioni o dove posso trovare queste?


http://www.hk8.org/old_web/linux/dbi/index.htm
In libreria trovi anche l'edizione italiana
Ciao
Andrea
Newsgroup: it.comp.lang.perl
Titolo: un contatore di accessi testuale?

I contatori di accessi si realizzano sempre visualizzando le cifre in
formato grafico, il che si ottiene scrivendo <IMG
SRC="cgi-bin/
counter.pl
"> o simile. Ma come si fa a mettere un
contatore che visualizzi il numero di accessi con del semplice testo?
La domanda si puo' anche porre in generale:
Come si fa (sempre che sia possibile) a inserire il testo HTML
generato da uno script all'interno di un file HTML semplice?
Grazie
--
Bud Bundy
http://www.pegacity.it/abita/381/index.htm

generato da uno script all'interno di un file HTML semplice?
Devi usare i server side include (SSI)... la maggior parte dei server li
supporta. Generalmente per usarli devi dare ai tuoi file estensione
.shtml.
	Miky.
-- 
Michele Beltrame
mi...@skm.to
http://www.italpro.com/mb/

On Tue, 02 Dec 1997 01:13:40 GMT Bud Bundy wrote:
: SRC="cgi-bin/
counter.pl
"> o simile. Ma come si fa a mettere un
: contatore che visualizzi il numero di accessi con del semplice testo?
Questo e' semplicissimo, anzi banale ... (controlla bene i percorsi):
############## 
counter.pl
 ####################################
print STDOUT <<EOD ;
Content-type: text/html
<html><head><title>Titolo a piacere</title></head>
<body>
EOD
$spooldir='/var/lib/httpd/htdocs/spool' ;
$tf = $spooldir . '/tally' ;
unless ( open (F, $tf) ) {
    print STDOUT ("$tf: $!\n") ;
}
else {
    $buf = <F> ;
    close (F) ;
    chop ($buf) ;
    $tally = $buf ;
    $tally++ ;
    open (F, '>' . $tf) ;
    print F ("$tally\n") ;
    close (F) ;
    print STDOUT ("<center><h3><i>") ;
    print STDOUT ("This site has been visited for $tally times.") ;
    print STDOUT ("</i></h3></center>") ;
}
##################################################################
Dai al file 'tally' (o come lo vuoi chiamare) i permessi in lettura
e scrittura per tutti (le richieste CGI partono da user 'nobody' e
group 'nogroup') ed il gioco e' fatto.
Ciao -- Roberto
-- 
-------------------------------------------------------------------
     Roberto Tagliarino
 
roberto.t...@multiwire.net
 
te...@bigfoot.com
-------------------------------------------------------------------


wrote:

OK, grazie. Io veramente intendevo inserire l'output dello script
all'interno di una pagina html, senza farla generare interamente dallo
script. Ma credo che faro' cosi'. Sempreche' non riesc a far
funzionare i server side includes come dice Michele Beltrame...
Grazie cmq


Newsgroup: it.comp.lang.perl
Titolo: "parola" -> "Parola"

Salve
qual'e' il modo piu' veloce per cambiare una stringa
da "parola" a "Parola" ?
(funzione uc solo per la prima lettera)
 grazie
 Raffaello

(funzione uc solo per la prima lettera)
ucfirst, per l'appunto, in questi termini.
Da magari anche un'occhiata a "How do I capitalize all the words on one
line?" in perlfaq4, se questo e' piu' simile a quello che cerchi.
Ciao.

Usa le RE, quella che serve a te funziona in questo modo:
$variabile =~ s/parola da trovare/parola da sostituire/gi;
La "i" in fondo toglie il case sensitive.
$variabile =~ s/parola/Parola/gi;
Newsgroup: it.comp.lang.perl
Titolo: Matematica e programmazione

Qual'č il liunguaggio di programmazione ideale per chi fa matematica??
grazie mille!!
Stefano

Stefano
Secondo me il Pascal.
Forse lo uso ormai da quando e' nato :-))
E quando facevo Matematica all'universita' hanno
scelto di far studiare quello.
Adesso uso moltissimo delphi.
(+ un bel po' di altri)
Ciao
Claudia Caloi
----------------------
www.caloisoft.com
Newsgroup: it.comp.lang.perl
Titolo: utilizzo di Net::SMTP

salve a tutti.
Leggendo post precedenti mi sembra di aver capito che Net::SMTP possa essere
usato al posto di sendmail e che possa funzionare anche su Nt.
Potreste dirmi dove posso trovare della documentazione sul funzionamento
(magari in italiano:) ) Negli script e/p nei file di configurazione psso
sostituirlo direttamnete al percorso che indica la directory di sendmail o
devo apportare qualche  modifica?
Ringrazio tutti coloro che sanno darmo informazioni e magari indicarmi
qualche tuttorila (si per linux che per NT)
Ultima cosa: per funzionare che moduli devo aver installato?? C'è un modo
per sapere ,da remoto, quali moduli sono installati su su un server? (NT)
Grazie  a tutti  e buon 2001
--
DJeF! djef[@]
crosswinds.net
webmaster di:    
www.jean-baptiste.net
 
www.nancy-rivero.com

qualche tuttorila (si per linux che per NT)
Nella guida dell'Active Perl 5.617 (guarda la cartella /perl/html) ci
trovi degli esempi piuttosto chiari.
-- 
       • 
      |Ü|
     /    \         la scusa giusta al momento giusto : l'alcool
    |      |        non ho potuto fare i compiti : stavo bevendo
J  |  &  |  D   domani non posso andare al lavoro : devo bere
    |      |        scusa non posso sposarti : la vite mi chiama
    '-----'

Newsgroup: it.comp.lang.perl
Titolo: programmare ad oggetti in perl si puo?

Salve,
e' possibile scrivere in per una classe? come?
Come scrivere le variabili globali?
ad esempio come e' possibile scrivere una classe di questo tipo:
Class auto
{
INTERO litri_serbatoio;
NEW
{
  this->litri_serbatoio=0;
}
FUNZIONE aggiungi_benzina(INTERO litri)
{
	this->litri_serbatoio = this->litri_serbatoio + litri;
}
FUNZIONE strada_possibile_con_benziana()
{
	return (10 * this->litri_serbatoio);
}
}
a= new auto();
a->aggiungi_benzian(10);
l=a->strada_possibile_con_benziana();
Grazie,
Mario.

 e' possibile scrivere in per una classe? come?
 
 perldoc perlobj
Newsgroup: it.comp.lang.perl
Titolo: a voi sembrerà una cazzata...

la query_string č questa:
ht=4.2&hr=1.3&Qd=200&Gt=1500&Gr=1600&Gm=2500&fi=35&s=0.5&e=1.2&a=0.5&i=0.5&b
=0.5&c=4.5&Rck=250&Sfamm=2200&cfs=3&nFinfs=4&fiinfs=14&nFsups=3&fisups=14&cf
e=3&nFinfe=4&fiinfe=14&nFsupe=3&fisupe=14
ora:
come faccio ad avere esplicitata la variabile $ht con assegnato il valore
4.2, la variabile hr con assegnato il valore1.3, ecc... da poter  poi
utilizzare per formule calcoli matematici.
Devo splittare piů volte?
Non esiste un metodo diretto?
Sono all'inizi e vorrei solo risolvere alcuni problemi senza imparare tutto
il  perl.
grazie

leggi la documentazione del modulo CGI
specialmente la parte su 'param'
perldoc CGI
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Non esiste un metodo diretto?
sia $q il tuo oggetto CGI
$q->param('ht') e' il valore della variabile ht e cosi' per tutte le
altre
Saluti
-- 
јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,И
Enrica Iaffei                     Aggregated Technologies ltd
7, Aristotelous Str.   flat 401   3, Demetriou Vikella Str.           
1056 Nicosia       CYPRUS         1061 Nicosia       CYPRUS
phone +357 2 346261               phone +357 2 755750
cell. +357 9 803475               fax   +357 2 750654
"Il vero potere risiede nei detentori dei mass media"
Licio Gelli
јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,ИИ,јЄКА`АКЄј,И

Newsgroup: it.comp.lang.perl
Titolo: libreria per accesso e modifica database access

Qualcuno del NG, sa consigliarmi una buona libreria per
manipolare un file di access?
Phones

 manipolare un file di access?
   Win32::ODBC
--
Alla prossima,
Marco
Newsgroup: it.comp.lang.perl
Titolo: Collegamento fra più pagine ad una pagina

Io ho fatto un forum nel mio sito e per rispondere ai messaggi del forum ho
creato un file denominato "rispondi.htm" e ho creato un collegamento ad
esso. Per distinguere i vari messaggi, ho inventato un collegamento del tipo
"rispondi.htm?id=xxxx" dove xxxx è un codice formato da 4 o 5 cifre per
poter distinguere i vari messaggi. Nel file "rispondi.htm" c'è un modulo da
compilare con nome (o nickname), e-mail, oggetto (bisognerebbe inserire il
codice xxxx che identifica a che messaggio si risponde) e il testo della
risposta. La domanda è: è possibile inserire automaticamente il codice da 4
o 5 cifre nella casella di testo denominata "oggetto"? Se non avete capito,
guardate lo schemino sotto (ingrandite la finestra del messaggio!):
<a href="rispondi.htm?id=1">messaggio1.htm</a>
<a href="rispondi.htm?id=2">messaggio2.htm</a>
<a href="rispondi.htm?id=3">messaggio3.htm</a>
Questi tre link sembra che vadano a diversi file, invece vanno allo stesso
file:
rispondi.htm
Sulla barra degli indirizzi del browser ci sarà
http://www.tuonome.it/forum/rispondi.htm?id=x
 (dove x è una cifra).
Come modulo ci sarà:
Nome: ________         E-mail:_________         Oggetto:______ (inserire la
cifra indicata sulla barra degli indirizzi, cioè x)
Testo:_________________________________________________________________
Io vorrei che nel campo "Oggetto:" PERL mi inserisca automaticamente la x
senza che l'utente la inserisca lui. Come posso fare? Devo modificare
qualcosa? Scusate per la lunghezza del messaggio, ma è veramente importante!
Ciao!
http://www.infiliset.bbk.org/
infi...@NOSPAMvirgilio.it


Tanto per iniziare, una pagina .htm non puo' contenere codice Perl e non
viene eseguita.. a meno ché... [cut]
Cmq non hai chiesto UNA sola cosa semplice.. hai chiesto il funzionamento di
tante cose..
avresti un po'  da studiare :-)
Per cominciare ti dico:
usa il modulo CGI per ricevere parametri da un form o dalla query string
esempio:
#!perl
use CGI qw(:standard);
$q = new CGI;
$id = $q->param('id');
print header;
print "L'id ricevuto è ".$id;
Eccetera.......
Ciao!
Guido.
Newsgroup: it.comp.lang.perl
Titolo: programmare in perl su linux

salve, una volta che ho scritto il sorgente perl, qual'è la migliore
estensione con cui salvarlo? come lo interpreto su linux?

 
Cosa c'entra l'estensione? Puoi anche chiamarlo .txt, basta che
quando lo lanci tu invochi l'interprete:
perl nomescript.txt
oppure lo rendi eseguibile e in testa ci metti qualcosa
tipo:
#!/usr/bin/perl
Se il binario perl si trova sotto /usr/bin, altrimenti cambi
percorso.
Cmq l'estensione piu' usata per il codice perl e' .pl

 estensione con cui salvarlo? come lo interpreto su linux?
1. mentre sei in ambiente grafico (KDE ecc.) clicca sulla console (o
terminale) e scrivi: which perl  Ti verrà scritta la posizione del binari
perl (normalmente è /usr/bin/perl)
Poi crea un file vuoto e scrivici come prima riga:
#!/usr/bin/perl
..di seguito il tuo programma perl...
dopo aver salvato rendi eseguibile il pasticcio con:
chmod 777 /dir/programmaperl.plx
E da allora, cliccandoci su, il mostro si mette in moto.
Naturalmente se vuoi vedere qualcosa in ambiente grafico è
necessario che l'output del programma sia reindirizzato su
un programma a finestre tipo Xdialog o Gsmessage. Altrimenti
devi tornare sul terminale e digitare: programmaperl.plx + invio e
goderti l'effetto sul terminale stesso.
L'estensione non ha importanza in Linux. Comunque dalle mie parti
si usa: .plx.
-- 
-----------------
Sistema operativo Linux
Distribuzione live PuppyLinux 
'fully installed' su Hd ;-) 
http://www.puppylinux.org
Newsgroup: it.comp.lang.perl
Titolo: Mono-Maniac

Ciao a tutti,
  Vorrei leggere in una tabella di hash un file avente il seguente
formato:
<bnf>
	file             ::= /* empty */ | line "\n"
	line             ::= /* empty */ | pair comment
	pair             ::= /* empty */ | KEY " "* "=" " "* VALUE
	comment          ::= "#" what_do_you_want
	what_do_you_want ::= ;)
</bnf>
possibilmente con un singolo statement PERL. Qualcuno di voi ha in mente
qualcosa? ;)
	Alla prossima,
		Marco

 </bnf>

 
Con un singolo statement Perl mi sembra eccessivo. Comunque manca una
definizione bnf rigorosa di KEY e VALUE. Ad esempio, la seguente riga
    pippo = "ciao # ciao"   #notare il primo cancelletto
come deve essere interpretata? Ovvero, dove inizia il commento?
Max

 Comunque manca una definizione bnf rigorosa di KEY e VALUE. 
  Hai ragione:
	KEY   ::= [_A-Za-z0-9]+
	VALUE ::= [_A-Za-z0-9]+
  Buon lavoro.
	Alla prossima,
		Marco

 
 open F, "file";
 
 (%map=map{/^\s*(([_\w]+)\s*=\s*([\w_]+)\s*)?(#|$)/
 ?($2,$3):die"syntax error:$_"}<F>)|delete$map{""};
Max

  ?($2,$3):die"syntax error:$_"}<F>)|delete$map{""};
  Complimenti. :)
	Alla prossima,
		Marco

Newsgroup: it.comp.lang.perl
Titolo: uccidere processo

Salve a tutti.
sono un neofita del perl, ma la sua maggia mi attira parecchio e vorrei farlo
mio, ora ho fatto uno scriptino per uccidere un processo, funziona tutto ma 
quando poi riavvio il processo ucciso mi da questo messagio
fetchmail: removing stale lockfile
perchč?
allego ilmio scriptino.
Grazie
Fabrizio
#!/usr/bin/perl
foreach $linea (@processo){
if($linea=~/fetchmail/){
@numero=split(" ",$linea);
`kill -9 $numero[0]`;
print ("Ucciso\n");
last
}
}

 perchè?
1. Perchè usi SIGKILL(9)? Sai che effetto ha? E' un segnale che non è
intercettabile, e determina la morte immediata del processo. SIGKILL non
deve essere *mai* usato per uccidere un processo, se in quei casi
eccezionali in cui il programma non reagisce adeguatamente al SIGTERM.
2. Perchè esegui un comando shell se Perl dispone della funzione kill?
Max


 wrote in message
Pine.LNX.4.10.100122...@c64.comm2000.it...

Max
Si so che efetto ha! pensavo che poteva essere quella la causa del mesaggio di erore, ovvero
la mancanza di SIGKILL quindo ho ritoccato lo script, ed l'ho lasciato cosě.
Ho provato con la funzione di perl per unncidere il processo ma nulla da fare!
non lo butta giů!
#!/usr/bin/perl -w
@processo=`ps -ax`;
foreach $linea (@processo){
if($linea=~/pppd/){
@numero=split(" ",$linea);
kill  $numero[0];


Newsgroup: it.comp.lang.perl
Titolo: libro sul perl?

Salve esisite la versione italiana sul libro Learning perl come posso
trovarla? Grazie

 trovarla? Grazie
Che io sappia non esiste.
In italiano, della O'Reilly mi pare ci siano solo "Programmare in Perl" 
e "Perl, guida di riferimento" che e' la traduzione di "Perl in a
nutshell".
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: [Semi-OT] Sviluppo software, testing e good practices ?

Salve, gente!
Sono studente di informatica al quinto anno in un ITIS.
Ho sempre scritto programmi per motivi di scuola e/o per diletto.
Finché le dimensioni del programma erano contenute, ho sempre compilato a 
mano e testato eseguendo il programma e provando le funzioni che via via 
aggiungevo.
Ultimamente sto portando avanti un progetto client/server che comincia a 
diventare grosso, e provare a mano ogni volta le funzioni comincia a 
diventare macchinoso.
Ho sentito spesso parlare di testing del software, ma non ho mai 
approfondito.
Qualcuno potrebbe spiegarmi, in breve, di che si tratta magari linkandomi 
delle risorse on-line ?
Premetto che scrivo abitualmente programmi in diversi linguaggi e dunque 
non vorrei, in questa discussione, soffermarmi su un particolare 
linguaggio ma mantenermi sul generico, sul "metodologico".
Grazie in anticipo, e chiedo scusa per il cross-post,
-- 
Raziel Nitro

 Grazie in anticipo, e chiedo scusa per il cross-post,
Ciao, Davide.

 wikipedia c'è un articolo lungherrimo:
http://en.wikipedia.org/wiki/Continuous_integration
la continous integration si occupa di automatizzare i vari processi di
build, esecuzione di campagne di test (funzionali e di unità), per cui
nel momento in cui gli sviluppatori inseriscono nuove caratteristiche
nel codice, ci sono strumenti che si preoccupano di effettuare il
build, e tutto il resto. Tipicamente questi strumenti sono dotati di
una sorta di cruscotto che mostra in ogni istante la situazione del
codice sorgente, dei test effettuati, ecc.
Strumento open source principe al riguardo è Hudson: 
http://hudson-ci.org/
,
per il quale è anche disponibile un libro on-line e documentazione
varia: 
http://hudson-ci.org/docs/index.html
 e
http://www.wakaleo.com/books/continuous-integration-with-hudson-the-book
.
L'autore di quest'ultimo libro ha scritto un libro notevole che copre
tutti questi argomenti e molto altro, che si intitola Java Power
Tools, edito da O'Reilly. Ovviamente qui siamo nello specifico del
mondo Java.
Ciao
Daniele
Newsgroup: it.comp.lang.perl
Titolo: globbing [era while (-e $nome_file)]

Mi rivolgo a Stefano perchè è stato così gentile da rispondere, comunque
qualsiasi aiuto è superbenaccetto...
Ciao...come si capisce dalle domande sono alle primissime armi con perl e
così non mi sembra di riuscire a sfruttare appieno il globbing (o forse non
è il piu' adatto per il mio scopo..)
Il mio problema è:
sto scrivendo un piccolo script che dati certi dati in input, li metta
insieme, li scriva in un file e chiamo un altro processo che lo deve
elaborare: niente di complicato.
La difficoltà è il nome che devo dare al file: il nome è del tipo:
'nomefisso_data_xxxx' dove xxxx è un numero (parto con 0000 e via con
0001,...).
while (-e $nome_file) {
$num++;
$nome_file = 'INAC_GSM_'."$datafile".'_'."$num".'.ASC';
}
in questo modo (piuttosto semplice) scrivo il  file con la prima numerazione
progressiva che non esiste, MA c'è una complicazione:
io faccio il test su $nome_file, mentre in realtà il nome potrebbe essere
'stringa_a_caso_nomefisso_data_xxxx', vorrei fare quindi il test sul nome
file in modo da tener conto anche della 'stringa_a_caso'.
Con glob riesco a mettere tutte queste occorrenze in un array ma poi non so
che farci....o, meglio, ho qualche idea ma mi sembra poco efficiente e
funzionale...
Grazie per l'aiuto
Andrea

funzionale...
Non riesco a capire quale sia il problema: non sai come "tener conto della
stringa a caso", o non sai che cosa fare di quello che ottieni?
Come ti è stato detto, con glob (implicito o esplicito), non c'è bisogno di
effettuare alcun test: i nomi restituiti sono tutti e soli quelli dei file
che esistono; una volta che hai i nomi in un array, puoi farci quello che
vuoi, per esempio, come ti è stato suggerito, processarli uno per uno in un
ciclo foreach:
 foreach $nome_file ( @files ) {
    $num++;
    $nome_file = 'INAC_GSM_'."$datafile".'_'."$num".'.ASC'; 
    ...
 }
Per la stringa a caso, un glob("*nomefisso*) dovrebbe funzionare.
Un altro sistema è usare le funzioni opendir e readdir, e controllare di
persona i nomi dei file.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Script motore di ricerca free e funzionante

Salve ragazzi, qualcuno sa dove posso trovare del codice per fare un motore
di ricerca (che funzioni).....oppure postarlo qui?
Grazie Ciao

 di ricerca (che funzioni).....oppure postarlo qui?
Input insufficiente. 
Definire "motore di ricerca".
***OUT OF CHEESE ERROR***
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

di ricerca (che funzioni).....oppure postarlo qui?
Un motore di ricerca er che tipo di sito? Interno o aperto alla rete?
Deve lavorare su archivi sequenziali o relazionali?
Devi dare più informazioni se vuoi che ti possiamo aiutare.
Ciao
Andrea Busia
No Spam, Grazie.

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

Salve, vorrei sapere un paio di cose su uno scriptino perl che sto facendo
( o cercando di fare ):
1. voglio far eseguire due script esterni, esempio:
     exec('script1.sh','arg1');
     exec('script2.sh','arg1');
   ma viene sistematicamente eseguito solo il primo. Perchè ??
2. se volessi eseguire uno script che mi torna una STRINGA invece che un
codice di errore come faccio ??? Oppure non è possibile ??? Ho visto
alcuni suggerimenti che parlavano di settare una variabile d'ambiente
temporanea , ma non gradisco molto questa soluzione.
Grazie a tutti,
j0k3r
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 codice di errore come faccio ??? Oppure non è possibile ???
Io di solito uso il comando
do 'nome_programma';
su cui uso l'istruzione return($stringa).
Il parametro lo prendi come una chiamata ad una subroutine normale.
Sperando di non aver detto cavolate :)
Ciao
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 temporanea , ma non gradisco molto questa soluzione.
Comunque, presupponendo che "eseguire uno script" significhi "eseguire 
uno shell script", ecco cosa fare:
$stringa = `comando del sistema operativo con argomenti`
nota le virgolette inverse.
oppure
$stringa = qx(comando del sistema operativo con argomenti)
http://www.perldoc.com/perl5.8.0/pod/perlop.html#Quote-and-Quote-like-Operators
Ciao
gmax
-- 
   ____ ____  _____ _   _
  / _  |    \(____ ( \ / )
( (_| | | | / ___ |) X (
  \___ |_|_|_\_____(_/ \_)
(_____|
Sapere, saper fare, fare, far sapere
http://gmax.oltrelinux.com

 temporanea , ma non gradisco molto questa soluzione.
È una possibilità. Potresti anche usare un file temporaneo e spararci
dentro la stringa.
Ciao,
 Emmanuele.
-- 
Emmanuele Bassi (Zefram)                 [ 
http://www.emmanuelebassi.net
 ]
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4