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

Vi pongo un problema che a molti potrà sembrare banale......non al
sottoscritto.
Ho una serie di file cosi' formati:
xxxxxx    \t    xxxxxx
Devo trovare all'interno di questi la riga contentente $var, e sostituirla
con:
$var1    \t    $var2
Come posso fare.
Grazie per l'aiuto.
Ciao

 [...] Come posso fare.
Ad esempio...
while( <> ) {
    print /$var/ ? "$var1 \t $var2" : $_;
}
Vale a dire:
while( <> )
    Loop su tutte le righe del file (in questo caso si tratta dello standard
input).
    La riga corrente viene implicitamente assegnata alla variabile $_.
print /$var/ ? "$var1 \t $var2" : $_;
    Stampa "$var1 \t $var2" oppure la riga stessa (cioe` la variabile $_), a
seconda
    che essa contenga il pattern contenuto in $var.
Attento pero`, a giudicare dalla domanda, sei ad un passo dal commettere uno
dei peccati considerati capitali dai programmatori Perl, vale a dire
scrivere
"yet another Templating system". Se pensi di dover fare spesso ricerche e
sostituzioni di questo tipo all'interno di un file, ti consiglio di valutare
alternative
quali il Template Toolkit oppure HTML::Template. Se spedisci qualche
dettaglio
in piu` sulle tue esigenze, provo a rispondere con un esempio usando il
primo
dei due.
ciao
Stefano

Newsgroup: it.comp.lang.perl
Titolo: Aprire una URL da uno script

Salve a tutti
è possibile fare in modo che uno script perl (attraverso il web) apra
un file html? (voglio dire: NON leggendolo e mandandolo in stampa, ma
proprio facendo in modo che il browser salti a quell'URL)
Grazie

 ha scritto nel messaggio
news:3B1BA818...@unifi.it...

print "Location: 
http://www.tuo_url.com
\n\n";

 print "Location: 
http://www.tuo_url.com
\n\n";
Ehi, funziona!
Grazie a tutti
Gabriele

Newsgroup: it.comp.lang.perl
Titolo: propongo scambio

Ciao al NG,
sul mio sito di Fantacalcio
http://asp4free.ravenna2000.it/fantateox/moduli/343.htm
c'è un form i cui darti vengono spediti al mio indirizzo di mail tramite uno
script Perl di quelli gratuiti che ci sono in giro e che non è residente sul
mio server (NT). Il problema è che all'invio del form, l'utente viene
indirizzato ad una pagina pubblicitaria e ciò non è carino.
Sto cercando uno script Perl da mettere sul mio server, e che faccia
esattamente quello che fa l'attuale, trane l'indirizzamento su di pagina non
mia.
Capite che per uno scopo così ludico non posso mettermi a studiare Perl....
Offro tutte le mie conoscenze informatiche (Flash 4 e 5 soprattutto) a
colui/coloro che mi aiuteranno a risolvere questo problema.
Lo so che no è molto.
Saluto tutti cordialmente
--
Matteo Vidovich
Programmazione & Sviluppo
SIMULWARE srl
http://www.simulware.it

 ha scritto nel messaggio
news:8uemot$t95$1...@nslave3.tin.it...


 ha scritto nel messaggio
news:RYWO5.143773$bI6.5...@news1.giganews.com...


 > > Lo so che no č molto.

Newsgroup: it.comp.lang.perl
Titolo: connessioni Telnet parallele

Ciao a tutti,
spero mi possiate aiutare con il seguente quesito:
Attualmente ho sviluppato un piccolo script perl che effettua
SEQUENZIALMENTE delle connessioni Telnet (NET::TELNET)a degli
apparati, su ognuno dei quali viene eseguito un ping a livello ATM per
ogni utenza presente in esso.
Il funzionamento si puo' descrivere in parole povere cosi':
ENTRO NELL'APPARATO 1
ESEGUEO PING ATM IN UTENTA 1,
ESEGUEO PING ATM IN UTENTA 2,
ESEGUEO PING ATM IN UTENTA n,
ESCO DALL'APPARATO.
ENTRO NELL'APPARATO 2
ESEGUEO PING ATM IN UTENTA 1,
ESEGUEO PING ATM IN UTENTA 2,
ESEGUEO PING ATM IN UTENTA n,
ESCO DALL'APPARATO 2.
e cosi' via....
Quello che io vorrei fare credo tramite fork, e' far svolgere allo
script una parallelizzazione delle suddette operazioni, ovvero:
ENTRARE PARALLELAMENTE NEGLI APPARATI E SU OGNUNO DI ESSI, LANCIARE
SEQUENZIALMENTE IL COMANDO DI PING ATM.
grazie mille!!
Fabio.

 [CUT]
Penso possa esserti d'aiuto.
http://www.tutorialspoint.com/perl/perl_fork.htm
-- 
 ************** (.)_(.) *******************
 Un amico � uno che sa tutto di te e,
 nonostante questo, gli piaci
(E. Hobbard) 


Usa i thread, io li uso senza problemi anche e proprio con Net::Telnet.
Puoi usare anche moduli come Coro o POE, personalmente ho trovato pi� 
immediato e intuitivo usare gli ithread per questo tipo di applicazioni.
Potresti provare anche un approccio asincrono, purtroppo pare che 
Net::Telnet non supporti chiamate non bloccanti con select() come fa, 
per esempio, Net::SNMP. Potresti tentare di usare moduli come EV allo 
scopo (EV si appoggia pure a chiamate di sistema pi� performanti di 
select() su linux 2.6+, Solaris 2.7+, NetBSD, FreeBSD), ma non ho idea 
di come "frugare" dentro Net::Telnet per aggiungere un watcher sui 
socket aperti da questo modulo.
Anselmo

Newsgroup: it.comp.lang.perl
Titolo: funzione crypt

Qualcuno ha i sorgenti per implementare la funzione crypt usata dal perl, 
devo utilizzarla in un programma per delphi (ma vanno bene ance sorgenti 
in c).
Grazie
-- 
----------------------
Guido Bellomo
gbellom...@economia.unibo.it
http://www.econlab.unibo.it/gbellomo
Rimuovi NOTSPAM dall'indirizzo per scrivermi

in c).
La funzione crypt() usata dal Perl e` quella della libc del sistema operativo.
Per maggiori informazioni dai:
man 3 crypt
In effetti il risulato della funzione (cioe' la stringa codificata) cambia
da sistema a sistema: ad esempio sotto Linux e` diversa che sotto FreeBSD.
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.io.com/~mick/
Newsgroup: it.comp.lang.perl
Titolo: Variabili pubbliche

Cercavo un modo per dichiarare variabili pubbliche per un package e per chi
lo usa :P
Ho trovato questo metodo:
$this->{TEXT}=new oggetto  più sotto nel codice vedrete come l'ho usato..
Mi chiedevo... esistono altri modi per dichiarare variabili pubbliche?
(magari vorrei anche  sapere qualcosa su miei eventuali errori di base nel
codice qui sotto  :P)
use strict;
package MyFrame;
use wx;
use base 'Wx::Frame';
use Wx::Event qw(EVT_LEFT_UP EVT_LEFT_DOWN EVT_LEFT_DCLICK );
sub new{
    my( $this ) = shift->SUPER::new( @_ );
    $this->init();
    EVT_LEFT_DOWN($this,\&OnLeftDown);
    EVT_LEFT_UP($this,\&OnLeftUP);
    EVT_LEFT_DCLICK($this,\&OnLeftDclick);
    return $this;
}
sub OnLeftDown{
    my( $this,$event) = @_;
    $event->Skip();
}
sub OnLeftUP{
    my( $this,$event) = @_;
    $event->Skip();
}
sub init {
    my( $this) = @_;
    $this->{TEXT} = Wx::TextCtrl->new($this,-1, "This is the log
Window.\n",[0, 0],[100,20]);
    $this->{TEXT}->SetLabel('Text');
    $this->{TEXT2} = Wx::TextCtrl->new($this,-1, "This is the log
Window.\n",[0, 20], [100, 20]);
    $this->{TEXT2}->SetLabel('Text');
}
sub OnLeftDclick{
    my( $this,$event) = @_;
    $this->Close();
    $event->Skip();
}
package MyApp;
use base 'Wx::App';
sub OnInit {
    my( $this ) = shift;
    my( $frame ) = MyFrame->new(undef, -1, 'wwwww',[0, 0], [150, 150]);
    $frame->Centre();
    $frame->{TEXT2}->SetLabel('nuovo testo');
    $frame->Show( 1 );
}
package main;
my( $app ) = MyApp->new();
$app->MainLoop();

    my( $this) = @_;
Qui non sono sicuro: init non viene richiamato, come tutti gli altri
metodi, con due parametri? Ad orecchio, mi pare che dovresti fare qualcosa
come:
sub init {
    my($this, $qualcosa) = @_;
...
}
E, anche, non ho chiaro quando venga richiamata init: quando fai:
  sub new{
     my( $this ) = shift->SUPER::new( @_ );
     $this->init();
  ...
non chiami un eventuale metodo init della classe padre?
Probabilmente però sono dubbi miei, perché di programmazione ad oggetti non
me ne intendo molto.
Ciao.

> non chiami un eventuale metodo init della classe padre?
quel metodo init era solo un esempio per spiegare meglio il problema e cmq
non un metodo della classe madre.
ciao e grazie :))
Newsgroup: it.comp.lang.perl
Titolo: caratteri non interpretabili

Sto tentando di impostare un semplice script che mi sostituisca intere
stringhe di testo, ma mi trovo in difficolta' su un carattere che Perl
sembra non interpretare correttamente:
I° maggio
quel pallino, scritto in una pagina HTML dalla tastiera, non viene
riconosciuto da Perl e nemmeno dall'Edit di Dos, i quali me lo riportano con
uno strano disegno a quadrettini. Cosi Perl non mi esegue il regex. A parte
la soluzione di fare un regex sull'inizio e la fine della stringa, e'
possibile riprodurre il carattere riconosciuto da Edit (cioe' il disegno a
quadrettini??): se io volessi sostituire la stringa: "oggi, I° maggio, sono
diventato miliardario" e volessi modificare quel carattere con un
if($stringa~=/°/) ecc.. come posso rappresentare quel carattere?
Fino ad ora, mi sono visto costretto a fare due righe di codice ad hoc,
valide cioe' solo per quel carattere: lo elimino da tutte le pagine e poi
lancio il regex vero e proprio.
Grazie e a presto.
Andrea

 wrote in message
news:9ninru$v0h$1...@lacerta.tiscalinet.it...

Si puo' rappresentare il carattere, °, con il numero corrispondente nel
sistema ASCII, cio' 176.  Provi: print chr(176);
Allora, Lei puo' fare cosi':
$dato = "I° Maggio, I° Dicembre";
print "The initial value is: $dato\n";
$dato =~ s/G/g/g;
$chr = chr(176);
$dato =~ s/$chr//g;
print "Dopo, la stringa e' il seguente: $dato\n";
Spero che sia utile.  Buone feste.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.perl
Titolo: CodiceSocket Help!

Ci riprovo!leggendo gli ultimi post, NON vorrei che qualcuno abbia
pensato che "cercavo" qualcuno che mi generava l'intero codice...
Vi metto l'essenziale del codice che ho realizzato.. così, se mi potete
aiutare a capire dov'è il problema ve ne sarei grato!
Il problema: "xkè il server non legge il comando del client"??
------------------------------------------------------------------------
#CLIENT
#connessione al server
use IO::Socket::INET ;
use strict;
my $remote=IO::Socket::INET->new(Listen =>5,
Proto=>'tcp',
LocalAddr=>'localhost',
Localport=>3000 ) or die "Non posso creare il socket :
$!\n";
while (my $connection=$remote->accept() ) { 
print $server "dir c:\\documenti"; 
}
------------------------------------------------------------------
#SERVER
use IO::Socket::INET;
use strict;
#socket in ascolto
my $server = IO::Socket::INET ->new( Listen =>5,
LocalPort => 3000,
LocalAddr =>'localhost',
Proto =>'tcp') or die "Non posso creare il socket :
$!\n";
print "Modalità ascolto...";
#connessione con il client
while (my $connection=$server->accept() ) {  
#acquisizione comando dal client                      !??!?!?  
$line=$server;
print "$line";
 }
-------------------------------------------------------
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Il problema: "xkč il server non legge il comando del client"??
Principalmente, perche` il codice scritto per il client assomiglia 
sinistramente a quello scritto per il server.
<code src="Ellen Siever et Al.,Perl in a Nutshell,O'Reilly">
	# client side
	use IO::Socket;
	$client=new IO::Socket::INET (
	    PeerAddr => 'localhost',
	    PeerPort => 42,
	    Proto    => 'tcp'
	);
	die "$!" unless $client;
	while (<$client>) { print }
	close $client;
	# server side
	use IO::Socket;
	$server=new IO::Socket::INET (
	    LocalAddr => 'localhost',
	    LocalPort => 42,
	    Proto     => 'tcp',
	    Listen    => 1
	);
	die "$!" unless $server;
	$connection=$server->accept;
	print $connection "Hello world!";
	close $connection;
</code>
-- 
Baci,
Mony

Newsgroup: it.comp.lang.perl
Titolo: Perl e Banca Sella

Salve al Ng.
Ho la necessità di implementare ( in perl )
l'interfacciamento con Banca Sella.
Putrotto non mi e' chiara la procedura
da seguire per gestire il tutto.
Qualcuno potrebbe aiutarmi a capire
come funzionano le OTP e la gestione
delle password ris e ric.
Naturalmente una volta che ho realizzato lo script
lo metto a disposizione di tutti.
Saluti
Carmine G.

 delle password ris e ric.
Prendi una password da .ric e la togli dal file.
La inserisci come campo nascosto nel form che chiama lo script
di Banca Sella, passando anche l'importo moltiplicato per quel
codice di cui non ricordo il nome e un codice che serve a te per
identificare la singola transazione.
Banca Sella si occupa della transazione e chiama un tuo script
passandoti:
Numero autorizzazione oppure 'KO'
OTP di risposta
Numero transazione (quello che gli hai passato tu)
Controlli che il numero autorizzazione non sia KO.
Controlli che la OTP sia presente nel file .ris (e la togli)
Continui la transazione oppure la interrompi.
Spero di esserti stato d'aiuto.
Valerio
Newsgroup: it.comp.lang.perl
Titolo: Imparare perl

Dove possso reperire on line informazioni sulla programmazione in perl,
premetto che scrivo html, ma per il perl non so proprio da dove incominciare
!!!
Grazie e Saluti Luciano Talarico.
--
*********************************************************
  Luciano Talarico Web Design & Multimedia
    Tel. 0347 6941362 - ICQ #42467114
www.luciano.lamezia.net
 - 
luc...@lamezia.net
Visitate Area Multimediale il divertimento on line !!!
 
www.area.lamezia.net
 - 
ar...@lamezia.net
*************************************************************
Lamezia.Net Internet Provider
powered by Microelettronica s.n.c.
Via A. Volta, 7 88046 Lamezia Terme, Cz
Tel. 0968 21248 Fax 0968 447496
email 
in...@microelettronica.it
email 
in...@lamezia.net
Web 
www.microelettronica.it
Web 
www.lamezia.net

 wrote in message
7qeg23$kjk$1...@serv1.iunet.it...


Se vuoi servirti anche di un buon e semplice manuale, allora:
Alessandro Bellini - Andrea Guidi
"Perl e Internet"
McGraw-Hill
£ 39.000
Ciao, Giuseppe
--

--
Concordo,
per imparare (sto ancora imparando... ;^) Perl ho cominciato con il suddetto
libro che spiega
in buona maniera le basi del linguaggio (anche in modo piuttosto
divertente).
Poi, giorni fa, in libreria ho notato la versione italiana del Camel Book,
ovvero
Programming Perl (2nd Edition)
by Larry Wall, Tom Christiansen, Randal L. Schwartz, Stephen Potter
della O'Really
che pero' e' una reference, ed anche se *decisamente utile*, forse non si
presta bene come libro introduttivo
(poi costa 75.000 lire...)
Quindi puoi ben cominciare con "Perl e Internet", poi se il linguaggio ti
aggrada,
puoi fare acquisti piu' 'voluminosi' per raffinare/migliorare le tue
conoscenze.
Ciao,
Luca
Newsgroup: it.comp.lang.perl
Titolo: Counter in Perl

C'e' qualcuno che mi sa dire perche' il counter preso dall'archivio di
Matt Wright non mi funziona sotto Win 95.
Grazie
Valerio
vlfe...@tin.it

Matt Wright non mi funziona sotto Win 95.
Dovresti dirci quali problemi ti crea di preciso. Comunque, se hai prelevato
il counter grafico e non quello testuale, ricordati che, oltre al Perl, ti
serve il Fly (per generale le immagini "al volo").
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.italpro.com/mb/

 
Il problema e' che la linea di codice:
 $output=`flyprog -i fly_temp`
mi produce, eseguendolo su riga di comando, il messaggio:
 Comando o nome file non valido
Sembra che le virgolette inverse (` `) non funzionino.
Fly funziona perfettamente.
Sostituendo le virgolette inverse con il comando system sulla riga di
comando funziona ma sul web no.
Grazie.

Newsgroup: it.comp.lang.perl
Titolo: Need help on a small piece of Perl Code

dear ppl,
I'm look for a piece of Perl code that read a sing line (ended by a null or
return character) from a file.  I'm very new in Perl but not in C++...
If you know, please help me,
Thanks a lot in advance
email me at  
gap...@hotmail.com
oh...and Merry Xmas.

Thanks a lot in advance
open (FH, "<file_name");
$line = <FH>;
close (FH);
chomp ($line);
This will open a file, read the first line from it, close the file,
then remove the newline character.
Mike Schechter

 oh...and Merry Xmas.
--
  -- Arnauld Van Muysewinkel
     Atos SA [ 
http://www.atos.be
 ]

Newsgroup: it.comp.lang.perl
Titolo: aiuto password

sono alle prime armi e' vorrei un aiuto per completare un pagina web di
registrazione... sto usando come linguaggio di scripting il perl...
il problema e' che non sono capace di trovare i comandi per poter far
registrare all'interno del database una username e soprattutto una password
ed anche la conferma della password... rispondendogli, all'utente che si
registra, con una pagina di errore nel caso che l'username esiste gia
all'interno del database oppure la password la seconda volta e' stata
digitata male...
grazie in anticipo e scusate se le idee vi sembreranno un pochetto confuse..
giuliano

 ha scritto nel messaggio
news:vDFB6.3825$lu5....@news1.tin.it...

Newsgroup: it.comp.lang.perl
Titolo: HELP Aiuto Sos.. perl e messaggi su sito

Salve non so proprio più dove trovare informazioni.
Vorrei avere a scopi didattici un paio di script in perl fatti 
da quei siti che hanno la possibilità di mandare sms. 
So solo che si attaccano ad un gateway, ma per una ricerca
ho bisogno di studiare questi scripts. Vi prego vi scongiuro
aiutatemi. Essendo server-side non li trovo da nessuna parte
Solo voi potete aiutarmi
aspetto fiducioso
Carlo

 ha scritto nel messaggio
news:39d7ab6...@news.tiscalinet.it...


spendo una lira..............
Ma se non è la mia intenzione come posso dirlo?
Ad ogni modo non immaginavo che qualcuno volesse sapere come fare
per gli scopi che tu dici. 
Non è il mio caso, che tu ci creda o no, e in ogni caso credo che un
hacker non abbia bisogno di chiedere come si fa.. credo.
Sono spinto da inoffensiva curiosità e adesso ho capito perche mi è
cosi difficile trovare informazioni su questi script, forse tutti mi
credono malintenzionato. Come posso fare?
Volete il numero di carta d'identità? Vengo direttamente a casa
vostra? Io sono di Milano se qualcuno si fida solo cosi posso
presentarmi di persona, se questo può bastare.
grazie 
Carlo

Newsgroup: it.comp.lang.perl
Titolo: [OT] Salve, sono nuovo

Salve a tutti.
Innanzitutto scusate il crosspost, pero' sono nuovo di tutti e tre i
newsgroup e cosi' facevo prima. =)
Volevo chiedervi se potete darmi una mano a entrare nell'ambito degli
argomenti trattati in questi tre ng, cominciando magari con l'indicarmi dove
posso trovare le FAQ. La seconda cosa che chiederei e' qualche indirizzo
dove posso trovare qualcosa per cominciare con il Perl e il Javascript (io
parto da zero assoluto, non so niente di niente).
Ok, per adesso penso che basti e avanzi, in fondo ho appena cominciato.
Potete rispondermi in mail o anche qui sul ng, perche' per un bel po'
osservero' come vanno le cose per capire cosa devo fare. =)
Vi ringrazio moltissimo per il tempo che mi avete dedicato e spero che
vorrete darmi una mano anche in futuro, se ne avro' bisogno. =)
Ciao e grazie
Daigo

Ciao,
puoi andare al classico sito Perl: 
www.perl.org
 
www.perl.com
Puure comprare un buon libro: per esempio:
                            Programmare in Perl, Larry Wall, Tom
Christiansen della O'Reilly & Associates Inc.
Distribuito dalla Jackson Libri...
Ciao
        Marco

www.probo.it/javascript/
e buon proseguimento!!
:)
----
Bye
Ro<*¿*>berto

