mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: Help!!!! problemi con windows!!!

Ciao a tutti,
Ecco il primo problema: Per installare un modulo CPAN con estenzione
modulo.tar.gz su una macchina Windows con ActivePerl è necessario avere un
compilatore C (per fare il make test e make install)? Oppure esiste un altro
sistema? ho letto nelle faq del comando nmake ma dove sta?
Secondo Problema: Mi è stato chiesto di fare il porting di una serie di
script perl da Sun solaris a Windows, il problema non è tanto nel codice ma
è legato al fatto che essendo script per un sistema unix i controlli tra i
vari processi sono fatti utilizzando i pid dei processi (tutti i processi
girano in background). Qualcuno sa indicarmi una possibile soluzione o
qualche riferimento per gestire i pid sotto windows?
Grazie.
Abanero.

 qualche riferimento per gestire i pid sotto windows?
In genere quando si affronta la portabilità di script UNIX/Windows ci si 
scontra con le seguenti problematiche:
1. Differenza dei file system
2. Comandi di sistema che esistono solo in UNIX
3. Perl features non implementate nel porting ActiveState
Qui trovi ciò che cerchi:
  o 
http://aspn.activestate.com/ASPN/Reference/Products/ActivePerl/lib/Pod/perlport.html
Cmq, ti consiglio sempre la lettura di
  o 
http://aspn.activestate.com/ASPN/Reference/Products/ActivePerl/RELEASE.html
  o 
http://aspn.activestate.com/ASPN/Reference/Products/ActivePerl/CHANGES.html
relativamente alla build che stai usando.
	- Enrico

 
http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
 
Mi sembrava chiaro, ma forse non troppo ed č meglio precisare.
Primo: vedi se esiste il relativo pacchetto ActiveState PPM e installa
quello.
Secondo: per i moduli 'pure' Perl in genere basta nmake, ma per quelli 
che contengono anche codice C/XS č chiaro che serve anche il compilatore
(Visual C) ;-)
	- Enrico

 sta? 
  Ne esiste una versione scaricabile gratuitamente da qualche parte sul 
sito della Microsoft.
Comunque a meno che i moduli siano "privati" o poco diffusi, e' facile
che siano disponibili precompilati (sul sito di ActiveState): prova
ppm install Foo::Bar
da riga di comando.
HTH
Mattia
[1] teoricamente ti serve lo stesso compilatore/make che e' stato
usato per compilare Perl (quind MSVC/nmake nel caso di ActivePerl),
pero' usando ExtUtils::FakeConfig (scaricalo da CPAN), puoi usare
dmake/MinGW con lo stesso effetto. Comunque in generale e' meglio
usare i moduli precompilati (a meno che non ti serva una versione
non disponibile, ovviamente :-)
Newsgroup: it.comp.lang.perl
Titolo: outupt di un cgi su web...

Salve a tutti...
Da poco ho fatto diversi scripti in perl che girano su linux con apache,
i quali fanno delle query su mysq o oralce e mandano un output una pagina
html.
Ora, siccome alcune pagine fanno più query,
vorrei che l'uotput venisse visualizzato man mano che è disponibile,
in modo che l'utente non debba aspettare 20 secondi davanti a una schermata
bianca:
query 1 -> prima parte della pagina
query 2 -> seconda parte della pagina
etc...
Attualmente invece ottengo tutto l'uotput solo alla fine dell'ultima query.
è come se servisse una specie di fflush del c...
Pensate sia possibile una cosa del genere?
Molte grazie.
    bye ;-)

 Pensate sia possibile una cosa del genere?
quello che puoi fare è mettere $| = 1; all'inizio del tuo script (non 
usa buffer per l'output, ossia fa un flush ad ogni print).
tieni presente però che alcune cose dipendono dal browser: ad esempio, 
se formatti i tuoi dati in una tabella, alcuni browser (o alcune 
versioni di alcuni browser) non visualizzano la tabella finché non è chiusa.
cheers,
Aldo

 ha scritto nel messaggio
news:ci4doq$32e$1...@carabinieri.cs.interbusiness.it...


Newsgroup: it.comp.lang.perl
Titolo: Un interprete Perl...

Dove posso trovare un buon interprete Perl per Windows?
E un server Web semplice semplice per fare delle prove?

E un server Web semplice semplice per fare delle prove?
Prova xitami è freeware e lo puoi scaricare da 
www.imatix.com
Ciao
Andrea
-----------------------------------------
Redattore di Ludus (
http://www.ludus.it
)
Recensioni, Trucchi, Soluzioni,
Patch e News per PC e PSX
-----------------------------------------

Prova xitami è freeware e lo puoi scaricare da 
www.imatix.com
Ora c'e` anche Apache 1.3.0 x Windows...
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.italpro.com/mb/
Newsgroup: it.comp.lang.perl
Titolo: XML e XSL

Salve,
        Qual'è il giusto modo in Perl di trasformare un documento XML 
tramite XSL? Ho provato con il codice che segue .. ma mi restituisce 
solo la riga "</connection"> (Non credo che sia un problema del file XSL)
#!/perl
use strict;
use warnings;
use CGI::Carp "fatalsToBrowser";
use XML::XSLT;
my ($xsl, $xml, $data);
{
open (LEGGI , "<collection.xsl") || die "$!\n";
 local $/ = undef;
 $xsl = <LEGGI>;
close(LEGGI);
}
{
open (LEGGI , "<collection.xml") || die "$!\n";
 local $/ = undef;
 $xml = <LEGGI>;
close(LEGGI);
}
my $xslt = XML::XSLT->new ($xsl, warnings => 1);
$xslt->transform ($xml);
$data = $xslt->toString;
$xslt->dispose();
print "Content-type: text/plain\n\n";
print $data;
__END__;
questi è il file collection.xml
<?xml version="1.0" encoding="UTF-8"?>
<collection>
 <cd>
  <title>Fight for your mind</title>
  <artist>Ben Harper</artist>
  <year>1995</year>
 </cd>
 <cd>
  <title>Electric Ladyland</title>
  <artist>Jimi Hendrix</artist>
  <year>1997</year>
 </cd>
 <cd>
  <title>Rubber Soul</title>
  <artist>The Beatles</artist>
  <year>1965</year>
 </cd>
 <cd>
  <title>Revolver</title>
  <artist>The Beatles</artist>
  <year>1966</year>
 </cd>
 <cd>
  <title>White Album</title>
  <artist>The Beatles</artist>
  <year>1966</year>
 </cd>
