mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Chiamare un file exe in perl

Qualcuno saprebbe gentilmente dirmi come si può chiamare un file exe
da uno script Perl?
Grazie.

 da uno script Perl?
system "mioprogramma.exe";
Puoi leggerti le istruzioni da prompt di dos, digitando:
perldoc -f system
Poi sono anche exec, e i backticks: `
Maggiori info le trovi nella documentazione che in genere su windows
si trova in:
C:\Perl\html
e in rete su 
http://www.perldoc.com
e in particolare le faq:
http://www.perldoc.com/perl5.6/pod/perlfaq.html
(perldoc perlfaq)
e le funzioni
http://www.perldoc.com/perl5.6/pod/perlfunc.html
(perldoc perlfunc)
-- 
$_=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



Funziona anche sotto Linux? Grazie ancora.

 Funziona anche sotto Linux? Grazie ancora.
certo! Il Perl cerca di essere il + possibile indipendente dalla
piattaforma! :))


Newsgroup: it.comp.lang.perl
Titolo: Search into file!!

Hi,
I would like to know if there is a way to implement a text search into
files using perl!
thank's a lot.
Claudio.
E-mail: 
c.bel...@tin.it

files using perl!
yes.
see
http://www.perl.com/pub/doc/manual/html/pod/perlfunc/grep.html
sincerely,
d
-- 
_______________________________________________________________________
"MY MANY TENTACLES WILL DESTROY YOU!"                
arin...@panix.com
-- Dr. Octopus CK                               
www.panix.com/~aringsta


Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See 
PerlTraining.Stonehenge.com
 for onsite and open-enrollment Perl training!

 wrote:
: (Hmm... I'm starting to wonder if there's a common question that *cannot*
: be answered by pointing at one of my columns somewhere... :)
It should be an egg-and-chicken problem. Why did you write your columns
(not your book...) in the first place?
ciao, .mau.

Newsgroup: it.comp.lang.perl
Titolo: Problems parsing XML with perl.....

Hope someone could help me with this problem....
  I have the following XML file :
  <?xml version="1.0" encoding="UTF-8"?>
  <new_payment>
   <id value="name"/>
   <key value="keyname"/>
  </new_payment>
  What i need to do is, parse this XML file and get the
  id = name
  key = keyname
  I have tried XML::DOM and XML::Parser but i can not figure out if there
  is a problem with this XML-file or me , he he...
  Hope someone have the answer...
  Michael , Denmark.

   is a problem with this XML-file or me , he he...
it's even harder for us to figure out if we don't know what results did
you got from XML::DOM and XML::Parser, and the code you wrote to
try.
I saved your XML in a file (called michael.xml) and tried this simple
script:
  use XML::Simple;
  use Data::Dumper;
  my $xml = XMLin('michael.xml');
  print Dumper($xml);
and I got this result:
 
  $VAR1 = {
      'id' => {
          'value' => 'name'
      },
      'key' => {
          'value' => 'keyname'
      }
  };
it should be simple enough to extract the information you need.
cheers,
Aldo
--- have fun with 
www.perl.it
 ---
Newsgroup: it.comp.lang.perl
Titolo: formattare una stringa a 14 caratteri

Salve,
come faccio per formattare una stringa a 14 caratteri
inserendo degli spazi se la stringa è minore di 14 caratteri
fino ad arrivare a tale numero ?
Esempio:
$pippo = "1234567890";
$pippo deve risultare:
$pippo = "1234567890    ";
So che si fa con la printf ma non mi ci raccapezzo !
Grazie
Giuseppe Torelli
P.S. per Domiziano e Max:
vi ho risposto via email

So che si fa con la printf ma non mi ci raccapezzo !
Si PUO' fare "con la" printf (o sprintf, se devi memorizzare il risultato e
non solo stamparlo):
   printf("%-14.14s", $pippo);
   $pippo = sprintf("%-14.14s", $pippo);
Si fa anche "con la" pack:
   $pippo = pack("A14", $pippo);
o "con la" substr:
   $pippo = substr($pippo . " " x 14, 0, 14);
o "con la" length:
   $pippo = $pippo . " " x (14 - length($pippo));
Ciao.

 wrote in message
news:33t2qucdq5q6umsvj...@4ax.com...

ELLAMADONNA!!! Che risposta! Paura eh che qualcuno ti scriva "... si però si
fa meglio con... bla bla bla..." :-)
ciao
--
-.. --- -- .. --.. .. ---
-.. . -- .. -.-. .... . .-.. .. ...

fa meglio con... bla bla bla..." :-)
Per la verita', mi sono sempre chiesto "Perche' mai perl non ha delle
funzioni pad (lpad, rpad), che erano cosi' comode in Clipper?"; cosi' ho
approfittato della domanda di Giuseppe Torelli per cercare di rispondermi.
Ma non sono ancora del tutto convinto.
Ciao.

   $pippo = $pippo . " " x (14 - length($pippo));
Quest'ultima naturalmente e' valida solo se length($pippo) <= 14.
Ciao. 

 Si PUO' fare "con la" [...]
  Scommetto che una cosa del genere non la trovi facendo perldoc -q x.
  O sbaglio?
  Complimenti. Questa e` una Faq coi controfiocchi. Grazie.
-- 
Power down.

  Complimenti. Questa e` una Faq coi controfiocchi. Grazie.
Aggiungici questa, allora:
   formline "@<<<<<<<<<<<<<@", $pippo;
   $pippo = $^A;
(Ma ci voleva tanto a metterci una funzione pad primitiva? Bah...)
Ciao.

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

QUALI SONO LE ISTRUZIONI CHE PERMETTONO LA SCRITTURA DI UN FILE DOPO
L'APERTURA IN > O >>?

 ha scritto nel messaggio
news:urGx5.46198$XZ4.6...@news.infostrada.it...


Newsgroup: it.comp.lang.perl
Titolo: print <<EOF

Salve a tutti,
sono nuovo di questo newsgroup perché ho avuto la necessità di cominciare a
scrivere qualche script in PERL.
Ho letto abbastanza accuratamente il libro Programmare in Perl, anche se non ho
ancora assimilato tutti i concetti.
Leggendo vari messaggi ho visto spesso le seguenti istruzioni ma non ho capito
bene quale sia il significato:
print <<EOF;
RISPOSTA
EOF
qualcuno me lo riesce a spiegare? (Sono sicuro di si)
Spero di poter scrivere presto e di riuscire ad imparare al meglio le
funzionalità del PERL per poter usarlo a fondo.
Ciao
	Pirla
Per rispondere in E-mail the (punto) pirla (chiocciola) 
flashnet.it
*** un bacio ai pupi ***
---> Linux user since yesterday <---

 ---> Linux user since yesterday <---
Brào!
;-))
Ciao
M.
Newsgroup: it.comp.lang.perl
Titolo: Output "browser-like"

Da poco mi sto avvicinando al Perl,
che uso soprattutto per automatizzare
la creazione di pagine html che devo
curare.
L'output dei miei script è quindi il più
delle volte codice html.
Sotto Windows uso un editor che si chiama
DZSoft che ha la possibilità di visualizzare
l'output del codice direttamente nella finestra
di un browser.
Come posso fare qualcosa di simile sotto Linux ?
____________________________
Alessandro Antonucci
af...@NOSPAMinwind.it
www.ilfarorosso.com

 Come posso fare qualcosa di simile sotto Linux ?
Supponendo che tu abbia installato e configurato correttamente un web 
server (Apache probabilmente), la cosa e` semplice: tieni aperti sia 
l'editor che il browser, ad ogni modifica salvi il codice e fai un "reload" 
dal browser.
Michele.