Christiansen della O'Reilly & Associates Inc.
Altrimenti detto "il cammello" :)
Marco Cecconi
Inferentia S.p.A.
perl -e 'use Standard::Disclaimer;'
Newsgroup: it.comp.lang.perl
Titolo: caricare di dati un array

Ciao
ho il seguente script:
#!/usr/bin/perl
$source='source.txt';
@arma;
open(a, "<$source") or die "caricamento dati fallito!!";
while($riga=<a>) {   #cosi' mi legge tutto il contenuto del file.
# COME POSSO FARGLI CAPIRE CHE SE TROVA UN \n DEVE INCREMENTARE DI
# UN ELEMENTO L'ARRAY E  METTERCI LA PAROLA SUCCESSIVA?????
$arma[3] ="$riga";    #vedi print $arma[3]  .solo x verificare cosa mi
metteva in questo elemento
 }
print $arma[3];  #In questo modo ho stampato il quarto elemento
dell'array
                          #per vedere se ci metteva qualcosa in effetti
in questo modo mi ci
                          # mette l'ultima parola del file source .txt
close(a);
Devo fare in modo che le parole contenute nel file source.txt vengano
assegnate all'array @arma.
Una parola per ogni elemento.
NB. IL file di testo e' fatto in questo modo:
casa
albero
tavolo
sedia
sole
ecc..
grazie
Corra

 sole
