mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.perl
Titolo: socket & sys::hostname

Che differenza c'è tra chiamare un socket di tipo server senza
la "LocalHost" e con "LocalHost" con valore preso da "Sys::Hostname" ?
[code]
use IO::Socket::INET;
$socket = IO::Socket::INET->new(LocalPort => '81',
                                 Proto => 'tcp',
                                  Type      => SOCK_STREAM,
                                   Reuse     => 1,
                                    Listen    => 1) || die "$!\n";
[/code]
...
[code]
use IO::Socket::INET;
use Sys::Hostname;
my $host = hostname;
$socket = IO::Socket::INET->new(LocalPort => '81',
                                 LocalHost => $host,
                                  Proto => 'tcp',
                                   Type      => SOCK_STREAM,
                                    Reuse     => 1,
                                     Listen    => 1) || die "$!\n";
[/code]
Poi vorrei capire come trasformare in IP il valore che mi ritorna 
"Sys::Hostname"
Grazie

 Grazie
Prego
Ciao
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.lang.perl
Titolo: Per Shishii

Ti ringrazio del consiglio; hai un sito davvero fornito ! Poi quando ho
visto che ti interessa il Karate come interessa a me sono stato davvero
contento.
 Purtroppo però ci sono le dolenti note....il mio server non ammette a
quanto pare che ci si connetta con telnet.. e per la sicurezza delle
directory mi sembra una vera rogna...che ne pensi?
oss
Francesco



se il server è gratis mi pare il minimo...se lo hai pagato
puoi richiedere telnet come servizio!



Ciao,
scusate ragazzi, se volete scrivetemi in privato perchè qui siamo 
pesantemente OT, non vorrei suscitare i giusti rimproveri di qualcuno.
Ti ringrazio dei complimenti. Per quanto riguarda telnet in realtà anche 
molti fornitori a pagamento rifiutano il servizio. Io ritengo che non si 
debba prendere uno spazio hosting a pagamento senza avere o telnet o meglio 
ancora SSH.
Ciao.
shi...@ciaoweb.it
-- 
-- Marco Allegretti --
http://www.shishii.com
Newsgroup: it.comp.lang.perl
Titolo: Scalars leaked ?

Sto sviluppando un'applicazione con perl 5.8.7 ed ithreads.
Improvvisamente mi sono imbattuto in questi errori (scalars leaked).
Consultando google non ho capito esattamente di che problema si tratta,
ma pare comunque di difficile soluzione anche perchè il debug è scarso.
Qualcuno sa darmi maggiori info o consigli ?
Grazie

 Qualcuno sa darmi maggiori info o consigli ?
So solo che con il recente 5.8.8 hanno fissato alcuni leak ... prova a
rifare le prove con la versione piů recente di perl.

 rifare le prove con la versione piů recente di perl.
Grazie del consiglio, ci guarderň sicuramente.
Ma sapresti indicarmi un riferimento con la descrizione del problema
perchč proprio non so dove sbattere la testa.
Altro problema che mi si presenta č la terminazione del programma con un
segmentation fault, e anche in questo caso il debug č inesistente quindi
non so come muovermi.
Grazie ancora

 perchè proprio non so dove sbattere la testa.
Non ho idea, sinceramente. Prova intanto ad installare il 5.8.8 e vedere
se risolve. Altrimenti posta il codice qua sul newsgroup e vediamo :)

Newsgroup: it.comp.lang.perl
Titolo: File binari nel browser

Salve a tutti,
volevo mostrare un file pdf su web usando uno script perl, allora ho
provato cosě:
  open(FILE,"<nomefile");
  print "Content-type: application/pdf\n\n";
  while(read FILE, $buffer, 1024)
  { print $buffer;
  }
In effetti ha funzionato, perň vorrei sapere due cose:
1) č un metodo efficente? C'č un modo migliore di fare la stessa cosa?
2) purtroppo funziona solo con Internet Explorer: Netscape ignora il
MIME e mi fa vedere il contenuto binario come se fosse un semplice testo
(non č un problema di plugin; se gli chiedo di aprire direttamente un
file pdf, viene lanciato giustamente Acrobat reader).
Qualcuno ha un'idea?
Grazie
P.S. se faccio la stessa prova usando una gif invece di un pdf, funziona
anche con Netscape.

 file pdf, viene lanciato giustamente Acrobat reader).
Forse Netscape (o almeno, la versione che usi) si regola in base 
all'estensione del file, che sara` probabilmente .pl o .cgi nel tuo caso. 
Puoi "forzarla a .pdf" aggiungendo un header content-disposition. Ad 
esempio:
Content-disposition: attachment; filename=nomefile.pdf;
     A presto, Michele.

Come al solito stavo usando il microscopio per osservare un elefante!
L'errore era questo:
   print "Content-type: $mime{'tipo'}\n\n";
 
dove, per un errore nello script, $mime{'tipo'} era sempre una stringa
nulla.
Evidentemente Internet Explorer se ne frega e funziona lo stesso, mentre
Netscape è un po' più pignolo e vuole le cose fatte per bene.
Grazie a tutti e scusate
Gabriele
Newsgroup: it.comp.lang.perl
Titolo: problema con chomp

Ciao a tutti...
ho un problema con la chomp che dovrebbe eliminarmi l'ultimo carattere della
stringa...
carattere che corrisponde al new line....
se la stinga la valorizzo da standard input però non mi funziona...
toglie il new line ma incasina la stringa...
Sapete voi da cosa può dipendere...?
Ciao...
    Ivan

 Sapete voi da cosa può dipendere...?
Tiro ad indovinare... sei su un sistema micro$oft, vero?
-- 
Saluti,
Giancarlo

 > Sapete voi da cosa puň dipendere...?


 si..perchè?
Perche sono un medium e leggo nella boccia di vetro.
Se invece nella descrizione dei problemi ci fosse qualche dettaglio in 
piu' (il pezzo di codice "incriminato", una spiegazione di cosa vuol 
dire "incasina la stringa", ....) forse invece di indovinare si 
riuscirebbe a risponderti con delle basi fondate.
-- 
Saluti,
Giancarlo

toglie il new line ma incasina la stringa...
Sivabbe'... "incasina"...
Si richiede: 1) un brano di codice minimale che riproduca il problema; 2)
la specifica delle condizioni in cui viene eseguito il codice; 3) un
esemplare della stringa prima dell'"incasinamento"; 4) un esemplare della
stringa dopo l'"incasinamento".
Ciao.

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