wrote:

Ti ringrazio della risposta. Il problema 
e' quindi che non ho installato un server
sul mio computer. Ci provero'.
E' una cosa molto complessa ?
A proposito, i provider che dano spazio web gratis
supportano i cgi scritti in perl ?
E aruba ?
Grazie.


Ciao!

Ti ringrazio della risposta. Il problema 
e' quindi che non ho installato un server
sul mio computer. Ci provero'.
E' una cosa molto complessa ?
A proposito, i provider che dano spazio web gratis
supportano i cgi scritti in perl ?
E aruba ?
Grazie.


E aruba ?
Tientene alla larga. A prescindere
-- 
Nato nel vizio, morto nel supplizio
Nato nel peccato, ad entrare sia invitato
Newsgroup: it.comp.lang.perl
Titolo: [forse OT] Perl e Apache mod_perl

Salve,
riconfigurando un'applicazione perl di rubrica e gestione appuntamenti
opensource, ho notato sulla stessa macchina ma distro differente (da RedHat
8.0 a Suse 8.1) una notevole diminuzione delle performance.
Come si puo' aumentare le performance in soluzioni perl?
Grazie mille e scusate se sono OT, forse.
---
VIRUS FREE Controllata con AVG
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.481 / Virus Database: 277 - Release Date: 13/05/2003

 Grazie mille e scusate se sono OT, forse.
 
Non penso proprio
by
	- Enrico

Grazie Enrico,
giustamente Apache 1.3.26 e Perl 5.8.0
Si' l'applicazione gira anche con mod_perl ma per fare questo cosa  devo
mettere nel file httpd.conf?
Il modulo lo carica, almeno nella configurazione c'e' sia Add che Load.
Se per esempio voglio utilizzare /httpd/cgi-bin/webcal
con mod_perl come devo configurare httpd.conf?
Grazie mille.


 
Mmhh, nella documentazione non c'è scritto nulla a proposito?
A priori è difficile darti indicazioni sulle direttive mod_perl da
inserire nei file di configurazione di Apache... :-(
Dovresti vedere se l'applicazione:
 o è composta di soli script Perl (per cui potresti farla girare sotto 
   Apache::Registry o Apache::PerlRun)
 o sono moduli mod_perl (per cui dovrebbe esserci documentazione su come
   installarli)
 o è basata già su un appserver mod_perl :-) (HTML::Mason, HTML::Embperl, 
    AxKit, ecc)
by
	- Enrico


Come diceva il buon Enrico,
Ho risolto mettendo nell' httpd.conf nella sezione di /cgi-bin
la direttiva Apache::PerlRun
il tutto e' tornato meravigliosamente piu' veloce.
Grazie a tutti.


 
Ti consiglio di spulciare meglio nella documentazione e vedere
se l'applicazione è Apache::Registry 'compliant'.
Otterrai così un ulteriore aumento in prestazioni dal momento
che non solo l'interprete Perl è residente in memoria ma anche
gli script, che saranno così compilati _una_ sola volta per tutte
le invocazioni.
by
	- Enrico
Newsgroup: it.comp.lang.perl
Titolo: questione di stile

In un programma utilizzo la seguente:
sub del_tag {
 @ary_out =  grep { ! />/o  and  ! /^A[a-z]/o
             and ! /^B[a-z]/o and ! /^L[a-z]/o
             and ! /^O[a-z]/o and ! /^E[a-z]/o
             } @ary ; 
	}
e mi sto chiedendo se e' possibile far di meglio
sia come stile che come efficenza.
-- 
	Dino




Dipende da che dovrebbe fare. Di criptico e' criptico, ma il suo scopo quale
sarebbe. Oddio... non che sia complicato da capire, ma spiegare velocizzerebbe
la faccenda.
Lasci nell'array tutto quello che non contiene > e con inizia con A,B,L,O,E
seguito da una lettera minuscola.
 
 Gli /o non servono: le RE sono statiche e quindi non c'e' bisogno di dirgli
 di non ricompilarle
 la seconda condizione potrebbe essere ridotta a ! /^[ABLOE][a-z]/
 Per il resto, il grep potrebbe essere sostituito da un ciclo while/push,
 anche se dovrei indagare  eventuali effetti di aliasing (qui non sfruttati).
 
 Ah. Dovresti usare &&, non 'and', anche se poi l'effetto cumulativo e' lo
 stesso (data la precedenza del !).
 
 Maurizio
 
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

sia come stile che come efficenza.
Perchè non 
@ary_out =  grep { ! />/o  and  ! /^(?:A|B|L|O|E)[a-z]/o} @ary ; 
Ciao
Andrea Busia
No Spam, Grazie.

la faccenda.
parte del parsing delle pagine televideo (323..328) relative ai fondi comuni
d'investimento all'uopo di inserire i dati in un db per poi gestire i medesimi.
Elimino i tag html e le intestazioni del tipo fondo:
Azionario, Obbligazionario ..etc etc  
--
	Dino



Personalmente, per informazioni di questo genere uso il sito del Sole24Ore,
tirandomi fuori solo i dati che mi interessano. 
Ma dopotutto un sito vale l'altro.

Newsgroup: it.comp.lang.perl
Titolo: Aiuto Threads in Perl

Ho fatto degli esperimenti con i threads:
use threads; #(per il Perl 5.8.0 compilato per i threads)
$thr = threads->new (\&ex, $params);
sub ex{
 while (1){
  fa qualcosa
 }
}
OK, ma come lo fermo sto thread?
Il loop funziona, ma non ho più controllo sul thread; se ad un certo
punto del prog. devo distruggere il THR o solo stopparlo, come faccio?
Grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 punto del prog. devo distruggere il THR o solo stopparlo, come faccio?
        $thr = threads->new(\&sub1);
        @ReturnData = $thr->join;