while (<a>) { chomp; push @arma,$_ }
-- 
Oramai che i baci tuoi piu` non mi sazian
cerchero` un'altra donna dentro ai sogni di Tarzan...

grazie Marco.

 wrote:
Dimenticavo... nell'esempio che ti avevo fatto non contavo i cicli.
#!/usr/bin/perl -w
use strict;
my($i,@arma);
open SRC,'<myfile';
for (;<SRC>;$i++) { chomp; push(@arma,$_) if $_}
close SRC;
cosi` conti anche le parole (che potresti anche ricavare alla fine con
$arma) e scarti le righe vuote.


Newsgroup: it.comp.lang.perl
Titolo: script di esempio (web scraping)

Scusate, non so nulla di perl e devo occuparmene solo perche' ho bisogno di
uno script che interroghi un sito web (netsearch della microsoft) e poi
faccia lo scraping dei risultati restituendo un file ascii.
Qualcuno mi puo' indicare qualche esempio di script perl di interrogazione
web e poi qualche esempio di scraping della pagina web ottenuta ?
grazie
cicero

 wrote in message
KT6C8.25725$5k4.5...@twister2.libero.it...

Dai un'occhiata a WWW::Search::Scraper
---
Mario Rizzuti

Newsgroup: it.comp.lang.perl
Titolo: lancio di un cgi

Una sola domanda: come si fa a lanciare un cgi da un cgi ?
Se qualcuno mi puň aiutare lo ringrazio molto.
Ciao
Glauco

 Se qualcuno mi può aiutare lo ringrazio molto.
Se intendi lanciare un altro script penso che tu possa usare i soliti
comandi come exec, system, ` ... se invece vuoi lanciare proprio la cgi come
tale, un buon modo e':
print "Location: 
http://miodominio/.../mioscript.cgi?pametri\n\n
";
bye
silvio

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