Salve a tutti...
sto analizzando un software che ha parti scritte in perl....
sapete dirmi cosa fa in queste righe di codice???
        $decoy = $silentfile;
        $decoy =~ s/\.out$//i;
        $decoy =~ s/^.+\/([^\/]+)/$1/;
        $decoy = sprintf($decoy."__decoy_%04d.pdb", $model);
Grazie a tutti

        $decoy = sprintf($decoy."__decoy_%04d.pdb", $model);
aggiunge un suffisso, che contiene una parte fissa e un contatore ($model);
In sostanza, se 
     $silentfile = "//una_dir/una_subdir/un_altra/un_file.out";
     $model = 5;
alla fine delle trasformazioni $decoy č: un_file__decoy_0005.pdb.
Ciao.

grazie mille

aggiunge un suffisso, che contiene una parte fissa e un contatore ($model);
E anche questo, io l'avrei piuttosto scritto cosģ:
     $decoy = $decoy . sprintf("__decoy_%04d.pdb", $model);
Ciao.

Newsgroup: it.comp.lang.perl
Titolo: far scorrere gli elementi di uno scalare

Vorrei far scorrere gli elementi di uno scalare uno alla volta
Es:
$prova= 'Ciao';
...
L'output dovrebbe essere:
C
i
a
o

 Vorrei far scorrere gli elementi di uno scalare uno alla volta
wolverine:/tmp# perl -we '$_="Ciao";@l=split //;foreach (@l) {print $_."\n";}'
C
i
a
o
wolverine:/tmp#
Bye,
 Emmanuele.
-- 
I ... Owe ... You ... Pain! -- Willow, "Tough Love"
Italian Buffy Resource Site (Beta) - 
http://www.ibrs.f2s.com
GnuPG Key ID: 0x788E3A3A
GnuPG Key FP: 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4
Newsgroup: it.comp.lang.perl
Titolo: Html e perl

Come si fa caricare una pagina html da uno script perl?
Grazie a tutti.
Ciao
Corra_

 Come si fa caricare una pagina html da uno script perl?
Perlfaq9 "How do I fetch an HTML file?"
ovvero 
perldoc -q HTML
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@netscape.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)




> Ciao
se creo uno script come mi hai indicato e lo eseguo direttamente (es
http://indirizzo
 sito/cgi-bin/script. cgi ) il redirect funziona perfettamente.
Mentre se metto queste istruzioni come risultato di una if mi appare quanto
segue, anziche aprire la pagina oppure l'indirizzo su cui voglio
effettuare il redirect.
why this?
Grazie
Corra_
Status: 302 Moved Location: ../noentry.html


Newsgroup: it.comp.lang.perl
Titolo: Ho veramente bisogno di aiuto per iniziare! Siete sempre tutti cosi' gentili?

Allora:
Mi sono scaricato Avtive Perl per (Ho windows98)
L'ho installato
ho creato lo script perl!
ho creato la pagina web con un link che punta allo script
NON FUNZIONA!!!! Dove sbaglio? Non riesco a capire! Se solo qualcuno mi
dicesse come incominciare (cioe' come poter eseguire uno script scemo da una
pagina web) sarei sicuramente in grado di continuare da solo senza
continuamente chiedere aiuto al Newsgroup
(Visto che ai messaggi precedenti mi si risponde cerca nei messaggi
precedenti! Grazie ma non ho bisogno di queste perdite di tempo visto che ho
anche scercato e non ho trovato niente che rispondesse alle mie domande!
[per Maurizio] )
Il problema e' che uso Personal Web Server?
Il problema e' che lo script deve essere compilato? Se si Come?
Il problema e' che ho sbagliato ad installare Perl? (
http://localhost
corrisponde a c:\inetpub\wwwroot)
Cos'altro?
Vorrei solamente un aiuto serio su come iniziare! Accetto anche insulti
basta che contengano anche suggerimenti utili!
Grazie mille!
La prossima volta vi mando anche una foto del mio cervello prima e dopo aver
iniziato a cercare di capire come funziona perl e cgi!
Ancora grazie!!!

 iniziato a cercare di capire come funziona perl e cgi!
No. La prossima volta, se e' il caso, ci mandi il programma Perl che hai
scritto, cosi' possiamo vedere dove sono gli eventuali problemi, senza dover
rispondere a generiche affermazioni "Non funziona".
In bocca al lupo.
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: Suggerimento per REGEX

Ciao a tutti, scrivo per chiedere un suggerimento su una espressione 
regolare. Da una stringa di caratteri ASCII vorrei estrarre quelli 
contenuti tra due stringhe note a priori, per esempio:
sh4hdtarPIPPOhdf6chwldofiuPLUTOsjdkkeufhd
ottenendo hdf6chwldofiu, contenuto appunto tra PIPPO e PLUTO.
Qualcuno puo' aiutarmi?
Grazie e ciao a tutti.

Vitangelo wrote:

use strict;
use warnings;
my $s1 = 'PIPPO';
my $s2 = 'PLUTO';
my $search_space = 'sh4hdtarPIPPOhdf6chwldofiuPLUTOsjdkkeufhd';
$search_space =~ /$s1(.*)$s2/;
print $1;
# $1 contiene 'hdf6chwldofiu'
--
Ciao,
Emanuele

 
Ah, ecco! Grazie, ciao.

Vitangelo wrote:

sh4hdtarPIPPOhdf6chwldofiuPLUTOsjdkkeufhd
=~ /PIPPO(.*)PLUTO/;
Ecco, cosě forse č piů chiaro (ma meno parametrico ;-)
Ciao,
Emanuele.

Newsgroup: it.comp.lang.perl
Titolo: Video [Forse OT]

Come posso inserie uno stream video all'interno di una pagina html senza che
si apra nel client di chi mi visita il lettore predefinito, ma che questo
agisca all'interno della pagina. Insomma un pò come fai 
www.rai.it
 con real?
Grazie
Alessandro

Newsgroup: it.comp.lang.perl
Titolo: codice delle funzioni integrate

Ciao!
Prima cosa vi rigrazio per le risposte al post precedente: grazie:)
Poi, volevo sapere se i codici delle funzioni integrate in perl (che so, 
  pop(), scalar(), ecc) sono reperibili da qualche parte (me le volevo 
leggere un po' a scopo didattico).
Ciao,
ilp

 leggere un po' a scopo didattico).
qui a quanto pare c'è il codice sorgente...
http://www.perl.com/download.csp
de più nin zò...
ar

   pop(), scalar(), ecc) sono reperibili da qualche parte 