perldoc perlthrtut
Cheers,
alf

 perldoc perlthrtut
In questo modo blotto tutto il prog in attesa che il thread finisca cio'
che sta facendo, ma questo non accadrà mai perchè si trova in un loop 
infinito.
Per ora ho risolto cosi:
use threads;
use thread::Shared;
my $go : shared = 0;
sun Funzione Bottone Perl{
...
if ($go == 1){
 $form->{'butt_connetti'}->child->set( "Connetti" );
 #$thr->quit();
 $go = 0;
 &logd ($instance, "GO = ".$go);
 $thr->join;
 }
else{
 $form->{'butt_connetti'}->child->set( "Stop" );
 $go = 1;
 $thr = threads->new (\&prova, $instance);
 
 #$thr->detach;
 
 }
}
sub prova{
my $instance = $_[0];
my $count = 0;
 while($go){
 &logd ($instance, $go);
 sleep($sleep);# 1 sec
 threads->yield;
 $count++;
 }
 &logd ($instance, "Esco ".$count);
}
Cosi mi esce quando clicco su Stop.
Quando clicco Connetti e parte il thread per la prima volta,
il loop lo esegue solo 6 volte ( ma non sempre, spesso si blocca dopo
il 2° giro e altre volte a 5, ???) ed improvvisamente si ferma tutto.
Per l'interfaccia grafica uso le Gtk.
Ciao a tutti


Newsgroup: it.comp.lang.perl
Titolo: [OT] Hosting e PerlMagick

Qualcuno conosce hosting piuttosto performante che fornisca
Perl + PHP + PerlMagick + MySQL + moduli Perl per la gestione del database
MySQL?
Grazie!

MySQL?
ho alcuni hosting su 
netcat.it
 da qualche tempo e supporta parecchie
cose su linux e unix tra le quali quelle che hai appena detto.
ciao
PS: credo che lo facciano ancora ....: a me fecero attivare uno spazio
di prova gratuito per provare il servizio...
Newsgroup: it.comp.lang.perl
Titolo: Nascondere sorgente

Salve a tutti!
Ho la necessità di rendere un sorgente Perl illegibile.
Esiste un modo che non sia la compilazione del .pl?
Grazie anticipatamente.
Ciao
        Johnny

Acme::Bleach
--
-.. --- -- .. --.. .. ---
-.. . -- .. -.-. .... . .-.. .. ...

Domizio Demichelis wrote:

Veramente grazie per una risposta cosě celere!
Il modulo č vearamente forte! (Anche il Morse...).
Siccome l'appettito vien  magiando... E' possibile criptare anche i .pm?
Grazie ancora.
        Johnny

non ho mai provato, ma credo sia esattamente uguale a un qualunque script.
Comunque fai prima a provare che a chiedere!


 wrote in message
TvPv9.62428$TD1.2...@news2.tin.it...


 ma io ho sempre scritto degli script non compilati....
  In effetti compilarli non e' una grande idea (IMHO).
Ciao
Mattia

C'era anche Perl2exe o qualcosa del genere che praticamente prende i vari
moduli usati, lo script e files vari e ne fa un pacchetto che contiene un
interprete perl e ne fa un unico eseguibile. Disponibile per Win e Unix...
io l'avevo provato e funzionava... non mi pare comunque che renda il
sorgente illeggibile


funzionare. Vedi perlcompile per ulteriori informazioni.
Come vorrei averlo fatto funzionare almeno una volta, con il più
semplici degli script: ciao mondo.
Eppure non sono per niente a digiuno di queste cose.
Mi sono fatto l'idea che tutta la faccenda è stata resa volutamente
criptica.
Se davvero funziona, come farlo io non l'ho capito, almeno dalla doc
ufficiale.
Qualcuno ha operato la magia?
In alternativa perl2exe funziona che è na bellezz
Ciao
--
http://www.giuseppedesio.net
 pigmalion network
http://www.giuseppedesio.net/perl
 Perl
rimuovi '.hid' per rispondermi

 wrote in message
Xns92B89F476946D...@192.168.9.1...


 wrote in message
dJdx9.111282$%M1.28...@twister2.libero.it...


dall'interprete perl stesso evocandolo dal programma JAva??
Io non credo molto a queste integrazioni, ma Larry Wall a quanto pare sě:
vedi JPL e, da quello che posso capire, lo stesso Perl 6 prossimo venturo.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: [Bug] System call da un thread

Durante lo sviluppo di un applicazione distribuita non capivo per 
quale motivo improvvisamente ottenessi un Segmentation Fault.
Su google ho trovato questo link relativo esattamente al mio problema, e
ho pensato di segnalarlo sul newsgroup.
http://tinyurl.com/nmvkw
questo è il link originale:
http://groups.google.it/group/perl.perl5.porters/browse_thread/thread/
ee4ee8f826447694/3abc8d45127e59f4?lnk=st&q=segmentation+fault+system+
perl&rnum=1#3abc8d45127e59f4
Il seguente codice di esempio produce Segmentation Fault su 5 macchine
che uso per sviluppare la mia applicazione.
Sono 4 Pentium III e la quinta è un AMD Athlon.
Su tutte ho debian stabile con perl 5.8.7.
Ecco il codice di test che produce Segmentation Fault:
#!/usr/bin/perl
use strict;
use warnings;
use threads;
use threads::shared;
while(1) {
        my @t;
        for (1..20) {
                push @t, async {
			system("ls -l /etc > /dev/null");
	                return;
                };
        }
        $_->join for @t;
        print ".";
} 															

 Su tutte ho debian stabile con perl 5.8.7.
L'ho provato su una debian unstable con 5.8.8 e su una ubuntu con 5.8.7
(entrambe emulate con vmware): dopo oltre 15 minuti, lo script era
ancora in esecuzione. Con una piccola modifica l'ho provato su Windows e
pare andare.

 pare andare.
In effetti preso dalla foga degli esperimenti non ho controllato un
fattore determinante.
Le mie prove le ho eseguite su kernel 2.4.27 e il problema si verifica
con 5.8.7.
Con la stessa versione ma con kernel 2.6 tutto a posto.
Spero che un giorno possa servire a qualcuno !

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

Dove potrei trovare un tutorial *completo* sulla programmazione in perl?
GRAZIE

 GRAZIE
Super completo non č perň secondo me č valido: 
http://www.hyperbook.it/
  (link Perl e internet)
        johnny

 Dove potrei trovare un tutorial *completo* sulla programmazione in perl?