</collection>
e questo è il file collection.xsl
<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet version="1.0" 
xmlns:xsl="
http://www.w3.org/1999/XSL/Transform
">
<xsl:output method="xml"/>
<xsl:template match="/">
 <collection>
  <xsl:for-each select="collection/cd[artist='The Beatles' and 
year='1966']">
      <cd>
      <title><xsl:value-of select="./title"/></title>
       <artist><xsl:value-of select="./artist"/></artist>
       <year><xsl:value-of select="./year"/></year>
      </cd>
  </xsl:for-each>
 </collection>
</xsl:template>
</xsl:stylesheet>
Avete qualche suggerimeto?
Grazie

 use XML::XSLT;
credo sia colpa di questo modulo, me ne consigliate un'altro?
grazie

 Occhio a quel "$data = $xslt->toString;", mi sa che l'errore e` li`.
pu darsi che il modulo non supporta questa trasformazione?
<xsl:for-each select="collection/cd[artist='The Beatles' and 
year='1966']">
ciao
Newsgroup: it.comp.lang.perl
Titolo: aggiungere righe.

Se in un file di testo ho righe di questo tipo:
dn: uid=prova.prova,ou=MailAccounts,dc=mio,dc=dominio,dc=it
objectClass: top
objectClass: account
objectClass: CourierMailAccount
mail: 
prova...@mio.dominio.it
dn: uid=prova1.prova1,ou=MailAccounts,dc=mio,dc=dominio,dc=it
objectClass: account
objectClass: CourierMailAccount
mail: 
prova1...@mio.dominio.it
e volessi aggiungere la riga "objectClass: top" prima della riga
"objectClass: account" solo se la "objectClass: top" non e' presente.
C'e' un modo veloce per farlo in perl?



Si'.
  Raffaello

 dn: uid=prova.prova,ou=MailAccounts,dc=mio,dc=dominio,dc=it
Questo è un testo in formato LDIF (LDAP Data Interchange Format).
Piuttosto che scrivere delle routine ad-hoc, io consiglierei di usare il
modulo Net::LDAP::LDIF, che serve proprio per leggere e manipolare dati in
formato LDIF.
Max

Max M. wrote:

Si ma e' semplicemente un file di testo, non mi serve il modulo LDAP perche'
non devo interagire col server.
Newsgroup: it.comp.lang.perl
Titolo: Apache

Per esercitarmi con il Perl da dove posso scaricare il server Apache per
Win?
Grazie

 Win?
Per esercitarti con Perl non ti serve Apache.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Win?
Apache ti serve solo se vuoi esercitarti con i CGI. Se e` questo il caso,
trovi tutto su:
http://www.apache.org
Se vuoi scrivere i tuoi programmi in Perl hai bisogno anche di un
porting per Windwos di quest'ultimo. Uno lo trovi presso:
http://www.activestate.com
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/

Newsgroup: it.comp.lang.perl
Titolo: PERL IN WIN98

Carissimi Perler,
io sono nuovissimo del perl e come ho sempre pensato per imparere i
linguaggi nuovi visogna assolutamente provarli subito, poi dopo si comprano
i libri dove ti spiegano le varie funsioni.
BENE IL PROBLEMA
Ho scaricato un server (sethtttp.exe) stupendo funsiona alla grande pesa
solo 36 Kbyte.
Il problema e impostare il perl, hgo scaricato un file dal sito 
www.perl.com
che mi diceva che era il file dove scampattando trovavo il perl, in realtà
lo scompattato, ma oltre al file 
command.com
 che dice di avere poca memoria
convensionale disponibile non ho travoto nessun file per l'istallazoione?!?
COME DEVO FARE? DOVE POSSO TROVARE QUESTI CAVOLI DI FILE PER IL PERL PER
WINDOWS98 con le estenzione per farlo funsionare per i cgi?
GRANDIOSA OFFERTA A CHI RISPONDE £. 2220 per ora di collegamento senza
limiti di tempo

 wrote in message
8cau16$8rd$1...@nslave2.tin.it...

Ciao!
http://myweb.3q.to/docs/cgi_win9x.html
Può fare al caso tuo ... prova! (PS: in italiano)
(PSS: leggi 3 msg prima...domanda già fatta e già risposta)
Ezio BOnsi

Newsgroup: it.comp.lang.perl
Titolo: eseguire una funzione in un file da differenti file: come?

Vorrei eseguire una funzione che si trova in un file da differenti codici
che si trovano in molti altri file.
Come posso fare?
Grazie in anticipo, Mario.

 writes:

#--file MyFunc.pm (in un direttorio in @INC)
package MyFunc;
func Func {
        print "Ciao\n";
}
1;
#---End of file
Poi:
#--Altro file
use MyFunc;
MyFunc::Func():
# etc.
Cheers,
alf

Ti ringrazio per avermi risposto e  per il prezioso tempo che hai
dedicato per farlo.
ho un altra domanda da porti... cosa è @INC?



 perldoc perlvar
       @INC    The array @INC contains the list of places that
               the `do EXPR', `require', or `use' constructs look
               for their library files.  It initially consists of
               the arguments to any -I command-line switches,
               followed by the default Perl library, probably
               /usr/local/lib/perl, followed by ".", to represent
               the current directory.  If you need to modify this
               at runtime, you should use the `use lib' pragma to
               get the machine-dependent library properly loaded
               also:   
                   use lib '/mypath/libdir/';
                   use SomeMod;
Max
Newsgroup: it.comp.lang.perl
Titolo: librerie grafiche

Qualcuno sa se esistono (e dove trovarle) delle librerie grafiche per il
perl?
Devo inserire dei grafici creati dinamicamente nelle mie pagine web
(diagrammi a torta, istogrammi...)
Grazie e ciao,
Tommaso
--
----------------
Tommaso Trani
    Edinf s.a.s. - Sviluppo Software Personalizzato
        eMail: 
ed...@softwareplanet.net
            Web: 
www.softwareplanet.net
Sul Web: corsi di programmazione di Visual C++, JavaScript, Perl, HTML,
Linux...
----------------
Vuoi guadagnare sfruttando il tempo impiegato a navigare in Internet?
    Clicca qui: 
www.softwareplanet.net/Guadagnare/Guadagnare.htm

 
 
http://search.cpan.org/Catalog/Graphics/
 
 

 (diagrammi a torta, istogrammi...)