Ovviamente sono "reperibili", essendo disponibile tutto il codice che
compone l'interprete Perl. (Scaricati i sorgenti dal tuo mirror CPAN
preferito, e auguri. Sono una decina di MB.)
Però, non capisco, francamente, che utilità didattica possa avere studiarsi
frammenti del codice dell'interprete Perl. Di certo non facilita
l'apprendimento del Perl.
Secondo me, solo un programmatore C molto esperto e appassionato al tema
dello sviluppo di parser/interpreti/compilatori/runtime di linguaggi di
alto livello, potrebbe essere tanto interessato ai dettagli implementativi
da volersi studiare il sorgente.
Max

  [...]
Bhè, veramente ero interessato solo alle funzioni, non all'interprete... 
o sono la stessa cosa?
Ciao,
ilp


wrote:

Le funzioni "integrate" sono "integrate" proprio perché "integrate"
direttamente nell'interprete.

 direttamente nell'interprete.
ma è sicuro che sono integrate?... :P
ar

 ma è sicuro che sono integrate?... :P
Quelle che hai menzionato si`. 
S.
-- 
Stefano Rodighiero      |  
http://larsen.perlmonk.org
mailto:
lar...@perl.it
   |  Italian Perl Mongers: 
http://www.perl.it
Newsgroup: it.comp.lang.perl
Titolo: Il mio primo script (che non funziona) :o(

Premetto che questo è il mio primo tentativo con il Perl... (Non
umiliatemi!! ;o)) )
Lo scopo sarebbe inserire questo script in una pagina con SSI, affinché
inserisca il codice HTML preso da uno dei files .txt (italia.txt,
francia.txt, ecc...), escluso quello relativo alla pagina su cui mi
trovo(che in questo caso è "germania").
A proposito, il codice nei files di testo, deve avere le virgolette, gli
apici, ecc, preceduti da "\"??
Per ora $paese è definito nello script, ma devo anche trovare il modo di
passarlo attraverso il link, e cioé <!--#exec
cgi="../cgi-bin/testorandom.cgi?germania"-->, ma non so come fare, dato che
se provo ad usarlo in abbinamento con "$paese=$ARGV[0];", mi dà errore, e
nemmeno con <STDIN> funziona.
:o(( Come si fa???
In più già in questo script devono esserci dei palesi erroracci, che però a
me sfuggono...
#!/usr/local/bin/perl
#testo random nella pagina
$paese="germania";
@articoli = ("italia", "francia", "spagna", "germania");
$random = $paese;
$numart = $#articoli;
while $random eq $paese {
 $lordo = rand($numart);
 $numerorandom = int($lordo);
 $random = $articoli[$numerorandom];
}
print "Content-Type: text/html\n\n";
open(TESTO, "</percorso/del/file/$random.txt") || die "ERRORE!\n\n";
while ($riga = <TESTO>) {
print "$riga";
}
close(TESTO);
Un GRAZIE immenso a chiunque mi aiuterà!
Andrea.

 while $random eq $paese {
Errore di sintassi qui. Prova sempre con "perl -c" il codice prima di
postarlo. (Non ha senso postare codice che non compila, a meno che uno non
voglia che gli insegnino la sintassi.)
Max

 ha scritto nel messaggio
news:Pine.LNX.4.10.100101...@c64.comm2000.it...

OK, scusami, è che lo provo direttamente sul server remoto ogni volta, dato
che non ho il perl sul mio PC...
Andrea.


Comunque l'errore è dovuto a qualcos'altro, perché anche correggendo la
sintassi persiste... :o(
Tra poco lascio perdere...
Andrea.

 
E che errore sarebbe, esattamente? 
Se stai per dire "500 Internal Server Error", non farlo. Guarda invece nei
log del webserver. Se non puoi guardare i log, una tecnica per dirottare
al browser gli eventuali messaggi che escono sullo stderr è aggiungere
 BEGIN {
        open STDERR, ">&1";
        print STDERR "content-type: text/html\n\n";
 } 
in testa allo script.
Max

Se non hai perl vai a 
www.activestate.com
 e scaricati la versione per
windows... cosě puoi fare le prove con calma...

 nemmeno con <STDIN> funziona.
se chiami la pagina con ../pagina.html?germania :
riga di include:
<!--#include virtual="/cgi-bin/testorandom.cgi?$QUERY_STRING" -->
nel programma:
$paese = $ENV{'QUERY_STRING'};
poi correggi gli errorini vari.
bye
silvio

Newsgroup: it.comp.lang.perl
Titolo: Gestionale in perl GPL cercasi

tempo fa avevo trovato un gestionale realizzato in perl ma non mi ricordo il
sito ne il nome del programma:
sapete che esista qualcosa del genere in giro?

 ha scritto nel messaggio
news:ap9u1j$7er$1...@lacerta.tiscalinet.it...



grazie
Newsgroup: it.comp.lang.perl
Titolo: lettura da file

Ciao a tutti.
Ho uno script perl che, legato al crontab di Linux, ogni minuto cerca in
una directory se ci sono dei piccoli file di testo (4 o 5 righe)che vi
vengono trasmessi via ftp, ne estrae dei dati per memorizzarli in un db, e
sposta i file in un'altra directory. Esiste il rischio che lo script venga
eseguito quando il file di testo non č ancora completamente scaricato, e
cosě la lettura dei dati sia solo parziale? Se si c'č rimedio?
C'č alternativa al crontab? cioč: si puň utilizzare qualcosa che cerchi
sempre nella directory per processare eventuali file di testo?
Grazie
Alberto
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 C'è alternativa al crontab?
IMHO il crontab e' una buona scelta
  Raffaello

 cosě la lettura dei dati sia solo parziale?
In teoria si, ma se hai detto che i file sono molto piccoli, č molto 
improbabile (anche considerando l'upload via 56k, un file txt di pochi kbyte 
ci mette veramente poco).

IMHO il crontab e' una buona scelta
A parte che mi fa un po' impressione che per pochi file di poche righe
si scomodi una esecuzione dell'interprete perl ogni minuto, io farei
un loop dentro il codice interpretato e lo lancerei una volta sola,
avrei anche una sola connect al database. (con delle opportune
condizioni nel caso di soppraggiunta dei classici imprevisti
dovuti a chi non pensa (NT)).
Inoltre a chi ha ben presente la dinamica delle informazioni emerge
con evidenza immediata che FTP e` un protocollo che tiene anche
traccia di data e ora dei file, e questa data ed ora e` impostata
dopo la chiusura del file creato (durante la sua scrittura l'ora e`
del flush o dell'open a seconda del sistema operativo).
Se si puo` presumere che siano stati creati con un deltatempo minimale
(o si decide di aprire solo file il cui stat riporta un epoca maggiore
di due minuti, rinviando i file con data/orario a rischio perche`
troppo recenti [attenzione ai fusi orari, l'ora del file via ftp
dovrebbe essere GMT ma non tutti i server ftp rispettano tale regola])
i file con (mtime < now-prestabilito) sono elaborabili
tranquillamente, a meno di un temporaneo network down (di durata
superiore al tempo prestabilito) incontrato da ftp.
Io feci una cosa del genere per un server SMS-Gateway, se ti
interessano maggiori dettagli il mio sistema e` molto efficiente.
Saluti,
MARco
-- 
xref: 
http://mm.homeunix.org:8380/~u16997.4702/it.comp.lang.perl/tappo,it
x(t),y(t) = th(3t-34.5)*e^[-(3t-34.5)^2]/2-4.3+e^(-1.8/t^2)/(.8*atg(t-
3)+2)(t-1.8)-.3th(5t-42.5),(1.4e^[-(3t-34.5)^2]+1-sgn[|t-8.5|-.5]*1.5*
|sin(pi*t)|^[2e^(-(t-11.5)^2)+.5+e^(-(.6t-3.3)^2)])/(.5+t)+1  ; 0<t<14
Newsgroup: it.comp.lang.perl
Titolo: Acc.. nessuno che sappia dirmi qualcosa sui binari?...

i file,
 non quelli del treno;-)
Grazie.

 i file, non quelli del treno;-)
  Non potresti essere un po' piu` esplicito? Ciuff... ciuff...
	Alla prossima,
		Marco