In inglese ce ne sono parecchi.
Ti consiglio di partire da questo *ottimo* libro che trovi in file pdf 
liberamente scaricabili:
http://learn.perl.org/library/beginning_perl/
In it, prova:
http://www.autistici.org/loa/web/iniziative/corsi/perl/index.html
http://www.apache3000.net/tools/perl/
http://www.softwareplanet.net/php/mostraCorso.php?nomeCorso=Perl
http://www.html.it/perl/index.html
http://www.latoserver.it/perl/


Oh, grazie, sono molto interessanti.

         johnny
Ti ringrazio, e' molto interessante.

Newsgroup: it.comp.lang.perl
Titolo: [OT] newsgroup italiane sul SSI

Salve a tutti,
volevo sapere se esistono ng italiane specifiche per l'SSI
GRAZIE

 ha scritto nel messaggio
news:%DtJ6.30811$UW4.1...@news.infostrada.it...


 wrote in message
9ebfm4$1pc$1...@pegasus.tiscalinet.it...

Newsgroup: it.comp.lang.perl
Titolo: Funzioni e socket

Ho bisogno di aiuto nella realizzazione di un programmino che:
 - apra un socket verso la macchina chiamata ad esempio xm1
 - spedisca il login e la password
 - lanci un comando che restituisce un numero (in questo caso ./auth | grep
OK)
 - mi restituisca il numero...
E' possibile farlo semplicemente in Perl???
--
==========
Riccardo Ricci - Servizi numerici
Via Giovanni della Penna, 47
00126 Roma
Tel. 065211915 - 03286299442
                            03483665128
Fax. 06233215717
e.mail: 
neto...@tin.it
 
neto...@infinito.it
 
netm...@hotmail.com
 
ricci.r...@tin.it

 E' possibile farlo semplicemente in Perl???
perldoc Net::Telnet
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

Newsgroup: it.comp.lang.perl
Titolo: apache + mod_perl + solaris 8

Ciao sono Marco
Non riesco a compilare il mod_perl per Apache sotto Sun - Solaris 8.
Il problemma é che durante il make ricevo parecchi messaggi di errore, per
esempio continua a cercare cc che non ho disponibile, ho provato a
costringerlo ad usare gcc ma qualche opzione non gli piace, poi non trova un
file Leak.c che invecce c'é.
Qualcuno mi può dare una mano, é molto gradita anche la segnalazione di un
posto dove posso trovare il modulo pronto da compilare dinamicamente.
Grazie e Ciao

 file Leak.c che invecce c'é.
Sorry... non saprei che dire.
-- 
Ciao, Maurizio.

Newsgroup: it.comp.lang.perl
Titolo: Re: help          problemino con perl

     }
 
Questo metodo funziona ma è inefficiente, dovendo lanciare
un processo esterno. Meglio usare i file test, la cui 
documentazione si può leggere in «perldoc -f -X»
 
s.
 
 
-- 
Stefano Rodighiero      |  
http://www.stefanorodighiero.net
 
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it

Newsgroup: it.comp.lang.perl
Titolo: lettura file testo al contrario

vorrei sapere come fare a leggere un file di testo dall'ultima riga all
prima.
L'unico comando che ho trovato per spostare il puntatore in fondo al file è
seek()

!

Ti conviene mettere le righe (invertite) in un array:
@righe = reverse <FILE>;
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> Sito di it.comp.lang.perl: 
http://www.perl-it.org
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!


Potresti provare con reverse(), anche se non so se funzioni con i FH o
con gli array (con le stringhe di sicuro)
Ciao
M.
-- 
rm -rf 
and be happy

Grazie per la risposta, ma il mio problema non č finito !
Se copio i dati in un array non c'č problema tutto funziona, ma lo trovo un
procedimento dispendioso in termini di tempo.
Mi pare strano che Perl non abbia una procedura del genere!
Volevo inoltre sapere se esisteva una procedura che permetta al file di
essere aperto contemporaneamente da piů utenti, altrimenti ci potrebbe
essere una perdita di dati
Grazie
Newsgroup: it.comp.lang.perl
Titolo: Si possono mettere 2 percorsi nella prima riga degli script?

 è possibile? 
No.
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: Programmatore offre collaborazione e consulenza

 10042 - Nichelino (To)
 
 

 wrote:
: > UHJvZ3JhbW1hdG9yZSBjb24gcGx1cmllbm5hbGUgZXNwZXJpZW56YSBsYXZvcmF0aXZhIG5lbC
: > ZXR0b3JlIEludGVybmV0LCBnZXN0aW9uYWxlIGUgbXVsdGltZWRpYWxlIHNpIG9mZnJlIGFkIG
: [and so on...]
: 
: Interessante, e per niente OT.
Perche` non hai un newsreader abbastanza intelligente da tradurre da base64
(lo fa persino trn...).
Cosi` ti sei perso la perla (il famoso linguaggio Pearl).
.mau.

 wrote:
: > Perche` non hai un newsreader abbastanza intelligente da tradurre da base64
: > (lo fa persino trn...).
: 
: Ma perche' il mio bravo MacSOUP dovrebbe tradurre del plain text da
: Base64? 
perche` ti vuole bene :-)
: Postiamo i jpeg delle lettere scritte a mano, allora...
No, sarebbero file binari e quindi tagliati dal cancelbot.
ciao .mau.

 Sono interessato anche ad ulteriori collaborazioni con altri programmatori purchč seri e fortemente appassionati.
Di PeArl???
Mi pare ovvio che A e B si annullino a vicenda...
Sě Sě.... evviva la pluriennale esperienza lavorativa nel settore (????)
Internet...
Wiz *sarcasman* of Id

Newsgroup: it.comp.lang.perl
Titolo: Perl e syslog...

C'e' un qualche motivo noto per cui, su perl 5.00404, il seguente codice
non funziona (niente warning, niente errori, ma nei log non appare nulla):
	#!/usr/bin/perl -w
	use Sys::Syslog;
 
	openlog("XXX", ",ndelay,nowait,pid","local6");
	syslog("info","this is another test");
	syslog("warning","this is a better test: %d", time);
	closelog();
L'esempio e' liberamente riadattato da quello presente in 
syslog.pl
.
	curiosamente,
	    Cthulhu
P.S.: ovviamente uso linux.
-- 
       Ph'nglui mglw'nafh Cthulhu 
http://www.rlyeh.it
 wgah'nagl fhtgan!

 non funziona (niente warning, niente errori, ma nei log non appare nulla):
Mi rispondo da solo.
Quelle fetusissime librerie comunicano via socket con syslogd, quindi dovete
avviare quest'ultimo con '-r'. Sgrunt.
	capitamente,
	   Cthulhu

Newsgroup: it.comp.lang.perl
Titolo: Ho capito bene? (riguardo $_)