http://www.fred.net/brv/chart/home.html
ciao, marco
--
Marco Cacchiani                                
e-mail:ma...@sirius.pisa.it
Public pgp key:         
http://www.sirius.pisa.it/marco/pgp_public_key.asc
Sirius Servizi Informatici                     e-mail: 
in...@sirius.pisa.it
Parco Teatro Pasolini, 1                       Phone:  +39 (50) 865120
I-56019 - Vecchiano                            Fax:    +39 (50) 860260
(Pisa - ITALIA)                                
http://www.sirius.pisa.it/

Newsgroup: it.comp.lang.perl
Titolo: passaggio di parametri con use strict

come faccio a passare un hash ad una sub quando uso use strict?
es.:
sub pippo (%pluto){
    ...blocco che usa %pluto...
}
my %polpo = (
    paperino => "papero",
     topolino => "topo"
);
pippo (%polpo);
Ecco non riesco a capire come devo usare il tutto
ciao ciao e grazie

1) normale
sub do_with_hash {
	my %hash = @_;
	# ....
}
do_with_hash(%hash);
# oppure
do_with_hash( key1 => value1 , key2 => value2 ,  ... etc ...);
2) con una reference
sub do_with_hash {
	my %hash = %{shift()}   # o anche %{+shift}
	# ....
}
do_with_hash{\%hash}
3) reference e prototipi (solo perl 5.6 o +)
# dichiara do_hash come un operatore che vuole
# solo una hash come parametro.
sub do_hash (\%); 
my %hash = ( key1 => 'value1' , key2 => 'value2' );
do_hash %hash;
sub do_hash (\%) {
	my %hash = %{+shift};
	# ....	
}
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.perl
Titolo: Be A Winner! 5294


[snip]
Accidenti!
Non ci avevo mai pensato!
Provo anch'io (così magari domani posso evitare di andare a lavorare
evitando il rischio multa per violazione di traffico a targhe alterne):
------------------------------------
Ragazzi!
Mandatemi tutti ?5.00 a testa.
E avvertite anche tutti i vostri amici di inviarmi i loro soldi!
Non so se ci sarà un vincitore tra di voi, sicuramente io lo sarò :)
------------------------------------
Ciao

5 dollari non sono tanti, si potrebbe anche tentare...
..tu ci scherzi, ma sai che ho trovato una persona in carne e ossa che mi ha
fatto la proposta?
dissi:
- "ma sei rincoglionito?"
- "No no, guarda che funziona, prima o poi diventi primo e tutti ti mandano
i soldi"
- "Fai te, se vuoi che ti freghino i soldi fai te. Fammi sapere poi com'è
andata"
Questo successe intorno al 1998 e ancora oggi ogni tanto vedo la persona..
non mi ha mai fatto sapere niente, e ho troppa pietà di lui per chiedergli
com'è andata.
--
Fabio Guerrazzi
http://www.sourcecode4free.com/cgt
fab...@libero.it
fab...@si.tdnet.it

com'è andata.
Chi, quello che gira in Limousine? Lo conosco anch'io e non capisco come
mai si ostina a guidare sempre lui e far star dietro l'autista.... robe
da matti... :-PP
Ciao,
Moreno
-- 
sirri at morenosoft dot com
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 da matti... :-PP
rasmus lino ?
lo stesso post con numerino diverso, e' apparso sul ng ita dei db e su
quello usa dei lab.
che ci alzano dopra la zampa.
j.

 ha scritto nel messaggio
news:0bY38.21206$Rv3.7...@news2.tin.it...

Mio cuggino ha detto che funziona davvero: lui una volta ha partecipato ad una
catena di S.Antonio di questo tipo e dopo pochi mesi ha ricevuto un sacco di
soldi, solo che poi gli hanno fatto una rapina. E' per quello che non è
diventato ricco!
;-P
Ciao!
--
Esteban
Hosted by 
www.seber.it
Remove 'nonspammare' for reply
Newsgroup: it.comp.lang.perl
Titolo: mi spiegate questa: for (@hash{keys %hash}) {};

nella perlfaq ho trovato questo ciclo
    # trim whitespace in the scalar, the array,
    # and all the values in the hash
    foreach ($scalar, @array, @hash{keys %hash}) {
        s/^\s+//;
        s/\s+$//;
    }
non riesco pero` a capire cosa significhi quel
@hash{keys %hash}
for prende una lista e itera in questa, ma perche` questo sia una lista
non mi e` chiaro.
ciao

 @hash{keys %hash}
E` una hash-slice. Se ne parla in perldata:
  ...
  @days{'a','c'}      # same as ($days{'a'},$days{'c'})
  ...
Scrivere @hash{ keys %hash } comunque mi pare assai strano,
soprattutto in una FAQ, visto che in perldoc -f values, ad
esempio, si dice espressamente che
  for (values %hash)      { s/foo/bar/g }
equivale a 
  for (@hash{keys %hash}) { s/foo/bar/g }
E tra le due scritture sceglierei la prima senza pensarci 
due volte. Mah. Qualcuno ha delle ipotesi ?
ciao,
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  
http://www.perl.it
Newsgroup: it.comp.lang.perl
Titolo: index & rindex

ciao
allora: index trova e restituisce la posizione della prima ricorrenza di una
substring in String; rindex invece restituisce l'ultima ricorrenza. E se ci
fossero altre ricorrenze, come si fa a farsi restituire la posizione?
grazie in anticipo.
stefano_denominato recentemente Biologus cyberneticus.....:-)))

 restituire la posizione?
Se guardi il manuale, vedrai che index e rindex prevedono un terzo
parametro che consente di indicare la posizione in cui, rispettivamente,
iniziare o terminare la ricerca della sottostringa.
Max

 iniziare o terminare la ricerca della sottostringa.
Si, ho visto, ma non riesco a farlo funzionare. In pratica dovrei dirgli di
continuare la scorrere la STRING utilizzando come start la posizione
dell'ultima ricorrenza trovata, ma non ci riesco. Già la funz è all'interno
di :
foreach my $elem(@waw) {
    $start=0;
    print my $point = index($STRING,$elem, $start), "-", [quà manca qualcosa
che non so] ;
}
...alla fin fine vorrei che le posizioni delle ricorrenze fossero sulla
stessa linea dell'output, separate da un tratto.
ciao
stefano

 }
 sub indexes 
 { my $pos = 0;
   my @positions;
   while( -1 != ( $pos = index $_[0], $_[1], $pos ) )
    {	push @positions, $pos++;	
    }
    return \@positions;
 }
 my $str = "pippo  pippo  pippo  pippo  pippo";
 print join( '-', @{ indexes( $str, "pippo") } ), "\n";