Salve,
questo:
while (<FILE>)
{
    print if (/$string/);
}
e' il modo piu' efficiente di leggere un file e cercare una stringa ?
Grazie
Andrea 

 e' il modo piu' efficiente di leggere un file e cercare una stringa ?
Non mi vengono in mente soluzioni migliori.
L'unica cosa forse per la quale si dovrebbe essere un po' cauti e'
il contenuto della stringa $string.
Forse ti conviene usare \Q per disabilitare eventuali metacaratteri 
contenuti in $string.
  Raffaello
Newsgroup: it.comp.lang.perl
Titolo: stringhe ed array

Ciao a tutti, sono un novellino assoluto che ha letto un paio di manualetti
sul perl.
Come si fa a suddividere il valore di una variabile in più variabili? Mi
spiego meglio: come faccio ad estrarre dalla variabile $stringa="ciao"
quattro variabili $s1="c", $s2="i", $s3="a" ed $s4="o"???
Ancora meglio: come faccio ad assegnare ad una variabile ogni singolo match
in una stringa??
Help! I need somebody!!

$string = "CIAO";
while (split(//, $string) {
    $n++;
    ${'s'.$n} = $_;
}
Ciao,
Guido.
"giunkyfunky" <asdf@ghjk.l> ha scritto nel messaggio
news:OCNQ8.58125$TS.16...@news1.tin.it...


 ha scritto nel messaggio
news:af0c6c$57q$1...@lacerta.tiscalinet.it...


in una stringa??
La domanda non mi e` del tutto chiara. Se intendi dire "Come faccio 
ad assegnare ad *una* variabile il risultato della suddivisione 
della variabile", allora la risposta e` ancora nell'uso di split,
usato questa volta in un contesto di lista:
	my $stringa = 'ciao';
	my @caratteri = split //, $stringa;
E a questo punto
	$caratteri[0] contiene 'c'
	$caratteri[1] contiene 'i'
	$caratteri[2] contiene 'a'
	$caratteri[3] contiene 'o'
ciao
Stefano

Newsgroup: it.comp.lang.perl
Titolo: Scioccante video di Alba e Cristina 50504

 Scioccante video hard di Cristina... e
no.email.address.entered?
Che vuol dire?


E' un utente di 
tin.it
.
Quando ha inviato il post aveva l' ip 213.45.151.175 e l' ho gia' segnalato
all' 
ab...@tin.it
.
Staremo a vedere.
ciao, hal

Newsgroup: it.comp.lang.perl
Titolo: CHMOD 755: CHI MI AIUTA A SCRIVERLO?

Ciao mi chiamo Cristina  e sono alle prime armi con Perl, vorrei una
spiegazione su come rendere eseguibile un file perl per cgi. so che devo
inserire la sintasi chmod 755 , ma dove e come?
Devo rinominare il file pl o devo mettere una stringa  da qualche parte?
per favore qualcuno ha tempo di rispondermi , sarei molto grata.
Grazie

inserire la sintasi chmod 755 , ma dove e come?
dipende dal server web e dall'ambiente operativo.
chiedi su un gruppo piu' dedicato all'argomento
Oha
-- 
"Qualcuno mi spieghi perche' 144 e' l'unico
quadrato perfetto della serie di Fibonacci"

inserire la sintasi chmod 755 , ma dove e come?
se sei su unix, esegui
# chmod 755 nometuoscriptperl
-- 
giu...@pobox.com

inserire la sintasi chmod 755 , ma dove e come?


...



Dal messaggio successivo che hai inviato, penso che utilizzi Win NT. In tal
caso, per le tue prove in locale sul tuo computer, il CHMOD non serve a
niente, va solo impostato su macchine UNIX e LINUX.
Una volta trasferito il tuo sito in un Server dovrai modificare con i vari
programmi di trasferimento (cuteftp, ws_ftp) i permessi (c'è un opzione in
quei programmi).
Ciao!
Andrew
P.S. io uso in locale Win 98 per le varie prove in Perl, è solo dopo il
trasferimento che devo preoccuparmi dei permessi.
Newsgroup: it.comp.lang.perl
Titolo: Strane sottrazioni

Magari č una domanda un po' stupida perņ...
Perchč 150.4 -149.2 fa 1.20000000000002 e non semplicemente
1.2?
Grazie
--
Saluti
Veneziano Davide (
ve...@vene.ws
)
http://www.vene.ws
  Faq e manuali, Servizi Internet
http://mail.vene.ws
 E-mail Gratuite Pop3/Smtp/Web
ICQ# 14047537

 1.2?
Perche' in praticamente tutti i linguaggi di programmazione 
e' impossibile fare calcoli esatti in floating-point.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

 e' impossibile fare calcoli esatti in floating-point.
Bene, allora dovrò cercare un'altra soluzione :-p
Grazie mille.


Bene, allora dovrò cercare un'altra soluzione :-p
Beh, puoi anche arrotondare ad esempio alla seconda decimale:
$ris = sprintf("%.2f", (150.4-149.2));
	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!

 $ris = sprintf("%.2f", (150.4-149.2));
Sì, in effetti non ci sono altre soluzioni. La cosa mi aveva diciamo
così stupito perchè il 99% delle sottrazioni del tipo 150.4-149.2
me le fa giuste, tranne quei pochissimi casi e credevo che poteva
essere per chissà quale motivo :-)
Grazie ancora.