Salve, dopo anni di cercare di risolvere i problemi con VBscript, mi sono
rotto le p.... (cioè "le pazienze") perché riuscivo a fare quello che mi
serviva ma ci volevano ore prima di avere risultati e mi sono finalmente
deciso a studiare veramente perl dopo aver tirato avanti per qualche mese
"tagliando e cucendo" scripts altrui :)))
Finora tutto bene, grazie anche a qualche link trovato mentre "lurkavo" nel
ng, ma c'è una variabile speciale che non sono sicuro di aver capito bene:
$_
Da letture e prove mi sembra che corrisponda al valore corrente dentro ad un
ciclo... è così o c'è qualcos'altro da sapere?
Scusate, se si trattava di una cosa pratica continuavo a provare fino a
risolvere, ma essendo una domanda "filosofica" - e trovando quasi tutti i
link in inglese - volevo essere sicuro di aver capito tutte le possibilità
prima di andare avanti.
grazie,
Paulus
http://spazioweb.inwind.it/it_informatica
--------------------------------
Inviato via 
http://usenet.libero.it

 $_
E' una variabile "magica" che molte funzioni, operatori o costrutti 
sintattici vari usano come default sia per "metterci" i valori che 
ritornano sia per "leggerci" i valori in input.
Un esemip classico e' un while su un file handle:
open (FILE, '/path/to/file');
while (<FILE>) {
        chomp;
        print ;
}
- L'operatore <> applicato ad un file handle restituisce la riga 
"corrente" del file ($riga=<FILEHANDLE>) se si omette la variabile in 
cui caricare la riga quasta viene messa in $_.
- La funzione chomp elimina un eventuale carattere new-line dalla fine 
della stringa che gli si passa come argomento, se l'argomento e' omesso 
la funzione processa $_.
- Anche print se chiamto senza argomenti stampa $_.
Esplicitando tutto il pezzo di codice diventa:
open (FILE, '/path/to/file');
while ($_=<FILE>) {
        chomp($_);
        print STDOUT, $_;
}
-- 
Saluti,
Giancarlo

 E' una variabile "magica" [cut]
Aggiungo che ci sono molte variabili speciali in Perl che e' bene
conoscere.
Dai un'occhiata a
http://www.kichwa.com/quik_ref/spec_variables.html
 Raffaello

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

è possibile far eseguire script asp su un sitema unix? io ho uno spazio web
con supporto perl e cgi, ci sono dei moduli che mi fanno andare anche asp?
se si dove sono?
chi li deve installare?
Grazie
Andrea

c'è un pacchetto di chilisoft che va così così, cmq , scusami per la crudezza, ma
già usare asp non è bellissimo, ma usarlo sotto linux è come martellarsi le palle.
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.perl
Titolo: regular expression

Ciao,
avrei bisogno di eseguire la system all'interno del for solo per i file
.pdf.
Come devo scriverlo l'if all'interno del for perchè succeda questo?
Ciao,
    Ivan
Il for:
opendir (DIR, "$ftsdir");
 foreach $idxfile (readdir(DIR))
 {
        system("c:/pkware/pkzip  -a $ARCHIVEZIP  $idxfile");
  }
 closedir DIR;

 .pdf.
   Il DOS, che io ricordi, supporta il globbing dei nomi dei file, 
sicche`, in pratica, non avresti bisogno di usare il Perl per quello che 
  devi fare:
	system "c:/pkware/pkzip -a $ARCHIVEZIP *.pdf"
   Ad ogni modo, se vuoi una lista dei file con estensione "pdf" in una 
determinata directory, puoi utilizzare il seguente idioma:
<code>
	opendir DIR,$my_dir or die "$my_dir: $!";
	@pdf_files=grep { /\.pdf$/i } readdir DIR;
	closedir DIR
</code>
	$ perldoc -f grep
	$ perldoc perlre
-- 
Alla prossima,
Marco

foreach $idxfile (readdir(DIR))
 {
        system("c:/pkware/pkzip  -a $ARCHIVEZIP  $idxfile") if  $idxfile =~
/\.pdf$/i;
  }
oppure...
foreach (readdir(DIR))
  {
         system("c:/pkware/pkzip  -a $ARCHIVEZIP  $_) if  /\.pdf$/i;
   }
ciao

   }
Si`, ma a me sembra piu` ragionevole usare Archive::Zip, a questo punto (tra
l'altro, se non ricordo male, pkzip non gestisce i nomi lunghi); oppure, se
proprio dev'essere system, lasciare fare all'interfaccia di console
l'espansione dei nomi, come gia` proposto da altri.
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: CERCASI COLLABORATORI RIVISTA DI PROGRAMMAZIONE

Salve ragazzi.
Cerchiamo programmatori e/o sistemisti che siano entusiasti di quello
che sanno e siano disposti a metterlo a disposizione della comunità
internet. Una nuova rivista on-line completamente gratuita dedicata a
chi programmatore vuole diventarlo con un taglio decisamente semplice
e chiaro.Tutti i corsi da zero sempre in linea. Possibilità di
scaricare i corsi e leggerli off-line.  Gli argomenti attualmente in
cantiere sono: C,C++,Delphi,Java,Javascript,CGI,Perl,HTML,Assembler.
Cerchiamo esperti per questi linguaggi e comunque siamo pronti ad
accogliere nuove idee e proposte.
Per maggiori informazioni e/o modalità visitate la pagina iniziale del
nostro sito 
www.aspide.it/freeweb/thecodersprimer
.





Newsgroup: it.comp.lang.perl
Titolo: Come inserire l'esecuzione di uno script perl

Il problema è il seguente: ho una pagina html ed uno script che deve far
vedere il risultato all'interno della pagina... come devo fa??? io uso:
<!-- #exec cgi="/cgi-bin/count.cgi" -->
ma non va niente....
come posso fare??
grazie a tutti.