Max


Ganzo! Funziona, anche nel mio script. Domani me la studio e vedo se ci
capisco qualcosa....
grazie!
stefano

capisco qualcosa....
Già che ci sei, ti consiglio di dare un'occhiata all'asserzione \G delle
espressioni regolari (m/\G.../gc) e alla funzione pos, con cui è possibile
(tra le altre cose) costruire una soluzione al problema generalizzato della
individuazione di ricorrenze in una stringa:
    # using m//gc with \G
    $_ = "ppooqppqq";
    while ($i++ < 2) {
        print "1: '";
        print $1 while /(o)/gc; print "', pos=", pos, "\n";
        print "2: '";
        print $1 if /\G(q)/gc;  print "', pos=", pos, "\n";
        print "3: '";
        print $1 while /(p)/gc; print "', pos=", pos, "\n";
    }
    print "Final: '$1', pos=",pos,"\n" if /\G(.)/;
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: compilare file con perlcc

qual'e' la giusta sintassi di perlcc
lanciando perldoc perlcc ho trovato diverse opzioni  ma non sono riuscito ad
ottenere un file eseguibile in windows
come devo scrivere volendo compilare il file 
pippo.pl
 contenuto nella
directori c:\perl\prg ?
 e da quale directory partire?
il file perlcc.bat e' in c:\perl\bin
il file 
pippo.pl
   e' in c:\\perl\prg
Grazie.
--
-----------------------------------------------------
Click here for Free Video!!
http://www.gohip.com/free_video/

 Grazie.
non so consigliarti riguardo a perlcc, perņ posso dirti che il
compilatore activestate, va bene, cosģ pure perl2exe
Newsgroup: it.comp.lang.perl
Titolo: variabili statiche

ciao a tutti, esiste l' equivalente delle variabili statiche del c? ho
una funzione ricorsiva, e vorrei controllare a che livello di ricorsione
e' arrivata, senza dover usare una variabile globale: una cosa di questo
tipo:
sub ricorri
{
	my "static"
 $livello;
	print $livello++;
	if( $livello<10 )	{ &ricorri; }
	print $livello--;
}
ripeto, devo evitare una variabile esterna a maggior visibilita'...
quindi anche local non va bene...
Grazie
Ivan
 
-- 
.signature work in progress

# questo è quello che in c chiamaresti static var
{
my $livello;
sub ricorri {
	print $livello++;
	if ( $livello<10 ) { ricorri(); }
	print $livello--;
}
}
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

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

 }

 Come faccio a semplificare questo usando array ??
Se ho capito bene (ma non ne sono sicuro) e vuoi semplificare il codice
per togliere tutti quegli if in cascata, hai due alternative:
- metti i valori degli attributi in un hash e successivamente usi l'hash
invece delle variabili (semplice da fare, ma poco interessante)
- se invece vuoi proprio usare le variabili $nome, $cognome, etc, puoi
fare qualcosa del genere:
 my %var_ref = 
 (
      'sn'        =>  \$cognome,
      'givenName' =>  \$nome,
      'l',        =>  \$city,
      # etc...
   );
 for my $k( keys %var_ref )
 {
      my $ref = $var_ref{$k};
      $$ref = $entry->get( $k )->[0]; 
  }
Max


Newsgroup: it.comp.lang.perl
Titolo: printf non supporta i quads