Newsgroup: it.comp.lang.perl
Titolo: funzione glob

Salve a tutti,
per ottenere la lista dei file con un certo suffisso nella mia directory,
posso scrivere:
foreach $file (glob "*.pl") {
                                             print "$file\n";
                                            }
exit;
e questo mi dà la lista di tutti i file  .pl
Se però voglio avere come parametro il suffisso dei file, dovrei scrivere:
foreach $file (glob "$ARV[0]") {
                                             print "$file\n";
                                            }
exit;
Questo codice però non mi dà lo stesso risultato del primo: mi stampa a
video solo il primo file che "meccia" con la stringa data.
Qualcuno di voi può dirmi perchè i due codici si comportano diversamente?
(il secondo script viene lanciato , ovviamente, con l'argomento *.pl)
Grazie,
Marco


"*.pl" viene implicitamente espanso dalla shell, pertanto ARGV[0] contiene
proprio un nome di file e non la stringa che credi di aver passato come
primo argomento. Prova a usare \*.pl o '*.pl' (virgolette semplici
incluse).
Consiglio: usa glob() *soltanto* se stai usando perl v5.6.0 (o una
versione successiva). Se usi una versione precedente, l'uso combinato di
readdir e grep garantisce migliori prestazioni e maggiore portabilità.
Max

Questo codice però non mi dà lo stesso risultato del primo: mi stampa a
Devi lanciare:
./programma '*.pl'
e non:
./programma *.pl
Altrimenti sara` la shell ad espandere l'argomento.
-- 
ciao, | * The Internet is full. Go away.  -- Joel Furr *
Marco | (Ri)scoprire fidonet: 
http://bbs.mi.linux.it
Newsgroup: it.comp.lang.perl
Titolo: Quesiti per apprendere meglio il Perl

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

Ctrl+"V","0","9","6" : in vi
AltGr+' con Linux tastiera italiana configurata "bene".
-- 
Saluti,
Giancarlo

 AltGr+' con Linux tastiera italiana configurata "bene".
Non ci avevo pensato, fondamentalmente perche` uso linux solo via
telnet/ssh (su nessuna macchina linux ho tastiera, mouse o monitor
collegati).


collegati).
Male... linux "va usato" anche sulle workstation :))))
Scherzo scherzo...nessuna holy war sui sistemi operativo please....;)
-- 
Saluti,
Giancarlo

Newsgroup: it.comp.lang.perl
Titolo: Chiamare un CGI in Win32

Salve a tutti,
ho installato l'interprete Perl 5.0 della ActiveWare per testare le
applicazioni che successivamente andranno sul Web. Il mio problema è questo:
una volta creato un file .pl come faccio a "richiamarlo" in una pagina HTML?
Ho provato ad inserirlo in una form (<form action="
mail.pl
" method="GET">)
ma il browser mi apre il file .pl invece di eseguirlo.
Grazie anticipatamente
________________________________________________________
Alessio - 
Ale...@isa.it
 - ICQ: 9549126
http://www.emma97.com/hardwaresite
 - 
Ale...@emma97.com
http://www.checkservice.com
 - 
Webm...@checkservice.com

ma il browser mi apre il file .pl invece di eseguirlo.
Devi configurare il server perche', quando vede un file .pl, esegua il Perl.
	Michele.
-- 
Michele Beltrame
mi...@io.com
http://www.italpro.com/mb/

 una volta creato un file .pl come faccio a "richiamarlo" in una pagina HTML?
[...]
Bisogna modificare una key del registry (cosa che e' nascosta da qualche 
parte nella doc. HTML di IIS).
Naturalmente va fatto cona la meravigliosa applicazione che va sotto il
nome di regedit.
La Key e' 
HKEY_LOCAL_MACHINE\CurentControlSet\SYSTEM\Services\W3SVC\ScriptMap
qui devi aggiunger una chiave di valore pari all'estensione dello script
(e.g.: .pl, o .cgi) il cui valore sia il path completo dell'interprete (
e.g: C:\perl5\bin\perl.exe)
Attenzione: grazie al merviglioso design dei sistemi MS, modificare il
registry e' uno sport pericoloso. Se ti sbagli, la tua macchina potrebbe
non bootare
piu'. Dischetti di rescue sono caldamente consigliati. Io non mi assumo
nessuna responasbilita'
se ti va storto qualcosa seguendo la procedura di cui sopra (ne' se la
assume MicroSoft, BTW).
HTH & cheers,
        Alessandro