Mi pare (parlo da principiante) che le pagine HTML siffatte devono avere
estensione .shtml, ma cio' potrebbe dipendere anche dal Web server. Inoltre
visto che la direttiva #exec e' un estensione SSI (almeno cosi' mi pare) non e'
detto che il Web server la supporti.
Comunque sarebbe meglio sentire il parere di un esperto o di qualcuno che abbia
gia' fatto uso di #exec; le mie sono solo supposizioni.
Ciao
Marcello

 cerchero` un'altra donna dentro ai sogni di Tarzan...
Newsgroup: it.comp.lang.perl
Titolo: Socket, problema con il send

Ciao a tutti,
ho un piccolo problema con il send di perl nelle connessioni socket.
In pratica ho visto che SEND() su uno socket invia un messaggio però
l'istruzione successiva al send è eseguita immediataemente, ossia non
aspetta che il destinatario abbia rcevuto correttamente il pacchetto.
Ho visto in pratica che il SEND è provvisto di un qualche tipo di buffer di
una decina di KB e resta in attesa dell'invio del pacchetto solo se il
buffer è pieno.
Siccome il mio server deve gestire molte connessioni, non voglio che resti
in attesa su un send di un client. In pratica se il buffer dello socket AA è
già pieno, deve riempire qualche altro buffer di un altro socket in modo da
sfruttare al massimo la banda in upload
All'inizio pensavo che SELECT con fileno servisse per lo scopo. Infatti si
usava per vedere se il buffer di lettura conteneva dati oppure era vuoto.
Pensavo che funzionasse anche con quello di scrittura, ma non è così.
Non so se avete capito il problema.
Ne sapete di più? thx^^

Niente, ho scoperto come risolverlo.
Vi avverto così se vi dovesse servire.
in pratica io creno un nuovo oggetto con use IO::Handle;
Poi, ho il mio oggetto socket $sock e lo apro con l'io:
$io->fdopen(fileno($sock),"w")
Poi faccio questo ciclo:
while (1) {
    $rin = $win = $ein = '';
    vec($rin,fileno($sock),1) = 1;
    unless (select( undef,$rin,$rin,0); {
        print "Il buffer è pieno scrivo su un altro socket con il buffer
vuoto\n";
        <stdin>;
    } else {
        print $io->print("$pacchetto"); #Invio un pacchetto di massimo
3500byte
            #Il buffer dell'io è di soli 4KB
            # Se inserisco un pacchetto di granezza superiore
            # mi toccherà aspettare di inviare almeno 500byte
    }
}
In questo modo se il mio client deve inviare un file di 10MB a tre socket
insieme, farà un cliclo e ad ogni ciclo invierà dati solo ai client che
hanno il buffer vuoto.
Ragionandoci un po' posso limitare perfettamente la banda in uscita, e
sfruttarla al massimo senza soffermarmi magari su client che hanno il 56KB.
XD
ciao

Newsgroup: it.comp.lang.perl
Titolo: problema con ':/' in system

Ciao a tutti,
 ho un problema, suppongo triviale, ma che mi sta facendo impazzire,
da uno script per devo utilizzare un comando del tipo:
system ( "xcp root://macchina//...." );
In pratica il path del file remoto a cui devo accedere e`: "root://
macchina/". Ebbene system esegue il comando come: xcp root:/
macchina//....
Ovvero elimina il secondo '/' dopo i due punti. Ho provato in tutti i
modi, indicando '//' con '\/\/', e componendo la stringa comando come
concatenazione di piu` stringhe. Lo stesso problema me lo da` il
backquote.
 Mi sfugge qualcosa?
Grazie in anticipo.
ciao
--
Elwood (Peter S.)


Scusate, aggiungo un'altra informazione: uso perl 5.8.0
grazie
--
Elwood (Peter S.)


Ritiro tutto. Ho risolto, era un problema indipendente dal system.
Scusate.
--
Elwood (Peter S.)
Newsgroup: it.comp.lang.perl
Titolo: Database con perl.

Salve a tutti. Per accedere ( e non solo...) a un database è
meglio usare DBI abbinato al driver del proprio DBMS preferito oppure
usare direttamente il modulo per il proprio DBMS?
Io mi trovo a dover scegliere tra l'uso del modulo DBI con il driver
giusto e il modulo Pg . C'è qualche
differenza tra i due approcci?
Secondo quesito (collegato al primo). 
Sto provando ad installare il driver per PostgreSQL. Ho scompattato il
pacchetto, se tento di creare il makefile (perl Makefile.pl), questo mi
dice che devo settare le variabili d'ambiente  POSTGRES_INCLUDE and
POSTGRES_LIB . In quale file devo mettere le mani? /etc/profile forse? E
con quali path? 
Sul mio sistema in /var/lib/pgsql cominciano a diramarsi le basi di dati
e in /usr/lib/pgsql ho il seguente contenuto
backup/                      local1_template1.description  pgaccess/
global1.bki.source           perl5/                        plpgsql.so
global1.description          pg_geqo.sample                pltcl.so
local1_template1.bki.source  pg_hba.conf.sample
Ringrazio anticipatamente per l'aiuto qualcuno vorrà darmi.
Giuseppe Ricioppo.

!
Ciao!
Se e` disponibile il driver per il modulo DBI e` sempre consigliabile
utilizzare quello, in quanto DBI offre un'interfaccia comune per tutti
i DB server supportati. Se quindi in futuro cambi tipo di server devi
fare meno modifiche, o se comunque avvii un nuovo progetto non devi
imparare l'utilizzo di un nuovo modulo. Inoltre, soluzioni in Perl che
non prevedano l'uso di DBI sono da considerarsi deprecate, in quanto
tutti i programmatori si stanno muovendo in quella direzioni.
Per le variabili d'ambiente non saprei spiegarti bene, non ho mai usato
PostgreSQL (uso mySQL nella maggior parte dei casi, e InterBase quando
ho bisogno di cose un po' piu` complesse). Le variabili d'ambiente
comunque le puoi impostare "al volo" con i comandi:
export POSTGRES_INCLUDE = '/usr/include/pgsql'
export POSTGRES_LIB = '/var/lib/pgsql'
(questi potrebbero persino essere i path giusti, pero` non ne sono
sicuro). Se hai bisogno di impostare queste variabili in maniera
permanente (ma ne dubito, in quanto ti servono solo per la compilazione
del modulo) puoi editare /root/profile (cosi` le imposti solo per
l'utente root) o /etc/profile (cosi` le imposti per tutti).
        A presto, 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!

 differenza tra i due approcci?
Non conosco il modulo Pg, io preferisco MySql a PostGres. Pero', il
vantaggio a usare DBI e' che se un bel giorno decidi di mollare PostGres per
passare a qualunque altro dbms, incluso ad esempio Oracle, i tuoi programmi
perl di interrogazione rimarranno piu' o meno intatti.
bye
silvio
Newsgroup: it.comp.lang.perl
Titolo: Scirvere in un file .txt tramite campo text

Salve a tutti.
Avrei necessità di far aggiornare il contenuto di un pagina html
direttamente dal mio cliente.
Dato che si tratta di solo testo, ho pensato di utlizzare un include
relativo ad un file txt.
Vorrei evitare di fargli creare direttamente il file per poi fare fargli
fare un upload.
Mi chiedevo come è possibile scrivere in un file .txt tramite un campo
text...
Vi prego di aiutarmi...grazie...
Alessandro

 text...
# Imposti in una variabile il contenuto del campo di testo ... Per
# sapere come, segui il followup: qui i cgi sono un attimo OT!
$input = "Qui il contenuto del testo";
open(FILE, "> il_file_dove_scrivi_il_tutto.txt");
# Oppure, se vuoi aggiungere del testo
open(FILE, ">> il_file_dove_scrivi_il_tutto.txt");
print FILE $input;
close FILE;
Ciao
--ev

 wrote in message
news:Oz8j7.68830$TS4.4...@news2.tin.it...

Scuami,
ma cosa vuol dire seguire il follow up?
Grazie ancora
Alex

Newsgroup: it.comp.lang.perl
Titolo: [OT] "Learning Perl"...se v' avanza ;)

Ciao a tutti,
laddove siete intenzionati a vendere la quarta edizione [*] (in
inglese) del testo io sono interessato all' acquisto
Grazie :)
[*] 
http://www.oreilly.com/catalog/learnperl4/


Secondo me faresti meglio ad ordinarlo da 
amazon.co.uk
 ;avendo una
semplice postepay lo puoi ordinare e con 25 euro (questo il
prezzo,comprensivo di spedizione,che ho pagato per il libro) o poco
più.Io l'ho appena fatto (4 giorni fà) e il tutto mi dovrebbe arrivare
tra una settimana.



Grazie del consiglio....per la spedizione hai impostato qualche
particolare parametro?
Ciao :)