uso activeperl build 804 (perl 5.8.0) sotto win XP.
ho provato il seguente script:
$i = 5000000000;
printf("%lld $i\n",$i);
e ottengo come risultato:
-1 5000000000
sembra che la printf non supporti "ll" come modificatore di lunghezza
dei dati (come invece e' detto nei doc on-line).
mi chiedo se c'e' un modo (caso mai ricompilando dai sorgenti il perl)
per correggere questo comportamento.
ciao
-- 
Mastupristi?


Devi ricompilare perl, usando l'opzione use64bitint
./Configure -Duse64bitint -de
make
make test
make install
perl  -e 'printf "%lld\n", 5000000000'
5000000000
Ciao
gmax
-- 
   ____ ____  _____ _   _
  / _  |    \(____ ( \ / )
( (_| | | | / ___ |) X (
  \___ |_|_|_\_____(_/ \_)
(_____|
Sapere, saper fare, fare, far sapere
http://gmax.oltrelinux.com
Newsgroup: it.comp.lang.perl
Titolo: script per password

Salve, sono uno studente di informatica e devo fare uno script in perl
per la gestione del passwd. il problema č che passwd chiede la
riconferma della password; ho letto che esite la libreria 
chat2.pl
 per
risolvere questo problema ma a me crea problemi. Ne esite un'altra di
simile denominata Comm.pl.
1)Ho scritto lo script, si compila ma non da i risultati voluti; con
l'istruzione open_proc("passwd $user") si dovrebbe creare un handle e
dovrebbe venire scritto a video il mesaggio di inserire la password; ma
questo non accade; a video non appare nulla e dopo un po' di secondi lo
script termina.
C'č qualcuno che ha usato la Comm.pl?
Qualcuno ha qualche altra soluzione?
Grazie
msc...@dsi.unive.it
--
Posted from 
ciop.dsi.unive.it
 [157.138.20.15]
via Mailgate.ORG Server - 
http://www.mailgate.org

 Qualcuno ha qualche altra soluzione?
Pare che il modulo Expect (da CPAN) funzioni meglio di chat2 e di Comm.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 wrote:
: Salve, sono uno studente di informatica e devo fare uno script in perl
: per la gestione del passwd. il problema č che passwd chiede la
: riconferma della password; ho letto che esite la libreria 
chat2.pl
 per
: risolvere questo problema ma a me crea problemi. Ne esite un'altra di
: simile denominata Comm.pl.
Sono moduli abbastanza vecchi. Prova Expect.pm (da prelevare da un
sito del CPAN).
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nando
Newsgroup: it.comp.lang.perl
Titolo: Parsing di un file di testo

Absolute beginner.
Il mio problema e' questo:
Ho un file di testo, nel quale ogni riga inizia con una coppia
di caratteri ("01", "02"..."10", "25", etc.), ognuna delle
quali mi identifica una "tipo record" diverso, del quale
pero' conosco il tracciato.
Come faccio a identificare e caricare questi dati in un hash?
Esempio del tracciato
Tipo record		N  2
Partita IVA		C 11
Ragione sociale		C 10
Sede			C 10
Codice			C 10
Importo			N 13
Esempio di riga del file .txt
0112345678901Fiat      Torino    aaaaaaaaaa1234000000000
Come posso ottenere un hash siffatto?
$tipo    01
$Partiva 
12345678901
$Ragsoc  Fiat
$Sede	 Torino
$Codice	 aaaaaaaaaa
$Importo 1234000000000
Gli unici dati che conosco sono gli identificativi
dei tipi record, e il relativo tracciato.
Abbastanza in panne.
Grazie mille.
- Filo
Sent via Deja.com 
http://www.deja.com/
Before you buy.


--
 Massimo Balestra
 System Engineer
 Torino Italy


Il problema e' come vuoi usare questi dati.
Grazie mille per la risposta, prima di tutto.
Ma il mio problema sta ancora a monte, e forse
non ho neanche utilizzato la terminologia giusta.
Cioe', come riesco a individuare (e, ovviamente,
memorizzare) i singoli campi all'interno di ogni riga
del file testo, avendo come dati disponibili solo il tipo record
e la struttura che ogni tipo record identifica?
Fatto questo, memorizzerei ogni riga in un database, in cui
ogni tabella avrebbe come chiave il tipo record
e la struttura corrispondente.
Non so, a questo punto, se avendo parlato di "hash"
ho sviato il problema, e se sarebbe piu' corretto
parlare di array.
Grazie ancora.
- Filo


,

--
 Massimo Balestra
 System Engineer
 Torino Italy

Newsgroup: it.comp.lang.perl
Titolo: dereferenziazione

Salve a tutti,
se copio in uno scalare un valore per il suo riferimento è molto facile
dereferenziare:
$a='Ciao';
$b=\$a;
print $$b; e ottengo Ciao
il problema è quando copio un riferimento all'interno di un'array o un hash:
$a='Ciao'
$array[0]=\$a;
adesso in $array[0] ho un riferimento scalare giusto?
ok ma come faccio a risalire al valore reale?
$$array[0] non funziona
mentre se prima scrivo
$c=$array[0];
e poi
print $$c; ottengo 'CIAO'
però suppongo che esista il modo per dereferenziare da un array o hash in
modo diretto senza passare da uno scalare....
grazie a tutti.


...perchè è equivalente a ${ $array }[0] ed ha quindi un altro
significato. 
Quello che cercavi tu è
  ${ $array[0] }
Max

 $$array[0] non funziona
${$array[0]}
Nel tuo esempio non stai dereferenziando un ref a uno scalare, bensi' un
array di cui stampi l'elemento 0.
In altre parole NON stai restituendo ${$array[0]} bensi' ${$array}[0] (che
ovviamente nel caso specifico e' vuoto).
maggiori info con
perldoc perlref
ciao, marco
--
Marco Cacchiani                                
e-mail:ma...@sirius.pisa.it
Public pgp key:         
http://www.sirius.pisa.it/marco/pgp_public_key.asc
Sirius Servizi Informatici                     e-mail: 
in...@sirius.pisa.it
Parco Teatro Pasolini, 1                       Phone:  +39 (50) 865120
I-56019 - Vecchiano                            Fax:    +39 (50) 860260
(Pisa - ITALIA)                                
http://www.sirius.pisa.it/

 modo diretto senza passare da uno scalare....
Devi mettere delle parentesi graffe, altrimenti il parser pensa che $$array
sia un reference ad array dal quale prendere l'elemento [0].
Quindi 
  ${$array[0]} 
 
ti restituisce 'CIAO'. Nel dubbio, con i reference, quando qualcosa non
funziona prova sempre a mettere delle parentesi graffe :)
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Grazie a tutti!!!!!
Bye

Newsgroup: it.comp.lang.perl
Titolo: UN AIUTO PERF.: come usare l'httpS (SECURE HTTP)!!!

Ciao tutti,
    proprio non risco trovare documenti in proposito con degli esempi.
Nemmeno su 
www.perl.com
. Solo vaghi accenni. Consultanto il motore interno
ad un sito ottengo come risposta qualcosa del tipo "404 https protocol not
allowed". Perfavore qualcuno saprebbe dirmi come modificare queste poche
linee di codice per usare l'HTTPS (secure https)??
use LWP::UserAgent;
 $interfaccia = new LWP::UserAgent;
  $interfaccia->agent('Mozilla/5.0');
 $interfaccia->timeout($tempo_max);
  $richiesta=HTTP::Request-> new("POST" => "$url");
  $richiesta->content("$cgi_variables");
  $richiesta->content_type('application/x-www-form-urlencoded');
  $risultato = $interfaccia->request($richiesta);
Grazie a tutti.
Federico.

linee di codice per usare l'HTTPS (secure https)??
Credo sia necessario installare OpenSSL o equivalente.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> FAQ di it.comp.lang.perl: 
http://www.borders.it/perl/faq/
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!
Newsgroup: it.comp.lang.perl
Titolo: Richiesta consigli su alcune RE

Ciao a tutti.
Per diletto sto scrivendo un server HTTP in perl incorporabile. Ce ne sono
di gia' fatti, ma mi piace farmo a modo mio.
Procedendo ho raccolto alcune domande per il NG su come fare in modo piu'
efficiente possibile le seguenti cose:
1) In ogni implementazione di protocollo si deve sempre fare la validazione
dell' input per prevenire attacchi. Se uno fa:
get /../../../etc/passwd HTTP/1.1
mi accede al file delle password o a qualsiasi file a cui possa accedere il
processo con i privilegi che ha.
Quale puo' essere la RE piu' efficiente per cauteliarsi da questo?
Io credo di farlo con piu' passate, anche perche' con una sola non riesco.
considerate che /.../.../mia-directory-segreta/doc.html deve passare
inalterata, mentre /dir/dir/.. o anche solo .. no.
2) Quando uso il metodo POST dopo gli header HTTP e una linea vuota devo
leggere una linea arbitrariamente lunga che terminera' con "\r\n".
Io uso solo sysread con limite di caratteri da leggere, ma vorrei non limi-
tare il processo che ricevera' la FORM ad una lunghezza prestabilita, e
neanche esporre il server ar un attacco volto a consumare tutta la RAM
per allocare uno scalare.
Quindi io vorrei fare  tante sysread quante ne servono e passare tutto al
pipe verso la CGI senza mai memorizzare tutta la FORM (ho posto anche
limiti al numero e lunghezza degli header HTTP). Questo comporta 2
problemi: Se una sysread legge fino a \r e la prossima \n come mi
accorgo che e' arrivata la sequenza?? Inoltre la CGI ha un problema
simile ma peggiore: se vuole decodificare a tempo di ricezione la form
con le sequenze di %20%21 ecc, come fa a recuperare la sequenza spezzata
che si congiungera' con la prossima stringa letta? Ho gia' fatto funzio-
nare le cose, ma sospetto che siano i punti computazionalmente piu' critici
di tutto il sistema e anche dove ho maggior deficit a trovare soluzioni
adeguate allo strumento Perl (fosse C non vi disturberei :) )
Ciao a tutti e buone Feste.
Roberto.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 adeguate allo strumento Perl (fosse C non vi disturberei :) )
E tu scrivi come se fosse C, no? Intanto ottieni qualcosa che
funziona. I raffinamenti li puoi fare dopo.
-- 
  dakkar
  sono su PerlMonks.org, 