Ok:
1) come si apre in scrittura un file binario,
2) come scrivo del testo su un file binario
3) come si apre e si legge il testo riga per riga in un file binario
4) si puo' convertire da binario a testo e viceversa?
Ciao e grazie :)

 Ciao e grazie :)
  Prego.
	Alla prossima,
		Marco

Ok:
1) come si apre in scrittura un file binario,
2) come scrivo del testo su un file binario
3) come si apre e si legge il testo riga per riga in un file binario
4) si puo' convertire da binario a testo e viceversa?
Ciao e grazie :)

Grazie Marco,
ti sono grato per le info la mia ignoranza č profonda:(.. ora un po meno:)
Alla prox

Newsgroup: it.comp.lang.perl
Titolo: Ancora include di più file in perl

In uno script si deve settare prima questo dato :
# PATH of the header file
 $headfile = '/home/sites/public_html/include/1.txt");
e poi il file viene richiamato :
# Open the header/footer files
 open (FILE, "$headfile");
  if ($uselock eq '1') {
   flock FILE, 2;
   seek FILE, 0, 0;
  }
  @header = <FILE>;
  if ($uselock eq '1') {
   flock FILE, 8;
  }
 close (FILE);
il problema è che in questo modo non riesco a fargli aprire
5 file .txt di seguito. Ho provato in mille modi e dà sempre errore.
Quale sarebbe la sintassi giusta perchè funzioni con 5 o più include anzichè
1?

 ha scritto nel messaggio
news:zq627.26378$cd.1...@news1.tin.it...


 close (FILE);

A prescindere dal fatto che tu ci sia riuscito, starai mica lockando dei
file statici che devi solo leggere?
Il lock in lettura ha senso solo se sai che un tuo programma (uno di cui
hai l'assoluto controllo) puo' voler scrivere quei file (usando lo stesso
meccanismo di lock) proprio mentre tu li leggi.
A prima vista, quindi, usare il lock per leggere dei file di header che posso
presumere statici e' abbastanza superfluo.
Infine, per quel che ho letto in giro, e' sconsigliato rilasciare il lock
prima di chiudere il file: la chiusura rilascia implicitamente il lock e ti
mette al riparo di strane condizioni terminali.
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: Ascii da Ms-dos a Linux

Grazie!
Ora provo!

 Ora provo!
Ciao... sei il newbie piů educato che abbia mai *letto*, davvero!
Perň.... ti chiederei di quotare (includere) un paio (giusto per non
perdere il filo) di righe di messaggio anche quando chiudi la
discussione coi sempre graditi ringraziamenti... ok? :-))))
Wiz of Id

 discussione coi sempre graditi ringraziamenti... ok? :-))))
Cosě Va bene?
Thanks!
Max
Newsgroup: it.comp.lang.perl
Titolo: [?] Lettura/scrittura file

Ciao a tutti.
Sono il solito novizio che vuole (leggi "deve") imparare il perl.
Vorrei con 6 righe di codice sapere come
a) aprire un file testo in lettura
b) leggerne il contenuto (magari riga per riga)
c) aprire un file testo in scrittura (con eventuale creazione se non esiste)
d) scriverci del testo
e) chiudere i files
Io ho provato a fare un semplice travaso di file con
open(F, "C:\\autoexec.bat") || die "cannot open input file";
open(F2, "C:\\pippo.txt")   || die "cannot open output file";
    while(sysread(F, $buffer, 256))
    {
        syswrite(F2, $buffer, 256) || die "cannot write to output";
    }
close(F);
close(F2);
Ma mi dà errore se pippo.txt non esiste, e mi dà comunque errore sulla
syswrite.
Inoltre così non ho la lettura sequenziale delle righe di testo e non credo
nemmeno che le sysread() e syswrite() siano le funzioni più indicate (non
sono bufferizzate se non sbaglio).
Inoltre, è possibile sapere il motivo per cui il programma mi va in die? (un
codice d'errore e/o una descrizione dell'errore)
Grazie a tutti e ciao

 
Cerca $! in perlvar.
Max
-- 
"Time flies like an arrow; fruit flies like a banana."

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

 close(OUT);'
[root@fokhouse /root]#
Ciao ciao,
Andrea
-- 
"...Unix, MS-DOS, and Windows NT (also known as the Good, the Bad, and 
 the Ugly)."
(by Matt Welsh)

e) chiudere i files
Ringrazio tutti per avermi risposto.
Vorrei chiedervi ancora una cosa (per non continuare a disturbare per queste
sciocchezze) dove posso trovare informazioni sulle modalità di apertura dei
files? (e.s. apertura in sovrascrittura, apertura con [eventuale] creazione,
in append, in modifica...)
Grazie ancora, ciao.

in append, in modifica...)
cerca open su perlfunc


 in append, in modifica...)
  perldoc perlopentut


Newsgroup: it.comp.lang.perl
Titolo: distinzione maiuscolo minuscolo

Salve,
all'interno di una variabile ho una serie di caratteri maiuscoli e 
minuscoli.
es $a ="agtRcHFDee";
Ho la necessita' di metterli in ordine e cioe' prima i maiuscoli poi i 
minuscoli indipendentemente dall'ordine alfabetico, ma potendo rispettando 
anche quest'ultimo.
come fare?
Grazie in anticipo 