Non direi,nulla di trascendentale nell'indirizzo,ti saprò dire come è
andata la spedizione fra,al massimo,7 giorni quando mi arriverà il
libro!Ci aggiorniamo!



Hehehe...ci aggiorniamo :)
Ciao e grazie!

 libro!Ci aggiorniamo!
Arrivato?
Ciao :)

Scusa per il ritardo ma gli esami si sono messi di
mezzo...
amazon.co.uk
 è affidabile;7 giorni e mi è arrivato il libro
(anche se le condizioni in cui mi è arrivato lasciavano a desiderare)
un pò scassato.Ho fatto presente questo a colui il quale mi ha venduto
il libro e ha provveduto a riaccreditarmi l'intera cifra.Ora ho un
learning perl un po' ammaccato e 16 sterline in piu' sulla postepay!
Wow!

 Wow!
Grande, grazie della risposta e del consiglio su Amazon :D
Newsgroup: it.comp.lang.perl
Titolo: Interfaccie verso applicativi UNIX in PERL

Salve a tutti,
vorrei un parere sulla possibilita' di utilizzare il PERL quale
interfaccia verso applicativi UNIX da gestire in ambito
Intranet/Internet con Netscape. Gli applicativi ai quali sono
interessato non sono necessariamente relativi alla gestione di siti, ma
essenzialmente sono programmi di calcolo ai quali vorrei aggiungere una
interfaccia I/O meno spartana di una sessione alfanumerica a terminale.
Quello che il PERL dovrebbe gestire e':
(A) Preparazione dell'Input:
(1) Acquisizione dei dati di input via form;
(2) Scrittura di (1) in quello che sara' il file di input per (3);
(3) Esecuzione dell'applicativo al quale passare anche solo
l'informazione sul nome del file creato in (2);
(4) Rilettura del file (2) in (1) dove i default saranno ora quelli
contenuti nel file, ritetizione di (2) e (3).
(B) Analisi dell'output
(1) Query sui file di output
(2) Formattazione ipertesuale
L'applicativo in (3) potra' corrispondere ad una script (es. CSH) che
provvedera' al controllo di tutti i files di I/O, ai permessi su di essi
e all'esecuzione del programma vero e proprio (es. FORTRAN).
Grazie in anticipo per eventuali risposte
Ottaviano Incani, 
c...@giove.caspur.it

 wrote:
: vorrei un parere sulla possibilita' di utilizzare il PERL quale
: interfaccia verso applicativi UNIX da gestire in ambito
: Intranet/Internet con Netscape. Gli applicativi ai quali sono
Non vedo controindicazioni.
Non so quanto tempo macinino i tuoi programmi di calcolo: al limite
il primo CGI, quello che prende i dati dalla form, li salva e lancia
il programma di calcolo, potrebbe evitare di aspettare il risultato,
avvertendo l'utente di provare a collegarsi piu` tardi ad un URL che
lanci un ulteriore CGI che vada a controllare se il processo di
calcolo sia finito.
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E

Newsgroup: it.comp.lang.perl
Titolo: open con pipe e cattura di stdout

Ciao a tutti, dovrei intercettare l' output di un programma dallo
standard out, usando qualcosa di piu elegante che fare
`nomeprogrog > file.txt`;
open FILEIN, "file.txt";
@file=<FILEIN>;
close FILEIN;
sicuramente si puo' fare direttamente da open con qualcosa che mi
permetta di catturare il flusso dello stdout ed inserirlo direttamente
nella variabile, evitando l' uso del' apice di comando e del file
temporaneo... ma ho una documentazione un po' scarna
Grazie
Ivan

sicuramente si puo' fare direttamente da open con qualcosa che mi
open(PROG, "nomeprogrog|");
while(<PROG>)
	...
close PROG;
Oha

 cerchero` un'altra donna dentro ai sogni di Tarzan...
Newsgroup: it.comp.lang.perl
Titolo: elaborazione dati

Buongiorno, acquisendo da una form in html dei dati inseriti da un 
utente, è possibile tramite il perl una analisi dei dati con tanto di 
grafico di output [tipo a barre, torta et similia] in una finestra del 
browser ?
sono "molto" neofita, per adesso so solo come acquisire dati, ma non come 
elaborarli, e vorrei conscere il modo + semplice per ottenere piccole 
elaborazioni grafiche di tali dati.
Grazie a chiunque voglia rispondermi,
                                    Niki

Vai su CPAN e dai una occhiata al modulo GD e company !
Alex
Niki ha scritto nel messaggio ...


Newsgroup: it.comp.lang.perl
Titolo: operazioni su stringhe





Vorrei sapere un elenco di funzioni da eseguire su 
stringhe,


ad esempio come convertire tutto in maiuscolo o in 
minuscolo



 ad esempio come convertire tutto in maiuscolo o in minuscolo
Tutte le funzioni che agiscono sulle stringhe sono elencate all'inizio di
'man perlfunc' o 'perldoc perlfunc'.
Un ogni caso quelle che chiedi tu sono 'uc' o 'lc'.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

ad esempio come convertire tutto in maiuscolo o in minuscolo
Due possibilita`:
$str2 = lc($str1); # Converte in minuscolo
$str2 = uc($str1); # Converte in maiuscolo
oppure:
$str2 = "\L$str1"; # Converte in minuscolo
$str2 = "\U$str1"; # Converte in maiuscolo 
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/
Newsgroup: it.comp.lang.perl
Titolo: Errore