use.perl.org
, PAUSE/CPAN
Newsgroup: it.comp.lang.perl
Titolo: Connessione a db oracle

Salve a tutti! Sono un neofita del Perl e mi trovo ad affrontare un problema
che va molto oltre le mie conoscenze attuali di perl (no avrei mai voluto
saltare cosě in avanti senza essermi creato delle solide basi, ma mi trovo
ad avere un esigenza immediata).
Dovrei trasferire alcuni dati da un db oracle ad un altro in access.
Sapete dirmi dove possa trovare documentazioni dettalgiate a riguardo?
Qualche aiuto da parte vostra per iniziare?
Grazie a tutti!





Grazie a tutti!
Ti consiglio l' eccellente testo: "Programmare con Perl e DBI " della
O' Reilly e tradotto pure in italiano.
E' una guida molto chiara e pratica su come usare il modulo DBI che ti
consente di accedere pressochè a tutti i db degni di questo nome.
Di agevole lettura. Costava 49.000 lire ai tempi cui cui fare la spesa
al supermercato non aveva ancora comportato un aumento del 37% su base
annua. Dati di 5 minuti fa. :-(
Ciao

 O' Reilly e tradotto pure in italiano.
Ti ringrazio :-)

 Grazie a tutti!
usa il modulo DBI
http://search.cpan.org/doc/TIMB/DBD-Oracle-1.12/Oracle.pm
Ciao
***************************************
messaggio inviato tramite HostSearch.it
---------------------------------------
---> 
http://www.hostsearch.it/newsgroup
***************************************

Newsgroup: it.comp.lang.perl
Titolo: Aiuto sui cookies...

Salve a tutti...
Vediamo se qualcuno può darmi una mano...
In un sito internet ho la necessità di impostare (in javascript) dei cookies
che dopo verranno letti da un file in perl.
Tutto funziona regolarmente, offline con xitami, ma quando faccio l'upload
lo script in perl non riescie a leggere nulla.
Qualcuno può chiarirmi meglio il concetto dei cookies (magari anche in Html,
java e perl) e che cose devo fare per leggerli e scriverli?
Scusate per l'enorme richiesta!  Grazie in anticipo.
Diego.

lo script in perl non riescie a leggere nulla.
Hai impostato correttamente path e dominio del cookie? Un cookie non viene
inviato a tutti i server indistintamente, ma solo a quello specificato
come dominio, che per molti browser deve corrispondere a quello che l'ha
impostato.
	A presto, 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: @array......

Scusate, ma č da poco che mi cimento con Perl e con questo NG.
Vorrei sapere se esiste (sicuramente) un metodo rapido per eliminare il
primo elemento di un @array, ovvero:
@nomi , contiene
qui
quo
qua
vorrei eliminare sempre la prima voce (indipendentemente da cosa ci sia).
Grazie 1000
<lella>

 <lella>
Prego :-)

 all'inizio dell'array.
Inoltre c'č anche la funzione 'splice' che permette di fare tutte
queste cose in una qualsiasi posizione dell'array.
;-)
	- Enrico
Newsgroup: it.comp.lang.perl
Titolo: sessioni.....AIUTO!!!!

Salve a tutti.
Qualcuno sa mica dove posso trovare qualche riga di codice che gestisca le
sessioni e le loro scadenze? (la tua sessione č scaduta ecc....)
Grazie mille anticipatamente.
--
Posted from 
mta04-acc.tin.it
 [212.216.176.35] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 sessioni e le loro scadenze? (la tua sessione è scaduta ecc....)
 
http://search.cpan.org/search?dist=Apache-Session

Newsgroup: it.comp.lang.perl
Titolo: acquisizione parametri

C'e' qualcuno che mi consiglia il modo migliore per acquisire (inserire in
variabili)i  parametri passati al mio programmino perl ?
per intenderci
digitando
mio_perl mela pesca ciliegia
vorrei ottenere @frutta = (mela, pesca, ciliegia)
grazie a tutti


Normalmente i parametri stanno in @ARGV, da cui li puoi estrarre. $ARGV[0]
e' il primo parametro, nel tuo caso 'mela'. Gli altri vengono di conseguenza.
Per cose piu' complicate puoi usare i moduli Getopt::Std o Getopt::Long, che
permettono di gestire opzioni del tipo 
  mioperl -v -d pippo 
oppure 
  mip_perl --frutta=(mela,pesca)
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@tuttocitta.it
 
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)


		attenzione: rispondere solo a questo indirizzo!

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

# 
leggi.pl
@riga = <STDIN>
for($i = 0; $ i<= $#riga; $i++)
{
   print "$i) $riga[$i]";
}
come mai non funziona?
-- 
Lawrence "Rhymes" Oluyede (
rhy...@myself.com
)
"Per cambiare, per diventare un'altra
cosa dobbiamo prima sapere cosa siamo"
(Bruce Lee)

 for($i = 0; $ i<= $#riga; $i++)
$ i va scritto come $i

 come mai non funziona?
Ti hanno gia' risposto, ma perche' ostinarsi a mettere sempre tutto un 
file in un array?
Cosi', IMHO, e' molto meglio:
while (<STDIN>) {
        print $i++,") $_";
}
-- 
Saluti,
Giancarlo

}
Non è che mi ostino è che sto seguendo un tutorial che fa cosi...io di
perl non so nulla :)