ma il browser mi apre il file .pl invece di eseguirlo.
Devi prima di tutto aver installato un server.
Guarda la risposta al messaggio precedente.
Ciao
Andrea
-----------------------------------------
Redattore di Ludus (
http://www.ludus.it
)
Recensioni, Trucchi, Soluzioni,
Patch e News per PC e PSX
-----------------------------------------
Newsgroup: it.comp.lang.perl
Titolo: aiuto Net::FTP

Esiste un modo per spostare un file da una directory ad un'altra su 
server FTP remoto?
Dopo aver scaricato il/i file presenti nella dir specificata, li devo 
spostare nella sottodirectory "history".
Il comando $ftp->rename($file,$newdir) non funziona.
Ho provato a mettere in $newdir tutte le combinazioni possibili (path 
relativa, path assoluta, con e senza il nome del file), ma non ottengo 
risultati.
Se non ci sono alternative, devo reinviare il file in history e poi 
cancellarli (con occupazione inutile di banda).
Grazie

 ha scritto:

Purtroppo non ho mai usato il rename di Net::FTP perň cosě su due piedi mi č 
venuta in mente una domanda banale (ma non si sa mai): hai controllato che 
non ci siano problemi di diritti nela cartella destinazione (o lungo il 
percorso)?

 
Mi sono perso in un bicchiere d'acqua: era un problema di permessi.
Grazie
Newsgroup: it.comp.lang.perl
Titolo: TK - finestra che si aggiorna con un ciclo

ciao a tutti,
mi sto documentando su Tk e sto cercando di capire se c'è un modo di fare
quello che mi serve: ho una procedura che mi restituisce un valore
numerico che viene seguita ogni X secondi. Vorrei creare una finestra che
si aggiorna automaticamente ogni volta che la procedura viene eseguita, e
che rimanga sempre in primo piano.
Ho iniziato a leggere la documentazione di TK ma non trovo nello specifico
come fare quello che mi serve... al momento sono fermo a questo:
$testo = "questo e\' il testo PRIMA";
$top = new MainWindow; 
$top->title ("PROVA");
$l = $top->Label(-textvariable => $testo,
                 anchor => 'n',                 
                 relief => 'groove',            
                 width  =>  50, height => 20);
$l->pack();      
sleep(3);
$testo = "questo e\' il testo DOPO";
MainLoop();
pensavo di richiamare la procedura che aggiorna la variabile $testo ad
ogni iterazione, ma non funziona...
Qualcuno ha una guida o qualche script di esempio a cui potrei ispirarmi?
Ringrazio anticipatamente
Amedeo
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 come fare quello che mi serve... al momento sono fermo a questo:
[...]
Te lo modifico come serve
use Tk;
use strict;
my $count =0;
my $testo = "questo e\' il testo PRIMA";
my $top = new MainWindow;
$top->title ("PROVA");
my $l = $top->Label( -textvariable => \$count
                    , -anchor => 'n'
                    , -relief => 'groove'
                    , -width  => 50
                    , -height => 20
                    );
$l->repeat(3000, \&change_text);
$l->pack();
MainLoop();
sub change_text {
   # qui ci metti quello che vuoi
   # ho usato un counter tanto
   # per notare l'aggiornamento
   $count++;
}
Tutto viene visualizzato al momento in cui l'interprete trova MainLoop() 
che non è un sinonimo per "goto", ovvero non fa tornare alla prima linea 
il programma e gli fa rifare tutto da capo: si occupa di dare il via e 
gestire il ciclo di eventi creati dallo script fino a quel momento (per 
dirla in modo forse impreciso, spero però chiaro). Quello che devi fare, 
penso, sia aggiungere un evento da ripetersi ad intervalli regolari, 
quindi va usato il metodo repeat(millisecondi, callback).
Riguardo a mantenere la finestra in primo piano invece non saprei...
 > Qualcuno ha una guida o qualche script di esempio a cui potrei
 > ispirarmi?
perldoc Tk::after
HTH, cya!
Angelo
--
http://www.endum.net

mitico, funziona!
grazie mille.

Newsgroup: it.comp.lang.perl
Titolo: printf unicode

Ho un file utf16 nel quale vorrei inserire delle scritte, ma il printf usa
sempre il formato utf8, sapete se c'é un modo per forzare il printf in
formato utf16 (=unicode) ?
Ho provato con "no utf8" ma niente da fare.
Grazie!
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com
 - The #1 Newsgroup Service in the World!
-----==  Over 80,000 Newsgroups - 16 Different Servers! =-----

formato utf16 (=unicode) ?
Spero di sbagliarmi, ma temo che UTF-16 non sia supportato.
Ciao.

Spero di sbagliarmi
Be', almeno non ho del tutto ragione, per fortuna:
 use Unicode::String qw(utf8 latin1 utf16);
 $u = utf8("The Unicode Standard is a fixed-width, uniform ");
 $u .= utf8("encoding scheme for written characters and text");
 # convert to various external formats
 print $u->ucs4;      # 4 byte characters
 print $u->utf16;     # 2 byte characters + surrogates
 print $u->utf8;      # 1-4 byte characters
 print $u->utf7;      # 7-bit clean format
 print $u->latin1;    # lossy
 print $u->hex;       # a hexadecimal string
 # all these can be used to set string value or as constructor
 $u->latin1("Å være eller å ikke være");
 $u = utf16("\0Å\0 \0v\0æ\0r\0e");
 ....
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Offerta Impiego





 




Public Web S.r.l. - Internet Media 
Agency
Ricerca figure professionali da inserire nel proprio organico.
Si 
richiedono Web Designers con conoscenza di PhotoShop, Image Styler, Flash, 
Dreamweaver, Front Page 2000.
Si richiedono anche conoscenze dei linguaggi di 
programmazione più diffusi per il web quali ASP o PHP.
Il candidato dovrà 
essere milite esente, no studenti, no perditempo.
Il luogo di lavoro sarà 
Roma.


 


Per informazioni contattare: 
j...@publicweb.it





Newsgroup: it.comp.lang.perl
Titolo: Recupero record in un database...

 Grazie Antonello
Togli il last che provoca l'uscita dal ciclo while.
HTH



 if ($readline =~ m/Hs.\b$input\b/) {print $readline; last}
La riga che hai letto sta in $_, non in $readline. Mi meraviglio che tu 
ne possa trovare uno ogni tanto.
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: Form mail per server NT

Ciao
sto cercando un file .asp per l'invio di un form nella casella di E-mail e
un file ( se esiste) per un forum con invio automatico dei messaggi nella
pagina html. Tutti i files devono  essere per un server NT.......
Chi puň gentilmente rispondermi?
Grazie
Critina



Non posso aiutarti, ti conviene chiedere in un newsgroup sull'asp piů
che su questo
Ciao
Andrea Busia
No Spam, Grazie.