Salve a tutti.
Sto interpretando sotto Debian uno script Perl e mi viene dato il
seguente errore:
"Can't locate Pex/Text.pm in @INC (@INC contains: /etc/perl /usr/local/
lib/perl/5.8.4 /usr/local/share/perl/
5.8.4  ...... ....... ....... ......   .) at 
file.pl
  line 21.
Sulla linea 21 ho la seguente riga di codice:
use strict;
package Msf::Exploit::vd_proftpd;
use base "Msf::Exploit";
use Pex::Text;               ---------------------------------> RIGA
21
Sapete dirmi che errore è e cosa devo modificare per evitarlo?

Sapete dirmi che errore č e cosa devo modificare per evitarlo?
Immagino che tu debba installare il modulo Pex::Text, di qualsiasi cosa si
tratti.
Ciao.

 package Msf::Exploit::vd_proftpd;
Non per farmi gli affaracci tuoi, ma perché vuoi tentare di sfruttare un 
exploit di ProFTPD?

 
Devi cercarti quel modulo. Su CPAN non c'è.
Però, scusami, quello script serve a dimostrare una vulnerabilità di ProFTP,
per altro risolta in qualche release recente. Per quanto mi sforzi, non
riesco a immaginare un motivo per cui una persona, che nemmeno conosce il
Perl, abbia una legittima necessità di usare quello script. Se si tratta di
accertarsi che la propria installazione di ProFTP non sia vulnerabile a
quell'exploit, è sufficiente controllare il numero della release.
Max


E' una storia lunga nulla di illegale cmq...solo un test su un sistema

 Sapete dirmi che errore è e cosa devo modificare per evitarlo?
ma hai installato il Metasploit Framework 2?
quello che stai cercando di eseguire è un test di vulnerabilità di
metasploit.
Newsgroup: it.comp.lang.perl
Titolo: problema con DBI.

Salve.
Ho un piccolo script in perl sotto Linux.
Utilizzo il modulo DBI per un database Mysql e non riesco ad utilizzare
un parametro passato da un form.
Potete darmi un aiuto?
Il parametro e' il codice che dovrebbe essere memorizzato in $cod ma
quando viene eseguita la select sembra che in $cod non ci sia niente
come mai? Eppure il valore e' presente nella tabella tanto e' vero che
se al posto del parametro $cod inserisco un valore la select funziona
regolarmente.
Il frammento di codice e':
"
use CGI;
use DBI;
$query = new CGI;
$cod=$query->param('Codice');
@data = localtime(time);
$year = 1900 + $data[5];
$month = $data[4] + 1;
$Ultima_Tabella = Timb . $year;
$Ultimo_mese = $month;
print $query->header;
$path_info = $query->path_info;
$dbh = DBI->connect('DBI:mysql:Timbrature','mauro','');
if (!defined $dbh){
	print "Si e' verificato un errore: $DBI::errstr.<br>";
	print "Contattare l'ufficio C.A.R.P. al numero telefonico interno
8243.";
}
$sth = $dbh->prepare("select * from Timb1996 where codice=?");
$sth->execute($cod);
print "$DBI::errstr\n";
@row = $sth->fetchrow_arrayref;
if (!$path_info){
    &print_frameset;
    exit 0;
}
&print_html_header;
&print_dip if $path_info=~/dip/;
&print_timb if $path_info=~/timb/;
&print_end;
$sth->finish;
#disconnect from the database
$dbh->disconnect;
"
dopodiche' segue il codioce relativo alle subroutines.
Grazie.
--
Posted from 
mta01-acc.tin.it
 [212.216.176.32]
via Mailgate.ORG Server - 
http://www.mailgate.org

$sth->execute($cod);
Io di solito faccio cosi`:
$sth = $dbh->prepare("select * from Timb1996 where codice=$cod");
$sth->execute;
Non so se cambia qualcosa...
	A presto, Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

 regolarmente.
Il codice mi sembra ragionevole.
La prima cosa che farei e' verificare se nella variabile $cod c'e' 
effettivamente
quello che tu pensi che ci sia. Magari il nome della variabile nel form e'
"codice" e non "Codice".
La select mi sembra giusta.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)


		attenzione: rispondere solo a questo indirizzo!
                  Idiot's Guide to Windows 95 - Dictionary
 
   Multitasking
   You can crash several programs all at once. No waiting!

Grazie a tutti per la risposta.
Ho gia' provato a sostituire nella select il punto interrogativo con
$cod ma non cambia niente.
Lo strano e' che se non utilizzo le funzioni e scrivo il codice un linea
dietro l'altra tutto funziona, mentre se utilizzo le funzioni necessarie
a far si' che lo script mi ritorni una pagina con due frames allora e'
come se $cod non venisse riempito, eppure se faccio una semplice print
$cod posso vedere che il valore c'e' effettivamente.
Se volete mi mando il codice per intero.

Newsgroup: it.comp.lang.perl
Titolo: Realizzare uno script per banner a rotazione

Sto cercando di realizzare uno script in Perl, per banner a rotazione senza
l'utilizo degli SSI.
Ho un problema.
La visualizzazione del banner sulla pag html si ottiene inserendo il
seguente codice
<IMG SRC="nomecgi.cgi?banner" width="468" heigth="60" border="0">
Lo script infatti leggendo la qwery banner reindirizza col comando
print "Location: $url\n\n";
ad un indirizzo di visualizzazione banner scelto a caso.
ad es.
http://www.miosito.it/banner/banner1.gif
Il link è
<a href="nomecgi.cgi?link" target="_new">
In questo caso lo script reindirizza direttamete al sito web anch'esso
scelto a caso fra la serie disponibile.
Il problema è come far coincidere la visualizzazione del banner con il link
corrispondente, infatti si tratta di due chiamate diverse allo script di cui
una (il link) avviene unicamente nel caso il visitatore clikki sul banner.
Per quello che sono riuscito a capire gli script di scambio banner
funzionano a questo modo (richiamo dello script dalla pag html) tuttavia non
ho idea di come riescano a sopperire a questo inconveniente.
L'unica soluzione a cui ho pensato è la registrazione sul server dell'IP del
visitatore, tuttavia è una soluzione poco pratica poiché verrebbe a crearsi
un file enorme con tutti gli IP dei visitatori senza che possano essere
cancellati.
C'è qualcuno che mi può dare un chiarimento?
Grazie!!!

 ha scritto:
Così richiami due volte lo script, perché invece non utilizzi 
<!--exec cgi="
banner.pl
"-->