Newsgroup: it.comp.lang.perl
Titolo: (OT)Form-to-Mail su Hosting Italia help

Ciao,
sto cercando di far funzionare uno script(CgiPoint.it) su un sito
ospitato da Hosting Italia ma non ci riesco
non conosco il Perl ho letto varie faq e guide , non ho mai usato i cgi
una delle prime cause ho pensato potrebbe essere i path per l'interprete
e il sendmail
inoltre non ho settato i permessi perché non so usare telnet e non posso
installare linux per farlo
insomma non so molte cose e sono meso un pò male
ho scritto e tel più volte alla hosting Italia e cercato
faqs-posts-scripts  sul loro sito ma non mi hanno risposto, il tel è
sempre occupato e sul sito non c'é davvero niente, la persona che ha il
contratto il hosting non ha ricevuto allegati a riguardo in e-mail.
taglio: finché non ho queste informazioni non posso neanche capire se lo
script non funziona per questi motivi o per altri più seri dovuti alla
mia ignoranza
se qualcuno utilizza simili script con Hosting Italia e può indicarmi i
path o ha consigli a riguardo gliene sarei grato
GRAZIE	
Mas

dimenticavo,
il server dovrebbe avere red hat e lo scrript è il bnbform
per i permessi ho scaricato cuteftp
ciao

Newsgroup: it.comp.lang.perl
Titolo: Modulo Log4perl (Log-Log4perl-0.26)!!!!!

Ciao a tutti,
Avete mai usato il modulo CPAN in oggetto? Ne esistono di più semplici?
Abanero.

> Avete mai usato il modulo CPAN in oggetto? Ne esistono di più semplici?
già è complicato capire bene COSA fa :-)
--
-.. --- -- .. --.. .. ---
-.. . -- .. -.-. .... . .-.. .. ...
Newsgroup: it.comp.lang.perl
Titolo: Corso on line di Perl+DBI

Scusate, ma vado di fretta.
Mi interessa conoscere Perl + DBI per un collegamento a Oracle.
Dove posso trovare della documentazione (gratis possibilmente) su 
internet ?
Ho cercato nel ng ma non ho trovato nulla (forse ho guardato male).
Grazie infinite
Distinti Saluti
Roberto Schiabel
***************************************************
robe...@pellegrini.it
--
Posted from 
mta2.iol.it
 [195.210.91.152]
via Mailgate.ORG Server - 
http://www.mailgate.org

 Ho cercato nel ng ma non ho trovato nulla (forse ho guardato male).
La documentazione di DBI e di DBD::Oracle dovrebbe fornire abbastanza
indicazioni. 
Su CPAN c'e' anche un modulo DBI::FAQ che contiene le Faq e un po' di
puntatori. Analoghi puntatori dovresti trovarli tramite il sito di Perl
(www,
perl.com
).
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)
Newsgroup: it.comp.lang.perl
Titolo: Perchè non mi funziona?dov'è l'errore?

Scusatemi se posto nuovamente..
Forse č meglio se vi presento il mio problema, cosě, spero, possiate
aiutarmi.Anche perchč non riesco proprio ad uscirne..
Devo realizzare un programma che mi visualizzi :
- stato online/offline;
- se online, il tempo di connessione + ip;
Sono riuscita a realizzarlo tutto compresa l'interfaccia grafica con tk,
ma c'č qualcosa che non funziona nell'analisi dello stato
offline/online.
O meglio, avviando il programma.. il Net::Ping funziona; mi segnala che
sono sconnessa e di conseguenza non esegue niente altro.
Quando mi collego la 'prima volta', il programma si pone in online, mi
segnala l'ip e parte il timer relativo alla durata della connessione.
Ma, il problema nasce quando mi disconnetto da internet.. il programma
(Net::Ping) non mi segnala la sconnessione.. continua a attribuire a
$ris (in sub online) il valore "0" (cioč, connesso). Perchč? dov'č
l'errore??
Vi prego aiutatemi.. non riesco a capire dove sbaglio!!
Vi riporto la porzione di script relativa al net::ping:
#######################################################################
sub offline {
my $utente;
while ($utente ne "online") {
             $hostp='
libero.it
';
                        my $pink = Net::Ping->new();
                        my $ris = $pink->ping("$hostp");
                        if ($ris eq "0") { $utente="online";}
             }
print "online\n";         
&online;
}#close offline
sub online() {
my $utente;
while ($utente ne "offline") {
             use Net::Ping;
             $hostp='
libero.it
';
                        my $pink = Net::Ping->new();
                        my $ris = $pink->ping("$hostp");
                         if ($ris ne "0") { $utente="offline";  }
   }
print "6 offline\n";
&offline;
}
########################################################################
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 if ($ris eq "0") { $utente="online";}
Ma ping ritorna 0 se l'host e' unreacheble.
Poi perche' fai un confronto di stringhe (ne e eq) anziche' usare un 
confronto tra interi (== e !=) o, ancora meglio visto che $ris e' 
l'output di un metodo verificare solo la variabile (if ($ris) {...])
Infine non si capisce dove il programma inizi. Mi sembra che tu 
continui a chimare alternativamente le due funzioni.
Io fare io cosi':
use Net::Ping;
sub isOnLine () {
        my $hostip='
libero.it
';
        my $pink = Net::Ping->new();
        my $status;
        while (1) {
                if ($pink->ping($hostp)) {
                        $status='on line';
                } else {
                        $status='off line';
                }
                # oppure: $status=($pink->ping($hostp))?'on line':'off line'; ma si             
                # legge un po' meno bene
                print "$status\n";
                sleep 10;
        }
}
Poi pero', considera qualche modo per uscire dal while infinito.        
-- 
Saluti,
Giancarlo
Newsgroup: it.comp.lang.perl
Titolo: split regex

Ciao,
sto' cercando di splittare per newline una regular expression passata a 
linea di comando,
ho provato cosi' ma non sembra funzionare:
$regex  = "stringa1\nstringa2\nstringa3\n";
@regex = (split /\n/, $regex);
mi date qualche suggerimento ?
Grazie
Andrea 

 Ciao,
allora...se passo la regex a riga di comando ovvero:
./prog "stringa1\nstringa2\nstringa3\n"
non mi splitta,
quindi ho valorizzato solo $regex[0] che contiene tutta la regex. 

 Ciao,
Leggi attentamente:
 >>@regex = (split /\n/, $regex);
Non mi sembra il modo corretto di richiamare split(). Che dici?
Saluti,
Simone.