salbos wrote:

my $s = 'agtRcHFDee';
my $r = join '', sort $s =~ /([A-Z])/g, $s =~ /([a-z])/g;
print "$r" # DFHRaceegt
Ciao,
Emanuele.

 print "$r" # DFHRaceegt
Anzi scusa, basta banalmente:
my $r = join '', sort split //, $s;
perché le lettere maiuscole e minuscole sono disgiunte nella codifica 
ASCII (e quelle maiuscole vengono prima), per cui una semplice sort fa 
la separazione automaticamente.
Ciao,
Emanuele.

 la separazione automaticamente.
E infine, se hai anche caratteri estesi, questa è la soluzione più 
completa in assoluto che mi viene in mente:
use utf8;
binmode STDOUT, ":utf8";
# necessari per eseguire questa prova.
my $s = 'agtRcHFDeeÀèÈàǺęæÆ';
my $r = join '',
sort( $s =~ /([\p{IsLu}\p{IsLt}])/g ), sort( $s =~ /([\p{IsLl}])/g );
print "$r\n"; # DFHRÀÆÈǺaceegtàæèę
Ciao,
Emanuele.

 Emanuele.
Newsgroup: it.comp.lang.perl
Titolo: funzioni private nei moduli

E` possibile creare delle funzioni private in un modulo?
Non  ho  trovato  nulla  in   perlobj  per  creare  delle  funzioni  non
esportabili...
Bye,
 Emmanuele.
-- 
Emmanuele Bassi         |             [ 
http://digilander.iol.it/ebassi/
 ]
emmanue...@iol.it
  |
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4

 Fai un file di sub che termina con "1;", e lo salvi come .pm
No, intendevo: funzioni del modulo che *non* vengono esportate.
"Private" nel senso non visibili al di fuori del modulo.


package MyModule;
my $private = sub { print "hello $_[0]" }
&$private('world');
## $private è lexically scoped, esiste dalla riga della dichiarazione fino
## alla fine del file, nessuno script la può importare o chiamare direttamente
-- 
Posted from 
mail1.galactica.it
 [212.41.208.18] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ## alla fine del file, nessuno script la può importare o chiamare direttamente
Grazie mille!


Newsgroup: it.comp.lang.perl
Titolo: Tenere in memoria una variabile

consecutivi?
Non e` possible mantenere le variabili tra due processi diversi: all'uscita
viene (ovviamente) pulito tutto. Il mio consiglio e` quello di utilizzare gli
<input type=hidden name=nomevar value=valore> nella pagina HTML "di transito".
	Miky.
-- 
Michele Beltrame
mi...@skm.to
http://www.italpro.com/mb/
They can take your life, but they can't take your pride.

 >Qualcuno sa dirmi se č possibile passare una variabile in due script

Newsgroup: it.comp.lang.perl
Titolo: Compilazione script Perl sotto Win32

CIao a tutti.
Vi assillo ancora con una domanda.
Sono riuscito a "compilare " con perl2exe i miei script, anche
contenenti moduli.
A questo punto si rende necessaria una compilazione vera e propria con
perlcc (ho Visual Studio installato).
Non essendoci sotto Win l'equivaklente UNIX "#!/usr/local/bin/perl", il
compilatore mi si blocca dicendo che non trova "!".
Come si puo' fare?
Grazie a tutti.

> Non essendoci sotto Win l'equivaklente UNIX "#!/usr/local/bin/perl"
Cosa intendi?
Se hai ActivePerl installato in c:\perl il percorso č:
#!/perl/bin/perl
Non vedo perchč su Win non debba esistere! Magari mi sbaglio ... e ho capito
male la richiesta!
Bye, Ezio BOnsi

E invece non c'e'.....:-(
il fatto di poter eseguire degli script da console e' garantito dalla
associazione del tipo di file (sotto NT) o dagli altri meccanismi
suggeriti nei doc della ActiveState.
Se infatti provi ad installare (sotto NT) ActivePerlxxx senza
selezionare "Associa file .pl a perl....", vedrai che non sarai piu' in
grado di lanciare script perl...purtroppo.
Allora, la mia domanda e': esiste un modo per aggirare il problema e
poter compilare con perlcc i miei script? Questo perche' trovo
inaccettabile utilizzare perl2exe, che da un semplice script contenente:
print "CIAO!!!\n";
mi genera un file .exe di 500 KB.
Ciao,
	Angelo


mi genera un file .exe di 500 KB.
Oh, adoro Windoze. ;-)
	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!

> Oh, adoro Windoze. ;-)
Winzozz, please!
Newsgroup: it.comp.lang.perl
Titolo: Modulo perl

Ciao a tutti!
Sto impazzendo da una settimana, per cercare di fare un upgrade di perl
dalla versione 5.002 ad una qualsiasi più nuova su una macchina Aix. In
questa macchina il perl è stato installato come binario, ed ho il
grossissimo problema che se installo un binario più recente, non mi funziona
più un modulo( SearchServer ), che faceva parte di quella installazione.
Avete qualche suggerimento?
Grazie

, scriveva:

Ricompilare il modulo?
Non so come sia la situazione perl su Aix, se sia disponibile una
distribuzione completa o altro, ma la ricompilazione del modulo dovrebbe
comunque risolvere il problema.
Ciao.

> Ricompilare il modulo?
E' proprio quello che non posso fare, perché non ho i sorgenti del modulo!
Pensavo che ricompilando una nuova versione di perl il modulo i sarebb
linkato da solo(no?).

linkato da solo(no?).
Se il modulo è in perl puro, non ha bisogno di essere linkato, e dovrebbe
funzionare anche con la nuova versione di perl; se fa uso di codice
binario, normalmente non funzionerà con il nuovo perl, e quello da
ricompilare è in questo caso il modulo. Siccome dici che appunto non
funziona...
A meno che la nuova installazione non abbia installato il perl in una nuova
directory, e il problema sia solo che il modulo è rimasto nella vecchia
posizione, che non è in @INC. In questo caso (che mi pare un po' troppo
banale, ma siccome non specifichi nulla di "non funziona" è pure legittimo)
si tratta solo di ricopiare il modulo nel posto giusto.
Ciao.
Newsgroup: it.comp.lang.perl
Titolo: Scrpt per sostituire valori in file di testo

Salve a tutti,
ho due file:
file 1:
colonna_1
valore1
valore2
valore3
.
.
.
valoreN
---------------------------------
file 2:
colonna_1                  colonna_2
valore1                      valore1
valore2                      valore2
valore3                      valore3
.                                .
.                                .
.                                .
valoreN                     valoreN
--------------------
Desidero uno script che dati in input i due file sostituisca al valoreN 
della colonna 1 del file 1 il valoreN della colonna 2 del file 2 laddove il 
valoreN di colonna1 del file 1 sia uguale al valoreN di colonna1 del file 2.
Come posso procedere ? Qualcuno ha qualcosa di gia pronto ? ;)
spero di essere stato chiaro.
grazie ! 


Hai provato a fare qualcosa, o vuoi semplicemente che qualcuno
faccia i compiti a casa per te?
Non fa male mostrare un po' di buona volonta' individuale quando si fanno richieste
come la tua.
Comunque, ti do due soluzioni (da sviluppare):
a) Se il numero dei record nei due file e' enorme, usa un database.
    Cioe' metti il file 1 nella tabella1 e il file2 nella tabella2
    e poi esegui
    UPDATE tabella1 set colonna1 = (
    select colonna2 from tabella2 where tabella1.colonna1=tabella2.colonna1
    ) where colonna1 in (select distinct colonna1 from tabella2);
    Puoi usare SQLite, che ha un'interfaccia Perl/DBI consolidata.
b) se il numero di record e' al massimo nell'ordine delle decine di migliaia,
    carica file2 su un hash, e  poi leggi file1, usando la funzione "exists"
    per verificare la corrispondenza con i valori dell'hash.
Prova a mettere giu' un po' di codice, e vediamo se sei sulla buona strada.
Ciao
gmax
-- 
   ____ ____  _____ _   _
  / _  |    \(____ ( \ / )
( (_| | | | / ___ |) X (
  \___ |_|_|_\_____(_/ \_)
(_____|
MySQL Certified Professional
Sapere, saper fare, fare, far sapere
http://gmax.oltrelinux.com

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

Ho installato il Personal Web Server 4 e l'ultimo Perl-win32
Cosa devo fare esattamente per far funzionare i miei script ?

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


Ti ringrazio infinitamente per l'informazione ma continuo ad avere problemi,
potresti dirmi se nel registro devo inserire una chiave o una stringa?
Se puoi, indicami con esattezza i passaggi. Nei miei script infine č
necessario indicare la posizione dell'interprete Perl? Come dovrei
scriverla?
Mille grazie, spero tu voglia ancora aiutarmi.
Fabrizio
www.newance.8m.com

dell'interprete Perl? Come dovrei scriverla?
Hai letto quello che ti ho scritto o no? :-\
SI, e' necessario. La devi scrivere come nell'esempio sopra.


 logica fino a Parameters\ScriptMap del PWS.
Questi mi paiono giusti:-).
Alex
Newsgroup: it.comp.lang.perl
Titolo: Result unexpected!

Hi all,
-------------
$temp = "\@abc1";
$temp ++;
print $temp;
-------------
The result is 1 but I expected the result is "@abc2".
How to do that?
Thanks!


Mea Responsa:
Mmm... well, ++ (autoincrement) is an operator you do to a number, not a
string, so I think it's automatically converting the string "@abc1" to a
number (i.e. 1, or 'true') and then autoincrementing that to give you just
"2".
Cheers,
George
-- 
Just another hacking head >l-d

 Thanks!
$temp = "\@abc345"; 
$temp =~ s/(\d)+/$&+1/e;
print $temp;
Have a nice day,
---------------------------------------------------------------------------
Glad Deschrijver                 gdschrij_AT_eduserv2_DOT_rug_DOT_ac_DOT_be
 
http://studwww.rug.ac.be/~gdschrij
---------------------------------------------------------------------------
 "If you pick up a starving dog and make him prosperous, he will not bite you.
 This is the principal difference between a dog and a man." - Mark Twain.

Newsgroup: it.comp.lang.perl
Titolo: AIUTO! Upload di file

Qualcuno mi può suggerire un sorgente che funzioni sotto win2000 per fare
l'upload di file via web?
Ne ho già provati tre ma tutti terminano prima della fine del processo.
Sapete da cosa può essere causato? Sullo stesso server ho altri cgi che
vanno benissimo, quindi penso che i permessi siano giusti, a meno chè non ci
siano delle impostazioni particolari per l'upload.
GRAZIE
Christian
cri...@ellei.com

 Sapete da cosa può essere causato? Sullo stesso server ho
altri cgi che
a volte il problema può essere causato da una cattiva
impostazione di ascii/binary nell'effetipi.
Ciao
--
<>~<>~<>~<>~<>~<>
   Claves do Amaral
 
cla...@tiscalinet.it
<>~<>~<>~<>~<>~<>
Newsgroup: it.comp.lang.perl
Titolo: come gestire i numeri con virgola

Salve,
      vorrei salvare in una struttura binaria dei numeri sia integer che 
float, ad esempio se che posso riservare 2 bytes per salvare un numero da 0 
a 65535 etc...ma come posso trattare i numeri con virgola ad esempio: 
1520.55 in hex??
ad esempio posso convertire un integere in hex cosě:
$hex = pack("N", $number);
grazie 

 ad esempio posso convertire un integere in hex così:


> occupa 8 bytes... 

 ha scritto nel messaggio 
news:49ede7b0$0$1120$4faf...@reader1.news.tin.it...

tanto vale che vi mostro quello che sto facendo anche se sono ot così 
capirete cosa mi server pack d:
<?xml version="1.0" standalone="no"?>
<refresh lup="1240330152" time="20">
<index cat="0" fla="ITA" nam="SPMIB" tit="S&P/MIB" var="-0.24%" 
val="17688.000" lis="1" rtm="1" mar="0" />
<index cat="0" fla="ITA" nam="MIBTEL" tit="MIBTEL" var="-0.05%" 
val="14045.000" lis="0" rtm="0" mar="0" />
</refresh>
quello che vedete sopra è un file xml che dovrei convertire in formato 
binario per salvare spazio dato che i tags e i nomi degli attributi del
file stesso occupano spazio...quindi ho bisogno di ottimizare spazio perchè 
quando ho migliaia di <index> il file inizia a pesare parecchio.
vi spiego bene gli attributi: LUP (last update) è il timestamp di unix, TIME 
è un valore di refresh che può andare da 0 a 255
CAT può andare da 0 a 255, FLA lo cambierò in integer (sta ad idicare il 
paese ma potrei fare ITA = 0 etc...)
NAM è una serie di caratteri massima lunghezza 255 chars lo stesso vale per 
TIT. VAR sta ad indicare la variazione e sebbene sia un valore numerico
lo potrei lasciare in modalità chars. VAL lo vorrei portare in double. 
LIS,RTM e MAR sono 0 o 1.
all'inizio avevo pensato di fare una cosa tipo molto semplice tipo:
KEYxxVALUE
KEY: chiave di lughezza fissa 3 chars
x: 1 byte per descrivere la lunghezza di value
x: 1 byte per descrivere il TIPO di value
VALUE: valore della chiave
in questo modo quando devo parsare la struttura (unpack) è molto semplice 
dati che i due bytes tra key e value mi aiutano a capire che dati sono e
quanto devo leggere dal buffer...mi domando però come posso creare un array 
tipo:
$riga{1}{KEY1} = VALUE1
$riga{1}{KEY2} = VALUE2
...etc...
$riga{2}{KEY1} = VALUE1
$riga{2}{KEY2} = VALUE2
...etc...
come seconda scelta avevo optato di fare una cosa del genere:
dove "x" è un byte:
tag refresh:
"xxxxxxxx" (8 bytes per rappresentare LUP)
"x" (1 bytes per rappresentare TIME)
tags index:
"x" (1 bytes 0/255 per rappresentare quanto bytes devo leggere con il buffer 
percompletare un rigo, index)
"x" (MAR 0/1)
"x" (LIS 0/1)
"x" (RTM 0/1)
"x" (CAT 0/1)
"x" (FLA 0/1)
"xxxxxxxx" (8 bytes per rappresentare VAL, double)
"x" (NAM lunghezza del prossimo valore 0/255)
"value"
"x" (TIT lunghezza del prossimo valore 0/255)
"value"
"x" (VAR lunghezza del prossimo valore 0/255)
"value"
avete qualche suggerimento?

Newsgroup: it.comp.lang.perl
Titolo: spostare data programma

Vorrei sapere come e' possibile spostare la data in un programma a scadenza 
grazie. 

 scadenza grazie.
compri la licenza
E.
Newsgroup: it.comp.lang.perl
Titolo: Non riesco!

Ciao a tutti,
io ho un file ext.txt formattato nel seguente modo:
valore1:valore2:valore3
valoreA1:valoreA2:valoreA3
valoreB1:valoreB2:valoreB3
.
.
.
valoreN1:valoreN2:valoreN3
e vorrei assegnare una di queste righe del file (in modo random) ad uno 
scalare $line
Grazie a tutti!

Static,
StATiC wrote:

   Se il file non e` eccessivamente grande, puoi leggerlo in un array ed 