Newsgroup: it.comp.lang.perl
Titolo: aiuto cgi e configurazione server

Salve! 
Mi trovo nella necessita' di dover provare alcuni cgi (nella
fattispecie un carrello della spesa con invio di form) ma non ho
l'accesso ad un server, quindi vorrei poter configurare il mio pc come
server di rete per sperimentare varie soluzioni da casa.
E' possibile anche con win98 od occorre per forza NT o unix? E ci sono
risorse on-line che insegnino a fare cio'?
Grazie,
Fabrizio

 risorse on-line che insegnino a fare cio'?
http://www.activestate.com/ActivePerl/docs/Perl-Win32/perlwin32faq.html

E' possibile anche con win98 od occorre per forza NT o unix? E ci sono
La domanda andrebbe posta in it.comp.www.cgi e non qui. Comunque
sia puoi fare tutto anche con Win98, basta che ti procuri il Perl:
http://www.activestate.com
ed un server web. In Windows98 e` gia` incluso il Personal Web Server,
dovrebbe bastarti.
	Michele.
-- 
Michele Beltrame
m...@io.com
http://www.io.com/~mick/
Newsgroup: it.comp.lang.perl
Titolo: Giorno/Mese/Anno - Giorno

ciao a tutti...
Ho un problemino: dovrei, senza utilizzare moduli, riuscire a fare
un'operazione del genere:
Giorno/Mese/Anno - Giorno = ?
Qualcuno ha qualche idea?
Grazie come sempre,
Duccio.


"Meanwhile, the poor Babel fish, by effectly removing all barries 
to communication between races and  cultures, has caused more and 
bloodier wars then anything else in the history of creation."
(Douglas Adams)

 Qualcuno ha qualche idea?
Date::Manip se devi fare le cose in grande.
Per le cose in piccolo, ci deve essere qualche altro modulo su CPAN.
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

Grazie Max M.,
come sempre funziona tutto perfettamente...
Grazie ancora...
Duccio.

 Giorno/Mese/Anno - Giorno = ?
Oltre a date::Manip che ti hanno gia' suggerito... c'e' anche Date::calc che
e' molto completo... (a detta dell'autore e' anche molto lento... bah).
La cosa carina e' che ti permette operazioni sulla data utilizzando anche
'stringhe' tipo "+ 10 business day"...
    Hope this helps
    Best regards,
        Kazuma
--
Alex Garbagnati, 
al...@removethis.messagemedia.com
Sr. Application Engineer, MessageMedia
Mountain View, CA  94043

Newsgroup: it.comp.lang.perl
Titolo: Perche' ?

Perche non riesco a copiare o spostare file con i comandi "link" e "rename"
da una directory montata con samba ad una locale?
Ringrazio chiunque possa essermi di aiuto
Roberto Montanari

 da una directory montata con samba ad una locale?
Perche' normalmente link e rename funzionano solo se non cambi
filesystem.
Se vuoi spostare files da un FS ad un altro li devi copiare (File::Copy,
credo).
Cheers,	
	Alessandro
Newsgroup: it.comp.lang.perl
Titolo: socket a basso livello

sto cercando di fare una richiesta HTTP a livello piu` basso possibile,
usando quindi semplicemente Socket (non IO::Socket ne` LWP::UserAgent, per
intenderci). Il programmino di prova, scopiazzato dal Perl Cookbook, e`
#!/bin/perl
use Socket;
my $remote_host="
beatles.cselt.it
";
my $remote_port="80";
socket(TO_SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
$internet_addr = inet_aton($remote_host)
   or die "Couldn't convert $remote_host into IP address: $!\n";
$paddr = sockaddr_in($remote_port, $internet_addr);
connect (TO_SERVER, $paddr)
   or die "Couldn't connect to $remote_host:$remote_port: $!\n";
print TO_SERVER "HEAD / HTTP/1.0\r\n\r\n";
$answer = <TO_SERVER>;
close (TO_SERVER);
print "La risposta č:\n".$answer;
Peccato che il server mi vada in timeout. Dove sbaglio?
cioa, .mau.

 intenderci). Il programmino di prova, scopiazzato dal Perl Cookbook, e`
A parte il fatto che non credo che IO::Socket sia da considerasi meno a
basso livello rispetto alle API classiche... č solo un problema di
buffering. Se studi il processo con strace (o truss), ti accorgi che resta
in attesa sulla read (non sulla connect) prima ancora di eseguire la
write. Aggiungi:
 my $fh = select(TO_SERVER); $|=1; select($fh); 
Max


Max M. scripsit:
: A parte il fatto che non credo che IO::Socket sia da considerasi meno a
: basso livello rispetto alle API classiche... 
ma devo comunque essermi tirato giu` un modulo in piu` (che e` quello che
volevo evitare, visto che dovrei potere portare molto in giro lo stupido
esempio)
: č solo un problema di
: buffering. Se studi il processo con strace (o truss), ti accorgi che resta
: in attesa sulla read (non sulla connect) prima ancora di eseguire la
: write. 
si`, avevo visto che riuscivo a spedire ma non a ricevere.
Aggiungi:
: 
:  my $fh = select(TO_SERVER); $|=1; select($fh); 
e naturalmente 
  undef $/;
altrimenti mi ritorna solo la prima riga :-)
grazie e ciao, .mau.

esempio)
questo ragionamento non è che sia sbagliato, è esattamente il contrario di come
deve pensare un programmatore perl.
IO::Socket è standard ovunque, e oltre ad essere codice testato ed efficiente, ha
i giusti accorgimenti per lavorare su qualsiasi piattaforma.
il tuo codice "a basso livello" è sicuramente meno portabile, meno mantenibile e
più esposto a bug che uno a caso dei moduli perl per l' http o i socket.
l' unico motivo per cui dovresti ricorrere alle api è perchè il modulo standard ti limita
o perchè hai bisogno di un' ottimizzazione particolare del codice.
cosa che probabilmente avviene nell' 1% dei casi.
io userei LWP::UserAgent
-- 
Posted from qmailr@[195.223.140.135] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

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

qualcuno sa come ridimensionare una jpeg in perl?
e come scoprire le dimensioni di questa jpeg?
grazie e bau


mi rispondo da solo come al mio solito, almeno ad una domanda :)))
#!/usr/bin/perl
use Image::Size;
($x, $y) = imgsize("prova.jpg");
print "x = $x\ny = $y\n";
ora scopro come ridimensionarla :))))
bau
Newsgroup: it.comp.lang.perl
Titolo: ***EMERGENZA***

QUALCUNO DI VOI CONOSCE O SA SE ESISTE UN MODO PER MANDARE UNA MAIL CON
UN FILE ATTACCATO USANDO SENDMAIL??????????

 
 
http://search.cpan.org/search?dist=MIME-Lite

Ciao!Mi dici cioè che ci vuole perforza un modulo, ,non esiste una
istruzione unix che fa un attachment????????


 >  