Non mi sembra il modo corretto di richiamare split(). Che dici?
Non c'è nulla di sbagliato. Come tutte le funzioni, gli argomenti di split
si possono racchiudere fra parentesi o no. Le parentesi possono essere
convenienti, per evitare eventuali ambiguità, ma non necessarie; in questo
caso poi non c'è nessuna ambiguità. Anche mettere tra parentesi tutta la
parte destra dell'assegnazione non cambia, in questo caso, nulla.
In sostanza, è un modo singolare di esprimersi, ma non c'è nulla di
scorretto.
Ciao.

quindi ho valorizzato solo $regex[0] che contiene tutta la regex. 
Forse se ti fai stampare $regex nell'uno e nell'altro caso capisci perché
non splitta.
Ciao.

 righe.
Ciao,
anche a me in questo modo funziona,
ma se io scrivo:
$regex = shift;
e poi chiamo lo script cosi':
./script "stringa1\nstringa2\nstringa3\n"
non riesce a splittare e dentro il primo elemento dell' array trovo 
direttamente tutta la stringa.
Provare anche voi cosi' mi dite...
comunque grazie per l' aiuto
Andrea

 stampa una riga unica come gliel'hai passata.
Kral,
infatti dovevo splittare cosi':
$regex = shift;
@regex = split(/\\n/, $regex);
altrimenti non trovava un newline all' interno della stringa che gli 
passavo.
Invece se facevo questo:
if ($output !~ /$regex/) ....
funzionava e non capisco perche' in $output io avevo le tre stringhe 
separate realmente dai newline.
Grazie
Andrea

Newsgroup: it.comp.lang.perl
Titolo: perl e CGI

Salve a tutti!
Ho un problema, consideriamo la riga seguente:
print "<BODY BACKGROUND=\"sfondo.gif\">\n";
Questa e' una riga di un programma Perl che sto utilizzando per uno
script CGI. Il problema fondamentale e' che l'immagine "sfondo.gif" non
viene caricata nella finestra del browser, qualcuno mi sa dire come mai?
E' abbastanza urgente, mi serve per un esame. Grazie in anticipo.
-- 
Fabrizio Lippolis
Studente in Informatica
Universita' degli Studi di Bari, Italia
e-mail: 
lipp...@teseo.it

...

Newsgroup: it.comp.lang.perl
Titolo: Regex: tutte le parole tranne 2

 
          Salve a tutti,
come faccio a fare un'espressione che mi accetti tutte le parole tranne 2.
Questo non funziona:
stringa =~ /[^(SI|NO)]/
chi mi sa dire perchč?
p.s. =~ č obbligatorio, anche perchč non sto usando perl :-(
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 p.s. =~ è obbligatorio, anche perchè non sto usando perl :-(
e che usi?

 e che usi?
uso Mapserver. Quindi non posso utilizzare negazioni all'espressione.
Altre idee?



Sostituisci le due parole con un carattere strano (che non ti interessa) e 
poi matcha qualsiasi cosa diverso da questo carattere:
$stringa =~ s/(si|no)/\?/g;
if ($stringa =~ /[^\?]/)
Newsgroup: it.comp.lang.perl
Titolo: Aiuto script !!!!!

Vorrei creare un piccolo script per Linux, che ricursivamente a tempi
prestabiliti(questo non č un problema), si colleghi ad un sito tipo
http://it.finance.yahoo.com
 e scarichi le quotazioni di alcuni titoli.
LO SCOGLIO STA, NEL IMPLEMENTARE LA FUNZIONE DI CONNESSIONE E DI COPIATURA
DEL DATO.
Ho tentato con l' ftp, pftp ma ogni volta mi dice che il server non puņ
connettersi.
Qualcuno mi puņ aiutare !!!
Simon 
Si...@tin.it

connettersi.
Devi usare LWP, il modulo LWP::Simple in particolare potrebbe andarti
bene.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
ICQ# 76660101
==> FAQ di it.comp.lang.perl: 
http://www.borders.it/perl/faq/
==> Sei del triveneto e vuoi unirti ai Perl Mongers? Scrivimi!

>Ho tentato con l' ftp, pftp ma ogni volta mi dice che il server non puň


 2) implementazione vera e propria che sfrutti il modulo citato ?
# ad esempio:
use LWP::Simple;
$page = get('
http://tuourlchecontienelequotazioni/'
);
# ora $page contiene l'intera pagina che puoi elaborare come vuoi
print $page;
Qui trovi altre info interessanti:
FAQ (How do I fetch an HTML file):
http://www.perldoc.com/perl5.6/pod/perlfaq9.html
Documentazione di LWP:
http://www.perldoc.com/perl5.6/lib/LWP.html
lwpcook - libwww-perl cookbook
http://www.perldoc.com/perl5.6/lib/lwpcook.html
Ciao, Ezio Bonsi


...


Simon 
Si...@tin.it
Avendo la stessa necessità ho provato a cercare su 
freshmeat.net
 un
programma che facesse le suddette operazioni, e ho trovato un semplice
script [ meno di 150 linee ] che non fa uso di LWP o altri moduli (se si
esclude Socket che però è un modulo standard). 
Il programma si chiama "ast" (Abe's Socket-based Stock Ticker), e così com'è
scarica le azioni solo del mercato americano dal sito 
yahoo.com
.
Se la tua esigenza, come credo, è di scaricare le azioni del mercato italiano
ti posso inviare la modifica per posta.
Il programma è vermamente mooolto semplice, ma funziona bene ( io lo uso da
circa un mese senza problemi ), e dovrebbe funzionare fino a che non cambierà 
l'impostazione della pagina 
it.finance.yahoo.com
.    
Saluti.
Giovanni

Newsgroup: it.comp.lang.perl
Titolo: Installazione ActivePerl

L'installazione prevede anche la creazione di un'entrata con nome
Activeperl nella cartella Start->programmi; in effetti, nel mio caso,  è
stata
creata, ma vuota; c'è qualcuno che è riuscito a "riempirla"? E con che cosa?
Ringrazio in anticipo.

 creata, ma vuota; c'è qualcuno che è riuscito a "riempirla"? E con che cosa?
Deve essere un problema dell'ultima versione,dato che e' accaduto anche a me
(mentre la penultima+upgrade aveva funzionato)
Comunque dentro ci dovrebbe stare lo shortcut 'Online Documentation', 
ovvero un riferimento al file C:\Perl\html\index.html
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)