utilizzare la funzione /rand/ per scegliere "a caso" quale linea copiare 
nella tua variabile.
	perldoc -f rand
   Se, invece, il file e` grande, allora puoi fare una prima passata in 
lettura per stabilire il numero di righe e poi, calcolato il valore 
random, rileggere nuovamente il file fino alla riga incriminata.
--
Alla prossima,
Marco
Newsgroup: it.comp.lang.perl
Titolo: Caratteri Esadecimali

Ciao a tutti,
Premessa:
Ho un programma che legge da una file binario un byte ($dim = 1) mediante
una chiamata di funzione read, dopo aver posizionato il puntatore con una
seek:
read( FILE, $buffer, $dim ) 
dopodiche'con una print,
print $buffer,"\n";
vorrei visualizzare a schermo il contenuto di $buffer.
Con un editor esadecimale, so che il byte che vado a leggere dal file
binario e` `0F`.Malgrado cio` a schermo non mi compare nulla.Solo nel caso
in cui trasformo con l` editor lo 0F in un caratteri ASCII come ad esempio
41 che corrisponde al carattere A, riesco a stamparlo su STDOUT.E fin qui
tutto bene perche` 0f non e` sicuramente un carattere stampabile.Avrei
pero` la necessita` di renderlo, in maniera da far intraprendere al
programma tutta una serie di azioni sulla base del valore che si trova in
$buffer.Ho anche provato a convertire mediante le funzioni hex e/o oct ma
senza successo.
Cosa mi consigliate di provare? 
 