http://search.cpan.org/search?dist=MIME-Lite
-- 
Wiz of Id a.k.a. William Ghelfi
E-Mail: < mailto:
w...@galactica.it
 >
Web Site: < 
http://web.tiscalinet.it/penguin_rules/
 >

Newsgroup: it.comp.lang.perl
Titolo: Spezzare una stringa.

Salve.
Come si fa a verificare la lunghezza di una stringa ed eventualtente
spezzarla in piu' sottostringhe?
Mi spiego:
Ho una una form in una pagina html che passa ad un cgi in perl
stringhe di questo tipo "01B", "02", "03", 04A", ecc.
Se la stringa e' piu' lunga di 2 caratteri la devo spezzare in due
sottostringhe, quindi p. es. "01B" dovrebbe diventare "01" "B".
Qualche suggerimento?
Grazie.

sottostringhe, quindi p. es. "01B" dovrebbe diventare "01" "B".
$stringa=~/^.{2}/;
$& e' la prima parta,
$' e' la seconda.
se invece vuoi dividere una stringa lunga in un
vettore di stringhe piu' corte, potresti:
while($stringa=~s/^(.{2})/)
  {
  push @out, $1;
  }
[NB: occhio al \n]
Oha
 
-- 
"Qualcuno mi spieghi perche' 144 e' l'unico
quadrato perfetto della serie di Fibonacci"

  }
Qui non ho capito la "s" cosa significa.
Scusa, ho appena comprato un manuale ma non mi lasciano il
tempo di leggerlo.

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

il . non matcha \n
si, ma te lo trovi in $out[$#out];


Qui non ho capito la "s" cosa significa.
sostituisci. effettivamente ho commesso un errore
	s/^(.{2})//
questo sostituisce i primi due caratteri con nulla, e
mette li mette in $1.
il ciclo finisce quando la stringa ha meno di 2
caratteri.


 Qualche suggerimento?
Lascia stare l'uso inutile delle regular expression, che servono in altri
contesti, e usa substr(), che serve appunto ad estrarre stringhe di
lunghezza costante.
Maggiori dettagli in perlfunc, ma direi che se $stringa e' la variabile su
cui devi lavorare,
 if (length $stringa > 2)
  { 
    $first = substr($stringa,0,2,"");
    $second = $stringa;
  }
Naturalmente, va bene anche
  $first = substr($stringa,0,2);
  $second = substr($stringa,2);
 
ma nel primo caso, in effetti, l'assegnazione a $second sarebbe inutile se
tu sei conscio che in $stringa rimane esattamente tutto quello che c'e' dopo
le prime due lettere.
Probabilmente anche 
  $resto = substr($stringa,2,length($stringa)-1,"");
 
funziona nel lasciarti in $stringa il numero e in $resto quel che avanza.
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: SEMAFORO



I need help. I need only a simple code that shows the use of a semaphore.
I'm new in perl pogramming and I like to use in

my programs more than one process. But I don't know how to let run
one process and suspend all the others until the first

process tells that it's done. For example I'd need 2 subroutines like
these:


for ($i=1; $i<=9; $i++) {


if ($pid=fork) {}


else {


      &SEMAPHORE_RED   
#Here the other processes must stop


      print "I'm the son number $i\n";


      ...


      ...


      &SEMAPHORE_GREEN  #Here
the other processes can continue


      ...


      ...


}


}


Maybe someone can help me. Thanks a lot.

 


...





Includi con require 
IPC.PH
 e 
SEM.PH
 
    così:


require "sys/
ipc.ph
";


require "sys/
sem.ph
";


$semkey=1;


$semaforo=semget($semkey,1,0666|&IPC_CREAT); 
    #Crea il semaforo;


$P=pack("sss",0,-1,0); #primitiva 
    wait


$V=pack("sss",0,1,0); #primitiva 
    signal


semctl($semaforo,0,&SETVAL,1); #inizializza a 
    1 il semaforo;


semop($semaforo,$P); #semaforo rosso


semop($semaforo,$V); #semaforo verde;


alla fine del programma padre (se usi la fork) 
    elimina il semaforo così:


semctl($semaforo,0,&IPC_RMID,0);


ulteriori spiegazioni sui semafori puoi averla 
    consultando tramite man la sintassi dei comandi per il C.


Saluti,


Alex.
Newsgroup: it.comp.lang.perl
Titolo: NOVIZIO: libreria non funziona

qundo tento di compilare questo:
#! /usr/bin/perl -w
use getId;
use strict;
my $data = "2001/07/11:2001/08/10";
my @ID = @{getId($data)};
print $#ID + 1 . "\n";
foreach my $ID (@ID) {
    print " $ID ";
}
print $#ID + 1 . "\n";
mi ritorna questo:
getId.pm did not return a true value at ./provaGetId.pl line 3.
BEGIN failed--compilation aborted at ./provaGetId.pl line 3.
la libreria getId.pm č nella stessa cartella e provando a copiare e incollare
le funzioni nello script tutto funziona...
il file getId.pm inizia cosě:
package getId;
# RESTITUISCO UNA LISTA DEGLI ID
# INTERROGANDO PUBMED CON [eDat]
use Exporter();
@ISA = qw(Exporter);
@EXPORT = qw(getId);
require LWP::UserAgent;
use HTML::Entities ();
use strict;
sub getId {.......
Se qualcuno sa darmi una mano lo riempirei di ringraziamenti...
se č una donna di baci...
Grazie

 il file getId.pm inizia cosě:
Non importa come inzia, e' piu' importante come finisce :-)
Metti in fondo, come ultima riga, questo:
1;
-- 
Saluti,
Giancarlo

Grazie, ma ci avevo giŕ provato e non era successo nulla

 Grazie, ma ci avevo già provato e non era successo nulla
Cosa vuol dire "non era successo nulla"?
sicuramente non ti dava piu' l'errore "getId.pm did not return a true 
value at ./provaGetId.pl line 3." se te ne da un'altro ci sara' qualche 
altro problema.
-- 
Saluti,
Giancarlo

...

C'era un altro errore... grazie mille ora tutto funziona

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

Come si fa in perl a far comparire il box di Explorer per 
l'autenticazione? e quali sono le variabili d'ambiente?
Grazie!

 l'autenticazione? 
Dipende dalle impostazioni del server e non c'entra Perl. Ad esempio in 
Apache c'è l'impostazione del .htaccess
http://httpd.apache.org/docs/howto/htaccess.html
(guarda Authentication example)
 > e quali sono le variabili d'ambiente?
http://hoohoo.ncsa.uiuc.edu/cgi/env.html
AUTH_TYPE
REMOTE_USER

 REMOTE USER
io intendevo questo...ma tanto non funziona :-(
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use CGI::Carp "fatalsToBrowser";
print "WWW-Authenticate: Basic realm=\"ciao\"\n";
print "HTTP/1.0 401 Unauthorized\n";
print "Content-type: text/html\n\n";
print "ok!!\n";
__END__;