Grazie e Ciao.


Puoi stabilire se il carattere e' stampabile, e stamparlo
a seconda del risultato. Per esempio:
use warnings;
use strict;
while (my $line = <>)
{
     for (split(//, $line, 0))
     {
         printf '%02x %s  ',
             ord $_,
             /[[:alnum:]]|[[:punct:]]/ ? $_ : ' ';
     }
     print "\n";
}
In questo esempio, se il carattere in questione e' alfanumerico o punteggiatura,
stampa il carattere, altrimenti stampa uno spazio, oltre al valore esadecimale.
Ciao
gmax
-- 
   ____ ____  _____ _   _
  / _  |    \(____ ( \ / )
( (_| | | | / ___ |) X (
  \___ |_|_|_\_____(_/ \_)
(_____|
MySQL Certified Professional
Sapere, saper fare, fare, far sapere
http://gmax.oltrelinux.com

gmax
o piu` semplicemente
print unpack("H*",$buffer);
mentre se vuoi esagerare:
($_ = $buffer);		#invito a usare questa variabile a monte
;############### inspect debug ascii buffer $_ ##############################
print join("\n",map{unpack("H*",$_)." = '$_'"}/.{1,16}/gos); #by MARco Munari
;############################################################################
cosi` il buffer contenente 1234567890abcdefghijklmnopqrstuvwxyz
verra` stampato come segue:
31323334353637383930616263646566 = '1234567890abcdef'
6768696a6b6c6d6e6f70717273747576 = 'ghijklmnopqrstuv'
7778797a = 'wxyz'
inoltre puoi abbellire l'output rimpiazzando il blocco
{unpack("H*",$_)." = '$_'"}
con qualcosa tipo
{
 $hexs=unpack("H*",$_);
 s/'/''/g;		#mai trascurare gli escape
 s/[\0-\037]/./gos;	#rimpiazza i caratteri non stampabili in $_ con un '.'
 "$hexs = '$_'";
}#non testato
o se preferisci stampare normalmente i caratteri stampabili ed
ispezionare solo quelli non stampabili
$_ = $buffer;	#altereremo il contenuto, va bene aver usato buffer
s/[\0-\037]/"ANSI[".ord($&)."]"/geos;  #rimpiazza i caratteri ANSI in $_
print $_;
All the best,
MARco
-- 
http://xref.mm.homeunix.org:8380/~u17059.43135/it.comp.lang.perl/unpack,it
x(t),y(t) = th(3t-34.5)*e^[-(3t-34.5)^2]/2-4.3+e^(-1.8/t^2)/(.8*atg(t-
3)+2)(t-1.8)-.3th(5t-42.5),(1.4e^[-(3t-34.5)^2]+1-sgn[|t-8.5|-.5]*1.5*
|sin(pi*t)|^[2e^(-(t-11.5)^2)+.5+e^(-(.6t-3.3)^2)])/(.5+t)+1  ; 0<t<14
Newsgroup: it.comp.lang.perl
Titolo: Re: Incomprensioni con File::Util

 scelto di utilizzare File::Util
Scusa se non rispondo direttamente alla tua domanda, ma io mi terrei 
accuratamente alla larga da questo File::Util.
Ha un'interfaccia veramente orripilante, ed ha anche dei prerequisiti 
inspiegabili.
Quello che serve a te si fa banalmente con il builtin glob() (o con 
File::Glob, che è un modulo core) e null'altro.
Se poi volessi scrivere codice portabile Win/*nix, basterebbe 
aggiungervi File::Spec per la manipolazione dei path (per inciso, il 
codice che hai postato funzionerebbe solo su Windows, in quanto hai un 
"\" hardcoded come separatore.)
SEE ALSO
File::Find, File::Find::Rule
Ciao,
Emanuele

Ho un programma che deve prendere un tot di file in una directory e
inserirli in un campo blob di un DB Oracle. Per manipolare i file ho
scelto di utilizzare File::Util e nella mia idea il tutto dovrebbe
funzionare così:
my $fu = File::Util->new();
my @images = $fu->list_dir($path, qw/--files-only --pattern=\.JPG$ --
no-fsdot/);
foreach $image (@images) {
    $bin_content = $fu->load_file ("$path\\$image");
    #fai quel che devi fare
}
Nel mio caso la variabile $path contiene un percorso assoluto in
formato Windows.
Il metodo load file si arrabbia e mi dice che il path che gli ho
passato non esiste... Ma come fa a non esistere se mi ha elencato
tutti i file che ci sono dentro?
Il programma mi restituisce un messaggio d'errore molto dettagliato in
cui in pratica mi mostra che il percorso assoluto che gli ho dato in
pasto se lo è elaborato e ci ha attaccato un punto davanti...
Per intenderci
C:\temp
è diventato
.\C\\Temp
Insomma, sembrerebbe che abbia "relativizzato" il percorso rispetto
alla directory in cui è contenuto lo script...
Come posso evitarlo?
Grazie in anticipo
Simone

 File::Glob, che è un modulo core) e null'altro.
Ha funzionato grazie ... Ci ho aggiunto solo il modulo File::Slurp,
per papparmi il contenuto
Ciao

Newsgroup: it.comp.lang.perl
Titolo: Lettura righe da un file di testo e limiti conseguenti

Salve
ho creato uno script che memorizza dei record in un file di testo, un
record per linea.
Quando devo leggere il contenuto del file per stamparlo in output in una
pagina html o quando devo cercare un certo record, utilizzo la seguente
sintassi:
 open (INFO, "$MsgFile") || die "impossibile aprire $MsgFile: $!\n";
 @LineeMsg = <INFO>;
 foreach $LineaMsg (@LineeMsg) {
 ....
 }
 close (INFO);
Ogni volta quindi all'array @LineeMsg vengono assegante tutte le righe
contenute nel file.
Esiste qualche limite nel numero di righe (record) oltre il quale questo
modo di procedere risulta inefficiente.
Andrea




Quando il file diventa troppo grosso per la memoria del tuo elaboratore.
Se hai bisogno di un record alla volta, leggi le righe una alla volta in uno
scalare, invece di tirarti su tutto il file.
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: velocità script

Compilando con PAR, la velocità dello scrip diviene pari a quella di un
eseguibile compilato, oppure PAR crea solo una sorta di emulazione perl  ove
lo script viene interpretato (a discapito della velocità) ?
thks

lo script viene interpretato (a discapito della velocità) ?
La seconda che hai detto. Circa. PAR non "emula" perl, impacca proprio
l'interprete perl (la cosa vera) insieme con lo script e tutto quello che
serve allo script per essere eseguito. La velocità di caricamento, d'altra
parte, potrebbe essere leggermente minore, perché tutto il codice è in un
unico file, e in forma compressa.
Ciao.

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

come ?
Sarebbe possibile, ma difficilmente accelererebbe in modo significativo la
ruotine. Compilare il codice Perl non è la strada giusta per migliorare le
prestazioni. Come, lo trovi nelle faq.
Ciao.

 una routine di 1/2 giornata) ed invece la ritardo....
la questione sono i tempi di start-up non la velocità di esecuzione 
delle routine...chi parte prima arriva prima.
Non sono mai riuscito a convertire uno script in C ottimizatto che poi 
funzionasse, una volta che allacci una libreria con use.
peggio mi sento con il bytecode.
lo stesso vale per Perl2Exe. La vera e unica comodità di questi pseudo 
compilatori e che hai in un file l'eseguibile con tutto ciò che gli 
serve, così fai a meno di un interprete Perl sulla macchina dove devi 
far girare il tuo script, in più il codice non è in chiaro (quasi).

 delle routine...chi parte prima arriva prima.
In realtà la latenza di startup (almeno quella /grossa/) si ha soltanto 
la *prima* volta che si esegue il programma, in quanto PAR scompatta 
tutto il contenuto del package (nella directory temporanea di sistema, 
creando una sottodirectory per ogni programma).
Nelle esecuzioni successive vengono utilizzati i file già scompattati, 
quindi non ci sono ritardi (almeno non particolarmente rilevanti).
Ciao,
Emanuele.

Newsgroup: it.comp.lang.perl
Titolo: Domanda FACILISSIMA su variabili ed addizioni.

Buon giorno a tutti.
Ho una variabile numerica registrata in un file.
Con questo comando addiziono 1 alla variabile numerica.
$variabile[2]++;
Come posso invece addizionare un numero random che va da 1 a 5 ?
Qualěč la sintassi esatta?
--
Ciao, Matteo.
- - - - - - - - - - - - - - - - - - - - - - - - - - -
Promuove istantaneamente il tuo sito, in maniera intelligente!
http://banny.net?matteo

$variabile[2] += int(rand 5) + 1
-- 
Posted from 
mail4.galactica.it
 [212.41.208.21] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 $variabile[2] += int(rand 5) + 1
Grazie mille, veramente molto gentile! ;-)


 Qualěč la sintassi esatta?
perldoc -f rand
Bye,
 Emmanuele.
-- 
Emmanuele Bassi         |             [ 
http://digilander.iol.it/ebassi/
 ]
emmanue...@iol.it
  |
GnuPG Key fingerprint = 4DD0 C90D 4070 F071 5738  08BD 8ECC DB8F A432 0FF4